P1 1 PRINT "S.L.EQ";-V 2 U=0 3 GOSUB #9:FOR W=1 TO V:F(W)=A(W):NEXT W:X=2:GOSUB 9 4 FOR W=2 TO V:J(W)=A(W):NEXT W: IF V=2;B=H-G*C:GOTO 7 5 X=3:GOSUB 9:FOR W=3 TO W:M(W)=A(W):NEXT W 6 C=M-L*D:B=I-G*C-H*D 7 FOR W=1 TO V:PRINT "X";W;" = ";A(W):NEXT W:GOTO 2 8 FOR Y=2 TO X:GOSUB 10*Y:NEXT Y:RETURN 9 GOSUB#9:GOSUB 8:RETURN 20 IF A=0 THEN 22 21 FOR W=1 TO V:A(W)=A(W)-F(W):NEXT W 22 IF B=0 THEN 24 23 FOR W=2 TO V:A(W)=A(W)/B:NEXT W:RETURN 24 IF U=2;GOSUB#8:GOTO 20 25 RETURN 30 IF B=0 THEN 32 31 FOR W=2 TO V:A(W)=A(W)-J(W):NEXT W 32 IF C=0 THEN 34 33 D=D/C:RETURN 34 IF U=3;GOSUB#8:GOTO 30 35 RETURN P2 1 V=2:GOTO#1 P3 1 V=3:GOTO#1 P8 1 PRINT "PIVOT=0","RETRY!":U=U-1:RETURN P9 1 U=U+1 2 PRINT "ROUND";U:INPUT "A= ",A:IF A+U=1;GOSUB#8:GOTO 2 3 INPUT "B= ",B,"C= ",C:IF V=2 THEN 7 4 INPUT "D= ",D 7 IF A=0;RETURN 8 FOR W=1 TO V:A(W)=A(W)/A:NEXT W:RETURN