Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape11a_acorn_eu_1990_may.wav » SPIRAL

SPIRAL

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 tapes » Electron_User » Electron_User_tape11a_acorn_eu_1990_may.wav
Filename: SPIRAL
Read OK:
File size: 02BA bytes
Load address: 2000
Exec address: 1900
Duplicates

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

File contents
   10REM Spiral
   20REM by Stephen Bennett
   30REM (c) Electron User
   40OSCLI"FX178"
   50A%=163:X%=128:Y%=1
   60X%=128
   70Y%=1
   80CALL&FFF4
   90DIMsin(360),cos(360)
  100FORA%=0 TO 360 STEP 4
  110sin(A%)=SIN(RAD(A%))
  120cos(A%)=COS(RAD(A%))
  130NEXT
  140MODE2
  150VDU23,1,0;0;0;0;
  160?&FE07=&B0
  170VDU29,640;512;
  180C%=0
  190FORB%=928TO824STEP-8
  200IF C%=0 OR C%=8 C%=C%+1
  210R=B%
  220MOVE640,B%
  230GCOL0,C%
  240C%=C%+1
  250A%=0
  260REPEAT
  270A%=(A%+4) MOD 360
  280R=R-(112/90)
  290DRAW sin(A%)*R,cos(A%)*R
  300UNTILR<2
  310NEXT
  320A%=23
  330?&FE07=?&282
  340D%=-1
  350S%=0
  360REPEAT 
  370IF INKEY-98 D%=-1 ELSE IF INKEY-67 D%=1
  380IF INKEY-73 AND S%>0 S%=S%-4 ELSE IF INKEY-105 AND S%<500 S%=S%+4
  390IF A%=16 OR A%=24 A%=A%+D%
  400VDU19,A%,0;0;19,A%-8,1;0;
  410A%=A%+D%
  420IF A%<16 A%=A%+16 ELSE IF A%>31 A%=A%-16
  430FORT%=0TOS%
  440NEXT
  450UNTIL0

� Spiral
� by Stephen Bennett
� (c) Electron User
(�"FX178"
2A%=163:X%=128:Y%=1
<
X%=128
FY%=1
P
�&FFF4
Z�sin(360),cos(360)
d�A%=0 � 360 � 4
nsin(A%)=�(�(A%))
xcos(A%)=�(�(A%))
��
��2
��23,1,0;0;0;0;
�?&FE07=&B0
��29,640;512;
�C%=0
��B%=928�824�-8
�� C%=0 � C%=8 C%=C%+1
�R=B%
��640,B%
�	�0,C%
�C%=C%+1
�A%=0
�
A%=(A%+4) � 360
R=R-(112/90)
"� sin(A%)*R,cos(A%)*R
,�R<2
6�
@	A%=23
J?&FE07=?&282
T	D%=-1
^S%=0
h� 
r� �-98 D%=-1 � � �-67 D%=1
|4� �-73 � S%>0 S%=S%-4 � � �-105 � S%<500 S%=S%+4
�� A%=16 � A%=24 A%=A%+D%
��19,A%,0;0;19,A%-8,1;0;
�A%=A%+D%
�'� A%<16 A%=A%+16 � � A%>31 A%=A%-16
��T%=0�S%
��
��0
�
00000000  0d 00 0a 0c f4 20 53 70  69 72 61 6c 0d 00 14 18  |..... Spiral....|
00000010  f4 20 62 79 20 53 74 65  70 68 65 6e 20 42 65 6e  |. by Stephen Ben|
00000020  6e 65 74 74 0d 00 1e 17  f4 20 28 63 29 20 45 6c  |nett..... (c) El|
00000030  65 63 74 72 6f 6e 20 55  73 65 72 0d 00 28 0c ff  |ectron User..(..|
00000040  22 46 58 31 37 38 22 0d  00 32 16 41 25 3d 31 36  |"FX178"..2.A%=16|
00000050  33 3a 58 25 3d 31 32 38  3a 59 25 3d 31 0d 00 3c  |3:X%=128:Y%=1..<|
00000060  0a 58 25 3d 31 32 38 0d  00 46 08 59 25 3d 31 0d  |.X%=128..F.Y%=1.|
00000070  00 50 0a d6 26 46 46 46  34 0d 00 5a 16 de 73 69  |.P..&FFF4..Z..si|
00000080  6e 28 33 36 30 29 2c 63  6f 73 28 33 36 30 29 0d  |n(360),cos(360).|
00000090  00 64 13 e3 41 25 3d 30  20 b8 20 33 36 30 20 88  |.d..A%=0 . 360 .|
000000a0  20 34 0d 00 6e 14 73 69  6e 28 41 25 29 3d b5 28  | 4..n.sin(A%)=.(|
000000b0  b2 28 41 25 29 29 0d 00  78 14 63 6f 73 28 41 25  |.(A%))..x.cos(A%|
000000c0  29 3d 9b 28 b2 28 41 25  29 29 0d 00 82 05 ed 0d  |)=.(.(A%))......|
000000d0  00 8c 06 eb 32 0d 00 96  12 ef 32 33 2c 31 2c 30  |....2.....23,1,0|
000000e0  3b 30 3b 30 3b 30 3b 0d  00 a0 0e 3f 26 46 45 30  |;0;0;0;....?&FE0|
000000f0  37 3d 26 42 30 0d 00 aa  10 ef 32 39 2c 36 34 30  |7=&B0.....29,640|
00000100  3b 35 31 32 3b 0d 00 b4  08 43 25 3d 30 0d 00 be  |;512;....C%=0...|
00000110  12 e3 42 25 3d 39 32 38  b8 38 32 34 88 2d 38 0d  |..B%=928.824.-8.|
00000120  00 c8 19 e7 20 43 25 3d  30 20 84 20 43 25 3d 38  |.... C%=0 . C%=8|
00000130  20 43 25 3d 43 25 2b 31  0d 00 d2 08 52 3d 42 25  | C%=C%+1....R=B%|
00000140  0d 00 dc 0b ec 36 34 30  2c 42 25 0d 00 e6 09 e6  |.....640,B%.....|
00000150  30 2c 43 25 0d 00 f0 0b  43 25 3d 43 25 2b 31 0d  |0,C%....C%=C%+1.|
00000160  00 fa 08 41 25 3d 30 0d  01 04 05 f5 0d 01 0e 13  |...A%=0.........|
00000170  41 25 3d 28 41 25 2b 34  29 20 83 20 33 36 30 0d  |A%=(A%+4) . 360.|
00000180  01 18 10 52 3d 52 2d 28  31 31 32 2f 39 30 29 0d  |...R=R-(112/90).|
00000190  01 22 19 df 20 73 69 6e  28 41 25 29 2a 52 2c 63  |.".. sin(A%)*R,c|
000001a0  6f 73 28 41 25 29 2a 52  0d 01 2c 08 fd 52 3c 32  |os(A%)*R..,..R<2|
000001b0  0d 01 36 05 ed 0d 01 40  09 41 25 3d 32 33 0d 01  |..6....@.A%=23..|
000001c0  4a 10 3f 26 46 45 30 37  3d 3f 26 32 38 32 0d 01  |J.?&FE07=?&282..|
000001d0  54 09 44 25 3d 2d 31 0d  01 5e 08 53 25 3d 30 0d  |T.D%=-1..^.S%=0.|
000001e0  01 68 06 f5 20 0d 01 72  1e e7 20 a6 2d 39 38 20  |.h.. ..r.. .-98 |
000001f0  44 25 3d 2d 31 20 8b 20  e7 20 a6 2d 36 37 20 44  |D%=-1 . . .-67 D|
00000200  25 3d 31 0d 01 7c 34 e7  20 a6 2d 37 33 20 80 20  |%=1..|4. .-73 . |
00000210  53 25 3e 30 20 53 25 3d  53 25 2d 34 20 8b 20 e7  |S%>0 S%=S%-4 . .|
00000220  20 a6 2d 31 30 35 20 80  20 53 25 3c 35 30 30 20  | .-105 . S%<500 |
00000230  53 25 3d 53 25 2b 34 0d  01 86 1c e7 20 41 25 3d  |S%=S%+4..... A%=|
00000240  31 36 20 84 20 41 25 3d  32 34 20 41 25 3d 41 25  |16 . A%=24 A%=A%|
00000250  2b 44 25 0d 01 90 1b ef  31 39 2c 41 25 2c 30 3b  |+D%.....19,A%,0;|
00000260  30 3b 31 39 2c 41 25 2d  38 2c 31 3b 30 3b 0d 01  |0;19,A%-8,1;0;..|
00000270  9a 0c 41 25 3d 41 25 2b  44 25 0d 01 a4 27 e7 20  |..A%=A%+D%...'. |
00000280  41 25 3c 31 36 20 41 25  3d 41 25 2b 31 36 20 8b  |A%<16 A%=A%+16 .|
00000290  20 e7 20 41 25 3e 33 31  20 41 25 3d 41 25 2d 31  | . A%>31 A%=A%-1|
000002a0  36 0d 01 ae 0c e3 54 25  3d 30 b8 53 25 0d 01 b8  |6.....T%=0.S%...|
000002b0  05 ed 0d 01 c2 06 fd 30  0d ff                    |.......0..|
000002ba
SPIRAL.m0
SPIRAL.m1
SPIRAL.m2
SPIRAL.m4
SPIRAL.m5