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