\START82\ \COMMENT=Program file dated 12/28/21, 12:09 \NAME=GAUSS \FILE=C:\DOKUME~1\ELMAR\EIGENE~1\GAUSS.82P :dim [E]\->\\L6\ :\L6\(1)\->\M :If N\<=\0 or N>\L6\(2):\L6\(2)\->\N :{F,G,H,I,J,K,L,P,Q}\->\\L6\ :1\->\J:1\->\I :If I>M-1:Goto 9 :Lbl I :I\->\Q :While Q\<=\M :If [E](Q,J):Goto 3 :Q+1\->\Q :End :Lbl 3 :If Q>M:Then :J+1\->\J :If J>N:Goto 9 :Goto I :End :If I\<>\Q:Then :rowSwap([E],I,Q)\->\[E] :If D:Pause [E] :End :For(P,I+1,M) :[E](I,J)\->\F :[E](P,J)\->\G :If G:Then :min(max(F,\(-)\1),1)\->\K :min(max(G,\(-)\1),1)\->\L :If E:Then :F*K\->\F:G*L\->\G :min(F,G)\->\H :F+G-H\->\G :Lbl 1 :H\->\F:G-H*iPart (G/H)\->\H:F\->\G :If H\<>\0:Goto 1 :End :[E](I,J)\->\H :[E](P,J)\->\F :If E:Then :*row(\(-)\1*H/G,[E],P)\->\[E] :*row+(F/G,[E],I,P)\->\[E] :Else :*row+(\(-)\F/H,[E],I,P)\->\[E] :End :If D:Pause [E] :End:End :I+1\->\I :If I>M-1:Goto 9 :J+1\->\J :If J>N:Goto 9 :Goto I :Lbl 9 :\L6\(1)\->\F:\L6\(2)\->\G:\L6\(3)\->\H :\L6\(4)\->\I:\L6\(5)\->\J:\L6\(6)\->\K:\L6\(7)\->\L:\L6\(8)\->\P:\L6\(\#\ 9)\->\Q:ClrList \L6\ :Lbl 8 :Disp \STOP82\