Home » Archimedes archive » Acorn User » AU 1997-01 B.adf » Regulars » StarInfo/Rawle/!Saviour/Savers/Circles
StarInfo/Rawle/!Saviour/Savers/Circles
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 1997-01 B.adf » Regulars |
| Filename: | StarInfo/Rawle/!Saviour/Savers/Circles |
| Read OK: | ✔ |
| File size: | 00C2 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10LIBRARY "<Saviour$Dir>.Library":PROCsaviour_init 20MD%=RND(2) 30MODE13:OFF 40REPEAT 50PX%=RND(1280):PY%=RND(1024):PC%=RND(128):PC%=PC%-1 60IFMD%=1:PR%=RND(100):ELSEPR%=30 70GCOLPC%:CIRCLEFILLPX%,PY%,PR% 80PROCsaviour_check:UNTILFALSE
,ț "<Saviour$Dir>.Library":�saviour_init MD%=�(2) �13:� (� 20PX%=�(1280):PY%=�(1024):PC%=�(128):PC%=PC%-1 < �MD%=1:PR%=�(100):�PR%=30 F�PC%:ȏȐPX%,PY%,PR% P�saviour_check:�� �
00000000 0d 00 0a 2c c8 9b 20 22 3c 53 61 76 69 6f 75 72 |...,.. "<Saviour| 00000010 24 44 69 72 3e 2e 4c 69 62 72 61 72 79 22 3a f2 |$Dir>.Library":.| 00000020 73 61 76 69 6f 75 72 5f 69 6e 69 74 0d 00 14 0c |saviour_init....| 00000030 4d 44 25 3d b3 28 32 29 0d 00 1e 09 eb 31 33 3a |MD%=.(2).....13:| 00000040 87 0d 00 28 05 f5 0d 00 32 30 50 58 25 3d b3 28 |...(....20PX%=.(| 00000050 31 32 38 30 29 3a 50 59 25 3d b3 28 31 30 32 34 |1280):PY%=.(1024| 00000060 29 3a 50 43 25 3d b3 28 31 32 38 29 3a 50 43 25 |):PC%=.(128):PC%| 00000070 3d 50 43 25 2d 31 0d 00 3c 1d e7 4d 44 25 3d 31 |=PC%-1..<..MD%=1| 00000080 3a 50 52 25 3d b3 28 31 30 30 29 3a 8b 50 52 25 |:PR%=.(100):.PR%| 00000090 3d 33 30 0d 00 46 18 e6 50 43 25 3a c8 8f c8 90 |=30..F..PC%:....| 000000a0 50 58 25 2c 50 59 25 2c 50 52 25 0d 00 50 15 f2 |PX%,PY%,PR%..P..| 000000b0 73 61 76 69 6f 75 72 5f 63 68 65 63 6b 3a fd a3 |saviour_check:..| 000000c0 0d ff |..| 000000c2
.