Listing of file='609MERGE' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2662, program filename = '609MERGE'
2000 REM %^ '609MERGE' - SECONDARY DOCUMENT ACCESS ROUTINE
2009 DIM C9$(246)1,D2$(3)82,D4$1,C0(5)
2010 DEFFN'100(C0(5))
: D4$=R1$
: D8=D8+1
: IF C0(4)<>0THEN 2024
: GOSUB '220(A2,1,1,1,1)
: D2$()=V1$()
: C0(4)=VAL(STR(D2$(),15,2),2)-1
: GOSUB 2074
2024 IF C0(3)=2THEN 2070
: IF C0(2)=1THEN 2070
: C1(1)=POS(STR(C9$(),C0(1))=7F)
: IF C1(1)=0THEN C1(1)=9999
: ELSE C1(1)=C1(1)+C0(1)
: C1(2)=POS(STR(C9$(),C0(1))=FF)
: IF C1(2)=0THEN C1(2)=9999
: ELSE C1(2)=C1(2)+C0(1)
: C1(3)=POS(C9$()=00)
: IF C1(3)=0THEN C1(3)=9999
: ELSE C1(3)=C1(3)+C0(1)
: C1(4)=MIN(C1(1),C1(2),C1(3),247)-1
2040 IF C1(4)+1=C1(2)THEN C0(2)=1
: J8=C1(4)-C0(1)
: IF C1(4)=246AND MIN(C1(1),C1(2),C1(3))-1<>246THEN 2048
: IF C1(4)+1<>C1(3)THEN 2053
2048 J9=POS(D$()=00)-D8
: J8=J8+1
: IF POS(STR(C9$(),C0(1),J8)=00)>0THEN J8=POS(STR(C9$(),C0(1))=00)-1
: IF J9>0THEN MAT COPY -STR(D$(),D8,J9)TO -STR(D$(),D8+1,J9)
: IF C0(5)=0THEN STR(D$(),D8,1)=HEX(7F)
: IF C0(5)=1THEN STR(D$(),D8,1)=HEX(FF)
2053 IF C0(5)=1THEN 2065
: J=POS(D$()=00)-D8
: IF J>0THEN MAT COPY -STR(D$(),D8,J)TO -STR(D$(),D8+J8,J)
: IF J8>0THEN STR(D$(),D8,J8)=STR(C9$(),C0(1),J8)
: J9=POS(STR(D$(),D8)=00)
: STR(D$(),1,J9)=STR(D$(),D8,J9)&ALL(00)
: STR(D$(),J9+1)=ALL(00)
: D8=1
2065 C0(1)=C0(1)+J8+1
: IF C0(1)<247AND C9$(C0(1))<>HEX(00)THEN 2070
: GOSUB 2074
2070 R1$=D4$
: RETURN
2074 C9$()=ALL(00)
: C0(4)=C0(4)+1
: GOSUB '220(A2,1,C0(4),1,1)
: IF R1$=HEX(25)THEN 2086
: C9$()=STR(V1$(),,LEN(V1$()))&ALL(00)
: $TRAN(C9$(),HEX(868F))R
: IF POS(C9$()=00)>0THEN IF C9$(POS(C9$()=00)-1)=HEX(86)THEN C9$(POS(C9$()=
00)-1)=HEX(00)
: IF STR(C9$(),,1)=HEX(86)THEN C0(1)=POS(C9$()=83)+1
: ELSE C0(1)=1
: RETURN
2086 C0(3)=2
: RETURN