Listing of file='609MERG1' on disk='vmedia/731-0067G.wvd.zip'
# Sector 2315, program filename = '609MERG1'
0010 REM %^ '609MERG1' - 1ST EXECUTION MODULE FOR DOCUMENT MERGE
0030 RESTORE LINE550
: COM C$(3)82,C0$(3)83,C1$(3)83,C2$(3)82,C3$(123)2,C4$(123)2,C5$(3)82
: COM C2,D2,D3,D4,D5,D6,D7,D8,D9,J0,J1,J2,J3,J4,J5,J6,J7,J8,J9
: COM V1$(3)82,V0$(3)82,V4$1
: J1,J2=0
: GOSUB '220(A1,1,1,1,1)
: C4$()=V1$()
: GOSUB '220(A1,1,VAL(STR(C4$(),3),2),1,1)
0370 $UNPACK(F=HEX(A019A0066006A002A001))V1$()TO A6$(),A7$(),A0(),A8$(),A9$()
: GOSUB 2510
: A6$(1)=B2$
: GOSUB 2520
: A6$(2)=B2$
: A7$()=ALL("0")
: A7$(1)=R5$
: A7$(2)=STR(R2$,,6)
: A7$(12)=" "
: MAT A0=ZER
: $PACK(F=HEX(A019A0066006A002A001))C$()FROMA6$(),A7$(),A0(),A8$(),A9$()
: D4=0
: GOSUB '220(A2,1,1,1,1)
: J1=V0
0500 J6=VAL(STR(V1$(),15),2)-1
: GOSUB 1180
: J9=POS(C1$()=83)+1
0550 $OPEN #0
: D6=POS("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=T5$(3))
: DATA LOAD DA T(B3+D6)A0$()
: CONVERT STR(A0$(),10,4)TO D7
: STR(R5$,5)=T5$(3)
0610 CONVERT D7TO STR(R5$,,4),(####)
: GOSUB '110(R5$,"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF R1$=HEX(03)THEN 720
: IF POS(HEX(0506)=R1$)>0THEN 690
: IF R1$<>HEX(00)THEN 2530
: GOSUB '212(V3)
: IF R1$<>HEX(00)THEN 2540
0690 D7=MAX(1,MOD(D7+1,10000))
: GOTO 610
0720 CONVERT MAX(1,MOD(D7+1,10000))TO STR(A0$(),10,4),(####)
: DATA SAVE DA T(B3+D6)A0$()
: $CLOSE
: STR(C$(),101,5),A7$(1)=R5$
: GOSUB '210(B0$,B9$,B4$)
: IF R1$<>HEX(00)THEN 2550
: PRINT AT(12,42);R5$;
: GOSUB '211(B0$,B9$,B4$,HEX(FF))
: IF R1$<>HEX(00)THEN 2530
: A3=V3
: $PACK(F=HEX(A019A005A009))U1$()FROMA6$(),STR(R5$,,5),HEX(0000000000000031
30)
0870 GOSUB '235(A3,U1$())
: J7=0
: C3$(),V1$()=HEX(00010002000000000000000000000003)&ALL(FF)
: V4$="P"
: GOSUB 1260
: V1$()=C$()
: V4$="A"
: GOSUB 1260
: GOSUB '51(4)
: GOSUB '51(5)
: GOSUB '51(7)
: J4=7
: A5$()="609MERG2JCATSMALREC-GEN"
: LOAD T<3>A5$()
1100 J5=J5+1
: GOSUB '220(A1,1,J5,1,1)
: IF POS(HEX(002825)=R1$)=0THEN 2560
: C0$()=V1$()
: J8=1
: IF R1$=HEX(25)THEN D3=1
: RETURN
1180 J6=J6+1
: GOSUB '220(A2,1,J6,1,1)
: IF POS(HEX(002825)=R1$)=0THEN 2570
: C1$()=V1$()
: J9=1
: IF R1$=HEX(25)THEN D4=1
: RETURN
1260 J7=J7+1
: V0$()=V1$()
: $TRAN(V0$(),HEX(3F013F023F033F043F053F063F073F083F093F0A3F0B3F0C3F0D3F0E3
F0F))R
: PRINT AT(19,0,);STR(V0$(),,246);
: GOSUB '225(A3,1,1,1)
: IF R1$<>HEX(00)THEN 2580
: RETURN
1320 DEFFN'51(C)
: IF C4$(C)=HEX(0000)THEN RETURN
: J0=C
1350 J0=J0+1
: IF C4$(J0)=HEX(0000)THEN 1350
: C3$(C)=BIN(J7+1,2)
: FOR J3=VAL(C4$(C),2)TO VAL(C4$(J0),2)-1
: J5=J3-1
: GOSUB 1100
: V1$()=C0$()
: GOSUB 1260
: NEXT J3
: RETURN
1450 DEFFN'31
: $CLOSE
: COM CLEAR U1$()
: A5$()="609CloseJCAT"
: LOAD T<2>A5$()
2500 % TEXT ISOLATION
2510 B2$=STR(T5$(1),,5)&" merged with "&STR(T5$(2),,5)
: RETURN
2520 B2$="Document Merge"
: RETURN
2530 B2$="Open"
: GOTO 2590
2540 B2$="Close"
: GOTO 2590
2550 B2$="Create"
: GOTO 2590
2560 B2$="Reading Primary"
: GOTO 2610
2570 B2$="Reading Secondary"
: GOTO 2610
2580 B2$="Adding to New"
: GOTO 2610
2590 PRINT AT(23,0,);B5$(2);"Error trying to ";B2$;" document ";R5$;
: GOTO 2620
2610 PRINT AT(23,0,);B5$(2);"Error ";B2$;" document";
2620 PRINT " = ";
: ON VAL(R1$)GOTO 2660,,,2670
: IF R1$>HEX(29)THEN CONVERT VAL(R1$)TO STR(B2$,,2),(##)
: ELSE HEXUNPACKR1$TO STR(B2$,,2)
: GOTO 2690
2660 B2$="Volume Full"
: GOTO 2690
2670 B2$="No Free Slots"
: GOTO 2690
2680 PRINT AT(23,0,);
2690 PRINT B2$;TAB(60);"Press CANCEL";B5$(1);HEX(07);
2700 KEYIN C$
: IF C$<>HEX(F0)THEN 2700
: IF A3<>-1THEN GOSUB '214(A3)
: A3=-1
: GOSUB '31