Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Programs.adf » Graphics/CircStart

Graphics/CircStart

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 » Greaseweazled » adfs_Programs.adf
Filename: Graphics/CircStart
Read OK:
File size: 01C7 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   30 MODE 1
   40 GCOL 0,129
   50 CLS
   60 PRINT:PRINT"CALCULATING. . . ."
   80 DIM T(72,2)
   90 FOR I=0 TO 72
  100 T(I,1)=COS(RAN(I*5))
  110 T(I,2)=SIN(RAN(I*5))
  120 PRINT TAB(5,5) I
  130 NEXT I
  140 CLG
  150 FOR P=0 TO 27
  160 READ M1,M2,IC,XC,YC,CL
  170 GOSUB 200
  180 NEXT P
  190 GOTO 190
  220 GCOL 0,CL
  230 MOVE XC,YC
  240 DRAW XC+M1*T(IC/5,1),YC+M1*T(IC/5,2)
  250 FOR A=0 TO 360 STEP 15
  260 MOVE XC,YC
  270 X=M1*T(A/5,1)
  280 Y=M2*T(A/5,2)
  290 XT=X*T(IC/5,1)-Y*T(IC/5,2)+XC
  300 YT=X*T(IC/5,2)+Y*T(IC/5,1)+XC
  310 PLOT 85,XT,YT
  320 NEXT A
  330 RETURN
 � 1
( � 0,129
2 �
< �:�"CALCULATING. . . ."
P � T(72,2)
Z � I=0 � 72
d T(I,1)=�(RAN(I*5))
n T(I,2)=�(RAN(I*5))
x � �5,5) I
� � I
� �
� � P=0 � 27
� � M1,M2,IC,XC,YC,CL
� � �dH@
� � P
� � �t~@
� � 0,CL
� � XC,YC
�& � XC+M1*T(IC/5,1),YC+M1*T(IC/5,2)
� � A=0 � 360 � 15
 � XC,YC
 X=M1*T(A/5,1)
 Y=M2*T(A/5,2)
"" XT=X*T(IC/5,1)-Y*T(IC/5,2)+XC
," YT=X*T(IC/5,2)+Y*T(IC/5,1)+XC
6 � 85,XT,YT
@ � A
J �
�
00000000  0d 00 1e 08 20 eb 20 31  0d 00 28 0c 20 e6 20 30  |.... . 1..(. . 0|
00000010  2c 31 32 39 0d 00 32 06  20 db 0d 00 3c 1c 20 f1  |,129..2. ...<. .|
00000020  3a f1 22 43 41 4c 43 55  4c 41 54 49 4e 47 2e 20  |:."CALCULATING. |
00000030  2e 20 2e 20 2e 22 0d 00  50 0e 20 de 20 54 28 37  |. . ."..P. . T(7|
00000040  32 2c 32 29 0d 00 5a 0f  20 e3 20 49 3d 30 20 b8  |2,2)..Z. . I=0 .|
00000050  20 37 32 0d 00 64 17 20  54 28 49 2c 31 29 3d 9b  | 72..d. T(I,1)=.|
00000060  28 52 41 4e 28 49 2a 35  29 29 0d 00 6e 17 20 54  |(RAN(I*5))..n. T|
00000070  28 49 2c 32 29 3d b5 28  52 41 4e 28 49 2a 35 29  |(I,2)=.(RAN(I*5)|
00000080  29 0d 00 78 0e 20 f1 20  8a 35 2c 35 29 20 49 0d  |)..x. . .5,5) I.|
00000090  00 82 08 20 ed 20 49 0d  00 8c 06 20 da 0d 00 96  |... . I.... ....|
000000a0  0f 20 e3 20 50 3d 30 20  b8 20 32 37 0d 00 a0 18  |. . P=0 . 27....|
000000b0  20 f3 20 4d 31 2c 4d 32  2c 49 43 2c 58 43 2c 59  | . M1,M2,IC,XC,Y|
000000c0  43 2c 43 4c 0d 00 aa 0b  20 e4 20 8d 64 48 40 0d  |C,CL.... . .dH@.|
000000d0  00 b4 08 20 ed 20 50 0d  00 be 0b 20 e5 20 8d 74  |... . P.... . .t|
000000e0  7e 40 0d 00 dc 0b 20 e6  20 30 2c 43 4c 0d 00 e6  |~@.... . 0,CL...|
000000f0  0c 20 ec 20 58 43 2c 59  43 0d 00 f0 26 20 df 20  |. . XC,YC...& . |
00000100  58 43 2b 4d 31 2a 54 28  49 43 2f 35 2c 31 29 2c  |XC+M1*T(IC/5,1),|
00000110  59 43 2b 4d 31 2a 54 28  49 43 2f 35 2c 32 29 0d  |YC+M1*T(IC/5,2).|
00000120  00 fa 15 20 e3 20 41 3d  30 20 b8 20 33 36 30 20  |... . A=0 . 360 |
00000130  88 20 31 35 0d 01 04 0c  20 ec 20 58 43 2c 59 43  |. 15.... . XC,YC|
00000140  0d 01 0e 12 20 58 3d 4d  31 2a 54 28 41 2f 35 2c  |.... X=M1*T(A/5,|
00000150  31 29 0d 01 18 12 20 59  3d 4d 32 2a 54 28 41 2f  |1).... Y=M2*T(A/|
00000160  35 2c 32 29 0d 01 22 22  20 58 54 3d 58 2a 54 28  |5,2).."" XT=X*T(|
00000170  49 43 2f 35 2c 31 29 2d  59 2a 54 28 49 43 2f 35  |IC/5,1)-Y*T(IC/5|
00000180  2c 32 29 2b 58 43 0d 01  2c 22 20 59 54 3d 58 2a  |,2)+XC..," YT=X*|
00000190  54 28 49 43 2f 35 2c 32  29 2b 59 2a 54 28 49 43  |T(IC/5,2)+Y*T(IC|
000001a0  2f 35 2c 31 29 2b 58 43  0d 01 36 0f 20 f0 20 38  |/5,1)+XC..6. . 8|
000001b0  35 2c 58 54 2c 59 54 0d  01 40 08 20 ed 20 41 0d  |5,XT,YT..@. . A.|
000001c0  01 4a 06 20 f8 0d ff                              |.J. ...|
000001c7
Graphics/CircStart.m0
Graphics/CircStart.m1
Graphics/CircStart.m2
Graphics/CircStart.m4
Graphics/CircStart.m5