Listing of file='OP5D150A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 374, program filename = 'OP5D150A' 0010 REM . OP5D150A, 00-00 (06/28/75), 12002 : PRINT "MAT SEARCH DIAGNOSTIC #3 (COMATF16).."; : COM Z9(1) : DIM A$(10,10)1,K$1,W$(100)2,B$(10,10)2,M$2,X$(1)2 : DIM C$(10,10)2 : K$=HEX(00) 0020 FOR I=10TO 1STEP -1 : FOR J=10TO 1STEP -1 : A$(I,J)=K$ : ADD(K$,01) : NEXT J : NEXT I : MAT SORTA$()TO W$(),B$() 0030 FOR I=1TO 10 : FOR J=1TO 10 : BIN(STR(M$,1,1))=I : BIN(STR(M$,2,1))=J : MAT SEARCHB$()<1,200>,=M$TO X$()STEP 2 : N0=VAL(STR(X$(1),2,1)) : R=INT((N0-1)/20)+1 : C=((N0+1)-20*(R-1))/2 : BIN(STR(C$(I,J),1,1))=R : BIN(STR(C$(I,J),2,1))=C 0040 NEXT J : NEXT I : FOR I=1TO 10 : FOR J=1TO 10 : IF B$(I,J)=C$(I,J)THEN 60 0050 E(4)=E(4)+1 : PRINT TAB(40);E(4);"ERRORS" : GOTO 90 0060 NEXT J : NEXT I : GOTO 80 0070 DEFFN'0 : GOSUB '100 : PRINT HEX(0E);"B$() = " : PRINT HEX(0A) : FOR I=1TO 10 : FOR J=1TO 10 : HEXPRINT B$(I,J); : NEXT J : PRINT : NEXT I : PRINT HEX(0A) : PRINT HEX(0E);"C$() = " : PRINT HEX(0A) : FOR I=1TO 10 : FOR J=1TO 10 : HEXPRINT C$(I,J); : NEXT J : PRINT : NEXT I : SELECT PRINT 005(64) : RETURN 0080 PRINT "O.K." 0090 SELECT PRINT 005(64),CO 005(64) 0100 DATA LOAD DA T(1023,L)B$,B$,B$,B$ : IF B$="OP5D010A"THEN 110 : LOAD DC T"DISK MC1" 0110 Z9(1)=Z9(1)+1 : LOAD DC TB$ 0120 DEFFN'100 0130 ON O8 GOTO 140,150,160 : STOP "SYSTEM ERROR" 0140 SELECT PRINT 005 : RETURN 0150 SELECT PRINT 215 : RETURN 0160 SELECT PRINT 211 : RETURN 0170 DEFFN'15 : LOAD DC T"START"50