Listing of file='OP5D140A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 249, program filename = 'OP5D140A' 0010 REM . OP5D140A, 00-00 (06/28/75), 12002 : PRINT "MAT SEARCH DIAGNOSTIC #2 (COMATF15).."; : DIM A$(1)32,B$(2)32,W$(32)2,V$2,V1$4 : INIT(FF)B$(),W$() 0140 A$(1)="12345678901234567890123456789012" : V$="12" : MAT SEARCHA$()<2,29>,<V$TO W$() : GOSUB '14 0170 IF STR(B$(1),1,6)=HEX(000900130000)THEN 190 : E(4)=E(4)+1 : E9$(P9)="NG" : PRINT TAB(40);E(4);"ERRORS" : LOAD DC T"OP5D150A" 0190 V1$="9012" : MAT SEARCHA$()<1,32>,=V1$TO W$()STEP 8 : GOSUB '14 : IF STR(B$(1),1,4)=HEX(00090000)THEN 230 : E(4)=E(4)+1 : E9$(P9)="NG" : PRINT TAB(40);E(4);"ERRORS" : LOAD DC T"OP5D150A" 0230 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 280 : E(4)=E(4)+1 : PRINT TAB(40);E(4);"ERRORS" : LOAD DC T"OP5D150A" 0280 PRINT "O.K." : LOAD DC T"OP5D150A" 0300 DEFFN'14 : FOR I=1TO 16 : STR(B$(1),2*I-1,2)=STR(W$(I),1,2) 0330 STR(B$(2),2*I-1,2)=STR(W$(I+16),1,2) : NEXT I : RETURN 0360 DEFFN'15 : LOAD DC T"START"50