U/CLOWN

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_52.ADF » U/CLOWN

U/CLOWN

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_User_Group » EUG_52.ADF
Filename:	U/CLOWN
Read OK:	✔
File size:	0562 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

Duplicates

There is 1 duplicate copy of this file in the archive:

AEW website » eug » eug_3_5_discs_Eug-52_A-EUG52.adf » U/CLOWN
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_52.ADF » U/CLOWN

File contents

   10MODE2
   20VDU5
   30VDU23;8202;0;0;0;
   40PROCINIT
   50READ circles
   60FORP=1TO circles
   70READ x%,y%,r%,c%
   80PROCcircle(x%,y%,r%,c%)
   90NEXT
  100PROCcircle(x%,y%,r%,c%)
  110A$=INKEY$(200):MODE6:VDU23;8202;0;0;0;:CHAIN"$.MENU"
  120DEFPROCcircle(x%,y%,r%,c%)
  130LOCAL I%
  140GCOL0,c%
  150VDU29,x%;y%;
  160MOVE0,0
  170FORI%=0TO30
  180MOVE0,0
  190PLOT85,r%*c(I%),r%*s(I%)
  200NEXT
  210VDU29,0;0;
  220ENDPROC
  230DEFPROCINIT
  240DIM s(30),c(30)
  250FOR loop%=0TO30
  260s(loop%)=SIN(loop%*2.2*PI/30)
  270c(loop%)=COS(loop%*2.2*PI/30)
  280NEXTloop%
  290ENDPROC
  300DATA54
  310DATA1000,500,100,5
  320DATA1000,500,80,0
  330DATA1000,500,74,5
  340DATA1000,400,30,5
  350DATA300,500,100,5
  360DATA300,500,80,0
  370DATA300,500,74,5
  380DATA300,400,30,5
  390DATA650,550,350,5
  400DATA650,450,200,7
  410DATA650,450,160,0
  420DATA650,450,120,7
  430DATA650,450,80,5
  440DATA790,450,50,7
  450DATA510,450,50,7
  460DATA550,700,100,0
  470DATA750,700,100,0
  480DATA550,650,140,5
  490DATA750,650,140,5
  500DATA550,660,100,7
  510DATA570,660,60,4
  520DATA570,660,30,0
  530DATA750,660,100,7
  540DATA730,660,60,4
  550DATA730,660,30,0
  560DATA470,540,120,0
  570DATA470,540,114,5
  580DATA830,540,120,0
  590DATA830,540,114,5
  600DATA650,520,120,0
  610DATA650,520,114,1
  620DATA700,580,20,7
  630DATA680,570,30,1
  640DATA650,140,70,3
  650DATA520,180,90,3
  660DATA520,100,70,3
  670DATA780,180,90,3
  680DATA780,100,70,3
  690DATA620,160,14,1
  700DATA680,120,14,1
  710DATA720,200,14,1
  720DATA780,220,14,1
  730DATA840,180,14,1
  740DATA810,120,14,1
  750DATA760,160,14,1
  760DATA760,100,14,1
  770DATA780,60,14,1
  780DATA580,200,14,1
  790DATA520,220,14,1
  800DATA460,180,14,1
  810DATA490,120,14,1
  820DATA550,160,14,1
  830DATA550,100,14,1
  840DATA520,60,14,1


�2
�5
�23;8202;0;0;0;
(	�INIT
2
� circles
<�P=1� circles
F� x%,y%,r%,c%
P�circle(x%,y%,r%,c%)
Z�
d�circle(x%,y%,r%,c%)
n*A$=�(200):�6:�23;8202;0;0;0;:�"$.MENU"
x��circle(x%,y%,r%,c%)
�� I%
�	�0,c%
��29,x%;y%;
��0,0
��I%=0�30
��0,0
��85,r%*c(I%),r%*s(I%)
��
��29,0;0;
��
�
��INIT
�� s(30),c(30)
�� loop%=0�30
s(loop%)=�(loop%*2.2*�/30)
c(loop%)=�(loop%*2.2*�/30)

�loop%
"�
,�54
6�1000,500,100,5
@�1000,500,80,0
J�1000,500,74,5
T�1000,400,30,5
^�300,500,100,5
h�300,500,80,0
r�300,500,74,5
|�300,400,30,5
��650,550,350,5
��650,450,200,7
��650,450,160,0
��650,450,120,7
��650,450,80,5
��790,450,50,7
��510,450,50,7
��550,700,100,0
��750,700,100,0
��550,650,140,5
��750,650,140,5
��550,660,100,7
��570,660,60,4
�570,660,30,0
�750,660,100,7
�730,660,60,4
&�730,660,30,0
0�470,540,120,0
:�470,540,114,5
D�830,540,120,0
N�830,540,114,5
X�650,520,120,0
b�650,520,114,1
l�700,580,20,7
v�680,570,30,1
��650,140,70,3
��520,180,90,3
��520,100,70,3
��780,180,90,3
��780,100,70,3
��620,160,14,1
��680,120,14,1
��720,200,14,1
��780,220,14,1
��840,180,14,1
��810,120,14,1
��760,160,14,1
��760,100,14,1
�780,60,14,1
�580,200,14,1
�520,220,14,1
 �460,180,14,1
*�490,120,14,1
4�550,160,14,1
>�550,100,14,1
H�520,60,14,1
�

00000000  0d 00 0a 06 eb 32 0d 00  14 06 ef 35 0d 00 1e 13  |.....2.....5....|
00000010  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 0d  |.23;8202;0;0;0;.|
00000020  00 28 09 f2 49 4e 49 54  0d 00 32 0d f3 20 63 69  |.(..INIT..2.. ci|
00000030  72 63 6c 65 73 0d 00 3c  11 e3 50 3d 31 b8 20 63  |rcles..<..P=1. c|
00000040  69 72 63 6c 65 73 0d 00  46 11 f3 20 78 25 2c 79  |ircles..F.. x%,y|
00000050  25 2c 72 25 2c 63 25 0d  00 50 18 f2 63 69 72 63  |%,r%,c%..P..circ|
00000060  6c 65 28 78 25 2c 79 25  2c 72 25 2c 63 25 29 0d  |le(x%,y%,r%,c%).|
00000070  00 5a 05 ed 0d 00 64 18  f2 63 69 72 63 6c 65 28  |.Z....d..circle(|
00000080  78 25 2c 79 25 2c 72 25  2c 63 25 29 0d 00 6e 2a  |x%,y%,r%,c%)..n*|
00000090  41 24 3d bf 28 32 30 30  29 3a eb 36 3a ef 32 33  |A$=.(200):.6:.23|
000000a0  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 3a d7 22 24  |;8202;0;0;0;:."$|
000000b0  2e 4d 45 4e 55 22 0d 00  78 19 dd f2 63 69 72 63  |.MENU"..x...circ|
000000c0  6c 65 28 78 25 2c 79 25  2c 72 25 2c 63 25 29 0d  |le(x%,y%,r%,c%).|
000000d0  00 82 08 ea 20 49 25 0d  00 8c 09 e6 30 2c 63 25  |.... I%.....0,c%|
000000e0  0d 00 96 0e ef 32 39 2c  78 25 3b 79 25 3b 0d 00  |.....29,x%;y%;..|
000000f0  a0 08 ec 30 2c 30 0d 00  aa 0c e3 49 25 3d 30 b8  |...0,0.....I%=0.|
00000100  33 30 0d 00 b4 08 ec 30  2c 30 0d 00 be 19 f0 38  |30.....0,0.....8|
00000110  35 2c 72 25 2a 63 28 49  25 29 2c 72 25 2a 73 28  |5,r%*c(I%),r%*s(|
00000120  49 25 29 0d 00 c8 05 ed  0d 00 d2 0c ef 32 39 2c  |I%)..........29,|
00000130  30 3b 30 3b 0d 00 dc 05  e1 0d 00 e6 0a dd f2 49  |0;0;...........I|
00000140  4e 49 54 0d 00 f0 11 de  20 73 28 33 30 29 2c 63  |NIT..... s(30),c|
00000150  28 33 30 29 0d 00 fa 10  e3 20 6c 6f 6f 70 25 3d  |(30)..... loop%=|
00000160  30 b8 33 30 0d 01 04 1e  73 28 6c 6f 6f 70 25 29  |0.30....s(loop%)|
00000170  3d b5 28 6c 6f 6f 70 25  2a 32 2e 32 2a af 2f 33  |=.(loop%*2.2*./3|
00000180  30 29 0d 01 0e 1e 63 28  6c 6f 6f 70 25 29 3d 9b  |0)....c(loop%)=.|
00000190  28 6c 6f 6f 70 25 2a 32  2e 32 2a af 2f 33 30 29  |(loop%*2.2*./30)|
000001a0  0d 01 18 0a ed 6c 6f 6f  70 25 0d 01 22 05 e1 0d  |.....loop%.."...|
000001b0  01 2c 07 dc 35 34 0d 01  36 13 dc 31 30 30 30 2c  |.,..54..6..1000,|
000001c0  35 30 30 2c 31 30 30 2c  35 0d 01 40 12 dc 31 30  |500,100,5..@..10|
000001d0  30 30 2c 35 30 30 2c 38  30 2c 30 0d 01 4a 12 dc  |00,500,80,0..J..|
000001e0  31 30 30 30 2c 35 30 30  2c 37 34 2c 35 0d 01 54  |1000,500,74,5..T|
000001f0  12 dc 31 30 30 30 2c 34  30 30 2c 33 30 2c 35 0d  |..1000,400,30,5.|
00000200  01 5e 12 dc 33 30 30 2c  35 30 30 2c 31 30 30 2c  |.^..300,500,100,|
00000210  35 0d 01 68 11 dc 33 30  30 2c 35 30 30 2c 38 30  |5..h..300,500,80|
00000220  2c 30 0d 01 72 11 dc 33  30 30 2c 35 30 30 2c 37  |,0..r..300,500,7|
00000230  34 2c 35 0d 01 7c 11 dc  33 30 30 2c 34 30 30 2c  |4,5..|..300,400,|
00000240  33 30 2c 35 0d 01 86 12  dc 36 35 30 2c 35 35 30  |30,5.....650,550|
00000250  2c 33 35 30 2c 35 0d 01  90 12 dc 36 35 30 2c 34  |,350,5.....650,4|
00000260  35 30 2c 32 30 30 2c 37  0d 01 9a 12 dc 36 35 30  |50,200,7.....650|
00000270  2c 34 35 30 2c 31 36 30  2c 30 0d 01 a4 12 dc 36  |,450,160,0.....6|
00000280  35 30 2c 34 35 30 2c 31  32 30 2c 37 0d 01 ae 11  |50,450,120,7....|
00000290  dc 36 35 30 2c 34 35 30  2c 38 30 2c 35 0d 01 b8  |.650,450,80,5...|
000002a0  11 dc 37 39 30 2c 34 35  30 2c 35 30 2c 37 0d 01  |..790,450,50,7..|
000002b0  c2 11 dc 35 31 30 2c 34  35 30 2c 35 30 2c 37 0d  |...510,450,50,7.|
000002c0  01 cc 12 dc 35 35 30 2c  37 30 30 2c 31 30 30 2c  |....550,700,100,|
000002d0  30 0d 01 d6 12 dc 37 35  30 2c 37 30 30 2c 31 30  |0.....750,700,10|
000002e0  30 2c 30 0d 01 e0 12 dc  35 35 30 2c 36 35 30 2c  |0,0.....550,650,|
000002f0  31 34 30 2c 35 0d 01 ea  12 dc 37 35 30 2c 36 35  |140,5.....750,65|
00000300  30 2c 31 34 30 2c 35 0d  01 f4 12 dc 35 35 30 2c  |0,140,5.....550,|
00000310  36 36 30 2c 31 30 30 2c  37 0d 01 fe 11 dc 35 37  |660,100,7.....57|
00000320  30 2c 36 36 30 2c 36 30  2c 34 0d 02 08 11 dc 35  |0,660,60,4.....5|
00000330  37 30 2c 36 36 30 2c 33  30 2c 30 0d 02 12 12 dc  |70,660,30,0.....|
00000340  37 35 30 2c 36 36 30 2c  31 30 30 2c 37 0d 02 1c  |750,660,100,7...|
00000350  11 dc 37 33 30 2c 36 36  30 2c 36 30 2c 34 0d 02  |..730,660,60,4..|
00000360  26 11 dc 37 33 30 2c 36  36 30 2c 33 30 2c 30 0d  |&..730,660,30,0.|
00000370  02 30 12 dc 34 37 30 2c  35 34 30 2c 31 32 30 2c  |.0..470,540,120,|
00000380  30 0d 02 3a 12 dc 34 37  30 2c 35 34 30 2c 31 31  |0..:..470,540,11|
00000390  34 2c 35 0d 02 44 12 dc  38 33 30 2c 35 34 30 2c  |4,5..D..830,540,|
000003a0  31 32 30 2c 30 0d 02 4e  12 dc 38 33 30 2c 35 34  |120,0..N..830,54|
000003b0  30 2c 31 31 34 2c 35 0d  02 58 12 dc 36 35 30 2c  |0,114,5..X..650,|
000003c0  35 32 30 2c 31 32 30 2c  30 0d 02 62 12 dc 36 35  |520,120,0..b..65|
000003d0  30 2c 35 32 30 2c 31 31  34 2c 31 0d 02 6c 11 dc  |0,520,114,1..l..|
000003e0  37 30 30 2c 35 38 30 2c  32 30 2c 37 0d 02 76 11  |700,580,20,7..v.|
000003f0  dc 36 38 30 2c 35 37 30  2c 33 30 2c 31 0d 02 80  |.680,570,30,1...|
00000400  11 dc 36 35 30 2c 31 34  30 2c 37 30 2c 33 0d 02  |..650,140,70,3..|
00000410  8a 11 dc 35 32 30 2c 31  38 30 2c 39 30 2c 33 0d  |...520,180,90,3.|
00000420  02 94 11 dc 35 32 30 2c  31 30 30 2c 37 30 2c 33  |....520,100,70,3|
00000430  0d 02 9e 11 dc 37 38 30  2c 31 38 30 2c 39 30 2c  |.....780,180,90,|
00000440  33 0d 02 a8 11 dc 37 38  30 2c 31 30 30 2c 37 30  |3.....780,100,70|
00000450  2c 33 0d 02 b2 11 dc 36  32 30 2c 31 36 30 2c 31  |,3.....620,160,1|
00000460  34 2c 31 0d 02 bc 11 dc  36 38 30 2c 31 32 30 2c  |4,1.....680,120,|
00000470  31 34 2c 31 0d 02 c6 11  dc 37 32 30 2c 32 30 30  |14,1.....720,200|
00000480  2c 31 34 2c 31 0d 02 d0  11 dc 37 38 30 2c 32 32  |,14,1.....780,22|
00000490  30 2c 31 34 2c 31 0d 02  da 11 dc 38 34 30 2c 31  |0,14,1.....840,1|
000004a0  38 30 2c 31 34 2c 31 0d  02 e4 11 dc 38 31 30 2c  |80,14,1.....810,|
000004b0  31 32 30 2c 31 34 2c 31  0d 02 ee 11 dc 37 36 30  |120,14,1.....760|
000004c0  2c 31 36 30 2c 31 34 2c  31 0d 02 f8 11 dc 37 36  |,160,14,1.....76|
000004d0  30 2c 31 30 30 2c 31 34  2c 31 0d 03 02 10 dc 37  |0,100,14,1.....7|
000004e0  38 30 2c 36 30 2c 31 34  2c 31 0d 03 0c 11 dc 35  |80,60,14,1.....5|
000004f0  38 30 2c 32 30 30 2c 31  34 2c 31 0d 03 16 11 dc  |80,200,14,1.....|
00000500  35 32 30 2c 32 32 30 2c  31 34 2c 31 0d 03 20 11  |520,220,14,1.. .|
00000510  dc 34 36 30 2c 31 38 30  2c 31 34 2c 31 0d 03 2a  |.460,180,14,1..*|
00000520  11 dc 34 39 30 2c 31 32  30 2c 31 34 2c 31 0d 03  |..490,120,14,1..|
00000530  34 11 dc 35 35 30 2c 31  36 30 2c 31 34 2c 31 0d  |4..550,160,14,1.|
00000540  03 3e 11 dc 35 35 30 2c  31 30 30 2c 31 34 2c 31  |.>..550,100,14,1|
00000550  0d 03 48 10 dc 35 32 30  2c 36 30 2c 31 34 2c 31  |..H..520,60,14,1|
00000560  0d ff                                             |..|
00000562

U/CLOWN.m0

U/CLOWN.m1

U/CLOWN.m2

U/CLOWN.m4

U/CLOWN.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .