image of READY prompt

Wang2200.org

Listing of file='OP5D070A' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 569, program filename = 'OP5D070A'
0010 REM .    OP5D070A,   00-00 (06/28/75),   12002
   : PRINT "MAT MERGE DIAGNOSTIC #1 (COMATF08)..";
   : DIM A$(5,5)1,W1$(6)1,W2$(5)2,B$(30)2,F$(30)2,G$(5,5)1
   : FOR I=1TO 5
0170 X1=X1+3
   : X2=X2+8
   : X3=X3+11
   : X4=X4+17
   : X5=X5+18
   : BIN(A$(1,I))=X1
   : BIN(A$(2,I))=X2
   : BIN(A$(3,I))=X3
0190 BIN(A$(4,I))=X4
   : BIN(A$(5,I))=X5
   : NEXT I
   : INIT(00)F$()
   : INIT(01)W1$()
   : INIT(20)B$()
0240 MAT MERGEA$()TO W1$(),W2$(),B$()
   : P1=P1+1
   : IF B$(1)=HEX(0000)THEN 290
   : GOSUB '50
   : GOTO 240
0290 MAT MOVE A$(),F$(1)TO G$(1,1)
   : DIM X$4
   : INIT(00)X$
   : ADDC(X$,G$(1,1))
   : ADDC(X$,G$(5,5))
   : ADDC(X$,G$(1,5))
0340 ADDC(X$,G$(2,1))
   : ADDC(X$,G$(3,5))
   : ADDC(X$,G$(4,3))
   : IF X$=HEX(000000C2)THEN 380
   : E(4)=E(4)+1
   : PRINT TAB(40);E(4);"ERRORS"
   : LOAD DC T"OP5D080A"
0380 PRINT "O.K."
   : LOAD DC T"OP5D080A"
0390 DEFFN'0
   : SELECT PRINT 215(130)
   : PRINT "PASS #";P1
   : PRINT "W1$() = "
   : HEXPRINT W1$()
   : PRINT "B$() ="
   : HEXPRINT B$()
   : PRINT "F$() ="
   : HEXPRINT F$()
0480 SELECT PRINT 005(64)
   : RETURN
0500 DEFFN'50
   : K=1
0520 IF B$(K)=HEX(0000)THEN 570
   : L=L+1
   : F$(L)=B$(K)
   : K=K+1
   : GOTO 520
0570 RETURN
0580 DEFFN'1
   : PRINT "G$() = MERGED DATA ="
   : HEXPRINT G$()
   : RETURN
0620 DEFFN'2
   : PRINT "A$() = "
   : HEXPRINT A$()
   : RETURN
0650 DEFFN'15
   : LOAD DC T"START"50