� Basic Screen Swap Rain
	�Init
	�Plot
(�
2
��Init
<� 15
F� 12
P�
Z	�Cols
d�19,0,4,0,0,0
n� x%(25),y%(25),r%(25)
xS=1:T=2
�9� c%=0�25:x%(c%)=�(1200):y%(c%)=�(800):r%(c%)=�(16):�
��
�
��Plot
��
�
� c%=0�25
�*r%(c%)=r%(c%)+1:� r%(c%)>16 � �NewDrop
�,sx%=(800-y%(c%))/60:sy%=(800-y%(c%))/150
�� 3,r%(c%)
�*ȝ x%(c%),y%(c%),r%(c%)*sx%,r%(c%)*sy%
�� c%
��0,8:ȓȐ 0,800,1280,1024
�"ș6,112,S:ș6,113,T:ȔS,T:Ȗ:�
�ȗ v,h,b


� b<>0

�


��NewDrop

")x%(c%)=�(1200):y%(c%)=�(800):r%(c%)=1

,�

6
��Cols

@r%=16*(6�1)

Jg%=8*(1�2)

Tb%=4*(6�4)

^� c%=0 � 15

h� c%,c%*r%,c%*g%,c%*b%

r� c%

|�

�

�

�
�

00000000  0d 00 0a 1c f4 20 42 61  73 69 63 20 53 63 72 65  |..... Basic Scre|
00000010  65 6e 20 53 77 61 70 20  52 61 69 6e 0d 00 14 09  |en Swap Rain....|
00000020  f2 49 6e 69 74 0d 00 1e  09 f2 50 6c 6f 74 0d 00  |.Init.....Plot..|
00000030  28 05 e0 0d 00 32 0a dd  f2 49 6e 69 74 0d 00 3c  |(....2...Init..<|
00000040  08 eb 20 31 35 0d 00 46  08 eb 20 31 32 0d 00 50  |.. 15..F.. 12..P|
00000050  05 87 0d 00 5a 09 f2 43  6f 6c 73 0d 00 64 11 ef  |....Z..Cols..d..|
00000060  31 39 2c 30 2c 34 2c 30  2c 30 2c 30 0d 00 6e 1a  |19,0,4,0,0,0..n.|
00000070  de 20 78 25 28 32 35 29  2c 79 25 28 32 35 29 2c  |. x%(25),y%(25),|
00000080  72 25 28 32 35 29 0d 00  78 0b 53 3d 31 3a 54 3d  |r%(25)..x.S=1:T=|
00000090  32 0d 00 82 39 e3 20 63  25 3d 30 b8 32 35 3a 78  |2...9. c%=0.25:x|
000000a0  25 28 63 25 29 3d b3 28  31 32 30 30 29 3a 79 25  |%(c%)=.(1200):y%|
000000b0  28 63 25 29 3d b3 28 38  30 30 29 3a 72 25 28 63  |(c%)=.(800):r%(c|
000000c0  25 29 3d b3 28 31 36 29  3a ed 0d 00 8c 05 e1 0d  |%)=.(16):.......|
000000d0  00 96 0a dd f2 50 6c 6f  74 0d 00 a0 05 f5 0d 00  |.....Plot.......|
000000e0  aa 0d e3 20 63 25 3d 30  b8 32 35 0d 00 b4 2a 72  |... c%=0.25...*r|
000000f0  25 28 63 25 29 3d 72 25  28 63 25 29 2b 31 3a e7  |%(c%)=r%(c%)+1:.|
00000100  20 72 25 28 63 25 29 3e  31 36 20 8c 20 f2 4e 65  | r%(c%)>16 . .Ne|
00000110  77 44 72 6f 70 0d 00 be  2c 73 78 25 3d 28 38 30  |wDrop...,sx%=(80|
00000120  30 2d 79 25 28 63 25 29  29 2f 36 30 3a 73 79 25  |0-y%(c%))/60:sy%|
00000130  3d 28 38 30 30 2d 79 25  28 63 25 29 29 2f 31 35  |=(800-y%(c%))/15|
00000140  30 0d 00 c8 0e e6 20 33  2c 72 25 28 63 25 29 0d  |0..... 3,r%(c%).|
00000150  00 d2 2a c8 9d 20 78 25  28 63 25 29 2c 79 25 28  |..*.. x%(c%),y%(|
00000160  63 25 29 2c 72 25 28 63  25 29 2a 73 78 25 2c 72  |c%),r%(c%)*sx%,r|
00000170  25 28 63 25 29 2a 73 79  25 0d 00 dc 08 ed 20 63  |%(c%)*sy%..... c|
00000180  25 0d 00 e6 1d e6 30 2c  38 3a c8 93 c8 90 20 30  |%.....0,8:.... 0|
00000190  2c 38 30 30 2c 31 32 38  30 2c 31 30 32 34 0d 00  |,800,1280,1024..|
000001a0  f0 22 c8 99 36 2c 31 31  32 2c 53 3a c8 99 36 2c  |."..6,112,S:..6,|
000001b0  31 31 33 2c 54 3a c8 94  53 2c 54 3a c8 96 3a db  |113,T:..S,T:..:.|
000001c0  0d 00 fa 0c c8 97 20 76  2c 68 2c 62 0d 01 04 0a  |...... v,h,b....|
000001d0  fd 20 62 3c 3e 30 0d 01  0e 05 e1 0d 01 18 0d dd  |. b<>0..........|
000001e0  f2 4e 65 77 44 72 6f 70  0d 01 22 29 78 25 28 63  |.NewDrop..")x%(c|
000001f0  25 29 3d b3 28 31 32 30  30 29 3a 79 25 28 63 25  |%)=.(1200):y%(c%|
00000200  29 3d b3 28 38 30 30 29  3a 72 25 28 63 25 29 3d  |)=.(800):r%(c%)=|
00000210  31 0d 01 2c 05 e1 0d 01  36 0a dd f2 43 6f 6c 73  |1..,....6...Cols|
00000220  0d 01 40 0f 72 25 3d 31  36 2a 28 36 80 31 29 0d  |..@.r%=16*(6.1).|
00000230  01 4a 0e 67 25 3d 38 2a  28 31 80 32 29 0d 01 54  |.J.g%=8*(1.2)..T|
00000240  0e 62 25 3d 34 2a 28 36  80 34 29 0d 01 5e 0f e3  |.b%=4*(6.4)..^..|
00000250  20 63 25 3d 30 20 b8 20  31 35 0d 01 68 1a fb 20  | c%=0 . 15..h.. |
00000260  63 25 2c 63 25 2a 72 25  2c 63 25 2a 67 25 2c 63  |c%,c%*r%,c%*g%,c|
00000270  25 2a 62 25 0d 01 72 08  ed 20 63 25 0d 01 7c 05  |%*b%..r.. c%..|.|
00000280  e1 0d 01 86 04 0d 01 90  04 0d 01 9a 04 0d ff     |...............|
0000028f