Listing of file='609adfil' on disk='vmedia/731-0071G.wvd.zip'
# Sector 50, program filename = '609adfil'
0010 REM '609adfil' - MENU MODULE FOR ADVANCED FILING (08/17/90) KKB
0030 COM D1,C4$5,D2
: COM S5(2),S0(2),T5(2),S3(2)
: COM T1$(10)80,S1$(10)2
: COM T1(5),S6(5),S1(5),T2$(5)80
: COM T2(2),S7(2),S2(2),S4(2),T5$(2)30
: COM S2$(10)2
: COM S1$5
: COM S2$1,T1$80,T2$2,S0,S4,S5,S6,S7,S9,T0,T2,T3,T5,T6,T7
: A5$()="609FG080609FG190Prime 62"
: J7$=B4$
: 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)=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>1THEN 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)
: ERRORGOTO 600
0590 IF D(3)=2AND D(2)-D1+1=1233THEN 630
0600 GOSUB 2605
: PRINT AT(23,0,);B2$;HEX(07);
: GOTO 490
0630 ON T5(1)GOTO 660,680,686,700,720,740
: GOTO 750
0660 A5$()="609AC100"
: GOTO 1110
0680 A5$()="609AF100"
: GOTO 1110
0686 A5$()="609AS100"
: GOTO 1110
0700 A5$()="609AR100"
: GOTO 1110
0720 A5$()="609ACOPY"
: GOTO 1110
0740 A5$()="609AMOVE"
: GOTO 1110
0750 STOP "NOT DONE"
: GOTO 10
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,"ADVANCED FILING"
: DATA 4,3,0,"Please select filing operation:"
: DATA 1,5,7,1,"Copy to Archive with Rename","File to Archive with Rename"
: DATA "File and Keep Summary","Retrieve from Archive with Rename"
2530 DATA "Copy Document between Libraries","Move Document between Libraries"
: DATA "\DE"
: DATA 4,10,46,"Archive Location : "
: DATA 2,10,65,1," "
: DATA 0
2565 DATA 4,0,0,"ADVANCED FILING"
: DATA 4,22,0,"Enter Archive Label : "
: DATA 2,22,22,5," "
: DATA 0
2585 B2$="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