Home » Archimedes archive » Acorn User » AU 1997-03 B.adf » Regulars » StarInfo/Hyde/!Spiral/!Run
StarInfo/Hyde/!Spiral/!Run
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-03 B.adf » Regulars |
| Filename: | StarInfo/Hyde/!Spiral/!Run |
| Read OK: | ✔ |
| File size: | 0416 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE12:OFF:ON ERROR PRINT REPORT$;ERL:END
20c%=0:l=0:r=9:g=2:b=3:ra=0:x=640:y=512:st=1
30z=0:t1%=10:t2%=10:k=0.02:s=0.9:cyc%=0
40
50PROCImage
60r=9:g=2:b=3:REPEAT
70PROCCycle
80IF INKEY-10 THEN PROCColours
90IF INKEY-11 THEN PROCCyc:PROCDir:WAIT:WAIT
100IF INKEY-12 THEN PROCDir:WAIT:WAIT
110IF INKEY-58 THEN st+=1:WAIT:WAIT:IF st=16 THEN st=15
120IF INKEY-42 THEN st-=1:WAIT:WAIT:IF st=0 THEN st=1
130IF INKEY-74 THEN PROCSave
140c%+=1:WAIT:UNTIL 0
150END
160
170DEFPROCCyc
180IF cyc%=1 THEN cyc%=0:ENDPROC
190IF cyc%=0 THEN cyc%=1:ENDPROC
200
210DEFPROCDir:GCOL11,7:RECTANGLEFILL 0,0,1279,1023:ENDPROC
220
230DEFPROCImage:COLOUR8:PRINTTAB(15,10);"Please Wait..."
240PROCCycle:REPEAT
250FOR d=1 TO 200 STEP s:a=ra*SINRAD(d*9):b=ra*COSRAD(d*9)
260FOR j=8 TO 1 STEP -1
270GCOL0,j-c% AND 15:ELLIPSEFILL x+a,y+b,ra/280-j*6,ra/280-j*6:NEXTj
280c%+=1:IF c%=15 THEN c%=0
290ra-=k:NEXT d:k=k*1.8
300UNTIL ra<-800
310
320ENDPROC
330
340DEFPROCColours
350r=RND(10):g=RND(10):b=RND(10)
360t1%=RND(100):t2%=RND(100)
370ENDPROC
380
390DEFPROCCycle
400FOR c1%=8-c% TO 23-c% STEP st
410IF cyc%=0 THEN e%=c1%+c% ELSE e%=c1%-c%
420COLOUR c1%,e%<<r,e%-t1%<<g,e%-t2%<<b
430NEXT
440ENDPROC
450
460DEF PROCSave
470out%=OPENOUT("Vars")
480BPUT#out%,"red="+STR$(r)
490BPUT#out%,"green="+STR$(g)
500BPUT#out%,"blue="+STR$(b)
510BPUT#out%,"tint1="+STR$(t1%)
520BPUT#out%,"tint2="+STR$(t2%)
530CLOSE#out%
540ENDPROC
�12:�:� � � �$;�:�
.c%=0:l=0:r=9:g=2:b=3:ra=0:x=640:y=512:st=1
)z=0:t1%=10:t2%=10:k=0.02:s=0.9:cyc%=0
(
2
�Image
<r=9:g=2:b=3:�
F
�Cycle
P� �-10 � �Colours
Z � �-11 � �Cyc:�Dir:Ȗ:Ȗ
d� �-12 � �Dir:Ȗ:Ȗ
n(� �-58 � st+=1:Ȗ:Ȗ:� st=16 � st=15
x&� �-42 � st-=1:Ȗ:Ȗ:� st=0 � st=1
�� �-74 � �Save
�c%+=1:Ȗ:� 0
��
�
� ��Cyc
�� cyc%=1 � cyc%=0:�
�� cyc%=0 � cyc%=1:�
�
�$��Dir:�11,7:ȓȐ 0,0,1279,1023:�
�
�(��Image:�8:�15,10);"Please Wait..."
� �Cycle:�
�-� d=1 � 200 � s:a=ra*��(d*9):b=ra*��(d*9)
� j=8 � 1 � -1
6�0,j-c% � 15:ȝȐ x+a,y+b,ra/280-j*6,ra/280-j*6:�j
c%+=1:� c%=15 � c%=0
"ra-=k:� d:k=k*1.8
,
� ra<-800
6
@�
J
T
��Colours
^r=�(10):g=�(10):b=�(10)
ht1%=�(100):t2%=�(100)
r�
|
� ��Cycle
�� c1%=8-c% � 23-c% � st
�$� cyc%=0 � e%=c1%+c% � e%=c1%-c%
�#� c1%,e%<<r,e%-t1%<<g,e%-t2%<<b
��
��
�
� � �Save
�out%=�("Vars")
��#out%,"red="+�(r)
��#out%,"green="+�(g)
��#out%,"blue="+�(b)
��#out%,"tint1="+�(t1%)
�#out%,"tint2="+�(t2%)
�#out%
�
� 00000000 0d 00 0a 16 eb 31 32 3a 87 3a ee 20 85 20 f1 20 |.....12:.:. . . |
00000010 f6 24 3b 9e 3a e0 0d 00 14 2e 63 25 3d 30 3a 6c |.$;.:.....c%=0:l|
00000020 3d 30 3a 72 3d 39 3a 67 3d 32 3a 62 3d 33 3a 72 |=0:r=9:g=2:b=3:r|
00000030 61 3d 30 3a 78 3d 36 34 30 3a 79 3d 35 31 32 3a |a=0:x=640:y=512:|
00000040 73 74 3d 31 0d 00 1e 29 7a 3d 30 3a 74 31 25 3d |st=1...)z=0:t1%=|
00000050 31 30 3a 74 32 25 3d 31 30 3a 6b 3d 30 2e 30 32 |10:t2%=10:k=0.02|
00000060 3a 73 3d 30 2e 39 3a 63 79 63 25 3d 30 0d 00 28 |:s=0.9:cyc%=0..(|
00000070 04 0d 00 32 0a f2 49 6d 61 67 65 0d 00 3c 11 72 |...2..Image..<.r|
00000080 3d 39 3a 67 3d 32 3a 62 3d 33 3a f5 0d 00 46 0a |=9:g=2:b=3:...F.|
00000090 f2 43 79 63 6c 65 0d 00 50 15 e7 20 a6 2d 31 30 |.Cycle..P.. .-10|
000000a0 20 8c 20 f2 43 6f 6c 6f 75 72 73 0d 00 5a 1c e7 | . .Colours..Z..|
000000b0 20 a6 2d 31 31 20 8c 20 f2 43 79 63 3a f2 44 69 | .-11 . .Cyc:.Di|
000000c0 72 3a c8 96 3a c8 96 0d 00 64 17 e7 20 a6 2d 31 |r:..:....d.. .-1|
000000d0 32 20 8c 20 f2 44 69 72 3a c8 96 3a c8 96 0d 00 |2 . .Dir:..:....|
000000e0 6e 28 e7 20 a6 2d 35 38 20 8c 20 73 74 2b 3d 31 |n(. .-58 . st+=1|
000000f0 3a c8 96 3a c8 96 3a e7 20 73 74 3d 31 36 20 8c |:..:..:. st=16 .|
00000100 20 73 74 3d 31 35 0d 00 78 26 e7 20 a6 2d 34 32 | st=15..x&. .-42|
00000110 20 8c 20 73 74 2d 3d 31 3a c8 96 3a c8 96 3a e7 | . st-=1:..:..:.|
00000120 20 73 74 3d 30 20 8c 20 73 74 3d 31 0d 00 82 12 | st=0 . st=1....|
00000130 e7 20 a6 2d 37 34 20 8c 20 f2 53 61 76 65 0d 00 |. .-74 . .Save..|
00000140 8c 10 63 25 2b 3d 31 3a c8 96 3a fd 20 30 0d 00 |..c%+=1:..:. 0..|
00000150 96 05 e0 0d 00 a0 04 0d 00 aa 09 dd f2 43 79 63 |.............Cyc|
00000160 0d 00 b4 17 e7 20 63 79 63 25 3d 31 20 8c 20 63 |..... cyc%=1 . c|
00000170 79 63 25 3d 30 3a e1 0d 00 be 17 e7 20 63 79 63 |yc%=0:...... cyc|
00000180 25 3d 30 20 8c 20 63 79 63 25 3d 31 3a e1 0d 00 |%=0 . cyc%=1:...|
00000190 c8 04 0d 00 d2 24 dd f2 44 69 72 3a e6 31 31 2c |.....$..Dir:.11,|
000001a0 37 3a c8 93 c8 90 20 30 2c 30 2c 31 32 37 39 2c |7:.... 0,0,1279,|
000001b0 31 30 32 33 3a e1 0d 00 dc 04 0d 00 e6 28 dd f2 |1023:........(..|
000001c0 49 6d 61 67 65 3a fb 38 3a f1 8a 31 35 2c 31 30 |Image:.8:..15,10|
000001d0 29 3b 22 50 6c 65 61 73 65 20 57 61 69 74 2e 2e |);"Please Wait..|
000001e0 2e 22 0d 00 f0 0c f2 43 79 63 6c 65 3a f5 0d 00 |.".....Cycle:...|
000001f0 fa 2d e3 20 64 3d 31 20 b8 20 32 30 30 20 88 20 |.-. d=1 . 200 . |
00000200 73 3a 61 3d 72 61 2a b5 b2 28 64 2a 39 29 3a 62 |s:a=ra*..(d*9):b|
00000210 3d 72 61 2a 9b b2 28 64 2a 39 29 0d 01 04 12 e3 |=ra*..(d*9).....|
00000220 20 6a 3d 38 20 b8 20 31 20 88 20 2d 31 0d 01 0e | j=8 . 1 . -1...|
00000230 36 e6 30 2c 6a 2d 63 25 20 80 20 31 35 3a c8 9d |6.0,j-c% . 15:..|
00000240 c8 90 20 78 2b 61 2c 79 2b 62 2c 72 61 2f 32 38 |.. x+a,y+b,ra/28|
00000250 30 2d 6a 2a 36 2c 72 61 2f 32 38 30 2d 6a 2a 36 |0-j*6,ra/280-j*6|
00000260 3a ed 6a 0d 01 18 18 63 25 2b 3d 31 3a e7 20 63 |:.j....c%+=1:. c|
00000270 25 3d 31 35 20 8c 20 63 25 3d 30 0d 01 22 15 72 |%=15 . c%=0..".r|
00000280 61 2d 3d 6b 3a ed 20 64 3a 6b 3d 6b 2a 31 2e 38 |a-=k:. d:k=k*1.8|
00000290 0d 01 2c 0d fd 20 72 61 3c 2d 38 30 30 0d 01 36 |..,.. ra<-800..6|
000002a0 04 0d 01 40 05 e1 0d 01 4a 04 0d 01 54 0d dd f2 |...@....J...T...|
000002b0 43 6f 6c 6f 75 72 73 0d 01 5e 1b 72 3d b3 28 31 |Colours..^.r=.(1|
000002c0 30 29 3a 67 3d b3 28 31 30 29 3a 62 3d b3 28 31 |0):g=.(10):b=.(1|
000002d0 30 29 0d 01 68 19 74 31 25 3d b3 28 31 30 30 29 |0)..h.t1%=.(100)|
000002e0 3a 74 32 25 3d b3 28 31 30 30 29 0d 01 72 05 e1 |:t2%=.(100)..r..|
000002f0 0d 01 7c 04 0d 01 86 0b dd f2 43 79 63 6c 65 0d |..|.......Cycle.|
00000300 01 90 1b e3 20 63 31 25 3d 38 2d 63 25 20 b8 20 |.... c1%=8-c% . |
00000310 32 33 2d 63 25 20 88 20 73 74 0d 01 9a 24 e7 20 |23-c% . st...$. |
00000320 63 79 63 25 3d 30 20 8c 20 65 25 3d 63 31 25 2b |cyc%=0 . e%=c1%+|
00000330 63 25 20 8b 20 65 25 3d 63 31 25 2d 63 25 0d 01 |c% . e%=c1%-c%..|
00000340 a4 23 fb 20 63 31 25 2c 65 25 3c 3c 72 2c 65 25 |.#. c1%,e%<<r,e%|
00000350 2d 74 31 25 3c 3c 67 2c 65 25 2d 74 32 25 3c 3c |-t1%<<g,e%-t2%<<|
00000360 62 0d 01 ae 05 ed 0d 01 b8 05 e1 0d 01 c2 04 0d |b...............|
00000370 01 cc 0b dd 20 f2 53 61 76 65 0d 01 d6 12 6f 75 |.... .Save....ou|
00000380 74 25 3d ae 28 22 56 61 72 73 22 29 0d 01 e0 16 |t%=.("Vars")....|
00000390 d5 23 6f 75 74 25 2c 22 72 65 64 3d 22 2b c3 28 |.#out%,"red="+.(|
000003a0 72 29 0d 01 ea 18 d5 23 6f 75 74 25 2c 22 67 72 |r).....#out%,"gr|
000003b0 65 65 6e 3d 22 2b c3 28 67 29 0d 01 f4 17 d5 23 |een="+.(g).....#|
000003c0 6f 75 74 25 2c 22 62 6c 75 65 3d 22 2b c3 28 62 |out%,"blue="+.(b|
000003d0 29 0d 01 fe 1a d5 23 6f 75 74 25 2c 22 74 69 6e |).....#out%,"tin|
000003e0 74 31 3d 22 2b c3 28 74 31 25 29 0d 02 08 1a d5 |t1="+.(t1%).....|
000003f0 23 6f 75 74 25 2c 22 74 69 6e 74 32 3d 22 2b c3 |#out%,"tint2="+.|
00000400 28 74 32 25 29 0d 02 12 0a d9 23 6f 75 74 25 0d |(t2%).....#out%.|
00000410 02 1c 05 e1 0d ff |......|
00000416 
.