Source:Freespace-Filedump

From Eamon Wiki
Jump to navigation Jump to search
This page is a verbatim reproduction of original source material and should not be edited except for maintenance.
Description

The Applesoft BASIC source code of the Eamon utility program Freespace/Filedump

Source

EAG Utilities Disk

Date

9 October 1984

Author

John Nelson

License

The use of this item is permitted on the grounds that it's free or in the public domain.

5  HOME : VTAB 5
10  PRINT "MODIFIES DOS TO GIVE FREE SPACE=XXX AT  CATALOG, AND INSTALLS FILEDUMP, WHICH   REPLACES MAXFILES, AS A COMMAND WHICH   PRINTS TEXT FILES:FILEDUMP FILENAME,SX,DX"
15  PRINT : PRINT "USE ON STANDARD DOS 3.3 ONLY!!!": PRINT : PRINT 
20  PRINT : INPUT "DO YOU WANT BOTH (Y/N) ?";B$: IF B$ = "Y" THEN FS$ = "Y":FD$ = "Y": GOTO 90
30  INPUT "DO YOU WANT FILEDUMP (Y/N) ?";FD$: IF FD$ = "Y" THEN 90
40  INPUT "DO YOU WANT FREE SPACE (Y/N) ?";FS$
90  IF FS$ = "Y" THEN  PRINT "    INSTALLING FREE SPACE"
100  IF FS$ = "Y" THEN HEX$ = "BA69:A0 C8 18 B9 F2 B3 F0 0E 0A 90 FB 48 E6 40 D0 02 E6 41 68 18 90 F0 88 D0 E9 A6 40 A5 41 AC 06 E0 D0 03 4C 24 ED 4C 1B E5 N D7D2G": GOSUB 130: CALL  - 144
110  IF FS$ = "Y" THEN HEX$ = "B3AF:BD C5 C3 C1 D0 D3 A0 C5 C5 D2 C6 A0 N ADB9:EA A9 00 85 40 85 41 20 69 BA N D7D2G": GOSUB 130: CALL  - 144
119  IF FD$ = "Y" THEN  PRINT "    INSTALLING FILEDUMP"
120  IF FD$ = "Y" THEN HEX$ = "BCDF:20 8E FD 20 A3 A2 20 8C A6 F0 05 20 ED FD D0 F6 20 FC A2 60 N A8E7:46 49 4C 45 44 55 4D D0 N 9D48:DE BC N A933:20 30 N D9C6G": GOSUB 130: CALL  - 144
125  END 
130  FOR I = 1 TO  LEN (HEX$): POKE 511 + I, ASC ( MID$ (HEX$,I,1)) + 128: NEXT : POKE 72,0: RETURN