Listing of file='609FG090' on disk='vmedia/701-2738G.wvd.zip'
# Sector 854, 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