image of READY prompt

Wang2200.org

Listing of file='609PRNEW' on disk='vmedia/701-2738G.wvd.zip'

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