image of READY prompt

Wang2200.org

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