Listing of file='10' on disk='vmedia/glbr_22.wvd.zip'
# Sector 148, program filename = '10' 0005 DIM A(6,7),Z(6,6) 0010 PRINT "INPUT N" : INPUT N 0020 PRINT "INPUT MATRIX" 0030 FOR S=1 TO N 0040 INPUT A(S,1),A(S,2),A(S,3),A(S,4),A(S,5),A(S,6),A(S,7) 0060 Z(S,S)=1 : NEXT S 0070 FOR S=1 TO N 0080 FOR T=S TO N : IF A(T,S)<>0 THEN 100 : NEXT T 0090 PRINT "MATRIX SINGULAR" : GOTO 999 0100 GOSUB 500 0110 C=1/A(S,S) : GOSUB 600 0120 FOR T=1 TO N : IF T=S THEN 140 0130 C=-A(T,S) : GOSUB 700 0140 NEXT T : NEXT S : GOTO 800 0500 FOR J=1 TO N 0510 B=A(S,J) : A(S,J)=A(T,J) : A(T,J)=B 0520 B=Z(S,J) : Z(S,J)=Z(T,J) : Z(T,J)=B 0530 NEXT J : RETURN 0600 FOR J=1 TO N 0610 A(S,J)=C*A(S,J) : Z(S,J)=C*Z(S,J) 0620 NEXT J : RETURN 0700 FOR J=1 TO N 0710 A(T,J)=A(T,J)+C*A(S,J) : Z(T,J)=Z(T,J)+C*Z(S,J) 0720 NEXT J : RETURN 0800 PRINT 0810 FOR I=1 TO N : FOR J=1 TO N 0820 PRINT Z(I,J), : NEXT J : PRINT : NEXT I 0999 END