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
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
Graphics/Circle.m0
Graphics/Circle.m1
Graphics/Circle.m2
Graphics/Circle.m4
Graphics/Circle.m5