� 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