Listing of file='OP1D010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 303, program filename = 'OP1D010A' 0010 REM . OP1D010A, 00-00 (6/28/75), 12002 0100 SELECT PRINT 005 : GOSUB 640 : GOSUB '100 : GOSUB 640 : FOR I=1TO 20 : E(I)=0 : NEXT I : PRINT "TESTING MAT EQUALITY... "; : DIM A(20,3),B1(20,1),B(20),C(1),D1(1,1),B2(20),D(4,3) : C(1)=RND(0) : FOR I=1TO 20 : B(I)=RND(1) : NEXT I : MAT B1=B : MAT B2=B : FOR I=1TO 20 0260 IF B1(I,1)<>B(I)THEN 540 : IF B2(I)<>B(I)THEN 540 : NEXT I : MAT B=ZER : MAT B=B1 : FOR I=1TO 20 : IF B(I)<>B1(I,1)THEN 540 : NEXT I : FOR I=1TO 4 : FOR J=1TO 3 : D(I,J)=RND(1) : NEXT J : NEXT I : IF I>4THEN 460 : IF J>3THEN 460 : MAT A=D : FOR I=1TO 4 : FOR J=1TO 3 : IF A(I,J)<>D(I,J)THEN 540 : GOTO 470 0460 IF A(I,J)<>0THEN 540 0470 NEXT J : NEXT I : MAT D1=C : IF C(1)<>D1(1,1)THEN 540 : D1(1,1)=5 : MAT C=D1 : IF C(1)=5THEN 550 0540 E(1)=E(1)+1 0550 IF E(1)=0THEN 590 : PRINT TAB(40);E(1);"ERRORS" : E9$(P9)="NG" : GOTO 600 0590 PRINT "OK" 0600 LOAD DC T#6,"OP1D020A" 0610 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START" 0640 PRINT HEX(0A0A); : PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - OPTION I" : PRINT "------------------------------------------" : RETURN 0680 DEFFN'100 : ON O8GOTO 710,730,750 : STOP "SYSTEM ERROR" 0710 SELECT PRINT 005 : RETURN 0730 SELECT PRINT 215 : RETURN 0750 SELECT PRINT 211 : RETURN