Home » Personal collection » Acorn hard disk » misc » misc3 » shipwren/Convert
shipwren/Convert
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 » Personal collection » Acorn hard disk » misc » misc3 |
| Filename: | shipwren/Convert |
| Read OK: | ✔ |
| File size: | 00FE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Archimedes » Unlabelled_disk_2.ADF » Convert
- Personal collection » Acorn hard disk » misc » misc3 » shipwren/Convert
File contents
10 DIMspace &2000, out &2000:offset=0 20 FORR=0TO&1FFF:?(space+R)=255:NEXT 30 OSCLI "LOAD +PTB1 "+STR$~space 40 FORR=0TO&1FFF:IF ?(space+R)<>255 THEN 50 IF ?(space+R)<>10 THEN ?(out+offset)=?(space+R):offset=offset+1 60 ENDIF 70 NEXT 80 OSCLI "SAVE +P1 "+STR$~out+" "+STR$~(out+offset)
% �space &2000, out &2000:offset=0
�R=0�&1FFF:?(space+R)=255:�
� "LOAD +PTB1 "+�~space
(# �R=0�&1FFF:� ?(space+R)<>255 �
2A � ?(space+R)<>10 � ?(out+offset)=?(space+R):offset=offset+1
< �
F �
P+ � "SAVE +P1 "+�~out+" "+�~(out+offset)
� 00000000 0d 00 0a 25 20 de 73 70 61 63 65 20 26 32 30 30 |...% .space &200| 00000010 30 2c 20 6f 75 74 20 26 32 30 30 30 3a 6f 66 66 |0, out &2000:off| 00000020 73 65 74 3d 30 0d 00 14 20 20 e3 52 3d 30 b8 26 |set=0... .R=0.&| 00000030 31 46 46 46 3a 3f 28 73 70 61 63 65 2b 52 29 3d |1FFF:?(space+R)=| 00000040 32 35 35 3a ed 0d 00 1e 1c 20 ff 20 22 4c 4f 41 |255:..... . "LOA| 00000050 44 20 2b 50 54 42 31 20 22 2b c3 7e 73 70 61 63 |D +PTB1 "+.~spac| 00000060 65 0d 00 28 23 20 e3 52 3d 30 b8 26 31 46 46 46 |e..(# .R=0.&1FFF| 00000070 3a e7 20 3f 28 73 70 61 63 65 2b 52 29 3c 3e 32 |:. ?(space+R)<>2| 00000080 35 35 20 8c 0d 00 32 41 20 20 e7 20 3f 28 73 70 |55 ...2A . ?(sp| 00000090 61 63 65 2b 52 29 3c 3e 31 30 20 8c 20 3f 28 6f |ace+R)<>10 . ?(o| 000000a0 75 74 2b 6f 66 66 73 65 74 29 3d 3f 28 73 70 61 |ut+offset)=?(spa| 000000b0 63 65 2b 52 29 3a 6f 66 66 73 65 74 3d 6f 66 66 |ce+R):offset=off| 000000c0 73 65 74 2b 31 0d 00 3c 06 20 cd 0d 00 46 06 20 |set+1..<. ...F. | 000000d0 ed 0d 00 50 2b 20 ff 20 22 53 41 56 45 20 2b 50 |...P+ . "SAVE +P| 000000e0 31 20 22 2b c3 7e 6f 75 74 2b 22 20 22 2b c3 7e |1 "+.~out+" "+.~| 000000f0 28 6f 75 74 2b 6f 66 66 73 65 74 29 0d ff |(out+offset)..| 000000fe
.