image of READY prompt

Wang2200.org

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"