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