image of READY prompt

Wang2200.org

Listing of file='OP5D070A' on disk='vmedia/701-2046C.wvd.zip'

# Sector 98, program filename = 'OP5D070A'
0010 REM .     OP5D070A,  00-00 (6/28/75),   12002
0100 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
   : 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
0200 BIN(A$(3,I))=X3
   : BIN(A$(4,I))=X4
   : BIN(A$(5,I))=X5
   : NEXT I
   : INIT(00)F$()
   : INIT(01)W1$()
   : INIT(20)B$()
0270 MAT MERGEA$()TO W1$(),W2$(),B$()
   : P1=P1+1
   : IF B$(1)=HEX(0000)THEN 320
   : GOSUB '50
   : GOTO 270
0320 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))
   : ADDC(X$,G$(2,1))
   : ADDC(X$,G$(3,5))
   : ADDC(X$,G$(4,3))
   : IF X$=HEX(000000C2)THEN 460
   : E(8)=E(8)+1
   : PRINT TAB(40);E(8);"ERRORS"
0440 E9$(P9)="NG"
   : LOAD DC T#6,"OP5D080A"
0460 PRINT "O.K."
   : LOAD DC T#6,"OP5D080A"
0480 DEFFN'0
   : SELECT PRINT 215(130)
   : PRINT "PASS #";P1
   : PRINT "W1$() = "
   : HEXPRINT W1$()
   : PRINT "B$() ="
   : HEXPRINT B$()
   : PRINT "F$() ="
   : HEXPRINT F$()
   : SELECT PRINT 005(64)
   : RETURN
0590 DEFFN'50
   : K=1
0610 IF B$(K)=HEX(0000)THEN 660
   : L=L+1
   : F$(L)=B$(K)
   : K=K+1
   : GOTO 610
0660 RETURN
0670 DEFFN'1
   : PRINT "G$() = MERGED DATA ="
   : HEXPRINT G$()
   : RETURN
0710 DEFFN'2
   : PRINT "A$() = "
   : HEXPRINT A$()
   : RETURN
0750 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"