Listing of file='OP5D040A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 363, program filename = 'OP5D040A'
0010 REM . OP5D040A, 00-00 (6/28/75), 12002
0100 DATA "ABCDEFGHIJKLMNO","ADGJMBEHKNCFILO"
: DATA "ABCDEABCDEABCDE","KLMNOFGHIJABCDE"
: DATA "ABBBCAABBCAAABC"
: DIM A$(3,5)1,W1$(4)1,W2$(3)2,S$(15)2,B$(16)1,Z$(1)15
: DIM S1$(3)2
: PRINT "MAT MERGE",
: FOR I=1TO 5
0170 READ Z$(1)
: MAT COPY Z$()TO A$()
: GOSUB '40
: NEXT I
: INIT("X")A$()
: GOSUB '40
: INIT(01)W1$()
: FOR I=1TO 4
: MAT MERGEA$()TO W1$(),W2$(),S$()
: IF I=4THEN 300
: IF W1$(I)<>HEX(FF)THEN 530
: IF VAL(W1$(4))<>ITHEN 530
: NEXT I
0300 IF S$(1)<>HEX(0000)THEN 530
: NEXT I
: INIT(01)W1$()
: MAT MERGEA$()TO W1$(),W2$(),S1$()
: IF W1$(1)<>HEX(04)THEN 530
: IF W1$(2)<>HEX(01)THEN 530
: IF W1$(3)<>HEX(01)THEN 530
: IF W1$(4)<>HEX(00)THEN 530
: RESTORE
: READ Z$(1)
: MAT COPY Z$()TO A$()
: W1$(1)=HEX(03)
0420 W1$(2)=HEX(04)
: W1$(3)=HEX(05)
: INIT(FF)B$()
: M=1
: GOSUB 620
: MAT COPY B$()TO Z$()
: IF STR(Z$(1),1,6)<>"CDEIJO"THEN 530
: IF B$(7)<>HEX(FF)THEN 530
: IF E(5)>0THEN 540
: PRINT "OK"
: GOTO 560
0530 E(5)=E(5)+1
0540 PRINT TAB(40);E(5);"ERRORS"
: E9$(P9)="NG"
0560 LOAD DC T#6,"OP5D050A"
0570 END
0580 DEFFN'40
: INIT(00)B$()
: M=1
: INIT(01)W1$()
0620 MAT MERGEA$()TO W1$(),W2$(),S$()
: N0=15
: MAT MOVE A$(),S$(1),N0TO B$(M)
: M=M+N0
: IF N0<>0THEN 620
: IF S$(1)<>HEX(0000)THEN 530
: FOR J=1TO 14
: IF B$(J)>B$(J+1)THEN 530
: NEXT J
: RETURN
0720 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"