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:

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
Script/Convert.m0
Script/Convert.m1
Script/Convert.m2
Script/Convert.m4
Script/Convert.m5