image of READY prompt

Wang2200.org

Listing of file='609MERGE' on disk='vmedia/701-2738G.wvd.zip'

# Sector sector 254, 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