image of READY prompt

Wang2200.org

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