image of READY prompt

Wang2200.org

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