image of READY prompt

Wang2200.org

Listing of file='609MERG0' on disk='vmedia/731-0067G.wvd.zip'

# Sector 2294, 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