Listing of file='16' on disk='vmedia/glbr_22.wvd.zip'
# Sector 830, program filename = '16' 0005 DIM A(10,10),X(10) 0010 PRINT "INPUT 1 (SCALAR MULT.) OR 2 (ADD) OR 3 (SUBTRACT)" 0015 INPUT Z : IF Z>1 THEN 20 : PRINT "INPUT SCALAR" : INPUT R 0020 PRINT "INPUT N,M" : INPUT N,M 0040 PRINT "INPUT MATRIX A" 0050 FOR I=1 TO N 0060 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),A(I,10) 0080 NEXT I 0090 IF Z=1 THEN 170 : R=1 0100 PRINT "INPUT MATRIX B" 0110 FOR I=1 TO N 0115 INPUT X(1),X(2),X(3),X(4),X(5),X(6),X(7),X(8),X(9),X(10) 0120 FOR K=1 TO M 0130 IF Z=2 THEN 140 : X(K)=-X(K) 0140 A(I,K)=A(I,K)+X(K) 0150 NEXT K 0160 NEXT I 0170 FOR I=1 TO N : PRINT : FOR J=1 TO M 0180 PRINT R*A(I,J), : NEXT J : PRINT : NEXT I 0190 END