Source:Freespace-Filedump
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 | |
| Date |
9 October 1984 |
| Author | |
| 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