4�SCSI::SCSIDisc4.$.CoverDisks.!AZTECS.ONE.demo1


"ț "<Aztec$chaindir>.azteclib"
�lib_initialise

�title

�initialise1

^ș "OS_Byte",112,2:�borders(0,0,1279,low%-9):�borders(left%-12,low%-12,right%+12,high%+12)
	

Q�intropeople:�j%=0�5:�delete(del1$(j%)):�:ș "XOS_SpriteOp",&119,AREA%,"bgrd"
�initialise2
�introchin:�landing


�chain("ONE.demo2")
�

��title
*SET Aztec$Status Restart
=ș "OS_SpriteOp",&10B,AREA%,"<Aztec$chaindir>.az_title_c"
ș "OS_Byte",112,2
�borders(0,0,894,high%+12)
&�borders(894,0,right%+12,high%+12)
� 24,12;12;894-12;high%;
� 18,0,134 : �
� 26
�add_sp(2,"titlepic",3,3,6)
=�SYS "OS_SpriteOp",&134,AREA%,"titlepic",12,12,0,SCALE%,0
�scrcopy21
�wait(300)
ș "OS_Byte",112,2
!�add_sp(2,"titlewor",13,18,6)
 >�SYS "OS_SpriteOp",&134,AREA%,"titlewor",48,736,8,SCALE%,0
!�scrcopy21
"+�words(920,836,0,"Designed/written by")
#!�words(920,792,0," Adam and")
$'�words(920,748,0," Sandra Hosler.")
%*�words(920,632,0,"The full adventure")
&+�words(920,588,0,"can be ordered from")
'*�words(920,508,0,"Sherston Software,")
($�words(920,464,0,"Swan Barton,")
)!�words(920,420,0,"Sherston,")
*#�words(920,376,0,"Malmesbury,")
+"�words(920,332,0,"Wiltshire.")
, �words(920,288,0,"SN16 OLH")
-)�words(920,244,0,"Phone 0666 840433")
.'�words(920,200,0,"Fax 0666 840048")
/+�delete("titlepic"):�delete("titlewor")
0�
1
2��initialise1
3|ș "OS_SpriteOp",&10B,AREA%,"<AZTEC$chaindir>.ONE.outberm_c":ș "OS_SpriteOp",&10B,AREA%,"<AZTEC$chaindir>.ONE.people_c"
4� exp1$(8),del1$(5)
5� +0
6S� helicopt,top_rot,top_rot0,top_rot1,back_rot,back_rot0,back_rot1,pilot,cockpit
73� house,peeking,jetpac,workshop,keep_out,angpac
8#� btriang,ocean,cabdark,cablite
9�j%=0�8:� exp1$(j%):�
: �j%=0�8:�expand(exp1$(j%)):�
;�j%=0�5:� del1$(j%):�
<�
=
>��initialise2
?yș "OS_SpriteOp",&10B,AREA%,"<AZTEC$chaindir>.ONE.chin1_c":ș "OS_SpriteOp",&10B,AREA%,"<AZTEC$chaindir>.ONE.chin2_c"
@?ș "OS_SpriteOp",&10B,AREA%,"<AZTEC$chaindir>.ONE.mounts_c"
A �k%=0�2:�expand("m"+�(k%)):�
B"�k%=1�5:�expand("veg"+�(k%)):�
C� exp2$(29)
D� +0
E�� carrot,frog,locust,lfish,bfish0,bfish1,tree,farmer1,farmerbod,farmhead0,farmhead1,warrileft,warriright,kidsad,angsad,farmrun,splash,chinbot,chintop,makewater,makeposts,makepost,makelining,makemat,makerocks,maketree,makewatxs,meats,vegets,boats
F�j%=0�29:� exp2$(j%):�
G �k%=0�5:�expand(exp2$(k%)):�
H�
I� +0
J� 536,352,760,296
K%�k%=0�1:� box%(k%,0),box%(k%,1):�
L� veg%(17,2),loc%(4,1)
M� +0
N�� 268,328,5,132,268,5,388,276,5,68,228,2,16,260,2,12,188,2,-68,224,2,-48,152,2,-128,192,2,-144,120,2,544,240,1,620,244,1,592,192,1,696,156,1,276,204,3,192,136,4,420,116,4,284,76,4
O&�j%=0�17:�k%=0�2:� veg%(j%,k%):�:�
P&� -52,68,132,60,-24,28,-84,4,168,8
Q%�j%=0�4:�k%=0�1:� loc%(j%,k%):�:�
R�
S
T��intropeople
Um�cleargraphics(6):�add_sp(2,"house",3,3,6):�add_sp(2,"workshop",268,94,6):�add_sp(2,"keep_out",272,143,6)
Vș"OS_Byte",112,1
W>coords%(0,1)=20:labels$(0)="  Go  on":�choose_but(1,1,2,2)
X6C%=2:D%=1:E%=2:F%=1:�explode(640,600,0):�scrcopy21
YG�words(70,134,-1,"This 'AZTECS' adventure starts here in Bermuda.")
Z:�add_sp(2,"boy",100,96,12):�add_sp(2,"girl",137,96,12)
[�go_on:�scrcopy21
\L�words(70,134,-1,"This is you.  You are staying with your Uncle Angus.")
]!�add_sp(2,"peeking",234,88,6)
^�go_on:�scrcopy21
_&�words(70,134,-1,"This is Angus.")
`ș"OS_Byte",112,2:�cleargraphics(6):�add_sp(2,"house",3,3,6):�add_sp(2,"workshop",268,94,6):�add_sp(2,"keep_out",272,143,6)
a��add_sp(2,"boy",100,96,12):�add_sp(2,"girl",137,96,12):�add_sp(2,"angpac",184,129,6):�add_sp(2,"angus",215,86,6):ș"OS_Byte",112,1
b�go_on:�scrcopy21
c:�words(70,134,-1,"He has invented a special jet-pac.")
dM�addbox(344-16,312-16,344+590+16,900+16):�26:�add_sp(2,"jetpac",86,14,16)
e
�go_on
f6C%=1:D%=1:E%=1:F%=1:�explode(640,608,0):�scrcopy21
g>�words(70,134,-1,"It is a computer as well as a jet-pac.")
h
�go_on
iJ�words(70,150,-1,"You will use the computer's Information Service in")
j?�words(70,90,-1,"your adventure to find out about Aztecs.")
k
�go_on
lF�words(70,150,-1,"Angus and you are going to Miami in America to")
m0�words(70,90,-1,"sell two of the jet-pacs.")
nș"OS_Byte",112,2:�cleargraphics(6):�add_sp(2,"house",3,3,6):�add_sp(2,"workshop",268,94,6):�add_sp(2,"keep_out",272,143,6)
o�go_on:�scrcopy21
p�flyoff
q7�words(70,134,-1,"You never reach Miami .........")
r
�go_on
sH�words(70,150,-1,"Instead you are sucked into a space-time warp in")
t,�words(70,90,-1,"the Bermuda Triangle.")
u�
v
w��flyoff
xș"Sound_AttachVoice",1,2
y^�save_bgrd(1,276,284,724,320,"bgrd"):tog%=1:firsttime%=�:alldone%=�:�:�outofshed:�alldone%
zZș "OS_Byte",112,2:ș"OS_SpriteOp",&122,AREA%,"bgrd",276,284,0:�put_heli1(1,400,284,0)
{E�save_bgrd(2,400-108,284+132,320,144,"bgrd"):A%=1:B%=2:� copyscr%
|<tog%=1:firsttime%=�:alldone%=�:�:�closecockpit:�alldone%
}h�add_sp(2,"house",3,3,6):ș"OS_Byte",112,2:�save_bgrd(2,276,284,724,676,"bgrd"):A%=1:B%=2:� copyscr%
~ș "OS_Byte",112,2
/ș"OS_SpriteOp",&122,AREA%,"bgrd",276,284,0
��put_heli1(1,400,284,-1)
�H�put_sp(2,400,284+132,9,16,16,16,"cockpit",left%,low%,996,high%,&00)
�ș"Sound_AttachVoice",1,1
�H�k%=1�8:�z%=1�k%/2:�wait(2*(17-k%)):�1,&177+(&4*O%),104+(2*k%),4:�:�
�Ȗ:�scrcopy21
�I�l%=9�12:�z%=1�l%/2:�1,&177+(&4*O%),104+(2*l%),4:�wait(2*(17-l%)):�:�
�)� SOUND 1,s_lev%*-1, 54+(2*k%), 17-k%
�7tog%=1:firsttime%=�:alldone%=�:�:�takeoff:�alldone%
��
�
���outofshed
�,�firsttime%�:firsttime%=�:lasttime%=�-10
�ș "OS_Byte",112,1+(tog%�2)
�/ș"OS_SpriteOp",&122,AREA%,"bgrd",276,284,0
�(�put_heli1(tog%,1120-(8*tog%),284,0)
�_�put_sp(1+(tog%�2),1120-(8*tog%)-108,284+132,9,16,16,16,"cockpit",left%,low%,996,high%,&00)
�&�(tog%�6)=0:�1,&14F+(&18*O%),253,1
��:� �>=lasttime%+10
�JȖ:ș "OS_Byte",113,1+(tog%�2):tog%+=1:lasttime%=�:�tog%=91:alldone%=�
��
�
���closecockpit
�,�firsttime%�:firsttime%=�:lasttime%=�-10
�ș "OS_Byte",112,1+(tog%�2)
�7ș"OS_SpriteOp",&122,AREA%,"bgrd",400-108,284+132,0
�^�put_sp(1+(tog%�2),400-108+(4*tog%),284+132,9,16,16,16,"cockpit",left%,low%,996,high%,&00)
��:� �>=lasttime%+10
��SOUND 1,-10,104,1
�JȖ:ș "OS_Byte",113,1+(tog%�2):tog%+=1:lasttime%=�:�tog%=29:alldone%=�
��
�
�
��takeoff
�,�firsttime%�:firsttime%=�:lasttime%=�-15
�ș "OS_Byte",112,1+(tog%�2)
�/ș"OS_SpriteOp",&122,AREA%,"bgrd",276,284,0
�)�put_heli1(tog%,400,284+(16*tog%),-1)
�[�put_sp(1+(tog%�2),400,284+(16*tog%)+132,9,16,16,16,"cockpit",left%,low%,996,high%,&00)
��:� �>=lasttime%+15
��1,&177+(&4*O%),130,1
�JȖ:ș "OS_Byte",113,1+(tog%�2):lasttime%=�:tog%+=1:�tog%=53:alldone%=�
��
�
�#��put_heli1(tog%,hx%,hy%,move%)
�N�put_sp(1+(tog%�2),hx%,hy%,9,16,16,16,"helicopt",left%,low%,996,high%,&00)
��move%�
�_ �put_sp(1+(tog%�2),hx%-56,hy%+272,9,16,16,16,"top_rot"+�(tog%�2),left%,low%,996,high%,&00)
�a �put_sp(1+(tog%�2),hx%+424,hy%+116,9,16,16,16,"back_rot"+�(tog%�2),left%,low%,996,high%,&00)
��
�U �put_sp(1+(tog%�2),hx%-56,hy%+272,9,16,16,16,"top_rot",left%,low%,996,high%,&00)
�W �put_sp(1+(tog%�2),hx%+464,hy%+120,9,16,16,16,"back_rot",left%,low%,996,high%,&00)
��
�S�put_sp(1+(tog%�2),hx%+100,hy%+132,6,16,16,16,"pilot",left%,low%,996,high%,&00)
��
�
���introchin
��createchin
�)�save_bgrd(2,232,360,300,344,"fbgrd")
�A�add_sp(2,"farmerbod",58,64,6):�add_sp(2,"farmhead0",86,64,6)
�=�go_on:C%=2:D%=1:E%=2:F%=1:�explode(640,600,0):�scrcopy21
�D�words(70,134,-1,"The space-time warp throws you back to 1519.")
�
�go_on
�I�words(70,150,-1,"You are flying over Mexico City which in 1519 was")
�D�words(70,90,-1,"called Tenochtitlan,  the Aztec capital city.")
�
�go_on
�K�words(70,150,-1,"Tenochtitlan was built in the middle of a lake high")
�(�words(70,90,-1,"in the mountains.")
�
�go_on
�K�words(70,134,-1,"You fly low before landing and see an Aztec farmer.")
�,�createchin:�add_sp(2,"farmer1",58,64,6)
��loadsoundmod("ONE","dig")
��"ChannelVoice 1 dig"
�
�go_on
��j%=1�14
�Ȗ:ș"OS_Byte",113,1+(j%�2)
�&�1+(j%�2)=2:�1,&177+(4*O%),&2600,5
�
�wait(60)
��
�:�words(70,134,-1,"Check the jet-pac for information.")
��jpinfo
�E�jpwords(70,140,-1,"Aztecs made these islands.  They are called")
�#�jpwords(70,80,-1,"chinampas.")
��jpgo_on
�Q�jpwords(70,140,-1,"Most of the city of Tenochtitlan was built on land that")
�5�jpwords(70,80,-1,"was reclaimed from the lake.")
��jpgo_on
�A�jpwords(70,128,-1,"Many chinampas were used to grow crops.")
��jpgo_on
�K�jpwords(70,140,-1,"The JET-PAC Information Service will now scan the")
�<�jpwords(70,80,-1,"scene to give you more information.")
��jpgo_on
�(box_no%=2:�jpscan(box_no%):�show_box
�done0%=�:done1%=�
��
�!�jpexplore:�jpchoose_box(1,2)
�!�got_box%=0:�expfood:done0%=�
�!�got_box%=1:�expchin:done1%=�
��done0%�done1%
��
�
���createchin
�ș "OS_Byte",112,2:�cleargraphics(6):�mounts(2,"m0","m1","m2",-40,708):�add_sp(2,"chintop",3,3,9):�add_sp(2,"chinbot",3,119,9):�docarrots
��
�
���docarrots
� �24,left%;low%;right%;high%;
�nSCALE%!0=8:SCALE%!4=8*(H%!&F0):�j%=0�14:ș"OS_SpriteOp",&134,AREA%,"carrot",436+(j%*44),552,&08,SCALE%,0:�
�nSCALE%!0=9:SCALE%!4=9*(H%!&F0):�j%=0�14:ș"OS_SpriteOp",&134,AREA%,"carrot",420+(j%*48),536,&08,SCALE%,0:�
�pSCALE%!0=10:SCALE%!4=10*(H%!&F0):�j%=0�14:ș"OS_SpriteOp",&134,AREA%,"carrot",400+(j%*53),520,&08,SCALE%,0:�
�pSCALE%!0=11:SCALE%!4=11*(H%!&F0):�j%=0�14:ș"OS_SpriteOp",&134,AREA%,"carrot",380+(j%*59),500,&08,SCALE%,0:�
�pSCALE%!0=12:SCALE%!4=12*(H%!&F0):�j%=0�14:ș"OS_SpriteOp",&134,AREA%,"carrot",356+(j%*65),476,&08,SCALE%,0:�
�pSCALE%!0=13:SCALE%!4=13*(H%!&F0):�j%=0�14:ș"OS_SpriteOp",&134,AREA%,"carrot",332+(j%*72),452,&08,SCALE%,0:�
�pSCALE%!0=14:SCALE%!4=14*(H%!&F0):�j%=0�14:ș"OS_SpriteOp",&134,AREA%,"carrot",304+(j%*80),424,&08,SCALE%,0:�
�pSCALE%!0=15:SCALE%!4=15*(H%!&F0):�j%=0�14:ș"OS_SpriteOp",&134,AREA%,"carrot",272+(j%*89),392,&08,SCALE%,0:�
�qSCALE%!0=16:SCALE%!4=16*(H%!&F0):�j%=0�14:ș"OS_SpriteOp",&134,AREA%,"carrot",232+(j%*100),352,&08,SCALE%,0:�
�"�add_sp(2,"tree",253,51,6):�26
��
�
���docarr
�pSCALE%!0=16:SCALE%!4=16*(H%!&F0):�j%=0�7:ș"OS_SpriteOp",&134,AREA%,"carrot",232+(j%*100),352,&08,SCALE%,0:�
��
�
�
��expfood
�F�addbox(176-16,332-16,1102+16,880+16):�add_sp(2,"vegets",44,19,16)
�k�j%=0�17:�put_sp(2,176+veg%(j%,0),332+veg%(j%,1),6,16,16,16,"veg"+�(veg%(j%,2)),176,332,1100,880,&00):�
�6C%=2:D%=1:E%=2:F%=1:�explode(640,600,0):�scrcopy21
��loadsoundmod("ONE","yap")
��"ChannelVoice 1 yap"
�P�jpwords(70,140,-1,"Vegetables such as tomatoes,  yams,  peppers,  carrots")

8�jpwords(70,80,-1,"and maize were grown and eaten.")


�add_sp(2,"meats",44,19,16)

��put_sp(2,176+384,332+88,6,16,16,16,"frog",176,332,1104,884,&00):�put_sp(2,176+492,332+44,6,16,16,16,"frog",176,332,1104,884,&00):

_�j%=0�4:�put_sp(2,176+loc%(j%,0),332+loc%(j%,1),6,16,16,16,"locust",176,332,1104,884,&00):�

?�jpgo_on:C%=2:D%=1:E%=2:F%=1:�explode(640,600,0):�scrcopy21

8tog%=1:firsttime%=�:alldone%=�:�:�anim_pup:�alldone%

Q�jpwords(70,140,-1,"Aztecs also ate puppies,  giant lizards called iguanas,")

+�jpwords(70,80,-1,"locusts and frogs.")

M�createchin:�add_sp(2,"farmerbod",58,64,6):�add_sp(2,"farmhead0",86,64,6)

	�done1%:�jpend:�:�jpgo_on


�scrcopy21

�




��anim_pup

,�firsttime%�:firsttime%=�:lasttime%=�-30

ș"OS_Byte",112,1+(tog%�2)

7�add_sp(1+(tog%�2),"tail"+�(tog%�2),44+64,19+54,16)

:�(tog%�6)=0:�add_sp(1+(tog%�2),"mouth1",44+68,19+97,6)

I�((tog%�6)=1)�((tog%�6)=2):�add_sp(1+(tog%�2),"mouth0",44+68,19+97,6)

�:� �>=lasttime%+30

!Ȗ:ș"OS_Byte",113,1+(tog%�2)

'�(tog%�6)=0:�1,&177+(4*O%),&3C00,10

,tog%+=1:lasttime%=�:�tog%>=21:alldone%=�

�




��expchin

A%=1:B%=2:� copyscr%

O�expand("makewater"):tog%=1:firsttime%=�:alldone%=�:�:�scrollchin:�alldone%

.�compact("makewater"):A%=1:B%=2:� copyscr%

�PROCcreatechinbot

=�C%=2:D%=1:E%=2:F%=1:PROCexplode(640,608,0):PROCscrcopy21

9�jpwords(70,128,-1,"This is how a chinampa is made.")

 E�add_sp(2,"makewatxs",3,124,12):�add_sp(2,"makewatxs",160,124,12)

!�jpgo_on:�scrcopy21

"a�save_bgrd(1,1268-4,360,248,60,"bgrd"):tog%=1:firsttime%=�:alldone%=�:�:�anim_fish1:�alldone%

#Kș"OS_Byte",112,2:ș"OS_SpriteOp",&122,AREA%,"bgrd",1268-(4*41),360,&08

$b�save_bgrd(2,1108-20,360,312,60,"bgrd"):tog%=1:firsttime%=�:alldone%=�:�:�anim_fish2:�alldone%

%J�jpwords(70,140,-1,"Posts were driven into the bottom of the shallow")

&�jpwords(70,80,-1,"lake.")

'"�add_sp(2,"makeposts",48,61,6)

(t�expand("makeposts"):�put_sp(2,636,356,6,16,16,16,"makeposts",left%,low%,right%,high%,&01):�compact("makeposts")

)�jpgo_on:�scrcopy21

*�loadsoundmod("ONE","dig")

+�"ChannelVoice 2 dig"

,�"ChannelVoice 1 bounce"

-q�save_bgrd(1,176,256,68,360,"bgrd"):�save_bgrd(1,12,360,288,60,"bgrd1"):�save_bgrd(1,264,376,1002,28,"bgrd2")

.:tog%=1:firsttime%=�:alldone%=�:�:�anim_posts:�alldone%

/�PROCwait(80):PROCscrcopy21

0v�PROCsave_bgrd(1,1048,256,68,360,"bgrd"):tog%=1:firsttime%=TRUE:alldone%=FALSE:REPEAT:PROCanim_post2:UNTILalldone%

1A%=1:B%=2:� copyscr%

2�PROCscrcopy21

3A�jpwords(70,128,-1,"The posts were lined with reed matting.")

4#�add_sp(2,"makelining",55,70,6)

5w�expand("makelining"):�put_sp(2,624,328,6,16,16,16,"makelining",left%,low%,right%,high%,&01):�compact("makelining")

6�jpgo_on:�scrcopy21

76�jpwords(70,128,-1,"Reed mats were then sunk....")

8!�add_sp(2,"makemat",60,142,6)

9n�expand("makemat"):�put_sp(2,632,332,6,16,16,16,"makemat",left%,low%,right%,high%,&01):�compact("makemat")

:�jpgo_on:�scrcopy21

;;�jpwords(70,128,-1,"....and weighted down with rocks.")

<#�add_sp(2,"makerocks",62,132,6)

=t�expand("makerocks"):�put_sp(2,624,344,6,16,16,16,"makerocks",left%,low%,right%,high%,&01):�compact("makerocks")

>�jpgo_on:�scrcopy21

?J�jpwords(70,140,-1,"Fertile mud from the bottom of the lake was then")

@-�jpwords(70,80,-1,"heaped over the top.")

A"�add_sp(2,"makemud0",63,125,6)

Bq�expand("makemud0"):�put_sp(2,620,384,6,16,16,16,"makemud0",left%,low%,right%,high%,&01):�compact("makemud0")

C#�jpgo_on:�scrcopy21:lasttime%=�

D!�add_sp(2,"makemud1",63,90,6)

Eq�expand("makemud1"):�put_sp(2,620,384,6,16,16,16,"makemud1",left%,low%,right%,high%,&01):�compact("makemud1")

F1�:� �>lasttime%+120:Ȗ:�scrcopy21:lasttime%=�

G"�add_sp(2,"makemud2",56,135,6)

Hq�expand("makemud2"):�put_sp(2,968,344,6,16,16,16,"makemud2",left%,low%,right%,high%,&01):�compact("makemud2")

I!�add_sp(2,"makemud3",56,86,6)

Jq�expand("makemud3"):�put_sp(2,636,416,6,16,16,16,"makemud3",left%,low%,right%,high%,&01):�compact("makemud3")

K1�:� �>lasttime%+120:Ȗ:�scrcopy21:lasttime%=�

L!�add_sp(2,"makemud4",56,81,6)

Mq�expand("makemud4"):�put_sp(2,636,412,6,16,16,16,"makemud4",left%,low%,right%,high%,&01):�compact("makemud4")

N1�:� �>lasttime%+120:Ȗ:�scrcopy21:lasttime%=�

O!�add_sp(2,"makemud5",56,68,6)

Pq�expand("makemud5"):�put_sp(2,636,416,6,16,16,16,"makemud5",left%,low%,right%,high%,&01):�compact("makemud5")

Q%�:� �>lasttime%+120:Ȗ:�scrcopy21

RD�jpwords(70,128,-1,"Finally trees were planted round the edge.")

S�add_sp(2,"maketree",3,3,6)

T�jpgo_on

U�scrcopy21

VN�jpwords(70,128,-1,"The tree roots helped stop the chinampa breaking up.")

WM�createchin:�add_sp(2,"farmerbod",58,64,6):�add_sp(2,"farmhead0",86,64,6)

X�done0%:�jpend:�:�jpgo_on

Y�scrcopy21

Z�

[

\��scrollchin

]+�firsttime%�:firsttime%=�:lasttime%=�-5

^ș"OS_Byte",112,1+(tog%�2)

_�tog%=1�

` �scrollup(1+(tog%�2),1)

au �put_sp(1+(tog%�2),12,low%-(low%�4)-48+(4*(((tog%-1)�12)+1)),12,16,16,16,"makewater",left%,low%,right%,low%,&00)

bv �put_sp(1+(tog%�2),640,low%-(low%�4)-48+(4*(((tog%-1)�12)+1)),12,16,16,16,"makewater",left%,low%,right%,low%,&00)

c�

d �((tog%-1)�12)+1=1�

e  �scrollup(1+(tog%�2),2)

fa  �put_sp(1+(tog%�2),12,low%-(low%�4)+4,12,16,16,16,"makewater",left%,low%,right%,low%+4,&00)

gb  �put_sp(1+(tog%�2),640,low%-(low%�4)+4,12,16,16,16,"makewater",left%,low%,right%,low%+4,&00)

hx  �put_sp(1+(tog%�2),12,low%-(low%�4)-48+(4*(((tog%-1)�12)+1)),12,16,16,16,"makewater",left%,low%,right%,low%+4,&00)

iy  �put_sp(1+(tog%�2),640,low%-(low%�4)-48+(4*(((tog%-1)�12)+1)),12,16,16,16,"makewater",left%,low%,right%,low%+4,&00)

j �

k  �scrollup(1+(tog%�2),2)

lx  �put_sp(1+(tog%�2),12,low%-(low%�4)-48+(4*(((tog%-1)�12)+1)),12,16,16,16,"makewater",left%,low%,right%,low%+4,&00)

my  �put_sp(1+(tog%�2),640,low%-(low%�4)-48+(4*(((tog%-1)�12)+1)),12,16,16,16,"makewater",left%,low%,right%,low%+4,&00)

n �

o�

p�:� �>=lasttime%+5

qKȖ:ș"OS_Byte",113,1+(tog%�2):tog%+=1:lasttime%=�:�tog%>=117:alldone%=�

r�

s

t��anim_fish1

u,�firsttime%�:firsttime%=�:lasttime%=�-10

vș"OS_Byte",112,1+(tog%�2)

w�(tog%�2)=0�

x?ș"OS_SpriteOp",&122,AREA%,"bgrd",1268-(4*(tog%+1)),360,&08

y�

z;ș"OS_SpriteOp",&122,AREA%,"bgrd",1268-(4*tog%),360,&08

{5�save_bgrd(1,1268-(4*(tog%+2)),360,248,60,"bgrd")

|�

}X�put_sp(1+(tog%�2),1268-(4*tog%),376,6,16,16,16,"lfish",left%,low%,right%,high%,&00)

~g�tog%>30:�put_sp(1+(tog%�2),1268-(4*(tog%-30)),360,6,16,16,16,"bfish0",left%,low%,right%,high%,&00)

�:� �>=lasttime%+10

�JȖ:ș"OS_Byte",113,1+(tog%�2):tog%+=1:lasttime%=�:�tog%>=41:alldone%=�

��

�

���anim_fish2

�,�firsttime%�:firsttime%=�:lasttime%=�-10

�ș"OS_Byte",112,1+(tog%�2)

��(tog%�2)=0�

�@ș"OS_SpriteOp",&122,AREA%,"bgrd",1108-(20*(tog%+1)),360,&08

��

�<ș"OS_SpriteOp",&122,AREA%,"bgrd",1108-(20*tog%),360,&08

�?�save_bgrd(1+(tog%�2),1108-(20*(tog%+2)),360,312,60,"bgrd")

��

�Y�put_sp(1+(tog%�2),1108-(20*tog%),376,6,16,16,16,"lfish",left%,low%,right%,high%,&00)

�^�put_sp(1+(tog%�2),1108+120-(20*tog%),360,6,16,16,16,"bfish0",left%,low%,right%,high%,&00)

��:� �>=lasttime%+10

�JȖ:ș"OS_Byte",113,1+(tog%�2):tog%+=1:lasttime%=�:�tog%>=69:alldone%=�

��

�

���anim_posts

�,�firsttime%�:firsttime%=�:lasttime%=�-10

�ș"OS_Byte",112,1+(tog%�2)

�Z�(tog%=23)�(tog%=24)�(tog%=31)�(tog%=32):ș"OS_SpriteOp",&122,AREA%,"bgrd",176,256,&08

�[�(tog%=66)�(tog%=67)�(tog%=74)�(tog%=75):ș"OS_SpriteOp",&122,AREA%,"bgrd",1048,256,&08

�;�tog%<=52:ș"OS_SpriteOp",&122,AREA%,"bgrd1",12,360,&08

�<�tog%>=15:ș"OS_SpriteOp",&122,AREA%,"bgrd2",264,376,&08

�:�tog%=50:�save_bgrd(1+(tog%�2),1048,256,68,360,"bgrd")

�\�put_sp(1+(tog%�2),216+(20*tog%)-252,376,6,16,16,16,"lfish",left%,low%,right%,high%,&01)

�b�tog%<16:�put_sp(1+(tog%�2),(20*tog%)-252,360,6,16,16,16,"bfish0",left%,low%,right%,high%,&01)

�c�(tog%=16)�(tog%=17):�put_sp(1+(tog%�2),48,360,6,16,16,16,"bfish1",left%,low%,right%,high%,&01)

�e�(tog%>=18)�(tog%<=30):�put_sp(1+(tog%�2),40,360,6,16,16,16,"bfish1",left%,low%,right%,high%,&01)

�s�(tog%>=31)�(tog%<=52):�put_sp(1+(tog%�2),40-(8*(tog%-31)),360,6,16,16,16,"bfish1",left%,low%,right%,high%,&00)

�A�(tog%>=15)�(tog%<=22):�add_sp(1+(tog%�2),"makepost",44,86,6)

�A�(tog%>=23)�(tog%<=30):�add_sp(1+(tog%�2),"makepost",44,96,6)

�B�(tog%>=31)�(tog%<=52):�add_sp(1+(tog%�2),"makepost",44,106,6)

�B�(tog%>=58)�(tog%<=65):�add_sp(1+(tog%�2),"makepost",262,86,6)

�B�(tog%>=66)�(tog%<=73):�add_sp(1+(tog%�2),"makepost",262,96,6)

�8�(tog%>=74):�add_sp(1+(tog%�2),"makepost",262,106,6)

��:� �>=lasttime%+10

�!Ȗ:ș"OS_Byte",113,1+(tog%�2)

�C�(tog%=23)�(tog%=31)�(tog%=66)�(tog%=74):�1,&177+(4*O%),&2A00,5

�#�tog%=16:�2,&177+(4*O%),&2600,5

�,tog%+=1:lasttime%=�:�tog%>=75:alldone%=�

��

�

�
��landing

�ș"Sound_AttachVoice",1,1

�ș"Sound_AttachVoice",2,9

�`ș "OS_Byte",112,2:ș"OS_SpriteOp",&122,AREA%,"fbgrd",232,360,0:�add_sp(2,"farmer1",58,64,6)

��j%=1�10

�2�j%>4:�k%=0�5:�1,&177+(4*O%),130,1:�wait(10):�

�ș"OS_Byte",113,1+(j%�2)

��

��1,&177+(4*O%),130,1

�Cș "OS_Byte",112,2:ș"OS_SpriteOp",&122,AREA%,"fbgrd",232,360,0

��1,&177+(4*O%),130,1

�A�add_sp(2,"farmerbod",58,64,6):�add_sp(2,"farmhead1",86,64,6)

��scrcopy21

�,�k%=0�5:�1,&177+(4*O%),130,1:�wait(10):�

��1,&177+(4*O%),130,1

�Cș "OS_Byte",112,2:ș"OS_SpriteOp",&122,AREA%,"fbgrd",232,360,0

��1,&177+(4*O%),130,1

�E�save_bgrd(2,52,376,208,440,"fbgrd"):�add_sp(2,"farmrun",13,37,6)

��scrcopy21

�,�k%=0�5:�1,&177+(4*O%),130,1:�wait(10):�

��1,&177+(4*O%),130,1

�Bș "OS_Byte",112,2:ș"OS_SpriteOp",&122,AREA%,"fbgrd",52,376,0

��1,&177+(4*O%),130,1

�D�save_bgrd(2,12,344,112,192,"fbgrd"):�add_sp(2,"splash",3,107,1)

��scrcopy21

��2,&13F+(&20*O%),130,10

�,�k%=0�7:�1,&177+(4*O%),130,1:�wait(10):�

�Sș "OS_Byte",112,2:ș"OS_SpriteOp",&122,AREA%,"fbgrd",12,344,0:�delete("fbgrd")

��scrcopy21

�0�save_bgrd(2,596-56-5,960-15,712,356,"bgrd")

�4tog%=1:firsttime%=�:alldone%=�:�:�land:�alldone%

�K�k%=12�9�-1:�z%=1�k%/2:�wait(2*(17-k%)):�1,&177+(4*O%),104+(2*k%),4:�:�

�ș "OS_Byte",112,1+(tog%�2)

�hș"OS_SpriteOp",&122,AREA%,"bgrd",596-56-(5*(tog%-1))-(5*(tog%�2)),960-(15*(tog%-1))-(15*(tog%�2)),0

�(�put_heli(tog%,396,360,0,-1):�docarr

�0�save_bgrd(1,396-112,360+132,324,140,"bgrd")

�T�put_sp(1+(tog%�2),396,360+132,9,16,16,16,"cockpit",left%,low%,right%,high%,&00)

�ș "OS_Byte",113,1

�J�k%=8�1�-1:�z%=1�k%/2:�wait(2*(17-k%)):�1,&177+(4*O%),104+(2*k%),4:�:�

��1,&177+(4*O%),104,8

�A%=1:B%=2:� copyscr%

�ș"Sound_AttachVoice",1,2

�
�wait(40)

�;tog%=1:firsttime%=�:alldone%=�:�:�opencockpit:�alldone%

�0�createchin:�put_heli(1,396,360,0,0):�docarr

�K�put_sp(2,396,360+132,9,16,16,16,"cockpit",left%,low%,right%,high%,&00)

�r�add_sp(2,"angus",123,66,6):�add_sp(2,"boy",104,82,12):�add_sp(2,"girl",144,82,12):�add_sp(2,"case",123,127,6)

��wait(20):�scrcopy21

�I�words(70,134,-1,"You land safely in the heart of the Aztec empire.")

�>�add_sp(2,"boats",3,116,6):�add_sp(2,"warrileft",21,59,12)

�u�expand("warrileft"):�put_sp(2,740,356,12,16,16,16,"warrileft",left%,low%,right%,high%,&01):�compact("warrileft")

�~�add_sp(2,"warriright",217,68,6):�add_sp(2,"angsad",137,77,12):�add_sp(2,"kidsad",116,93,12):�add_sp(2,"kidsad",156,93,12)

�<ș"OS_SpriteOp",&134,AREA%,"carrot",232,352,&08,SCALE%,0

�O�j%=6�7:ș"OS_SpriteOp",&134,AREA%,"carrot",232+(j%*100),352,&08,SCALE%,0:�

��go_on:�scrcopy21

�A�words(70,150,-1,"Fierce warriors come to take you to their")

�.�words(70,90,-1,"emperor,  Montezuma II.")

�
�go_on

�E�words(70,172,-1,"The adventure takes you to Montezuma's palace")

�2�words(70,112,-1,"where you have to persuade")

�7�words(70,52,-1,"Montezuma that you are peaceful.")

��

�

�
��land

�,�firsttime%�:firsttime%=�:lasttime%=�-20

�ș "OS_Byte",112,1+(tog%�2)

�hș"OS_SpriteOp",&122,AREA%,"bgrd",596-56-(5*(tog%-1))-(5*(tog%�2)),960-(15*(tog%-1))-(15*(tog%�2)),0

�X�(tog%�2)=0:�save_bgrd(1,596-56-(5*(tog%-1))-10,960-(15*(tog%-1))-30,712,356,"bgrd")

�<�put_heli(tog%,596-(5*(tog%-1)),960-(15*(tog%-1)),-1,-1)

�o�put_sp(1+(tog%�2),596-(5*(tog%-1)),960-(15*(tog%-1))+132,9,16,16,16,"cockpit",left%,low%,right%,high%,&00)

��tog%>38:�docarr

��:� �>=lasttime%+20

��1,&177+(4*O%),130,1

�JȖ:ș "OS_Byte",113,1+(tog%�2):tog%+=1:lasttime%=�:�tog%=42:alldone%=�

��

�

�

���opencockpit

�,�firsttime%�:firsttime%=�:lasttime%=�-20

�ș "OS_Byte",112,1+(tog%�2)

�7ș"OS_SpriteOp",&122,AREA%,"bgrd",396-112,360+132,0

�]�put_sp(1+(tog%�2),396-(4*tog%),360+132,9,16,16,16,"cockpit",left%,low%,right%,high%,&00)

��:� �>=lasttime%+20

�JȖ:ș "OS_Byte",113,1+(tog%�2):tog%+=1:lasttime%=�:�tog%=29:alldone%=�
�


'��put_heli(tog%,hx%,hy%,move%,pil%)
Q�put_sp(1+(tog%�2),hx%,hy%,9,16,16,16,"helicopt",left%,low%,right%,high%,&00)
�move%�
b �put_sp(1+(tog%�2),hx%-56,hy%+272,9,16,16,16,"top_rot"+�(tog%�2),left%,low%,right%,high%,&00)
d �put_sp(1+(tog%�2),hx%+424,hy%+116,9,16,16,16,"back_rot"+�(tog%�2),left%,low%,right%,high%,&00)
�
X �put_sp(1+(tog%�2),hx%-56,hy%+272,9,16,16,16,"top_rot",left%,low%,right%,high%,&00)
	Z �put_sp(1+(tog%�2),hx%+464,hy%+120,9,16,16,16,"back_rot",left%,low%,right%,high%,&00)

�
\�pil%:�put_sp(1+(tog%�2),hx%+100,hy%+132,6,16,16,16,"pilot",left%,low%,right%,high%,&00)
�


�

00000000  0d 00 00 34 f4 ff 53 43  53 49 3a 3a 53 43 53 49  |...4..SCSI::SCSI|
00000010  44 69 73 63 34 2e 24 2e  43 6f 76 65 72 44 69 73  |Disc4.$.CoverDis|
00000020  6b 73 2e 21 41 5a 54 45  43 53 2e 4f 4e 45 2e 64  |ks.!AZTECS.ONE.d|
00000030  65 6d 6f 31 0d 00 01 04  0d 00 02 22 c8 9b 20 22  |emo1.......".. "|
00000040  3c 41 7a 74 65 63 24 63  68 61 69 6e 64 69 72 3e  |<Aztec$chaindir>|
00000050  2e 61 7a 74 65 63 6c 69  62 22 0d 00 03 13 f2 6c  |.azteclib".....l|
00000060  69 62 5f 69 6e 69 74 69  61 6c 69 73 65 0d 00 04  |ib_initialise...|
00000070  0a f2 74 69 74 6c 65 0d  00 05 04 0d 00 06 10 f2  |..title.........|
00000080  69 6e 69 74 69 61 6c 69  73 65 31 0d 00 07 04 0d  |initialise1.....|
00000090  00 08 5e c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |..^.. "OS_Byte",|
000000a0  31 31 32 2c 32 3a f2 62  6f 72 64 65 72 73 28 30  |112,2:.borders(0|
000000b0  2c 30 2c 31 32 37 39 2c  6c 6f 77 25 2d 39 29 3a  |,0,1279,low%-9):|
000000c0  f2 62 6f 72 64 65 72 73  28 6c 65 66 74 25 2d 31  |.borders(left%-1|
000000d0  32 2c 6c 6f 77 25 2d 31  32 2c 72 69 67 68 74 25  |2,low%-12,right%|
000000e0  2b 31 32 2c 68 69 67 68  25 2b 31 32 29 0d 00 09  |+12,high%+12)...|
000000f0  04 0d 00 0a 51 f2 69 6e  74 72 6f 70 65 6f 70 6c  |....Q.intropeopl|
00000100  65 3a e3 6a 25 3d 30 b8  35 3a f2 64 65 6c 65 74  |e:.j%=0.5:.delet|
00000110  65 28 64 65 6c 31 24 28  6a 25 29 29 3a ed 3a c8  |e(del1$(j%)):.:.|
00000120  99 20 22 58 4f 53 5f 53  70 72 69 74 65 4f 70 22  |. "XOS_SpriteOp"|
00000130  2c 26 31 31 39 2c 41 52  45 41 25 2c 22 62 67 72  |,&119,AREA%,"bgr|
00000140  64 22 0d 00 0b 10 f2 69  6e 69 74 69 61 6c 69 73  |d".....initialis|
00000150  65 32 0d 00 0c 17 f2 69  6e 74 72 6f 63 68 69 6e  |e2.....introchin|
00000160  3a f2 6c 61 6e 64 69 6e  67 0d 00 0d 04 0d 00 0e  |:.landing.......|
00000170  17 f2 63 68 61 69 6e 28  22 4f 4e 45 2e 64 65 6d  |..chain("ONE.dem|
00000180  6f 32 22 29 0d 00 0f 05  e0 0d 00 10 04 0d 00 11  |o2")............|
00000190  0b dd f2 74 69 74 6c 65  0d 00 12 1d 2a 53 45 54  |...title....*SET|
000001a0  20 41 7a 74 65 63 24 53  74 61 74 75 73 20 52 65  | Aztec$Status Re|
000001b0  73 74 61 72 74 0d 00 13  3d c8 99 20 22 4f 53 5f  |start...=.. "OS_|
000001c0  53 70 72 69 74 65 4f 70  22 2c 26 31 30 42 2c 41  |SpriteOp",&10B,A|
000001d0  52 45 41 25 2c 22 3c 41  7a 74 65 63 24 63 68 61  |REA%,"<Aztec$cha|
000001e0  69 6e 64 69 72 3e 2e 61  7a 5f 74 69 74 6c 65 5f  |indir>.az_title_|
000001f0  63 22 0d 00 14 16 c8 99  20 22 4f 53 5f 42 79 74  |c"...... "OS_Byt|
00000200  65 22 2c 31 31 32 2c 32  0d 00 15 1e f2 62 6f 72  |e",112,2.....bor|
00000210  64 65 72 73 28 30 2c 30  2c 38 39 34 2c 68 69 67  |ders(0,0,894,hig|
00000220  68 25 2b 31 32 29 0d 00  16 26 f2 62 6f 72 64 65  |h%+12)...&.borde|
00000230  72 73 28 38 39 34 2c 30  2c 72 69 67 68 74 25 2b  |rs(894,0,right%+|
00000240  31 32 2c 68 69 67 68 25  2b 31 32 29 0d 00 17 1c  |12,high%+12)....|
00000250  ef 20 32 34 2c 31 32 3b  31 32 3b 38 39 34 2d 31  |. 24,12;12;894-1|
00000260  32 3b 68 69 67 68 25 3b  0d 00 18 12 ef 20 31 38  |2;high%;..... 18|
00000270  2c 30 2c 31 33 34 20 3a  20 da 0d 00 19 08 ef 20  |,0,134 : ...... |
00000280  32 36 0d 00 1a 1f f2 61  64 64 5f 73 70 28 32 2c  |26.....add_sp(2,|
00000290  22 74 69 74 6c 65 70 69  63 22 2c 33 2c 33 2c 36  |"titlepic",3,3,6|
000002a0  29 0d 00 1b 3d f4 53 59  53 20 22 4f 53 5f 53 70  |)...=.SYS "OS_Sp|
000002b0  72 69 74 65 4f 70 22 2c  26 31 33 34 2c 41 52 45  |riteOp",&134,ARE|
000002c0  41 25 2c 22 74 69 74 6c  65 70 69 63 22 2c 31 32  |A%,"titlepic",12|
000002d0  2c 31 32 2c 30 2c 53 43  41 4c 45 25 2c 30 0d 00  |,12,0,SCALE%,0..|
000002e0  1c 0e f2 73 63 72 63 6f  70 79 32 31 0d 00 1d 0e  |...scrcopy21....|
000002f0  f2 77 61 69 74 28 33 30  30 29 0d 00 1e 16 c8 99  |.wait(300)......|
00000300  20 22 4f 53 5f 42 79 74  65 22 2c 31 31 32 2c 32  | "OS_Byte",112,2|
00000310  0d 00 1f 21 f2 61 64 64  5f 73 70 28 32 2c 22 74  |...!.add_sp(2,"t|
00000320  69 74 6c 65 77 6f 72 22  2c 31 33 2c 31 38 2c 36  |itlewor",13,18,6|
00000330  29 0d 00 20 3e f4 53 59  53 20 22 4f 53 5f 53 70  |).. >.SYS "OS_Sp|
00000340  72 69 74 65 4f 70 22 2c  26 31 33 34 2c 41 52 45  |riteOp",&134,ARE|
00000350  41 25 2c 22 74 69 74 6c  65 77 6f 72 22 2c 34 38  |A%,"titlewor",48|
00000360  2c 37 33 36 2c 38 2c 53  43 41 4c 45 25 2c 30 0d  |,736,8,SCALE%,0.|
00000370  00 21 0e f2 73 63 72 63  6f 70 79 32 31 0d 00 22  |.!..scrcopy21.."|
00000380  2b f2 77 6f 72 64 73 28  39 32 30 2c 38 33 36 2c  |+.words(920,836,|
00000390  30 2c 22 44 65 73 69 67  6e 65 64 2f 77 72 69 74  |0,"Designed/writ|
000003a0  74 65 6e 20 62 79 22 29  0d 00 23 21 f2 77 6f 72  |ten by")..#!.wor|
000003b0  64 73 28 39 32 30 2c 37  39 32 2c 30 2c 22 20 41  |ds(920,792,0," A|
000003c0  64 61 6d 20 61 6e 64 22  29 0d 00 24 27 f2 77 6f  |dam and")..$'.wo|
000003d0  72 64 73 28 39 32 30 2c  37 34 38 2c 30 2c 22 20  |rds(920,748,0," |
000003e0  53 61 6e 64 72 61 20 48  6f 73 6c 65 72 2e 22 29  |Sandra Hosler.")|
000003f0  0d 00 25 2a f2 77 6f 72  64 73 28 39 32 30 2c 36  |..%*.words(920,6|
00000400  33 32 2c 30 2c 22 54 68  65 20 66 75 6c 6c 20 61  |32,0,"The full a|
00000410  64 76 65 6e 74 75 72 65  22 29 0d 00 26 2b f2 77  |dventure")..&+.w|
00000420  6f 72 64 73 28 39 32 30  2c 35 38 38 2c 30 2c 22  |ords(920,588,0,"|
00000430  63 61 6e 20 62 65 20 6f  72 64 65 72 65 64 20 66  |can be ordered f|
00000440  72 6f 6d 22 29 0d 00 27  2a f2 77 6f 72 64 73 28  |rom")..'*.words(|
00000450  39 32 30 2c 35 30 38 2c  30 2c 22 53 68 65 72 73  |920,508,0,"Shers|
00000460  74 6f 6e 20 53 6f 66 74  77 61 72 65 2c 22 29 0d  |ton Software,").|
00000470  00 28 24 f2 77 6f 72 64  73 28 39 32 30 2c 34 36  |.($.words(920,46|
00000480  34 2c 30 2c 22 53 77 61  6e 20 42 61 72 74 6f 6e  |4,0,"Swan Barton|
00000490  2c 22 29 0d 00 29 21 f2  77 6f 72 64 73 28 39 32  |,")..)!.words(92|
000004a0  30 2c 34 32 30 2c 30 2c  22 53 68 65 72 73 74 6f  |0,420,0,"Shersto|
000004b0  6e 2c 22 29 0d 00 2a 23  f2 77 6f 72 64 73 28 39  |n,")..*#.words(9|
000004c0  32 30 2c 33 37 36 2c 30  2c 22 4d 61 6c 6d 65 73  |20,376,0,"Malmes|
000004d0  62 75 72 79 2c 22 29 0d  00 2b 22 f2 77 6f 72 64  |bury,")..+".word|
000004e0  73 28 39 32 30 2c 33 33  32 2c 30 2c 22 57 69 6c  |s(920,332,0,"Wil|
000004f0  74 73 68 69 72 65 2e 22  29 0d 00 2c 20 f2 77 6f  |tshire.").., .wo|
00000500  72 64 73 28 39 32 30 2c  32 38 38 2c 30 2c 22 53  |rds(920,288,0,"S|
00000510  4e 31 36 20 4f 4c 48 22  29 0d 00 2d 29 f2 77 6f  |N16 OLH")..-).wo|
00000520  72 64 73 28 39 32 30 2c  32 34 34 2c 30 2c 22 50  |rds(920,244,0,"P|
00000530  68 6f 6e 65 20 30 36 36  36 20 38 34 30 34 33 33  |hone 0666 840433|
00000540  22 29 0d 00 2e 27 f2 77  6f 72 64 73 28 39 32 30  |")...'.words(920|
00000550  2c 32 30 30 2c 30 2c 22  46 61 78 20 30 36 36 36  |,200,0,"Fax 0666|
00000560  20 38 34 30 30 34 38 22  29 0d 00 2f 2b f2 64 65  | 840048")../+.de|
00000570  6c 65 74 65 28 22 74 69  74 6c 65 70 69 63 22 29  |lete("titlepic")|
00000580  3a f2 64 65 6c 65 74 65  28 22 74 69 74 6c 65 77  |:.delete("titlew|
00000590  6f 72 22 29 0d 00 30 05  e1 0d 00 31 04 0d 00 32  |or")..0....1...2|
000005a0  11 dd f2 69 6e 69 74 69  61 6c 69 73 65 31 0d 00  |...initialise1..|
000005b0  33 7c c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |3|.. "OS_SpriteO|
000005c0  70 22 2c 26 31 30 42 2c  41 52 45 41 25 2c 22 3c  |p",&10B,AREA%,"<|
000005d0  41 5a 54 45 43 24 63 68  61 69 6e 64 69 72 3e 2e  |AZTEC$chaindir>.|
000005e0  4f 4e 45 2e 6f 75 74 62  65 72 6d 5f 63 22 3a c8  |ONE.outberm_c":.|
000005f0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000600  26 31 30 42 2c 41 52 45  41 25 2c 22 3c 41 5a 54  |&10B,AREA%,"<AZT|
00000610  45 43 24 63 68 61 69 6e  64 69 72 3e 2e 4f 4e 45  |EC$chaindir>.ONE|
00000620  2e 70 65 6f 70 6c 65 5f  63 22 0d 00 34 17 de 20  |.people_c"..4.. |
00000630  65 78 70 31 24 28 38 29  2c 64 65 6c 31 24 28 35  |exp1$(8),del1$(5|
00000640  29 0d 00 35 08 f7 20 2b  30 0d 00 36 53 dc 20 68  |)..5.. +0..6S. h|
00000650  65 6c 69 63 6f 70 74 2c  74 6f 70 5f 72 6f 74 2c  |elicopt,top_rot,|
00000660  74 6f 70 5f 72 6f 74 30  2c 74 6f 70 5f 72 6f 74  |top_rot0,top_rot|
00000670  31 2c 62 61 63 6b 5f 72  6f 74 2c 62 61 63 6b 5f  |1,back_rot,back_|
00000680  72 6f 74 30 2c 62 61 63  6b 5f 72 6f 74 31 2c 70  |rot0,back_rot1,p|
00000690  69 6c 6f 74 2c 63 6f 63  6b 70 69 74 0d 00 37 33  |ilot,cockpit..73|
000006a0  dc 20 68 6f 75 73 65 2c  70 65 65 6b 69 6e 67 2c  |. house,peeking,|
000006b0  6a 65 74 70 61 63 2c 77  6f 72 6b 73 68 6f 70 2c  |jetpac,workshop,|
000006c0  6b 65 65 70 5f 6f 75 74  2c 61 6e 67 70 61 63 0d  |keep_out,angpac.|
000006d0  00 38 23 dc 20 62 74 72  69 61 6e 67 2c 6f 63 65  |.8#. btriang,oce|
000006e0  61 6e 2c 63 61 62 64 61  72 6b 2c 63 61 62 6c 69  |an,cabdark,cabli|
000006f0  74 65 0d 00 39 19 e3 6a  25 3d 30 b8 38 3a f3 20  |te..9..j%=0.8:. |
00000700  65 78 70 31 24 28 6a 25  29 3a ed 0d 00 3a 20 e3  |exp1$(j%):...: .|
00000710  6a 25 3d 30 b8 38 3a f2  65 78 70 61 6e 64 28 65  |j%=0.8:.expand(e|
00000720  78 70 31 24 28 6a 25 29  29 3a ed 0d 00 3b 19 e3  |xp1$(j%)):...;..|
00000730  6a 25 3d 30 b8 35 3a f3  20 64 65 6c 31 24 28 6a  |j%=0.5:. del1$(j|
00000740  25 29 3a ed 0d 00 3c 05  e1 0d 00 3d 04 0d 00 3e  |%):...<....=...>|
00000750  11 dd f2 69 6e 69 74 69  61 6c 69 73 65 32 0d 00  |...initialise2..|
00000760  3f 79 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |?y.. "OS_SpriteO|
00000770  70 22 2c 26 31 30 42 2c  41 52 45 41 25 2c 22 3c  |p",&10B,AREA%,"<|
00000780  41 5a 54 45 43 24 63 68  61 69 6e 64 69 72 3e 2e  |AZTEC$chaindir>.|
00000790  4f 4e 45 2e 63 68 69 6e  31 5f 63 22 3a c8 99 20  |ONE.chin1_c":.. |
000007a0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
000007b0  30 42 2c 41 52 45 41 25  2c 22 3c 41 5a 54 45 43  |0B,AREA%,"<AZTEC|
000007c0  24 63 68 61 69 6e 64 69  72 3e 2e 4f 4e 45 2e 63  |$chaindir>.ONE.c|
000007d0  68 69 6e 32 5f 63 22 0d  00 40 3f c8 99 20 22 4f  |hin2_c"..@?.. "O|
000007e0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 42  |S_SpriteOp",&10B|
000007f0  2c 41 52 45 41 25 2c 22  3c 41 5a 54 45 43 24 63  |,AREA%,"<AZTEC$c|
00000800  68 61 69 6e 64 69 72 3e  2e 4f 4e 45 2e 6d 6f 75  |haindir>.ONE.mou|
00000810  6e 74 73 5f 63 22 0d 00  41 20 e3 6b 25 3d 30 b8  |nts_c"..A .k%=0.|
00000820  32 3a f2 65 78 70 61 6e  64 28 22 6d 22 2b c3 28  |2:.expand("m"+.(|
00000830  6b 25 29 29 3a ed 0d 00  42 22 e3 6b 25 3d 31 b8  |k%)):...B".k%=1.|
00000840  35 3a f2 65 78 70 61 6e  64 28 22 76 65 67 22 2b  |5:.expand("veg"+|
00000850  c3 28 6b 25 29 29 3a ed  0d 00 43 0f de 20 65 78  |.(k%)):...C.. ex|
00000860  70 32 24 28 32 39 29 0d  00 44 08 f7 20 2b 30 0d  |p2$(29)..D.. +0.|
00000870  00 45 f9 dc 20 63 61 72  72 6f 74 2c 66 72 6f 67  |.E.. carrot,frog|
00000880  2c 6c 6f 63 75 73 74 2c  6c 66 69 73 68 2c 62 66  |,locust,lfish,bf|
00000890  69 73 68 30 2c 62 66 69  73 68 31 2c 74 72 65 65  |ish0,bfish1,tree|
000008a0  2c 66 61 72 6d 65 72 31  2c 66 61 72 6d 65 72 62  |,farmer1,farmerb|
000008b0  6f 64 2c 66 61 72 6d 68  65 61 64 30 2c 66 61 72  |od,farmhead0,far|
000008c0  6d 68 65 61 64 31 2c 77  61 72 72 69 6c 65 66 74  |mhead1,warrileft|
000008d0  2c 77 61 72 72 69 72 69  67 68 74 2c 6b 69 64 73  |,warriright,kids|
000008e0  61 64 2c 61 6e 67 73 61  64 2c 66 61 72 6d 72 75  |ad,angsad,farmru|
000008f0  6e 2c 73 70 6c 61 73 68  2c 63 68 69 6e 62 6f 74  |n,splash,chinbot|
00000900  2c 63 68 69 6e 74 6f 70  2c 6d 61 6b 65 77 61 74  |,chintop,makewat|
00000910  65 72 2c 6d 61 6b 65 70  6f 73 74 73 2c 6d 61 6b  |er,makeposts,mak|
00000920  65 70 6f 73 74 2c 6d 61  6b 65 6c 69 6e 69 6e 67  |epost,makelining|
00000930  2c 6d 61 6b 65 6d 61 74  2c 6d 61 6b 65 72 6f 63  |,makemat,makeroc|
00000940  6b 73 2c 6d 61 6b 65 74  72 65 65 2c 6d 61 6b 65  |ks,maketree,make|
00000950  77 61 74 78 73 2c 6d 65  61 74 73 2c 76 65 67 65  |watxs,meats,vege|
00000960  74 73 2c 62 6f 61 74 73  0d 00 46 1a e3 6a 25 3d  |ts,boats..F..j%=|
00000970  30 b8 32 39 3a f3 20 65  78 70 32 24 28 6a 25 29  |0.29:. exp2$(j%)|
00000980  3a ed 0d 00 47 20 e3 6b  25 3d 30 b8 35 3a f2 65  |:...G .k%=0.5:.e|
00000990  78 70 61 6e 64 28 65 78  70 32 24 28 6b 25 29 29  |xpand(exp2$(k%))|
000009a0  3a ed 0d 00 48 05 cd 0d  00 49 08 f7 20 2b 30 0d  |:...H....I.. +0.|
000009b0  00 4a 15 dc 20 35 33 36  2c 33 35 32 2c 37 36 30  |.J.. 536,352,760|
000009c0  2c 32 39 36 0d 00 4b 25  e3 6b 25 3d 30 b8 31 3a  |,296..K%.k%=0.1:|
000009d0  f3 20 62 6f 78 25 28 6b  25 2c 30 29 2c 62 6f 78  |. box%(k%,0),box|
000009e0  25 28 6b 25 2c 31 29 3a  ed 0d 00 4c 1a de 20 76  |%(k%,1):...L.. v|
000009f0  65 67 25 28 31 37 2c 32  29 2c 6c 6f 63 25 28 34  |eg%(17,2),loc%(4|
00000a00  2c 31 29 0d 00 4d 08 f7  20 2b 30 0d 00 4e b7 dc  |,1)..M.. +0..N..|
00000a10  20 32 36 38 2c 33 32 38  2c 35 2c 31 33 32 2c 32  | 268,328,5,132,2|
00000a20  36 38 2c 35 2c 33 38 38  2c 32 37 36 2c 35 2c 36  |68,5,388,276,5,6|
00000a30  38 2c 32 32 38 2c 32 2c  31 36 2c 32 36 30 2c 32  |8,228,2,16,260,2|
00000a40  2c 31 32 2c 31 38 38 2c  32 2c 2d 36 38 2c 32 32  |,12,188,2,-68,22|
00000a50  34 2c 32 2c 2d 34 38 2c  31 35 32 2c 32 2c 2d 31  |4,2,-48,152,2,-1|
00000a60  32 38 2c 31 39 32 2c 32  2c 2d 31 34 34 2c 31 32  |28,192,2,-144,12|
00000a70  30 2c 32 2c 35 34 34 2c  32 34 30 2c 31 2c 36 32  |0,2,544,240,1,62|
00000a80  30 2c 32 34 34 2c 31 2c  35 39 32 2c 31 39 32 2c  |0,244,1,592,192,|
00000a90  31 2c 36 39 36 2c 31 35  36 2c 31 2c 32 37 36 2c  |1,696,156,1,276,|
00000aa0  32 30 34 2c 33 2c 31 39  32 2c 31 33 36 2c 34 2c  |204,3,192,136,4,|
00000ab0  34 32 30 2c 31 31 36 2c  34 2c 32 38 34 2c 37 36  |420,116,4,284,76|
00000ac0  2c 34 0d 00 4f 26 e3 6a  25 3d 30 b8 31 37 3a e3  |,4..O&.j%=0.17:.|
00000ad0  6b 25 3d 30 b8 32 3a f3  20 76 65 67 25 28 6a 25  |k%=0.2:. veg%(j%|
00000ae0  2c 6b 25 29 3a ed 3a ed  0d 00 50 26 dc 20 2d 35  |,k%):.:...P&. -5|
00000af0  32 2c 36 38 2c 31 33 32  2c 36 30 2c 2d 32 34 2c  |2,68,132,60,-24,|
00000b00  32 38 2c 2d 38 34 2c 34  2c 31 36 38 2c 38 0d 00  |28,-84,4,168,8..|
00000b10  51 25 e3 6a 25 3d 30 b8  34 3a e3 6b 25 3d 30 b8  |Q%.j%=0.4:.k%=0.|
00000b20  31 3a f3 20 6c 6f 63 25  28 6a 25 2c 6b 25 29 3a  |1:. loc%(j%,k%):|
00000b30  ed 3a ed 0d 00 52 05 e1  0d 00 53 04 0d 00 54 11  |.:...R....S...T.|
00000b40  dd f2 69 6e 74 72 6f 70  65 6f 70 6c 65 0d 00 55  |..intropeople..U|
00000b50  6d f2 63 6c 65 61 72 67  72 61 70 68 69 63 73 28  |m.cleargraphics(|
00000b60  36 29 3a f2 61 64 64 5f  73 70 28 32 2c 22 68 6f  |6):.add_sp(2,"ho|
00000b70  75 73 65 22 2c 33 2c 33  2c 36 29 3a f2 61 64 64  |use",3,3,6):.add|
00000b80  5f 73 70 28 32 2c 22 77  6f 72 6b 73 68 6f 70 22  |_sp(2,"workshop"|
00000b90  2c 32 36 38 2c 39 34 2c  36 29 3a f2 61 64 64 5f  |,268,94,6):.add_|
00000ba0  73 70 28 32 2c 22 6b 65  65 70 5f 6f 75 74 22 2c  |sp(2,"keep_out",|
00000bb0  32 37 32 2c 31 34 33 2c  36 29 0d 00 56 15 c8 99  |272,143,6)..V...|
00000bc0  22 4f 53 5f 42 79 74 65  22 2c 31 31 32 2c 31 0d  |"OS_Byte",112,1.|
00000bd0  00 57 3e 63 6f 6f 72 64  73 25 28 30 2c 31 29 3d  |.W>coords%(0,1)=|
00000be0  32 30 3a 6c 61 62 65 6c  73 24 28 30 29 3d 22 20  |20:labels$(0)=" |
00000bf0  20 47 6f 20 20 6f 6e 22  3a f2 63 68 6f 6f 73 65  | Go  on":.choose|
00000c00  5f 62 75 74 28 31 2c 31  2c 32 2c 32 29 0d 00 58  |_but(1,1,2,2)..X|
00000c10  36 43 25 3d 32 3a 44 25  3d 31 3a 45 25 3d 32 3a  |6C%=2:D%=1:E%=2:|
00000c20  46 25 3d 31 3a f2 65 78  70 6c 6f 64 65 28 36 34  |F%=1:.explode(64|
00000c30  30 2c 36 30 30 2c 30 29  3a f2 73 63 72 63 6f 70  |0,600,0):.scrcop|
00000c40  79 32 31 0d 00 59 47 f2  77 6f 72 64 73 28 37 30  |y21..YG.words(70|
00000c50  2c 31 33 34 2c 2d 31 2c  22 54 68 69 73 20 27 41  |,134,-1,"This 'A|
00000c60  5a 54 45 43 53 27 20 61  64 76 65 6e 74 75 72 65  |ZTECS' adventure|
00000c70  20 73 74 61 72 74 73 20  68 65 72 65 20 69 6e 20  | starts here in |
00000c80  42 65 72 6d 75 64 61 2e  22 29 0d 00 5a 3a f2 61  |Bermuda.")..Z:.a|
00000c90  64 64 5f 73 70 28 32 2c  22 62 6f 79 22 2c 31 30  |dd_sp(2,"boy",10|
00000ca0  30 2c 39 36 2c 31 32 29  3a f2 61 64 64 5f 73 70  |0,96,12):.add_sp|
00000cb0  28 32 2c 22 67 69 72 6c  22 2c 31 33 37 2c 39 36  |(2,"girl",137,96|
00000cc0  2c 31 32 29 0d 00 5b 15  f2 67 6f 5f 6f 6e 3a f2  |,12)..[..go_on:.|
00000cd0  73 63 72 63 6f 70 79 32  31 0d 00 5c 4c f2 77 6f  |scrcopy21..\L.wo|
00000ce0  72 64 73 28 37 30 2c 31  33 34 2c 2d 31 2c 22 54  |rds(70,134,-1,"T|
00000cf0  68 69 73 20 69 73 20 79  6f 75 2e 20 20 59 6f 75  |his is you.  You|
00000d00  20 61 72 65 20 73 74 61  79 69 6e 67 20 77 69 74  | are staying wit|
00000d10  68 20 79 6f 75 72 20 55  6e 63 6c 65 20 41 6e 67  |h your Uncle Ang|
00000d20  75 73 2e 22 29 0d 00 5d  21 f2 61 64 64 5f 73 70  |us.")..]!.add_sp|
00000d30  28 32 2c 22 70 65 65 6b  69 6e 67 22 2c 32 33 34  |(2,"peeking",234|
00000d40  2c 38 38 2c 36 29 0d 00  5e 15 f2 67 6f 5f 6f 6e  |,88,6)..^..go_on|
00000d50  3a f2 73 63 72 63 6f 70  79 32 31 0d 00 5f 26 f2  |:.scrcopy21.._&.|
00000d60  77 6f 72 64 73 28 37 30  2c 31 33 34 2c 2d 31 2c  |words(70,134,-1,|
00000d70  22 54 68 69 73 20 69 73  20 41 6e 67 75 73 2e 22  |"This is Angus."|
00000d80  29 0d 00 60 7f c8 99 22  4f 53 5f 42 79 74 65 22  |)..`..."OS_Byte"|
00000d90  2c 31 31 32 2c 32 3a f2  63 6c 65 61 72 67 72 61  |,112,2:.cleargra|
00000da0  70 68 69 63 73 28 36 29  3a f2 61 64 64 5f 73 70  |phics(6):.add_sp|
00000db0  28 32 2c 22 68 6f 75 73  65 22 2c 33 2c 33 2c 36  |(2,"house",3,3,6|
00000dc0  29 3a f2 61 64 64 5f 73  70 28 32 2c 22 77 6f 72  |):.add_sp(2,"wor|
00000dd0  6b 73 68 6f 70 22 2c 32  36 38 2c 39 34 2c 36 29  |kshop",268,94,6)|
00000de0  3a f2 61 64 64 5f 73 70  28 32 2c 22 6b 65 65 70  |:.add_sp(2,"keep|
00000df0  5f 6f 75 74 22 2c 32 37  32 2c 31 34 33 2c 36 29  |_out",272,143,6)|
00000e00  0d 00 61 86 f2 61 64 64  5f 73 70 28 32 2c 22 62  |..a..add_sp(2,"b|
00000e10  6f 79 22 2c 31 30 30 2c  39 36 2c 31 32 29 3a f2  |oy",100,96,12):.|
00000e20  61 64 64 5f 73 70 28 32  2c 22 67 69 72 6c 22 2c  |add_sp(2,"girl",|
00000e30  31 33 37 2c 39 36 2c 31  32 29 3a f2 61 64 64 5f  |137,96,12):.add_|
00000e40  73 70 28 32 2c 22 61 6e  67 70 61 63 22 2c 31 38  |sp(2,"angpac",18|
00000e50  34 2c 31 32 39 2c 36 29  3a f2 61 64 64 5f 73 70  |4,129,6):.add_sp|
00000e60  28 32 2c 22 61 6e 67 75  73 22 2c 32 31 35 2c 38  |(2,"angus",215,8|
00000e70  36 2c 36 29 3a c8 99 22  4f 53 5f 42 79 74 65 22  |6,6):.."OS_Byte"|
00000e80  2c 31 31 32 2c 31 0d 00  62 15 f2 67 6f 5f 6f 6e  |,112,1..b..go_on|
00000e90  3a f2 73 63 72 63 6f 70  79 32 31 0d 00 63 3a f2  |:.scrcopy21..c:.|
00000ea0  77 6f 72 64 73 28 37 30  2c 31 33 34 2c 2d 31 2c  |words(70,134,-1,|
00000eb0  22 48 65 20 68 61 73 20  69 6e 76 65 6e 74 65 64  |"He has invented|
00000ec0  20 61 20 73 70 65 63 69  61 6c 20 6a 65 74 2d 70  | a special jet-p|
00000ed0  61 63 2e 22 29 0d 00 64  4d f2 61 64 64 62 6f 78  |ac.")..dM.addbox|
00000ee0  28 33 34 34 2d 31 36 2c  33 31 32 2d 31 36 2c 33  |(344-16,312-16,3|
00000ef0  34 34 2b 35 39 30 2b 31  36 2c 39 30 30 2b 31 36  |44+590+16,900+16|
00000f00  29 3a ef 32 36 3a f2 61  64 64 5f 73 70 28 32 2c  |):.26:.add_sp(2,|
00000f10  22 6a 65 74 70 61 63 22  2c 38 36 2c 31 34 2c 31  |"jetpac",86,14,1|
00000f20  36 29 0d 00 65 0a f2 67  6f 5f 6f 6e 0d 00 66 36  |6)..e..go_on..f6|
00000f30  43 25 3d 31 3a 44 25 3d  31 3a 45 25 3d 31 3a 46  |C%=1:D%=1:E%=1:F|
00000f40  25 3d 31 3a f2 65 78 70  6c 6f 64 65 28 36 34 30  |%=1:.explode(640|
00000f50  2c 36 30 38 2c 30 29 3a  f2 73 63 72 63 6f 70 79  |,608,0):.scrcopy|
00000f60  32 31 0d 00 67 3e f2 77  6f 72 64 73 28 37 30 2c  |21..g>.words(70,|
00000f70  31 33 34 2c 2d 31 2c 22  49 74 20 69 73 20 61 20  |134,-1,"It is a |
00000f80  63 6f 6d 70 75 74 65 72  20 61 73 20 77 65 6c 6c  |computer as well|
00000f90  20 61 73 20 61 20 6a 65  74 2d 70 61 63 2e 22 29  | as a jet-pac.")|
00000fa0  0d 00 68 0a f2 67 6f 5f  6f 6e 0d 00 69 4a f2 77  |..h..go_on..iJ.w|
00000fb0  6f 72 64 73 28 37 30 2c  31 35 30 2c 2d 31 2c 22  |ords(70,150,-1,"|
00000fc0  59 6f 75 20 77 69 6c 6c  20 75 73 65 20 74 68 65  |You will use the|
00000fd0  20 63 6f 6d 70 75 74 65  72 27 73 20 49 6e 66 6f  | computer's Info|
00000fe0  72 6d 61 74 69 6f 6e 20  53 65 72 76 69 63 65 20  |rmation Service |
00000ff0  69 6e 22 29 0d 00 6a 3f  f2 77 6f 72 64 73 28 37  |in")..j?.words(7|
00001000  30 2c 39 30 2c 2d 31 2c  22 79 6f 75 72 20 61 64  |0,90,-1,"your ad|
00001010  76 65 6e 74 75 72 65 20  74 6f 20 66 69 6e 64 20  |venture to find |
00001020  6f 75 74 20 61 62 6f 75  74 20 41 7a 74 65 63 73  |out about Aztecs|
00001030  2e 22 29 0d 00 6b 0a f2  67 6f 5f 6f 6e 0d 00 6c  |.")..k..go_on..l|
00001040  46 f2 77 6f 72 64 73 28  37 30 2c 31 35 30 2c 2d  |F.words(70,150,-|
00001050  31 2c 22 41 6e 67 75 73  20 61 6e 64 20 79 6f 75  |1,"Angus and you|
00001060  20 61 72 65 20 67 6f 69  6e 67 20 74 6f 20 4d 69  | are going to Mi|
00001070  61 6d 69 20 69 6e 20 41  6d 65 72 69 63 61 20 74  |ami in America t|
00001080  6f 22 29 0d 00 6d 30 f2  77 6f 72 64 73 28 37 30  |o")..m0.words(70|
00001090  2c 39 30 2c 2d 31 2c 22  73 65 6c 6c 20 74 77 6f  |,90,-1,"sell two|
000010a0  20 6f 66 20 74 68 65 20  6a 65 74 2d 70 61 63 73  | of the jet-pacs|
000010b0  2e 22 29 0d 00 6e 7f c8  99 22 4f 53 5f 42 79 74  |.")..n..."OS_Byt|
000010c0  65 22 2c 31 31 32 2c 32  3a f2 63 6c 65 61 72 67  |e",112,2:.clearg|
000010d0  72 61 70 68 69 63 73 28  36 29 3a f2 61 64 64 5f  |raphics(6):.add_|
000010e0  73 70 28 32 2c 22 68 6f  75 73 65 22 2c 33 2c 33  |sp(2,"house",3,3|
000010f0  2c 36 29 3a f2 61 64 64  5f 73 70 28 32 2c 22 77  |,6):.add_sp(2,"w|
00001100  6f 72 6b 73 68 6f 70 22  2c 32 36 38 2c 39 34 2c  |orkshop",268,94,|
00001110  36 29 3a f2 61 64 64 5f  73 70 28 32 2c 22 6b 65  |6):.add_sp(2,"ke|
00001120  65 70 5f 6f 75 74 22 2c  32 37 32 2c 31 34 33 2c  |ep_out",272,143,|
00001130  36 29 0d 00 6f 15 f2 67  6f 5f 6f 6e 3a f2 73 63  |6)..o..go_on:.sc|
00001140  72 63 6f 70 79 32 31 0d  00 70 0b f2 66 6c 79 6f  |rcopy21..p..flyo|
00001150  66 66 0d 00 71 37 f2 77  6f 72 64 73 28 37 30 2c  |ff..q7.words(70,|
00001160  31 33 34 2c 2d 31 2c 22  59 6f 75 20 6e 65 76 65  |134,-1,"You neve|
00001170  72 20 72 65 61 63 68 20  4d 69 61 6d 69 20 2e 2e  |r reach Miami ..|
00001180  2e 2e 2e 2e 2e 2e 2e 22  29 0d 00 72 0a f2 67 6f  |.......")..r..go|
00001190  5f 6f 6e 0d 00 73 48 f2  77 6f 72 64 73 28 37 30  |_on..sH.words(70|
000011a0  2c 31 35 30 2c 2d 31 2c  22 49 6e 73 74 65 61 64  |,150,-1,"Instead|
000011b0  20 79 6f 75 20 61 72 65  20 73 75 63 6b 65 64 20  | you are sucked |
000011c0  69 6e 74 6f 20 61 20 73  70 61 63 65 2d 74 69 6d  |into a space-tim|
000011d0  65 20 77 61 72 70 20 69  6e 22 29 0d 00 74 2c f2  |e warp in")..t,.|
000011e0  77 6f 72 64 73 28 37 30  2c 39 30 2c 2d 31 2c 22  |words(70,90,-1,"|
000011f0  74 68 65 20 42 65 72 6d  75 64 61 20 54 72 69 61  |the Bermuda Tria|
00001200  6e 67 6c 65 2e 22 29 0d  00 75 05 e1 0d 00 76 04  |ngle.")..u....v.|
00001210  0d 00 77 0c dd f2 66 6c  79 6f 66 66 0d 00 78 1d  |..w...flyoff..x.|
00001220  c8 99 22 53 6f 75 6e 64  5f 41 74 74 61 63 68 56  |.."Sound_AttachV|
00001230  6f 69 63 65 22 2c 31 2c  32 0d 00 79 5e f2 73 61  |oice",1,2..y^.sa|
00001240  76 65 5f 62 67 72 64 28  31 2c 32 37 36 2c 32 38  |ve_bgrd(1,276,28|
00001250  34 2c 37 32 34 2c 33 32  30 2c 22 62 67 72 64 22  |4,724,320,"bgrd"|
00001260  29 3a 74 6f 67 25 3d 31  3a 66 69 72 73 74 74 69  |):tog%=1:firstti|
00001270  6d 65 25 3d b9 3a 61 6c  6c 64 6f 6e 65 25 3d a3  |me%=.:alldone%=.|
00001280  3a f5 3a f2 6f 75 74 6f  66 73 68 65 64 3a fd 61  |:.:.outofshed:.a|
00001290  6c 6c 64 6f 6e 65 25 0d  00 7a 5a c8 99 20 22 4f  |lldone%..zZ.. "O|
000012a0  53 5f 42 79 74 65 22 2c  31 31 32 2c 32 3a c8 99  |S_Byte",112,2:..|
000012b0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
000012c0  32 32 2c 41 52 45 41 25  2c 22 62 67 72 64 22 2c  |22,AREA%,"bgrd",|
000012d0  32 37 36 2c 32 38 34 2c  30 3a f2 70 75 74 5f 68  |276,284,0:.put_h|
000012e0  65 6c 69 31 28 31 2c 34  30 30 2c 32 38 34 2c 30  |eli1(1,400,284,0|
000012f0  29 0d 00 7b 45 f2 73 61  76 65 5f 62 67 72 64 28  |)..{E.save_bgrd(|
00001300  32 2c 34 30 30 2d 31 30  38 2c 32 38 34 2b 31 33  |2,400-108,284+13|
00001310  32 2c 33 32 30 2c 31 34  34 2c 22 62 67 72 64 22  |2,320,144,"bgrd"|
00001320  29 3a 41 25 3d 31 3a 42  25 3d 32 3a d6 20 63 6f  |):A%=1:B%=2:. co|
00001330  70 79 73 63 72 25 0d 00  7c 3c 74 6f 67 25 3d 31  |pyscr%..|<tog%=1|
00001340  3a 66 69 72 73 74 74 69  6d 65 25 3d b9 3a 61 6c  |:firsttime%=.:al|
00001350  6c 64 6f 6e 65 25 3d a3  3a f5 3a f2 63 6c 6f 73  |ldone%=.:.:.clos|
00001360  65 63 6f 63 6b 70 69 74  3a fd 61 6c 6c 64 6f 6e  |ecockpit:.alldon|
00001370  65 25 0d 00 7d 68 f2 61  64 64 5f 73 70 28 32 2c  |e%..}h.add_sp(2,|
00001380  22 68 6f 75 73 65 22 2c  33 2c 33 2c 36 29 3a c8  |"house",3,3,6):.|
00001390  99 22 4f 53 5f 42 79 74  65 22 2c 31 31 32 2c 32  |."OS_Byte",112,2|
000013a0  3a f2 73 61 76 65 5f 62  67 72 64 28 32 2c 32 37  |:.save_bgrd(2,27|
000013b0  36 2c 32 38 34 2c 37 32  34 2c 36 37 36 2c 22 62  |6,284,724,676,"b|
000013c0  67 72 64 22 29 3a 41 25  3d 31 3a 42 25 3d 32 3a  |grd"):A%=1:B%=2:|
000013d0  d6 20 63 6f 70 79 73 63  72 25 0d 00 7e 16 c8 99  |. copyscr%..~...|
000013e0  20 22 4f 53 5f 42 79 74  65 22 2c 31 31 32 2c 32  | "OS_Byte",112,2|
000013f0  0d 00 7f 2f c8 99 22 4f  53 5f 53 70 72 69 74 65  |.../.."OS_Sprite|
00001400  4f 70 22 2c 26 31 32 32  2c 41 52 45 41 25 2c 22  |Op",&122,AREA%,"|
00001410  62 67 72 64 22 2c 32 37  36 2c 32 38 34 2c 30 0d  |bgrd",276,284,0.|
00001420  00 80 1c f2 70 75 74 5f  68 65 6c 69 31 28 31 2c  |....put_heli1(1,|
00001430  34 30 30 2c 32 38 34 2c  2d 31 29 0d 00 81 48 f2  |400,284,-1)...H.|
00001440  70 75 74 5f 73 70 28 32  2c 34 30 30 2c 32 38 34  |put_sp(2,400,284|
00001450  2b 31 33 32 2c 39 2c 31  36 2c 31 36 2c 31 36 2c  |+132,9,16,16,16,|
00001460  22 63 6f 63 6b 70 69 74  22 2c 6c 65 66 74 25 2c  |"cockpit",left%,|
00001470  6c 6f 77 25 2c 39 39 36  2c 68 69 67 68 25 2c 26  |low%,996,high%,&|
00001480  30 30 29 0d 00 82 1d c8  99 22 53 6f 75 6e 64 5f  |00)......"Sound_|
00001490  41 74 74 61 63 68 56 6f  69 63 65 22 2c 31 2c 31  |AttachVoice",1,1|
000014a0  0d 00 83 48 e3 6b 25 3d  31 b8 38 3a e3 7a 25 3d  |...H.k%=1.8:.z%=|
000014b0  31 b8 6b 25 2f 32 3a f2  77 61 69 74 28 32 2a 28  |1.k%/2:.wait(2*(|
000014c0  31 37 2d 6b 25 29 29 3a  d4 31 2c 26 31 37 37 2b  |17-k%)):.1,&177+|
000014d0  28 26 34 2a 4f 25 29 2c  31 30 34 2b 28 32 2a 6b  |(&4*O%),104+(2*k|
000014e0  25 29 2c 34 3a ed 3a ed  0d 00 84 11 c8 96 3a f2  |%),4:.:.......:.|
000014f0  73 63 72 63 6f 70 79 32  31 0d 00 85 49 e3 6c 25  |scrcopy21...I.l%|
00001500  3d 39 b8 31 32 3a e3 7a  25 3d 31 b8 6c 25 2f 32  |=9.12:.z%=1.l%/2|
00001510  3a d4 31 2c 26 31 37 37  2b 28 26 34 2a 4f 25 29  |:.1,&177+(&4*O%)|
00001520  2c 31 30 34 2b 28 32 2a  6c 25 29 2c 34 3a f2 77  |,104+(2*l%),4:.w|
00001530  61 69 74 28 32 2a 28 31  37 2d 6c 25 29 29 3a ed  |ait(2*(17-l%)):.|
00001540  3a ed 0d 00 86 29 f4 20  53 4f 55 4e 44 20 31 2c  |:....). SOUND 1,|
00001550  73 5f 6c 65 76 25 2a 2d  31 2c 20 35 34 2b 28 32  |s_lev%*-1, 54+(2|
00001560  2a 6b 25 29 2c 20 31 37  2d 6b 25 0d 00 87 37 74  |*k%), 17-k%...7t|
00001570  6f 67 25 3d 31 3a 66 69  72 73 74 74 69 6d 65 25  |og%=1:firsttime%|
00001580  3d b9 3a 61 6c 6c 64 6f  6e 65 25 3d a3 3a f5 3a  |=.:alldone%=.:.:|
00001590  f2 74 61 6b 65 6f 66 66  3a fd 61 6c 6c 64 6f 6e  |.takeoff:.alldon|
000015a0  65 25 0d 00 88 05 e1 0d  00 89 04 0d 00 8a 0f dd  |e%..............|
000015b0  f2 6f 75 74 6f 66 73 68  65 64 0d 00 8b 2c e7 66  |.outofshed...,.f|
000015c0  69 72 73 74 74 69 6d 65  25 8c 3a 66 69 72 73 74  |irsttime%.:first|
000015d0  74 69 6d 65 25 3d a3 3a  6c 61 73 74 74 69 6d 65  |time%=.:lasttime|
000015e0  25 3d 91 2d 31 30 0d 00  8c 1f c8 99 20 22 4f 53  |%=.-10...... "OS|
000015f0  5f 42 79 74 65 22 2c 31  31 32 2c 31 2b 28 74 6f  |_Byte",112,1+(to|
00001600  67 25 83 32 29 0d 00 8d  2f c8 99 22 4f 53 5f 53  |g%.2).../.."OS_S|
00001610  70 72 69 74 65 4f 70 22  2c 26 31 32 32 2c 41 52  |priteOp",&122,AR|
00001620  45 41 25 2c 22 62 67 72  64 22 2c 32 37 36 2c 32  |EA%,"bgrd",276,2|
00001630  38 34 2c 30 0d 00 8e 28  f2 70 75 74 5f 68 65 6c  |84,0...(.put_hel|
00001640  69 31 28 74 6f 67 25 2c  31 31 32 30 2d 28 38 2a  |i1(tog%,1120-(8*|
00001650  74 6f 67 25 29 2c 32 38  34 2c 30 29 0d 00 8f 5f  |tog%),284,0)..._|
00001660  f2 70 75 74 5f 73 70 28  31 2b 28 74 6f 67 25 83  |.put_sp(1+(tog%.|
00001670  32 29 2c 31 31 32 30 2d  28 38 2a 74 6f 67 25 29  |2),1120-(8*tog%)|
00001680  2d 31 30 38 2c 32 38 34  2b 31 33 32 2c 39 2c 31  |-108,284+132,9,1|
00001690  36 2c 31 36 2c 31 36 2c  22 63 6f 63 6b 70 69 74  |6,16,16,"cockpit|
000016a0  22 2c 6c 65 66 74 25 2c  6c 6f 77 25 2c 39 39 36  |",left%,low%,996|
000016b0  2c 68 69 67 68 25 2c 26  30 30 29 0d 00 90 26 e7  |,high%,&00)...&.|
000016c0  28 74 6f 67 25 83 36 29  3d 30 3a d4 31 2c 26 31  |(tog%.6)=0:.1,&1|
000016d0  34 46 2b 28 26 31 38 2a  4f 25 29 2c 32 35 33 2c  |4F+(&18*O%),253,|
000016e0  31 0d 00 91 17 f5 3a fd  20 91 3e 3d 6c 61 73 74  |1.....:. .>=last|
000016f0  74 69 6d 65 25 2b 31 30  0d 00 92 4a c8 96 3a c8  |time%+10...J..:.|
00001700  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 31 33 2c  |. "OS_Byte",113,|
00001710  31 2b 28 74 6f 67 25 83  32 29 3a 74 6f 67 25 2b  |1+(tog%.2):tog%+|
00001720  3d 31 3a 6c 61 73 74 74  69 6d 65 25 3d 91 3a e7  |=1:lasttime%=.:.|
00001730  74 6f 67 25 3d 39 31 3a  61 6c 6c 64 6f 6e 65 25  |tog%=91:alldone%|
00001740  3d b9 0d 00 93 05 e1 0d  00 94 04 0d 00 95 12 dd  |=...............|
00001750  f2 63 6c 6f 73 65 63 6f  63 6b 70 69 74 0d 00 96  |.closecockpit...|
00001760  2c e7 66 69 72 73 74 74  69 6d 65 25 8c 3a 66 69  |,.firsttime%.:fi|
00001770  72 73 74 74 69 6d 65 25  3d a3 3a 6c 61 73 74 74  |rsttime%=.:lastt|
00001780  69 6d 65 25 3d 91 2d 31  30 0d 00 97 1f c8 99 20  |ime%=.-10...... |
00001790  22 4f 53 5f 42 79 74 65  22 2c 31 31 32 2c 31 2b  |"OS_Byte",112,1+|
000017a0  28 74 6f 67 25 83 32 29  0d 00 98 37 c8 99 22 4f  |(tog%.2)...7.."O|
000017b0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 32 32  |S_SpriteOp",&122|
000017c0  2c 41 52 45 41 25 2c 22  62 67 72 64 22 2c 34 30  |,AREA%,"bgrd",40|
000017d0  30 2d 31 30 38 2c 32 38  34 2b 31 33 32 2c 30 0d  |0-108,284+132,0.|
000017e0  00 99 5e f2 70 75 74 5f  73 70 28 31 2b 28 74 6f  |..^.put_sp(1+(to|
000017f0  67 25 83 32 29 2c 34 30  30 2d 31 30 38 2b 28 34  |g%.2),400-108+(4|
00001800  2a 74 6f 67 25 29 2c 32  38 34 2b 31 33 32 2c 39  |*tog%),284+132,9|
00001810  2c 31 36 2c 31 36 2c 31  36 2c 22 63 6f 63 6b 70  |,16,16,16,"cockp|
00001820  69 74 22 2c 6c 65 66 74  25 2c 6c 6f 77 25 2c 39  |it",left%,low%,9|
00001830  39 36 2c 68 69 67 68 25  2c 26 30 30 29 0d 00 9a  |96,high%,&00)...|
00001840  17 f5 3a fd 20 91 3e 3d  6c 61 73 74 74 69 6d 65  |..:. .>=lasttime|
00001850  25 2b 31 30 0d 00 9b 16  f4 53 4f 55 4e 44 20 31  |%+10.....SOUND 1|
00001860  2c 2d 31 30 2c 31 30 34  2c 31 0d 00 9c 4a c8 96  |,-10,104,1...J..|
00001870  3a c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |:.. "OS_Byte",11|
00001880  33 2c 31 2b 28 74 6f 67  25 83 32 29 3a 74 6f 67  |3,1+(tog%.2):tog|
00001890  25 2b 3d 31 3a 6c 61 73  74 74 69 6d 65 25 3d 91  |%+=1:lasttime%=.|
000018a0  3a e7 74 6f 67 25 3d 32  39 3a 61 6c 6c 64 6f 6e  |:.tog%=29:alldon|
000018b0  65 25 3d b9 0d 00 9d 05  e1 0d 00 9e 04 0d 00 9f  |e%=.............|
000018c0  0d dd f2 74 61 6b 65 6f  66 66 0d 00 a0 2c e7 66  |...takeoff...,.f|
000018d0  69 72 73 74 74 69 6d 65  25 8c 3a 66 69 72 73 74  |irsttime%.:first|
000018e0  74 69 6d 65 25 3d a3 3a  6c 61 73 74 74 69 6d 65  |time%=.:lasttime|
000018f0  25 3d 91 2d 31 35 0d 00  a1 1f c8 99 20 22 4f 53  |%=.-15...... "OS|
00001900  5f 42 79 74 65 22 2c 31  31 32 2c 31 2b 28 74 6f  |_Byte",112,1+(to|
00001910  67 25 83 32 29 0d 00 a2  2f c8 99 22 4f 53 5f 53  |g%.2).../.."OS_S|
00001920  70 72 69 74 65 4f 70 22  2c 26 31 32 32 2c 41 52  |priteOp",&122,AR|
00001930  45 41 25 2c 22 62 67 72  64 22 2c 32 37 36 2c 32  |EA%,"bgrd",276,2|
00001940  38 34 2c 30 0d 00 a3 29  f2 70 75 74 5f 68 65 6c  |84,0...).put_hel|
00001950  69 31 28 74 6f 67 25 2c  34 30 30 2c 32 38 34 2b  |i1(tog%,400,284+|
00001960  28 31 36 2a 74 6f 67 25  29 2c 2d 31 29 0d 00 a4  |(16*tog%),-1)...|
00001970  5b f2 70 75 74 5f 73 70  28 31 2b 28 74 6f 67 25  |[.put_sp(1+(tog%|
00001980  83 32 29 2c 34 30 30 2c  32 38 34 2b 28 31 36 2a  |.2),400,284+(16*|
00001990  74 6f 67 25 29 2b 31 33  32 2c 39 2c 31 36 2c 31  |tog%)+132,9,16,1|
000019a0  36 2c 31 36 2c 22 63 6f  63 6b 70 69 74 22 2c 6c  |6,16,"cockpit",l|
000019b0  65 66 74 25 2c 6c 6f 77  25 2c 39 39 36 2c 68 69  |eft%,low%,996,hi|
000019c0  67 68 25 2c 26 30 30 29  0d 00 a5 17 f5 3a fd 20  |gh%,&00).....:. |
000019d0  91 3e 3d 6c 61 73 74 74  69 6d 65 25 2b 31 35 0d  |.>=lasttime%+15.|
000019e0  00 a6 19 d4 31 2c 26 31  37 37 2b 28 26 34 2a 4f  |....1,&177+(&4*O|
000019f0  25 29 2c 31 33 30 2c 31  0d 00 a7 4a c8 96 3a c8  |%),130,1...J..:.|
00001a00  99 20 22 4f 53 5f 42 79  74 65 22 2c 31 31 33 2c  |. "OS_Byte",113,|
00001a10  31 2b 28 74 6f 67 25 83  32 29 3a 6c 61 73 74 74  |1+(tog%.2):lastt|
00001a20  69 6d 65 25 3d 91 3a 74  6f 67 25 2b 3d 31 3a e7  |ime%=.:tog%+=1:.|
00001a30  74 6f 67 25 3d 35 33 3a  61 6c 6c 64 6f 6e 65 25  |tog%=53:alldone%|
00001a40  3d b9 0d 00 a8 05 e1 0d  00 a9 04 0d 00 aa 23 dd  |=.............#.|
00001a50  f2 70 75 74 5f 68 65 6c  69 31 28 74 6f 67 25 2c  |.put_heli1(tog%,|
00001a60  68 78 25 2c 68 79 25 2c  6d 6f 76 65 25 29 0d 00  |hx%,hy%,move%)..|
00001a70  ab 4e f2 70 75 74 5f 73  70 28 31 2b 28 74 6f 67  |.N.put_sp(1+(tog|
00001a80  25 83 32 29 2c 68 78 25  2c 68 79 25 2c 39 2c 31  |%.2),hx%,hy%,9,1|
00001a90  36 2c 31 36 2c 31 36 2c  22 68 65 6c 69 63 6f 70  |6,16,16,"helicop|
00001aa0  74 22 2c 6c 65 66 74 25  2c 6c 6f 77 25 2c 39 39  |t",left%,low%,99|
00001ab0  36 2c 68 69 67 68 25 2c  26 30 30 29 0d 00 ac 0b  |6,high%,&00)....|
00001ac0  e7 6d 6f 76 65 25 8c 0d  00 ad 5f 20 f2 70 75 74  |.move%...._ .put|
00001ad0  5f 73 70 28 31 2b 28 74  6f 67 25 83 32 29 2c 68  |_sp(1+(tog%.2),h|
00001ae0  78 25 2d 35 36 2c 68 79  25 2b 32 37 32 2c 39 2c  |x%-56,hy%+272,9,|
00001af0  31 36 2c 31 36 2c 31 36  2c 22 74 6f 70 5f 72 6f  |16,16,16,"top_ro|
00001b00  74 22 2b c3 28 74 6f 67  25 83 32 29 2c 6c 65 66  |t"+.(tog%.2),lef|
00001b10  74 25 2c 6c 6f 77 25 2c  39 39 36 2c 68 69 67 68  |t%,low%,996,high|
00001b20  25 2c 26 30 30 29 0d 00  ae 61 20 f2 70 75 74 5f  |%,&00)...a .put_|
00001b30  73 70 28 31 2b 28 74 6f  67 25 83 32 29 2c 68 78  |sp(1+(tog%.2),hx|
00001b40  25 2b 34 32 34 2c 68 79  25 2b 31 31 36 2c 39 2c  |%+424,hy%+116,9,|
00001b50  31 36 2c 31 36 2c 31 36  2c 22 62 61 63 6b 5f 72  |16,16,16,"back_r|
00001b60  6f 74 22 2b c3 28 74 6f  67 25 83 32 29 2c 6c 65  |ot"+.(tog%.2),le|
00001b70  66 74 25 2c 6c 6f 77 25  2c 39 39 36 2c 68 69 67  |ft%,low%,996,hig|
00001b80  68 25 2c 26 30 30 29 0d  00 af 05 cc 0d 00 b0 55  |h%,&00)........U|
00001b90  20 f2 70 75 74 5f 73 70  28 31 2b 28 74 6f 67 25  | .put_sp(1+(tog%|
00001ba0  83 32 29 2c 68 78 25 2d  35 36 2c 68 79 25 2b 32  |.2),hx%-56,hy%+2|
00001bb0  37 32 2c 39 2c 31 36 2c  31 36 2c 31 36 2c 22 74  |72,9,16,16,16,"t|
00001bc0  6f 70 5f 72 6f 74 22 2c  6c 65 66 74 25 2c 6c 6f  |op_rot",left%,lo|
00001bd0  77 25 2c 39 39 36 2c 68  69 67 68 25 2c 26 30 30  |w%,996,high%,&00|
00001be0  29 0d 00 b1 57 20 f2 70  75 74 5f 73 70 28 31 2b  |)...W .put_sp(1+|
00001bf0  28 74 6f 67 25 83 32 29  2c 68 78 25 2b 34 36 34  |(tog%.2),hx%+464|
00001c00  2c 68 79 25 2b 31 32 30  2c 39 2c 31 36 2c 31 36  |,hy%+120,9,16,16|
00001c10  2c 31 36 2c 22 62 61 63  6b 5f 72 6f 74 22 2c 6c  |,16,"back_rot",l|
00001c20  65 66 74 25 2c 6c 6f 77  25 2c 39 39 36 2c 68 69  |eft%,low%,996,hi|
00001c30  67 68 25 2c 26 30 30 29  0d 00 b2 05 cd 0d 00 b3  |gh%,&00)........|
00001c40  53 f2 70 75 74 5f 73 70  28 31 2b 28 74 6f 67 25  |S.put_sp(1+(tog%|
00001c50  83 32 29 2c 68 78 25 2b  31 30 30 2c 68 79 25 2b  |.2),hx%+100,hy%+|
00001c60  31 33 32 2c 36 2c 31 36  2c 31 36 2c 31 36 2c 22  |132,6,16,16,16,"|
00001c70  70 69 6c 6f 74 22 2c 6c  65 66 74 25 2c 6c 6f 77  |pilot",left%,low|
00001c80  25 2c 39 39 36 2c 68 69  67 68 25 2c 26 30 30 29  |%,996,high%,&00)|
00001c90  0d 00 b4 05 e1 0d 00 b5  04 0d 00 b6 0f dd f2 69  |...............i|
00001ca0  6e 74 72 6f 63 68 69 6e  0d 00 b7 0f f2 63 72 65  |ntrochin.....cre|
00001cb0  61 74 65 63 68 69 6e 0d  00 b8 29 f2 73 61 76 65  |atechin...).save|
00001cc0  5f 62 67 72 64 28 32 2c  32 33 32 2c 33 36 30 2c  |_bgrd(2,232,360,|
00001cd0  33 30 30 2c 33 34 34 2c  22 66 62 67 72 64 22 29  |300,344,"fbgrd")|
00001ce0  0d 00 b9 41 f2 61 64 64  5f 73 70 28 32 2c 22 66  |...A.add_sp(2,"f|
00001cf0  61 72 6d 65 72 62 6f 64  22 2c 35 38 2c 36 34 2c  |armerbod",58,64,|
00001d00  36 29 3a f2 61 64 64 5f  73 70 28 32 2c 22 66 61  |6):.add_sp(2,"fa|
00001d10  72 6d 68 65 61 64 30 22  2c 38 36 2c 36 34 2c 36  |rmhead0",86,64,6|
00001d20  29 0d 00 ba 3d f2 67 6f  5f 6f 6e 3a 43 25 3d 32  |)...=.go_on:C%=2|
00001d30  3a 44 25 3d 31 3a 45 25  3d 32 3a 46 25 3d 31 3a  |:D%=1:E%=2:F%=1:|
00001d40  f2 65 78 70 6c 6f 64 65  28 36 34 30 2c 36 30 30  |.explode(640,600|
00001d50  2c 30 29 3a f2 73 63 72  63 6f 70 79 32 31 0d 00  |,0):.scrcopy21..|
00001d60  bb 44 f2 77 6f 72 64 73  28 37 30 2c 31 33 34 2c  |.D.words(70,134,|
00001d70  2d 31 2c 22 54 68 65 20  73 70 61 63 65 2d 74 69  |-1,"The space-ti|
00001d80  6d 65 20 77 61 72 70 20  74 68 72 6f 77 73 20 79  |me warp throws y|
00001d90  6f 75 20 62 61 63 6b 20  74 6f 20 31 35 31 39 2e  |ou back to 1519.|
00001da0  22 29 0d 00 bc 0a f2 67  6f 5f 6f 6e 0d 00 bd 49  |").....go_on...I|
00001db0  f2 77 6f 72 64 73 28 37  30 2c 31 35 30 2c 2d 31  |.words(70,150,-1|
00001dc0  2c 22 59 6f 75 20 61 72  65 20 66 6c 79 69 6e 67  |,"You are flying|
00001dd0  20 6f 76 65 72 20 4d 65  78 69 63 6f 20 43 69 74  | over Mexico Cit|
00001de0  79 20 77 68 69 63 68 20  69 6e 20 31 35 31 39 20  |y which in 1519 |
00001df0  77 61 73 22 29 0d 00 be  44 f2 77 6f 72 64 73 28  |was")...D.words(|
00001e00  37 30 2c 39 30 2c 2d 31  2c 22 63 61 6c 6c 65 64  |70,90,-1,"called|
00001e10  20 54 65 6e 6f 63 68 74  69 74 6c 61 6e 2c 20 20  | Tenochtitlan,  |
00001e20  74 68 65 20 41 7a 74 65  63 20 63 61 70 69 74 61  |the Aztec capita|
00001e30  6c 20 63 69 74 79 2e 22  29 0d 00 bf 0a f2 67 6f  |l city.").....go|
00001e40  5f 6f 6e 0d 00 c0 4b f2  77 6f 72 64 73 28 37 30  |_on...K.words(70|
00001e50  2c 31 35 30 2c 2d 31 2c  22 54 65 6e 6f 63 68 74  |,150,-1,"Tenocht|
00001e60  69 74 6c 61 6e 20 77 61  73 20 62 75 69 6c 74 20  |itlan was built |
00001e70  69 6e 20 74 68 65 20 6d  69 64 64 6c 65 20 6f 66  |in the middle of|
00001e80  20 61 20 6c 61 6b 65 20  68 69 67 68 22 29 0d 00  | a lake high")..|
00001e90  c1 28 f2 77 6f 72 64 73  28 37 30 2c 39 30 2c 2d  |.(.words(70,90,-|
00001ea0  31 2c 22 69 6e 20 74 68  65 20 6d 6f 75 6e 74 61  |1,"in the mounta|
00001eb0  69 6e 73 2e 22 29 0d 00  c2 0a f2 67 6f 5f 6f 6e  |ins.").....go_on|
00001ec0  0d 00 c3 4b f2 77 6f 72  64 73 28 37 30 2c 31 33  |...K.words(70,13|
00001ed0  34 2c 2d 31 2c 22 59 6f  75 20 66 6c 79 20 6c 6f  |4,-1,"You fly lo|
00001ee0  77 20 62 65 66 6f 72 65  20 6c 61 6e 64 69 6e 67  |w before landing|
00001ef0  20 61 6e 64 20 73 65 65  20 61 6e 20 41 7a 74 65  | and see an Azte|
00001f00  63 20 66 61 72 6d 65 72  2e 22 29 0d 00 c4 2c f2  |c farmer.")...,.|
00001f10  63 72 65 61 74 65 63 68  69 6e 3a f2 61 64 64 5f  |createchin:.add_|
00001f20  73 70 28 32 2c 22 66 61  72 6d 65 72 31 22 2c 35  |sp(2,"farmer1",5|
00001f30  38 2c 36 34 2c 36 29 0d  00 c5 1e f2 6c 6f 61 64  |8,64,6).....load|
00001f40  73 6f 75 6e 64 6d 6f 64  28 22 4f 4e 45 22 2c 22  |soundmod("ONE","|
00001f50  64 69 67 22 29 0d 00 c6  19 ff 22 43 68 61 6e 6e  |dig")....."Chann|
00001f60  65 6c 56 6f 69 63 65 20  31 20 64 69 67 22 0d 00  |elVoice 1 dig"..|
00001f70  c7 0a f2 67 6f 5f 6f 6e  0d 00 c8 0c e3 6a 25 3d  |...go_on.....j%=|
00001f80  31 b8 31 34 0d 00 c9 1f  c8 96 3a c8 99 22 4f 53  |1.14......:.."OS|
00001f90  5f 42 79 74 65 22 2c 31  31 33 2c 31 2b 28 6a 25  |_Byte",113,1+(j%|
00001fa0  83 32 29 0d 00 ca 26 e7  31 2b 28 6a 25 83 32 29  |.2)...&.1+(j%.2)|
00001fb0  3d 32 3a d4 31 2c 26 31  37 37 2b 28 34 2a 4f 25  |=2:.1,&177+(4*O%|
00001fc0  29 2c 26 32 36 30 30 2c  35 0d 00 cb 0d f2 77 61  |),&2600,5.....wa|
00001fd0  69 74 28 36 30 29 0d 00  cc 05 ed 0d 00 cd 3a f2  |it(60)........:.|
00001fe0  77 6f 72 64 73 28 37 30  2c 31 33 34 2c 2d 31 2c  |words(70,134,-1,|
00001ff0  22 43 68 65 63 6b 20 74  68 65 20 6a 65 74 2d 70  |"Check the jet-p|
00002000  61 63 20 66 6f 72 20 69  6e 66 6f 72 6d 61 74 69  |ac for informati|
00002010  6f 6e 2e 22 29 0d 00 ce  0b f2 6a 70 69 6e 66 6f  |on.").....jpinfo|
00002020  0d 00 cf 45 f2 6a 70 77  6f 72 64 73 28 37 30 2c  |...E.jpwords(70,|
00002030  31 34 30 2c 2d 31 2c 22  41 7a 74 65 63 73 20 6d  |140,-1,"Aztecs m|
00002040  61 64 65 20 74 68 65 73  65 20 69 73 6c 61 6e 64  |ade these island|
00002050  73 2e 20 20 54 68 65 79  20 61 72 65 20 63 61 6c  |s.  They are cal|
00002060  6c 65 64 22 29 0d 00 d0  23 f2 6a 70 77 6f 72 64  |led")...#.jpword|
00002070  73 28 37 30 2c 38 30 2c  2d 31 2c 22 63 68 69 6e  |s(70,80,-1,"chin|
00002080  61 6d 70 61 73 2e 22 29  0d 00 d1 0c f2 6a 70 67  |ampas.").....jpg|
00002090  6f 5f 6f 6e 0d 00 d2 51  f2 6a 70 77 6f 72 64 73  |o_on...Q.jpwords|
000020a0  28 37 30 2c 31 34 30 2c  2d 31 2c 22 4d 6f 73 74  |(70,140,-1,"Most|
000020b0  20 6f 66 20 74 68 65 20  63 69 74 79 20 6f 66 20  | of the city of |
000020c0  54 65 6e 6f 63 68 74 69  74 6c 61 6e 20 77 61 73  |Tenochtitlan was|
000020d0  20 62 75 69 6c 74 20 6f  6e 20 6c 61 6e 64 20 74  | built on land t|
000020e0  68 61 74 22 29 0d 00 d3  35 f2 6a 70 77 6f 72 64  |hat")...5.jpword|
000020f0  73 28 37 30 2c 38 30 2c  2d 31 2c 22 77 61 73 20  |s(70,80,-1,"was |
00002100  72 65 63 6c 61 69 6d 65  64 20 66 72 6f 6d 20 74  |reclaimed from t|
00002110  68 65 20 6c 61 6b 65 2e  22 29 0d 00 d4 0c f2 6a  |he lake.").....j|
00002120  70 67 6f 5f 6f 6e 0d 00  d5 41 f2 6a 70 77 6f 72  |pgo_on...A.jpwor|
00002130  64 73 28 37 30 2c 31 32  38 2c 2d 31 2c 22 4d 61  |ds(70,128,-1,"Ma|
00002140  6e 79 20 63 68 69 6e 61  6d 70 61 73 20 77 65 72  |ny chinampas wer|
00002150  65 20 75 73 65 64 20 74  6f 20 67 72 6f 77 20 63  |e used to grow c|
00002160  72 6f 70 73 2e 22 29 0d  00 d6 0c f2 6a 70 67 6f  |rops.").....jpgo|
00002170  5f 6f 6e 0d 00 d7 4b f2  6a 70 77 6f 72 64 73 28  |_on...K.jpwords(|
00002180  37 30 2c 31 34 30 2c 2d  31 2c 22 54 68 65 20 4a  |70,140,-1,"The J|
00002190  45 54 2d 50 41 43 20 49  6e 66 6f 72 6d 61 74 69  |ET-PAC Informati|
000021a0  6f 6e 20 53 65 72 76 69  63 65 20 77 69 6c 6c 20  |on Service will |
000021b0  6e 6f 77 20 73 63 61 6e  20 74 68 65 22 29 0d 00  |now scan the")..|
000021c0  d8 3c f2 6a 70 77 6f 72  64 73 28 37 30 2c 38 30  |.<.jpwords(70,80|
000021d0  2c 2d 31 2c 22 73 63 65  6e 65 20 74 6f 20 67 69  |,-1,"scene to gi|
000021e0  76 65 20 79 6f 75 20 6d  6f 72 65 20 69 6e 66 6f  |ve you more info|
000021f0  72 6d 61 74 69 6f 6e 2e  22 29 0d 00 d9 0c f2 6a  |rmation.").....j|
00002200  70 67 6f 5f 6f 6e 0d 00  da 28 62 6f 78 5f 6e 6f  |pgo_on...(box_no|
00002210  25 3d 32 3a f2 6a 70 73  63 61 6e 28 62 6f 78 5f  |%=2:.jpscan(box_|
00002220  6e 6f 25 29 3a f2 73 68  6f 77 5f 62 6f 78 0d 00  |no%):.show_box..|
00002230  db 15 64 6f 6e 65 30 25  3d a3 3a 64 6f 6e 65 31  |..done0%=.:done1|
00002240  25 3d a3 0d 00 dc 05 f5  0d 00 dd 21 f2 6a 70 65  |%=.........!.jpe|
00002250  78 70 6c 6f 72 65 3a f2  6a 70 63 68 6f 6f 73 65  |xplore:.jpchoose|
00002260  5f 62 6f 78 28 31 2c 32  29 0d 00 de 21 e7 67 6f  |_box(1,2)...!.go|
00002270  74 5f 62 6f 78 25 3d 30  3a f2 65 78 70 66 6f 6f  |t_box%=0:.expfoo|
00002280  64 3a 64 6f 6e 65 30 25  3d b9 0d 00 df 21 e7 67  |d:done0%=....!.g|
00002290  6f 74 5f 62 6f 78 25 3d  31 3a f2 65 78 70 63 68  |ot_box%=1:.expch|
000022a0  69 6e 3a 64 6f 6e 65 31  25 3d b9 0d 00 e0 12 fd  |in:done1%=......|
000022b0  64 6f 6e 65 30 25 80 64  6f 6e 65 31 25 0d 00 e1  |done0%.done1%...|
000022c0  05 e1 0d 00 e2 04 0d 00  e3 10 dd f2 63 72 65 61  |............crea|
000022d0  74 65 63 68 69 6e 0d 00  e4 8d c8 99 20 22 4f 53  |techin...... "OS|
000022e0  5f 42 79 74 65 22 2c 31  31 32 2c 32 3a f2 63 6c  |_Byte",112,2:.cl|
000022f0  65 61 72 67 72 61 70 68  69 63 73 28 36 29 3a f2  |eargraphics(6):.|
00002300  6d 6f 75 6e 74 73 28 32  2c 22 6d 30 22 2c 22 6d  |mounts(2,"m0","m|
00002310  31 22 2c 22 6d 32 22 2c  2d 34 30 2c 37 30 38 29  |1","m2",-40,708)|
00002320  3a f2 61 64 64 5f 73 70  28 32 2c 22 63 68 69 6e  |:.add_sp(2,"chin|
00002330  74 6f 70 22 2c 33 2c 33  2c 39 29 3a f2 61 64 64  |top",3,3,9):.add|
00002340  5f 73 70 28 32 2c 22 63  68 69 6e 62 6f 74 22 2c  |_sp(2,"chinbot",|
00002350  33 2c 31 31 39 2c 39 29  3a f2 64 6f 63 61 72 72  |3,119,9):.docarr|
00002360  6f 74 73 0d 00 e5 05 e1  0d 00 e6 04 0d 00 e7 0f  |ots.............|
00002370  dd f2 64 6f 63 61 72 72  6f 74 73 0d 00 e8 20 ef  |..docarrots... .|
00002380  32 34 2c 6c 65 66 74 25  3b 6c 6f 77 25 3b 72 69  |24,left%;low%;ri|
00002390  67 68 74 25 3b 68 69 67  68 25 3b 0d 00 e9 6e 53  |ght%;high%;...nS|
000023a0  43 41 4c 45 25 21 30 3d  38 3a 53 43 41 4c 45 25  |CALE%!0=8:SCALE%|
000023b0  21 34 3d 38 2a 28 48 25  21 26 46 30 29 3a e3 6a  |!4=8*(H%!&F0):.j|
000023c0  25 3d 30 b8 31 34 3a c8  99 22 4f 53 5f 53 70 72  |%=0.14:.."OS_Spr|
000023d0  69 74 65 4f 70 22 2c 26  31 33 34 2c 41 52 45 41  |iteOp",&134,AREA|
000023e0  25 2c 22 63 61 72 72 6f  74 22 2c 34 33 36 2b 28  |%,"carrot",436+(|
000023f0  6a 25 2a 34 34 29 2c 35  35 32 2c 26 30 38 2c 53  |j%*44),552,&08,S|
00002400  43 41 4c 45 25 2c 30 3a  ed 0d 00 ea 6e 53 43 41  |CALE%,0:....nSCA|
00002410  4c 45 25 21 30 3d 39 3a  53 43 41 4c 45 25 21 34  |LE%!0=9:SCALE%!4|
00002420  3d 39 2a 28 48 25 21 26  46 30 29 3a e3 6a 25 3d  |=9*(H%!&F0):.j%=|
00002430  30 b8 31 34 3a c8 99 22  4f 53 5f 53 70 72 69 74  |0.14:.."OS_Sprit|
00002440  65 4f 70 22 2c 26 31 33  34 2c 41 52 45 41 25 2c  |eOp",&134,AREA%,|
00002450  22 63 61 72 72 6f 74 22  2c 34 32 30 2b 28 6a 25  |"carrot",420+(j%|
00002460  2a 34 38 29 2c 35 33 36  2c 26 30 38 2c 53 43 41  |*48),536,&08,SCA|
00002470  4c 45 25 2c 30 3a ed 0d  00 eb 70 53 43 41 4c 45  |LE%,0:....pSCALE|
00002480  25 21 30 3d 31 30 3a 53  43 41 4c 45 25 21 34 3d  |%!0=10:SCALE%!4=|
00002490  31 30 2a 28 48 25 21 26  46 30 29 3a e3 6a 25 3d  |10*(H%!&F0):.j%=|
000024a0  30 b8 31 34 3a c8 99 22  4f 53 5f 53 70 72 69 74  |0.14:.."OS_Sprit|
000024b0  65 4f 70 22 2c 26 31 33  34 2c 41 52 45 41 25 2c  |eOp",&134,AREA%,|
000024c0  22 63 61 72 72 6f 74 22  2c 34 30 30 2b 28 6a 25  |"carrot",400+(j%|
000024d0  2a 35 33 29 2c 35 32 30  2c 26 30 38 2c 53 43 41  |*53),520,&08,SCA|
000024e0  4c 45 25 2c 30 3a ed 0d  00 ec 70 53 43 41 4c 45  |LE%,0:....pSCALE|
000024f0  25 21 30 3d 31 31 3a 53  43 41 4c 45 25 21 34 3d  |%!0=11:SCALE%!4=|
00002500  31 31 2a 28 48 25 21 26  46 30 29 3a e3 6a 25 3d  |11*(H%!&F0):.j%=|
00002510  30 b8 31 34 3a c8 99 22  4f 53 5f 53 70 72 69 74  |0.14:.."OS_Sprit|
00002520  65 4f 70 22 2c 26 31 33  34 2c 41 52 45 41 25 2c  |eOp",&134,AREA%,|
00002530  22 63 61 72 72 6f 74 22  2c 33 38 30 2b 28 6a 25  |"carrot",380+(j%|
00002540  2a 35 39 29 2c 35 30 30  2c 26 30 38 2c 53 43 41  |*59),500,&08,SCA|
00002550  4c 45 25 2c 30 3a ed 0d  00 ed 70 53 43 41 4c 45  |LE%,0:....pSCALE|
00002560  25 21 30 3d 31 32 3a 53  43 41 4c 45 25 21 34 3d  |%!0=12:SCALE%!4=|
00002570  31 32 2a 28 48 25 21 26  46 30 29 3a e3 6a 25 3d  |12*(H%!&F0):.j%=|
00002580  30 b8 31 34 3a c8 99 22  4f 53 5f 53 70 72 69 74  |0.14:.."OS_Sprit|
00002590  65 4f 70 22 2c 26 31 33  34 2c 41 52 45 41 25 2c  |eOp",&134,AREA%,|
000025a0  22 63 61 72 72 6f 74 22  2c 33 35 36 2b 28 6a 25  |"carrot",356+(j%|
000025b0  2a 36 35 29 2c 34 37 36  2c 26 30 38 2c 53 43 41  |*65),476,&08,SCA|
000025c0  4c 45 25 2c 30 3a ed 0d  00 ee 70 53 43 41 4c 45  |LE%,0:....pSCALE|
000025d0  25 21 30 3d 31 33 3a 53  43 41 4c 45 25 21 34 3d  |%!0=13:SCALE%!4=|
000025e0  31 33 2a 28 48 25 21 26  46 30 29 3a e3 6a 25 3d  |13*(H%!&F0):.j%=|
000025f0  30 b8 31 34 3a c8 99 22  4f 53 5f 53 70 72 69 74  |0.14:.."OS_Sprit|
00002600  65 4f 70 22 2c 26 31 33  34 2c 41 52 45 41 25 2c  |eOp",&134,AREA%,|
00002610  22 63 61 72 72 6f 74 22  2c 33 33 32 2b 28 6a 25  |"carrot",332+(j%|
00002620  2a 37 32 29 2c 34 35 32  2c 26 30 38 2c 53 43 41  |*72),452,&08,SCA|
00002630  4c 45 25 2c 30 3a ed 0d  00 ef 70 53 43 41 4c 45  |LE%,0:....pSCALE|
00002640  25 21 30 3d 31 34 3a 53  43 41 4c 45 25 21 34 3d  |%!0=14:SCALE%!4=|
00002650  31 34 2a 28 48 25 21 26  46 30 29 3a e3 6a 25 3d  |14*(H%!&F0):.j%=|
00002660  30 b8 31 34 3a c8 99 22  4f 53 5f 53 70 72 69 74  |0.14:.."OS_Sprit|
00002670  65 4f 70 22 2c 26 31 33  34 2c 41 52 45 41 25 2c  |eOp",&134,AREA%,|
00002680  22 63 61 72 72 6f 74 22  2c 33 30 34 2b 28 6a 25  |"carrot",304+(j%|
00002690  2a 38 30 29 2c 34 32 34  2c 26 30 38 2c 53 43 41  |*80),424,&08,SCA|
000026a0  4c 45 25 2c 30 3a ed 0d  00 f0 70 53 43 41 4c 45  |LE%,0:....pSCALE|
000026b0  25 21 30 3d 31 35 3a 53  43 41 4c 45 25 21 34 3d  |%!0=15:SCALE%!4=|
000026c0  31 35 2a 28 48 25 21 26  46 30 29 3a e3 6a 25 3d  |15*(H%!&F0):.j%=|
000026d0  30 b8 31 34 3a c8 99 22  4f 53 5f 53 70 72 69 74  |0.14:.."OS_Sprit|
000026e0  65 4f 70 22 2c 26 31 33  34 2c 41 52 45 41 25 2c  |eOp",&134,AREA%,|
000026f0  22 63 61 72 72 6f 74 22  2c 32 37 32 2b 28 6a 25  |"carrot",272+(j%|
00002700  2a 38 39 29 2c 33 39 32  2c 26 30 38 2c 53 43 41  |*89),392,&08,SCA|
00002710  4c 45 25 2c 30 3a ed 0d  00 f1 71 53 43 41 4c 45  |LE%,0:....qSCALE|
00002720  25 21 30 3d 31 36 3a 53  43 41 4c 45 25 21 34 3d  |%!0=16:SCALE%!4=|
00002730  31 36 2a 28 48 25 21 26  46 30 29 3a e3 6a 25 3d  |16*(H%!&F0):.j%=|
00002740  30 b8 31 34 3a c8 99 22  4f 53 5f 53 70 72 69 74  |0.14:.."OS_Sprit|
00002750  65 4f 70 22 2c 26 31 33  34 2c 41 52 45 41 25 2c  |eOp",&134,AREA%,|
00002760  22 63 61 72 72 6f 74 22  2c 32 33 32 2b 28 6a 25  |"carrot",232+(j%|
00002770  2a 31 30 30 29 2c 33 35  32 2c 26 30 38 2c 53 43  |*100),352,&08,SC|
00002780  41 4c 45 25 2c 30 3a ed  0d 00 f2 22 f2 61 64 64  |ALE%,0:....".add|
00002790  5f 73 70 28 32 2c 22 74  72 65 65 22 2c 32 35 33  |_sp(2,"tree",253|
000027a0  2c 35 31 2c 36 29 3a ef  32 36 0d 00 f3 05 e1 0d  |,51,6):.26......|
000027b0  00 f4 04 0d 00 f5 0c dd  f2 64 6f 63 61 72 72 0d  |.........docarr.|
000027c0  00 f6 70 53 43 41 4c 45  25 21 30 3d 31 36 3a 53  |..pSCALE%!0=16:S|
000027d0  43 41 4c 45 25 21 34 3d  31 36 2a 28 48 25 21 26  |CALE%!4=16*(H%!&|
000027e0  46 30 29 3a e3 6a 25 3d  30 b8 37 3a c8 99 22 4f  |F0):.j%=0.7:.."O|
000027f0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 34  |S_SpriteOp",&134|
00002800  2c 41 52 45 41 25 2c 22  63 61 72 72 6f 74 22 2c  |,AREA%,"carrot",|
00002810  32 33 32 2b 28 6a 25 2a  31 30 30 29 2c 33 35 32  |232+(j%*100),352|
00002820  2c 26 30 38 2c 53 43 41  4c 45 25 2c 30 3a ed 0d  |,&08,SCALE%,0:..|
00002830  00 f7 05 e1 0d 00 f8 04  0d 00 f9 0d dd f2 65 78  |..............ex|
00002840  70 66 6f 6f 64 0d 00 fa  46 f2 61 64 64 62 6f 78  |pfood...F.addbox|
00002850  28 31 37 36 2d 31 36 2c  33 33 32 2d 31 36 2c 31  |(176-16,332-16,1|
00002860  31 30 32 2b 31 36 2c 38  38 30 2b 31 36 29 3a f2  |102+16,880+16):.|
00002870  61 64 64 5f 73 70 28 32  2c 22 76 65 67 65 74 73  |add_sp(2,"vegets|
00002880  22 2c 34 34 2c 31 39 2c  31 36 29 0d 00 fb 6b e3  |",44,19,16)...k.|
00002890  6a 25 3d 30 b8 31 37 3a  f2 70 75 74 5f 73 70 28  |j%=0.17:.put_sp(|
000028a0  32 2c 31 37 36 2b 76 65  67 25 28 6a 25 2c 30 29  |2,176+veg%(j%,0)|
000028b0  2c 33 33 32 2b 76 65 67  25 28 6a 25 2c 31 29 2c  |,332+veg%(j%,1),|
000028c0  36 2c 31 36 2c 31 36 2c  31 36 2c 22 76 65 67 22  |6,16,16,16,"veg"|
000028d0  2b c3 28 76 65 67 25 28  6a 25 2c 32 29 29 2c 31  |+.(veg%(j%,2)),1|
000028e0  37 36 2c 33 33 32 2c 31  31 30 30 2c 38 38 30 2c  |76,332,1100,880,|
000028f0  26 30 30 29 3a ed 0d 00  fc 36 43 25 3d 32 3a 44  |&00):....6C%=2:D|
00002900  25 3d 31 3a 45 25 3d 32  3a 46 25 3d 31 3a f2 65  |%=1:E%=2:F%=1:.e|
00002910  78 70 6c 6f 64 65 28 36  34 30 2c 36 30 30 2c 30  |xplode(640,600,0|
00002920  29 3a f2 73 63 72 63 6f  70 79 32 31 0d 00 fd 1e  |):.scrcopy21....|
00002930  f2 6c 6f 61 64 73 6f 75  6e 64 6d 6f 64 28 22 4f  |.loadsoundmod("O|
00002940  4e 45 22 2c 22 79 61 70  22 29 0d 00 fe 19 ff 22  |NE","yap")....."|
00002950  43 68 61 6e 6e 65 6c 56  6f 69 63 65 20 31 20 79  |ChannelVoice 1 y|
00002960  61 70 22 0d 00 ff 50 f2  6a 70 77 6f 72 64 73 28  |ap"...P.jpwords(|
00002970  37 30 2c 31 34 30 2c 2d  31 2c 22 56 65 67 65 74  |70,140,-1,"Veget|
00002980  61 62 6c 65 73 20 73 75  63 68 20 61 73 20 74 6f  |ables such as to|
00002990  6d 61 74 6f 65 73 2c 20  20 79 61 6d 73 2c 20 20  |matoes,  yams,  |
000029a0  70 65 70 70 65 72 73 2c  20 20 63 61 72 72 6f 74  |peppers,  carrot|
000029b0  73 22 29 0d 01 00 38 f2  6a 70 77 6f 72 64 73 28  |s")...8.jpwords(|
000029c0  37 30 2c 38 30 2c 2d 31  2c 22 61 6e 64 20 6d 61  |70,80,-1,"and ma|
000029d0  69 7a 65 20 77 65 72 65  20 67 72 6f 77 6e 20 61  |ize were grown a|
000029e0  6e 64 20 65 61 74 65 6e  2e 22 29 0d 01 01 1f f2  |nd eaten.").....|
000029f0  61 64 64 5f 73 70 28 32  2c 22 6d 65 61 74 73 22  |add_sp(2,"meats"|
00002a00  2c 34 34 2c 31 39 2c 31  36 29 0d 01 02 86 f2 70  |,44,19,16).....p|
00002a10  75 74 5f 73 70 28 32 2c  31 37 36 2b 33 38 34 2c  |ut_sp(2,176+384,|
00002a20  33 33 32 2b 38 38 2c 36  2c 31 36 2c 31 36 2c 31  |332+88,6,16,16,1|
00002a30  36 2c 22 66 72 6f 67 22  2c 31 37 36 2c 33 33 32  |6,"frog",176,332|
00002a40  2c 31 31 30 34 2c 38 38  34 2c 26 30 30 29 3a f2  |,1104,884,&00):.|
00002a50  70 75 74 5f 73 70 28 32  2c 31 37 36 2b 34 39 32  |put_sp(2,176+492|
00002a60  2c 33 33 32 2b 34 34 2c  36 2c 31 36 2c 31 36 2c  |,332+44,6,16,16,|
00002a70  31 36 2c 22 66 72 6f 67  22 2c 31 37 36 2c 33 33  |16,"frog",176,33|
00002a80  32 2c 31 31 30 34 2c 38  38 34 2c 26 30 30 29 3a  |2,1104,884,&00):|
00002a90  0d 01 03 5f e3 6a 25 3d  30 b8 34 3a f2 70 75 74  |..._.j%=0.4:.put|
00002aa0  5f 73 70 28 32 2c 31 37  36 2b 6c 6f 63 25 28 6a  |_sp(2,176+loc%(j|
00002ab0  25 2c 30 29 2c 33 33 32  2b 6c 6f 63 25 28 6a 25  |%,0),332+loc%(j%|
00002ac0  2c 31 29 2c 36 2c 31 36  2c 31 36 2c 31 36 2c 22  |,1),6,16,16,16,"|
00002ad0  6c 6f 63 75 73 74 22 2c  31 37 36 2c 33 33 32 2c  |locust",176,332,|
00002ae0  31 31 30 34 2c 38 38 34  2c 26 30 30 29 3a ed 0d  |1104,884,&00):..|
00002af0  01 04 3f f2 6a 70 67 6f  5f 6f 6e 3a 43 25 3d 32  |..?.jpgo_on:C%=2|
00002b00  3a 44 25 3d 31 3a 45 25  3d 32 3a 46 25 3d 31 3a  |:D%=1:E%=2:F%=1:|
00002b10  f2 65 78 70 6c 6f 64 65  28 36 34 30 2c 36 30 30  |.explode(640,600|
00002b20  2c 30 29 3a f2 73 63 72  63 6f 70 79 32 31 0d 01  |,0):.scrcopy21..|
00002b30  05 38 74 6f 67 25 3d 31  3a 66 69 72 73 74 74 69  |.8tog%=1:firstti|
00002b40  6d 65 25 3d b9 3a 61 6c  6c 64 6f 6e 65 25 3d a3  |me%=.:alldone%=.|
00002b50  3a f5 3a f2 61 6e 69 6d  5f 70 75 70 3a fd 61 6c  |:.:.anim_pup:.al|
00002b60  6c 64 6f 6e 65 25 0d 01  06 51 f2 6a 70 77 6f 72  |ldone%...Q.jpwor|
00002b70  64 73 28 37 30 2c 31 34  30 2c 2d 31 2c 22 41 7a  |ds(70,140,-1,"Az|
00002b80  74 65 63 73 20 61 6c 73  6f 20 61 74 65 20 70 75  |tecs also ate pu|
00002b90  70 70 69 65 73 2c 20 20  67 69 61 6e 74 20 6c 69  |ppies,  giant li|
00002ba0  7a 61 72 64 73 20 63 61  6c 6c 65 64 20 69 67 75  |zards called igu|
00002bb0  61 6e 61 73 2c 22 29 0d  01 07 2b f2 6a 70 77 6f  |anas,")...+.jpwo|
00002bc0  72 64 73 28 37 30 2c 38  30 2c 2d 31 2c 22 6c 6f  |rds(70,80,-1,"lo|
00002bd0  63 75 73 74 73 20 61 6e  64 20 66 72 6f 67 73 2e  |custs and frogs.|
00002be0  22 29 0d 01 08 4d f2 63  72 65 61 74 65 63 68 69  |")...M.createchi|
00002bf0  6e 3a f2 61 64 64 5f 73  70 28 32 2c 22 66 61 72  |n:.add_sp(2,"far|
00002c00  6d 65 72 62 6f 64 22 2c  35 38 2c 36 34 2c 36 29  |merbod",58,64,6)|
00002c10  3a f2 61 64 64 5f 73 70  28 32 2c 22 66 61 72 6d  |:.add_sp(2,"farm|
00002c20  68 65 61 64 30 22 2c 38  36 2c 36 34 2c 36 29 0d  |head0",86,64,6).|
00002c30  01 09 1d e7 64 6f 6e 65  31 25 3a f2 6a 70 65 6e  |....done1%:.jpen|
00002c40  64 3a 8b 3a f2 6a 70 67  6f 5f 6f 6e 0d 01 0a 0e  |d:.:.jpgo_on....|
00002c50  f2 73 63 72 63 6f 70 79  32 31 0d 01 0b 05 e1 0d  |.scrcopy21......|
00002c60  01 0c 04 0d 01 0d 0e dd  f2 61 6e 69 6d 5f 70 75  |.........anim_pu|
00002c70  70 0d 01 0e 2c e7 66 69  72 73 74 74 69 6d 65 25  |p...,.firsttime%|
00002c80  8c 3a 66 69 72 73 74 74  69 6d 65 25 3d a3 3a 6c  |.:firsttime%=.:l|
00002c90  61 73 74 74 69 6d 65 25  3d 91 2d 33 30 0d 01 0f  |asttime%=.-30...|
00002ca0  1e c8 99 22 4f 53 5f 42  79 74 65 22 2c 31 31 32  |..."OS_Byte",112|
00002cb0  2c 31 2b 28 74 6f 67 25  83 32 29 0d 01 10 37 f2  |,1+(tog%.2)...7.|
00002cc0  61 64 64 5f 73 70 28 31  2b 28 74 6f 67 25 83 32  |add_sp(1+(tog%.2|
00002cd0  29 2c 22 74 61 69 6c 22  2b c3 28 74 6f 67 25 83  |),"tail"+.(tog%.|
00002ce0  32 29 2c 34 34 2b 36 34  2c 31 39 2b 35 34 2c 31  |2),44+64,19+54,1|
00002cf0  36 29 0d 01 11 3a e7 28  74 6f 67 25 83 36 29 3d  |6)...:.(tog%.6)=|
00002d00  30 3a f2 61 64 64 5f 73  70 28 31 2b 28 74 6f 67  |0:.add_sp(1+(tog|
00002d10  25 83 32 29 2c 22 6d 6f  75 74 68 31 22 2c 34 34  |%.2),"mouth1",44|
00002d20  2b 36 38 2c 31 39 2b 39  37 2c 36 29 0d 01 12 49  |+68,19+97,6)...I|
00002d30  e7 28 28 74 6f 67 25 83  36 29 3d 31 29 84 28 28  |.((tog%.6)=1).((|
00002d40  74 6f 67 25 83 36 29 3d  32 29 3a f2 61 64 64 5f  |tog%.6)=2):.add_|
00002d50  73 70 28 31 2b 28 74 6f  67 25 83 32 29 2c 22 6d  |sp(1+(tog%.2),"m|
00002d60  6f 75 74 68 30 22 2c 34  34 2b 36 38 2c 31 39 2b  |outh0",44+68,19+|
00002d70  39 37 2c 36 29 0d 01 13  17 f5 3a fd 20 91 3e 3d  |97,6).....:. .>=|
00002d80  6c 61 73 74 74 69 6d 65  25 2b 33 30 0d 01 14 21  |lasttime%+30...!|
00002d90  c8 96 3a c8 99 22 4f 53  5f 42 79 74 65 22 2c 31  |..:.."OS_Byte",1|
00002da0  31 33 2c 31 2b 28 74 6f  67 25 83 32 29 0d 01 15  |13,1+(tog%.2)...|
00002db0  27 e7 28 74 6f 67 25 83  36 29 3d 30 3a d4 31 2c  |'.(tog%.6)=0:.1,|
00002dc0  26 31 37 37 2b 28 34 2a  4f 25 29 2c 26 33 43 30  |&177+(4*O%),&3C0|
00002dd0  30 2c 31 30 0d 01 16 2c  74 6f 67 25 2b 3d 31 3a  |0,10...,tog%+=1:|
00002de0  6c 61 73 74 74 69 6d 65  25 3d 91 3a e7 74 6f 67  |lasttime%=.:.tog|
00002df0  25 3e 3d 32 31 3a 61 6c  6c 64 6f 6e 65 25 3d b9  |%>=21:alldone%=.|
00002e00  0d 01 17 05 e1 0d 01 18  04 0d 01 19 0d dd f2 65  |...............e|
00002e10  78 70 63 68 69 6e 0d 01  1a 18 41 25 3d 31 3a 42  |xpchin....A%=1:B|
00002e20  25 3d 32 3a d6 20 63 6f  70 79 73 63 72 25 0d 01  |%=2:. copyscr%..|
00002e30  1b 4f f2 65 78 70 61 6e  64 28 22 6d 61 6b 65 77  |.O.expand("makew|
00002e40  61 74 65 72 22 29 3a 74  6f 67 25 3d 31 3a 66 69  |ater"):tog%=1:fi|
00002e50  72 73 74 74 69 6d 65 25  3d b9 3a 61 6c 6c 64 6f  |rsttime%=.:alldo|
00002e60  6e 65 25 3d a3 3a f5 3a  f2 73 63 72 6f 6c 6c 63  |ne%=.:.:.scrollc|
00002e70  68 69 6e 3a fd 61 6c 6c  64 6f 6e 65 25 0d 01 1c  |hin:.alldone%...|
00002e80  2e f2 63 6f 6d 70 61 63  74 28 22 6d 61 6b 65 77  |..compact("makew|
00002e90  61 74 65 72 22 29 3a 41  25 3d 31 3a 42 25 3d 32  |ater"):A%=1:B%=2|
00002ea0  3a d6 20 63 6f 70 79 73  63 72 25 0d 01 1d 16 f4  |:. copyscr%.....|
00002eb0  50 52 4f 43 63 72 65 61  74 65 63 68 69 6e 62 6f  |PROCcreatechinbo|
00002ec0  74 0d 01 1e 3d f4 43 25  3d 32 3a 44 25 3d 31 3a  |t...=.C%=2:D%=1:|
00002ed0  45 25 3d 32 3a 46 25 3d  31 3a 50 52 4f 43 65 78  |E%=2:F%=1:PROCex|
00002ee0  70 6c 6f 64 65 28 36 34  30 2c 36 30 38 2c 30 29  |plode(640,608,0)|
00002ef0  3a 50 52 4f 43 73 63 72  63 6f 70 79 32 31 0d 01  |:PROCscrcopy21..|
00002f00  1f 39 f2 6a 70 77 6f 72  64 73 28 37 30 2c 31 32  |.9.jpwords(70,12|
00002f10  38 2c 2d 31 2c 22 54 68  69 73 20 69 73 20 68 6f  |8,-1,"This is ho|
00002f20  77 20 61 20 63 68 69 6e  61 6d 70 61 20 69 73 20  |w a chinampa is |
00002f30  6d 61 64 65 2e 22 29 0d  01 20 45 f2 61 64 64 5f  |made.").. E.add_|
00002f40  73 70 28 32 2c 22 6d 61  6b 65 77 61 74 78 73 22  |sp(2,"makewatxs"|
00002f50  2c 33 2c 31 32 34 2c 31  32 29 3a f2 61 64 64 5f  |,3,124,12):.add_|
00002f60  73 70 28 32 2c 22 6d 61  6b 65 77 61 74 78 73 22  |sp(2,"makewatxs"|
00002f70  2c 31 36 30 2c 31 32 34  2c 31 32 29 0d 01 21 17  |,160,124,12)..!.|
00002f80  f2 6a 70 67 6f 5f 6f 6e  3a f2 73 63 72 63 6f 70  |.jpgo_on:.scrcop|
00002f90  79 32 31 0d 01 22 61 f2  73 61 76 65 5f 62 67 72  |y21.."a.save_bgr|
00002fa0  64 28 31 2c 31 32 36 38  2d 34 2c 33 36 30 2c 32  |d(1,1268-4,360,2|
00002fb0  34 38 2c 36 30 2c 22 62  67 72 64 22 29 3a 74 6f  |48,60,"bgrd"):to|
00002fc0  67 25 3d 31 3a 66 69 72  73 74 74 69 6d 65 25 3d  |g%=1:firsttime%=|
00002fd0  b9 3a 61 6c 6c 64 6f 6e  65 25 3d a3 3a f5 3a f2  |.:alldone%=.:.:.|
00002fe0  61 6e 69 6d 5f 66 69 73  68 31 3a fd 61 6c 6c 64  |anim_fish1:.alld|
00002ff0  6f 6e 65 25 0d 01 23 4b  c8 99 22 4f 53 5f 42 79  |one%..#K.."OS_By|
00003000  74 65 22 2c 31 31 32 2c  32 3a c8 99 22 4f 53 5f  |te",112,2:.."OS_|
00003010  53 70 72 69 74 65 4f 70  22 2c 26 31 32 32 2c 41  |SpriteOp",&122,A|
00003020  52 45 41 25 2c 22 62 67  72 64 22 2c 31 32 36 38  |REA%,"bgrd",1268|
00003030  2d 28 34 2a 34 31 29 2c  33 36 30 2c 26 30 38 0d  |-(4*41),360,&08.|
00003040  01 24 62 f2 73 61 76 65  5f 62 67 72 64 28 32 2c  |.$b.save_bgrd(2,|
00003050  31 31 30 38 2d 32 30 2c  33 36 30 2c 33 31 32 2c  |1108-20,360,312,|
00003060  36 30 2c 22 62 67 72 64  22 29 3a 74 6f 67 25 3d  |60,"bgrd"):tog%=|
00003070  31 3a 66 69 72 73 74 74  69 6d 65 25 3d b9 3a 61  |1:firsttime%=.:a|
00003080  6c 6c 64 6f 6e 65 25 3d  a3 3a f5 3a f2 61 6e 69  |lldone%=.:.:.ani|
00003090  6d 5f 66 69 73 68 32 3a  fd 61 6c 6c 64 6f 6e 65  |m_fish2:.alldone|
000030a0  25 0d 01 25 4a f2 6a 70  77 6f 72 64 73 28 37 30  |%..%J.jpwords(70|
000030b0  2c 31 34 30 2c 2d 31 2c  22 50 6f 73 74 73 20 77  |,140,-1,"Posts w|
000030c0  65 72 65 20 64 72 69 76  65 6e 20 69 6e 74 6f 20  |ere driven into |
000030d0  74 68 65 20 62 6f 74 74  6f 6d 20 6f 66 20 74 68  |the bottom of th|
000030e0  65 20 73 68 61 6c 6c 6f  77 22 29 0d 01 26 1e f2  |e shallow")..&..|
000030f0  6a 70 77 6f 72 64 73 28  37 30 2c 38 30 2c 2d 31  |jpwords(70,80,-1|
00003100  2c 22 6c 61 6b 65 2e 22  29 0d 01 27 22 f2 61 64  |,"lake.")..'".ad|
00003110  64 5f 73 70 28 32 2c 22  6d 61 6b 65 70 6f 73 74  |d_sp(2,"makepost|
00003120  73 22 2c 34 38 2c 36 31  2c 36 29 0d 01 28 74 f2  |s",48,61,6)..(t.|
00003130  65 78 70 61 6e 64 28 22  6d 61 6b 65 70 6f 73 74  |expand("makepost|
00003140  73 22 29 3a f2 70 75 74  5f 73 70 28 32 2c 36 33  |s"):.put_sp(2,63|
00003150  36 2c 33 35 36 2c 36 2c  31 36 2c 31 36 2c 31 36  |6,356,6,16,16,16|
00003160  2c 22 6d 61 6b 65 70 6f  73 74 73 22 2c 6c 65 66  |,"makeposts",lef|
00003170  74 25 2c 6c 6f 77 25 2c  72 69 67 68 74 25 2c 68  |t%,low%,right%,h|
00003180  69 67 68 25 2c 26 30 31  29 3a f2 63 6f 6d 70 61  |igh%,&01):.compa|
00003190  63 74 28 22 6d 61 6b 65  70 6f 73 74 73 22 29 0d  |ct("makeposts").|
000031a0  01 29 17 f2 6a 70 67 6f  5f 6f 6e 3a f2 73 63 72  |.)..jpgo_on:.scr|
000031b0  63 6f 70 79 32 31 0d 01  2a 1e f2 6c 6f 61 64 73  |copy21..*..loads|
000031c0  6f 75 6e 64 6d 6f 64 28  22 4f 4e 45 22 2c 22 64  |oundmod("ONE","d|
000031d0  69 67 22 29 0d 01 2b 19  ff 22 43 68 61 6e 6e 65  |ig")..+.."Channe|
000031e0  6c 56 6f 69 63 65 20 32  20 64 69 67 22 0d 01 2c  |lVoice 2 dig"..,|
000031f0  1c ff 22 43 68 61 6e 6e  65 6c 56 6f 69 63 65 20  |.."ChannelVoice |
00003200  31 20 62 6f 75 6e 63 65  22 0d 01 2d 71 f2 73 61  |1 bounce"..-q.sa|
00003210  76 65 5f 62 67 72 64 28  31 2c 31 37 36 2c 32 35  |ve_bgrd(1,176,25|
00003220  36 2c 36 38 2c 33 36 30  2c 22 62 67 72 64 22 29  |6,68,360,"bgrd")|
00003230  3a f2 73 61 76 65 5f 62  67 72 64 28 31 2c 31 32  |:.save_bgrd(1,12|
00003240  2c 33 36 30 2c 32 38 38  2c 36 30 2c 22 62 67 72  |,360,288,60,"bgr|
00003250  64 31 22 29 3a f2 73 61  76 65 5f 62 67 72 64 28  |d1"):.save_bgrd(|
00003260  31 2c 32 36 34 2c 33 37  36 2c 31 30 30 32 2c 32  |1,264,376,1002,2|
00003270  38 2c 22 62 67 72 64 32  22 29 0d 01 2e 3a 74 6f  |8,"bgrd2")...:to|
00003280  67 25 3d 31 3a 66 69 72  73 74 74 69 6d 65 25 3d  |g%=1:firsttime%=|
00003290  b9 3a 61 6c 6c 64 6f 6e  65 25 3d a3 3a f5 3a f2  |.:alldone%=.:.:.|
000032a0  61 6e 69 6d 5f 70 6f 73  74 73 3a fd 61 6c 6c 64  |anim_posts:.alld|
000032b0  6f 6e 65 25 0d 01 2f 1f  f4 50 52 4f 43 77 61 69  |one%../..PROCwai|
000032c0  74 28 38 30 29 3a 50 52  4f 43 73 63 72 63 6f 70  |t(80):PROCscrcop|
000032d0  79 32 31 0d 01 30 76 f4  50 52 4f 43 73 61 76 65  |y21..0v.PROCsave|
000032e0  5f 62 67 72 64 28 31 2c  31 30 34 38 2c 32 35 36  |_bgrd(1,1048,256|
000032f0  2c 36 38 2c 33 36 30 2c  22 62 67 72 64 22 29 3a  |,68,360,"bgrd"):|
00003300  74 6f 67 25 3d 31 3a 66  69 72 73 74 74 69 6d 65  |tog%=1:firsttime|
00003310  25 3d 54 52 55 45 3a 61  6c 6c 64 6f 6e 65 25 3d  |%=TRUE:alldone%=|
00003320  46 41 4c 53 45 3a 52 45  50 45 41 54 3a 50 52 4f  |FALSE:REPEAT:PRO|
00003330  43 61 6e 69 6d 5f 70 6f  73 74 32 3a 55 4e 54 49  |Canim_post2:UNTI|
00003340  4c 61 6c 6c 64 6f 6e 65  25 0d 01 31 18 41 25 3d  |Lalldone%..1.A%=|
00003350  31 3a 42 25 3d 32 3a d6  20 63 6f 70 79 73 63 72  |1:B%=2:. copyscr|
00003360  25 0d 01 32 12 f4 50 52  4f 43 73 63 72 63 6f 70  |%..2..PROCscrcop|
00003370  79 32 31 0d 01 33 41 f2  6a 70 77 6f 72 64 73 28  |y21..3A.jpwords(|
00003380  37 30 2c 31 32 38 2c 2d  31 2c 22 54 68 65 20 70  |70,128,-1,"The p|
00003390  6f 73 74 73 20 77 65 72  65 20 6c 69 6e 65 64 20  |osts were lined |
000033a0  77 69 74 68 20 72 65 65  64 20 6d 61 74 74 69 6e  |with reed mattin|
000033b0  67 2e 22 29 0d 01 34 23  f2 61 64 64 5f 73 70 28  |g.")..4#.add_sp(|
000033c0  32 2c 22 6d 61 6b 65 6c  69 6e 69 6e 67 22 2c 35  |2,"makelining",5|
000033d0  35 2c 37 30 2c 36 29 0d  01 35 77 f2 65 78 70 61  |5,70,6)..5w.expa|
000033e0  6e 64 28 22 6d 61 6b 65  6c 69 6e 69 6e 67 22 29  |nd("makelining")|
000033f0  3a f2 70 75 74 5f 73 70  28 32 2c 36 32 34 2c 33  |:.put_sp(2,624,3|
00003400  32 38 2c 36 2c 31 36 2c  31 36 2c 31 36 2c 22 6d  |28,6,16,16,16,"m|
00003410  61 6b 65 6c 69 6e 69 6e  67 22 2c 6c 65 66 74 25  |akelining",left%|
00003420  2c 6c 6f 77 25 2c 72 69  67 68 74 25 2c 68 69 67  |,low%,right%,hig|
00003430  68 25 2c 26 30 31 29 3a  f2 63 6f 6d 70 61 63 74  |h%,&01):.compact|
00003440  28 22 6d 61 6b 65 6c 69  6e 69 6e 67 22 29 0d 01  |("makelining")..|
00003450  36 17 f2 6a 70 67 6f 5f  6f 6e 3a f2 73 63 72 63  |6..jpgo_on:.scrc|
00003460  6f 70 79 32 31 0d 01 37  36 f2 6a 70 77 6f 72 64  |opy21..76.jpword|
00003470  73 28 37 30 2c 31 32 38  2c 2d 31 2c 22 52 65 65  |s(70,128,-1,"Ree|
00003480  64 20 6d 61 74 73 20 77  65 72 65 20 74 68 65 6e  |d mats were then|
00003490  20 73 75 6e 6b 2e 2e 2e  2e 22 29 0d 01 38 21 f2  | sunk....")..8!.|
000034a0  61 64 64 5f 73 70 28 32  2c 22 6d 61 6b 65 6d 61  |add_sp(2,"makema|
000034b0  74 22 2c 36 30 2c 31 34  32 2c 36 29 0d 01 39 6e  |t",60,142,6)..9n|
000034c0  f2 65 78 70 61 6e 64 28  22 6d 61 6b 65 6d 61 74  |.expand("makemat|
000034d0  22 29 3a f2 70 75 74 5f  73 70 28 32 2c 36 33 32  |"):.put_sp(2,632|
000034e0  2c 33 33 32 2c 36 2c 31  36 2c 31 36 2c 31 36 2c  |,332,6,16,16,16,|
000034f0  22 6d 61 6b 65 6d 61 74  22 2c 6c 65 66 74 25 2c  |"makemat",left%,|
00003500  6c 6f 77 25 2c 72 69 67  68 74 25 2c 68 69 67 68  |low%,right%,high|
00003510  25 2c 26 30 31 29 3a f2  63 6f 6d 70 61 63 74 28  |%,&01):.compact(|
00003520  22 6d 61 6b 65 6d 61 74  22 29 0d 01 3a 17 f2 6a  |"makemat")..:..j|
00003530  70 67 6f 5f 6f 6e 3a f2  73 63 72 63 6f 70 79 32  |pgo_on:.scrcopy2|
00003540  31 0d 01 3b 3b f2 6a 70  77 6f 72 64 73 28 37 30  |1..;;.jpwords(70|
00003550  2c 31 32 38 2c 2d 31 2c  22 2e 2e 2e 2e 61 6e 64  |,128,-1,"....and|
00003560  20 77 65 69 67 68 74 65  64 20 64 6f 77 6e 20 77  | weighted down w|
00003570  69 74 68 20 72 6f 63 6b  73 2e 22 29 0d 01 3c 23  |ith rocks.")..<#|
00003580  f2 61 64 64 5f 73 70 28  32 2c 22 6d 61 6b 65 72  |.add_sp(2,"maker|
00003590  6f 63 6b 73 22 2c 36 32  2c 31 33 32 2c 36 29 0d  |ocks",62,132,6).|
000035a0  01 3d 74 f2 65 78 70 61  6e 64 28 22 6d 61 6b 65  |.=t.expand("make|
000035b0  72 6f 63 6b 73 22 29 3a  f2 70 75 74 5f 73 70 28  |rocks"):.put_sp(|
000035c0  32 2c 36 32 34 2c 33 34  34 2c 36 2c 31 36 2c 31  |2,624,344,6,16,1|
000035d0  36 2c 31 36 2c 22 6d 61  6b 65 72 6f 63 6b 73 22  |6,16,"makerocks"|
000035e0  2c 6c 65 66 74 25 2c 6c  6f 77 25 2c 72 69 67 68  |,left%,low%,righ|
000035f0  74 25 2c 68 69 67 68 25  2c 26 30 31 29 3a f2 63  |t%,high%,&01):.c|
00003600  6f 6d 70 61 63 74 28 22  6d 61 6b 65 72 6f 63 6b  |ompact("makerock|
00003610  73 22 29 0d 01 3e 17 f2  6a 70 67 6f 5f 6f 6e 3a  |s")..>..jpgo_on:|
00003620  f2 73 63 72 63 6f 70 79  32 31 0d 01 3f 4a f2 6a  |.scrcopy21..?J.j|
00003630  70 77 6f 72 64 73 28 37  30 2c 31 34 30 2c 2d 31  |pwords(70,140,-1|
00003640  2c 22 46 65 72 74 69 6c  65 20 6d 75 64 20 66 72  |,"Fertile mud fr|
00003650  6f 6d 20 74 68 65 20 62  6f 74 74 6f 6d 20 6f 66  |om the bottom of|
00003660  20 74 68 65 20 6c 61 6b  65 20 77 61 73 20 74 68  | the lake was th|
00003670  65 6e 22 29 0d 01 40 2d  f2 6a 70 77 6f 72 64 73  |en")..@-.jpwords|
00003680  28 37 30 2c 38 30 2c 2d  31 2c 22 68 65 61 70 65  |(70,80,-1,"heape|
00003690  64 20 6f 76 65 72 20 74  68 65 20 74 6f 70 2e 22  |d over the top."|
000036a0  29 0d 01 41 22 f2 61 64  64 5f 73 70 28 32 2c 22  |)..A".add_sp(2,"|
000036b0  6d 61 6b 65 6d 75 64 30  22 2c 36 33 2c 31 32 35  |makemud0",63,125|
000036c0  2c 36 29 0d 01 42 71 f2  65 78 70 61 6e 64 28 22  |,6)..Bq.expand("|
000036d0  6d 61 6b 65 6d 75 64 30  22 29 3a f2 70 75 74 5f  |makemud0"):.put_|
000036e0  73 70 28 32 2c 36 32 30  2c 33 38 34 2c 36 2c 31  |sp(2,620,384,6,1|
000036f0  36 2c 31 36 2c 31 36 2c  22 6d 61 6b 65 6d 75 64  |6,16,16,"makemud|
00003700  30 22 2c 6c 65 66 74 25  2c 6c 6f 77 25 2c 72 69  |0",left%,low%,ri|
00003710  67 68 74 25 2c 68 69 67  68 25 2c 26 30 31 29 3a  |ght%,high%,&01):|
00003720  f2 63 6f 6d 70 61 63 74  28 22 6d 61 6b 65 6d 75  |.compact("makemu|
00003730  64 30 22 29 0d 01 43 23  f2 6a 70 67 6f 5f 6f 6e  |d0")..C#.jpgo_on|
00003740  3a f2 73 63 72 63 6f 70  79 32 31 3a 6c 61 73 74  |:.scrcopy21:last|
00003750  74 69 6d 65 25 3d 91 0d  01 44 21 f2 61 64 64 5f  |time%=...D!.add_|
00003760  73 70 28 32 2c 22 6d 61  6b 65 6d 75 64 31 22 2c  |sp(2,"makemud1",|
00003770  36 33 2c 39 30 2c 36 29  0d 01 45 71 f2 65 78 70  |63,90,6)..Eq.exp|
00003780  61 6e 64 28 22 6d 61 6b  65 6d 75 64 31 22 29 3a  |and("makemud1"):|
00003790  f2 70 75 74 5f 73 70 28  32 2c 36 32 30 2c 33 38  |.put_sp(2,620,38|
000037a0  34 2c 36 2c 31 36 2c 31  36 2c 31 36 2c 22 6d 61  |4,6,16,16,16,"ma|
000037b0  6b 65 6d 75 64 31 22 2c  6c 65 66 74 25 2c 6c 6f  |kemud1",left%,lo|
000037c0  77 25 2c 72 69 67 68 74  25 2c 68 69 67 68 25 2c  |w%,right%,high%,|
000037d0  26 30 31 29 3a f2 63 6f  6d 70 61 63 74 28 22 6d  |&01):.compact("m|
000037e0  61 6b 65 6d 75 64 31 22  29 0d 01 46 31 f5 3a fd  |akemud1")..F1.:.|
000037f0  20 91 3e 6c 61 73 74 74  69 6d 65 25 2b 31 32 30  | .>lasttime%+120|
00003800  3a c8 96 3a f2 73 63 72  63 6f 70 79 32 31 3a 6c  |:..:.scrcopy21:l|
00003810  61 73 74 74 69 6d 65 25  3d 91 0d 01 47 22 f2 61  |asttime%=...G".a|
00003820  64 64 5f 73 70 28 32 2c  22 6d 61 6b 65 6d 75 64  |dd_sp(2,"makemud|
00003830  32 22 2c 35 36 2c 31 33  35 2c 36 29 0d 01 48 71  |2",56,135,6)..Hq|
00003840  f2 65 78 70 61 6e 64 28  22 6d 61 6b 65 6d 75 64  |.expand("makemud|
00003850  32 22 29 3a f2 70 75 74  5f 73 70 28 32 2c 39 36  |2"):.put_sp(2,96|
00003860  38 2c 33 34 34 2c 36 2c  31 36 2c 31 36 2c 31 36  |8,344,6,16,16,16|
00003870  2c 22 6d 61 6b 65 6d 75  64 32 22 2c 6c 65 66 74  |,"makemud2",left|
00003880  25 2c 6c 6f 77 25 2c 72  69 67 68 74 25 2c 68 69  |%,low%,right%,hi|
00003890  67 68 25 2c 26 30 31 29  3a f2 63 6f 6d 70 61 63  |gh%,&01):.compac|
000038a0  74 28 22 6d 61 6b 65 6d  75 64 32 22 29 0d 01 49  |t("makemud2")..I|
000038b0  21 f2 61 64 64 5f 73 70  28 32 2c 22 6d 61 6b 65  |!.add_sp(2,"make|
000038c0  6d 75 64 33 22 2c 35 36  2c 38 36 2c 36 29 0d 01  |mud3",56,86,6)..|
000038d0  4a 71 f2 65 78 70 61 6e  64 28 22 6d 61 6b 65 6d  |Jq.expand("makem|
000038e0  75 64 33 22 29 3a f2 70  75 74 5f 73 70 28 32 2c  |ud3"):.put_sp(2,|
000038f0  36 33 36 2c 34 31 36 2c  36 2c 31 36 2c 31 36 2c  |636,416,6,16,16,|
00003900  31 36 2c 22 6d 61 6b 65  6d 75 64 33 22 2c 6c 65  |16,"makemud3",le|
00003910  66 74 25 2c 6c 6f 77 25  2c 72 69 67 68 74 25 2c  |ft%,low%,right%,|
00003920  68 69 67 68 25 2c 26 30  31 29 3a f2 63 6f 6d 70  |high%,&01):.comp|
00003930  61 63 74 28 22 6d 61 6b  65 6d 75 64 33 22 29 0d  |act("makemud3").|
00003940  01 4b 31 f5 3a fd 20 91  3e 6c 61 73 74 74 69 6d  |.K1.:. .>lasttim|
00003950  65 25 2b 31 32 30 3a c8  96 3a f2 73 63 72 63 6f  |e%+120:..:.scrco|
00003960  70 79 32 31 3a 6c 61 73  74 74 69 6d 65 25 3d 91  |py21:lasttime%=.|
00003970  0d 01 4c 21 f2 61 64 64  5f 73 70 28 32 2c 22 6d  |..L!.add_sp(2,"m|
00003980  61 6b 65 6d 75 64 34 22  2c 35 36 2c 38 31 2c 36  |akemud4",56,81,6|
00003990  29 0d 01 4d 71 f2 65 78  70 61 6e 64 28 22 6d 61  |)..Mq.expand("ma|
000039a0  6b 65 6d 75 64 34 22 29  3a f2 70 75 74 5f 73 70  |kemud4"):.put_sp|
000039b0  28 32 2c 36 33 36 2c 34  31 32 2c 36 2c 31 36 2c  |(2,636,412,6,16,|
000039c0  31 36 2c 31 36 2c 22 6d  61 6b 65 6d 75 64 34 22  |16,16,"makemud4"|
000039d0  2c 6c 65 66 74 25 2c 6c  6f 77 25 2c 72 69 67 68  |,left%,low%,righ|
000039e0  74 25 2c 68 69 67 68 25  2c 26 30 31 29 3a f2 63  |t%,high%,&01):.c|
000039f0  6f 6d 70 61 63 74 28 22  6d 61 6b 65 6d 75 64 34  |ompact("makemud4|
00003a00  22 29 0d 01 4e 31 f5 3a  fd 20 91 3e 6c 61 73 74  |")..N1.:. .>last|
00003a10  74 69 6d 65 25 2b 31 32  30 3a c8 96 3a f2 73 63  |time%+120:..:.sc|
00003a20  72 63 6f 70 79 32 31 3a  6c 61 73 74 74 69 6d 65  |rcopy21:lasttime|
00003a30  25 3d 91 0d 01 4f 21 f2  61 64 64 5f 73 70 28 32  |%=...O!.add_sp(2|
00003a40  2c 22 6d 61 6b 65 6d 75  64 35 22 2c 35 36 2c 36  |,"makemud5",56,6|
00003a50  38 2c 36 29 0d 01 50 71  f2 65 78 70 61 6e 64 28  |8,6)..Pq.expand(|
00003a60  22 6d 61 6b 65 6d 75 64  35 22 29 3a f2 70 75 74  |"makemud5"):.put|
00003a70  5f 73 70 28 32 2c 36 33  36 2c 34 31 36 2c 36 2c  |_sp(2,636,416,6,|
00003a80  31 36 2c 31 36 2c 31 36  2c 22 6d 61 6b 65 6d 75  |16,16,16,"makemu|
00003a90  64 35 22 2c 6c 65 66 74  25 2c 6c 6f 77 25 2c 72  |d5",left%,low%,r|
00003aa0  69 67 68 74 25 2c 68 69  67 68 25 2c 26 30 31 29  |ight%,high%,&01)|
00003ab0  3a f2 63 6f 6d 70 61 63  74 28 22 6d 61 6b 65 6d  |:.compact("makem|
00003ac0  75 64 35 22 29 0d 01 51  25 f5 3a fd 20 91 3e 6c  |ud5")..Q%.:. .>l|
00003ad0  61 73 74 74 69 6d 65 25  2b 31 32 30 3a c8 96 3a  |asttime%+120:..:|
00003ae0  f2 73 63 72 63 6f 70 79  32 31 0d 01 52 44 f2 6a  |.scrcopy21..RD.j|
00003af0  70 77 6f 72 64 73 28 37  30 2c 31 32 38 2c 2d 31  |pwords(70,128,-1|
00003b00  2c 22 46 69 6e 61 6c 6c  79 20 74 72 65 65 73 20  |,"Finally trees |
00003b10  77 65 72 65 20 70 6c 61  6e 74 65 64 20 72 6f 75  |were planted rou|
00003b20  6e 64 20 74 68 65 20 65  64 67 65 2e 22 29 0d 01  |nd the edge.")..|
00003b30  53 1f f2 61 64 64 5f 73  70 28 32 2c 22 6d 61 6b  |S..add_sp(2,"mak|
00003b40  65 74 72 65 65 22 2c 33  2c 33 2c 36 29 0d 01 54  |etree",3,3,6)..T|
00003b50  0c f2 6a 70 67 6f 5f 6f  6e 0d 01 55 0e f2 73 63  |..jpgo_on..U..sc|
00003b60  72 63 6f 70 79 32 31 0d  01 56 4e f2 6a 70 77 6f  |rcopy21..VN.jpwo|
00003b70  72 64 73 28 37 30 2c 31  32 38 2c 2d 31 2c 22 54  |rds(70,128,-1,"T|
00003b80  68 65 20 74 72 65 65 20  72 6f 6f 74 73 20 68 65  |he tree roots he|
00003b90  6c 70 65 64 20 73 74 6f  70 20 74 68 65 20 63 68  |lped stop the ch|
00003ba0  69 6e 61 6d 70 61 20 62  72 65 61 6b 69 6e 67 20  |inampa breaking |
00003bb0  75 70 2e 22 29 0d 01 57  4d f2 63 72 65 61 74 65  |up.")..WM.create|
00003bc0  63 68 69 6e 3a f2 61 64  64 5f 73 70 28 32 2c 22  |chin:.add_sp(2,"|
00003bd0  66 61 72 6d 65 72 62 6f  64 22 2c 35 38 2c 36 34  |farmerbod",58,64|
00003be0  2c 36 29 3a f2 61 64 64  5f 73 70 28 32 2c 22 66  |,6):.add_sp(2,"f|
00003bf0  61 72 6d 68 65 61 64 30  22 2c 38 36 2c 36 34 2c  |armhead0",86,64,|
00003c00  36 29 0d 01 58 1d e7 64  6f 6e 65 30 25 3a f2 6a  |6)..X..done0%:.j|
00003c10  70 65 6e 64 3a 8b 3a f2  6a 70 67 6f 5f 6f 6e 0d  |pend:.:.jpgo_on.|
00003c20  01 59 0e f2 73 63 72 63  6f 70 79 32 31 0d 01 5a  |.Y..scrcopy21..Z|
00003c30  05 e1 0d 01 5b 04 0d 01  5c 10 dd f2 73 63 72 6f  |....[...\...scro|
00003c40  6c 6c 63 68 69 6e 0d 01  5d 2b e7 66 69 72 73 74  |llchin..]+.first|
00003c50  74 69 6d 65 25 8c 3a 66  69 72 73 74 74 69 6d 65  |time%.:firsttime|
00003c60  25 3d a3 3a 6c 61 73 74  74 69 6d 65 25 3d 91 2d  |%=.:lasttime%=.-|
00003c70  35 0d 01 5e 1e c8 99 22  4f 53 5f 42 79 74 65 22  |5..^..."OS_Byte"|
00003c80  2c 31 31 32 2c 31 2b 28  74 6f 67 25 83 32 29 0d  |,112,1+(tog%.2).|
00003c90  01 5f 0c e7 74 6f 67 25  3d 31 8c 0d 01 60 1c 20  |._..tog%=1...`. |
00003ca0  f2 73 63 72 6f 6c 6c 75  70 28 31 2b 28 74 6f 67  |.scrollup(1+(tog|
00003cb0  25 83 32 29 2c 31 29 0d  01 61 75 20 f2 70 75 74  |%.2),1)..au .put|
00003cc0  5f 73 70 28 31 2b 28 74  6f 67 25 83 32 29 2c 31  |_sp(1+(tog%.2),1|
00003cd0  32 2c 6c 6f 77 25 2d 28  6c 6f 77 25 83 34 29 2d  |2,low%-(low%.4)-|
00003ce0  34 38 2b 28 34 2a 28 28  28 74 6f 67 25 2d 31 29  |48+(4*(((tog%-1)|
00003cf0  83 31 32 29 2b 31 29 29  2c 31 32 2c 31 36 2c 31  |.12)+1)),12,16,1|
00003d00  36 2c 31 36 2c 22 6d 61  6b 65 77 61 74 65 72 22  |6,16,"makewater"|
00003d10  2c 6c 65 66 74 25 2c 6c  6f 77 25 2c 72 69 67 68  |,left%,low%,righ|
00003d20  74 25 2c 6c 6f 77 25 2c  26 30 30 29 0d 01 62 76  |t%,low%,&00)..bv|
00003d30  20 f2 70 75 74 5f 73 70  28 31 2b 28 74 6f 67 25  | .put_sp(1+(tog%|
00003d40  83 32 29 2c 36 34 30 2c  6c 6f 77 25 2d 28 6c 6f  |.2),640,low%-(lo|
00003d50  77 25 83 34 29 2d 34 38  2b 28 34 2a 28 28 28 74  |w%.4)-48+(4*(((t|
00003d60  6f 67 25 2d 31 29 83 31  32 29 2b 31 29 29 2c 31  |og%-1).12)+1)),1|
00003d70  32 2c 31 36 2c 31 36 2c  31 36 2c 22 6d 61 6b 65  |2,16,16,16,"make|
00003d80  77 61 74 65 72 22 2c 6c  65 66 74 25 2c 6c 6f 77  |water",left%,low|
00003d90  25 2c 72 69 67 68 74 25  2c 6c 6f 77 25 2c 26 30  |%,right%,low%,&0|
00003da0  30 29 0d 01 63 05 cc 0d  01 64 18 20 e7 28 28 74  |0)..c....d. .((t|
00003db0  6f 67 25 2d 31 29 83 31  32 29 2b 31 3d 31 8c 0d  |og%-1).12)+1=1..|
00003dc0  01 65 1d 20 20 f2 73 63  72 6f 6c 6c 75 70 28 31  |.e.  .scrollup(1|
00003dd0  2b 28 74 6f 67 25 83 32  29 2c 32 29 0d 01 66 61  |+(tog%.2),2)..fa|
00003de0  20 20 f2 70 75 74 5f 73  70 28 31 2b 28 74 6f 67  |  .put_sp(1+(tog|
00003df0  25 83 32 29 2c 31 32 2c  6c 6f 77 25 2d 28 6c 6f  |%.2),12,low%-(lo|
00003e00  77 25 83 34 29 2b 34 2c  31 32 2c 31 36 2c 31 36  |w%.4)+4,12,16,16|
00003e10  2c 31 36 2c 22 6d 61 6b  65 77 61 74 65 72 22 2c  |,16,"makewater",|
00003e20  6c 65 66 74 25 2c 6c 6f  77 25 2c 72 69 67 68 74  |left%,low%,right|
00003e30  25 2c 6c 6f 77 25 2b 34  2c 26 30 30 29 0d 01 67  |%,low%+4,&00)..g|
00003e40  62 20 20 f2 70 75 74 5f  73 70 28 31 2b 28 74 6f  |b  .put_sp(1+(to|
00003e50  67 25 83 32 29 2c 36 34  30 2c 6c 6f 77 25 2d 28  |g%.2),640,low%-(|
00003e60  6c 6f 77 25 83 34 29 2b  34 2c 31 32 2c 31 36 2c  |low%.4)+4,12,16,|
00003e70  31 36 2c 31 36 2c 22 6d  61 6b 65 77 61 74 65 72  |16,16,"makewater|
00003e80  22 2c 6c 65 66 74 25 2c  6c 6f 77 25 2c 72 69 67  |",left%,low%,rig|
00003e90  68 74 25 2c 6c 6f 77 25  2b 34 2c 26 30 30 29 0d  |ht%,low%+4,&00).|
00003ea0  01 68 78 20 20 f2 70 75  74 5f 73 70 28 31 2b 28  |.hx  .put_sp(1+(|
00003eb0  74 6f 67 25 83 32 29 2c  31 32 2c 6c 6f 77 25 2d  |tog%.2),12,low%-|
00003ec0  28 6c 6f 77 25 83 34 29  2d 34 38 2b 28 34 2a 28  |(low%.4)-48+(4*(|
00003ed0  28 28 74 6f 67 25 2d 31  29 83 31 32 29 2b 31 29  |((tog%-1).12)+1)|
00003ee0  29 2c 31 32 2c 31 36 2c  31 36 2c 31 36 2c 22 6d  |),12,16,16,16,"m|
00003ef0  61 6b 65 77 61 74 65 72  22 2c 6c 65 66 74 25 2c  |akewater",left%,|
00003f00  6c 6f 77 25 2c 72 69 67  68 74 25 2c 6c 6f 77 25  |low%,right%,low%|
00003f10  2b 34 2c 26 30 30 29 0d  01 69 79 20 20 f2 70 75  |+4,&00)..iy  .pu|
00003f20  74 5f 73 70 28 31 2b 28  74 6f 67 25 83 32 29 2c  |t_sp(1+(tog%.2),|
00003f30  36 34 30 2c 6c 6f 77 25  2d 28 6c 6f 77 25 83 34  |640,low%-(low%.4|
00003f40  29 2d 34 38 2b 28 34 2a  28 28 28 74 6f 67 25 2d  |)-48+(4*(((tog%-|
00003f50  31 29 83 31 32 29 2b 31  29 29 2c 31 32 2c 31 36  |1).12)+1)),12,16|
00003f60  2c 31 36 2c 31 36 2c 22  6d 61 6b 65 77 61 74 65  |,16,16,"makewate|
00003f70  72 22 2c 6c 65 66 74 25  2c 6c 6f 77 25 2c 72 69  |r",left%,low%,ri|
00003f80  67 68 74 25 2c 6c 6f 77  25 2b 34 2c 26 30 30 29  |ght%,low%+4,&00)|
00003f90  0d 01 6a 06 20 cc 0d 01  6b 1d 20 20 f2 73 63 72  |..j. ...k.  .scr|
00003fa0  6f 6c 6c 75 70 28 31 2b  28 74 6f 67 25 83 32 29  |ollup(1+(tog%.2)|
00003fb0  2c 32 29 0d 01 6c 78 20  20 f2 70 75 74 5f 73 70  |,2)..lx  .put_sp|
00003fc0  28 31 2b 28 74 6f 67 25  83 32 29 2c 31 32 2c 6c  |(1+(tog%.2),12,l|
00003fd0  6f 77 25 2d 28 6c 6f 77  25 83 34 29 2d 34 38 2b  |ow%-(low%.4)-48+|
00003fe0  28 34 2a 28 28 28 74 6f  67 25 2d 31 29 83 31 32  |(4*(((tog%-1).12|
00003ff0  29 2b 31 29 29 2c 31 32  2c 31 36 2c 31 36 2c 31  |)+1)),12,16,16,1|
00004000  36 2c 22 6d 61 6b 65 77  61 74 65 72 22 2c 6c 65  |6,"makewater",le|
00004010  66 74 25 2c 6c 6f 77 25  2c 72 69 67 68 74 25 2c  |ft%,low%,right%,|
00004020  6c 6f 77 25 2b 34 2c 26  30 30 29 0d 01 6d 79 20  |low%+4,&00)..my |
00004030  20 f2 70 75 74 5f 73 70  28 31 2b 28 74 6f 67 25  | .put_sp(1+(tog%|
00004040  83 32 29 2c 36 34 30 2c  6c 6f 77 25 2d 28 6c 6f  |.2),640,low%-(lo|
00004050  77 25 83 34 29 2d 34 38  2b 28 34 2a 28 28 28 74  |w%.4)-48+(4*(((t|
00004060  6f 67 25 2d 31 29 83 31  32 29 2b 31 29 29 2c 31  |og%-1).12)+1)),1|
00004070  32 2c 31 36 2c 31 36 2c  31 36 2c 22 6d 61 6b 65  |2,16,16,16,"make|
00004080  77 61 74 65 72 22 2c 6c  65 66 74 25 2c 6c 6f 77  |water",left%,low|
00004090  25 2c 72 69 67 68 74 25  2c 6c 6f 77 25 2b 34 2c  |%,right%,low%+4,|
000040a0  26 30 30 29 0d 01 6e 06  20 cd 0d 01 6f 05 cd 0d  |&00)..n. ...o...|
000040b0  01 70 16 f5 3a fd 20 91  3e 3d 6c 61 73 74 74 69  |.p..:. .>=lastti|
000040c0  6d 65 25 2b 35 0d 01 71  4b c8 96 3a c8 99 22 4f  |me%+5..qK..:.."O|
000040d0  53 5f 42 79 74 65 22 2c  31 31 33 2c 31 2b 28 74  |S_Byte",113,1+(t|
000040e0  6f 67 25 83 32 29 3a 74  6f 67 25 2b 3d 31 3a 6c  |og%.2):tog%+=1:l|
000040f0  61 73 74 74 69 6d 65 25  3d 91 3a e7 74 6f 67 25  |asttime%=.:.tog%|
00004100  3e 3d 31 31 37 3a 61 6c  6c 64 6f 6e 65 25 3d b9  |>=117:alldone%=.|
00004110  0d 01 72 05 e1 0d 01 73  04 0d 01 74 10 dd f2 61  |..r....s...t...a|
00004120  6e 69 6d 5f 66 69 73 68  31 0d 01 75 2c e7 66 69  |nim_fish1..u,.fi|
00004130  72 73 74 74 69 6d 65 25  8c 3a 66 69 72 73 74 74  |rsttime%.:firstt|
00004140  69 6d 65 25 3d a3 3a 6c  61 73 74 74 69 6d 65 25  |ime%=.:lasttime%|
00004150  3d 91 2d 31 30 0d 01 76  1e c8 99 22 4f 53 5f 42  |=.-10..v..."OS_B|
00004160  79 74 65 22 2c 31 31 32  2c 31 2b 28 74 6f 67 25  |yte",112,1+(tog%|
00004170  83 32 29 0d 01 77 10 e7  28 74 6f 67 25 83 32 29  |.2)..w..(tog%.2)|
00004180  3d 30 8c 0d 01 78 3f c8  99 22 4f 53 5f 53 70 72  |=0...x?.."OS_Spr|
00004190  69 74 65 4f 70 22 2c 26  31 32 32 2c 41 52 45 41  |iteOp",&122,AREA|
000041a0  25 2c 22 62 67 72 64 22  2c 31 32 36 38 2d 28 34  |%,"bgrd",1268-(4|
000041b0  2a 28 74 6f 67 25 2b 31  29 29 2c 33 36 30 2c 26  |*(tog%+1)),360,&|
000041c0  30 38 0d 01 79 05 cc 0d  01 7a 3b c8 99 22 4f 53  |08..y....z;.."OS|
000041d0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 32 2c  |_SpriteOp",&122,|
000041e0  41 52 45 41 25 2c 22 62  67 72 64 22 2c 31 32 36  |AREA%,"bgrd",126|
000041f0  38 2d 28 34 2a 74 6f 67  25 29 2c 33 36 30 2c 26  |8-(4*tog%),360,&|
00004200  30 38 0d 01 7b 35 f2 73  61 76 65 5f 62 67 72 64  |08..{5.save_bgrd|
00004210  28 31 2c 31 32 36 38 2d  28 34 2a 28 74 6f 67 25  |(1,1268-(4*(tog%|
00004220  2b 32 29 29 2c 33 36 30  2c 32 34 38 2c 36 30 2c  |+2)),360,248,60,|
00004230  22 62 67 72 64 22 29 0d  01 7c 05 cd 0d 01 7d 58  |"bgrd")..|....}X|
00004240  f2 70 75 74 5f 73 70 28  31 2b 28 74 6f 67 25 83  |.put_sp(1+(tog%.|
00004250  32 29 2c 31 32 36 38 2d  28 34 2a 74 6f 67 25 29  |2),1268-(4*tog%)|
00004260  2c 33 37 36 2c 36 2c 31  36 2c 31 36 2c 31 36 2c  |,376,6,16,16,16,|
00004270  22 6c 66 69 73 68 22 2c  6c 65 66 74 25 2c 6c 6f  |"lfish",left%,lo|
00004280  77 25 2c 72 69 67 68 74  25 2c 68 69 67 68 25 2c  |w%,right%,high%,|
00004290  26 30 30 29 0d 01 7e 67  e7 74 6f 67 25 3e 33 30  |&00)..~g.tog%>30|
000042a0  3a f2 70 75 74 5f 73 70  28 31 2b 28 74 6f 67 25  |:.put_sp(1+(tog%|
000042b0  83 32 29 2c 31 32 36 38  2d 28 34 2a 28 74 6f 67  |.2),1268-(4*(tog|
000042c0  25 2d 33 30 29 29 2c 33  36 30 2c 36 2c 31 36 2c  |%-30)),360,6,16,|
000042d0  31 36 2c 31 36 2c 22 62  66 69 73 68 30 22 2c 6c  |16,16,"bfish0",l|
000042e0  65 66 74 25 2c 6c 6f 77  25 2c 72 69 67 68 74 25  |eft%,low%,right%|
000042f0  2c 68 69 67 68 25 2c 26  30 30 29 0d 01 7f 17 f5  |,high%,&00).....|
00004300  3a fd 20 91 3e 3d 6c 61  73 74 74 69 6d 65 25 2b  |:. .>=lasttime%+|
00004310  31 30 0d 01 80 4a c8 96  3a c8 99 22 4f 53 5f 42  |10...J..:.."OS_B|
00004320  79 74 65 22 2c 31 31 33  2c 31 2b 28 74 6f 67 25  |yte",113,1+(tog%|
00004330  83 32 29 3a 74 6f 67 25  2b 3d 31 3a 6c 61 73 74  |.2):tog%+=1:last|
00004340  74 69 6d 65 25 3d 91 3a  e7 74 6f 67 25 3e 3d 34  |time%=.:.tog%>=4|
00004350  31 3a 61 6c 6c 64 6f 6e  65 25 3d b9 0d 01 81 05  |1:alldone%=.....|
00004360  e1 0d 01 82 04 0d 01 83  10 dd f2 61 6e 69 6d 5f  |...........anim_|
00004370  66 69 73 68 32 0d 01 84  2c e7 66 69 72 73 74 74  |fish2...,.firstt|
00004380  69 6d 65 25 8c 3a 66 69  72 73 74 74 69 6d 65 25  |ime%.:firsttime%|
00004390  3d a3 3a 6c 61 73 74 74  69 6d 65 25 3d 91 2d 31  |=.:lasttime%=.-1|
000043a0  30 0d 01 85 1e c8 99 22  4f 53 5f 42 79 74 65 22  |0......"OS_Byte"|
000043b0  2c 31 31 32 2c 31 2b 28  74 6f 67 25 83 32 29 0d  |,112,1+(tog%.2).|
000043c0  01 86 10 e7 28 74 6f 67  25 83 32 29 3d 30 8c 0d  |....(tog%.2)=0..|
000043d0  01 87 40 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..@.."OS_SpriteO|
000043e0  70 22 2c 26 31 32 32 2c  41 52 45 41 25 2c 22 62  |p",&122,AREA%,"b|
000043f0  67 72 64 22 2c 31 31 30  38 2d 28 32 30 2a 28 74  |grd",1108-(20*(t|
00004400  6f 67 25 2b 31 29 29 2c  33 36 30 2c 26 30 38 0d  |og%+1)),360,&08.|
00004410  01 88 05 cc 0d 01 89 3c  c8 99 22 4f 53 5f 53 70  |.......<.."OS_Sp|
00004420  72 69 74 65 4f 70 22 2c  26 31 32 32 2c 41 52 45  |riteOp",&122,ARE|
00004430  41 25 2c 22 62 67 72 64  22 2c 31 31 30 38 2d 28  |A%,"bgrd",1108-(|
00004440  32 30 2a 74 6f 67 25 29  2c 33 36 30 2c 26 30 38  |20*tog%),360,&08|
00004450  0d 01 8a 3f f2 73 61 76  65 5f 62 67 72 64 28 31  |...?.save_bgrd(1|
00004460  2b 28 74 6f 67 25 83 32  29 2c 31 31 30 38 2d 28  |+(tog%.2),1108-(|
00004470  32 30 2a 28 74 6f 67 25  2b 32 29 29 2c 33 36 30  |20*(tog%+2)),360|
00004480  2c 33 31 32 2c 36 30 2c  22 62 67 72 64 22 29 0d  |,312,60,"bgrd").|
00004490  01 8b 05 cd 0d 01 8c 59  f2 70 75 74 5f 73 70 28  |.......Y.put_sp(|
000044a0  31 2b 28 74 6f 67 25 83  32 29 2c 31 31 30 38 2d  |1+(tog%.2),1108-|
000044b0  28 32 30 2a 74 6f 67 25  29 2c 33 37 36 2c 36 2c  |(20*tog%),376,6,|
000044c0  31 36 2c 31 36 2c 31 36  2c 22 6c 66 69 73 68 22  |16,16,16,"lfish"|
000044d0  2c 6c 65 66 74 25 2c 6c  6f 77 25 2c 72 69 67 68  |,left%,low%,righ|
000044e0  74 25 2c 68 69 67 68 25  2c 26 30 30 29 0d 01 8d  |t%,high%,&00)...|
000044f0  5e f2 70 75 74 5f 73 70  28 31 2b 28 74 6f 67 25  |^.put_sp(1+(tog%|
00004500  83 32 29 2c 31 31 30 38  2b 31 32 30 2d 28 32 30  |.2),1108+120-(20|
00004510  2a 74 6f 67 25 29 2c 33  36 30 2c 36 2c 31 36 2c  |*tog%),360,6,16,|
00004520  31 36 2c 31 36 2c 22 62  66 69 73 68 30 22 2c 6c  |16,16,"bfish0",l|
00004530  65 66 74 25 2c 6c 6f 77  25 2c 72 69 67 68 74 25  |eft%,low%,right%|
00004540  2c 68 69 67 68 25 2c 26  30 30 29 0d 01 8e 17 f5  |,high%,&00).....|
00004550  3a fd 20 91 3e 3d 6c 61  73 74 74 69 6d 65 25 2b  |:. .>=lasttime%+|
00004560  31 30 0d 01 8f 4a c8 96  3a c8 99 22 4f 53 5f 42  |10...J..:.."OS_B|
00004570  79 74 65 22 2c 31 31 33  2c 31 2b 28 74 6f 67 25  |yte",113,1+(tog%|
00004580  83 32 29 3a 74 6f 67 25  2b 3d 31 3a 6c 61 73 74  |.2):tog%+=1:last|
00004590  74 69 6d 65 25 3d 91 3a  e7 74 6f 67 25 3e 3d 36  |time%=.:.tog%>=6|
000045a0  39 3a 61 6c 6c 64 6f 6e  65 25 3d b9 0d 01 90 05  |9:alldone%=.....|
000045b0  e1 0d 01 91 04 0d 01 92  10 dd f2 61 6e 69 6d 5f  |...........anim_|
000045c0  70 6f 73 74 73 0d 01 93  2c e7 66 69 72 73 74 74  |posts...,.firstt|
000045d0  69 6d 65 25 8c 3a 66 69  72 73 74 74 69 6d 65 25  |ime%.:firsttime%|
000045e0  3d a3 3a 6c 61 73 74 74  69 6d 65 25 3d 91 2d 31  |=.:lasttime%=.-1|
000045f0  30 0d 01 94 1e c8 99 22  4f 53 5f 42 79 74 65 22  |0......"OS_Byte"|
00004600  2c 31 31 32 2c 31 2b 28  74 6f 67 25 83 32 29 0d  |,112,1+(tog%.2).|
00004610  01 95 5a e7 28 74 6f 67  25 3d 32 33 29 84 28 74  |..Z.(tog%=23).(t|
00004620  6f 67 25 3d 32 34 29 84  28 74 6f 67 25 3d 33 31  |og%=24).(tog%=31|
00004630  29 84 28 74 6f 67 25 3d  33 32 29 3a c8 99 22 4f  |).(tog%=32):.."O|
00004640  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 32 32  |S_SpriteOp",&122|
00004650  2c 41 52 45 41 25 2c 22  62 67 72 64 22 2c 31 37  |,AREA%,"bgrd",17|
00004660  36 2c 32 35 36 2c 26 30  38 0d 01 96 5b e7 28 74  |6,256,&08...[.(t|
00004670  6f 67 25 3d 36 36 29 84  28 74 6f 67 25 3d 36 37  |og%=66).(tog%=67|
00004680  29 84 28 74 6f 67 25 3d  37 34 29 84 28 74 6f 67  |).(tog%=74).(tog|
00004690  25 3d 37 35 29 3a c8 99  22 4f 53 5f 53 70 72 69  |%=75):.."OS_Spri|
000046a0  74 65 4f 70 22 2c 26 31  32 32 2c 41 52 45 41 25  |teOp",&122,AREA%|
000046b0  2c 22 62 67 72 64 22 2c  31 30 34 38 2c 32 35 36  |,"bgrd",1048,256|
000046c0  2c 26 30 38 0d 01 97 3b  e7 74 6f 67 25 3c 3d 35  |,&08...;.tog%<=5|
000046d0  32 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |2:.."OS_SpriteOp|
000046e0  22 2c 26 31 32 32 2c 41  52 45 41 25 2c 22 62 67  |",&122,AREA%,"bg|
000046f0  72 64 31 22 2c 31 32 2c  33 36 30 2c 26 30 38 0d  |rd1",12,360,&08.|
00004700  01 98 3c e7 74 6f 67 25  3e 3d 31 35 3a c8 99 22  |..<.tog%>=15:.."|
00004710  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 32  |OS_SpriteOp",&12|
00004720  32 2c 41 52 45 41 25 2c  22 62 67 72 64 32 22 2c  |2,AREA%,"bgrd2",|
00004730  32 36 34 2c 33 37 36 2c  26 30 38 0d 01 99 3a e7  |264,376,&08...:.|
00004740  74 6f 67 25 3d 35 30 3a  f2 73 61 76 65 5f 62 67  |tog%=50:.save_bg|
00004750  72 64 28 31 2b 28 74 6f  67 25 83 32 29 2c 31 30  |rd(1+(tog%.2),10|
00004760  34 38 2c 32 35 36 2c 36  38 2c 33 36 30 2c 22 62  |48,256,68,360,"b|
00004770  67 72 64 22 29 0d 01 9a  5c f2 70 75 74 5f 73 70  |grd")...\.put_sp|
00004780  28 31 2b 28 74 6f 67 25  83 32 29 2c 32 31 36 2b  |(1+(tog%.2),216+|
00004790  28 32 30 2a 74 6f 67 25  29 2d 32 35 32 2c 33 37  |(20*tog%)-252,37|
000047a0  36 2c 36 2c 31 36 2c 31  36 2c 31 36 2c 22 6c 66  |6,6,16,16,16,"lf|
000047b0  69 73 68 22 2c 6c 65 66  74 25 2c 6c 6f 77 25 2c  |ish",left%,low%,|
000047c0  72 69 67 68 74 25 2c 68  69 67 68 25 2c 26 30 31  |right%,high%,&01|
000047d0  29 0d 01 9b 62 e7 74 6f  67 25 3c 31 36 3a f2 70  |)...b.tog%<16:.p|
000047e0  75 74 5f 73 70 28 31 2b  28 74 6f 67 25 83 32 29  |ut_sp(1+(tog%.2)|
000047f0  2c 28 32 30 2a 74 6f 67  25 29 2d 32 35 32 2c 33  |,(20*tog%)-252,3|
00004800  36 30 2c 36 2c 31 36 2c  31 36 2c 31 36 2c 22 62  |60,6,16,16,16,"b|
00004810  66 69 73 68 30 22 2c 6c  65 66 74 25 2c 6c 6f 77  |fish0",left%,low|
00004820  25 2c 72 69 67 68 74 25  2c 68 69 67 68 25 2c 26  |%,right%,high%,&|
00004830  30 31 29 0d 01 9c 63 e7  28 74 6f 67 25 3d 31 36  |01)...c.(tog%=16|
00004840  29 84 28 74 6f 67 25 3d  31 37 29 3a f2 70 75 74  |).(tog%=17):.put|
00004850  5f 73 70 28 31 2b 28 74  6f 67 25 83 32 29 2c 34  |_sp(1+(tog%.2),4|
00004860  38 2c 33 36 30 2c 36 2c  31 36 2c 31 36 2c 31 36  |8,360,6,16,16,16|
00004870  2c 22 62 66 69 73 68 31  22 2c 6c 65 66 74 25 2c  |,"bfish1",left%,|
00004880  6c 6f 77 25 2c 72 69 67  68 74 25 2c 68 69 67 68  |low%,right%,high|
00004890  25 2c 26 30 31 29 0d 01  9d 65 e7 28 74 6f 67 25  |%,&01)...e.(tog%|
000048a0  3e 3d 31 38 29 80 28 74  6f 67 25 3c 3d 33 30 29  |>=18).(tog%<=30)|
000048b0  3a f2 70 75 74 5f 73 70  28 31 2b 28 74 6f 67 25  |:.put_sp(1+(tog%|
000048c0  83 32 29 2c 34 30 2c 33  36 30 2c 36 2c 31 36 2c  |.2),40,360,6,16,|
000048d0  31 36 2c 31 36 2c 22 62  66 69 73 68 31 22 2c 6c  |16,16,"bfish1",l|
000048e0  65 66 74 25 2c 6c 6f 77  25 2c 72 69 67 68 74 25  |eft%,low%,right%|
000048f0  2c 68 69 67 68 25 2c 26  30 31 29 0d 01 9e 73 e7  |,high%,&01)...s.|
00004900  28 74 6f 67 25 3e 3d 33  31 29 80 28 74 6f 67 25  |(tog%>=31).(tog%|
00004910  3c 3d 35 32 29 3a f2 70  75 74 5f 73 70 28 31 2b  |<=52):.put_sp(1+|
00004920  28 74 6f 67 25 83 32 29  2c 34 30 2d 28 38 2a 28  |(tog%.2),40-(8*(|
00004930  74 6f 67 25 2d 33 31 29  29 2c 33 36 30 2c 36 2c  |tog%-31)),360,6,|
00004940  31 36 2c 31 36 2c 31 36  2c 22 62 66 69 73 68 31  |16,16,16,"bfish1|
00004950  22 2c 6c 65 66 74 25 2c  6c 6f 77 25 2c 72 69 67  |",left%,low%,rig|
00004960  68 74 25 2c 68 69 67 68  25 2c 26 30 30 29 0d 01  |ht%,high%,&00)..|
00004970  9f 41 e7 28 74 6f 67 25  3e 3d 31 35 29 80 28 74  |.A.(tog%>=15).(t|
00004980  6f 67 25 3c 3d 32 32 29  3a f2 61 64 64 5f 73 70  |og%<=22):.add_sp|
00004990  28 31 2b 28 74 6f 67 25  83 32 29 2c 22 6d 61 6b  |(1+(tog%.2),"mak|
000049a0  65 70 6f 73 74 22 2c 34  34 2c 38 36 2c 36 29 0d  |epost",44,86,6).|
000049b0  01 a0 41 e7 28 74 6f 67  25 3e 3d 32 33 29 80 28  |..A.(tog%>=23).(|
000049c0  74 6f 67 25 3c 3d 33 30  29 3a f2 61 64 64 5f 73  |tog%<=30):.add_s|
000049d0  70 28 31 2b 28 74 6f 67  25 83 32 29 2c 22 6d 61  |p(1+(tog%.2),"ma|
000049e0  6b 65 70 6f 73 74 22 2c  34 34 2c 39 36 2c 36 29  |kepost",44,96,6)|
000049f0  0d 01 a1 42 e7 28 74 6f  67 25 3e 3d 33 31 29 80  |...B.(tog%>=31).|
00004a00  28 74 6f 67 25 3c 3d 35  32 29 3a f2 61 64 64 5f  |(tog%<=52):.add_|
00004a10  73 70 28 31 2b 28 74 6f  67 25 83 32 29 2c 22 6d  |sp(1+(tog%.2),"m|
00004a20  61 6b 65 70 6f 73 74 22  2c 34 34 2c 31 30 36 2c  |akepost",44,106,|
00004a30  36 29 0d 01 a2 42 e7 28  74 6f 67 25 3e 3d 35 38  |6)...B.(tog%>=58|
00004a40  29 80 28 74 6f 67 25 3c  3d 36 35 29 3a f2 61 64  |).(tog%<=65):.ad|
00004a50  64 5f 73 70 28 31 2b 28  74 6f 67 25 83 32 29 2c  |d_sp(1+(tog%.2),|
00004a60  22 6d 61 6b 65 70 6f 73  74 22 2c 32 36 32 2c 38  |"makepost",262,8|
00004a70  36 2c 36 29 0d 01 a3 42  e7 28 74 6f 67 25 3e 3d  |6,6)...B.(tog%>=|
00004a80  36 36 29 80 28 74 6f 67  25 3c 3d 37 33 29 3a f2  |66).(tog%<=73):.|
00004a90  61 64 64 5f 73 70 28 31  2b 28 74 6f 67 25 83 32  |add_sp(1+(tog%.2|
00004aa0  29 2c 22 6d 61 6b 65 70  6f 73 74 22 2c 32 36 32  |),"makepost",262|
00004ab0  2c 39 36 2c 36 29 0d 01  a4 38 e7 28 74 6f 67 25  |,96,6)...8.(tog%|
00004ac0  3e 3d 37 34 29 3a f2 61  64 64 5f 73 70 28 31 2b  |>=74):.add_sp(1+|
00004ad0  28 74 6f 67 25 83 32 29  2c 22 6d 61 6b 65 70 6f  |(tog%.2),"makepo|
00004ae0  73 74 22 2c 32 36 32 2c  31 30 36 2c 36 29 0d 01  |st",262,106,6)..|
00004af0  a5 17 f5 3a fd 20 91 3e  3d 6c 61 73 74 74 69 6d  |...:. .>=lasttim|
00004b00  65 25 2b 31 30 0d 01 a6  21 c8 96 3a c8 99 22 4f  |e%+10...!..:.."O|
00004b10  53 5f 42 79 74 65 22 2c  31 31 33 2c 31 2b 28 74  |S_Byte",113,1+(t|
00004b20  6f 67 25 83 32 29 0d 01  a7 43 e7 28 74 6f 67 25  |og%.2)...C.(tog%|
00004b30  3d 32 33 29 84 28 74 6f  67 25 3d 33 31 29 84 28  |=23).(tog%=31).(|
00004b40  74 6f 67 25 3d 36 36 29  84 28 74 6f 67 25 3d 37  |tog%=66).(tog%=7|
00004b50  34 29 3a d4 31 2c 26 31  37 37 2b 28 34 2a 4f 25  |4):.1,&177+(4*O%|
00004b60  29 2c 26 32 41 30 30 2c  35 0d 01 a8 23 e7 74 6f  |),&2A00,5...#.to|
00004b70  67 25 3d 31 36 3a d4 32  2c 26 31 37 37 2b 28 34  |g%=16:.2,&177+(4|
00004b80  2a 4f 25 29 2c 26 32 36  30 30 2c 35 0d 01 a9 2c  |*O%),&2600,5...,|
00004b90  74 6f 67 25 2b 3d 31 3a  6c 61 73 74 74 69 6d 65  |tog%+=1:lasttime|
00004ba0  25 3d 91 3a e7 74 6f 67  25 3e 3d 37 35 3a 61 6c  |%=.:.tog%>=75:al|
00004bb0  6c 64 6f 6e 65 25 3d b9  0d 01 aa 05 e1 0d 01 ab  |ldone%=.........|
00004bc0  04 0d 01 ac 0d dd f2 6c  61 6e 64 69 6e 67 0d 01  |.......landing..|
00004bd0  ad 1d c8 99 22 53 6f 75  6e 64 5f 41 74 74 61 63  |...."Sound_Attac|
00004be0  68 56 6f 69 63 65 22 2c  31 2c 31 0d 01 ae 1d c8  |hVoice",1,1.....|
00004bf0  99 22 53 6f 75 6e 64 5f  41 74 74 61 63 68 56 6f  |."Sound_AttachVo|
00004c00  69 63 65 22 2c 32 2c 39  0d 01 af 60 c8 99 20 22  |ice",2,9...`.. "|
00004c10  4f 53 5f 42 79 74 65 22  2c 31 31 32 2c 32 3a c8  |OS_Byte",112,2:.|
00004c20  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00004c30  31 32 32 2c 41 52 45 41  25 2c 22 66 62 67 72 64  |122,AREA%,"fbgrd|
00004c40  22 2c 32 33 32 2c 33 36  30 2c 30 3a f2 61 64 64  |",232,360,0:.add|
00004c50  5f 73 70 28 32 2c 22 66  61 72 6d 65 72 31 22 2c  |_sp(2,"farmer1",|
00004c60  35 38 2c 36 34 2c 36 29  0d 01 b0 0c e3 6a 25 3d  |58,64,6).....j%=|
00004c70  31 b8 31 30 0d 01 b1 32  e7 6a 25 3e 34 3a e3 6b  |1.10...2.j%>4:.k|
00004c80  25 3d 30 b8 35 3a d4 31  2c 26 31 37 37 2b 28 34  |%=0.5:.1,&177+(4|
00004c90  2a 4f 25 29 2c 31 33 30  2c 31 3a f2 77 61 69 74  |*O%),130,1:.wait|
00004ca0  28 31 30 29 3a ed 0d 01  b2 1c c8 99 22 4f 53 5f  |(10):......."OS_|
00004cb0  42 79 74 65 22 2c 31 31  33 2c 31 2b 28 6a 25 83  |Byte",113,1+(j%.|
00004cc0  32 29 0d 01 b3 05 ed 0d  01 b4 18 d4 31 2c 26 31  |2)..........1,&1|
00004cd0  37 37 2b 28 34 2a 4f 25  29 2c 31 33 30 2c 31 0d  |77+(4*O%),130,1.|
00004ce0  01 b5 43 c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |..C.. "OS_Byte",|
00004cf0  31 31 32 2c 32 3a c8 99  22 4f 53 5f 53 70 72 69  |112,2:.."OS_Spri|
00004d00  74 65 4f 70 22 2c 26 31  32 32 2c 41 52 45 41 25  |teOp",&122,AREA%|
00004d10  2c 22 66 62 67 72 64 22  2c 32 33 32 2c 33 36 30  |,"fbgrd",232,360|
00004d20  2c 30 0d 01 b6 18 d4 31  2c 26 31 37 37 2b 28 34  |,0.....1,&177+(4|
00004d30  2a 4f 25 29 2c 31 33 30  2c 31 0d 01 b7 41 f2 61  |*O%),130,1...A.a|
00004d40  64 64 5f 73 70 28 32 2c  22 66 61 72 6d 65 72 62  |dd_sp(2,"farmerb|
00004d50  6f 64 22 2c 35 38 2c 36  34 2c 36 29 3a f2 61 64  |od",58,64,6):.ad|
00004d60  64 5f 73 70 28 32 2c 22  66 61 72 6d 68 65 61 64  |d_sp(2,"farmhead|
00004d70  31 22 2c 38 36 2c 36 34  2c 36 29 0d 01 b8 0e f2  |1",86,64,6).....|
00004d80  73 63 72 63 6f 70 79 32  31 0d 01 b9 2c e3 6b 25  |scrcopy21...,.k%|
00004d90  3d 30 b8 35 3a d4 31 2c  26 31 37 37 2b 28 34 2a  |=0.5:.1,&177+(4*|
00004da0  4f 25 29 2c 31 33 30 2c  31 3a f2 77 61 69 74 28  |O%),130,1:.wait(|
00004db0  31 30 29 3a ed 0d 01 ba  18 d4 31 2c 26 31 37 37  |10):......1,&177|
00004dc0  2b 28 34 2a 4f 25 29 2c  31 33 30 2c 31 0d 01 bb  |+(4*O%),130,1...|
00004dd0  43 c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |C.. "OS_Byte",11|
00004de0  32 2c 32 3a c8 99 22 4f  53 5f 53 70 72 69 74 65  |2,2:.."OS_Sprite|
00004df0  4f 70 22 2c 26 31 32 32  2c 41 52 45 41 25 2c 22  |Op",&122,AREA%,"|
00004e00  66 62 67 72 64 22 2c 32  33 32 2c 33 36 30 2c 30  |fbgrd",232,360,0|
00004e10  0d 01 bc 18 d4 31 2c 26  31 37 37 2b 28 34 2a 4f  |.....1,&177+(4*O|
00004e20  25 29 2c 31 33 30 2c 31  0d 01 bd 45 f2 73 61 76  |%),130,1...E.sav|
00004e30  65 5f 62 67 72 64 28 32  2c 35 32 2c 33 37 36 2c  |e_bgrd(2,52,376,|
00004e40  32 30 38 2c 34 34 30 2c  22 66 62 67 72 64 22 29  |208,440,"fbgrd")|
00004e50  3a f2 61 64 64 5f 73 70  28 32 2c 22 66 61 72 6d  |:.add_sp(2,"farm|
00004e60  72 75 6e 22 2c 31 33 2c  33 37 2c 36 29 0d 01 be  |run",13,37,6)...|
00004e70  0e f2 73 63 72 63 6f 70  79 32 31 0d 01 bf 2c e3  |..scrcopy21...,.|
00004e80  6b 25 3d 30 b8 35 3a d4  31 2c 26 31 37 37 2b 28  |k%=0.5:.1,&177+(|
00004e90  34 2a 4f 25 29 2c 31 33  30 2c 31 3a f2 77 61 69  |4*O%),130,1:.wai|
00004ea0  74 28 31 30 29 3a ed 0d  01 c0 18 d4 31 2c 26 31  |t(10):......1,&1|
00004eb0  37 37 2b 28 34 2a 4f 25  29 2c 31 33 30 2c 31 0d  |77+(4*O%),130,1.|
00004ec0  01 c1 42 c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |..B.. "OS_Byte",|
00004ed0  31 31 32 2c 32 3a c8 99  22 4f 53 5f 53 70 72 69  |112,2:.."OS_Spri|
00004ee0  74 65 4f 70 22 2c 26 31  32 32 2c 41 52 45 41 25  |teOp",&122,AREA%|
00004ef0  2c 22 66 62 67 72 64 22  2c 35 32 2c 33 37 36 2c  |,"fbgrd",52,376,|
00004f00  30 0d 01 c2 18 d4 31 2c  26 31 37 37 2b 28 34 2a  |0.....1,&177+(4*|
00004f10  4f 25 29 2c 31 33 30 2c  31 0d 01 c3 44 f2 73 61  |O%),130,1...D.sa|
00004f20  76 65 5f 62 67 72 64 28  32 2c 31 32 2c 33 34 34  |ve_bgrd(2,12,344|
00004f30  2c 31 31 32 2c 31 39 32  2c 22 66 62 67 72 64 22  |,112,192,"fbgrd"|
00004f40  29 3a f2 61 64 64 5f 73  70 28 32 2c 22 73 70 6c  |):.add_sp(2,"spl|
00004f50  61 73 68 22 2c 33 2c 31  30 37 2c 31 29 0d 01 c4  |ash",3,107,1)...|
00004f60  0e f2 73 63 72 63 6f 70  79 32 31 0d 01 c5 1b d4  |..scrcopy21.....|
00004f70  32 2c 26 31 33 46 2b 28  26 32 30 2a 4f 25 29 2c  |2,&13F+(&20*O%),|
00004f80  31 33 30 2c 31 30 0d 01  c6 2c e3 6b 25 3d 30 b8  |130,10...,.k%=0.|
00004f90  37 3a d4 31 2c 26 31 37  37 2b 28 34 2a 4f 25 29  |7:.1,&177+(4*O%)|
00004fa0  2c 31 33 30 2c 31 3a f2  77 61 69 74 28 31 30 29  |,130,1:.wait(10)|
00004fb0  3a ed 0d 01 c7 53 c8 99  20 22 4f 53 5f 42 79 74  |:....S.. "OS_Byt|
00004fc0  65 22 2c 31 31 32 2c 32  3a c8 99 22 4f 53 5f 53  |e",112,2:.."OS_S|
00004fd0  70 72 69 74 65 4f 70 22  2c 26 31 32 32 2c 41 52  |priteOp",&122,AR|
00004fe0  45 41 25 2c 22 66 62 67  72 64 22 2c 31 32 2c 33  |EA%,"fbgrd",12,3|
00004ff0  34 34 2c 30 3a f2 64 65  6c 65 74 65 28 22 66 62  |44,0:.delete("fb|
00005000  67 72 64 22 29 0d 01 c8  0e f2 73 63 72 63 6f 70  |grd").....scrcop|
00005010  79 32 31 0d 01 c9 30 f2  73 61 76 65 5f 62 67 72  |y21...0.save_bgr|
00005020  64 28 32 2c 35 39 36 2d  35 36 2d 35 2c 39 36 30  |d(2,596-56-5,960|
00005030  2d 31 35 2c 37 31 32 2c  33 35 36 2c 22 62 67 72  |-15,712,356,"bgr|
00005040  64 22 29 0d 01 ca 34 74  6f 67 25 3d 31 3a 66 69  |d")...4tog%=1:fi|
00005050  72 73 74 74 69 6d 65 25  3d b9 3a 61 6c 6c 64 6f  |rsttime%=.:alldo|
00005060  6e 65 25 3d a3 3a f5 3a  f2 6c 61 6e 64 3a fd 61  |ne%=.:.:.land:.a|
00005070  6c 6c 64 6f 6e 65 25 0d  01 cb 4b e3 6b 25 3d 31  |lldone%...K.k%=1|
00005080  32 b8 39 88 2d 31 3a e3  7a 25 3d 31 b8 6b 25 2f  |2.9.-1:.z%=1.k%/|
00005090  32 3a f2 77 61 69 74 28  32 2a 28 31 37 2d 6b 25  |2:.wait(2*(17-k%|
000050a0  29 29 3a d4 31 2c 26 31  37 37 2b 28 34 2a 4f 25  |)):.1,&177+(4*O%|
000050b0  29 2c 31 30 34 2b 28 32  2a 6b 25 29 2c 34 3a ed  |),104+(2*k%),4:.|
000050c0  3a ed 0d 01 cc 1f c8 99  20 22 4f 53 5f 42 79 74  |:....... "OS_Byt|
000050d0  65 22 2c 31 31 32 2c 31  2b 28 74 6f 67 25 83 32  |e",112,1+(tog%.2|
000050e0  29 0d 01 cd 68 c8 99 22  4f 53 5f 53 70 72 69 74  |)...h.."OS_Sprit|
000050f0  65 4f 70 22 2c 26 31 32  32 2c 41 52 45 41 25 2c  |eOp",&122,AREA%,|
00005100  22 62 67 72 64 22 2c 35  39 36 2d 35 36 2d 28 35  |"bgrd",596-56-(5|
00005110  2a 28 74 6f 67 25 2d 31  29 29 2d 28 35 2a 28 74  |*(tog%-1))-(5*(t|
00005120  6f 67 25 83 32 29 29 2c  39 36 30 2d 28 31 35 2a  |og%.2)),960-(15*|
00005130  28 74 6f 67 25 2d 31 29  29 2d 28 31 35 2a 28 74  |(tog%-1))-(15*(t|
00005140  6f 67 25 83 32 29 29 2c  30 0d 01 ce 28 f2 70 75  |og%.2)),0...(.pu|
00005150  74 5f 68 65 6c 69 28 74  6f 67 25 2c 33 39 36 2c  |t_heli(tog%,396,|
00005160  33 36 30 2c 30 2c 2d 31  29 3a f2 64 6f 63 61 72  |360,0,-1):.docar|
00005170  72 0d 01 cf 30 f2 73 61  76 65 5f 62 67 72 64 28  |r...0.save_bgrd(|
00005180  31 2c 33 39 36 2d 31 31  32 2c 33 36 30 2b 31 33  |1,396-112,360+13|
00005190  32 2c 33 32 34 2c 31 34  30 2c 22 62 67 72 64 22  |2,324,140,"bgrd"|
000051a0  29 0d 01 d0 54 f2 70 75  74 5f 73 70 28 31 2b 28  |)...T.put_sp(1+(|
000051b0  74 6f 67 25 83 32 29 2c  33 39 36 2c 33 36 30 2b  |tog%.2),396,360+|
000051c0  31 33 32 2c 39 2c 31 36  2c 31 36 2c 31 36 2c 22  |132,9,16,16,16,"|
000051d0  63 6f 63 6b 70 69 74 22  2c 6c 65 66 74 25 2c 6c  |cockpit",left%,l|
000051e0  6f 77 25 2c 72 69 67 68  74 25 2c 68 69 67 68 25  |ow%,right%,high%|
000051f0  2c 26 30 30 29 0d 01 d1  16 c8 99 20 22 4f 53 5f  |,&00)...... "OS_|
00005200  42 79 74 65 22 2c 31 31  33 2c 31 0d 01 d2 4a e3  |Byte",113,1...J.|
00005210  6b 25 3d 38 b8 31 88 2d  31 3a e3 7a 25 3d 31 b8  |k%=8.1.-1:.z%=1.|
00005220  6b 25 2f 32 3a f2 77 61  69 74 28 32 2a 28 31 37  |k%/2:.wait(2*(17|
00005230  2d 6b 25 29 29 3a d4 31  2c 26 31 37 37 2b 28 34  |-k%)):.1,&177+(4|
00005240  2a 4f 25 29 2c 31 30 34  2b 28 32 2a 6b 25 29 2c  |*O%),104+(2*k%),|
00005250  34 3a ed 3a ed 0d 01 d3  18 d4 31 2c 26 31 37 37  |4:.:......1,&177|
00005260  2b 28 34 2a 4f 25 29 2c  31 30 34 2c 38 0d 01 d4  |+(4*O%),104,8...|
00005270  18 41 25 3d 31 3a 42 25  3d 32 3a d6 20 63 6f 70  |.A%=1:B%=2:. cop|
00005280  79 73 63 72 25 0d 01 d5  1d c8 99 22 53 6f 75 6e  |yscr%......"Soun|
00005290  64 5f 41 74 74 61 63 68  56 6f 69 63 65 22 2c 31  |d_AttachVoice",1|
000052a0  2c 32 0d 01 d6 0d f2 77  61 69 74 28 34 30 29 0d  |,2.....wait(40).|
000052b0  01 d7 3b 74 6f 67 25 3d  31 3a 66 69 72 73 74 74  |..;tog%=1:firstt|
000052c0  69 6d 65 25 3d b9 3a 61  6c 6c 64 6f 6e 65 25 3d  |ime%=.:alldone%=|
000052d0  a3 3a f5 3a f2 6f 70 65  6e 63 6f 63 6b 70 69 74  |.:.:.opencockpit|
000052e0  3a fd 61 6c 6c 64 6f 6e  65 25 0d 01 d8 30 f2 63  |:.alldone%...0.c|
000052f0  72 65 61 74 65 63 68 69  6e 3a f2 70 75 74 5f 68  |reatechin:.put_h|
00005300  65 6c 69 28 31 2c 33 39  36 2c 33 36 30 2c 30 2c  |eli(1,396,360,0,|
00005310  30 29 3a f2 64 6f 63 61  72 72 0d 01 d9 4b f2 70  |0):.docarr...K.p|
00005320  75 74 5f 73 70 28 32 2c  33 39 36 2c 33 36 30 2b  |ut_sp(2,396,360+|
00005330  31 33 32 2c 39 2c 31 36  2c 31 36 2c 31 36 2c 22  |132,9,16,16,16,"|
00005340  63 6f 63 6b 70 69 74 22  2c 6c 65 66 74 25 2c 6c  |cockpit",left%,l|
00005350  6f 77 25 2c 72 69 67 68  74 25 2c 68 69 67 68 25  |ow%,right%,high%|
00005360  2c 26 30 30 29 0d 01 da  72 f2 61 64 64 5f 73 70  |,&00)...r.add_sp|
00005370  28 32 2c 22 61 6e 67 75  73 22 2c 31 32 33 2c 36  |(2,"angus",123,6|
00005380  36 2c 36 29 3a f2 61 64  64 5f 73 70 28 32 2c 22  |6,6):.add_sp(2,"|
00005390  62 6f 79 22 2c 31 30 34  2c 38 32 2c 31 32 29 3a  |boy",104,82,12):|
000053a0  f2 61 64 64 5f 73 70 28  32 2c 22 67 69 72 6c 22  |.add_sp(2,"girl"|
000053b0  2c 31 34 34 2c 38 32 2c  31 32 29 3a f2 61 64 64  |,144,82,12):.add|
000053c0  5f 73 70 28 32 2c 22 63  61 73 65 22 2c 31 32 33  |_sp(2,"case",123|
000053d0  2c 31 32 37 2c 36 29 0d  01 db 18 f2 77 61 69 74  |,127,6).....wait|
000053e0  28 32 30 29 3a f2 73 63  72 63 6f 70 79 32 31 0d  |(20):.scrcopy21.|
000053f0  01 dc 49 f2 77 6f 72 64  73 28 37 30 2c 31 33 34  |..I.words(70,134|
00005400  2c 2d 31 2c 22 59 6f 75  20 6c 61 6e 64 20 73 61  |,-1,"You land sa|
00005410  66 65 6c 79 20 69 6e 20  74 68 65 20 68 65 61 72  |fely in the hear|
00005420  74 20 6f 66 20 74 68 65  20 41 7a 74 65 63 20 65  |t of the Aztec e|
00005430  6d 70 69 72 65 2e 22 29  0d 01 dd 3e f2 61 64 64  |mpire.")...>.add|
00005440  5f 73 70 28 32 2c 22 62  6f 61 74 73 22 2c 33 2c  |_sp(2,"boats",3,|
00005450  31 31 36 2c 36 29 3a f2  61 64 64 5f 73 70 28 32  |116,6):.add_sp(2|
00005460  2c 22 77 61 72 72 69 6c  65 66 74 22 2c 32 31 2c  |,"warrileft",21,|
00005470  35 39 2c 31 32 29 0d 01  de 75 f2 65 78 70 61 6e  |59,12)...u.expan|
00005480  64 28 22 77 61 72 72 69  6c 65 66 74 22 29 3a f2  |d("warrileft"):.|
00005490  70 75 74 5f 73 70 28 32  2c 37 34 30 2c 33 35 36  |put_sp(2,740,356|
000054a0  2c 31 32 2c 31 36 2c 31  36 2c 31 36 2c 22 77 61  |,12,16,16,16,"wa|
000054b0  72 72 69 6c 65 66 74 22  2c 6c 65 66 74 25 2c 6c  |rrileft",left%,l|
000054c0  6f 77 25 2c 72 69 67 68  74 25 2c 68 69 67 68 25  |ow%,right%,high%|
000054d0  2c 26 30 31 29 3a f2 63  6f 6d 70 61 63 74 28 22  |,&01):.compact("|
000054e0  77 61 72 72 69 6c 65 66  74 22 29 0d 01 df 7e f2  |warrileft")...~.|
000054f0  61 64 64 5f 73 70 28 32  2c 22 77 61 72 72 69 72  |add_sp(2,"warrir|
00005500  69 67 68 74 22 2c 32 31  37 2c 36 38 2c 36 29 3a  |ight",217,68,6):|
00005510  f2 61 64 64 5f 73 70 28  32 2c 22 61 6e 67 73 61  |.add_sp(2,"angsa|
00005520  64 22 2c 31 33 37 2c 37  37 2c 31 32 29 3a f2 61  |d",137,77,12):.a|
00005530  64 64 5f 73 70 28 32 2c  22 6b 69 64 73 61 64 22  |dd_sp(2,"kidsad"|
00005540  2c 31 31 36 2c 39 33 2c  31 32 29 3a f2 61 64 64  |,116,93,12):.add|
00005550  5f 73 70 28 32 2c 22 6b  69 64 73 61 64 22 2c 31  |_sp(2,"kidsad",1|
00005560  35 36 2c 39 33 2c 31 32  29 0d 01 e0 3c c8 99 22  |56,93,12)...<.."|
00005570  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00005580  34 2c 41 52 45 41 25 2c  22 63 61 72 72 6f 74 22  |4,AREA%,"carrot"|
00005590  2c 32 33 32 2c 33 35 32  2c 26 30 38 2c 53 43 41  |,232,352,&08,SCA|
000055a0  4c 45 25 2c 30 0d 01 e1  4f e3 6a 25 3d 36 b8 37  |LE%,0...O.j%=6.7|
000055b0  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
000055c0  2c 26 31 33 34 2c 41 52  45 41 25 2c 22 63 61 72  |,&134,AREA%,"car|
000055d0  72 6f 74 22 2c 32 33 32  2b 28 6a 25 2a 31 30 30  |rot",232+(j%*100|
000055e0  29 2c 33 35 32 2c 26 30  38 2c 53 43 41 4c 45 25  |),352,&08,SCALE%|
000055f0  2c 30 3a ed 0d 01 e2 15  f2 67 6f 5f 6f 6e 3a f2  |,0:......go_on:.|
00005600  73 63 72 63 6f 70 79 32  31 0d 01 e3 41 f2 77 6f  |scrcopy21...A.wo|
00005610  72 64 73 28 37 30 2c 31  35 30 2c 2d 31 2c 22 46  |rds(70,150,-1,"F|
00005620  69 65 72 63 65 20 77 61  72 72 69 6f 72 73 20 63  |ierce warriors c|
00005630  6f 6d 65 20 74 6f 20 74  61 6b 65 20 79 6f 75 20  |ome to take you |
00005640  74 6f 20 74 68 65 69 72  22 29 0d 01 e4 2e f2 77  |to their").....w|
00005650  6f 72 64 73 28 37 30 2c  39 30 2c 2d 31 2c 22 65  |ords(70,90,-1,"e|
00005660  6d 70 65 72 6f 72 2c 20  20 4d 6f 6e 74 65 7a 75  |mperor,  Montezu|
00005670  6d 61 20 49 49 2e 22 29  0d 01 e5 0a f2 67 6f 5f  |ma II.").....go_|
00005680  6f 6e 0d 01 e6 45 f2 77  6f 72 64 73 28 37 30 2c  |on...E.words(70,|
00005690  31 37 32 2c 2d 31 2c 22  54 68 65 20 61 64 76 65  |172,-1,"The adve|
000056a0  6e 74 75 72 65 20 74 61  6b 65 73 20 79 6f 75 20  |nture takes you |
000056b0  74 6f 20 4d 6f 6e 74 65  7a 75 6d 61 27 73 20 70  |to Montezuma's p|
000056c0  61 6c 61 63 65 22 29 0d  01 e7 32 f2 77 6f 72 64  |alace")...2.word|
000056d0  73 28 37 30 2c 31 31 32  2c 2d 31 2c 22 77 68 65  |s(70,112,-1,"whe|
000056e0  72 65 20 79 6f 75 20 68  61 76 65 20 74 6f 20 70  |re you have to p|
000056f0  65 72 73 75 61 64 65 22  29 0d 01 e8 37 f2 77 6f  |ersuade")...7.wo|
00005700  72 64 73 28 37 30 2c 35  32 2c 2d 31 2c 22 4d 6f  |rds(70,52,-1,"Mo|
00005710  6e 74 65 7a 75 6d 61 20  74 68 61 74 20 79 6f 75  |ntezuma that you|
00005720  20 61 72 65 20 70 65 61  63 65 66 75 6c 2e 22 29  | are peaceful.")|
00005730  0d 01 e9 05 e1 0d 01 ea  04 0d 01 eb 0a dd f2 6c  |...............l|
00005740  61 6e 64 0d 01 ec 2c e7  66 69 72 73 74 74 69 6d  |and...,.firsttim|
00005750  65 25 8c 3a 66 69 72 73  74 74 69 6d 65 25 3d a3  |e%.:firsttime%=.|
00005760  3a 6c 61 73 74 74 69 6d  65 25 3d 91 2d 32 30 0d  |:lasttime%=.-20.|
00005770  01 ed 1f c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |..... "OS_Byte",|
00005780  31 31 32 2c 31 2b 28 74  6f 67 25 83 32 29 0d 01  |112,1+(tog%.2)..|
00005790  ee 68 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.h.."OS_SpriteOp|
000057a0  22 2c 26 31 32 32 2c 41  52 45 41 25 2c 22 62 67  |",&122,AREA%,"bg|
000057b0  72 64 22 2c 35 39 36 2d  35 36 2d 28 35 2a 28 74  |rd",596-56-(5*(t|
000057c0  6f 67 25 2d 31 29 29 2d  28 35 2a 28 74 6f 67 25  |og%-1))-(5*(tog%|
000057d0  83 32 29 29 2c 39 36 30  2d 28 31 35 2a 28 74 6f  |.2)),960-(15*(to|
000057e0  67 25 2d 31 29 29 2d 28  31 35 2a 28 74 6f 67 25  |g%-1))-(15*(tog%|
000057f0  83 32 29 29 2c 30 0d 01  ef 58 e7 28 74 6f 67 25  |.2)),0...X.(tog%|
00005800  83 32 29 3d 30 3a f2 73  61 76 65 5f 62 67 72 64  |.2)=0:.save_bgrd|
00005810  28 31 2c 35 39 36 2d 35  36 2d 28 35 2a 28 74 6f  |(1,596-56-(5*(to|
00005820  67 25 2d 31 29 29 2d 31  30 2c 39 36 30 2d 28 31  |g%-1))-10,960-(1|
00005830  35 2a 28 74 6f 67 25 2d  31 29 29 2d 33 30 2c 37  |5*(tog%-1))-30,7|
00005840  31 32 2c 33 35 36 2c 22  62 67 72 64 22 29 0d 01  |12,356,"bgrd")..|
00005850  f0 3c f2 70 75 74 5f 68  65 6c 69 28 74 6f 67 25  |.<.put_heli(tog%|
00005860  2c 35 39 36 2d 28 35 2a  28 74 6f 67 25 2d 31 29  |,596-(5*(tog%-1)|
00005870  29 2c 39 36 30 2d 28 31  35 2a 28 74 6f 67 25 2d  |),960-(15*(tog%-|
00005880  31 29 29 2c 2d 31 2c 2d  31 29 0d 01 f1 6f f2 70  |1)),-1,-1)...o.p|
00005890  75 74 5f 73 70 28 31 2b  28 74 6f 67 25 83 32 29  |ut_sp(1+(tog%.2)|
000058a0  2c 35 39 36 2d 28 35 2a  28 74 6f 67 25 2d 31 29  |,596-(5*(tog%-1)|
000058b0  29 2c 39 36 30 2d 28 31  35 2a 28 74 6f 67 25 2d  |),960-(15*(tog%-|
000058c0  31 29 29 2b 31 33 32 2c  39 2c 31 36 2c 31 36 2c  |1))+132,9,16,16,|
000058d0  31 36 2c 22 63 6f 63 6b  70 69 74 22 2c 6c 65 66  |16,"cockpit",lef|
000058e0  74 25 2c 6c 6f 77 25 2c  72 69 67 68 74 25 2c 68  |t%,low%,right%,h|
000058f0  69 67 68 25 2c 26 30 30  29 0d 01 f2 14 e7 74 6f  |igh%,&00).....to|
00005900  67 25 3e 33 38 3a f2 64  6f 63 61 72 72 0d 01 f3  |g%>38:.docarr...|
00005910  17 f5 3a fd 20 91 3e 3d  6c 61 73 74 74 69 6d 65  |..:. .>=lasttime|
00005920  25 2b 32 30 0d 01 f4 18  d4 31 2c 26 31 37 37 2b  |%+20.....1,&177+|
00005930  28 34 2a 4f 25 29 2c 31  33 30 2c 31 0d 01 f5 4a  |(4*O%),130,1...J|
00005940  c8 96 3a c8 99 20 22 4f  53 5f 42 79 74 65 22 2c  |..:.. "OS_Byte",|
00005950  31 31 33 2c 31 2b 28 74  6f 67 25 83 32 29 3a 74  |113,1+(tog%.2):t|
00005960  6f 67 25 2b 3d 31 3a 6c  61 73 74 74 69 6d 65 25  |og%+=1:lasttime%|
00005970  3d 91 3a e7 74 6f 67 25  3d 34 32 3a 61 6c 6c 64  |=.:.tog%=42:alld|
00005980  6f 6e 65 25 3d b9 0d 01  f6 05 e1 0d 01 f7 04 0d  |one%=...........|
00005990  01 f8 04 0d 01 f9 11 dd  f2 6f 70 65 6e 63 6f 63  |.........opencoc|
000059a0  6b 70 69 74 0d 01 fa 2c  e7 66 69 72 73 74 74 69  |kpit...,.firstti|
000059b0  6d 65 25 8c 3a 66 69 72  73 74 74 69 6d 65 25 3d  |me%.:firsttime%=|
000059c0  a3 3a 6c 61 73 74 74 69  6d 65 25 3d 91 2d 32 30  |.:lasttime%=.-20|
000059d0  0d 01 fb 1f c8 99 20 22  4f 53 5f 42 79 74 65 22  |...... "OS_Byte"|
000059e0  2c 31 31 32 2c 31 2b 28  74 6f 67 25 83 32 29 0d  |,112,1+(tog%.2).|
000059f0  01 fc 37 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..7.."OS_SpriteO|
00005a00  70 22 2c 26 31 32 32 2c  41 52 45 41 25 2c 22 62  |p",&122,AREA%,"b|
00005a10  67 72 64 22 2c 33 39 36  2d 31 31 32 2c 33 36 30  |grd",396-112,360|
00005a20  2b 31 33 32 2c 30 0d 01  fd 5d f2 70 75 74 5f 73  |+132,0...].put_s|
00005a30  70 28 31 2b 28 74 6f 67  25 83 32 29 2c 33 39 36  |p(1+(tog%.2),396|
00005a40  2d 28 34 2a 74 6f 67 25  29 2c 33 36 30 2b 31 33  |-(4*tog%),360+13|
00005a50  32 2c 39 2c 31 36 2c 31  36 2c 31 36 2c 22 63 6f  |2,9,16,16,16,"co|
00005a60  63 6b 70 69 74 22 2c 6c  65 66 74 25 2c 6c 6f 77  |ckpit",left%,low|
00005a70  25 2c 72 69 67 68 74 25  2c 68 69 67 68 25 2c 26  |%,right%,high%,&|
00005a80  30 30 29 0d 01 fe 17 f5  3a fd 20 91 3e 3d 6c 61  |00).....:. .>=la|
00005a90  73 74 74 69 6d 65 25 2b  32 30 0d 01 ff 4a c8 96  |sttime%+20...J..|
00005aa0  3a c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  |:.. "OS_Byte",11|
00005ab0  33 2c 31 2b 28 74 6f 67  25 83 32 29 3a 74 6f 67  |3,1+(tog%.2):tog|
00005ac0  25 2b 3d 31 3a 6c 61 73  74 74 69 6d 65 25 3d 91  |%+=1:lasttime%=.|
00005ad0  3a e7 74 6f 67 25 3d 32  39 3a 61 6c 6c 64 6f 6e  |:.tog%=29:alldon|
00005ae0  65 25 3d b9 0d 02 00 05  e1 0d 02 01 04 0d 02 02  |e%=.............|
00005af0  27 dd f2 70 75 74 5f 68  65 6c 69 28 74 6f 67 25  |'..put_heli(tog%|
00005b00  2c 68 78 25 2c 68 79 25  2c 6d 6f 76 65 25 2c 70  |,hx%,hy%,move%,p|
00005b10  69 6c 25 29 0d 02 03 51  f2 70 75 74 5f 73 70 28  |il%)...Q.put_sp(|
00005b20  31 2b 28 74 6f 67 25 83  32 29 2c 68 78 25 2c 68  |1+(tog%.2),hx%,h|
00005b30  79 25 2c 39 2c 31 36 2c  31 36 2c 31 36 2c 22 68  |y%,9,16,16,16,"h|
00005b40  65 6c 69 63 6f 70 74 22  2c 6c 65 66 74 25 2c 6c  |elicopt",left%,l|
00005b50  6f 77 25 2c 72 69 67 68  74 25 2c 68 69 67 68 25  |ow%,right%,high%|
00005b60  2c 26 30 30 29 0d 02 04  0b e7 6d 6f 76 65 25 8c  |,&00).....move%.|
00005b70  0d 02 05 62 20 f2 70 75  74 5f 73 70 28 31 2b 28  |...b .put_sp(1+(|
00005b80  74 6f 67 25 83 32 29 2c  68 78 25 2d 35 36 2c 68  |tog%.2),hx%-56,h|
00005b90  79 25 2b 32 37 32 2c 39  2c 31 36 2c 31 36 2c 31  |y%+272,9,16,16,1|
00005ba0  36 2c 22 74 6f 70 5f 72  6f 74 22 2b c3 28 74 6f  |6,"top_rot"+.(to|
00005bb0  67 25 83 32 29 2c 6c 65  66 74 25 2c 6c 6f 77 25  |g%.2),left%,low%|
00005bc0  2c 72 69 67 68 74 25 2c  68 69 67 68 25 2c 26 30  |,right%,high%,&0|
00005bd0  30 29 0d 02 06 64 20 f2  70 75 74 5f 73 70 28 31  |0)...d .put_sp(1|
00005be0  2b 28 74 6f 67 25 83 32  29 2c 68 78 25 2b 34 32  |+(tog%.2),hx%+42|
00005bf0  34 2c 68 79 25 2b 31 31  36 2c 39 2c 31 36 2c 31  |4,hy%+116,9,16,1|
00005c00  36 2c 31 36 2c 22 62 61  63 6b 5f 72 6f 74 22 2b  |6,16,"back_rot"+|
00005c10  c3 28 74 6f 67 25 83 32  29 2c 6c 65 66 74 25 2c  |.(tog%.2),left%,|
00005c20  6c 6f 77 25 2c 72 69 67  68 74 25 2c 68 69 67 68  |low%,right%,high|
00005c30  25 2c 26 30 30 29 0d 02  07 05 cc 0d 02 08 58 20  |%,&00)........X |
00005c40  f2 70 75 74 5f 73 70 28  31 2b 28 74 6f 67 25 83  |.put_sp(1+(tog%.|
00005c50  32 29 2c 68 78 25 2d 35  36 2c 68 79 25 2b 32 37  |2),hx%-56,hy%+27|
00005c60  32 2c 39 2c 31 36 2c 31  36 2c 31 36 2c 22 74 6f  |2,9,16,16,16,"to|
00005c70  70 5f 72 6f 74 22 2c 6c  65 66 74 25 2c 6c 6f 77  |p_rot",left%,low|
00005c80  25 2c 72 69 67 68 74 25  2c 68 69 67 68 25 2c 26  |%,right%,high%,&|
00005c90  30 30 29 0d 02 09 5a 20  f2 70 75 74 5f 73 70 28  |00)...Z .put_sp(|
00005ca0  31 2b 28 74 6f 67 25 83  32 29 2c 68 78 25 2b 34  |1+(tog%.2),hx%+4|
00005cb0  36 34 2c 68 79 25 2b 31  32 30 2c 39 2c 31 36 2c  |64,hy%+120,9,16,|
00005cc0  31 36 2c 31 36 2c 22 62  61 63 6b 5f 72 6f 74 22  |16,16,"back_rot"|
00005cd0  2c 6c 65 66 74 25 2c 6c  6f 77 25 2c 72 69 67 68  |,left%,low%,righ|
00005ce0  74 25 2c 68 69 67 68 25  2c 26 30 30 29 0d 02 0a  |t%,high%,&00)...|
00005cf0  05 cd 0d 02 0b 5c e7 70  69 6c 25 3a f2 70 75 74  |.....\.pil%:.put|
00005d00  5f 73 70 28 31 2b 28 74  6f 67 25 83 32 29 2c 68  |_sp(1+(tog%.2),h|
00005d10  78 25 2b 31 30 30 2c 68  79 25 2b 31 33 32 2c 36  |x%+100,hy%+132,6|
00005d20  2c 31 36 2c 31 36 2c 31  36 2c 22 70 69 6c 6f 74  |,16,16,16,"pilot|
00005d30  22 2c 6c 65 66 74 25 2c  6c 6f 77 25 2c 72 69 67  |",left%,low%,rig|
00005d40  68 74 25 2c 68 69 67 68  25 2c 26 30 30 29 0d 02  |ht%,high%,&00)..|
00005d50  0c 05 e1 0d 02 0d 04 0d  ff                       |.........|
00005d59