Listing of file='OP5D150A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 316, program filename = 'OP5D150A' 0010 REM . OP5D150A, 00-00 (6/28/75), 12002 0100 PRINT "MAT SEARCH DIAGNOSTIC #3 (COMATF16).."; : 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) : FOR I=10TO 1STEP -1 : FOR J=10TO 1STEP -1 : A$(I,J)=K$ : ADD(K$,01) : NEXT J : NEXT I 0200 MAT SORTA$()TO W$(),B$() : 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 0300 BIN(STR(C$(I,J),2,1))=C : NEXT J : NEXT I : FOR I=1TO 10 : FOR J=1TO 10 : IF B$(I,J)=C$(I,J)THEN 400 : E(16)=E(16)+1 : E9$(P9)="NG" : PRINT TAB(40);E(16);"ERRORS" : GOTO 650 0400 NEXT J : NEXT I : GOTO 640 0430 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 0640 PRINT "O.K." 0650 SELECT PRINT 005(64),CO 005(64) : COM CLEAR E() : LOAD DC T#6,"S/START" 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 0770 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"