Home » Archimedes archive » Acorn User » AU 1994-10.adf » !StarInfo_StarInfo » Beer/orbit
Beer/orbit
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 » Archimedes archive » Acorn User » AU 1994-10.adf » !StarInfo_StarInfo |
| Filename: | Beer/orbit |
| Read OK: | ✔ |
| File size: | 0101 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
40END=PAGE+4095:J=&400C5:DIMb&400:SYSJ-5,200,&4B534154,"orb":$b=STRING$(99,CHR$0):b!8=99:b!12=99:b!28=&D2:b?35=11:b!44=-99:b!48=99:SYSJ-4,,b TOw:REPEATSYS2+J,,b TOa:f=b!16=0:b!0=w:SYS6+J,,b:MOUSEm,n,e:y=(19*y+n-b!16)/20:x=(19*x+m-b!4)/20:b!4+=x:b!16+=y:b!28=-1:SYSJ,,b:UNTIL(a=17)ANDf:SYS24+J
(��=�+4095:J=&400C5:�b&400:șJ-5,200,&4B534154,"orb":$b=�99,�0):b!8=99:b!12=99:b!28=&D2:b?35=11:b!44=-99:b!48=99:șJ-4,,b �w:�ș2+J,,b �a:f=b!16=0:b!0=w:ș6+J,,b:ȗm,n,e:y=(19*y+n-b!16)/20:x=(19*x+m-b!4)/20:b!4+=x:b!16+=y:b!28=-1:șJ,,b:�(a=17)�f:ș24+J �
00000000 0d 00 28 ff e0 3d 90 2b 34 30 39 35 3a 4a 3d 26 |..(..=.+4095:J=&| 00000010 34 30 30 43 35 3a de 62 26 34 30 30 3a c8 99 4a |400C5:.b&400:..J| 00000020 2d 35 2c 32 30 30 2c 26 34 42 35 33 34 31 35 34 |-5,200,&4B534154| 00000030 2c 22 6f 72 62 22 3a 24 62 3d c4 39 39 2c bd 30 |,"orb":$b=.99,.0| 00000040 29 3a 62 21 38 3d 39 39 3a 62 21 31 32 3d 39 39 |):b!8=99:b!12=99| 00000050 3a 62 21 32 38 3d 26 44 32 3a 62 3f 33 35 3d 31 |:b!28=&D2:b?35=1| 00000060 31 3a 62 21 34 34 3d 2d 39 39 3a 62 21 34 38 3d |1:b!44=-99:b!48=| 00000070 39 39 3a c8 99 4a 2d 34 2c 2c 62 20 b8 77 3a f5 |99:..J-4,,b .w:.| 00000080 c8 99 32 2b 4a 2c 2c 62 20 b8 61 3a 66 3d 62 21 |..2+J,,b .a:f=b!| 00000090 31 36 3d 30 3a 62 21 30 3d 77 3a c8 99 36 2b 4a |16=0:b!0=w:..6+J| 000000a0 2c 2c 62 3a c8 97 6d 2c 6e 2c 65 3a 79 3d 28 31 |,,b:..m,n,e:y=(1| 000000b0 39 2a 79 2b 6e 2d 62 21 31 36 29 2f 32 30 3a 78 |9*y+n-b!16)/20:x| 000000c0 3d 28 31 39 2a 78 2b 6d 2d 62 21 34 29 2f 32 30 |=(19*x+m-b!4)/20| 000000d0 3a 62 21 34 2b 3d 78 3a 62 21 31 36 2b 3d 79 3a |:b!4+=x:b!16+=y:| 000000e0 62 21 32 38 3d 2d 31 3a c8 99 4a 2c 2c 62 3a fd |b!28=-1:..J,,b:.| 000000f0 28 61 3d 31 37 29 80 66 3a c8 99 32 34 2b 4a 0d |(a=17).f:..24+J.| 00000100 ff |.| 00000101
.