image of READY prompt

Wang2200.org

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