image of READY prompt

Wang2200.org

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

# Sector 294, program filename = '609FG090'
0010 REM '609FG090' - RANGE INPUT MODULE
0012 COM D4,D5,D3
   : DIM S5(2),S0(2),S3(2)
   : DIM T1$(10)80,S1$(10)2
   : DIM T1(5),S6(5),S1(5),T2$(5)80
   : DIM T2(2),S7(2),S2(2),S4(2)
   : DIM S2$(10)2
   : DIM S1$5
   : DIM S2$1,T1$80,T2$2,S0,S4,S5,S6,S7,S9,T0,T2,T3,T5,C0,T7
   : PRINT HEX(06);AT(13,0,);
   : RESTORE LINE2510
   : GOSUB '61
0090 GOSUB '62
   : ON T5+1GOTO 105,120
   : GOSUB 2540
   : PRINT AT(23,0,);T1$;HEX(07);
   : GOTO 90
0105 LOAD T"609Fmenu"
0120 IF VER(STR(T5$(1),1,5),"####A")=5AND VER(STR(T5$(2),1,5),"####A")=5THEN 1
     60
0130 GOSUB 2545
   : PRINT AT(23,0,);T1$;HEX(07);
   : GOTO 90
0160 IF POS(" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=STR(T5$(1)
     ,5,1))>0THEN 200
   : GOSUB 2550
   : PRINT AT(23,0,);T1$;HEX(07);
   : GOTO 90
0200 IF STR(T5$(1),5,1)=STR(T5$(2),5,1)THEN 240
   : GOSUB 2555
   : PRINT AT(23,0,);T1$;HEX(07);
   : GOTO 90
0240 CONVERT STR(T5$(1),1,4)TO D4
   : ERRORGOTO 130
0250 CONVERT STR(T5$(2),1,4)TO D5
   : ERRORGOTO 130
0260 IF D4<D5THEN 310
   : GOSUB 2560
   : PRINT AT(23,0,);T1$;HEX(07);
   : GOTO 90
0310 D3=0
   : D(14)=1
   : B0$="DOCUMENT."&STR(T5$(1),5,1)&"."&STR(T5$(1),1,4)
   : D(15)=16
   : D(16)=20
   : D(17)=16
   : D(18)=-7
   : LOAD TA5$
2500 % DO NOT RENUMBER THE FOLLOWING
2510 DATA 3,0,0,"DOCUMENT FILING"
   : DATA 4,12,0,"Enter starting Document ID: "
   : DATA 4,13,0,"Enter ending Document ID: "
   : DATA 2,12,29,5," "
   : DATA 2,13,27,5," "
   : DATA 0
2540 T1$="Invalid Key"
   : RETURN
2545 T1$="Invalid Document Id"
   : RETURN
2550 T1$="Invalid Library"
   : RETURN
2555 T1$="Starting and Ending Document must be in same Library"
   : RETURN
2560 T1$="Starting Document Must Be Less Than Ending Document"
   : RETURN