Listing of file='609Fmenu' on disk='vmedia/731-0067F-disk2.wvd.zip'
# Sector 418, program filename = '609Fmenu'
0010 REM '609Fmenu' - MENU MODULE FOR DOCUMENT FILING (12/17/80)
0020 COM D1,D2
: A1=-1
: 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
: J7$=B4$
: A5$()="609FG080609FG190Prime 62"
: LOAD T<3>A5$()3000,BEG 50
0050 IF D(7)=1THEN GOSUB '51
0055 DEFFN'31
: D$(2)=D$(1)
0090 PRINT HEX(03)
: RESTORE LINE2510
: T5(1),T5(2)=1
: GOSUB '61
0140 T5$()=B6$
0150 GOSUB '62
: ON T5+1GOTO 180,210
: GOSUB 2585
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 150
0180 COM CLEAR C
: LOAD T"609menu"
0210 IF T5(1)=4THEN 630
: D$(2)=T5$()
: S7=POS(" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"=D$(2))
: IF S7>0THEN 290
: GOSUB 2590
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 140
0290 DATA LOAD DA T#0,(B3+S7-1)A0$()
: D$(3)=STR(A0$(),136,1)
: IF D$(3)<>" "THEN 350
: GOSUB 2595
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 140
0350 B6$=D$(2)
: SELECT #D(9)<STR(A0$(),133,3)>
: ERRORGOSUB 2597
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 140
0380 D1=0
: D0$="0000"&D$(2)
: IF D$(3)<>"1"THEN 630
: IF T5(1)=6THEN 630
: RESTORE LINE2565
: GOSUB '61
: T5$()=D0$
0490 GOSUB '62
: D0$=T5$()
: ON T5+1GOTO 90,540
: GOSUB 2585
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 490
0540 IF VER(D0$,"####A")=5THEN 580
: GOSUB 2600
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 490
0580 LIMITS T#D(9),D0$,D1,D(2),S0,D(3)
: ERRORGOSUB 2605
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 490
0590 IF D(3)=2AND D(2)-D1+1=1233THEN 630
: GOSUB 2605
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 490
0630 ON T5(1)GOTO 660,680,700,720,740,1080
: GOTO 750
0660 ON T5(2)GOTO 780,810
0680 ON T5(2)GOTO 840,870
0700 ON T5(2)GOTO 900,930
0720 ON T5(2)GOTO 960,990
0740 ON T5(2)GOTO 1020,1050
0750 STOP "NOT DONE"
: GOTO 20
0780 A5$()="609FC100"
: GOTO 1110
0810 A5$()="609FC200"
: GOTO 1110
0840 A5$()="609FF100"
: GOTO 1110
0870 A5$()="609FF200"
: GOTO 1110
0900 A5$()="609FR100"
: GOTO 1110
0930 A5$()="609FR200"
: GOTO 1110
0960 A5$()="609FD100"
: GOTO 1110
0990 A5$()="609FD200"
: GOTO 1110
1020 A5$()="609FA100"
: GOTO 1110
1050 A5$()="609FA200"
: GOTO 1110
1080 A5$()="609Fprep"
: GOTO 1110
1110 B2$=" "
: J$=HEX(0D)
: A5$=A5$(1)
: D2=0
: D(14)=1
: R1$=HEX(00)
: LOAD T<1>A5$()
2500 % THE FOLLOWING MUST NOT BE RENUMBERED
2510 DATA 4,0,0,"DOCUMENT FILING"
: DATA 4,3,0,"Please select filing operation:"
: DATA 1,5,10,1,"Copy to Archive","File to Archive"
: DATA "Retrieve from Archive","Delete from Library"
: DATA "Delete from Archive","Prepare New Archive"
: DATA "\DE"
: DATA 1,5,52,1,"Single","Range","\DE"
2545 DATA 4,9,46,"Archive Location : "
: DATA 2,9,65,1," "
: DATA 0
2565 DATA 4,0,0,"DOCUMENT FILING"
: DATA 4,22,0,"Enter Archive Label : "
: DATA 2,22,22,5," "
: DATA 0
2585 F$="Invalid Key"
: RETURN
2590 B2$="Invalid Archive Location"
: RETURN
2595 B2$="Archive Not Assigned"
: RETURN
2597 B2$="Invalid Archive Device Assigned"
: RETURN
2600 B2$="Invalid Archive Label"
: RETURN
2605 B2$="Archive Does Not Exist"
: RETURN