image of READY prompt

Wang2200.org

Listing of file='15' on disk='vmedia/glbr_22.wvd.zip'

# Sector 484, program filename = '15'
0005 DIM A(7,9)
0010 PRINT "NO. OF UNKNOWNS?"
0020 INPUT N
0030 PRINT "INPUT 'AUGMENTED COEFFICIENT MATRIX'"
0100 FOR I=1 TO N
0120 INPUT A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),A(I,6),A(I,7),                 A
     (I,8),A(I,9)
0140 NEXT I
0160 PRINT
0210 FOR S=1 TO N
0220 FOR T=S TO N
0230 IF A(T,S)<>0 THEN 240
0235 NEXT T
0237 PRINT "NO UNIQUE SOLUTION"
0238 GOTO 999
0240 GOSUB 510
0250 C=1/A(S,S)
0260 GOSUB 610
0270 FOR T=1 TO N
0275 IF T=S THEN 300
0280 C=-A(T,S)
0290 GOSUB 710
0300 NEXT T
0305 NEXT S
0310 GOTO 800
0510 FOR J=1 TO N+1
0520 B=A(S,J)
0530 A(S,J)=A(T,J)
0540 A(T,J)=B
0550 NEXT J
0560 RETURN
0610 FOR J=1 TO N+1
0620 A(S,J)=C*A(S,J)
0630 NEXT J
0640 RETURN
0710 FOR J=1 TO N+1
0720 A(T,J)=A(T,J)+C*A(S,J)
0730 NEXT J
0740 RETURN
0800 FOR T=1 TO N
0810 PRINT "X(";T;")=";A(T,N+1)
0820 NEXT T
0999 END