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"