Home » Archimedes archive » Acorn Computing » 1994 04.adf » 9404 » Graphics/Weather2!
Graphics/Weather2!
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn Computing » 1994 04.adf » 9404 |
| Filename: | Graphics/Weather2! |
| Read OK: | ✔ |
| File size: | 16B1 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > <MAG$Dir>.Weather2!
20REM Acorn Computing
30REM Part 2 by Mag,Lea & Cat
40
50ON ERROR MODEMODE:REPORT:PRINT" at ";ERL:END
60
70MODE13:OFF
80MOUSE ON
90O$="OS_SpriteOp"
100day%=1
110month%=3
120year%=1994
130
140REM Load in the Spritefile
150sprites$="MAPS"
160file%=OPENIN("<MAG$Dir>."+sprites$)
170size%=EXT#file%+64
180CLOSE#file%
190
200REM Dimension an AREA the SIZE of the file to store sprites in
210DIM area% size%
220area%!0=size%
230
240REM Initialise area to load the sprite definitions to
250SYS O$,256+9,area%
260
270REM Now load the sprite definitions to this area
280SYS O$,256+10,area%,"<MAG$Dir>."+sprites$
290
300REM _____SET UP ONCE ONLY_________
310PROCdims
320PROCsprites
330REM ------------------------------
340
350WHILE TRUE
360 REPEAT
370 RESTORE
380 SYS6,113,1
390 PROCinit
400 PROCscreen
410 PROCdate
420
430 REPEAT
440 PROCmouse
450 IFINKEY-51PROCchangeday:PROCdate
460 IFINKEY-87PROCload:PROCfixed
470 UNTILw%>0 OR INKEY-52
480 UNTIL NOTINKEY-52
490 K%=1
500 REPEAT
510 K%=3-K%:SYS6,112,K%
520 SYS O$,&222,area%,map%,MX%,MY%,0
530 PROCfixed
540 PROCmouse
550 IF X%<740 AND Y%<=832 SYS O$,&222,area%,static%(w%),X%,Y%,8
560 WAIT:WAIT:SYS6,113,K%
570 IF INKEY-82 PROCsave
580 IF INKEY-87 PROCload
590 IF INKEY-51 PROCchangeday:PROCdate
600 UNTIL INKEY-52
610 ENDWHILE
620END
630
640DEFPROCsprites
650FORI%=1TO26
660 PROCsetsprite("STATIC"+STR$(I%),static%(I%),w%,h%)
670 NEXT
680PROCsetsprite("MAP1",map%,w%,h%)
690FORI%=1TO4
700 PROCsetsprite("SUN"+STR$(I%),icon%(I%),w%,h%)
710 PROCsetsprite("COLD"+STR$(I%),icon%(I%+4),w%,h%)
720 PROCsetsprite("RAIN"+STR$(I%),icon%(I%+8),w%,h%)
730 PROCsetsprite("WIND"+STR$(I%),icon%(I%+12),w%,h%)
740 PROCsetsprite("CLOUD"+STR$(I%),icon%(I%+16),w%,h%)
750 NEXT
760PROCsetsprite("HAIL",icon%(21),w%,h%)
770PROCsetsprite("SLEET",icon%(22),w%,h%)
780PROCsetsprite("FROST",icon%(23),w%,h%)
790PROCsetsprite("SNOW",icon%(24),w%,h%)
800PROCsetsprite("MIST",icon%(25),w%,h%)
810PROCsetsprite("FOG",icon%(26),w%,h%)
820FORI%=0TO3
830 PROCsetsprite("RAIN_"+STR$(I%),action%(11,I%),w%,h%)
840 PROCsetsprite("SUN_"+STR$(I%),action%(4,I%),w%,h%)
850 PROCsetsprite("GALE_"+STR$(I%),action%(16,I%),w%,h%)
860 PROCsetsprite("THUNDER_"+STR$(I%),action%(20,I%),w%,h%)
870 PROCsetsprite("SNOW_"+STR$(I%),action%(24,I%),w%,h%)
880 NEXT
890ENDPROC
900
910DEFPROCsetsprite(string$,RETURN value%,RETURN width%,RETURN height%)
920SYS O$,256+24,area%,string$ TO,,value%
930SYS O$,256+40,area%,string$ TO,,,width%,height%
940ENDPROC
950
960DEFPROCscreen
970FORJ%=2TO1STEP-1
980 SYS6,112,J%
990 COLOUR128:TINT1,0
1000 CLS
1010 COLOUR128+52:TINT1,64
1020 SYS O$,&222,area%,map%,MX%,MY%,0
1030 PROCicons
1040 PRINTTAB(6,1)STRING$(23," ")
1050 NEXT
1060ENDPROC
1070
1080DEFPROCinit
1090v%=0
1100ORIGIN128,64
1110fix%=0
1120fixed%()=0
1130fixX%()=0
1140fixY%()=0
1150MX%=64
1160MY%=64
1170FORI%=1TO26
1180 READname$(I%)
1190 NEXT
1200w%=0
1210OLDw%=0
1220MOUSERECTANGLEMX%,MY%,864,832
1230MOUSETO538,380
1240ENDPROC
1250
1260REM DIMS
1270DEFPROCdims
1280DIMicon%(26)
1290DIMname$(26)
1300num%=40
1310DIMfixed%(num%)
1320DIMfixX%(num%)
1330DIMfixY%(num%)
1340DIMaction%(26,3)
1350DIMstatic%(26)
1360ENDPROC
1370
1380DEFPROCicons
1390W%=1
1400IX%=800
1410IY%=832
1420FORj%=1TO13
1430 FORi%=1TO2
1440 SYS O$,&222,area%,icon%(W%),IX%,IY%,0
1450 W%+=1
1460 IX%+=64
1470 NEXT
1480 IX%=800
1490 IY%-=64
1500 NEXT
1510ENDPROC
1520
1530DEFPROCmouse
1540MOUSEX%,Y%,Z%
1550CASE Z% OF
1560 WHEN 4 : IFY%>=64 IF Y%<=890 IF X%>=804 IF X%<=864 PROCselect(1):PROCletgo
1570 IFY%>=64 IF Y%<=890 IF X%>=868 IF X%<=928 PROCselect(0):PROCletgo
1580 IFY%>=64 IF Y%<=890 IF w%>0 IF X%<=740 PROCfixit:PROCletgo
1590 WHEN 1 : IFY%>=64 IF Y%<=890 IF w%>0 IF X%<=740 PROCunfixit:PROCletgo
1600 ENDCASE
1610ENDPROC
1620
1630DEFPROCselect(s%)
1640IF OLDw%>0 THEN
1650 FOR g%=1 TO 2
1660 SYS6,112,g%
1670 SYS O$,&222,area%,icon%(OLDw%),OLDx%,OLDy%,0
1680 NEXT
1690 ENDIF
1700h%=4
1710y%=(Y%DIV64)*64
1720IFs%=0x%=864:w%=28-(Y%DIV64)*2
1730IFs%=1x%=800:w%=27-(Y%DIV64)*2
1740FOR g%=1 TO 2
1750 SYS6,112,g%
1760 SYS O$,&222,area%,icon%(w%),x%,y%,h%
1770 NEXT
1780FORg%=1TO2
1790 SYS6,112,g%
1800 PRINTTAB(6,1)SPC23;TAB(7,1);name$(w%);" (";w%;")"
1810 NEXT
1820OLDw%=w%
1830OLDx%=x%
1840OLDy%=y%
1850ENDPROC
1860
1870DEFPROCletgo
1880REPEAT
1890 MOUSEX%,Y%,Z%
1900 UNTILZ%=0
1910ENDPROC
1920
1930DEFPROCfixit
1940IF Y%>832 ENDPROC
1950IF X%>=724 ENDPROC
1960fix%=0
1970REPEAT fix%+=1:UNTIL fixed%(fix%)=0 OR fix%=num%
1980SYS O$,&222,area%,static%(w%),X%,Y%,8
1990fixed%(fix%)=w%
2000fixX%(fix%)=X%:fixY%(fix%)=Y%
2010ENDPROC
2020
2030DEFPROCfixed
2040IFfix%=0ENDPROC
2050FORf%=1TOnum%
2060 CASEfixed%(f%)OF
2070 WHEN 4,11,16,20,24
2080 SYS O$,&222,area%,action%(fixed%(f%),v%),fixX%(f%),fixY%(f%),8
2090 OTHERWISE
2100 IF fixed%(f%)>0 SYS O$,&222,area%,static%(fixed%(f%)),fixX%(f%),fixY%(f%),8
2110 ENDCASE
2120 NEXT
2130v%=(v%+1)MOD4
2140ENDPROC
2150
2160DEFPROCunfixit
2170IF fix%<1 ENDPROC
2180FOR f%=1 TO num%
2190 p%=X%-fixX%(f%):q%=Y%-fixY%(f%)
2200 IF fixed%(f%)>0 IF p%<64 IF p%>0 IF q%<64 IF q%>0 VDU7:fixed%(f%)=0
2210 NEXT
2220ENDPROC
2230
2240DEFPROCdate
2250FORg%=2TO1STEP-1
2260 SYS6,112,g%
2270 PRINTTAB(6,28)SPC23
2280 PRINTTAB(6,28);day%;":";month%;":";year%;" "
2290 NEXT
2300ENDPROC
2310
2320DEFPROCchangeday:*FX21
2330PRINTTAB(6,28);SPC16
2340INPUTTAB(6,28)"Day ";day%
2350PRINTTAB(6,28);SPC16
2360INPUTTAB(6,28)"Month ";month%
2370PRINTTAB(6,28);SPC16
2380INPUTTAB(6,28)"Year ";year%
2390PRINTTAB(6,28);SPC16
2400ENDPROC
2410
2420REM data
2430DATAMild
2440DATAWarm
2450DATAHot
2460DATABoiling!
2470DATACool
2480DATACold
2490DATABitter
2500DATAFreezing!
2510DATAShowers
2520DATADrizzle
2530DATARain
2540DATADeluge!
2550DATAStill
2560DATABreezy
2570DATAWindy
2580DATAGales!
2590DATACloudy
2600DATAOvercast
2610DATAGrim
2620DATAThunder!
2630DATAHail
2640DATASleet
2650DATAFrost
2660DATASnow
2670DATAFog
2680DATAMist
2690
2700REM LOAD FILE
2710DEFPROCload
2720y%=1:SYS6,21
2730PRINTTAB(7,y%)"LOAD FILE? (Y/N) ":yn$=GET$
2740IFyn$<>"Y"PRINTTAB(6,1)SPC23;TAB(7,1);name$(w%):ENDPROC
2750PRINTTAB(6,y%)SPC23
2760INPUTTAB(7,y%)"WHAT NAME? "name$
2770PRINTTAB(6,y%)SPC23
2780FORg%=1TO2
2790 SYS6,112,g%
2800 PRINTTAB(6,1);SPC23;TAB(7,1);name$(w%):SYS O$,&222,area%,map%,MX%,MY%,0
2810 NEXT
2820file%=OPENIN("<MAG$Dir>."+name$)
2830FORI%=1TOnum%
2840 INPUT#file%,day%
2850 INPUT#file%,month%
2860 INPUT#file%,year%
2870 INPUT#file%,fix%
2880 INPUT#file%,fixed%(I%)
2890 INPUT#file%,fixX%(I%)
2900 INPUT#file%,fixY%(I%)
2910 NEXT
2920CLOSE#file%
2930PROCdate
2940ENDPROC
2950
2960DEFPROCsave
2970y%=1:SYS6,21
2980PRINTTAB(7,y%)"SAVE file? (Y/N) ":yn$=GET$
2990IFyn$<>"Y"PRINTTAB(6,1);SPC23;TAB(7,1);name$(w%):ENDPROC
3000PRINTTAB(6,y%)SPC23:INPUTTAB(7,y%)"WHAT NAME? "name$
3010PRINTTAB(6,1);SPC23;TAB(7,1);name$(w%)
3020file%=OPENOUT("<MAG$Dir>."+name$)
3030FORI%=1TOnum%
3040 PRINT#file%,day%
3050 PRINT#file%,month%
3060 PRINT#file%,year%
3070 PRINT#file%,fix%
3080 PRINT#file%,fixed%(I%)
3090 PRINT#file%,fixX%(I%)
3100 PRINT#file%,fixY%(I%)
3110 NEXT
3120CLOSE#file%
3130ENDPROC
� > <MAG$Dir>.Weather2!
� Acorn Computing
� Part 2 by Mag,Lea & Cat
(
2� � ��:�:�" at ";�:�
<
F �13:�
Pȗ �
ZO$="OS_SpriteOp"
d
day%=1
n month%=3
xyear%=1994
�
� � Load in the Spritefile
�sprites$="MAPS"
�"file%=�("<MAG$Dir>."+sprites$)
�size%=�#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%,"<MAG$Dir>."+sprites$
"
,$� _____SET UP ONCE ONLY_________
6 �dims
@ �sprites
J$� ------------------------------
T
^ȕ �
h �
r �
| ș6,113,1
�
�init
� �screen
�
�date
�
� �
� �mouse
� �-51�changeday:�date
� �-87�load:�fixed
� �w%>0 � �-52
� � ��-52
�
K%=1
� �
� K%=3-K%:ș6,112,K%
' ș O$,&222,area%,map%,MX%,MY%,0
�fixed
�mouse
&? � X%<740 � Y%<=832 ș O$,&222,area%,static%(w%),X%,Y%,8
0 Ȗ:Ȗ:ș6,113,K%
: � �-82 �save
D � �-87 �load
N � �-51 �changeday:�date
X � �-52
b �
l�
v
�
��sprites
� �I%=1�26
�2 �setsprite("STATIC"+�(I%),static%(I%),w%,h%)
� �
�!�setsprite("MAP1",map%,w%,h%)
� �I%=1�4
�- �setsprite("SUN"+�(I%),icon%(I%),w%,h%)
�0 �setsprite("COLD"+�(I%),icon%(I%+4),w%,h%)
�0 �setsprite("RAIN"+�(I%),icon%(I%+8),w%,h%)
�1 �setsprite("WIND"+�(I%),icon%(I%+12),w%,h%)
�2 �setsprite("CLOUD"+�(I%),icon%(I%+16),w%,h%)
� �
�&�setsprite("HAIL",icon%(21),w%,h%)
'�setsprite("SLEET",icon%(22),w%,h%)
'�setsprite("FROST",icon%(23),w%,h%)
&�setsprite("SNOW",icon%(24),w%,h%)
&�setsprite("MIST",icon%(25),w%,h%)
*%�setsprite("FOG",icon%(26),w%,h%)
4 �I%=0�3
>4 �setsprite("RAIN_"+�(I%),action%(11,I%),w%,h%)
H2 �setsprite("SUN_"+�(I%),action%(4,I%),w%,h%)
R4 �setsprite("GALE_"+�(I%),action%(16,I%),w%,h%)
\7 �setsprite("THUNDER_"+�(I%),action%(20,I%),w%,h%)
f4 �setsprite("SNOW_"+�(I%),action%(24,I%),w%,h%)
p �
z�
�
�4��setsprite(string$,� value%,� width%,� height%)
�(ș O$,256+24,area%,string$ �,,value%
�1ș O$,256+40,area%,string$ �,,,width%,height%
��
�
� ��screen
��J%=2�1�-1
� ș6,112,J%
� �128:Ȝ1,0
� �
� �128+52:Ȝ1,64
�% ș O$,&222,area%,map%,MX%,MY%,0
�icons
�6,1)�23," ")
�
$�
.
8
��init
Bv%=0
L ȑ128,64
V
fix%=0
`fixed%()=0
j
fixX%()=0
t
fixY%()=0
~
MX%=64
�
MY%=64
� �I%=1�26
� �name$(I%)
� �
�w%=0
� OLDw%=0
�ȗȓMX%,MY%,864,832
�ȗ�538,380
��
�
�
� DIMS
�
��dims
�icon%(26)
�name$(26)
num%=40
�fixed%(num%)
(�fixX%(num%)
2�fixY%(num%)
<�action%(26,3)
F�static%(26)
P�
Z
d ��icons
nW%=1
x 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
� �
��
�
� ��mouse
ȗX%,Y%,Z%
Ȏ Z% �
C � 4 : �Y%>=64 � Y%<=890 � X%>=804 � X%<=864 �select(1):�letgo
"F �Y%>=64 � Y%<=890 � X%>=868 � X%<=928 �select(0):�letgo
,? �Y%>=64 � Y%<=890 � w%>0 � X%<=740 �fixit:�letgo
6> � 1 : �Y%>=64 � Y%<=890 � w%>0 � X%<=740 �unfixit:�letgo
@ �
J�
T
^��select(s%)
h� OLDw%>0 �
r � g%=1 � 2
| ș6,112,g%
�5 ș 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%
� �
� �g%=1�2
� ș6,112,g%
+ �6,1)�23;�7,1);name$(w%);" (";w%;")"
�
OLDw%=w%
& OLDx%=x%
0 OLDy%=y%
:�
D
N ��letgo
X�
b ȗX%,Y%,Z%
l �Z%=0
v�
�
� ��fixit
�� Y%>832 �
�� X%>=724 �
�
fix%=0
�*� fix%+=1:� fixed%(fix%)=0 � fix%=num%
�(ș O$,&222,area%,static%(w%),X%,Y%,8
�fixed%(fix%)=w%
�!fixX%(fix%)=X%:fixY%(fix%)=Y%
��
�
� ��fixed
� �fix%=0�
�f%=1�num%
Ȏfixed%(f%)�
� 4,11,16,20,24
G ș O$,&222,area%,action%(fixed%(f%),v%),fixX%(f%),fixY%(f%),8
*
4S � fixed%(f%)>0 ș O$,&222,area%,static%(fixed%(f%)),fixX%(f%),fixY%(f%),8
> �
H �
Rv%=(v%+1)�4
\�
f
p
��unfixit
z� fix%<1 �
�� f%=1 � num%
�% p%=X%-fixX%(f%):q%=Y%-fixY%(f%)
�B � fixed%(f%)>0 � p%<64 � p%>0 � q%<64 � q%>0 �7:fixed%(f%)=0
� �
��
�
�
��date
��g%=2�1�-1
� ș6,112,g%
� �6,28)�23
�+ �6,28);day%;":";month%;":";year%;" "
� �
��
��changeday:*FX21
�6,28);�16
$�6,28)"Day ";day%
.�6,28);�16
8�6,28)"Month ";month%
B�6,28);�16
L�6,28)"Year ";year%
V�6,28);�16
`�
j
t
� data
~ �Mild
� �Warm
��Hot
�
�Boiling!
� �Cool
� �Cold
� �Bitter
��Freezing!
� �Showers
� �Drizzle
� �Rain
� �Deluge!
�
�Still
�Breezy
�Windy
�Gales!
�Cloudy
(
�Overcast
2 �Grim
<
�Thunder!
F �Hail
P
�Sleet
Z
�Frost
d �Snow
n�Fog
x �Mist
�
�� LOAD FILE
�
��load
�y%=1:ș6,21
�$�7,y%)"LOAD FILE? (Y/N) ":yn$=�
�(�yn$<>"Y"�6,1)�23;�7,1);name$(w%):�
��6,y%)�23
� �7,y%)"WHAT NAME? "name$
��6,y%)�23
� �g%=1�2
� ș6,112,g%
�@ �6,1);�23;�7,1);name$(w%):ș O$,&222,area%,map%,MX%,MY%,0
� �
file%=�("<MAG$Dir>."+name$)
�I%=1�num%
�#file%,day%
" �#file%,month%
, �#file%,year%
6 �#file%,fix%
@ �#file%,fixed%(I%)
J �#file%,fixX%(I%)
T �#file%,fixY%(I%)
^ �
h �#file%
r �date
|�
�
�
��save
�y%=1:ș6,21
�$�7,y%)"SAVE file? (Y/N) ":yn$=�
�)�yn$<>"Y"�6,1);�23;�7,1);name$(w%):�
�(�6,y%)�23:�7,y%)"WHAT NAME? "name$
� �6,1);�23;�7,1);name$(w%)
� file%=�("<MAG$Dir>."+name$)
��I%=1�num%
� �#file%,day%
� �#file%,month%
� �#file%,year%
� �#file%,fix%
�#file%,fixed%(I%)
�#file%,fixX%(I%)
�#file%,fixY%(I%)
& �
0 �#file%
:�
� 00000000 0d 00 0a 1b f4 20 3e 20 3c 4d 41 47 24 44 69 72 |..... > <MAG$Dir|
00000010 3e 2e 57 65 61 74 68 65 72 32 21 0d 00 14 15 f4 |>.Weather2!.....|
00000020 20 41 63 6f 72 6e 20 43 6f 6d 70 75 74 69 6e 67 | Acorn Computing|
00000030 0d 00 1e 1d f4 20 50 61 72 74 20 32 20 62 79 20 |..... Part 2 by |
00000040 4d 61 67 2c 4c 65 61 20 26 20 43 61 74 0d 00 28 |Mag,Lea & Cat..(|
00000050 04 0d 00 32 18 ee 20 85 20 eb eb 3a f6 3a f1 22 |...2.. . ..:.:."|
00000060 20 61 74 20 22 3b 9e 3a e0 0d 00 3c 04 0d 00 46 | at ";.:...<...F|
00000070 09 eb 31 33 3a 87 0d 00 50 08 c8 97 20 ee 0d 00 |..13:...P... ...|
00000080 5a 14 4f 24 3d 22 4f 53 5f 53 70 72 69 74 65 4f |Z.O$="OS_SpriteO|
00000090 70 22 0d 00 64 0a 64 61 79 25 3d 31 0d 00 6e 0c |p"..d.day%=1..n.|
000000a0 6d 6f 6e 74 68 25 3d 33 0d 00 78 0e 79 65 61 72 |month%=3..x.year|
000000b0 25 3d 31 39 39 34 0d 00 82 04 0d 00 8c 1c f4 20 |%=1994......... |
000000c0 4c 6f 61 64 20 69 6e 20 74 68 65 20 53 70 72 69 |Load in the Spri|
000000d0 74 65 66 69 6c 65 0d 00 96 13 73 70 72 69 74 65 |tefile....sprite|
000000e0 73 24 3d 22 4d 41 50 53 22 0d 00 a0 22 66 69 6c |s$="MAPS"..."fil|
000000f0 65 25 3d 8e 28 22 3c 4d 41 47 24 44 69 72 3e 2e |e%=.("<MAG$Dir>.|
00000100 22 2b 73 70 72 69 74 65 73 24 29 0d 00 aa 14 73 |"+sprites$)....s|
00000110 69 7a 65 25 3d a2 23 66 69 6c 65 25 2b 36 34 0d |ize%=.#file%+64.|
00000120 00 b4 0b d9 23 66 69 6c 65 25 0d 00 be 04 0d 00 |....#file%......|
00000130 c8 40 f4 20 44 69 6d 65 6e 73 69 6f 6e 20 61 6e |.@. Dimension an|
00000140 20 41 52 45 41 20 74 68 65 20 53 49 5a 45 20 6f | AREA the SIZE o|
00000150 66 20 74 68 65 20 66 69 6c 65 20 74 6f 20 73 74 |f the file to st|
00000160 6f 72 65 20 73 70 72 69 74 65 73 20 69 6e 0d 00 |ore sprites in..|
00000170 d2 11 de 20 61 72 65 61 25 20 73 69 7a 65 25 0d |... area% size%.|
00000180 00 dc 11 61 72 65 61 25 21 30 3d 73 69 7a 65 25 |...area%!0=size%|
00000190 0d 00 e6 04 0d 00 f0 37 f4 20 49 6e 69 74 69 61 |.......7. Initia|
000001a0 6c 69 73 65 20 61 72 65 61 20 74 6f 20 6c 6f 61 |lise area to loa|
000001b0 64 20 74 68 65 20 73 70 72 69 74 65 20 64 65 66 |d the sprite def|
000001c0 69 6e 69 74 69 6f 6e 73 20 74 6f 0d 00 fa 15 c8 |initions to.....|
000001d0 99 20 4f 24 2c 32 35 36 2b 39 2c 61 72 65 61 25 |. O$,256+9,area%|
000001e0 0d 01 04 04 0d 01 0e 32 f4 20 4e 6f 77 20 6c 6f |.......2. Now lo|
000001f0 61 64 20 74 68 65 20 73 70 72 69 74 65 20 64 65 |ad the sprite de|
00000200 66 69 6e 69 74 69 6f 6e 73 20 74 6f 20 74 68 69 |finitions to thi|
00000210 73 20 61 72 65 61 0d 01 18 2c c8 99 20 4f 24 2c |s area...,.. O$,|
00000220 32 35 36 2b 31 30 2c 61 72 65 61 25 2c 22 3c 4d |256+10,area%,"<M|
00000230 41 47 24 44 69 72 3e 2e 22 2b 73 70 72 69 74 65 |AG$Dir>."+sprite|
00000240 73 24 0d 01 22 04 0d 01 2c 24 f4 20 5f 5f 5f 5f |s$.."...,$. ____|
00000250 5f 53 45 54 20 55 50 20 4f 4e 43 45 20 4f 4e 4c |_SET UP ONCE ONL|
00000260 59 5f 5f 5f 5f 5f 5f 5f 5f 5f 0d 01 36 09 f2 64 |Y_________..6..d|
00000270 69 6d 73 0d 01 40 0c f2 73 70 72 69 74 65 73 0d |ims..@..sprites.|
00000280 01 4a 24 f4 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |.J$. -----------|
00000290 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------|
000002a0 2d 2d 2d 0d 01 54 04 0d 01 5e 08 c8 95 20 b9 0d |---..T...^... ..|
000002b0 01 68 07 20 20 f5 0d 01 72 09 20 20 20 20 f7 0d |.h. ...r. ..|
000002c0 01 7c 11 20 20 20 20 c8 99 36 2c 31 31 33 2c 31 |.|. ..6,113,1|
000002d0 0d 01 86 0d 20 20 20 20 f2 69 6e 69 74 0d 01 90 |.... .init...|
000002e0 0f 20 20 20 20 f2 73 63 72 65 65 6e 0d 01 9a 0d |. .screen....|
000002f0 20 20 20 20 f2 64 61 74 65 0d 01 a4 04 0d 01 ae | .date.......|
00000300 09 20 20 20 20 f5 0d 01 b8 10 20 20 20 20 20 20 |. ..... |
00000310 f2 6d 6f 75 73 65 0d 01 c2 1f 20 20 20 20 20 20 |.mouse.... |
00000320 e7 a6 2d 35 31 f2 63 68 61 6e 67 65 64 61 79 3a |..-51.changeday:|
00000330 f2 64 61 74 65 0d 01 cc 1b 20 20 20 20 20 20 e7 |.date.... .|
00000340 a6 2d 38 37 f2 6c 6f 61 64 3a f2 66 69 78 65 64 |.-87.load:.fixed|
00000350 0d 01 d6 16 20 20 20 20 20 20 fd 77 25 3e 30 20 |.... .w%>0 |
00000360 84 20 a6 2d 35 32 0d 01 e0 0f 20 20 20 20 fd 20 |. .-52.... . |
00000370 ac a6 2d 35 32 0d 01 ea 0a 20 20 4b 25 3d 31 0d |..-52.... K%=1.|
00000380 01 f4 07 20 20 f5 0d 01 fe 1a 20 20 20 20 4b 25 |... ..... K%|
00000390 3d 33 2d 4b 25 3a c8 99 36 2c 31 31 32 2c 4b 25 |=3-K%:..6,112,K%|
000003a0 0d 02 08 27 20 20 20 20 c8 99 20 4f 24 2c 26 32 |...' .. O$,&2|
000003b0 32 32 2c 61 72 65 61 25 2c 6d 61 70 25 2c 4d 58 |22,area%,map%,MX|
000003c0 25 2c 4d 59 25 2c 30 0d 02 12 0e 20 20 20 20 f2 |%,MY%,0.... .|
000003d0 66 69 78 65 64 0d 02 1c 0e 20 20 20 20 f2 6d 6f |fixed.... .mo|
000003e0 75 73 65 0d 02 26 3f 20 20 20 20 e7 20 58 25 3c |use..&? . X%<|
000003f0 37 34 30 20 80 20 59 25 3c 3d 38 33 32 20 c8 99 |740 . Y%<=832 ..|
00000400 20 4f 24 2c 26 32 32 32 2c 61 72 65 61 25 2c 73 | O$,&222,area%,s|
00000410 74 61 74 69 63 25 28 77 25 29 2c 58 25 2c 59 25 |tatic%(w%),X%,Y%|
00000420 2c 38 0d 02 30 18 20 20 20 20 c8 96 3a c8 96 3a |,8..0. ..:..:|
00000430 c8 99 36 2c 31 31 33 2c 4b 25 0d 02 3a 14 20 20 |..6,113,K%..:. |
00000440 20 20 e7 20 a6 2d 38 32 20 f2 73 61 76 65 0d 02 | . .-82 .save..|
00000450 44 14 20 20 20 20 e7 20 a6 2d 38 37 20 f2 6c 6f |D. . .-87 .lo|
00000460 61 64 0d 02 4e 1f 20 20 20 20 e7 20 a6 2d 35 31 |ad..N. . .-51|
00000470 20 f2 63 68 61 6e 67 65 64 61 79 3a f2 64 61 74 | .changeday:.dat|
00000480 65 0d 02 58 0e 20 20 20 20 fd 20 a6 2d 35 32 0d |e..X. . .-52.|
00000490 02 62 07 20 20 ce 0d 02 6c 05 e0 0d 02 76 04 0d |.b. ...l....v..|
000004a0 02 80 0d dd f2 73 70 72 69 74 65 73 0d 02 8a 0c |.....sprites....|
000004b0 e3 49 25 3d 31 b8 32 36 0d 02 94 32 20 20 f2 73 |.I%=1.26...2 .s|
000004c0 65 74 73 70 72 69 74 65 28 22 53 54 41 54 49 43 |etsprite("STATIC|
000004d0 22 2b c3 28 49 25 29 2c 73 74 61 74 69 63 25 28 |"+.(I%),static%(|
000004e0 49 25 29 2c 77 25 2c 68 25 29 0d 02 9e 07 20 20 |I%),w%,h%).... |
000004f0 ed 0d 02 a8 21 f2 73 65 74 73 70 72 69 74 65 28 |....!.setsprite(|
00000500 22 4d 41 50 31 22 2c 6d 61 70 25 2c 77 25 2c 68 |"MAP1",map%,w%,h|
00000510 25 29 0d 02 b2 0b e3 49 25 3d 31 b8 34 0d 02 bc |%).....I%=1.4...|
00000520 2d 20 20 f2 73 65 74 73 70 72 69 74 65 28 22 53 |- .setsprite("S|
00000530 55 4e 22 2b c3 28 49 25 29 2c 69 63 6f 6e 25 28 |UN"+.(I%),icon%(|
00000540 49 25 29 2c 77 25 2c 68 25 29 0d 02 c6 30 20 20 |I%),w%,h%)...0 |
00000550 f2 73 65 74 73 70 72 69 74 65 28 22 43 4f 4c 44 |.setsprite("COLD|
00000560 22 2b c3 28 49 25 29 2c 69 63 6f 6e 25 28 49 25 |"+.(I%),icon%(I%|
00000570 2b 34 29 2c 77 25 2c 68 25 29 0d 02 d0 30 20 20 |+4),w%,h%)...0 |
00000580 f2 73 65 74 73 70 72 69 74 65 28 22 52 41 49 4e |.setsprite("RAIN|
00000590 22 2b c3 28 49 25 29 2c 69 63 6f 6e 25 28 49 25 |"+.(I%),icon%(I%|
000005a0 2b 38 29 2c 77 25 2c 68 25 29 0d 02 da 31 20 20 |+8),w%,h%)...1 |
000005b0 f2 73 65 74 73 70 72 69 74 65 28 22 57 49 4e 44 |.setsprite("WIND|
000005c0 22 2b c3 28 49 25 29 2c 69 63 6f 6e 25 28 49 25 |"+.(I%),icon%(I%|
000005d0 2b 31 32 29 2c 77 25 2c 68 25 29 0d 02 e4 32 20 |+12),w%,h%)...2 |
000005e0 20 f2 73 65 74 73 70 72 69 74 65 28 22 43 4c 4f | .setsprite("CLO|
000005f0 55 44 22 2b c3 28 49 25 29 2c 69 63 6f 6e 25 28 |UD"+.(I%),icon%(|
00000600 49 25 2b 31 36 29 2c 77 25 2c 68 25 29 0d 02 ee |I%+16),w%,h%)...|
00000610 07 20 20 ed 0d 02 f8 26 f2 73 65 74 73 70 72 69 |. ....&.setspri|
00000620 74 65 28 22 48 41 49 4c 22 2c 69 63 6f 6e 25 28 |te("HAIL",icon%(|
00000630 32 31 29 2c 77 25 2c 68 25 29 0d 03 02 27 f2 73 |21),w%,h%)...'.s|
00000640 65 74 73 70 72 69 74 65 28 22 53 4c 45 45 54 22 |etsprite("SLEET"|
00000650 2c 69 63 6f 6e 25 28 32 32 29 2c 77 25 2c 68 25 |,icon%(22),w%,h%|
00000660 29 0d 03 0c 27 f2 73 65 74 73 70 72 69 74 65 28 |)...'.setsprite(|
00000670 22 46 52 4f 53 54 22 2c 69 63 6f 6e 25 28 32 33 |"FROST",icon%(23|
00000680 29 2c 77 25 2c 68 25 29 0d 03 16 26 f2 73 65 74 |),w%,h%)...&.set|
00000690 73 70 72 69 74 65 28 22 53 4e 4f 57 22 2c 69 63 |sprite("SNOW",ic|
000006a0 6f 6e 25 28 32 34 29 2c 77 25 2c 68 25 29 0d 03 |on%(24),w%,h%)..|
000006b0 20 26 f2 73 65 74 73 70 72 69 74 65 28 22 4d 49 | &.setsprite("MI|
000006c0 53 54 22 2c 69 63 6f 6e 25 28 32 35 29 2c 77 25 |ST",icon%(25),w%|
000006d0 2c 68 25 29 0d 03 2a 25 f2 73 65 74 73 70 72 69 |,h%)..*%.setspri|
000006e0 74 65 28 22 46 4f 47 22 2c 69 63 6f 6e 25 28 32 |te("FOG",icon%(2|
000006f0 36 29 2c 77 25 2c 68 25 29 0d 03 34 0b e3 49 25 |6),w%,h%)..4..I%|
00000700 3d 30 b8 33 0d 03 3e 34 20 20 f2 73 65 74 73 70 |=0.3..>4 .setsp|
00000710 72 69 74 65 28 22 52 41 49 4e 5f 22 2b c3 28 49 |rite("RAIN_"+.(I|
00000720 25 29 2c 61 63 74 69 6f 6e 25 28 31 31 2c 49 25 |%),action%(11,I%|
00000730 29 2c 77 25 2c 68 25 29 0d 03 48 32 20 20 f2 73 |),w%,h%)..H2 .s|
00000740 65 74 73 70 72 69 74 65 28 22 53 55 4e 5f 22 2b |etsprite("SUN_"+|
00000750 c3 28 49 25 29 2c 61 63 74 69 6f 6e 25 28 34 2c |.(I%),action%(4,|
00000760 49 25 29 2c 77 25 2c 68 25 29 0d 03 52 34 20 20 |I%),w%,h%)..R4 |
00000770 f2 73 65 74 73 70 72 69 74 65 28 22 47 41 4c 45 |.setsprite("GALE|
00000780 5f 22 2b c3 28 49 25 29 2c 61 63 74 69 6f 6e 25 |_"+.(I%),action%|
00000790 28 31 36 2c 49 25 29 2c 77 25 2c 68 25 29 0d 03 |(16,I%),w%,h%)..|
000007a0 5c 37 20 20 f2 73 65 74 73 70 72 69 74 65 28 22 |\7 .setsprite("|
000007b0 54 48 55 4e 44 45 52 5f 22 2b c3 28 49 25 29 2c |THUNDER_"+.(I%),|
000007c0 61 63 74 69 6f 6e 25 28 32 30 2c 49 25 29 2c 77 |action%(20,I%),w|
000007d0 25 2c 68 25 29 0d 03 66 34 20 20 f2 73 65 74 73 |%,h%)..f4 .sets|
000007e0 70 72 69 74 65 28 22 53 4e 4f 57 5f 22 2b c3 28 |prite("SNOW_"+.(|
000007f0 49 25 29 2c 61 63 74 69 6f 6e 25 28 32 34 2c 49 |I%),action%(24,I|
00000800 25 29 2c 77 25 2c 68 25 29 0d 03 70 07 20 20 ed |%),w%,h%)..p. .|
00000810 0d 03 7a 05 e1 0d 03 84 04 0d 03 8e 34 dd f2 73 |..z.........4..s|
00000820 65 74 73 70 72 69 74 65 28 73 74 72 69 6e 67 24 |etsprite(string$|
00000830 2c f8 20 76 61 6c 75 65 25 2c f8 20 77 69 64 74 |,. value%,. widt|
00000840 68 25 2c f8 20 68 65 69 67 68 74 25 29 0d 03 98 |h%,. height%)...|
00000850 28 c8 99 20 4f 24 2c 32 35 36 2b 32 34 2c 61 72 |(.. O$,256+24,ar|
00000860 65 61 25 2c 73 74 72 69 6e 67 24 20 b8 2c 2c 76 |ea%,string$ .,,v|
00000870 61 6c 75 65 25 0d 03 a2 31 c8 99 20 4f 24 2c 32 |alue%...1.. O$,2|
00000880 35 36 2b 34 30 2c 61 72 65 61 25 2c 73 74 72 69 |56+40,area%,stri|
00000890 6e 67 24 20 b8 2c 2c 2c 77 69 64 74 68 25 2c 68 |ng$ .,,,width%,h|
000008a0 65 69 67 68 74 25 0d 03 ac 05 e1 0d 03 b6 04 0d |eight%..........|
000008b0 03 c0 0c dd f2 73 63 72 65 65 6e 0d 03 ca 0e e3 |.....screen.....|
000008c0 4a 25 3d 32 b8 31 88 2d 31 0d 03 d4 10 20 20 c8 |J%=2.1.-1.... .|
000008d0 99 36 2c 31 31 32 2c 4a 25 0d 03 de 10 20 20 fb |.6,112,J%.... .|
000008e0 31 32 38 3a c8 9c 31 2c 30 0d 03 e8 07 20 20 db |128:..1,0.... .|
000008f0 0d 03 f2 14 20 20 fb 31 32 38 2b 35 32 3a c8 9c |.... .128+52:..|
00000900 31 2c 36 34 0d 03 fc 25 20 20 c8 99 20 4f 24 2c |1,64...% .. O$,|
00000910 26 32 32 32 2c 61 72 65 61 25 2c 6d 61 70 25 2c |&222,area%,map%,|
00000920 4d 58 25 2c 4d 59 25 2c 30 0d 04 06 0c 20 20 f2 |MX%,MY%,0.... .|
00000930 69 63 6f 6e 73 0d 04 10 14 20 20 f1 8a 36 2c 31 |icons.... ..6,1|
00000940 29 c4 32 33 2c 22 20 22 29 0d 04 1a 07 20 20 ed |).23," ").... .|
00000950 0d 04 24 05 e1 0d 04 2e 04 0d 04 38 0a dd f2 69 |..$........8...i|
00000960 6e 69 74 0d 04 42 08 76 25 3d 30 0d 04 4c 0c c8 |nit..B.v%=0..L..|
00000970 91 31 32 38 2c 36 34 0d 04 56 0a 66 69 78 25 3d |.128,64..V.fix%=|
00000980 30 0d 04 60 0e 66 69 78 65 64 25 28 29 3d 30 0d |0..`.fixed%()=0.|
00000990 04 6a 0d 66 69 78 58 25 28 29 3d 30 0d 04 74 0d |.j.fixX%()=0..t.|
000009a0 66 69 78 59 25 28 29 3d 30 0d 04 7e 0a 4d 58 25 |fixY%()=0..~.MX%|
000009b0 3d 36 34 0d 04 88 0a 4d 59 25 3d 36 34 0d 04 92 |=64....MY%=64...|
000009c0 0c e3 49 25 3d 31 b8 32 36 0d 04 9c 10 20 20 f3 |..I%=1.26.... .|
000009d0 6e 61 6d 65 24 28 49 25 29 0d 04 a6 07 20 20 ed |name$(I%).... .|
000009e0 0d 04 b0 08 77 25 3d 30 0d 04 ba 0b 4f 4c 44 77 |....w%=0....OLDw|
000009f0 25 3d 30 0d 04 c4 17 c8 97 c8 93 4d 58 25 2c 4d |%=0........MX%,M|
00000a00 59 25 2c 38 36 34 2c 38 33 32 0d 04 ce 0e c8 97 |Y%,864,832......|
00000a10 b8 35 33 38 2c 33 38 30 0d 04 d8 05 e1 0d 04 e2 |.538,380........|
00000a20 04 0d 04 ec 0a f4 20 44 49 4d 53 0d 04 f6 0a dd |...... DIMS.....|
00000a30 f2 64 69 6d 73 0d 05 00 0e de 69 63 6f 6e 25 28 |.dims.....icon%(|
00000a40 32 36 29 0d 05 0a 0e de 6e 61 6d 65 24 28 32 36 |26).....name$(26|
00000a50 29 0d 05 14 0b 6e 75 6d 25 3d 34 30 0d 05 1e 11 |)....num%=40....|
00000a60 de 66 69 78 65 64 25 28 6e 75 6d 25 29 0d 05 28 |.fixed%(num%)..(|
00000a70 10 de 66 69 78 58 25 28 6e 75 6d 25 29 0d 05 32 |..fixX%(num%)..2|
00000a80 10 de 66 69 78 59 25 28 6e 75 6d 25 29 0d 05 3c |..fixY%(num%)..<|
00000a90 12 de 61 63 74 69 6f 6e 25 28 32 36 2c 33 29 0d |..action%(26,3).|
00000aa0 05 46 10 de 73 74 61 74 69 63 25 28 32 36 29 0d |.F..static%(26).|
00000ab0 05 50 05 e1 0d 05 5a 04 0d 05 64 0b dd f2 69 63 |.P....Z...d...ic|
00000ac0 6f 6e 73 0d 05 6e 08 57 25 3d 31 0d 05 78 0b 49 |ons..n.W%=1..x.I|
00000ad0 58 25 3d 38 30 30 0d 05 82 0b 49 59 25 3d 38 33 |X%=800....IY%=83|
00000ae0 32 0d 05 8c 0c e3 6a 25 3d 31 b8 31 33 0d 05 96 |2.....j%=1.13...|
00000af0 0d 20 20 e3 69 25 3d 31 b8 32 0d 05 a0 2c 20 20 |. .i%=1.2..., |
00000b00 20 20 c8 99 20 4f 24 2c 26 32 32 32 2c 61 72 65 | .. O$,&222,are|
00000b10 61 25 2c 69 63 6f 6e 25 28 57 25 29 2c 49 58 25 |a%,icon%(W%),IX%|
00000b20 2c 49 59 25 2c 30 0d 05 aa 0d 20 20 20 20 57 25 |,IY%,0.... W%|
00000b30 2b 3d 31 0d 05 b4 0f 20 20 20 20 49 58 25 2b 3d |+=1.... IX%+=|
00000b40 36 34 0d 05 be 09 20 20 20 20 ed 0d 05 c8 0d 20 |64.... ..... |
00000b50 20 49 58 25 3d 38 30 30 0d 05 d2 0d 20 20 49 59 | IX%=800.... IY|
00000b60 25 2d 3d 36 34 0d 05 dc 07 20 20 ed 0d 05 e6 05 |%-=64.... .....|
00000b70 e1 0d 05 f0 04 0d 05 fa 0b dd f2 6d 6f 75 73 65 |...........mouse|
00000b80 0d 06 04 0e c8 97 58 25 2c 59 25 2c 5a 25 0d 06 |......X%,Y%,Z%..|
00000b90 0e 0b c8 8e 20 5a 25 20 ca 0d 06 18 43 20 20 c9 |.... Z% ....C .|
00000ba0 20 34 20 3a 20 e7 59 25 3e 3d 36 34 20 e7 20 59 | 4 : .Y%>=64 . Y|
00000bb0 25 3c 3d 38 39 30 20 e7 20 58 25 3e 3d 38 30 34 |%<=890 . X%>=804|
00000bc0 20 e7 20 58 25 3c 3d 38 36 34 20 f2 73 65 6c 65 | . X%<=864 .sele|
00000bd0 63 74 28 31 29 3a f2 6c 65 74 67 6f 0d 06 22 46 |ct(1):.letgo.."F|
00000be0 20 20 20 20 20 20 20 20 20 20 20 e7 59 25 3e 3d | .Y%>=|
00000bf0 36 34 20 e7 20 59 25 3c 3d 38 39 30 20 e7 20 58 |64 . Y%<=890 . X|
00000c00 25 3e 3d 38 36 38 20 e7 20 58 25 3c 3d 39 32 38 |%>=868 . X%<=928|
00000c10 20 f2 73 65 6c 65 63 74 28 30 29 3a f2 6c 65 74 | .select(0):.let|
00000c20 67 6f 0d 06 2c 3f 20 20 20 20 20 20 20 20 20 20 |go..,? |
00000c30 20 e7 59 25 3e 3d 36 34 20 e7 20 59 25 3c 3d 38 | .Y%>=64 . Y%<=8|
00000c40 39 30 20 e7 20 77 25 3e 30 20 e7 20 58 25 3c 3d |90 . w%>0 . X%<=|
00000c50 37 34 30 20 f2 66 69 78 69 74 3a f2 6c 65 74 67 |740 .fixit:.letg|
00000c60 6f 0d 06 36 3e 20 20 c9 20 31 20 3a 20 e7 59 25 |o..6> . 1 : .Y%|
00000c70 3e 3d 36 34 20 e7 20 59 25 3c 3d 38 39 30 20 e7 |>=64 . Y%<=890 .|
00000c80 20 77 25 3e 30 20 e7 20 58 25 3c 3d 37 34 30 20 | w%>0 . X%<=740 |
00000c90 f2 75 6e 66 69 78 69 74 3a f2 6c 65 74 67 6f 0d |.unfixit:.letgo.|
00000ca0 06 40 07 20 20 cb 0d 06 4a 05 e1 0d 06 54 04 0d |.@. ...J....T..|
00000cb0 06 5e 10 dd f2 73 65 6c 65 63 74 28 73 25 29 0d |.^...select(s%).|
00000cc0 06 68 0f e7 20 4f 4c 44 77 25 3e 30 20 8c 0d 06 |.h.. OLDw%>0 ...|
00000cd0 72 12 20 20 20 20 e3 20 67 25 3d 31 20 b8 20 32 |r. . g%=1 . 2|
00000ce0 0d 06 7c 14 20 20 20 20 20 20 c8 99 36 2c 31 31 |..|. ..6,11|
00000cf0 32 2c 67 25 0d 06 86 35 20 20 20 20 20 20 c8 99 |2,g%...5 ..|
00000d00 20 4f 24 2c 26 32 32 32 2c 61 72 65 61 25 2c 69 | O$,&222,area%,i|
00000d10 63 6f 6e 25 28 4f 4c 44 77 25 29 2c 4f 4c 44 78 |con%(OLDw%),OLDx|
00000d20 25 2c 4f 4c 44 79 25 2c 30 0d 06 90 0b 20 20 20 |%,OLDy%,0.... |
00000d30 20 20 20 ed 0d 06 9a 07 20 20 cd 0d 06 a4 08 68 | ..... .....h|
00000d40 25 3d 34 0d 06 ae 11 79 25 3d 28 59 25 81 36 34 |%=4....y%=(Y%.64|
00000d50 29 2a 36 34 0d 06 b8 1f e7 73 25 3d 30 78 25 3d |)*64.....s%=0x%=|
00000d60 38 36 34 3a 77 25 3d 32 38 2d 28 59 25 81 36 34 |864:w%=28-(Y%.64|
00000d70 29 2a 32 0d 06 c2 1f e7 73 25 3d 31 78 25 3d 38 |)*2.....s%=1x%=8|
00000d80 30 30 3a 77 25 3d 32 37 2d 28 59 25 81 36 34 29 |00:w%=27-(Y%.64)|
00000d90 2a 32 0d 06 cc 0e e3 20 67 25 3d 31 20 b8 20 32 |*2..... g%=1 . 2|
00000da0 0d 06 d6 10 20 20 c8 99 36 2c 31 31 32 2c 67 25 |.... ..6,112,g%|
00000db0 0d 06 e0 29 20 20 c8 99 20 4f 24 2c 26 32 32 32 |...) .. O$,&222|
00000dc0 2c 61 72 65 61 25 2c 69 63 6f 6e 25 28 77 25 29 |,area%,icon%(w%)|
00000dd0 2c 78 25 2c 79 25 2c 68 25 0d 06 ea 07 20 20 ed |,x%,y%,h%.... .|
00000de0 0d 06 f4 0b e3 67 25 3d 31 b8 32 0d 06 fe 10 20 |.....g%=1.2.... |
00000df0 20 c8 99 36 2c 31 31 32 2c 67 25 0d 07 08 2b 20 | ..6,112,g%...+ |
00000e00 20 f1 8a 36 2c 31 29 89 32 33 3b 8a 37 2c 31 29 | ..6,1).23;.7,1)|
00000e10 3b 6e 61 6d 65 24 28 77 25 29 3b 22 20 28 22 3b |;name$(w%);" (";|
00000e20 77 25 3b 22 29 22 0d 07 12 07 20 20 ed 0d 07 1c |w%;")".... ....|
00000e30 0c 4f 4c 44 77 25 3d 77 25 0d 07 26 0c 4f 4c 44 |.OLDw%=w%..&.OLD|
00000e40 78 25 3d 78 25 0d 07 30 0c 4f 4c 44 79 25 3d 79 |x%=x%..0.OLDy%=y|
00000e50 25 0d 07 3a 05 e1 0d 07 44 04 0d 07 4e 0b dd f2 |%..:....D...N...|
00000e60 6c 65 74 67 6f 0d 07 58 05 f5 0d 07 62 10 20 20 |letgo..X....b. |
00000e70 c8 97 58 25 2c 59 25 2c 5a 25 0d 07 6c 0b 20 20 |..X%,Y%,Z%..l. |
00000e80 fd 5a 25 3d 30 0d 07 76 05 e1 0d 07 80 04 0d 07 |.Z%=0..v........|
00000e90 8a 0b dd f2 66 69 78 69 74 0d 07 94 0e e7 20 59 |....fixit..... Y|
00000ea0 25 3e 38 33 32 20 e1 0d 07 9e 0f e7 20 58 25 3e |%>832 ...... X%>|
00000eb0 3d 37 32 34 20 e1 0d 07 a8 0a 66 69 78 25 3d 30 |=724 .....fix%=0|
00000ec0 0d 07 b2 2a f5 20 66 69 78 25 2b 3d 31 3a fd 20 |...*. fix%+=1:. |
00000ed0 66 69 78 65 64 25 28 66 69 78 25 29 3d 30 20 84 |fixed%(fix%)=0 .|
00000ee0 20 66 69 78 25 3d 6e 75 6d 25 0d 07 bc 28 c8 99 | fix%=num%...(..|
00000ef0 20 4f 24 2c 26 32 32 32 2c 61 72 65 61 25 2c 73 | O$,&222,area%,s|
00000f00 74 61 74 69 63 25 28 77 25 29 2c 58 25 2c 59 25 |tatic%(w%),X%,Y%|
00000f10 2c 38 0d 07 c6 13 66 69 78 65 64 25 28 66 69 78 |,8....fixed%(fix|
00000f20 25 29 3d 77 25 0d 07 d0 21 66 69 78 58 25 28 66 |%)=w%...!fixX%(f|
00000f30 69 78 25 29 3d 58 25 3a 66 69 78 59 25 28 66 69 |ix%)=X%:fixY%(fi|
00000f40 78 25 29 3d 59 25 0d 07 da 05 e1 0d 07 e4 04 0d |x%)=Y%..........|
00000f50 07 ee 0b dd f2 66 69 78 65 64 0d 07 f8 0c e7 66 |.....fixed.....f|
00000f60 69 78 25 3d 30 e1 0d 08 02 0e e3 66 25 3d 31 b8 |ix%=0......f%=1.|
00000f70 6e 75 6d 25 0d 08 0c 13 20 20 c8 8e 66 69 78 65 |num%.... ..fixe|
00000f80 64 25 28 66 25 29 ca 0d 08 16 17 20 20 20 20 c9 |d%(f%)..... .|
00000f90 20 34 2c 31 31 2c 31 36 2c 32 30 2c 32 34 0d 08 | 4,11,16,20,24..|
00000fa0 20 47 20 20 20 20 20 20 c8 99 20 4f 24 2c 26 32 | G .. O$,&2|
00000fb0 32 32 2c 61 72 65 61 25 2c 61 63 74 69 6f 6e 25 |22,area%,action%|
00000fc0 28 66 69 78 65 64 25 28 66 25 29 2c 76 25 29 2c |(fixed%(f%),v%),|
00000fd0 66 69 78 58 25 28 66 25 29 2c 66 69 78 59 25 28 |fixX%(f%),fixY%(|
00000fe0 66 25 29 2c 38 0d 08 2a 09 20 20 20 20 7f 0d 08 |f%),8..*. ...|
00000ff0 34 53 20 20 20 20 20 20 e7 20 66 69 78 65 64 25 |4S . fixed%|
00001000 28 66 25 29 3e 30 20 c8 99 20 4f 24 2c 26 32 32 |(f%)>0 .. O$,&22|
00001010 32 2c 61 72 65 61 25 2c 73 74 61 74 69 63 25 28 |2,area%,static%(|
00001020 66 69 78 65 64 25 28 66 25 29 29 2c 66 69 78 58 |fixed%(f%)),fixX|
00001030 25 28 66 25 29 2c 66 69 78 59 25 28 66 25 29 2c |%(f%),fixY%(f%),|
00001040 38 0d 08 3e 09 20 20 20 20 cb 0d 08 48 07 20 20 |8..>. ...H. |
00001050 ed 0d 08 52 0f 76 25 3d 28 76 25 2b 31 29 83 34 |...R.v%=(v%+1).4|
00001060 0d 08 5c 05 e1 0d 08 66 04 0d 08 70 0d dd f2 75 |..\....f...p...u|
00001070 6e 66 69 78 69 74 0d 08 7a 0e e7 20 66 69 78 25 |nfixit..z.. fix%|
00001080 3c 31 20 e1 0d 08 84 11 e3 20 66 25 3d 31 20 b8 |<1 ...... f%=1 .|
00001090 20 6e 75 6d 25 0d 08 8e 25 20 20 70 25 3d 58 25 | num%...% p%=X%|
000010a0 2d 66 69 78 58 25 28 66 25 29 3a 71 25 3d 59 25 |-fixX%(f%):q%=Y%|
000010b0 2d 66 69 78 59 25 28 66 25 29 0d 08 98 42 20 20 |-fixY%(f%)...B |
000010c0 e7 20 66 69 78 65 64 25 28 66 25 29 3e 30 20 e7 |. fixed%(f%)>0 .|
000010d0 20 70 25 3c 36 34 20 e7 20 70 25 3e 30 20 e7 20 | p%<64 . p%>0 . |
000010e0 71 25 3c 36 34 20 e7 20 71 25 3e 30 20 ef 37 3a |q%<64 . q%>0 .7:|
000010f0 66 69 78 65 64 25 28 66 25 29 3d 30 0d 08 a2 07 |fixed%(f%)=0....|
00001100 20 20 ed 0d 08 ac 05 e1 0d 08 b6 04 0d 08 c0 0a | ..............|
00001110 dd f2 64 61 74 65 0d 08 ca 0e e3 67 25 3d 32 b8 |..date.....g%=2.|
00001120 31 88 2d 31 0d 08 d4 10 20 20 c8 99 36 2c 31 31 |1.-1.... ..6,11|
00001130 32 2c 67 25 0d 08 de 10 20 20 f1 8a 36 2c 32 38 |2,g%.... ..6,28|
00001140 29 89 32 33 0d 08 e8 2b 20 20 f1 8a 36 2c 32 38 |).23...+ ..6,28|
00001150 29 3b 64 61 79 25 3b 22 3a 22 3b 6d 6f 6e 74 68 |);day%;":";month|
00001160 25 3b 22 3a 22 3b 79 65 61 72 25 3b 22 20 22 0d |%;":";year%;" ".|
00001170 08 f2 07 20 20 ed 0d 08 fc 05 e1 0d 09 06 04 0d |... ...........|
00001180 09 10 15 dd f2 63 68 61 6e 67 65 64 61 79 3a 2a |.....changeday:*|
00001190 46 58 32 31 0d 09 1a 0f f1 8a 36 2c 32 38 29 3b |FX21......6,28);|
000011a0 89 31 36 0d 09 24 16 e8 8a 36 2c 32 38 29 22 44 |.16..$...6,28)"D|
000011b0 61 79 20 22 3b 64 61 79 25 0d 09 2e 0f f1 8a 36 |ay ";day%......6|
000011c0 2c 32 38 29 3b 89 31 36 0d 09 38 1a e8 8a 36 2c |,28);.16..8...6,|
000011d0 32 38 29 22 4d 6f 6e 74 68 20 22 3b 6d 6f 6e 74 |28)"Month ";mont|
000011e0 68 25 0d 09 42 0f f1 8a 36 2c 32 38 29 3b 89 31 |h%..B...6,28);.1|
000011f0 36 0d 09 4c 18 e8 8a 36 2c 32 38 29 22 59 65 61 |6..L...6,28)"Yea|
00001200 72 20 22 3b 79 65 61 72 25 0d 09 56 0f f1 8a 36 |r ";year%..V...6|
00001210 2c 32 38 29 3b 89 31 36 0d 09 60 05 e1 0d 09 6a |,28);.16..`....j|
00001220 04 0d 09 74 0a f4 20 64 61 74 61 0d 09 7e 09 dc |...t.. data..~..|
00001230 4d 69 6c 64 0d 09 88 09 dc 57 61 72 6d 0d 09 92 |Mild.....Warm...|
00001240 08 dc 48 6f 74 0d 09 9c 0d dc 42 6f 69 6c 69 6e |..Hot.....Boilin|
00001250 67 21 0d 09 a6 09 dc 43 6f 6f 6c 0d 09 b0 09 dc |g!.....Cool.....|
00001260 43 6f 6c 64 0d 09 ba 0b dc 42 69 74 74 65 72 0d |Cold.....Bitter.|
00001270 09 c4 0e dc 46 72 65 65 7a 69 6e 67 21 0d 09 ce |....Freezing!...|
00001280 0c dc 53 68 6f 77 65 72 73 0d 09 d8 0c dc 44 72 |..Showers.....Dr|
00001290 69 7a 7a 6c 65 0d 09 e2 09 dc 52 61 69 6e 0d 09 |izzle.....Rain..|
000012a0 ec 0c dc 44 65 6c 75 67 65 21 0d 09 f6 0a dc 53 |...Deluge!.....S|
000012b0 74 69 6c 6c 0d 0a 00 0b dc 42 72 65 65 7a 79 0d |till.....Breezy.|
000012c0 0a 0a 0a dc 57 69 6e 64 79 0d 0a 14 0b dc 47 61 |....Windy.....Ga|
000012d0 6c 65 73 21 0d 0a 1e 0b dc 43 6c 6f 75 64 79 0d |les!.....Cloudy.|
000012e0 0a 28 0d dc 4f 76 65 72 63 61 73 74 0d 0a 32 09 |.(..Overcast..2.|
000012f0 dc 47 72 69 6d 0d 0a 3c 0d dc 54 68 75 6e 64 65 |.Grim..<..Thunde|
00001300 72 21 0d 0a 46 09 dc 48 61 69 6c 0d 0a 50 0a dc |r!..F..Hail..P..|
00001310 53 6c 65 65 74 0d 0a 5a 0a dc 46 72 6f 73 74 0d |Sleet..Z..Frost.|
00001320 0a 64 09 dc 53 6e 6f 77 0d 0a 6e 08 dc 46 6f 67 |.d..Snow..n..Fog|
00001330 0d 0a 78 09 dc 4d 69 73 74 0d 0a 82 04 0d 0a 8c |..x..Mist.......|
00001340 0f f4 20 4c 4f 41 44 20 46 49 4c 45 0d 0a 96 0a |.. LOAD FILE....|
00001350 dd f2 6c 6f 61 64 0d 0a a0 0f 79 25 3d 31 3a c8 |..load....y%=1:.|
00001360 99 36 2c 32 31 0d 0a aa 24 f1 8a 37 2c 79 25 29 |.6,21...$..7,y%)|
00001370 22 4c 4f 41 44 20 46 49 4c 45 3f 20 28 59 2f 4e |"LOAD FILE? (Y/N|
00001380 29 20 22 3a 79 6e 24 3d be 0d 0a b4 28 e7 79 6e |) ":yn$=....(.yn|
00001390 24 3c 3e 22 59 22 f1 8a 36 2c 31 29 89 32 33 3b |$<>"Y"..6,1).23;|
000013a0 8a 37 2c 31 29 3b 6e 61 6d 65 24 28 77 25 29 3a |.7,1);name$(w%):|
000013b0 e1 0d 0a be 0e f1 8a 36 2c 79 25 29 89 32 33 0d |.......6,y%).23.|
000013c0 0a c8 1d e8 8a 37 2c 79 25 29 22 57 48 41 54 20 |.....7,y%)"WHAT |
000013d0 4e 41 4d 45 3f 20 22 6e 61 6d 65 24 0d 0a d2 0e |NAME? "name$....|
000013e0 f1 8a 36 2c 79 25 29 89 32 33 0d 0a dc 0b e3 67 |..6,y%).23.....g|
000013f0 25 3d 31 b8 32 0d 0a e6 10 20 20 c8 99 36 2c 31 |%=1.2.... ..6,1|
00001400 31 32 2c 67 25 0d 0a f0 40 20 20 f1 8a 36 2c 31 |12,g%...@ ..6,1|
00001410 29 3b 89 32 33 3b 8a 37 2c 31 29 3b 6e 61 6d 65 |);.23;.7,1);name|
00001420 24 28 77 25 29 3a c8 99 20 4f 24 2c 26 32 32 32 |$(w%):.. O$,&222|
00001430 2c 61 72 65 61 25 2c 6d 61 70 25 2c 4d 58 25 2c |,area%,map%,MX%,|
00001440 4d 59 25 2c 30 0d 0a fa 07 20 20 ed 0d 0b 04 1f |MY%,0.... .....|
00001450 66 69 6c 65 25 3d 8e 28 22 3c 4d 41 47 24 44 69 |file%=.("<MAG$Di|
00001460 72 3e 2e 22 2b 6e 61 6d 65 24 29 0d 0b 0e 0e e3 |r>."+name$).....|
00001470 49 25 3d 31 b8 6e 75 6d 25 0d 0b 18 12 20 20 e8 |I%=1.num%.... .|
00001480 23 66 69 6c 65 25 2c 64 61 79 25 0d 0b 22 14 20 |#file%,day%..". |
00001490 20 e8 23 66 69 6c 65 25 2c 6d 6f 6e 74 68 25 0d | .#file%,month%.|
000014a0 0b 2c 13 20 20 e8 23 66 69 6c 65 25 2c 79 65 61 |.,. .#file%,yea|
000014b0 72 25 0d 0b 36 12 20 20 e8 23 66 69 6c 65 25 2c |r%..6. .#file%,|
000014c0 66 69 78 25 0d 0b 40 18 20 20 e8 23 66 69 6c 65 |fix%..@. .#file|
000014d0 25 2c 66 69 78 65 64 25 28 49 25 29 0d 0b 4a 17 |%,fixed%(I%)..J.|
000014e0 20 20 e8 23 66 69 6c 65 25 2c 66 69 78 58 25 28 | .#file%,fixX%(|
000014f0 49 25 29 0d 0b 54 17 20 20 e8 23 66 69 6c 65 25 |I%)..T. .#file%|
00001500 2c 66 69 78 59 25 28 49 25 29 0d 0b 5e 07 20 20 |,fixY%(I%)..^. |
00001510 ed 0d 0b 68 0b d9 23 66 69 6c 65 25 0d 0b 72 09 |...h..#file%..r.|
00001520 f2 64 61 74 65 0d 0b 7c 05 e1 0d 0b 86 04 0d 0b |.date..|........|
00001530 90 0a dd f2 73 61 76 65 0d 0b 9a 0f 79 25 3d 31 |....save....y%=1|
00001540 3a c8 99 36 2c 32 31 0d 0b a4 24 f1 8a 37 2c 79 |:..6,21...$..7,y|
00001550 25 29 22 53 41 56 45 20 66 69 6c 65 3f 20 28 59 |%)"SAVE file? (Y|
00001560 2f 4e 29 20 22 3a 79 6e 24 3d be 0d 0b ae 29 e7 |/N) ":yn$=....).|
00001570 79 6e 24 3c 3e 22 59 22 f1 8a 36 2c 31 29 3b 89 |yn$<>"Y"..6,1);.|
00001580 32 33 3b 8a 37 2c 31 29 3b 6e 61 6d 65 24 28 77 |23;.7,1);name$(w|
00001590 25 29 3a e1 0d 0b b8 28 f1 8a 36 2c 79 25 29 89 |%):....(..6,y%).|
000015a0 32 33 3a e8 8a 37 2c 79 25 29 22 57 48 41 54 20 |23:..7,y%)"WHAT |
000015b0 4e 41 4d 45 3f 20 22 6e 61 6d 65 24 0d 0b c2 1e |NAME? "name$....|
000015c0 f1 8a 36 2c 31 29 3b 89 32 33 3b 8a 37 2c 31 29 |..6,1);.23;.7,1)|
000015d0 3b 6e 61 6d 65 24 28 77 25 29 0d 0b cc 1f 66 69 |;name$(w%)....fi|
000015e0 6c 65 25 3d ae 28 22 3c 4d 41 47 24 44 69 72 3e |le%=.("<MAG$Dir>|
000015f0 2e 22 2b 6e 61 6d 65 24 29 0d 0b d6 0e e3 49 25 |."+name$).....I%|
00001600 3d 31 b8 6e 75 6d 25 0d 0b e0 12 20 20 f1 23 66 |=1.num%.... .#f|
00001610 69 6c 65 25 2c 64 61 79 25 0d 0b ea 14 20 20 f1 |ile%,day%.... .|
00001620 23 66 69 6c 65 25 2c 6d 6f 6e 74 68 25 0d 0b f4 |#file%,month%...|
00001630 13 20 20 f1 23 66 69 6c 65 25 2c 79 65 61 72 25 |. .#file%,year%|
00001640 0d 0b fe 12 20 20 f1 23 66 69 6c 65 25 2c 66 69 |.... .#file%,fi|
00001650 78 25 0d 0c 08 18 20 20 f1 23 66 69 6c 65 25 2c |x%.... .#file%,|
00001660 66 69 78 65 64 25 28 49 25 29 0d 0c 12 17 20 20 |fixed%(I%).... |
00001670 f1 23 66 69 6c 65 25 2c 66 69 78 58 25 28 49 25 |.#file%,fixX%(I%|
00001680 29 0d 0c 1c 17 20 20 f1 23 66 69 6c 65 25 2c 66 |).... .#file%,f|
00001690 69 78 59 25 28 49 25 29 0d 0c 26 07 20 20 ed 0d |ixY%(I%)..&. ..|
000016a0 0c 30 0b d9 23 66 69 6c 65 25 0d 0c 3a 05 e1 0d |.0..#file%..:...|
000016b0 ff |.|
000016b1 
.