� >Weather!
� M.A.G. & C.A.T.
� Acorn Computing
(�
-� � � �:�:�" at ";�:�
2�13
<�
Fȗ�
PO$="OS_SpriteOp"
Z� Load in the Spritefile
dsprites$="<MAG$Dir>.MAPS"
nfile%=�(sprites$)
xsize%=�#file%+64
��#file%
�
�@� Dimension an AREA the SIZE of the file to store sprites in
�� area% size%
�area%!0=size%
�
�7� Initialise area to load the sprite definitions to
�ș O$,256+9,area%
�
�2� Now load the sprite definitions to this area
�ș O$,256+10,area%,sprites$
�
�$� _____SET UP ONCE ONLY_________

	�dims

�sprites

$� ------------------------------

"

,	�init

6�screen

@

J
� ---LOOP

T�

^
�mouse

h	�w%>0

rK%=1

|�

�K%=3-K%:Ȗ:ș6,112,K%

�#ș O$,&222,area%,map%,MX%,MY%,0

�
�fixed

�
�mouse

�5�X%<740�Y%<=832ș O$,&222,area%,icon%(w%),X%,Y%,0

��PRINTTAB(0,8);"fix%=";fix%

�ș6,113,K%

��0

��

�

�� SORT SPRITES OUT

�
��sprites

�!�setsprite("MAP1",map%,w%,h%)
�I%=1�4
+�setsprite("SUN"+�(I%),icon%(I%),w%,h%)
.�setsprite("COLD"+�(I%),icon%(I%+4),w%,h%)
&.�setsprite("RAIN"+�(I%),icon%(I%+8),w%,h%)
0/�setsprite("WIND"+�(I%),icon%(I%+12),w%,h%)
:0�setsprite("CLOUD"+�(I%),icon%(I%+16),w%,h%)
D�
N&�setsprite("HAIL",icon%(21),w%,h%)
X'�setsprite("SLEET",icon%(22),w%,h%)
b'�setsprite("FROST",icon%(23),w%,h%)
l&�setsprite("SNOW",icon%(24),w%,h%)
v&�setsprite("MIST",icon%(25),w%,h%)
�%�setsprite("FOG",icon%(26),w%,h%)
��I%=0�3
�/�setsprite("go11mod"+�(I%),rain%(I%),w%,h%)
�.�setsprite("go04mod"+�(I%),sun%(I%),w%,h%)
��
��
�
�� Init sprites
�4��setsprite(string$,� value%,� width%,� height%)
�(ș O$,256+24,area%,string$ �,,value%
�1ș O$,256+40,area%,string$ �,,,width%,height%
��
�
� SCREEN
��screen
�J%=2�1�-1
 ș6,112,J%
*�128:Ȝ1,0
4�
>�128+52:Ȝ1,64
H#ș O$,&222,area%,map%,MX%,MY%,0
R
�icons
\�6,1)�23," ")
f�
p�
z
�
� INIT
�
��init
�v%=0
�ȑ128,64
�
fix%=0
�
MX%=64
�
MY%=64
��I%=1�26
��name$(I%)
��
�w%=0
�OLDw%=0
�ȗȓMX%,MY%,864,832
ȗ�538,380
�

$
� DIMS
.
��dims
8�icon%(26)
B�name$(26)
Lnum%=40
V�fixed%(num%)
`�fixX%(num%)
j�fixY%(num%)
t
�rain%(3)
~�sun%(3)
��
�
�
�� icons
���icons
�W%=1
�IX%=800
�IY%=832
��j%=1�13
��i%=1�2
�(ș O$,&222,area%,icon%(W%),IX%,IY%,0
�	W%+=1
IX%+=64

�
IX%=800
IY%-=64
(�
2�
<
F� mouse
P��mouse
ZȗX%,Y%,Z%
d�PRINTTAB(0,0);X%;" "
n�PRINTTAB(0,1);Y%;" "
xȎ Z% �
�9� 4:�Y%>=64�Y%<=890:�X%>=804�X%<=864�select(1):�letgo
�6 �Y%>=64�Y%<=890:�X%>=868�X%<=928�select(0):�letgo
�/ �Y%>=64�Y%<=890�w%>0:�X%<=740�fixit:�letgo
�4� 1:�Y%>=64�Y%<=890�w%>0:�X%<=740�unfixit:�letgo
��
��
�
�� select icon
���select(s%)
�M�OLDw%>0:�g%=1�2:ș6,112,g%:ș O$,&222,area%,icon%(OLDw%),OLDx%,OLDy%,0:�
�h%=4
�y%=(Y%�64)*64
��s%=0x%=864:w%=28-(Y%�64)*2
�s%=1x%=800:w%=27-(Y%�64)*2
�g%=1�2
ș6,112,g%
"'ș O$,&222,area%,icon%(w%),x%,y%,h%
,�
6-�g%=1�2:ș6,112,g%:�7,1);name$(w%);�10:�
@OLDw%=w%
JOLDx%=x%
TOLDy%=y%
^�
h
r� let go mouse button
|��letgo
��
�ȗX%,Y%,Z%
�	�Z%=0
��
�
�� fix it
���fixit
��Y%>832�
�fix%=0:�fix%+=1
��fixed%(fix%)=0�fix%=num%
�&ș O$,&222,area%,icon%(w%),X%,Y%,0
�fixed%(fix%)=w%
�!fixX%(fix%)=X%:fixY%(fix%)=Y%
�

� fixed!
&��fixed
0�fix%=0�
:�f%=1�num%
DH�fixed%(f%)=11ș O$,&222,area%,rain%(v%),fixX%(f%),fixY%(f%),8:�DbG
NF�fixed%(f%)=4ș O$,&222,area%,sun%(v%),fixX%(f%),fixY%(f%),8:�DbG
XI�fixed%(f%)>0ș O$,&222,area%,icon%(fixed%(f%)),fixX%(f%),fixY%(f%),0
b�
lv%=(v%+1)�4
v�
�
�� unfix it
�
��unfixit
��fix%<1�
��f%=1�num%
�#p%=X%-fixX%(f%):q%=Y%-fixY%(f%)
�7�fixed%(f%)>0:�p%<64�p%>0�q%<64�q%>0�7:fixed%(f%)=0
��
��
�
�	�Mild
�	�Warm
��Hot

�Boiling!
	�Cool
	�Cold
 �Bitter
*�Freezing!
4�Showers
>�Drizzle
H	�Rain
R�Deluge!
\
�Still
f�Breezy
p
�Windy
z�Gales!
��Cloudy
�
�Overcast
�	�Grim
�
�Thunder!
�	�Hail
�
�Sleet
�
�Frost
�	�Snow
��Fog
�	�Mist
�

00000000  0d 00 0a 0f f4 20 3e 57  65 61 74 68 65 72 21 0d  |..... >Weather!.|
00000010  00 14 15 f4 20 4d 2e 41  2e 47 2e 20 26 20 43 2e  |.... M.A.G. & C.|
00000020  41 2e 54 2e 0d 00 1e 15  f4 20 41 63 6f 72 6e 20  |A.T...... Acorn |
00000030  43 6f 6d 70 75 74 69 6e  67 0d 00 28 05 f4 0d 00  |Computing..(....|
00000040  2d 19 ee 20 85 20 eb 20  eb 3a f6 3a f1 22 20 61  |-.. . . .:.:." a|
00000050  74 20 22 3b 9e 3a e0 0d  00 32 07 eb 31 33 0d 00  |t ";.:...2..13..|
00000060  3c 05 87 0d 00 46 07 c8  97 ee 0d 00 50 14 4f 24  |<....F......P.O$|
00000070  3d 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 0d 00  |="OS_SpriteOp"..|
00000080  5a 1c f4 20 4c 6f 61 64  20 69 6e 20 74 68 65 20  |Z.. Load in the |
00000090  53 70 72 69 74 65 66 69  6c 65 0d 00 64 1d 73 70  |Spritefile..d.sp|
000000a0  72 69 74 65 73 24 3d 22  3c 4d 41 47 24 44 69 72  |rites$="<MAG$Dir|
000000b0  3e 2e 4d 41 50 53 22 0d  00 6e 15 66 69 6c 65 25  |>.MAPS"..n.file%|
000000c0  3d 8e 28 73 70 72 69 74  65 73 24 29 0d 00 78 14  |=.(sprites$)..x.|
000000d0  73 69 7a 65 25 3d a2 23  66 69 6c 65 25 2b 36 34  |size%=.#file%+64|
000000e0  0d 00 82 0b d9 23 66 69  6c 65 25 0d 00 8c 04 0d  |.....#file%.....|
000000f0  00 96 40 f4 20 44 69 6d  65 6e 73 69 6f 6e 20 61  |..@. Dimension a|
00000100  6e 20 41 52 45 41 20 74  68 65 20 53 49 5a 45 20  |n AREA the SIZE |
00000110  6f 66 20 74 68 65 20 66  69 6c 65 20 74 6f 20 73  |of the file to s|
00000120  74 6f 72 65 20 73 70 72  69 74 65 73 20 69 6e 0d  |tore sprites in.|
00000130  00 a0 11 de 20 61 72 65  61 25 20 73 69 7a 65 25  |.... area% size%|
00000140  0d 00 aa 11 61 72 65 61  25 21 30 3d 73 69 7a 65  |....area%!0=size|
00000150  25 0d 00 b4 04 0d 00 be  37 f4 20 49 6e 69 74 69  |%.......7. Initi|
00000160  61 6c 69 73 65 20 61 72  65 61 20 74 6f 20 6c 6f  |alise area to lo|
00000170  61 64 20 74 68 65 20 73  70 72 69 74 65 20 64 65  |ad the sprite de|
00000180  66 69 6e 69 74 69 6f 6e  73 20 74 6f 0d 00 c8 15  |finitions to....|
00000190  c8 99 20 4f 24 2c 32 35  36 2b 39 2c 61 72 65 61  |.. O$,256+9,area|
000001a0  25 0d 00 d2 04 0d 00 dc  32 f4 20 4e 6f 77 20 6c  |%.......2. Now l|
000001b0  6f 61 64 20 74 68 65 20  73 70 72 69 74 65 20 64  |oad the sprite d|
000001c0  65 66 69 6e 69 74 69 6f  6e 73 20 74 6f 20 74 68  |efinitions to th|
000001d0  69 73 20 61 72 65 61 0d  00 e6 1f c8 99 20 4f 24  |is area...... O$|
000001e0  2c 32 35 36 2b 31 30 2c  61 72 65 61 25 2c 73 70  |,256+10,area%,sp|
000001f0  72 69 74 65 73 24 0d 00  f0 04 0d 00 fa 24 f4 20  |rites$.......$. |
00000200  5f 5f 5f 5f 5f 53 45 54  20 55 50 20 4f 4e 43 45  |_____SET UP ONCE|
00000210  20 4f 4e 4c 59 5f 5f 5f  5f 5f 5f 5f 5f 5f 0d 01  | ONLY_________..|
00000220  04 09 f2 64 69 6d 73 0d  01 0e 0c f2 73 70 72 69  |...dims.....spri|
00000230  74 65 73 0d 01 18 24 f4  20 2d 2d 2d 2d 2d 2d 2d  |tes...$. -------|
00000240  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000250  2d 2d 2d 2d 2d 2d 2d 0d  01 22 04 0d 01 2c 09 f2  |-------.."...,..|
00000260  69 6e 69 74 0d 01 36 0b  f2 73 63 72 65 65 6e 0d  |init..6..screen.|
00000270  01 40 04 0d 01 4a 0d f4  20 2d 2d 2d 4c 4f 4f 50  |.@...J.. ---LOOP|
00000280  0d 01 54 05 f5 0d 01 5e  0a f2 6d 6f 75 73 65 0d  |..T....^..mouse.|
00000290  01 68 09 fd 77 25 3e 30  0d 01 72 08 4b 25 3d 31  |.h..w%>0..r.K%=1|
000002a0  0d 01 7c 05 f5 0d 01 86  19 4b 25 3d 33 2d 4b 25  |..|......K%=3-K%|
000002b0  3a c8 96 3a c8 99 36 2c  31 31 32 2c 4b 25 0d 01  |:..:..6,112,K%..|
000002c0  90 23 c8 99 20 4f 24 2c  26 32 32 32 2c 61 72 65  |.#.. O$,&222,are|
000002d0  61 25 2c 6d 61 70 25 2c  4d 58 25 2c 4d 59 25 2c  |a%,map%,MX%,MY%,|
000002e0  30 0d 01 9a 0a f2 66 69  78 65 64 0d 01 a4 0a f2  |0.....fixed.....|
000002f0  6d 6f 75 73 65 0d 01 ae  35 e7 58 25 3c 37 34 30  |mouse...5.X%<740|
00000300  80 59 25 3c 3d 38 33 32  c8 99 20 4f 24 2c 26 32  |.Y%<=832.. O$,&2|
00000310  32 32 2c 61 72 65 61 25  2c 69 63 6f 6e 25 28 77  |22,area%,icon%(w|
00000320  25 29 2c 58 25 2c 59 25  2c 30 0d 01 b8 1f f4 50  |%),X%,Y%,0.....P|
00000330  52 49 4e 54 54 41 42 28  30 2c 38 29 3b 22 66 69  |RINTTAB(0,8);"fi|
00000340  78 25 3d 22 3b 66 69 78  25 0d 01 c2 0e c8 99 36  |x%=";fix%......6|
00000350  2c 31 31 33 2c 4b 25 0d  01 cc 06 fd 30 0d 01 d6  |,113,K%.....0...|
00000360  05 e0 0d 01 e0 04 0d 01  ea 16 f4 20 53 4f 52 54  |........... SORT|
00000370  20 53 50 52 49 54 45 53  20 4f 55 54 0d 01 f4 0d  | SPRITES OUT....|
00000380  dd f2 73 70 72 69 74 65  73 0d 01 fe 21 f2 73 65  |..sprites...!.se|
00000390  74 73 70 72 69 74 65 28  22 4d 41 50 31 22 2c 6d  |tsprite("MAP1",m|
000003a0  61 70 25 2c 77 25 2c 68  25 29 0d 02 08 0b e3 49  |ap%,w%,h%).....I|
000003b0  25 3d 31 b8 34 0d 02 12  2b f2 73 65 74 73 70 72  |%=1.4...+.setspr|
000003c0  69 74 65 28 22 53 55 4e  22 2b c3 28 49 25 29 2c  |ite("SUN"+.(I%),|
000003d0  69 63 6f 6e 25 28 49 25  29 2c 77 25 2c 68 25 29  |icon%(I%),w%,h%)|
000003e0  0d 02 1c 2e f2 73 65 74  73 70 72 69 74 65 28 22  |.....setsprite("|
000003f0  43 4f 4c 44 22 2b c3 28  49 25 29 2c 69 63 6f 6e  |COLD"+.(I%),icon|
00000400  25 28 49 25 2b 34 29 2c  77 25 2c 68 25 29 0d 02  |%(I%+4),w%,h%)..|
00000410  26 2e f2 73 65 74 73 70  72 69 74 65 28 22 52 41  |&..setsprite("RA|
00000420  49 4e 22 2b c3 28 49 25  29 2c 69 63 6f 6e 25 28  |IN"+.(I%),icon%(|
00000430  49 25 2b 38 29 2c 77 25  2c 68 25 29 0d 02 30 2f  |I%+8),w%,h%)..0/|
00000440  f2 73 65 74 73 70 72 69  74 65 28 22 57 49 4e 44  |.setsprite("WIND|
00000450  22 2b c3 28 49 25 29 2c  69 63 6f 6e 25 28 49 25  |"+.(I%),icon%(I%|
00000460  2b 31 32 29 2c 77 25 2c  68 25 29 0d 02 3a 30 f2  |+12),w%,h%)..:0.|
00000470  73 65 74 73 70 72 69 74  65 28 22 43 4c 4f 55 44  |setsprite("CLOUD|
00000480  22 2b c3 28 49 25 29 2c  69 63 6f 6e 25 28 49 25  |"+.(I%),icon%(I%|
00000490  2b 31 36 29 2c 77 25 2c  68 25 29 0d 02 44 05 ed  |+16),w%,h%)..D..|
000004a0  0d 02 4e 26 f2 73 65 74  73 70 72 69 74 65 28 22  |..N&.setsprite("|
000004b0  48 41 49 4c 22 2c 69 63  6f 6e 25 28 32 31 29 2c  |HAIL",icon%(21),|
000004c0  77 25 2c 68 25 29 0d 02  58 27 f2 73 65 74 73 70  |w%,h%)..X'.setsp|
000004d0  72 69 74 65 28 22 53 4c  45 45 54 22 2c 69 63 6f  |rite("SLEET",ico|
000004e0  6e 25 28 32 32 29 2c 77  25 2c 68 25 29 0d 02 62  |n%(22),w%,h%)..b|
000004f0  27 f2 73 65 74 73 70 72  69 74 65 28 22 46 52 4f  |'.setsprite("FRO|
00000500  53 54 22 2c 69 63 6f 6e  25 28 32 33 29 2c 77 25  |ST",icon%(23),w%|
00000510  2c 68 25 29 0d 02 6c 26  f2 73 65 74 73 70 72 69  |,h%)..l&.setspri|
00000520  74 65 28 22 53 4e 4f 57  22 2c 69 63 6f 6e 25 28  |te("SNOW",icon%(|
00000530  32 34 29 2c 77 25 2c 68  25 29 0d 02 76 26 f2 73  |24),w%,h%)..v&.s|
00000540  65 74 73 70 72 69 74 65  28 22 4d 49 53 54 22 2c  |etsprite("MIST",|
00000550  69 63 6f 6e 25 28 32 35  29 2c 77 25 2c 68 25 29  |icon%(25),w%,h%)|
00000560  0d 02 80 25 f2 73 65 74  73 70 72 69 74 65 28 22  |...%.setsprite("|
00000570  46 4f 47 22 2c 69 63 6f  6e 25 28 32 36 29 2c 77  |FOG",icon%(26),w|
00000580  25 2c 68 25 29 0d 02 8a  0b e3 49 25 3d 30 b8 33  |%,h%).....I%=0.3|
00000590  0d 02 94 2f f2 73 65 74  73 70 72 69 74 65 28 22  |.../.setsprite("|
000005a0  67 6f 31 31 6d 6f 64 22  2b c3 28 49 25 29 2c 72  |go11mod"+.(I%),r|
000005b0  61 69 6e 25 28 49 25 29  2c 77 25 2c 68 25 29 0d  |ain%(I%),w%,h%).|
000005c0  02 9e 2e f2 73 65 74 73  70 72 69 74 65 28 22 67  |....setsprite("g|
000005d0  6f 30 34 6d 6f 64 22 2b  c3 28 49 25 29 2c 73 75  |o04mod"+.(I%),su|
000005e0  6e 25 28 49 25 29 2c 77  25 2c 68 25 29 0d 02 a8  |n%(I%),w%,h%)...|
000005f0  05 ed 0d 02 b2 05 e1 0d  02 bc 04 0d 02 c6 12 f4  |................|
00000600  20 49 6e 69 74 20 73 70  72 69 74 65 73 0d 02 d0  | Init sprites...|
00000610  34 dd f2 73 65 74 73 70  72 69 74 65 28 73 74 72  |4..setsprite(str|
00000620  69 6e 67 24 2c f8 20 76  61 6c 75 65 25 2c f8 20  |ing$,. value%,. |
00000630  77 69 64 74 68 25 2c f8  20 68 65 69 67 68 74 25  |width%,. height%|
00000640  29 0d 02 da 28 c8 99 20  4f 24 2c 32 35 36 2b 32  |)...(.. O$,256+2|
00000650  34 2c 61 72 65 61 25 2c  73 74 72 69 6e 67 24 20  |4,area%,string$ |
00000660  b8 2c 2c 76 61 6c 75 65  25 0d 02 e4 31 c8 99 20  |.,,value%...1.. |
00000670  4f 24 2c 32 35 36 2b 34  30 2c 61 72 65 61 25 2c  |O$,256+40,area%,|
00000680  73 74 72 69 6e 67 24 20  b8 2c 2c 2c 77 69 64 74  |string$ .,,,widt|
00000690  68 25 2c 68 65 69 67 68  74 25 0d 02 ee 05 e1 0d  |h%,height%......|
000006a0  02 f8 04 0d 03 02 0c f4  20 53 43 52 45 45 4e 0d  |........ SCREEN.|
000006b0  03 0c 0c dd f2 73 63 72  65 65 6e 0d 03 16 0e e3  |.....screen.....|
000006c0  4a 25 3d 32 b8 31 88 2d  31 0d 03 20 0e c8 99 36  |J%=2.1.-1.. ...6|
000006d0  2c 31 31 32 2c 4a 25 0d  03 2a 0e fb 31 32 38 3a  |,112,J%..*..128:|
000006e0  c8 9c 31 2c 30 0d 03 34  05 db 0d 03 3e 12 fb 31  |..1,0..4....>..1|
000006f0  32 38 2b 35 32 3a c8 9c  31 2c 36 34 0d 03 48 23  |28+52:..1,64..H#|
00000700  c8 99 20 4f 24 2c 26 32  32 32 2c 61 72 65 61 25  |.. O$,&222,area%|
00000710  2c 6d 61 70 25 2c 4d 58  25 2c 4d 59 25 2c 30 0d  |,map%,MX%,MY%,0.|
00000720  03 52 0a f2 69 63 6f 6e  73 0d 03 5c 12 f1 8a 36  |.R..icons..\...6|
00000730  2c 31 29 c4 32 33 2c 22  20 22 29 0d 03 66 05 ed  |,1).23," ")..f..|
00000740  0d 03 70 05 e1 0d 03 7a  04 0d 03 84 0a f4 20 49  |..p....z...... I|
00000750  4e 49 54 0d 03 8e 0a dd  f2 69 6e 69 74 0d 03 98  |NIT......init...|
00000760  08 76 25 3d 30 0d 03 a2  0c c8 91 31 32 38 2c 36  |.v%=0......128,6|
00000770  34 0d 03 ac 0a 66 69 78  25 3d 30 0d 03 b6 0a 4d  |4....fix%=0....M|
00000780  58 25 3d 36 34 0d 03 c0  0a 4d 59 25 3d 36 34 0d  |X%=64....MY%=64.|
00000790  03 ca 0c e3 49 25 3d 31  b8 32 36 0d 03 d4 0e f3  |....I%=1.26.....|
000007a0  6e 61 6d 65 24 28 49 25  29 0d 03 de 05 ed 0d 03  |name$(I%).......|
000007b0  e8 08 77 25 3d 30 0d 03  f2 0b 4f 4c 44 77 25 3d  |..w%=0....OLDw%=|
000007c0  30 0d 03 fc 17 c8 97 c8  93 4d 58 25 2c 4d 59 25  |0........MX%,MY%|
000007d0  2c 38 36 34 2c 38 33 32  0d 04 06 0e c8 97 b8 35  |,864,832.......5|
000007e0  33 38 2c 33 38 30 0d 04  10 05 e1 0d 04 1a 04 0d  |38,380..........|
000007f0  04 24 0a f4 20 44 49 4d  53 0d 04 2e 0a dd f2 64  |.$.. DIMS......d|
00000800  69 6d 73 0d 04 38 0e de  69 63 6f 6e 25 28 32 36  |ims..8..icon%(26|
00000810  29 0d 04 42 0e de 6e 61  6d 65 24 28 32 36 29 0d  |)..B..name$(26).|
00000820  04 4c 0b 6e 75 6d 25 3d  34 30 0d 04 56 11 de 66  |.L.num%=40..V..f|
00000830  69 78 65 64 25 28 6e 75  6d 25 29 0d 04 60 10 de  |ixed%(num%)..`..|
00000840  66 69 78 58 25 28 6e 75  6d 25 29 0d 04 6a 10 de  |fixX%(num%)..j..|
00000850  66 69 78 59 25 28 6e 75  6d 25 29 0d 04 74 0d de  |fixY%(num%)..t..|
00000860  72 61 69 6e 25 28 33 29  0d 04 7e 0c de 73 75 6e  |rain%(3)..~..sun|
00000870  25 28 33 29 0d 04 88 05  e1 0d 04 92 04 0d 04 9c  |%(3)............|
00000880  04 0d 04 a6 0b f4 20 69  63 6f 6e 73 0d 04 b0 0b  |...... icons....|
00000890  dd f2 69 63 6f 6e 73 0d  04 ba 08 57 25 3d 31 0d  |..icons....W%=1.|
000008a0  04 c4 0b 49 58 25 3d 38  30 30 0d 04 ce 0b 49 59  |...IX%=800....IY|
000008b0  25 3d 38 33 32 0d 04 d8  0c e3 6a 25 3d 31 b8 31  |%=832.....j%=1.1|
000008c0  33 0d 04 e2 0b e3 69 25  3d 31 b8 32 0d 04 ec 28  |3.....i%=1.2...(|
000008d0  c8 99 20 4f 24 2c 26 32  32 32 2c 61 72 65 61 25  |.. O$,&222,area%|
000008e0  2c 69 63 6f 6e 25 28 57  25 29 2c 49 58 25 2c 49  |,icon%(W%),IX%,I|
000008f0  59 25 2c 30 0d 04 f6 09  57 25 2b 3d 31 0d 05 00  |Y%,0....W%+=1...|
00000900  0b 49 58 25 2b 3d 36 34  0d 05 0a 05 ed 0d 05 14  |.IX%+=64........|
00000910  0b 49 58 25 3d 38 30 30  0d 05 1e 0b 49 59 25 2d  |.IX%=800....IY%-|
00000920  3d 36 34 0d 05 28 05 ed  0d 05 32 05 e1 0d 05 3c  |=64..(....2....<|
00000930  04 0d 05 46 0b f4 20 6d  6f 75 73 65 0d 05 50 0b  |...F.. mouse..P.|
00000940  dd f2 6d 6f 75 73 65 0d  05 5a 0e c8 97 58 25 2c  |..mouse..Z...X%,|
00000950  59 25 2c 5a 25 0d 05 64  19 f4 50 52 49 4e 54 54  |Y%,Z%..d..PRINTT|
00000960  41 42 28 30 2c 30 29 3b  58 25 3b 22 20 22 0d 05  |AB(0,0);X%;" "..|
00000970  6e 19 f4 50 52 49 4e 54  54 41 42 28 30 2c 31 29  |n..PRINTTAB(0,1)|
00000980  3b 59 25 3b 22 20 22 0d  05 78 0b c8 8e 20 5a 25  |;Y%;" "..x... Z%|
00000990  20 ca 0d 05 82 39 c9 20  34 3a e7 59 25 3e 3d 36  | ....9. 4:.Y%>=6|
000009a0  34 80 59 25 3c 3d 38 39  30 3a e7 58 25 3e 3d 38  |4.Y%<=890:.X%>=8|
000009b0  30 34 80 58 25 3c 3d 38  36 34 f2 73 65 6c 65 63  |04.X%<=864.selec|
000009c0  74 28 31 29 3a f2 6c 65  74 67 6f 0d 05 8c 36 20  |t(1):.letgo...6 |
000009d0  e7 59 25 3e 3d 36 34 80  59 25 3c 3d 38 39 30 3a  |.Y%>=64.Y%<=890:|
000009e0  e7 58 25 3e 3d 38 36 38  80 58 25 3c 3d 39 32 38  |.X%>=868.X%<=928|
000009f0  f2 73 65 6c 65 63 74 28  30 29 3a f2 6c 65 74 67  |.select(0):.letg|
00000a00  6f 0d 05 96 2f 20 e7 59  25 3e 3d 36 34 80 59 25  |o.../ .Y%>=64.Y%|
00000a10  3c 3d 38 39 30 80 77 25  3e 30 3a e7 58 25 3c 3d  |<=890.w%>0:.X%<=|
00000a20  37 34 30 f2 66 69 78 69  74 3a f2 6c 65 74 67 6f  |740.fixit:.letgo|
00000a30  0d 05 a0 34 c9 20 31 3a  e7 59 25 3e 3d 36 34 80  |...4. 1:.Y%>=64.|
00000a40  59 25 3c 3d 38 39 30 80  77 25 3e 30 3a e7 58 25  |Y%<=890.w%>0:.X%|
00000a50  3c 3d 37 34 30 f2 75 6e  66 69 78 69 74 3a f2 6c  |<=740.unfixit:.l|
00000a60  65 74 67 6f 0d 05 aa 05  cb 0d 05 b4 05 e1 0d 05  |etgo............|
00000a70  be 04 0d 05 c8 11 f4 20  73 65 6c 65 63 74 20 69  |....... select i|
00000a80  63 6f 6e 0d 05 d2 10 dd  f2 73 65 6c 65 63 74 28  |con......select(|
00000a90  73 25 29 0d 05 dc 4d e7  4f 4c 44 77 25 3e 30 3a  |s%)...M.OLDw%>0:|
00000aa0  e3 67 25 3d 31 b8 32 3a  c8 99 36 2c 31 31 32 2c  |.g%=1.2:..6,112,|
00000ab0  67 25 3a c8 99 20 4f 24  2c 26 32 32 32 2c 61 72  |g%:.. O$,&222,ar|
00000ac0  65 61 25 2c 69 63 6f 6e  25 28 4f 4c 44 77 25 29  |ea%,icon%(OLDw%)|
00000ad0  2c 4f 4c 44 78 25 2c 4f  4c 44 79 25 2c 30 3a ed  |,OLDx%,OLDy%,0:.|
00000ae0  0d 05 e6 08 68 25 3d 34  0d 05 f0 11 79 25 3d 28  |....h%=4....y%=(|
00000af0  59 25 81 36 34 29 2a 36  34 0d 05 fa 1f e7 73 25  |Y%.64)*64.....s%|
00000b00  3d 30 78 25 3d 38 36 34  3a 77 25 3d 32 38 2d 28  |=0x%=864:w%=28-(|
00000b10  59 25 81 36 34 29 2a 32  0d 06 04 1f e7 73 25 3d  |Y%.64)*2.....s%=|
00000b20  31 78 25 3d 38 30 30 3a  77 25 3d 32 37 2d 28 59  |1x%=800:w%=27-(Y|
00000b30  25 81 36 34 29 2a 32 0d  06 0e 0b e3 67 25 3d 31  |%.64)*2.....g%=1|
00000b40  b8 32 0d 06 18 0e c8 99  36 2c 31 31 32 2c 67 25  |.2......6,112,g%|
00000b50  0d 06 22 27 c8 99 20 4f  24 2c 26 32 32 32 2c 61  |.."'.. O$,&222,a|
00000b60  72 65 61 25 2c 69 63 6f  6e 25 28 77 25 29 2c 78  |rea%,icon%(w%),x|
00000b70  25 2c 79 25 2c 68 25 0d  06 2c 05 ed 0d 06 36 2d  |%,y%,h%..,....6-|
00000b80  e3 67 25 3d 31 b8 32 3a  c8 99 36 2c 31 31 32 2c  |.g%=1.2:..6,112,|
00000b90  67 25 3a f1 8a 37 2c 31  29 3b 6e 61 6d 65 24 28  |g%:..7,1);name$(|
00000ba0  77 25 29 3b 89 31 30 3a  ed 0d 06 40 0c 4f 4c 44  |w%);.10:...@.OLD|
00000bb0  77 25 3d 77 25 0d 06 4a  0c 4f 4c 44 78 25 3d 78  |w%=w%..J.OLDx%=x|
00000bc0  25 0d 06 54 0c 4f 4c 44  79 25 3d 79 25 0d 06 5e  |%..T.OLDy%=y%..^|
00000bd0  05 e1 0d 06 68 04 0d 06  72 19 f4 20 6c 65 74 20  |....h...r.. let |
00000be0  67 6f 20 6d 6f 75 73 65  20 62 75 74 74 6f 6e 0d  |go mouse button.|
00000bf0  06 7c 0b dd f2 6c 65 74  67 6f 0d 06 86 05 f5 0d  |.|...letgo......|
00000c00  06 90 0e c8 97 58 25 2c  59 25 2c 5a 25 0d 06 9a  |.....X%,Y%,Z%...|
00000c10  09 fd 5a 25 3d 30 0d 06  a4 05 e1 0d 06 ae 04 0d  |..Z%=0..........|
00000c20  06 b8 0c f4 20 66 69 78  20 69 74 0d 06 c2 0b dd  |.... fix it.....|
00000c30  f2 66 69 78 69 74 0d 06  cc 0c e7 59 25 3e 38 33  |.fixit.....Y%>83|
00000c40  32 e1 0d 06 d6 13 66 69  78 25 3d 30 3a f5 66 69  |2.....fix%=0:.fi|
00000c50  78 25 2b 3d 31 0d 06 e0  1d fd 66 69 78 65 64 25  |x%+=1.....fixed%|
00000c60  28 66 69 78 25 29 3d 30  84 66 69 78 25 3d 6e 75  |(fix%)=0.fix%=nu|
00000c70  6d 25 0d 06 ea 26 c8 99  20 4f 24 2c 26 32 32 32  |m%...&.. O$,&222|
00000c80  2c 61 72 65 61 25 2c 69  63 6f 6e 25 28 77 25 29  |,area%,icon%(w%)|
00000c90  2c 58 25 2c 59 25 2c 30  0d 06 f4 13 66 69 78 65  |,X%,Y%,0....fixe|
00000ca0  64 25 28 66 69 78 25 29  3d 77 25 0d 06 fe 21 66  |d%(fix%)=w%...!f|
00000cb0  69 78 58 25 28 66 69 78  25 29 3d 58 25 3a 66 69  |ixX%(fix%)=X%:fi|
00000cc0  78 59 25 28 66 69 78 25  29 3d 59 25 0d 07 08 05  |xY%(fix%)=Y%....|
00000cd0  e1 0d 07 12 04 0d 07 1c  0c f4 20 66 69 78 65 64  |.......... fixed|
00000ce0  21 0d 07 26 0b dd f2 66  69 78 65 64 0d 07 30 0c  |!..&...fixed..0.|
00000cf0  e7 66 69 78 25 3d 30 e1  0d 07 3a 0e e3 66 25 3d  |.fix%=0...:..f%=|
00000d00  31 b8 6e 75 6d 25 0d 07  44 48 e7 66 69 78 65 64  |1.num%..DH.fixed|
00000d10  25 28 66 25 29 3d 31 31  c8 99 20 4f 24 2c 26 32  |%(f%)=11.. O$,&2|
00000d20  32 32 2c 61 72 65 61 25  2c 72 61 69 6e 25 28 76  |22,area%,rain%(v|
00000d30  25 29 2c 66 69 78 58 25  28 66 25 29 2c 66 69 78  |%),fixX%(f%),fix|
00000d40  59 25 28 66 25 29 2c 38  3a e5 8d 44 62 47 0d 07  |Y%(f%),8:..DbG..|
00000d50  4e 46 e7 66 69 78 65 64  25 28 66 25 29 3d 34 c8  |NF.fixed%(f%)=4.|
00000d60  99 20 4f 24 2c 26 32 32  32 2c 61 72 65 61 25 2c  |. O$,&222,area%,|
00000d70  73 75 6e 25 28 76 25 29  2c 66 69 78 58 25 28 66  |sun%(v%),fixX%(f|
00000d80  25 29 2c 66 69 78 59 25  28 66 25 29 2c 38 3a e5  |%),fixY%(f%),8:.|
00000d90  8d 44 62 47 0d 07 58 49  e7 66 69 78 65 64 25 28  |.DbG..XI.fixed%(|
00000da0  66 25 29 3e 30 c8 99 20  4f 24 2c 26 32 32 32 2c  |f%)>0.. O$,&222,|
00000db0  61 72 65 61 25 2c 69 63  6f 6e 25 28 66 69 78 65  |area%,icon%(fixe|
00000dc0  64 25 28 66 25 29 29 2c  66 69 78 58 25 28 66 25  |d%(f%)),fixX%(f%|
00000dd0  29 2c 66 69 78 59 25 28  66 25 29 2c 30 0d 07 62  |),fixY%(f%),0..b|
00000de0  05 ed 0d 07 6c 0f 76 25  3d 28 76 25 2b 31 29 83  |....l.v%=(v%+1).|
00000df0  34 0d 07 76 05 e1 0d 07  80 04 0d 07 8a 0e f4 20  |4..v........... |
00000e00  75 6e 66 69 78 20 69 74  0d 07 94 0d dd f2 75 6e  |unfix it......un|
00000e10  66 69 78 69 74 0d 07 9e  0c e7 66 69 78 25 3c 31  |fixit.....fix%<1|
00000e20  e1 0d 07 a8 0e e3 66 25  3d 31 b8 6e 75 6d 25 0d  |......f%=1.num%.|
00000e30  07 b2 23 70 25 3d 58 25  2d 66 69 78 58 25 28 66  |..#p%=X%-fixX%(f|
00000e40  25 29 3a 71 25 3d 59 25  2d 66 69 78 59 25 28 66  |%):q%=Y%-fixY%(f|
00000e50  25 29 0d 07 bc 37 e7 66  69 78 65 64 25 28 66 25  |%)...7.fixed%(f%|
00000e60  29 3e 30 3a e7 70 25 3c  36 34 80 70 25 3e 30 80  |)>0:.p%<64.p%>0.|
00000e70  71 25 3c 36 34 80 71 25  3e 30 ef 37 3a 66 69 78  |q%<64.q%>0.7:fix|
00000e80  65 64 25 28 66 25 29 3d  30 0d 07 c6 05 ed 0d 07  |ed%(f%)=0.......|
00000e90  d0 05 e1 0d 07 da 04 0d  07 e4 09 dc 4d 69 6c 64  |............Mild|
00000ea0  0d 07 ee 09 dc 57 61 72  6d 0d 07 f8 08 dc 48 6f  |.....Warm.....Ho|
00000eb0  74 0d 08 02 0d dc 42 6f  69 6c 69 6e 67 21 0d 08  |t.....Boiling!..|
00000ec0  0c 09 dc 43 6f 6f 6c 0d  08 16 09 dc 43 6f 6c 64  |...Cool.....Cold|
00000ed0  0d 08 20 0b dc 42 69 74  74 65 72 0d 08 2a 0e dc  |.. ..Bitter..*..|
00000ee0  46 72 65 65 7a 69 6e 67  21 0d 08 34 0c dc 53 68  |Freezing!..4..Sh|
00000ef0  6f 77 65 72 73 0d 08 3e  0c dc 44 72 69 7a 7a 6c  |owers..>..Drizzl|
00000f00  65 0d 08 48 09 dc 52 61  69 6e 0d 08 52 0c dc 44  |e..H..Rain..R..D|
00000f10  65 6c 75 67 65 21 0d 08  5c 0a dc 53 74 69 6c 6c  |eluge!..\..Still|
00000f20  0d 08 66 0b dc 42 72 65  65 7a 79 0d 08 70 0a dc  |..f..Breezy..p..|
00000f30  57 69 6e 64 79 0d 08 7a  0b dc 47 61 6c 65 73 21  |Windy..z..Gales!|
00000f40  0d 08 84 0b dc 43 6c 6f  75 64 79 0d 08 8e 0d dc  |.....Cloudy.....|
00000f50  4f 76 65 72 63 61 73 74  0d 08 98 09 dc 47 72 69  |Overcast.....Gri|
00000f60  6d 0d 08 a2 0d dc 54 68  75 6e 64 65 72 21 0d 08  |m.....Thunder!..|
00000f70  ac 09 dc 48 61 69 6c 0d  08 b6 0a dc 53 6c 65 65  |...Hail.....Slee|
00000f80  74 0d 08 c0 0a dc 46 72  6f 73 74 0d 08 ca 09 dc  |t.....Frost.....|
00000f90  53 6e 6f 77 0d 08 d4 08  dc 46 6f 67 0d 08 de 09  |Snow.....Fog....|
00000fa0  dc 4d 69 73 74 0d ff                              |.Mist..|
00000fa7