1TEXT
5POKE 17059, 7:POKE 17115, 21:POKE 17126, 29
6SPEED =140
10GOSUB 2000
12 d$=CHR$(4)
13TEXT
14?
15? "       ***MAIN MENU***"
16?
18?
19?
20? "   1)CATALOG"
22?
23? "   2)DELETE"
25?
26? "   3)LOADRUN"
28?
29? "   4)LOCK"
31?
32? "   5)RECOVER"
34?
35? "   6)RENAME"
37?
38? "   7)UNLOCK"
39?
40? "   8)QUIT"
41?
42?
43?
45INPUT " PLEASE CHOOSE AN OPTION "; x
46? CHR$(7)
50IF x=8 THEN GOTO 81
60ON x GOTO 100, 200, 300, 400, 500, 600, 700
70? " HIT ANY KEY TO CONTINUE"
75GET a$
76? CHR$(7)
80GOTO 12
81TEXT
82 z=100
83 z=RND(-z)
84DEF FN d(z)=INT(1+z*RND(1))
85FOR i=1 TO 18
86HTAB (FN d(74))
88? "BYE"
89NEXT
98SPEED =255
99TEXT:END
100TEXT
150? d$; "catalog"
175GOTO 70
200TEXT
210GOSUB 1000
225? " ARE YOU SURE":?
226INPUT "   Y OR N "; b$
227?:? CHR$(7)
230IF b$="n" OR b$="N" THEN GOTO 70
240FLASH
250? " DELETING "; a$
251? CHR$(7)
255NORMAL
257ONERR  GOTO 1500
260? d$; "delete "; a$; ""
265ONERR  GOTO 1500
275GOTO 70
300TEXT
325GOSUB 1000
330FLASH:? " LOADING FILE "; a$
331ONERR  GOTO 1500
340? CHR$(7):NORMAL
350? d$; "run "; a$; ""
365ONERR  GOTO 1500
400TEXT
425GOSUB 1000
430FLASH:? " LOCKING FILE "; a$
431? CHR$(7):NORMAL
450? d$; "lock "; a$; ""
465ONERR  GOTO 1500
475GOTO 70
500TEXT
525GOSUB 1000
530FLASH:? " SEARCHING FOR FILE "; a$
531? CHR$(7):NORMAL
532ONERR  GOTO 1500
550? d$; "recover "; a$; ""
565ONERR  GOTO 1500
575GOTO 70
600TEXT
625GOSUB 1000
640INPUT " PLEASE ENTER NEW FILE NAME "; c$
641? CHR$(7)
645FLASH:? " RENAMING FILE "; a$; " , "; c$
646? CHR$(7):NORMAL
650? d$; "rename "; a$; ","; c$; ""
665ONERR  GOTO 1500
675GOTO 70
700TEXT
725GOSUB 1000
730FLASH:? " UNLOCKING FILE "; a$
731? CHR$(7):NORMAL
732ONERR  GOTO 1500
750? d$; "unlock "; a$; ""
765ONERR  GOTO 1500
775GOTO 70
1000?
1001?
1010INPUT " PLEASE ENTER FILE NAME "; a$
1011?
1012?
1050RETURN
1500?
1550? "       ERROR SUBROTINUE"
1551?
1560? " You have committed an error"
1561?
1570? " Please return to main menu and 1)Catalog"
1571?
1580? " 1) Tried to delete a locked file."
1581?
1582? " 2) Or file doesn't exist"
1583?
1584? " 3) Tried to load a file that doesn't exist"
1585?
1586? " 4) tried to lock an already locked file"
1587?
1588? " 5) Tried to recover a file that doesn't exist"
1589?
1590? " 6) Invalid rename"
1591?
1592? " 7) Tried to unlock an already unlocked file"
1593?
1594? " 8) All of the above or a combination thereof  eg... Tried to lock a file that doesn't exist"
1595?:? " 9) Didn't choose an option":?
1596? " Give it another shot                Thanks Dean"
1598CLRERR
1599? " HIT ANY KEY TO CONTINUE":GET a$
1600GOTO 12
2000TEXT
2005?
2010? "        FILE MANAGEMENT"
2011?
2012?
2020? " Created for the ADAM"
2021HTAB 11:FLASH:? "on the ADAM":NORMAL
2025NORMAL
2026?
2027?
2028?
2030? " Purpose: used for cleaning up  messy data packs & general     file management"
2032?
2033?
2034?
2040? " Created by Dean J. Lamberti"
2050? " Laurel Maryland"
2060? " Tel#(301)725-1615"
2061?
2062?
2063?
2070? " HIT ANY KEY TO CONTINUE ":GET a$
2075? CHR$(7)
2080RETURN
