Home » Archimedes archive » Acorn User » AU 1993-08.adf » !StarInfo_StarInfo » EightBit/Vortex

EightBit/Vortex

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 1993-08.adf » !StarInfo_StarInfo
Filename: EightBit/Vortex
Read OK: ✔
File size: 025C bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM     >Vortex (Info5)
   20REM By  Christopher Bassett
   30REM For 8-bit machines
   40REM (c) BAU August 1993
   50:
   60MODE 2
   70VDU 19,15,7;0;
   80c=1
   90FOR d=0 TO 350 STEP 10
  100 x=640+512*SIN(RAD(d))
  110 y=512+512*COS(RAD(d))
  120 dd=d
  130 r=512
  140 MOVE x,y
  150 p=0
  160 REPEAT
  170  p=p+1
  180  GCOL 0,c
  190  DRAW x,y
  200  c=c+1
  210  IF c=15 THEN c=1
  220  x=640+r*SIN(RAD(dd))
  230  y=512+r*COS(RAD(dd))
  240  dd=dd+3
  250  r=r*0.96
  260 UNTIL p=95
  270NEXT
  280GCOL 0,15
  290MOVE 640,1023
  300x=640
  310y=512
  320FOR d=0 TO 360 STEP 10
  330 IF x>645 THEN DRAW 1279,y:MOVE x,y
  340 IF x<635 THEN DRAW 0,y:MOVE x,y
  350 x=640+512*SIN(RAD(d))
  360 y=512+511*COS(RAD(d))
  370 DRAW x,y
  380NEXT
  390*SAVE VortScr 3000 8000
  400END


�     >Vortex (Info5)
� By  Christopher Bassett
� For 8-bit machines
(� (c) BAU August 1993
2:
<� 2
F� 19,15,7;0;
Pc=1
Z� d=0 � 350 � 10
d x=640+512*�(�(d))
n y=512+512*�(�(d))
x	 dd=d
�
 r=512
�
 � x,y
� p=0
� �
�  p=p+1
�  � 0,c
�  � x,y
�  c=c+1
�  � c=15 � c=1
�  x=640+r*�(�(dd))
�  y=512+r*�(�(dd))
�
  dd=dd+3
�  r=r*0.96
 � p=95
�

� 0,15
"� 640,1023
,	x=640
6	y=512
@� d=0 � 360 � 10
J � x>645 � � 1279,y:� x,y
T � x<635 � � 0,y:� x,y
^ x=640+512*�(�(d))
h y=512+511*�(�(d))
r
 � x,y
|�
�*SAVE VortScr 3000 8000
��
�
00000000  0d 00 0a 19 f4 20 20 20  20 20 3e 56 6f 72 74 65  |.....     >Vorte|
00000010  78 20 28 49 6e 66 6f 35  29 0d 00 14 1d f4 20 42  |x (Info5)..... B|
00000020  79 20 20 43 68 72 69 73  74 6f 70 68 65 72 20 42  |y  Christopher B|
00000030  61 73 73 65 74 74 0d 00  1e 18 f4 20 46 6f 72 20  |assett..... For |
00000040  38 2d 62 69 74 20 6d 61  63 68 69 6e 65 73 0d 00  |8-bit machines..|
00000050  28 19 f4 20 28 63 29 20  42 41 55 20 41 75 67 75  |(.. (c) BAU Augu|
00000060  73 74 20 31 39 39 33 0d  00 32 05 3a 0d 00 3c 07  |st 1993..2.:..<.|
00000070  eb 20 32 0d 00 46 10 ef  20 31 39 2c 31 35 2c 37  |. 2..F.. 19,15,7|
00000080  3b 30 3b 0d 00 50 07 63  3d 31 0d 00 5a 14 e3 20  |;0;..P.c=1..Z.. |
00000090  64 3d 30 20 b8 20 33 35  30 20 88 20 31 30 0d 00  |d=0 . 350 . 10..|
000000a0  64 16 20 78 3d 36 34 30  2b 35 31 32 2a b5 28 b2  |d. x=640+512*.(.|
000000b0  28 64 29 29 0d 00 6e 16  20 79 3d 35 31 32 2b 35  |(d))..n. y=512+5|
000000c0  31 32 2a 9b 28 b2 28 64  29 29 0d 00 78 09 20 64  |12*.(.(d))..x. d|
000000d0  64 3d 64 0d 00 82 0a 20  72 3d 35 31 32 0d 00 8c  |d=d.... r=512...|
000000e0  0a 20 ec 20 78 2c 79 0d  00 96 08 20 70 3d 30 0d  |. . x,y.... p=0.|
000000f0  00 a0 06 20 f5 0d 00 aa  0b 20 20 70 3d 70 2b 31  |... .....  p=p+1|
00000100  0d 00 b4 0b 20 20 e6 20  30 2c 63 0d 00 be 0b 20  |....  . 0,c.... |
00000110  20 df 20 78 2c 79 0d 00  c8 0b 20 20 63 3d 63 2b  | . x,y....  c=c+|
00000120  31 0d 00 d2 12 20 20 e7  20 63 3d 31 35 20 8c 20  |1....  . c=15 . |
00000130  63 3d 31 0d 00 dc 16 20  20 78 3d 36 34 30 2b 72  |c=1....  x=640+r|
00000140  2a b5 28 b2 28 64 64 29  29 0d 00 e6 16 20 20 79  |*.(.(dd))....  y|
00000150  3d 35 31 32 2b 72 2a 9b  28 b2 28 64 64 29 29 0d  |=512+r*.(.(dd)).|
00000160  00 f0 0d 20 20 64 64 3d  64 64 2b 33 0d 00 fa 0e  |...  dd=dd+3....|
00000170  20 20 72 3d 72 2a 30 2e  39 36 0d 01 04 0b 20 fd  |  r=r*0.96.... .|
00000180  20 70 3d 39 35 0d 01 0e  05 ed 0d 01 18 0a e6 20  | p=95.......... |
00000190  30 2c 31 35 0d 01 22 0e  ec 20 36 34 30 2c 31 30  |0,15..".. 640,10|
000001a0  32 33 0d 01 2c 09 78 3d  36 34 30 0d 01 36 09 79  |23..,.x=640..6.y|
000001b0  3d 35 31 32 0d 01 40 14  e3 20 64 3d 30 20 b8 20  |=512..@.. d=0 . |
000001c0  33 36 30 20 88 20 31 30  0d 01 4a 1d 20 e7 20 78  |360 . 10..J. . x|
000001d0  3e 36 34 35 20 8c 20 df  20 31 32 37 39 2c 79 3a  |>645 . . 1279,y:|
000001e0  ec 20 78 2c 79 0d 01 54  1a 20 e7 20 78 3c 36 33  |. x,y..T. . x<63|
000001f0  35 20 8c 20 df 20 30 2c  79 3a ec 20 78 2c 79 0d  |5 . . 0,y:. x,y.|
00000200  01 5e 16 20 78 3d 36 34  30 2b 35 31 32 2a b5 28  |.^. x=640+512*.(|
00000210  b2 28 64 29 29 0d 01 68  16 20 79 3d 35 31 32 2b  |.(d))..h. y=512+|
00000220  35 31 31 2a 9b 28 b2 28  64 29 29 0d 01 72 0a 20  |511*.(.(d))..r. |
00000230  df 20 78 2c 79 0d 01 7c  05 ed 0d 01 86 1b 2a 53  |. x,y..|......*S|
00000240  41 56 45 20 56 6f 72 74  53 63 72 20 33 30 30 30  |AVE VortScr 3000|
00000250  20 38 30 30 30 0d 01 90  05 e0 0d ff              | 8000.......|
0000025c

© Dominic Ford 2021–2025.

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