Home » Personal collection » Acorn hard disk » misc » misc2 » biobot/SIII/Convert

biobot/SIII/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 » misc2
Filename: biobot/SIII/Convert
Read OK:
File size: 026F bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10MODE2:DIM c%(15),d%(15):FORr=0TO15:READd%(r):NEXT
   20FORr=0TO15:READa:c%(r)=d%(a):NEXT
   30DIM space &2000:*RAM
   40*SLOAD SHIPIII
   50*SCHOOSE TOP
   60PLOT&ED,0,960:FORx=0TO1:FORt=0TO&27F
   70?(space+&280*x+t)=(c%(POINT((t AND &FF8)*2+8,1023-32*x-(t AND 7)*4))+2*c%(POINT((t AND &FF8)*2,1023-32*x-(t AND 7)*4)) AND &3F):NEXT,
   80OSCLI"SAVE NamBar "+STR$~space+" "+STR$~(space+&500)
   90:
  100*SCHOOSE BOTTOM
  110PLOT&ED,0,704:FORx=0TO9:FORt=0TO&27F
  120?(space+&280*x+t)=(c%(POINT((t AND &FF8)*2+8,1023-32*x-(t AND 7)*4))+2*c%(POINT((t AND &FF8)*2,1023-32*x-(t AND 7)*4)) AND &3F):NEXT,
  130OSCLI"SAVE ScoBar "+STR$~space+" "+STR$~(space+&1700)
  140:
  150DATA 0,1,4,5,16,17,20,21,64,65,68,69,80,81,84,85
  160DATA 7,7,7,7,7,7,0,0,4,3,2,1,3,2,3,6

'�2:� c%(15),d%(15):�r=0�15:�d%(r):�
�r=0�15:�a:c%(r)=d%(a):�
� space &2000:*RAM
(*SLOAD SHIPIII
2*SCHOOSE TOP
<�&ED,0,960:�x=0�1:�t=0�&27F
Fr?(space+&280*x+t)=(c%(�(t � &FF8)*2+8,1023-32*x-(t � 7)*4))+2*c%(�(t � &FF8)*2,1023-32*x-(t � 7)*4)) � &3F):�,
P.�"SAVE NamBar "+�~space+" "+�~(space+&500)
Z:
d*SCHOOSE BOTTOM
n�&ED,0,704:�x=0�9:�t=0�&27F
xr?(space+&280*x+t)=(c%(�(t � &FF8)*2+8,1023-32*x-(t � 7)*4))+2*c%(�(t � &FF8)*2,1023-32*x-(t � 7)*4)) � &3F):�,
�/�"SAVE ScoBar "+�~space+" "+�~(space+&1700)
�:
�1� 0,1,4,5,16,17,20,21,64,65,68,69,80,81,84,85
�%� 7,7,7,7,7,7,0,0,4,3,2,1,3,2,3,6
�
00000000  0d 00 0a 27 eb 32 3a de  20 63 25 28 31 35 29 2c  |...'.2:. c%(15),|
00000010  64 25 28 31 35 29 3a e3  72 3d 30 b8 31 35 3a f3  |d%(15):.r=0.15:.|
00000020  64 25 28 72 29 3a ed 0d  00 14 1c e3 72 3d 30 b8  |d%(r):......r=0.|
00000030  31 35 3a f3 61 3a 63 25  28 72 29 3d 64 25 28 61  |15:.a:c%(r)=d%(a|
00000040  29 3a ed 0d 00 1e 16 de  20 73 70 61 63 65 20 26  |):...... space &|
00000050  32 30 30 30 3a 2a 52 41  4d 0d 00 28 12 2a 53 4c  |2000:*RAM..(.*SL|
00000060  4f 41 44 20 53 48 49 50  49 49 49 0d 00 32 10 2a  |OAD SHIPIII..2.*|
00000070  53 43 48 4f 4f 53 45 20  54 4f 50 0d 00 3c 1f f0  |SCHOOSE TOP..<..|
00000080  26 45 44 2c 30 2c 39 36  30 3a e3 78 3d 30 b8 31  |&ED,0,960:.x=0.1|
00000090  3a e3 74 3d 30 b8 26 32  37 46 0d 00 46 72 3f 28  |:.t=0.&27F..Fr?(|
000000a0  73 70 61 63 65 2b 26 32  38 30 2a 78 2b 74 29 3d  |space+&280*x+t)=|
000000b0  28 63 25 28 b0 28 74 20  80 20 26 46 46 38 29 2a  |(c%(.(t . &FF8)*|
000000c0  32 2b 38 2c 31 30 32 33  2d 33 32 2a 78 2d 28 74  |2+8,1023-32*x-(t|
000000d0  20 80 20 37 29 2a 34 29  29 2b 32 2a 63 25 28 b0  | . 7)*4))+2*c%(.|
000000e0  28 74 20 80 20 26 46 46  38 29 2a 32 2c 31 30 32  |(t . &FF8)*2,102|
000000f0  33 2d 33 32 2a 78 2d 28  74 20 80 20 37 29 2a 34  |3-32*x-(t . 7)*4|
00000100  29 29 20 80 20 26 33 46  29 3a ed 2c 0d 00 50 2e  |)) . &3F):.,..P.|
00000110  ff 22 53 41 56 45 20 4e  61 6d 42 61 72 20 22 2b  |."SAVE NamBar "+|
00000120  c3 7e 73 70 61 63 65 2b  22 20 22 2b c3 7e 28 73  |.~space+" "+.~(s|
00000130  70 61 63 65 2b 26 35 30  30 29 0d 00 5a 05 3a 0d  |pace+&500)..Z.:.|
00000140  00 64 13 2a 53 43 48 4f  4f 53 45 20 42 4f 54 54  |.d.*SCHOOSE BOTT|
00000150  4f 4d 0d 00 6e 1f f0 26  45 44 2c 30 2c 37 30 34  |OM..n..&ED,0,704|
00000160  3a e3 78 3d 30 b8 39 3a  e3 74 3d 30 b8 26 32 37  |:.x=0.9:.t=0.&27|
00000170  46 0d 00 78 72 3f 28 73  70 61 63 65 2b 26 32 38  |F..xr?(space+&28|
00000180  30 2a 78 2b 74 29 3d 28  63 25 28 b0 28 74 20 80  |0*x+t)=(c%(.(t .|
00000190  20 26 46 46 38 29 2a 32  2b 38 2c 31 30 32 33 2d  | &FF8)*2+8,1023-|
000001a0  33 32 2a 78 2d 28 74 20  80 20 37 29 2a 34 29 29  |32*x-(t . 7)*4))|
000001b0  2b 32 2a 63 25 28 b0 28  74 20 80 20 26 46 46 38  |+2*c%(.(t . &FF8|
000001c0  29 2a 32 2c 31 30 32 33  2d 33 32 2a 78 2d 28 74  |)*2,1023-32*x-(t|
000001d0  20 80 20 37 29 2a 34 29  29 20 80 20 26 33 46 29  | . 7)*4)) . &3F)|
000001e0  3a ed 2c 0d 00 82 2f ff  22 53 41 56 45 20 53 63  |:.,.../."SAVE Sc|
000001f0  6f 42 61 72 20 22 2b c3  7e 73 70 61 63 65 2b 22  |oBar "+.~space+"|
00000200  20 22 2b c3 7e 28 73 70  61 63 65 2b 26 31 37 30  | "+.~(space+&170|
00000210  30 29 0d 00 8c 05 3a 0d  00 96 31 dc 20 30 2c 31  |0)....:...1. 0,1|
00000220  2c 34 2c 35 2c 31 36 2c  31 37 2c 32 30 2c 32 31  |,4,5,16,17,20,21|
00000230  2c 36 34 2c 36 35 2c 36  38 2c 36 39 2c 38 30 2c  |,64,65,68,69,80,|
00000240  38 31 2c 38 34 2c 38 35  0d 00 a0 25 dc 20 37 2c  |81,84,85...%. 7,|
00000250  37 2c 37 2c 37 2c 37 2c  37 2c 30 2c 30 2c 34 2c  |7,7,7,7,7,0,0,4,|
00000260  33 2c 32 2c 31 2c 33 2c  32 2c 33 2c 36 0d ff     |3,2,1,3,2,3,6..|
0000026f