Home » Archimedes archive » Micro User » MU 1991-12.adf » Listings » 8bitDisc/AlterFile
8bitDisc/AlterFile
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Micro User » MU 1991-12.adf » Listings |
| Filename: | 8bitDisc/AlterFile |
| Read OK: | ✔ |
| File size: | 0100 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > AlterFile
20HIMEM=TOP+&100
30F%=&B00:B%=&700
40REPEAT
50 INPUT"Name of file",$F%
60 Z%=OPENIN$F%:L%=EXT#Z%:CLOSE#Z%
70 OSCLI("LOAD "+$F%+" "+STR$~HIMEM)
80 INPUT"Load address &"l$
90 INPUT"Exec address &"e$
100 OSCLI("SAVE "+$F%+" "+STR$~HIMEM+"+"+STR$~L%+" "+STR$~EVAL("&"+e$)+" "+STR$~EVAL("&"+l$))
110 UNTIL FALSE
� > AlterFile
�=�P+&100
F%=&B00:B%=&700
(�
2 �"Name of file",$F%
< Z%=�$F%:L%=�#Z%:�#Z%
F �("LOAD "+$F%+" "+�~�)
P �"Load address &"l$
Z �"Exec address &"e$
dD �("SAVE "+$F%+" "+�~�+"+"+�~L%+" "+�~�("&"+e$)+" "+�~�("&"+l$))
n � �
� 00000000 0d 00 0a 11 f4 20 3e 20 41 6c 74 65 72 46 69 6c |..... > AlterFil|
00000010 65 0d 00 14 0d d3 3d b8 50 2b 26 31 30 30 0d 00 |e.....=.P+&100..|
00000020 1e 13 46 25 3d 26 42 30 30 3a 42 25 3d 26 37 30 |..F%=&B00:B%=&70|
00000030 30 0d 00 28 05 f5 0d 00 32 18 20 e8 22 4e 61 6d |0..(....2. ."Nam|
00000040 65 20 6f 66 20 66 69 6c 65 22 2c 24 46 25 0d 00 |e of file",$F%..|
00000050 3c 19 20 5a 25 3d 8e 24 46 25 3a 4c 25 3d a2 23 |<. Z%=.$F%:L%=.#|
00000060 5a 25 3a d9 23 5a 25 0d 00 46 1b 20 ff 28 22 4c |Z%:.#Z%..F. .("L|
00000070 4f 41 44 20 22 2b 24 46 25 2b 22 20 22 2b c3 7e |OAD "+$F%+" "+.~|
00000080 93 29 0d 00 50 18 20 e8 22 4c 6f 61 64 20 61 64 |.)..P. ."Load ad|
00000090 64 72 65 73 73 20 26 22 6c 24 0d 00 5a 18 20 e8 |dress &"l$..Z. .|
000000a0 22 45 78 65 63 20 61 64 64 72 65 73 73 20 26 22 |"Exec address &"|
000000b0 65 24 0d 00 64 44 20 ff 28 22 53 41 56 45 20 22 |e$..dD .("SAVE "|
000000c0 2b 24 46 25 2b 22 20 22 2b c3 7e 93 2b 22 2b 22 |+$F%+" "+.~.+"+"|
000000d0 2b c3 7e 4c 25 2b 22 20 22 2b c3 7e a0 28 22 26 |+.~L%+" "+.~.("&|
000000e0 22 2b 65 24 29 2b 22 20 22 2b c3 7e a0 28 22 26 |"+e$)+" "+.~.("&|
000000f0 22 2b 6c 24 29 29 0d 00 6e 08 20 fd 20 a3 0d ff |"+l$))..n. . ...|
00000100 
.