Home » Archimedes archive » Acorn User » AU 1995-09.adf » !Regulars » Regulars/StarInfo/One-liners/Graham/Square
Regulars/StarInfo/One-liners/Graham/Square
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 1995-09.adf » !Regulars |
| Filename: | Regulars/StarInfo/One-liners/Graham/Square |
| Read OK: | ✔ |
| File size: | 0061 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE0:OFF:REPEAT:T%=ABSRND:FOR loop%=T% TO T%+10000:FOR A%=0TO640:B%=(A%EORloop%)MOD256:PLOT70,A%*2,B%*4:NEXT:PLOT0,0,0:NEXT:UNTILFALSE
_�0:�:�:T%=��:� loop%=T% � T%+10000:� A%=0�640:B%=(A%�loop%)�256:�70,A%*2,B%*4:�:�0,0,0:�:�� �
00000000 0d 00 0a 5f eb 30 3a 87 3a f5 3a 54 25 3d 94 b3 |..._.0:.:.:T%=..| 00000010 3a e3 20 6c 6f 6f 70 25 3d 54 25 20 b8 20 54 25 |:. loop%=T% . T%| 00000020 2b 31 30 30 30 30 3a e3 20 41 25 3d 30 b8 36 34 |+10000:. A%=0.64| 00000030 30 3a 42 25 3d 28 41 25 82 6c 6f 6f 70 25 29 83 |0:B%=(A%.loop%).| 00000040 32 35 36 3a f0 37 30 2c 41 25 2a 32 2c 42 25 2a |256:.70,A%*2,B%*| 00000050 34 3a ed 3a f0 30 2c 30 2c 30 3a ed 3a fd a3 0d |4:.:.0,0,0:.:...| 00000060 ff |.| 00000061
.