Listing of file='609PRNEW' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2543, program filename = '609PRNEW' 0010 REM 609PRNEW 0020 COM C1$1,C9 : C1$="L" : DIM S6,S7(1),S2(1),T2(1),S4(1),T5$(1)5 : DIM S5(1),S0(1),T5(1),S3(1),T1$(2)80 : DIM S5,S6(2),S1(2),T1(2),T2$(2)25 : DIM T1$122 : DIM S1$3,S1$(2)2,S2$(5)2,S2$1,T2$2 : IF A3$="609PR004"THEN RESTORE LINE2070 : ELSE RESTORE LINE2010 : GOSUB '61 : T5$(1)=R5$ 0060 S1$="TO" : IF R5$<>" "THEN 70 : STR(R5$,5,1)=B5$ : T5$(1)=R5$ 0070 A1=-1 0080 GOSUB '62 : IF T5=0THEN 120 : IF T5=1THEN 100 : GOSUB 2110 0090 PRINT AT(23,40,40);B2$;HEX(07); : GOTO 80 0100 IF T5(1)=2THEN C9=1 : GOSUB '110(T5$(1),"D") : IF B2$=" "THEN GOSUB '111(B0$,B9$,B4$,HEX(FF)) : IF B2$<>" "THEN 90 : R5$=T5$(1) : A1=V3 : LOAD TA3$ 0120 IF Y5$<>" "THEN 121 : COM CLEAR C : LOAD T"609menu" 0121 A5$=R3$() : R3$()=STR(R3$(),10) : LOAD TA5$ 0130 DEFFN'31 : A5$()="609CloseJCAT" : COM CLEAR U1$() : IF A1>-1THEN LOAD T<2>A5$() : COM CLEAR C : LOAD TA5$ 2010 DATA 4,0,0,HEX(09) : DATA 4,20,0,"Please enter document ID:" : DATA 2,20,26,5," " : DATA 1,20,50,1,"Immediate Print","Queue Print Request","\DE" : DATA 0 2070 DATA 4,0,0,HEX(09) : DATA 4,20,0,"Please enter document ID:" : DATA 2,20,26,5," " : DATA 0 2110 B2$="Invalid Key - Ignored" : RETURN