Listing of file='OP5D140A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 228, program filename = 'OP5D140A' 0010 REM . OP5D140A, 00-00 (6/28/75), 12002 0100 PRINT "MAT SEARCH DIAGNOSTIC #2 (COMATF15).."; : DIM A$(1)32,B$(2)32,W$(32)2,V$2,V1$4 : INIT(FF)B$(),W$() : A$(1)="12345678901234567890123456789012" : V$="12" : MAT SEARCHA$()<2,29>,<V$TO W$() : GOSUB '14 0170 IF STR(B$(1),1,6)=HEX(000900130000)THEN 220 : E(15)=E(15)+1 : E9$(P9)="NG" : PRINT TAB(40);E(15);"ERRORS" : LOAD DC T#6,"OP5D150A" 0220 V1$="9012" : MAT SEARCHA$()<1,32>,=V1$TO W$()STEP 8 : GOSUB '14 : IF STR(B$(1),1,4)=HEX(00090000)THEN 300 : E(15)=E(15)+1 : E9$(P9)="NG" : PRINT TAB(40);E(15);"ERRORS" : LOAD DC T#6,"OP5D150A" 0300 N=1.8 : MAT SEARCHA$()<1,30>,=STR(V1$,1,2)TO W$()STEP N : GOSUB '14 : IF STR(B$(1),1,8)=HEX(00090013001D0000)THEN 380 : E(15)=E(15)+1 : E9$(P9)="NG" : PRINT TAB(40);E(15);"ERRORS" : LOAD DC T#6,"OP5D150A" 0380 PRINT "O.K." : LOAD DC T#6,"OP5D150A" 0400 DEFFN'14 : FOR I=1TO 16 : STR(B$(1),2*I-1,2)=STR(W$(I),1,2) : STR(B$(2),2*I-1,2)=STR(W$(I+16),1,2) : NEXT I : RETURN 0460 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"