%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:206
File Name:EINZLSCH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
' M=N
' \Mat B WIE BEI AVS
' \Mat C NAEHERUNG
\Dim \Mat B\->\List 1
\List 1[1]\->M
\List 1[2]\->N
(M+1\<>N)\=>\Stop
\Dim \Mat C\->\List 1
\List 1[1]\<>M\=>\Stop
\Do
\For 1\->I \To M
\(-)\Mat B[I,N]\->S
\For 1\->J \To M
\If I\<>J
\Then S-\Mat B[I,J]*\Mat C[J,1]\->S
\IfEnd
\Next 
S/\Mat B[I,I]\->\Mat C[I,1]
\Next 
\Mat C\Disp\LpWhile 1=1

%End