� !SnowFall, by KTW
O� Move the mouse while holding down the left mouse button to start snowing!

(5�:ș"OS_SpriteOp",256+60:��:�:�" at line "�/10:�
2�128+4:*POINTER
<�"Wait. . ."
Fș"OS_RemoveCursors"
P3ș"OS_SWINumberFromString",,"OS_SpriteOp"�SpOp%
Z/ș"OS_SWINumberFromString",,"OS_Byte"�Byte%
dLsize%=80800:num%=10:shx%=2:shy%=2:ix%=2<<shx%:iy%=2<<shy%:bank%=1:cnt%=0
nH�x%(num%),y%(num%),z%(num%),a%(32),o%(num%),area%size%,scale%15,m%31
x/!area%=size%:area%!8=16:șSpOp%,256+9,area%
�9�J%=2�63�2:șSpOp%,256+15,area%,�J%,0,J%<<1,J%<<1,�:�
�"scale%!8=64<<1:scale%!12=64<<1
�%ox%=(64-1)<<shx%:oy%=(64-1)<<shy%
�/sx%=((64<<1)-1)<<shx%:sy%=((64<<1)-1)<<shy%
��2*ox%,2*oy%
�B�J%=1�64<<shy%�4:�2*ox%+(�(100)*(64-(J%>>shy%))�64),2*oy%+J%:�
�7șSpOp%,256+16,area%,"64",0,ox%,oy%,ox%+sx%,oy%+sy%
�șSpOp%,256+47,area%,"64"
�'șSpOp%,256+34,area%,"64",ox%,oy%,1
�7șSpOp%,256+16,area%,"64",0,ox%,oy%,ox%+sx%,oy%+sy%
�șSpOp%,256+33,area%,"64"
�'șSpOp%,256+34,area%,"64",ox%,oy%,1
�7șSpOp%,256+16,area%,"64",0,ox%,oy%,ox%+sx%,oy%+sy%

�plot_rotated(�60)

�plot_rotated(�120)

7șSpOp%,256+16,area%,"64",0,ox%,oy%,ox%+sx%,oy%+sy%

"�J%=2�63�2

, !scale%=J%<<1:scale%!4=J%<<1

6&ș"OS_SpriteOp",256+60,area%,�J%,0

@2ș"OS_SpriteOp",256+52,area%,"64",0,0,0,scale%

Jș"OS_SpriteOp",256+60

T�

^5�J%=1�32:șSpOp%,256+24,area%,�(J%<<1)�,,a%(J%):�

h9șByte%,112,bank%�,bank%:�:șByte%,112,bank%�,bank%:�

rB�J%=0�num%:x%(J%)=�(800):y%(J%)=�(800):z%(J%)=�(32):o%(J%)=0:�

|ȗxn%,yn%,b%

�-�:ȗx%,y%,b%:� b% � 1 �x(�(1280),�(1024))

�*� (b% � 4) � �>4 �x(x%-ox%,y%-oy%):�=0

��Ȗ:șByte%,113,bank%�,bank%:șByte%,112,bank%:�:�J%=0�num%:�o%(J%)�șSpOp%,546,area%,a%(z%(J%)),x%(J%),y%(J%),1:x%(J%)+=ix%:y%(J%)+=iy%:z%(J%)-=1:�z%(J%)<=0�o%(J%)=0

��:�0

��

�
� �x(x,y)

�Jz%(cnt%)=32:x%(cnt%)=x:y%(cnt%)=y:o%(cnt%)=1:cnt%+=1:�cnt%>num%�cnt%=0

��

�

���plot_rotated(a)

�+s=�a:c=�a:x0=-ox%:x1=ox%:y0=-oy%:y1=oy%

�4!m%=(x0*c-y0*s+sx%)*256:m%!4=(x0*s+y0*c+sy%)*256

�6m%!8=(x1*c-y0*s+sx%)*256:m%!12=(x1*s+y0*c+sy%)*256

�7m%!16=(x1*c-y1*s+sx%)*256:m%!20=(x1*s+y1*c+sy%)*256
7m%!24=(x0*c-y1*s+sx%)*256:m%!28=(x0*s+y1*c+sy%)*256
%șSpOp%,256+56,area%,"64",1,,1,m%
�
�

00000000  0d 00 0a 17 f4 20 21 53  6e 6f 77 46 61 6c 6c 2c  |..... !SnowFall,|
00000010  20 62 79 20 4b 54 57 0d  00 14 4f f4 20 4d 6f 76  | by KTW...O. Mov|
00000020  65 20 74 68 65 20 6d 6f  75 73 65 20 77 68 69 6c  |e the mouse whil|
00000030  65 20 68 6f 6c 64 69 6e  67 20 64 6f 77 6e 20 74  |e holding down t|
00000040  68 65 20 6c 65 66 74 20  6d 6f 75 73 65 20 62 75  |he left mouse bu|
00000050  74 74 6f 6e 20 74 6f 20  73 74 61 72 74 20 73 6e  |tton to start sn|
00000060  6f 77 69 6e 67 21 0d 00  1e 04 0d 00 28 35 ee 85  |owing!......(5..|
00000070  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
00000080  2c 32 35 36 2b 36 30 3a  eb eb 3a f6 3a f1 22 20  |,256+60:..:.:." |
00000090  61 74 20 6c 69 6e 65 20  22 9e 2f 31 30 3a e0 0d  |at line "./10:..|
000000a0  00 32 13 eb 31 32 38 2b  34 3a 2a 50 4f 49 4e 54  |.2..128+4:*POINT|
000000b0  45 52 0d 00 3c 10 f1 22  57 61 69 74 2e 20 2e 20  |ER..<.."Wait. . |
000000c0  2e 22 0d 00 46 18 c8 99  22 4f 53 5f 52 65 6d 6f  |."..F..."OS_Remo|
000000d0  76 65 43 75 72 73 6f 72  73 22 0d 00 50 33 c8 99  |veCursors"..P3..|
000000e0  22 4f 53 5f 53 57 49 4e  75 6d 62 65 72 46 72 6f  |"OS_SWINumberFro|
000000f0  6d 53 74 72 69 6e 67 22  2c 2c 22 4f 53 5f 53 70  |mString",,"OS_Sp|
00000100  72 69 74 65 4f 70 22 b8  53 70 4f 70 25 0d 00 5a  |riteOp".SpOp%..Z|
00000110  2f c8 99 22 4f 53 5f 53  57 49 4e 75 6d 62 65 72  |/.."OS_SWINumber|
00000120  46 72 6f 6d 53 74 72 69  6e 67 22 2c 2c 22 4f 53  |FromString",,"OS|
00000130  5f 42 79 74 65 22 b8 42  79 74 65 25 0d 00 64 4c  |_Byte".Byte%..dL|
00000140  73 69 7a 65 25 3d 38 30  38 30 30 3a 6e 75 6d 25  |size%=80800:num%|
00000150  3d 31 30 3a 73 68 78 25  3d 32 3a 73 68 79 25 3d  |=10:shx%=2:shy%=|
00000160  32 3a 69 78 25 3d 32 3c  3c 73 68 78 25 3a 69 79  |2:ix%=2<<shx%:iy|
00000170  25 3d 32 3c 3c 73 68 79  25 3a 62 61 6e 6b 25 3d  |%=2<<shy%:bank%=|
00000180  31 3a 63 6e 74 25 3d 30  0d 00 6e 48 de 78 25 28  |1:cnt%=0..nH.x%(|
00000190  6e 75 6d 25 29 2c 79 25  28 6e 75 6d 25 29 2c 7a  |num%),y%(num%),z|
000001a0  25 28 6e 75 6d 25 29 2c  61 25 28 33 32 29 2c 6f  |%(num%),a%(32),o|
000001b0  25 28 6e 75 6d 25 29 2c  61 72 65 61 25 73 69 7a  |%(num%),area%siz|
000001c0  65 25 2c 73 63 61 6c 65  25 31 35 2c 6d 25 33 31  |e%,scale%15,m%31|
000001d0  0d 00 78 2f 21 61 72 65  61 25 3d 73 69 7a 65 25  |..x/!area%=size%|
000001e0  3a 61 72 65 61 25 21 38  3d 31 36 3a c8 99 53 70  |:area%!8=16:..Sp|
000001f0  4f 70 25 2c 32 35 36 2b  39 2c 61 72 65 61 25 0d  |Op%,256+9,area%.|
00000200  00 82 39 e3 4a 25 3d 32  b8 36 33 88 32 3a c8 99  |..9.J%=2.63.2:..|
00000210  53 70 4f 70 25 2c 32 35  36 2b 31 35 2c 61 72 65  |SpOp%,256+15,are|
00000220  61 25 2c c3 4a 25 2c 30  2c 4a 25 3c 3c 31 2c 4a  |a%,.J%,0,J%<<1,J|
00000230  25 3c 3c 31 2c eb 3a ed  0d 00 8c 22 73 63 61 6c  |%<<1,.:...."scal|
00000240  65 25 21 38 3d 36 34 3c  3c 31 3a 73 63 61 6c 65  |e%!8=64<<1:scale|
00000250  25 21 31 32 3d 36 34 3c  3c 31 0d 00 96 25 6f 78  |%!12=64<<1...%ox|
00000260  25 3d 28 36 34 2d 31 29  3c 3c 73 68 78 25 3a 6f  |%=(64-1)<<shx%:o|
00000270  79 25 3d 28 36 34 2d 31  29 3c 3c 73 68 79 25 0d  |y%=(64-1)<<shy%.|
00000280  00 a0 2f 73 78 25 3d 28  28 36 34 3c 3c 31 29 2d  |../sx%=((64<<1)-|
00000290  31 29 3c 3c 73 68 78 25  3a 73 79 25 3d 28 28 36  |1)<<shx%:sy%=((6|
000002a0  34 3c 3c 31 29 2d 31 29  3c 3c 73 68 79 25 0d 00  |4<<1)-1)<<shy%..|
000002b0  aa 10 ec 32 2a 6f 78 25  2c 32 2a 6f 79 25 0d 00  |...2*ox%,2*oy%..|
000002c0  b4 42 e3 4a 25 3d 31 b8  36 34 3c 3c 73 68 79 25  |.B.J%=1.64<<shy%|
000002d0  88 34 3a df 32 2a 6f 78  25 2b 28 b3 28 31 30 30  |.4:.2*ox%+(.(100|
000002e0  29 2a 28 36 34 2d 28 4a  25 3e 3e 73 68 79 25 29  |)*(64-(J%>>shy%)|
000002f0  29 81 36 34 29 2c 32 2a  6f 79 25 2b 4a 25 3a ed  |).64),2*oy%+J%:.|
00000300  0d 00 be 37 c8 99 53 70  4f 70 25 2c 32 35 36 2b  |...7..SpOp%,256+|
00000310  31 36 2c 61 72 65 61 25  2c 22 36 34 22 2c 30 2c  |16,area%,"64",0,|
00000320  6f 78 25 2c 6f 79 25 2c  6f 78 25 2b 73 78 25 2c  |ox%,oy%,ox%+sx%,|
00000330  6f 79 25 2b 73 79 25 0d  00 c8 1d c8 99 53 70 4f  |oy%+sy%......SpO|
00000340  70 25 2c 32 35 36 2b 34  37 2c 61 72 65 61 25 2c  |p%,256+47,area%,|
00000350  22 36 34 22 0d 00 d2 27  c8 99 53 70 4f 70 25 2c  |"64"...'..SpOp%,|
00000360  32 35 36 2b 33 34 2c 61  72 65 61 25 2c 22 36 34  |256+34,area%,"64|
00000370  22 2c 6f 78 25 2c 6f 79  25 2c 31 0d 00 dc 37 c8  |",ox%,oy%,1...7.|
00000380  99 53 70 4f 70 25 2c 32  35 36 2b 31 36 2c 61 72  |.SpOp%,256+16,ar|
00000390  65 61 25 2c 22 36 34 22  2c 30 2c 6f 78 25 2c 6f  |ea%,"64",0,ox%,o|
000003a0  79 25 2c 6f 78 25 2b 73  78 25 2c 6f 79 25 2b 73  |y%,ox%+sx%,oy%+s|
000003b0  79 25 0d 00 e6 1d c8 99  53 70 4f 70 25 2c 32 35  |y%......SpOp%,25|
000003c0  36 2b 33 33 2c 61 72 65  61 25 2c 22 36 34 22 0d  |6+33,area%,"64".|
000003d0  00 f0 27 c8 99 53 70 4f  70 25 2c 32 35 36 2b 33  |..'..SpOp%,256+3|
000003e0  34 2c 61 72 65 61 25 2c  22 36 34 22 2c 6f 78 25  |4,area%,"64",ox%|
000003f0  2c 6f 79 25 2c 31 0d 00  fa 37 c8 99 53 70 4f 70  |,oy%,1...7..SpOp|
00000400  25 2c 32 35 36 2b 31 36  2c 61 72 65 61 25 2c 22  |%,256+16,area%,"|
00000410  36 34 22 2c 30 2c 6f 78  25 2c 6f 79 25 2c 6f 78  |64",0,ox%,oy%,ox|
00000420  25 2b 73 78 25 2c 6f 79  25 2b 73 79 25 0d 01 04  |%+sx%,oy%+sy%...|
00000430  16 f2 70 6c 6f 74 5f 72  6f 74 61 74 65 64 28 b2  |..plot_rotated(.|
00000440  36 30 29 0d 01 0e 17 f2  70 6c 6f 74 5f 72 6f 74  |60).....plot_rot|
00000450  61 74 65 64 28 b2 31 32  30 29 0d 01 18 37 c8 99  |ated(.120)...7..|
00000460  53 70 4f 70 25 2c 32 35  36 2b 31 36 2c 61 72 65  |SpOp%,256+16,are|
00000470  61 25 2c 22 36 34 22 2c  30 2c 6f 78 25 2c 6f 79  |a%,"64",0,ox%,oy|
00000480  25 2c 6f 78 25 2b 73 78  25 2c 6f 79 25 2b 73 79  |%,ox%+sx%,oy%+sy|
00000490  25 0d 01 22 0e e3 4a 25  3d 32 b8 36 33 88 32 0d  |%.."..J%=2.63.2.|
000004a0  01 2c 20 21 73 63 61 6c  65 25 3d 4a 25 3c 3c 31  |., !scale%=J%<<1|
000004b0  3a 73 63 61 6c 65 25 21  34 3d 4a 25 3c 3c 31 0d  |:scale%!4=J%<<1.|
000004c0  01 36 26 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |.6&.."OS_SpriteO|
000004d0  70 22 2c 32 35 36 2b 36  30 2c 61 72 65 61 25 2c  |p",256+60,area%,|
000004e0  c3 4a 25 2c 30 0d 01 40  32 c8 99 22 4f 53 5f 53  |.J%,0..@2.."OS_S|
000004f0  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 35 32 2c  |priteOp",256+52,|
00000500  61 72 65 61 25 2c 22 36  34 22 2c 30 2c 30 2c 30  |area%,"64",0,0,0|
00000510  2c 73 63 61 6c 65 25 0d  01 4a 1a c8 99 22 4f 53  |,scale%..J..."OS|
00000520  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 36  |_SpriteOp",256+6|
00000530  30 0d 01 54 05 ed 0d 01  5e 35 e3 4a 25 3d 31 b8  |0..T....^5.J%=1.|
00000540  33 32 3a c8 99 53 70 4f  70 25 2c 32 35 36 2b 32  |32:..SpOp%,256+2|
00000550  34 2c 61 72 65 61 25 2c  c3 28 4a 25 3c 3c 31 29  |4,area%,.(J%<<1)|
00000560  b8 2c 2c 61 25 28 4a 25  29 3a ed 0d 01 68 39 c8  |.,,a%(J%):...h9.|
00000570  99 42 79 74 65 25 2c 31  31 32 2c 62 61 6e 6b 25  |.Byte%,112,bank%|
00000580  b8 2c 62 61 6e 6b 25 3a  db 3a c8 99 42 79 74 65  |.,bank%:.:..Byte|
00000590  25 2c 31 31 32 2c 62 61  6e 6b 25 b8 2c 62 61 6e  |%,112,bank%.,ban|
000005a0  6b 25 3a db 0d 01 72 42  e3 4a 25 3d 30 b8 6e 75  |k%:...rB.J%=0.nu|
000005b0  6d 25 3a 78 25 28 4a 25  29 3d b3 28 38 30 30 29  |m%:x%(J%)=.(800)|
000005c0  3a 79 25 28 4a 25 29 3d  b3 28 38 30 30 29 3a 7a  |:y%(J%)=.(800):z|
000005d0  25 28 4a 25 29 3d b3 28  33 32 29 3a 6f 25 28 4a  |%(J%)=.(32):o%(J|
000005e0  25 29 3d 30 3a ed 0d 01  7c 10 c8 97 78 6e 25 2c  |%)=0:...|...xn%,|
000005f0  79 6e 25 2c 62 25 0d 01  86 2d f5 3a c8 97 78 25  |yn%,b%...-.:..x%|
00000600  2c 79 25 2c 62 25 3a e7  20 62 25 20 80 20 31 20  |,y%,b%:. b% . 1 |
00000610  f2 78 28 b3 28 31 32 38  30 29 2c b3 28 31 30 32  |.x(.(1280),.(102|
00000620  34 29 29 0d 01 90 2a e7  20 28 62 25 20 80 20 34  |4))...*. (b% . 4|
00000630  29 20 80 20 91 3e 34 20  f2 78 28 78 25 2d 6f 78  |) . .>4 .x(x%-ox|
00000640  25 2c 79 25 2d 6f 79 25  29 3a d1 3d 30 0d 01 9a  |%,y%-oy%):.=0...|
00000650  a9 c8 96 3a c8 99 42 79  74 65 25 2c 31 31 33 2c  |...:..Byte%,113,|
00000660  62 61 6e 6b 25 b8 2c 62  61 6e 6b 25 3a c8 99 42  |bank%.,bank%:..B|
00000670  79 74 65 25 2c 31 31 32  2c 62 61 6e 6b 25 3a db  |yte%,112,bank%:.|
00000680  3a e3 4a 25 3d 30 b8 6e  75 6d 25 3a e7 6f 25 28  |:.J%=0.num%:.o%(|
00000690  4a 25 29 8c c8 99 53 70  4f 70 25 2c 35 34 36 2c  |J%)...SpOp%,546,|
000006a0  61 72 65 61 25 2c 61 25  28 7a 25 28 4a 25 29 29  |area%,a%(z%(J%))|
000006b0  2c 78 25 28 4a 25 29 2c  79 25 28 4a 25 29 2c 31  |,x%(J%),y%(J%),1|
000006c0  3a 78 25 28 4a 25 29 2b  3d 69 78 25 3a 79 25 28  |:x%(J%)+=ix%:y%(|
000006d0  4a 25 29 2b 3d 69 79 25  3a 7a 25 28 4a 25 29 2d  |J%)+=iy%:z%(J%)-|
000006e0  3d 31 3a e7 7a 25 28 4a  25 29 3c 3d 30 8c 6f 25  |=1:.z%(J%)<=0.o%|
000006f0  28 4a 25 29 3d 30 0d 01  a4 08 ed 3a fd 30 0d 01  |(J%)=0.....:.0..|
00000700  ae 05 e0 0d 01 b8 0d dd  20 f2 78 28 78 2c 79 29  |........ .x(x,y)|
00000710  0d 01 c2 4a 7a 25 28 63  6e 74 25 29 3d 33 32 3a  |...Jz%(cnt%)=32:|
00000720  78 25 28 63 6e 74 25 29  3d 78 3a 79 25 28 63 6e  |x%(cnt%)=x:y%(cn|
00000730  74 25 29 3d 79 3a 6f 25  28 63 6e 74 25 29 3d 31  |t%)=y:o%(cnt%)=1|
00000740  3a 63 6e 74 25 2b 3d 31  3a e7 63 6e 74 25 3e 6e  |:cnt%+=1:.cnt%>n|
00000750  75 6d 25 8c 63 6e 74 25  3d 30 0d 01 c3 05 e1 0d  |um%.cnt%=0......|
00000760  01 cc 04 0d 01 d6 15 dd  f2 70 6c 6f 74 5f 72 6f  |.........plot_ro|
00000770  74 61 74 65 64 28 61 29  0d 01 e0 2b 73 3d b5 61  |tated(a)...+s=.a|
00000780  3a 63 3d 9b 61 3a 78 30  3d 2d 6f 78 25 3a 78 31  |:c=.a:x0=-ox%:x1|
00000790  3d 6f 78 25 3a 79 30 3d  2d 6f 79 25 3a 79 31 3d  |=ox%:y0=-oy%:y1=|
000007a0  6f 79 25 0d 01 ea 34 21  6d 25 3d 28 78 30 2a 63  |oy%...4!m%=(x0*c|
000007b0  2d 79 30 2a 73 2b 73 78  25 29 2a 32 35 36 3a 6d  |-y0*s+sx%)*256:m|
000007c0  25 21 34 3d 28 78 30 2a  73 2b 79 30 2a 63 2b 73  |%!4=(x0*s+y0*c+s|
000007d0  79 25 29 2a 32 35 36 0d  01 f4 36 6d 25 21 38 3d  |y%)*256...6m%!8=|
000007e0  28 78 31 2a 63 2d 79 30  2a 73 2b 73 78 25 29 2a  |(x1*c-y0*s+sx%)*|
000007f0  32 35 36 3a 6d 25 21 31  32 3d 28 78 31 2a 73 2b  |256:m%!12=(x1*s+|
00000800  79 30 2a 63 2b 73 79 25  29 2a 32 35 36 0d 01 fe  |y0*c+sy%)*256...|
00000810  37 6d 25 21 31 36 3d 28  78 31 2a 63 2d 79 31 2a  |7m%!16=(x1*c-y1*|
00000820  73 2b 73 78 25 29 2a 32  35 36 3a 6d 25 21 32 30  |s+sx%)*256:m%!20|
00000830  3d 28 78 31 2a 73 2b 79  31 2a 63 2b 73 79 25 29  |=(x1*s+y1*c+sy%)|
00000840  2a 32 35 36 0d 02 08 37  6d 25 21 32 34 3d 28 78  |*256...7m%!24=(x|
00000850  30 2a 63 2d 79 31 2a 73  2b 73 78 25 29 2a 32 35  |0*c-y1*s+sx%)*25|
00000860  36 3a 6d 25 21 32 38 3d  28 78 30 2a 73 2b 79 31  |6:m%!28=(x0*s+y1|
00000870  2a 63 2b 73 79 25 29 2a  32 35 36 0d 02 12 25 c8  |*c+sy%)*256...%.|
00000880  99 53 70 4f 70 25 2c 32  35 36 2b 35 36 2c 61 72  |.SpOp%,256+56,ar|
00000890  65 61 25 2c 22 36 34 22  2c 31 2c 2c 31 2c 6d 25  |ea%,"64",1,,1,m%|
000008a0  0d 02 1c 05 e1 0d ff                              |.......|
000008a7