Home » Personal collection » Acorn ADFS disks » Greaseweazled » dos34_s2312.016_compaq_user_programs.adf » Script/Convert
Script/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 ADFS disks » Greaseweazled » dos34_s2312.016_compaq_user_programs.adf |
| Filename: | Script/Convert |
| Read OK: | ✔ |
| File size: | 00CE bytes |
| Load address: | FFFFFB45 |
| Exec address: | AB689FB0 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Archimedes » Files.ADF » Script/Convert
- Personal collection » Acorn ADFS disks » Greaseweazled » dos34_s2312.016_compaq_user_programs.adf » Script/Convert
File contents
10 DIMspace &2000 20 FORR=0TO&1FFF:?(space+R)=255:NEXT 30 OSCLI "LOAD +PTB1 "+STR$~space 40 FORR=0TO&1FFF:IF ?(space+R)<>255 THEN ad=R 50 IF ?(space+R)=10 THEN ?(space+R)=13 60 NEXT 70 OSCLI "SAVE +P1 "+STR$~space+" "+STR$~(space+ad+1)
�space &2000
�R=0�&1FFF:?(space+R)=255:�
� "LOAD +PTB1 "+�~space
(( �R=0�&1FFF:� ?(space+R)<>255 � ad=R
2$ � ?(space+R)=10 � ?(space+R)=13
< �
F- � "SAVE +P1 "+�~space+" "+�~(space+ad+1)
� 00000000 0d 00 0a 11 20 de 73 70 61 63 65 20 26 32 30 30 |.... .space &200| 00000010 30 0d 00 14 20 20 e3 52 3d 30 b8 26 31 46 46 46 |0... .R=0.&1FFF| 00000020 3a 3f 28 73 70 61 63 65 2b 52 29 3d 32 35 35 3a |:?(space+R)=255:| 00000030 ed 0d 00 1e 1c 20 ff 20 22 4c 4f 41 44 20 2b 50 |..... . "LOAD +P| 00000040 54 42 31 20 22 2b c3 7e 73 70 61 63 65 0d 00 28 |TB1 "+.~space..(| 00000050 28 20 e3 52 3d 30 b8 26 31 46 46 46 3a e7 20 3f |( .R=0.&1FFF:. ?| 00000060 28 73 70 61 63 65 2b 52 29 3c 3e 32 35 35 20 8c |(space+R)<>255 .| 00000070 20 61 64 3d 52 0d 00 32 24 20 e7 20 3f 28 73 70 | ad=R..2$ . ?(sp| 00000080 61 63 65 2b 52 29 3d 31 30 20 8c 20 3f 28 73 70 |ace+R)=10 . ?(sp| 00000090 61 63 65 2b 52 29 3d 31 33 0d 00 3c 06 20 ed 0d |ace+R)=13..<. ..| 000000a0 00 46 2d 20 ff 20 22 53 41 56 45 20 2b 50 31 20 |.F- . "SAVE +P1 | 000000b0 22 2b c3 7e 73 70 61 63 65 2b 22 20 22 2b c3 7e |"+.~space+" "+.~| 000000c0 28 73 70 61 63 65 2b 61 64 2b 31 29 0d ff |(space+ad+1)..| 000000ce
.