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