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"