StarInfo/clouds/Jeffs/CloudIX

Home » Archimedes archive » Acorn User » AU 1997-05 B.adf » Regulars » StarInfo/clouds/Jeffs/CloudIX

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 1997-05 B.adf » Regulars
Filename:	StarInfo/clouds/Jeffs/CloudIX
Read OK:	✔
File size:	0312 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM  Cloud9 by R.W.Jeffs
   20REM
   30REM  Acorn User Cloud Challenge
   40
   50MODE 9:OFF
   60D%=200:DIM P%(D%,3):REM  Status, X, Y, radius
   70
   80REM  Draw invisible 9
   90VDU 19,8,16,0,0,0
  100GCOL0,8
  110FOR A%=0 TO 359
  120CIRCLEFILL SIN(RAD(A%))*200+640,COS(RAD(A%))*200+740,40
  130NEXT
  140X=843:Y=740:XV=0
  150FOR A%=1 TO 150
  160CIRCLEFILL X,Y,40
  170X+=XV:Y-=4:XV-=.02
  180NEXT
  190
  200REM  Select points on invisible 9
  210FOR A%=0 TO D%
  220REPEAT:X%=RND(480)+400:Y%=RND(900)+100:UNTIL POINT(X%,Y%)=8
  230P%(A%,0)=0:P%(A%,1)=X%:P%(A%,2)=Y%:P%(A%,3)=0
  240REM GCOL0,7:PLOT 69,X%,Y%
  250NEXT
  260
  270REM  Initiate chain reaction and loop until run out of puff
  280GCOL0,7:P%(0,0)=1
  290REPEAT
  300fin%=TRUE
  310FOR A%=0 TO D%
  320IF P%(A%,0)=0 THEN
  330 IF POINT(P%(A%,1),P%(A%,2))<>8 P%(A%,0)=1
  340ELSE
  350 IF P%(A%,3)<80 CIRCLE P%(A%,1),P%(A%,2),P%(A%,3):P%(A%,3)+=1:fin%=FALSE
  360ENDIF
  370NEXT
  380UNTIL fin%
  390
  400PRINTTAB(0,29);
  410END


�  Cloud9 by R.W.Jeffs
�
!�  Acorn User Cloud Challenge
(
2	� 9:�
<-D%=200:� P%(D%,3):�  Status, X, Y, radius
F
P�  Draw invisible 9
Z� 19,8,16,0,0,0
d�0,8
n� A%=0 � 359
x-ȏȐ �(�(A%))*200+640,�(�(A%))*200+740,40
��
�X=843:Y=740:XV=0
�� A%=1 � 150
�ȏȐ X,Y,40
�X+=XV:Y-=4:XV-=.02
��
�
�#�  Select points on invisible 9
�� A%=0 � D%
�-�:X%=�(480)+400:Y%=�(900)+100:� �X%,Y%)=8
�1P%(A%,0)=0:P%(A%,1)=X%:P%(A%,2)=Y%:P%(A%,3)=0
�� GCOL0,7:PLOT 69,X%,Y%
��

=�  Initiate chain reaction and loop until run out of puff
�0,7:P%(0,0)=1
"�
,
fin%=�
6� A%=0 � D%
@� P%(A%,0)=0 �
J( � �P%(A%,1),P%(A%,2))<>8 P%(A%,0)=1
T�
^C � P%(A%,3)<80 ȏ P%(A%,1),P%(A%,2),P%(A%,3):P%(A%,3)+=1:fin%=�
h�
r�
|
� fin%
�
��0,29);
��
�

00000000  0d 00 0a 1a f4 20 20 43  6c 6f 75 64 39 20 62 79  |.....  Cloud9 by|
00000010  20 52 2e 57 2e 4a 65 66  66 73 0d 00 14 05 f4 0d  | R.W.Jeffs......|
00000020  00 1e 21 f4 20 20 41 63  6f 72 6e 20 55 73 65 72  |..!.  Acorn User|
00000030  20 43 6c 6f 75 64 20 43  68 61 6c 6c 65 6e 67 65  | Cloud Challenge|
00000040  0d 00 28 04 0d 00 32 09  eb 20 39 3a 87 0d 00 3c  |..(...2.. 9:...<|
00000050  2d 44 25 3d 32 30 30 3a  de 20 50 25 28 44 25 2c  |-D%=200:. P%(D%,|
00000060  33 29 3a f4 20 20 53 74  61 74 75 73 2c 20 58 2c  |3):.  Status, X,|
00000070  20 59 2c 20 72 61 64 69  75 73 0d 00 46 04 0d 00  | Y, radius..F...|
00000080  50 17 f4 20 20 44 72 61  77 20 69 6e 76 69 73 69  |P..  Draw invisi|
00000090  62 6c 65 20 39 0d 00 5a  13 ef 20 31 39 2c 38 2c  |ble 9..Z.. 19,8,|
000000a0  31 36 2c 30 2c 30 2c 30  0d 00 64 08 e6 30 2c 38  |16,0,0,0..d..0,8|
000000b0  0d 00 6e 10 e3 20 41 25  3d 30 20 b8 20 33 35 39  |..n.. A%=0 . 359|
000000c0  0d 00 78 2d c8 8f c8 90  20 b5 28 b2 28 41 25 29  |..x-.... .(.(A%)|
000000d0  29 2a 32 30 30 2b 36 34  30 2c 9b 28 b2 28 41 25  |)*200+640,.(.(A%|
000000e0  29 29 2a 32 30 30 2b 37  34 30 2c 34 30 0d 00 82  |))*200+740,40...|
000000f0  05 ed 0d 00 8c 14 58 3d  38 34 33 3a 59 3d 37 34  |......X=843:Y=74|
00000100  30 3a 58 56 3d 30 0d 00  96 10 e3 20 41 25 3d 31  |0:XV=0..... A%=1|
00000110  20 b8 20 31 35 30 0d 00  a0 0f c8 8f c8 90 20 58  | . 150........ X|
00000120  2c 59 2c 34 30 0d 00 aa  16 58 2b 3d 58 56 3a 59  |,Y,40....X+=XV:Y|
00000130  2d 3d 34 3a 58 56 2d 3d  2e 30 32 0d 00 b4 05 ed  |-=4:XV-=.02.....|
00000140  0d 00 be 04 0d 00 c8 23  f4 20 20 53 65 6c 65 63  |.......#.  Selec|
00000150  74 20 70 6f 69 6e 74 73  20 6f 6e 20 69 6e 76 69  |t points on invi|
00000160  73 69 62 6c 65 20 39 0d  00 d2 0f e3 20 41 25 3d  |sible 9..... A%=|
00000170  30 20 b8 20 44 25 0d 00  dc 2d f5 3a 58 25 3d b3  |0 . D%...-.:X%=.|
00000180  28 34 38 30 29 2b 34 30  30 3a 59 25 3d b3 28 39  |(480)+400:Y%=.(9|
00000190  30 30 29 2b 31 30 30 3a  fd 20 b0 58 25 2c 59 25  |00)+100:. .X%,Y%|
000001a0  29 3d 38 0d 00 e6 31 50  25 28 41 25 2c 30 29 3d  |)=8...1P%(A%,0)=|
000001b0  30 3a 50 25 28 41 25 2c  31 29 3d 58 25 3a 50 25  |0:P%(A%,1)=X%:P%|
000001c0  28 41 25 2c 32 29 3d 59  25 3a 50 25 28 41 25 2c  |(A%,2)=Y%:P%(A%,|
000001d0  33 29 3d 30 0d 00 f0 1b  f4 20 47 43 4f 4c 30 2c  |3)=0..... GCOL0,|
000001e0  37 3a 50 4c 4f 54 20 36  39 2c 58 25 2c 59 25 0d  |7:PLOT 69,X%,Y%.|
000001f0  00 fa 05 ed 0d 01 04 04  0d 01 0e 3d f4 20 20 49  |...........=.  I|
00000200  6e 69 74 69 61 74 65 20  63 68 61 69 6e 20 72 65  |nitiate chain re|
00000210  61 63 74 69 6f 6e 20 61  6e 64 20 6c 6f 6f 70 20  |action and loop |
00000220  75 6e 74 69 6c 20 72 75  6e 20 6f 75 74 20 6f 66  |until run out of|
00000230  20 70 75 66 66 0d 01 18  12 e6 30 2c 37 3a 50 25  | puff.....0,7:P%|
00000240  28 30 2c 30 29 3d 31 0d  01 22 05 f5 0d 01 2c 0a  |(0,0)=1.."....,.|
00000250  66 69 6e 25 3d b9 0d 01  36 0f e3 20 41 25 3d 30  |fin%=...6.. A%=0|
00000260  20 b8 20 44 25 0d 01 40  12 e7 20 50 25 28 41 25  | . D%..@.. P%(A%|
00000270  2c 30 29 3d 30 20 8c 0d  01 4a 28 20 e7 20 b0 50  |,0)=0 ...J( . .P|
00000280  25 28 41 25 2c 31 29 2c  50 25 28 41 25 2c 32 29  |%(A%,1),P%(A%,2)|
00000290  29 3c 3e 38 20 50 25 28  41 25 2c 30 29 3d 31 0d  |)<>8 P%(A%,0)=1.|
000002a0  01 54 05 cc 0d 01 5e 43  20 e7 20 50 25 28 41 25  |.T....^C . P%(A%|
000002b0  2c 33 29 3c 38 30 20 c8  8f 20 50 25 28 41 25 2c  |,3)<80 .. P%(A%,|
000002c0  31 29 2c 50 25 28 41 25  2c 32 29 2c 50 25 28 41  |1),P%(A%,2),P%(A|
000002d0  25 2c 33 29 3a 50 25 28  41 25 2c 33 29 2b 3d 31  |%,3):P%(A%,3)+=1|
000002e0  3a 66 69 6e 25 3d a3 0d  01 68 05 cd 0d 01 72 05  |:fin%=...h....r.|
000002f0  ed 0d 01 7c 0a fd 20 66  69 6e 25 0d 01 86 04 0d  |...|.. fin%.....|
00000300  01 90 0c f1 8a 30 2c 32  39 29 3b 0d 01 9a 05 e0  |.....0,29);.....|
00000310  0d ff                                             |..|
00000312

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .