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:
- Personal collection » Acorn ADFS disks » Archimedes » Dominic_4.ADF » SIII/Convert
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_4.adf » SIII/Convert
- Personal collection » Acorn hard disk » misc » misc2 » biobot/SIII/Convert
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
.