Listing of file='609MERG0' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2319, program filename = '609MERG0'
0010 REM %^ '609MERG0' - INPUT MODULE FOR DOCUMENT MERGE
0020 A5$()="Prime 62609Open CAT.VLISCAT.FO/CCAT.PRIMCAT.OPENCAT.RD CAT.LISTRE
C.PRIMREC.RD "
: LOAD T<10>A5$()9999,9999BEG 30
0030 COM A5,V0$(3)82,A5,U1$(8),U2$(8)4,T5$(3)5,T5(3),C9
: DIM V1$(3)82
: DIM S5(3),S0(3),T5(3),S3(3)
: DIM T1$(7)80,S1$(7)2
: DIM T1(9),S6(9),S1(9),T2$(9)80
: DIM T2(3),S7(3),S2(3),S4(3),T5$(3)5
: DIM S2$(11)2,S1$6,S2$1,T1$80,T2$2,S0,S4,S5,S6,S7,S9,T0,T2,T3,T5,C0,T7
0100 DIM C0$25,C1$25,C2$25,C3$80,J5$5,J7$6
: A5=1
: IF J7$=" "AND B4$<>" "THEN J7$=B4$
: A1,A2,A3=-1
: PRINT HEX(03)
: RESTORE
: GOSUB '61
: T5$(1)=R5$
: T5$(3)=B5$
0190 GOSUB '62
: ON T5+1GOTO 1010,230
: GOTO 190
0230 IF T5$(1)<>T5$(2)THEN 280
: B2$="Primary and Secondary document must be different"
0250 PRINT AT(23,0,);B2$;HEX(07);
: GOTO 190
0280 GOSUB '110(T5$(1),"D")
0290 IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF B2$=" "THEN A1=V3
: B4$=J7$
: IF B2$=" "THEN R5$=T5$(1)
: IF B2$=" "THEN 380
: IF R1$<>HEX(05)THEN 330
: J5$=T5$(1)
: GOSUB '90
: B2$=" "
: IF D5$=HEX(F0)THEN B4$=J7$
: IF D5$=HEX(F0)THEN 1010
: GOTO 290
0330 C3$=B2$
: B2$="Primary Document : "&C3$
: GOSUB 930
: GOTO 250
0380 GOSUB '220(A1,1,1,1,1)
: GOSUB '220(A1,1,VAL(STR(V1$(),3),2),1,1)
: C0$=STR(V1$(),,25)
: $TRAN(C0$,HEX(8020))R
0430 GOSUB '110(T5$(2),"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF B2$=" "THEN A2=V3
: B4$=J7$
: IF B2$=" "THEN 502
: IF R1$<>HEX(05)THEN 470
: J5$=T5$(2)
: GOSUB '90
: B2$=" "
: IF D5$=HEX(F0)THEN B4$=J7$
: IF D5$=HEX(F0)THEN 1010
: GOTO 430
0470 C3$=B2$
: B2$="Secondary Document : "&C3$
: GOSUB 930
: GOTO 250
0501 %REM CK FOR NUMBER OF SETS
0502 IF T5(1)=1THEN C9=-1
: ELSE C9=-2
: GOSUB '220(A2,1,1,1,1)
: GOSUB '220(A2,1,VAL(STR(V1$(),3),2),1,1)
: C1$=STR(V1$(),,25)
: $TRAN(C1$,HEX(8020))R
: STR(C3$,,5)="0000"&STR(T5$(3),,1)
: GOSUB '110(STR(C3$,,5),"D")
: IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF B2$=" "THEN A3=V3
: IF B2$=" "THEN 670
: C3$=B2$
0630 B2$="Creation Library : "&C3$
: GOSUB 930
: GOTO 250
0670 PRINT AT(8,42);T5$(1);AT(8,49);C0$;
: PRINT AT(9,42);T5$(2);AT(9,49);C1$;
: PRINT AT(11,42);T5$(3);
: PRINT AT(12,0,);
: PRINT AT(12,17);"Creating Document : ";
: PRINT AT(12,42);"NEXT";STR(T5$(3),,1);
: C2$=STR(T5$(1),,5)&" merged with "&STR(T5$(2),,5)
: $TRAN(C2$,HEX(8020))R
: PRINT AT(12,49);C2$;
0760 PRINT AT(14,17);"Pages written : ";AT(14,41);0
: PRINT AT(23,0,);B5$(2);"Press EXECUTE to Continue";B5$(1);HEX(07);
0790 KEYIN C$
: ON POS(HEX(0D82F0)=C$)+1GOTO 790,870,870
: GOSUB 930
: PRINT AT(8,42);B5$(2);T5$(1);B5$(1);AT(8,49,25);
: PRINT AT(9,42);B5$(2);T5$(2);B5$(1);AT(9,49,25);
: PRINT AT(11,42,);B5$(2);T5$(3);B5$(1);
: GOTO 190
0870 GOSUB '212(A3)
: A3=-1
: PRINT AT(23,0,);
: R5$=T5$(1)
: B5$=T5$(3)
: A5$()="609MERG1609Open JCATSMALREC-GEN"
: LOAD T<4>A5$()
0930 IF A1<>-1THEN GOSUB '212(A1)
: A1=-1
: IF A2<>-1THEN GOSUB '212(A2)
: A2=-1
: IF A3<>-1THEN GOSUB '212(A3)
: A3=-1
: RETURN
1010 DEFFN'31
: COM CLEAR U1$()
: A5$()="609CloseJCAT"
: LOAD T<2>A5$()
2500 % TEXT ISOLATION
2510 DATA 4,0,0,"D O C U M E N T M E R G E"
: DATA 4,4,0,"Press EXECUTE to Continue"
: DATA 4,5,0,"Please answer all questions"
: DATA 4,8,17,"Primary Document ID : "
: DATA 2,8,42,5," "
: DATA 4,9,17,"Secondary Document ID : "
: DATA 2,9,42,5," "
: DATA 4,11,17,"Creation Library : "
2590 DATA 2,11,42,1," "
: DATA 4,14,17,"Test Option : "
: DATA 1,15,17,1,"Merge all sets","Merge first two sets","\DE"
: DATA 4,14,42,"Output Option : "
: DATA 1,15,42,1,"All in one document","Separate documents","\DE"
: DATA 0
: DATA 4,14,5,"Test Option : "
2660 DATA 1,15,5,1,"Merge all sets","Merge first two sets","\DE"
: DATA 4,14,32,"Output Option : "
: DATA 1,15,32,1,"All in one document","Separate documents","\DE"
: DATA 4,14,60,"Merge Option : "
: DATA 1,15,60,1,"by Sequence","by Field Number","by Field Name","\DE"
: DATA 0
: DIM D(25)
2760 DEFFN'90
: PRINT AT(23,0,);"Enter Document ";J5$;" Password ";HEX(858585858585);AT(2
3,40);"Password Protected";HEX(07);AT(23,29);HEX(0509);
2780 KEYIN D5$,2780,2780
: D(6)=0
: B4$=" "
2810 KEYIN D5$,2820,2820
: GOTO 2810
2820 PRINT HEX(06);AT(23,40,);
: ON POS(HEX(0D82F0)=D5$)GOTO 2900,2900,2920
: IF VER(D5$,"N")=1THEN 2870
: PRINT AT(23,40);"Invalid Character";HEX(07);
: GOTO 2810
2870 D(6)=D(6)+1
: STR(B4$,D(6),1)=D5$
: IF D(6)<6THEN 2810
2900 PRINT AT(23,0,);
: RETURN
2920 PRINT AT(23,0,);
: B4$=" "
: RETURN