image of READY prompt

Wang2200.org

Listing of file='OP1D020A' on disk='vmedia/701-2046C.wvd.zip'

# Sector 139, program filename = 'OP1D020A'
0010 REM .     OP1D020A,  00-00 (6/28/75),   12002
0100 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
   : 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
0230 IF C9(I,J)<>RND(1)+RND(1)-1THEN 540
   : NEXT J
   : NEXT I
   : MAT C9=B-B
   : GOSUB 470
   : MAT C9=A-A
   : MAT C9=C9-A
   : MAT C9=C9+C9
   : MAT C9=A+C9
   : MAT C9=C9+A
   : GOSUB 470
   : FOR I=1TO 20
   : D(I)=I
   : D1(I,1)=-I
   : NEXT I
   : MAT C9=D+D1
   : GOSUB 470
   : MAT D=D1-D
   : FOR I=1TO 20
   : IF D(I)<>-2*ITHEN 540
   : NEXT I
0440 IF E(2)<>0THEN 560
   : PRINT "OK"
   : GOTO 570
0470 MAT REDIM C9(5,5)
   : FOR I=1TO 5
   : FOR J=1TO 5
   : IF C9(I,J)<>0THEN 540
   : NEXT J
   : NEXT I
   : RETURN
0540 E(2)=E(2)+1
   : E9$(P9)="NG"
0560 PRINT TAB(40);E(2);"ERRORS"
0570 LOAD DC T#6,"OP1D030A"
0580 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"