Listing of file='609PMRG0' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2700, program filename = '609PMRG0'
0010 REM %^ '609PMRG0' - INPUT DOCUMENT ID'S
0030 COM A5,V0$(1)2,U1$(8),U2$(8)4,C1$1,Y5$,C9,D4
: DIM S5(2),S0(2),T5(2),S3(2)
: DIM T1$(4)80,S1$(4)2
: DIM T1(6),S6(6),S1(6),T2$(6)80
: DIM T2(3),S7(3),S2(3),S4(3),T5$(3)5
: DIM S2$(15)2,S1$4,S2$1,T1$80,T2$2,S0,S4,S5,S6,S7,S9,T0,T2,T5,C0,T7,J5$5,J
7$6
0110 A5=1
: IF J7$=" "AND B4$<>" "THEN J7$=B4$
: C1$="L"
: Y5$="609MERGE"
: A1,A2=-1
: PRINT HEX(03)
: GOSUB '61
: T5$(1)=R5$
0180 GOSUB '62
: ON T5+1GOTO 620,220
: GOTO 180
0220 IF T5$(1)<>T5$(2)THEN 270
: GOSUB 2100
0240 PRINT AT(23,0,);B2$;HEX(07);
: GOTO 180
0270 GOSUB '110(T5$(1),"D")
0275 IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF B2$=" "THEN A1=V3
: B4$=J7$
: IF B2$=" "THEN 350
: IF R1$<>HEX(05)THEN 300
: J5$=T5$(1)
: GOSUB '90
: B2$=" "
: IF D5$=HEX(F0)THEN B4$=J7$
: IF D5$=HEX(F0)THEN 620
: GOTO 275
0300 T1$=B2$
: GOSUB 2110
: GOSUB 560
: GOTO 240
0350 GOSUB '110(T5$(2),"D")
0355 IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF))
: IF B2$=" "THEN A2=V3
: B4$=J7$
: IF B2$=" "THEN 430
: IF R1$<>HEX(05)THEN 380
: J5$=T5$(2)
: GOSUB '90
: B2$=" "
: IF D5$=HEX(F0)THEN B4$=J7$
: IF D5$=HEX(F0)THEN 620
: GOTO 355
0380 T1$=B2$
: GOSUB 2120
: GOSUB 560
: GOTO 240
0430 IF T5(1)=1THEN D4=-1
: ELSE D4=-2
: IF T5(2)=2THEN C9=1
: R5$=T5$(1)
: C=5
: A5$()="609POPT0"&"609POPTA"&"Prime 62"&"REC-GEN"&" REC-RD"
: IF C9=0THEN 540
: C=C+1
: A5$(C)="609POPTC"
0540 LOAD T<C>A5$()
0560 IF A1<>-1THEN GOSUB '212(A1)
: A1=-1
: IF A2<>-1THEN GOSUB '212(A2)
: A2=-1
: RETURN
0620 DEFFN'31
: GOSUB 560
: COM CLEAR C
: LOAD TA5$
2000 % LANGUAGE ISOLATION
2010 DATA 4,0,0,"M E R G E P R I N T"
: DATA 4,3,0,"Press EXECUTE to Continue"
: DATA 4,4,0,"Please answer all questions"
: DATA 4,7,25,"Primary Document ID : "
: DATA 2,7,49,5," "
: DATA 4,8,25,"Secondary Document ID : "
: DATA 2,8,49,5," "
2080 DATA 1,10,25,1,"Merge all sets","Merge first two sets","\DE"
: DATA 1,20,50,1,"Immediate Print","Queue Print Request","\DE"
: DATA 0
2100 B2$="Primary and Secondary Documents must be different"
: RETURN
2110 B2$="Primary Document : "&T1$
: RETURN
2120 B2$="Secondary Document : "&T1$
: RETURN
2130 B2$="Invalid Character"
: RETURN
2755 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
: GOSUB 2130
: PRINT AT(23,40);B2$;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