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"