image of READY prompt

Wang2200.org

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

# Sector 368, program filename = 'OP5D090A'
0010 REM .   OP5D090A,   00-00 (06/28/75),   12002
   : PRINT "MAT MERGE DIAGNOSTIC #3 (COMATF10)..";
   : 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$(5,I))=X3
0190 BIN(A$(4,I))=X4
   : BIN(A$(3,I))=X5
   : NEXT I
   : INIT(00)F$()
   : DIM Y$6
   : Y$=HEX(050403020101)
   : FOR I=1TO 5
   : W1$(I)=STR(Y$,I,1)
   : NEXT I
0250 MAT MERGEA$()TO W1$(),W2$(),B$()
   : P1=P1+1
   : IF B$(1)=HEX(0000)THEN 300
   : GOSUB '50
   : GOTO 250
0300 MAT MOVE A$(),F$(1)TO G$(1,1)
   : DIM X$4
   : INIT(00)X$
0340 ADDC(X$,G$(1,1))
   : ADDC(X$,G$(3,1))
   : ADDC(X$,G$(1,5))
   : ADDC(X$,G$(2,1))
   : ADDC(X$,G$(3,5))
   : ADDC(X$,G$(3,3))
   : IF X$=HEX(00000127)THEN 390
   : E(4)=E(4)+1
   : PRINT TAB(40);E(4);"ERRORS"
0380 LOAD DC T"OP5D100A"
0390 PRINT "O.K."
   : LOAD DC T"OP5D100A"
0400 DEFFN'0
   : SELECT PRINT 215(130)
   : PRINT "PASS #";P1
0430 PRINT "W1$() = "
   : HEXPRINT W1$()
   : PRINT "B$() ="
   : HEXPRINT B$()
   : PRINT "F$() ="
   : HEXPRINT F$()
   : SELECT PRINT 005(64)
   : RETURN
0510 DEFFN'50
   : K=1
0530 IF B$(K)=HEX(0000)THEN 580
   : L=L+1
   : F$(L)=B$(K)
   : K=K+1
   : GOTO 530
0580 RETURN
0590 DEFFN'1
   : PRINT "G$() = MERGED DATA ="
   : HEXPRINT G$()
   : RETURN
0630 DEFFN'2
   : PRINT "A$() = "
   : HEXPRINT A$()
   : RETURN
0660 DEFFN'15
   : LOAD DC T"START"50