image of READY prompt

Wang2200.org

Listing of file='OP1D040A' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 210, program filename = 'OP1D040A'
0010 REM .   OP1D040A,   00-00 (06/28/75),   12002
   : PRINT "TESTING MAT SCALAR MULTIPLICATION... ";
   : DIM A(20),C(20,1),B(4,5),D(1,1),F(1)
   : FOR I=1TO 20STEP 4
   : MAT REDIM A(I)
   : FOR J=1TO I
   : A(J)=J
   : NEXT J
0140 MAT A=(123)*A
   : MAT REDIM A(20)
   : X=1
   : FOR K=1TO 20
   : IF K<=ITHEN 160
   : X=0
0160 IF A(K)<>123*K*XTHEN 260
   : NEXT K
   : NEXT I
0180 MAT C=(-1/123)*A
   : FOR I=1TO 17
   : IF C(I,1)<>-ITHEN 260
   : NEXT I
   : FOR I=1TO 4
   : FOR J=1TO 5
   : B(I,J)=(I-1)*5+J
   : NEXT J
   : NEXT I
   : MAT C=(.1)*B
   : MAT REDIM C(20,1)
   : FOR I=1TO 20
   : IF C(I,1)<>.1*ITHEN 260
   : NEXT I
   : D(1,1)=3
   : MAT F=(.3)*D
   : IF F(1)<>.9THEN 260
0250 PRINT "OK"
   : GOTO 280
0260 E(2)=E(2)+1
0270 PRINT TAB(40);E(2);"ERRORS"
0280 LOAD DC T"OP1D050A"
0290 DEFFN'15
   : LOAD DC T"START"50