� Fireworks
� By Andrew Sage
� (c) Electron User
(%*KEY1 46|M.8|M200|M1|M.7|M20|MY|M
2$*KEY2 60|M1|M50|M1|M1.1|M15|MN|M
<%*KEY3 50|M1|M100|M2.5|M1|M10|MN|M
F%*KEY4 15|M1|M150|M0.4|M1|M13|MY|M
P"*KEY5 40|M1|M50|M1|M2|M12|MN|M
Z#*KEY6 80|M2|M100|M4|M2|M14|MY|M
dA=�(-�)
n� 6
x$� �0,5);"Up Velocity (1-200)";UV
�2� �0,7);"Across Velocity Increase (.1 - 5)";AC
�%� �0,9);"Length of ray (5-50)";LE
�!� �0,11);"Gravity (.1-10)";GR
�.� �0,13);"Up velocity decrease (0-50)";GR1
�%� �0,15);"No. of Rays (5-200)";NR
�&� �0,17);"Colour Change (Y/N)";CO$
�� 2
�N=0
�U=UV
�A=0
��
�
�RAY(A,U)
�
A=A+AC

U=U-GR1

	N=N+1


� N>NR

"N=0

,U=UV

6A=0

@�

J
�RAY(A,U)

T
A=A-AC

^U=U-GR1

h	N=N+1

r
� N>NR

|C=2

��

�&� C=1 � 19,15,0;0; � � 19,C-1,0;0;

�*� CO$="Y" � 19,C,�(7);0; � � 19,C,3;0;

�	C=C+1

�� C=16 C=1

�� 0

�� �RAY(A,U)

�	X=640

�	Y=300

�Y=0

�	� X,Y

�C=�(15)

�	CO%=0
�
	X=X+A

U=U-GR
&	Y=Y+U
0	C=C+1
:� C=16 C=1
D	� 0,C
N	� X,Y
X
CO%=CO%+1
b"� CO%>=LE � X>1279 � X<0 � Y<0
l�
�

00000000  0d 00 0a 0f f4 20 46 69  72 65 77 6f 72 6b 73 0d  |..... Fireworks.|
00000010  00 14 14 f4 20 42 79 20  41 6e 64 72 65 77 20 53  |.... By Andrew S|
00000020  61 67 65 0d 00 1e 17 f4  20 28 63 29 20 45 6c 65  |age..... (c) Ele|
00000030  63 74 72 6f 6e 20 55 73  65 72 0d 00 28 25 2a 4b  |ctron User..(%*K|
00000040  45 59 31 20 34 36 7c 4d  2e 38 7c 4d 32 30 30 7c  |EY1 46|M.8|M200||
00000050  4d 31 7c 4d 2e 37 7c 4d  32 30 7c 4d 59 7c 4d 0d  |M1|M.7|M20|MY|M.|
00000060  00 32 24 2a 4b 45 59 32  20 36 30 7c 4d 31 7c 4d  |.2$*KEY2 60|M1|M|
00000070  35 30 7c 4d 31 7c 4d 31  2e 31 7c 4d 31 35 7c 4d  |50|M1|M1.1|M15|M|
00000080  4e 7c 4d 0d 00 3c 25 2a  4b 45 59 33 20 35 30 7c  |N|M..<%*KEY3 50||
00000090  4d 31 7c 4d 31 30 30 7c  4d 32 2e 35 7c 4d 31 7c  |M1|M100|M2.5|M1||
000000a0  4d 31 30 7c 4d 4e 7c 4d  0d 00 46 25 2a 4b 45 59  |M10|MN|M..F%*KEY|
000000b0  34 20 31 35 7c 4d 31 7c  4d 31 35 30 7c 4d 30 2e  |4 15|M1|M150|M0.|
000000c0  34 7c 4d 31 7c 4d 31 33  7c 4d 59 7c 4d 0d 00 50  |4|M1|M13|MY|M..P|
000000d0  22 2a 4b 45 59 35 20 34  30 7c 4d 31 7c 4d 35 30  |"*KEY5 40|M1|M50|
000000e0  7c 4d 31 7c 4d 32 7c 4d  31 32 7c 4d 4e 7c 4d 0d  ||M1|M2|M12|MN|M.|
000000f0  00 5a 23 2a 4b 45 59 36  20 38 30 7c 4d 32 7c 4d  |.Z#*KEY6 80|M2|M|
00000100  31 30 30 7c 4d 34 7c 4d  32 7c 4d 31 34 7c 4d 59  |100|M4|M2|M14|MY|
00000110  7c 4d 0d 00 64 0b 41 3d  b3 28 2d 91 29 0d 00 6e  ||M..d.A=.(-.)..n|
00000120  07 eb 20 36 0d 00 78 24  e8 20 8a 30 2c 35 29 3b  |.. 6..x$. .0,5);|
00000130  22 55 70 20 56 65 6c 6f  63 69 74 79 20 28 31 2d  |"Up Velocity (1-|
00000140  32 30 30 29 22 3b 55 56  0d 00 82 32 e8 20 8a 30  |200)";UV...2. .0|
00000150  2c 37 29 3b 22 41 63 72  6f 73 73 20 56 65 6c 6f  |,7);"Across Velo|
00000160  63 69 74 79 20 49 6e 63  72 65 61 73 65 20 28 2e  |city Increase (.|
00000170  31 20 2d 20 35 29 22 3b  41 43 0d 00 8c 25 e8 20  |1 - 5)";AC...%. |
00000180  8a 30 2c 39 29 3b 22 4c  65 6e 67 74 68 20 6f 66  |.0,9);"Length of|
00000190  20 72 61 79 20 28 35 2d  35 30 29 22 3b 4c 45 0d  | ray (5-50)";LE.|
000001a0  00 96 21 e8 20 8a 30 2c  31 31 29 3b 22 47 72 61  |..!. .0,11);"Gra|
000001b0  76 69 74 79 20 28 2e 31  2d 31 30 29 22 3b 47 52  |vity (.1-10)";GR|
000001c0  0d 00 a0 2e e8 20 8a 30  2c 31 33 29 3b 22 55 70  |..... .0,13);"Up|
000001d0  20 76 65 6c 6f 63 69 74  79 20 64 65 63 72 65 61  | velocity decrea|
000001e0  73 65 20 28 30 2d 35 30  29 22 3b 47 52 31 0d 00  |se (0-50)";GR1..|
000001f0  aa 25 e8 20 8a 30 2c 31  35 29 3b 22 4e 6f 2e 20  |.%. .0,15);"No. |
00000200  6f 66 20 52 61 79 73 20  28 35 2d 32 30 30 29 22  |of Rays (5-200)"|
00000210  3b 4e 52 0d 00 b4 26 e8  20 8a 30 2c 31 37 29 3b  |;NR...&. .0,17);|
00000220  22 43 6f 6c 6f 75 72 20  43 68 61 6e 67 65 20 28  |"Colour Change (|
00000230  59 2f 4e 29 22 3b 43 4f  24 0d 00 be 07 eb 20 32  |Y/N)";CO$..... 2|
00000240  0d 00 c8 07 4e 3d 30 0d  00 d2 08 55 3d 55 56 0d  |....N=0....U=UV.|
00000250  00 dc 07 41 3d 30 0d 00  e6 05 f5 0d 00 f0 0d f2  |...A=0..........|
00000260  52 41 59 28 41 2c 55 29  0d 00 fa 0a 41 3d 41 2b  |RAY(A,U)....A=A+|
00000270  41 43 0d 01 04 0b 55 3d  55 2d 47 52 31 0d 01 0e  |AC....U=U-GR1...|
00000280  09 4e 3d 4e 2b 31 0d 01  18 0a fd 20 4e 3e 4e 52  |.N=N+1..... N>NR|
00000290  0d 01 22 07 4e 3d 30 0d  01 2c 08 55 3d 55 56 0d  |..".N=0..,.U=UV.|
000002a0  01 36 07 41 3d 30 0d 01  40 05 f5 0d 01 4a 0d f2  |.6.A=0..@....J..|
000002b0  52 41 59 28 41 2c 55 29  0d 01 54 0a 41 3d 41 2d  |RAY(A,U)..T.A=A-|
000002c0  41 43 0d 01 5e 0b 55 3d  55 2d 47 52 31 0d 01 68  |AC..^.U=U-GR1..h|
000002d0  09 4e 3d 4e 2b 31 0d 01  72 0a fd 20 4e 3e 4e 52  |.N=N+1..r.. N>NR|
000002e0  0d 01 7c 07 43 3d 32 0d  01 86 05 f5 0d 01 90 26  |..|.C=2........&|
000002f0  e7 20 43 3d 31 20 ef 20  31 39 2c 31 35 2c 30 3b  |. C=1 . 19,15,0;|
00000300  30 3b 20 8b 20 ef 20 31  39 2c 43 2d 31 2c 30 3b  |0; . . 19,C-1,0;|
00000310  30 3b 0d 01 9a 2a e7 20  43 4f 24 3d 22 59 22 20  |0;...*. CO$="Y" |
00000320  ef 20 31 39 2c 43 2c b3  28 37 29 3b 30 3b 20 8b  |. 19,C,.(7);0; .|
00000330  20 ef 20 31 39 2c 43 2c  33 3b 30 3b 0d 01 a4 09  | . 19,C,3;0;....|
00000340  43 3d 43 2b 31 0d 01 ae  0e e7 20 43 3d 31 36 20  |C=C+1..... C=16 |
00000350  43 3d 31 0d 01 b8 07 fd  20 30 0d 01 c2 0f dd 20  |C=1..... 0..... |
00000360  f2 52 41 59 28 41 2c 55  29 0d 01 cc 09 58 3d 36  |.RAY(A,U)....X=6|
00000370  34 30 0d 01 d6 09 59 3d  33 30 30 0d 01 e0 07 59  |40....Y=300....Y|
00000380  3d 30 0d 01 ea 09 ec 20  58 2c 59 0d 01 f4 0b 43  |=0..... X,Y....C|
00000390  3d b3 28 31 35 29 0d 01  fe 09 43 4f 25 3d 30 0d  |=.(15)....CO%=0.|
000003a0  02 08 05 f5 0d 02 12 09  58 3d 58 2b 41 0d 02 1c  |........X=X+A...|
000003b0  0a 55 3d 55 2d 47 52 0d  02 26 09 59 3d 59 2b 55  |.U=U-GR..&.Y=Y+U|
000003c0  0d 02 30 09 43 3d 43 2b  31 0d 02 3a 0e e7 20 43  |..0.C=C+1..:.. C|
000003d0  3d 31 36 20 43 3d 31 0d  02 44 09 e6 20 30 2c 43  |=16 C=1..D.. 0,C|
000003e0  0d 02 4e 09 df 20 58 2c  59 0d 02 58 0d 43 4f 25  |..N.. X,Y..X.CO%|
000003f0  3d 43 4f 25 2b 31 0d 02  62 22 fd 20 43 4f 25 3e  |=CO%+1..b". CO%>|
00000400  3d 4c 45 20 84 20 58 3e  31 32 37 39 20 84 20 58  |=LE . X>1279 . X|
00000410  3c 30 20 84 20 59 3c 30  0d 02 6c 05 e1 0d ff     |<0 . Y<0..l....|
0000041f