image of READY prompt

Wang2200.org

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

# Sector 69, program filename = 'OP1D020A'
0010 REM .   OP1D020A,   00-00 (06/28/75),   12002
   : PRINT "TESTING MAT ADDITION,SUBTRACTION... ";
   : DIM A(4,3),B(4,3),C9(5,5),D(20),D1(20,1)
   : X=RND(0)
   : FOR I=1TO 4
   : FOR J=1TO 3
0130 A(I,J)=RND(1)-.5
   : B(I,J)=RND(1)-.5
   : NEXT J
   : NEXT I
   : MAT C9=A+B
   : X=RND(0)
   : FOR I=1TO 4
   : FOR J=1TO 3
0160 IF C9(I,J)<>RND(1)+RND(1)-1THEN 260
   : NEXT J
   : NEXT I
   : MAT C9=B-B
   : GOSUB 240
   : MAT C9=A-A
   : MAT C9=C9-A
   : MAT C9=C9+C9
   : MAT C9=A+C9
   : MAT C9=C9+A
   : GOSUB 240
   : FOR I=1TO 20
   : D(I)=I
   : D1(I,1)=-I
   : NEXT I
   : MAT C9=D+D1
   : GOSUB 240
   : MAT D=D1-D
0220 FOR I=1TO 20
   : IF D(I)<>-2*ITHEN 260
   : NEXT I
   : PRINT "OK"
   : GOTO 280
0240 MAT REDIM C9(5,5)
   : FOR I=1TO 5
   : FOR J=1TO 5
0250 IF C9(I,J)<>0THEN 260
   : NEXT J
   : NEXT I
   : RETURN
0260 E(2)=E(2)+1
0270 PRINT TAB(40);E(2);"ERRORS"
0280 LOAD DC T"OP1D030A"
0290 DEFFN'15
   : LOAD DC T"START"50