Home » Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » Graphics/Circle
Graphics/Circle
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 ADFS disks » Electron » Programs_B.ADF |
| Filename: | Graphics/Circle |
| Read OK: | ✔ |
| File size: | 00CF bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
Duplicates
There are 6 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » Graphics/Circle
- Personal collection » Acorn ADFS disks » Electron » Programs.ADF » Graphics/Circle
- Personal collection » Acorn ADFS disks » Electron » Programs_V2.ADF » Graphics/Circle
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Programs.adf » Graphics/Circle
- Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Graphics/Circle
- Personal collection » Acorn hard disk » misc » misc3 » dcfprog3/Graphics/Circle
- Personal collection » Acorn tapes » Own_Work » drawer_tl_tape04b_c15_acorn_lemmings.wav » Circle
File contents
10 MODE 1:DIMs%(24):FORx=1TO25 20 s%(x-1)=100*SINRAD(x*18):NEXT 25 r%=450 30 FORi%=0TO19 40 x=500+r%*s%(i%+5)DIV100 50 y=500+r%*s%(i%)DIV100 60 FORib%=0TO19 70 MOVEx,y 80 DRAW500+r%*s%(ib%+5)DIV100,500+r%*s%(ib%)DIV100 90 NEXT 100 NEXT
� 1:�s%(24):�x=1�25 s%(x-1)=100*��(x*18):� r%=450 �i%=0�19 ( x=500+r%*s%(i%+5)�100 2 y=500+r%*s%(i%)�100 < �ib%=0�19 F �x,y P- �500+r%*s%(ib%+5)�100,500+r%*s%(ib%)�100 Z � d � �
00000000 0d 00 0a 18 20 eb 20 31 3a de 73 25 28 32 34 29 |.... . 1:.s%(24)| 00000010 3a e3 78 3d 31 b8 32 35 0d 00 14 1b 20 73 25 28 |:.x=1.25.... s%(| 00000020 78 2d 31 29 3d 31 30 30 2a b5 b2 28 78 2a 31 38 |x-1)=100*..(x*18| 00000030 29 3a ed 0d 00 19 0b 20 72 25 3d 34 35 30 0d 00 |):..... r%=450..| 00000040 1e 0d 20 e3 69 25 3d 30 b8 31 39 0d 00 28 1a 20 |.. .i%=0.19..(. | 00000050 78 3d 35 30 30 2b 72 25 2a 73 25 28 69 25 2b 35 |x=500+r%*s%(i%+5| 00000060 29 81 31 30 30 0d 00 32 18 20 79 3d 35 30 30 2b |).100..2. y=500+| 00000070 72 25 2a 73 25 28 69 25 29 81 31 30 30 0d 00 3c |r%*s%(i%).100..<| 00000080 0e 20 e3 69 62 25 3d 30 b8 31 39 0d 00 46 09 20 |. .ib%=0.19..F. | 00000090 ec 78 2c 79 0d 00 50 2d 20 df 35 30 30 2b 72 25 |.x,y..P- .500+r%| 000000a0 2a 73 25 28 69 62 25 2b 35 29 81 31 30 30 2c 35 |*s%(ib%+5).100,5| 000000b0 30 30 2b 72 25 2a 73 25 28 69 62 25 29 81 31 30 |00+r%*s%(ib%).10| 000000c0 30 0d 00 5a 06 20 ed 0d 00 64 06 20 ed 0d ff |0..Z. ...d. ...| 000000cf
.