�>!RunImage
	�init
�
(	�menu
2� quit=�
<*FX 15,1
F� 15
P�
Z�
d:
n:
x� �init
�� 1
��
�-�1:� �6,13)"Loading Willy Please Wait..."
�0�2:� �5,15)"An Adventure Game For The Young"
�+�1:� �5,17)"   � Archimedes World 1994"
� � "Sload <Obey$Dir>.Workers"
�� objects(15,7)
�� name$(15,7)
�� choose$(15,7)
�� inventory$(16)
�� inventory(16,2)
�� background$(15,2)
�� coordinate(15,7,4)

� walk(15,7,2)

� look$(15,7)

� use(15,7,2)

"� pickup(15,7)

,� give(15,7,2)

6� talk$(15,7,2)

@� open(15,7)

J� close(15,7)

T� move(15,7)

^� run$(15)

h
quit=�

r�

|:

�:

�� �menu

�� 15

��

��  tittle%=0 � 1300 � 25

�*SCHOOSE tittle1

�� &ED,1300-tittle%,800

�*SCHOOSE tittle2

�� &ED,-920+tittle%,575

��

�*SCHOOSE tittle3

�� &ED,500,425

�� 28,19,29,70,29
�
�
*� "          1. Start Game   2. Quit";
&
done=�
0
walk=0
:�
Dwalk+=1
N� walk=9 � walk=1
X%choose$="*SCHOOSE willyr"+�(walk)
b
� choose$
l� &ED,575,102
v�=0
��
�� �(-49) � done=�
�� �(-50) �
�
quit=�
�
done=�
��
�
� �>13
�� done=�
�� quit=� � �start
��
�:
�:
�� �start
level%=1

�blank
background$(1,1)="brwall"
 background$(1,2)="brwall"
*background$(2,1)="brwall"
4background$(2,2)="backbr"
>background$(3,1)="backbr"
Hbackground$(3,2)="backbr"
Rbackground$(4,1)="brwall"
\background$(4,2)="brwall"
fbackground$(5,1)="brwall"
pbackground$(5,2)="brwall"
zbackground$(6,1)="brwall"
�background$(6,2)="backbr"
�background$(7,1)="backbr"
�background$(7,2)="brwall"
�background$(8,1)="backbr"
�background$(8,2)="brwall"
�background$(9,1)="brwall"
�background$(9,2)="brwall"
�objects(1,2)=1
�name$(1,2)="DOOR"
�choose$(1,2)="DOORL"
�open(1,2)=1
�coordinate(1,2,1)=28
�coordinate(1,2,2)=460
coordinate(1,2,3)=149
coordinate(1,2,4)=942
objects(1,3)=1
$name$(1,3)="DOORWAY"
.choose$(1,3)="DOORWAYR"
8walk(1,3,1)=2
Bwalk(1,3,2)=260
Lcoordinate(1,3,1)=1077
Vcoordinate(1,3,2)=460
`coordinate(1,3,3)=1247
jcoordinate(1,3,4)=942
tname$(1,4)="DOORWAY"
~choose$(1,4)="DOORWAYL"
�walk(1,4,1)=5
�walk(1,4,2)=879
�close(1,4)=1
�coordinate(1,4,1)=28
�coordinate(1,4,2)=460
�coordinate(1,4,3)=198
�coordinate(1,4,4)=942
�objects(1,5)=1
�name$(1,5)="LOCK"
�choose$(1,5)="LOCK"
�%look$(1,5)="IT LOOKS VERY STRONG"
�use(1,5,1)=4
use(1,5,2)=5

coordinate(1,5,1)=150
coordinate(1,5,2)=624
coordinate(1,5,3)=192
(coordinate(1,5,4)=680
2objects(1,6)=1
<name$(1,6)="LAMP"
Fchoose$(1,6)="LIGHT"
Pcoordinate(1,6,1)=215
Zcoordinate(1,6,2)=780
dcoordinate(1,6,3)=315
ncoordinate(1,6,4)=900
xobjects(2,1)=1
�name$(2,1)="DOORWAY"
�choose$(2,1)="DOORWAYL"
�walk(2,1,1)=1
�walk(2,1,2)=879
�coordinate(2,1,1)=28
�coordinate(2,1,2)=460
�coordinate(2,1,3)=198
�coordinate(2,1,4)=942
�objects(2,2)=1
�name$(2,2)=""
�choose$(2,2)="NEXTSCREEN"
�walk(2,2,1)=3
�walk(2,2,2)=260
coordinate(2,2,1)=1218
coordinate(2,2,2)=396
coordinate(2,2,3)=1280
"coordinate(2,2,4)=948
,objects(2,3)=1
6name$(2,3)="DOOR"
@choose$(2,3)="DOORT"
Jopen(2,3)=1
Tcoordinate(2,3,1)=1071
^coordinate(2,3,2)=540
hcoordinate(2,3,3)=1215
rcoordinate(2,3,4)=850
|name$(2,4)="DOORWAY"
�choose$(2,4)="DOORWAYT"
�close(2,4)=1
�walk(2,4,1)=4
�walk(2,4,2)=260
�coordinate(2,4,1)=1071
�coordinate(2,4,2)=540
�coordinate(2,4,3)=1215
�coordinate(2,4,4)=850
�objects(2,5)=1
�name$(2,5)="LAMP"
�choose$(2,5)="LIGHT"
�coordinate(2,5,1)=215
�coordinate(2,5,2)=780
coordinate(2,5,3)=315
coordinate(2,5,4)=900
objects(3,1)=1
&name$(3,1)=""
0choose$(3,1)="NEXTSCREEN"
:walk(3,1,1)=2
Dwalk(3,1,2)=879
Ncoordinate(3,1,1)=-1
Xcoordinate(3,1,2)=396
bcoordinate(3,1,3)=64
lcoordinate(3,1,4)=948
vobjects(3,2)=1
�name$(3,2)="SIGN"
�choose$(3,2)="SIGN"
�!look$(3,2)="'THE TWO SAXONS'"
�coordinate(3,2,1)=944
�coordinate(3,2,2)=810
�coordinate(3,2,3)=1044
�coordinate(3,2,4)=930
�objects(3,3)=1
�name$(3,3)="KNIGHT"
�choose$(3,3)="KNIGHT"
�look$(3,3)="HE LOOKS SAD"
�/talk$(3,3,1)="YOU LOOK SAD. WHATS UP MATE?"
�]talk$(3,3,2)="I`M IN LOVE WITH A PRINCESS BUT I`M JUST A KNIGHT. SHE COULD NEVER LOVE ME"
coordinate(3,3,1)=64
coordinate(3,3,2)=516
coordinate(3,3,3)=174
 coordinate(3,3,4)=736
*objects(3,4)=1
4name$(3,4)="DOORWAY"
>choose$(3,4)="DOORWAYT"
Hwalk(3,4,1)=6
Rwalk(3,4,2)=260
\coordinate(3,4,1)=1071
fcoordinate(3,4,2)=540
pcoordinate(3,4,3)=1215
zcoordinate(3,4,4)=850
�objects(3,5)=1
�name$(3,5)=""
�choose$(3,5)="NEXTSCREEN"
�walk(3,5,1)=8
�walk(3,5,2)=260
�coordinate(3,5,1)=1218
�coordinate(3,5,2)=396
�coordinate(3,5,3)=1280
�coordinate(3,5,4)=948
�objects(4,1)=1
�name$(4,1)="DOORWAY"
�choose$(4,1)="DOORWAYL"
�walk(4,1,1)=2
	walk(4,1,2)=879
	coordinate(4,1,1)=28
	coordinate(4,1,2)=460
	$coordinate(4,1,3)=198
	.coordinate(4,1,4)=942
	8objects(4,2)=1
	Bname$(4,2)=""
	Lchoose$(4,2)="TABLE"
	Vcoordinate(4,2,1)=1030
	`coordinate(4,2,2)=397
	jcoordinate(4,2,3)=1030
	tcoordinate(4,2,4)=397
	~objects(4,3)=1
	�name$(4,3)="BOOK"
	�choose$(4,3)="BOOK"
	�[look$(4,3)="IT LOOKS LIKE A DRUIDS SPELL BOOK. IT SAYS SPEED SPELLS, LOVE POTIONS ECT."
	�open(4,3)=1
	�close(4,3)=1
	�coordinate(4,3,1)=1135
	�coordinate(4,3,2)=515
	�coordinate(4,3,3)=1233
	�coordinate(4,3,4)=583
	�name$(4,4)="SPELL"
	�0look$(4,4)="IT`S ALL IN SOME WEIRD LANGUAGE"
	�objects(4,5)=1
name$(4,5)="ACID"

choose$(4,5)="BOTTLE"
%look$(4,5)="IT LOOKS VERY STRONG"
pickup(4,5)=1
(coordinate(4,5,1)=1072
2coordinate(4,5,2)=550
<coordinate(4,5,3)=1132
Fcoordinate(4,5,4)=625
Pname$(4,6)="BOTTLE"
Z*look$(4,6)="A BOTTLE USED FOR POTIONS"
dobjects(5,1)=1
nname$(5,1)="DOORWAY"
xchoose$(5,1)="DOORWAYR"
�walk(5,1,1)=1
�walk(5,1,2)=260
�coordinate(5,1,1)=1077
�coordinate(5,1,2)=460
�coordinate(5,1,3)=1247
�coordinate(5,1,4)=942
�objects(5,2)=1
�name$(5,2)="CABINET"
�choose$(5,2)="TABLE2"
�look$(5,2)="IT LOOKS HEAVY"
�move(5,2)=1
�use(5,2,1)=4
�use(5,2,2)=4
coordinate(5,2,1)=15
coordinate(5,2,2)=405
coordinate(5,2,3)=259
"coordinate(5,2,4)=612
,name$(5,3)="MAP"
6Clook$(5,3)="IT`S ONLY PART OF THE MAP. I NEED TO FIND THE REST"
@name$(5,4)="SPY GLASS"
J#look$(5,4)="A MAGNIFYING GLASS"
Tname$(5,5)="ROPE"
^%look$(5,5)="A LONG PIECE OF ROPE"
huse(5,5,1)=10
ruse(5,5,2)=3
|objects(6,1)=1
�name$(6,1)="DOORWAY"
�choose$(6,1)="DOORWAYL"
�walk(6,1,1)=3
�walk(6,1,2)=879
�coordinate(6,1,1)=28
�coordinate(6,1,2)=460
�coordinate(6,1,3)=198
�coordinate(6,1,4)=942
�objects(6,2)=1
�name$(6,2)=""
�choose$(6,2)="NEXTSCREEN"
�walk(6,2,1)=7
�walk(6,2,2)=260
coordinate(6,2,1)=1218
coordinate(6,2,2)=396
coordinate(6,2,3)=1280
&coordinate(6,2,4)=948
0objects(6,3)=1
:name$(6,3)=""
Dchoose$(6,3)="BAR"
Ncoordinate(6,3,1)=1043
Xcoordinate(6,3,2)=492
bcoordinate(6,3,3)=1043
lcoordinate(6,3,4)=492
vobjects(6,4)=1
�name$(6,4)="BAR TENDER"
�choose$(6,4)="TENDER"
� look$(6,4)="HE LOOKS FED UP"
�<talk$(6,4,1)="IT`S A BIT QUIET IN HERE TONIGHT ISN`T IT"
�Htalk$(6,4,2)="YEH. EVERYONES GONE LOOKING FOR THIS DRAGON AINT THEY"
�coordinate(6,4,1)=1072
�coordinate(6,4,2)=599
�coordinate(6,4,3)=1218
�coordinate(6,4,4)=766
�objects(7,1)=1
�name$(7,1)=""
�choose$(7,1)="NEXTSCREEN"
�walk(7,1,1)=6

walk(7,1,2)=879

coordinate(7,1,1)=-1

coordinate(7,1,2)=396

 coordinate(7,1,3)=64

*coordinate(7,1,4)=948

4objects(7,2)=1

>name$(7,2)=""

Hchoose$(7,2)="BAR"

Rcoordinate(7,2,1)=0

\coordinate(7,2,2)=492

fcoordinate(7,2,3)=0

pcoordinate(7,2,4)=492

zobjects(7,3)=1

�name$(7,3)="FIRE PLACE"

�choose$(7,3)="FIREPLACE"

�coordinate(7,3,1)=1080

�coordinate(7,3,2)=475

�coordinate(7,3,3)=1140

�coordinate(7,3,4)=666

�objects(7,4)=1

�name$(7,4)="COAL"

�choose$(7,4)="COAL"

�look$(7,4)="ITS VERY BLACK"

�pickup(7,4)=1

�coordinate(7,4,1)=1140

�coordinate(7,4,2)=500
coordinate(7,4,3)=1186
coordinate(7,4,4)=530
objects(8,1)=1
$name$(8,1)=""
.choose$(8,1)="NEXTSCREEN"
8walk(8,1,1)=3
Bwalk(8,1,2)=879
Lcoordinate(8,1,1)=-1
Vcoordinate(8,1,2)=396
`coordinate(8,1,3)=64
jcoordinate(8,1,4)=948
tobjects(8,2)=1
~name$(8,2)="DOOR"
�choose$(8,2)="DOORT"
�open(8,2)=1
�coordinate(8,2,1)=64
�coordinate(8,2,2)=540
�coordinate(8,2,3)=208
�coordinate(8,2,4)=850
�name$(8,3)="DOORWAY"
�choose$(8,3)="DOORWAYT"
�close(8,3)=1
�walk(8,3,1)=9
�walk(8,3,2)=260
�coordinate(8,3,1)=64
coordinate(8,3,2)=540

coordinate(8,3,3)=208
coordinate(8,3,4)=850
objects(9,1)=1
(name$(9,1)="DOORWAY"
2choose$(9,1)="DOORWAYL"
<walk(9,1,1)=8
Fwalk(9,1,2)=260
Pcoordinate(9,1,1)=28
Zcoordinate(9,1,2)=460
dcoordinate(9,1,3)=198
ncoordinate(9,1,4)=942
xobjects(9,2)=1
�name$(9,2)=""
�choose$(9,2)="TABLE"
�coordinate(9,2,1)=1030
�coordinate(9,2,2)=397
�coordinate(9,2,3)=1030
�coordinate(9,2,4)=397
�objects(9,3)=1
�name$(9,3)="PLANT"
�choose$(9,3)="PLANT"
�look$(9,3)="A PLANT"
�use(9,3,1)=5
�use(9,3,2)=4
�coordinate(9,3,1)=1080
coordinate(9,3,2)=545
coordinate(9,3,3)=1126
coordinate(9,3,4)=657
"name$(9,4)="LEAF"
,#look$(9,4)="IT`S STILL SMOKING"
6use(9,4,1)=4
@use(9,4,2)=6
Jobjects(9,5)=1
Tname$(9,5)="SKYLIGHT"
^choose$(9,5)="SKYLIGHT"
hcoordinate(9,5,1)=700
rcoordinate(9,5,2)=819
|coordinate(9,5,3)=900
�coordinate(9,5,4)=959
�	�game
�level%=2
�� exit=� �
�
�blank
�� 15
��
��message$="SO YOU AND MIC THE BAR TENDER SET OFF IN A BOAT FOR THE ISLAND. AFTER A FEW DAYS AT SEA YOU REACH YOUR DESTINATION. UNFORTUNATELY THE LOCAL NATIVES DO NOT       APPRECIATE YOUR PRESENCE AND THEY THROW YOU BOTH IN CELLS."
�� show%=1 � �(message$)
�� �message$,show%,1);
��=0
�(� �message$,show%,1)<>" " � � � �>11
��
�=0

� � �>400
inventory$(1)="ROPE"
&inventory(1,1)=5
0inventory(1,2)=5
:%look$(5,5)="A LONG PIECE OF ROPE"
Duse(5,5,1)=10
Nuse(5,5,2)=3
Xbackground$(10,1)="brwall"
bbackground$(10,2)="brwall"
lbackground$(11,1)="brwall"
vbackground$(11,2)="backbr"
�background$(12,1)="backbr"
�background$(12,2)="backbr"
�background$(13,1)="brwall"
�background$(13,2)="brwall"
�background$(14,1)="backbr"
�background$(14,2)="backbr"
�objects(10,1)=1
�name$(10,1)="WINDOW"
�choose$(10,1)="WINDOW"
�'look$(10,1)="I CAN`T QUITE SEE OUT"
�coordinate(10,1,1)=1070
�coordinate(10,1,2)=730
�coordinate(10,1,3)=1240
coordinate(10,1,4)=949
use(10,1,1)=10
use(10,1,2)=4
 objects(10,2)=1
*name$(10,2)="DOOR"
4choose$(10,2)="DOORL"
>open(10,2)=1
Hcoordinate(10,2,1)=28
Rcoordinate(10,2,2)=460
\coordinate(10,2,3)=198
fcoordinate(10,2,4)=942
pobjects(10,3)=1
zname$(10,3)="BRICK"
�choose$(10,3)="BRICK"
�!look$(10,3)="IT LOOKS STRONG"
�pickup(10,3)=1
�use(10,3,1)=5
�use(10,3,2)=5
�coordinate(10,3,1)=1180
�coordinate(10,3,2)=525
�coordinate(10,3,3)=1252
�coordinate(10,3,4)=605
�name$(10,4)="ROPE N BRICK"
�3look$(10,4)="THE ROPE IS TIED AROUND THE BRICK"
�objects(11,1)=1
�name$(11,1)="BAR"
choose$(11,1)="BARS"
+look$(11,1)="IT FELL OUT OF THE WINDOW"
pickup(11,1)=1
$use(11,1,1)=12
.use(11,1,2)=5
8coordinate(11,1,1)=100
Bcoordinate(11,1,2)=450
Lcoordinate(11,1,3)=172
Vcoordinate(11,1,4)=490
`objects(11,2)=1
jname$(11,2)="ROPE"
tchoose$(11,2)="ROPE"
~1look$(11,2)="IT`S STILL ATACHED TO THE BRICK"
�use(11,2,1)=12
�use(11,2,2)=3
�coordinate(11,2,1)=120
�coordinate(11,2,2)=557
�coordinate(11,2,3)=139
�coordinate(11,2,4)=955
�objects(11,3)=1
�name$(11,3)="LAMP"
�choose$(11,3)="LIGHT"
�coordinate(11,3,1)=215
�coordinate(11,3,2)=780
�coordinate(11,3,3)=315
coordinate(11,3,4)=900

objects(11,4)=1
name$(11,4)=""
choose$(11,4)="NEXTSCREEN"
(walk(11,4,1)=12
2walk(11,4,2)=260
<coordinate(11,4,1)=1218
Fcoordinate(11,4,2)=396
Pcoordinate(11,4,3)=1280
Zcoordinate(11,4,4)=948
dobjects(12,1)=1
nname$(12,1)="DOOR"
xchoose$(12,1)="DOORT"
�open(12,1)=1
�coordinate(12,1,1)=64
�coordinate(12,1,2)=540
�coordinate(12,1,3)=208
�coordinate(12,1,4)=850
�name$(12,2)="DOORWAY"
�choose$(12,2)="DOORWAYT"
�close(12,2)=1
�walk(12,2,1)=13
�walk(12,2,2)=260
�coordinate(12,2,1)=64
�coordinate(12,2,2)=540
�coordinate(12,2,3)=208
coordinate(12,2,4)=850
objects(12,3)=1
name$(12,3)="FLINT"
"choose$(12,3)="FLINT"
,look$(12,3)="IT`S SHARP"
6pickup(12,3)=1
@coordinate(12,3,1)=1100
Jcoordinate(12,3,2)=500
Tcoordinate(12,3,3)=1128
^coordinate(12,3,4)=540
hobjects(12,4)=1
rname$(12,4)=""
|choose$(12,4)="NEXTSCREEN"
�walk(12,4,1)=11
�walk(12,4,2)=879
�coordinate(12,4,1)=-1
�coordinate(12,4,2)=396
�coordinate(12,4,3)=64
�coordinate(12,4,4)=948
�name$(12,5)="ROPE"
�)look$(12,5)="A SHORTER PIECE OF ROPE"
�use(12,5,1)=11
�use(12,5,2)=1
�name$(12,6)="ROPE N BAR"
�<look$(12,6)="THE ROPE IS TIED AROUND THE END OF THE BAR"
�objects(12,7)=1
name$(12,7)=""
choose$(12,7)="NEXTSCREEN"
walk(12,7,1)=14
&walk(12,7,2)=260
0coordinate(12,7,1)=1218
:coordinate(12,7,2)=396
Dcoordinate(12,7,3)=1280
Ncoordinate(12,7,4)=948
Xobjects(13,1)=1
bname$(13,1)="DOORWAY"
lchoose$(13,1)="DOORWAYL"
vwalk(13,1,1)=12
�walk(13,1,2)=260
�coordinate(13,1,1)=28
�coordinate(13,1,2)=460
�coordinate(13,1,3)=198
�coordinate(13,1,4)=942
�objects(13,2)=1
�name$(13,2)="DRUID"
�choose$(13,2)="DRUID"
�*look$(13,2)="HE LOOKS DEEP IN THOUGHT"
�Utalk$(13,2,1)="I NEED YOUR HELP TO GET RID OF A DRAGON. CAN YOU GIVE ME A SPELL?"
�Rtalk$(13,2,2)="IF YOU WANT A SPELL YOU MUST BRING ME PART OF THE DRAGONS BODY"
�coordinate(13,2,1)=1065
�coordinate(13,2,2)=460
coordinate(13,2,3)=1167
coordinate(13,2,4)=699
objects(14,1)=1
 name$(14,1)="DRAGON"
*choose$(14,1)="DRAGON"
4look$(14,1)="HE`S ASLEEP"
>use(14,1,1)=14
Huse(14,1,2)=3
Rcoordinate(14,1,1)=1033
\coordinate(14,1,2)=400
fcoordinate(14,1,3)=1250
pcoordinate(14,1,4)=607
zobjects(14,2)=1
�name$(14,2)="SCALE"
�choose$(14,2)="SCALE"
�look$(14,2)="A GREEN SCALE"
�give(14,2,1)=13
�give(14,2,2)=2
�use(14,2,1)=12
�use(14,2,2)=6
�coordinate(14,2,1)=1251
�coordinate(14,2,2)=555
�coordinate(14,2,3)=1279
�coordinate(14,2,4)=595
�name$(14,3)="SPELL"
�7look$(14,3)="IT`S A SPELL TO GET RID OF THE DRAGON"
objects(14,4)=1
name$(14,4)=""
choose$(14,4)="NEXTSCREEN"
$walk(14,4,1)=12
.walk(14,4,2)=879
8coordinate(14,4,1)=-1
Bcoordinate(14,4,2)=396
Lcoordinate(14,4,3)=64
Vcoordinate(14,4,4)=948
`	�game
j�
t� exit=� � �win
~�
�:
�:
�� �blank
�� setarea=1 � 15
�� setobject=1 � 7
�� co=1 � 4
�&coordinate(setarea,setobject,co)=0
��
� objects(setarea,setobject)=0
�walk(setarea,setobject,1)=0
�!talk$(setarea,setobject,1)=""
�!talk$(setarea,setobject,2)=""
use(setarea,setobject,1)=0

open(setarea,setobject)=0
close(setarea,setobject)=0
give(setarea,setobject,1)=0
(move(setarea,setobject)=0
2pickup(setarea,setobject)=0
<�
F�
P!� level%=1 � area=1 � area=10
Z	x=500
d	y=450
ndirection=1
xold$=""
�
gots=�
�completed=�
�
exit=�
�
map%=0
�
potion%=0
�� blank=1 � 16
�inventory$(blank)=""
�inventory(blank,1)=0
�inventory(blank,2)=0
��
��
�:
�:

� �win
� 15
�
"�message$="YOU START YOUR LONG JOURNEY HOME. NEWS REACHES THE KING OF YOUR TRIUMPH OVER THEDRAGON AND YOU ARRIVE HOME TO A BIG RECEPTION. YOU ARE TO BE KNIGHTED BY THE KING  AND BECOME ONE OF HIS PERSONAL GUARDS."
,� show%=1 � �(message$)
6� �message$,show%,1);
@�=0
J(� �message$,show%,1)<>" " � � � �>11
T�
^�=0
h
� � �>400
r� 15
|�
�*SCHOOSE willyr
�� &ED,1000,300
�� �61,12)"I KNIGHT THE"
��=0
�
� � �>400
�*SCHOOSE arm
�	� 8,0
�� &ED,1000,435
�� �61,12)" SIR WILLY  "
��=0
�
� � �>400
��
�*SCHOOSE willyr
� &ED,1000,300
�=0
� � �>30
&�
0*SCHOOSE arm
:	� 8,0
D� &ED,1000,435
N*SCHOOSE willyr
X� &ED,1000,300
b � �59,12)"THE DRAGON KILLER"
l�=0
v
� � �>600
�� 1
��
�� �13,14)"WILLY SUCCEEDED"
��=0
�
� � �>500
��
�:
�:
�� �game
�
�build
�*POINTER 1
��
�ȗ a,b,c,d
0� a>532 � a<800 � b>0 � b<108 � c=4 � exit=�
/� a>0 � a<270 � b>230 � b<350 � c=4 � �look
1� a>532 � a<800 � b>108 � b<228 � c=4 � �move
 1� a>268 � a<532 � b>0 � b<108 � c=4 � �pickup
*/� a>0 � a<268 � b>108 � b<228 � c=4 � �open
4.� a>0 � a<268 � b>0 � b<108 � c=4 � �close
>1� a>268 � a<532 � b>230 � b<350 � c=4 � �talk
H1� a>268 � a<532 � b>108 � b<228 � c=4 � �give
R0� a>532 � a<800 � b>230 � b<350 � c=4 � �use
\� b>395 � b<959 �
fmoved=�
pcount=0
z�
�count+=1
�
over=�
��� a>coordinate(area,count,1) � a<coordinate(area,count,3) � b>coordinate(area,count,2) � b<coordinate(area,count,4) � objects(area,count)=1 � over=�
�print$="WALK TO "
�� over=� �
�#print$=print$+name$(area,count)
�� c=4 �
�	�walk
�moved=�
�� walk(area,count,1)<>0 �
�x=walk(area,count,2)
�area=walk(area,count,1)
�(� x<500 � direction=1 � direction=-1

�build
�
�
$�
.� count=7 � over=�
8� moved=� � c=4 � �walk
B�
L(� b<=395 � b>=959 � print$="WALK TO"
V� print$<>old$ �
`� ""
j
� print$;
t�
~old$=print$
�� direction=1 �
�*SCHOOSE willyr
��
�*SCHOOSE willyl
��
�� 63
�
� &ED,x,y
�%� level%=1 � map%=3 � completed=�
�� completed=� � exit=�
��
�:
�:
� �look

� ""
old$=""
� "LOOK AT ";
(�=0
2� � �>50
<�
Fȗ a,b,c,d
Pprint$="LOOK AT"
Z� b>395 � b<959 �
d� check=1 � 7
n
over=�
x�� a>coordinate(area,check,1) � a<coordinate(area,check,3) � b>coordinate(area,check,2) � b<coordinate(area,check,4) � objects(area,check)=1 � over=�
�� over=� �
�'print$="LOOK AT "+name$(area,check)
�� c=4 �
�	�walk
�L� look$(area,check)="" � say$="NOTHING SPECIAL" � say$=look$(area,check)
��say
��
��
��
��
�� invencheck=1 � 8
�clickedon=0
�a� a>799 � a<1039 � b>320-(invencheck*32.5) � b<352.5-(invencheck*32.5) � clickedon=invencheck
d� a>1039 � a<1279 � b>320-(invencheck*32.5) � b<352.5-(invencheck*32.5) � clickedon=invencheck+8
� clickedon<>0 �
!� inventory(clickedon,1)<>0 �
"Jprint$="LOOK AT "+name$(inventory(clickedon,1),inventory(clickedon,2))
,� c=4 �
6=say$=look$(inventory(clickedon,1),inventory(clickedon,2))
@�say
J�
T�
^�
h�
r�
|� print$<>old$ �
�� ""
�
� print$;
�old$=print$
��
�	� c=4
�c=0
�print$="WALK TO "
�� ""
�� "WALK TO";
��
�:
�:
�� �move
 � ""
 old$=""
 
� "MOVE";
 &�=0
 0� � �>50
 :�
 Dȗ a,b,c,d
 Nprint$="MOVE"
 X� b>395 � b<959 �
 b� check=1 � 7
 l
over=�
 v�� a>coordinate(area,check,1) � a<coordinate(area,check,3) � b>coordinate(area,check,2) � b<coordinate(area,check,4) � objects(area,check)=1 � over=�
 �� over=� �
 �$print$="MOVE "+name$(area,check)
 �� c=4 �
 �	�walk
 �� move(area,check)=1 �
 �� area=5 � check=2 �
 �5say$="I CAN`T QUITE FIND THE STRENGTH TO LIFT IT"
 ��say
 ��
 ��
 � say$="I DON`T SEE THE POINT"
 ��say
 ��
!�
!�
!�
! �
!*� print$<>old$ �
!4� ""
!>
� print$;
!H�
!Rold$=print$
!\	� c=4
!fc=0
!p�
!z:
!�:
!�
� �pickup
!�� ""
!�old$=""
!�� "PICK UP";
!��=0
!�� � �>50
!��
!�ȗ a,b,c,d
!�print$="PICK UP"
!�� b>359 � b<959 �
!�� check=1 � 7
!�
over=�
"�� a>coordinate(area,check,1) � a<coordinate(area,check,3) � b>coordinate(area,check,2) � b<coordinate(area,check,4) � objects(area,check)=1 � over=�
"� over=� �
"'print$="PICK UP "+name$(area,check)
"$� c=4 �
".	�walk
"8� pickup(area,check)=1 �
"Bobjects(area,check)=0
"Ltarea=area
"Vtcheck=check
"`	�take
"j�update
"t� area=7 � check=4 �
"~use(7,4,1)=4
"�use(7,4,2)=6
"��
"��
"�say$="I DON`T WANT IT"
"�F� area=11 � check=2 � say$="I CAN`T. IT`S STILL TIED TO THE BRICK"
"�?� area=14 � check=2 � say$="I`M NOT GOING NEAR THAT DRAGON"
"��say
"��
"��
"��
"��
"��
#� print$<>old$ �
#
� ""
#
� print$;
#�
#(old$=print$
#2	� c=4
#<c=0
#F�
#P:
#Z:
#d� �open
#ndo=�
#x� ""
#�old$=""
#�
� "OPEN";
#��=0
#�� � �>50
#��
#�ȗ a,b,c,d
#�print$="OPEN"
#�� b>395 � b<959 �
#�� check=1 � 7
#�
over=�
#�� a>coordinate(area,check,1) � a<coordinate(area,check,3) � b>coordinate(area,check,2) � b<coordinate(area,check,4) � objects(area,check)=1 � over=�
#�� over=� � do=� �
#�$print$="OPEN "+name$(area,check)
$� c=4 �
$	�walk
$� open(area,check)=1 �
$"� area=1 � check=2 �
$,� objects(1,5)=1 �
$6say$="IT`S LOCKED"
$@�say
$J�
$Tobjects(1,2)=0
$^objects(1,4)=1
$hdo=�
$r�update
$|�
$��
$�� area=2 � check=3 �
$�objects(2,3)=0
$�objects(2,4)=1
$��update
$�do=�
$��
$�� area=8 � check=2 �
$�objects(8,2)=0
$�objects(8,3)=1
$��update
$�do=�
$��
%� area=4 � check=3 �
%8say$="WHAT TYPE OF SPELL DO YOU WANT ME TO LOOK UP?"
%�say
%&�
%0�
%:*FX 15,1
%D� spell$
%N�
%X"say$="I CAN`T FIND THAT SPELL"
%bS� spell$="LOVE" � spell$="love" � spell$="LOVE POTION" � spell$="love potion" �
%lSsay$="IT`S A POTION. YOU NEED SOME CARBON AND A LEAF FROM A BURNING FIRE PLANT"
%vNlook$(9,3)="WELL IT`S A PLANT BUT I DON`T THINK IT`S A BURNING FIRE PLANT"
%��
%�a� spell$="STRENGTH" � spell$="strength" � spell$="STRENGTH SPELL" � spell$="strength spell" �
%�� gots=� �
%�-say$="HERE IT IS. I`LL TEAR OUT THE PAGE"
%�tarea=4
%�tcheck=4
%�	�take
%�
gots=�
%��
%��
%�x� spell$="SPEED" � spell$="speed" � spell$="SPEED SPELL" � spell$="speed spell" � say$="THAT PAGE HAS BEEN TORN OUT"
%��say
%��
&� area=10 � check=2 �
&'say$="IT`S LOCKED FROM THE OUTSIDE"
&�say
& �
&*� area=12 � check=1 �
&4objects(12,1)=0
&>objects(12,2)=1
&H�update
&Rdo=�
&\�
&f�
&psay$="I CAN`T OPEN IT"
&z�say
&��
&��
&��
&��
&��
&�� print$<>old$ �
&�� ""
&�
� print$;
&��
&�old$=print$
&�	� c=4
&�c=0
&��
':
':
'� �close
'$do=�
'.� ""
'8old$=""
'B� "CLOSE";
'L�=0
'V� � �>50
'`�
'jȗ a,b,c,d
'tprint$="CLOSE"
'~� b>395 � b<959 �
'�� check=1 � 7
'�
over=�
'��� a>coordinate(area,check,1) � a<coordinate(area,check,3) � b>coordinate(area,check,2) � b<coordinate(area,check,4) � objects(area,check)=1 � over=�
'�� over=� � do=� �
'�%print$="CLOSE "+name$(area,check)
'�� c=4 �
'�	�walk
'�� close(area,check)=1 �
'�� area=2 � check=4 �
'�objects(2,4)=0
'�objects(2,3)=1
'��update
(do=�
(
�
(� area=8 � check=3 �
(objects(8,3)=0
((objects(8,2)=1
(2�update
(<do=�
(F�
(P� area=1 � check=4 �
(Zobjects(1,4)=0
(dobjects(1,2)=1
(n�update
(xdo=�
(��
(�� area=12 � check=2 �
(�objects(12,2)=0
(�objects(12,1)=1
(��update
(�do=�
(��
(��
(�say$="I CAN`T CLOSE IT"
(��say
(��
(��
(��
)�
)�
)� print$<>old$ �
)"� ""
),
� print$;
)6�
)@old$=print$
)J	� c=4
)Tc=0
)^�
)h:
)r:
)|� �talk
)�� ""
)�old$=""
)�� "TALK TO ";
)��=0
)�� � �>50
)��
)�ȗ a,b,c,d
)�print$="TALK TO"
)�� b>395 � b<959 �
)�� check=1 � 7
)�
over=�
)�� a>coordinate(area,check,1) � a<coordinate(area,check,3) � b>coordinate(area,check,2) � b<coordinate(area,check,4) � objects(area,check)=1 � over=�
)�� over=� �
*'print$="TALK TO "+name$(area,check)
*� c=4 �
*	�walk
*&� talk$(area,check,1)="" �
*0-say$="HMM THERES NO ANSWER, STRANGE THAT"
*:�say
*D�
*Nsay$=talk$(area,check,1)
*X	�says
*b� 31
*lsay$=talk$(area,check,2)
*v	�says
*�� 63
*�� area=6 � check=4 �
*�9talk$(6,4,1)="WHY AREN`T YOU LOOKING FOR THE DRAGON?"
*�Mtalk$(6,4,2)="I`VE ONLY GOT PART OF THE MAP I`LL NEVER FIND MY WAY THERE"
*��
*��
*��
*��
*��
*��
*�� print$<>old$ �
*�� ""
*�
� print$;
+old$=print$
+�
+	� c=4
+ c=0
+*print$="WALK TO "
+4� ""
+>� "WALK TO";
+H�
+R:
+\:
+f� �give
+p� ""
+zold$=""
+�� "GIVE ";
+��=0
+�� � �>50
+�garea=0
+�
gnumber=0
+��
+�ȗ a,b,c,d
+�print$="GIVE"
+�� invencheck=1 � 8
+�clickedon=0
+�a� a>799 � a<1039 � b>320-(invencheck*32.5) � b<352.5-(invencheck*32.5) � clickedon=invencheck
+�d� a>1039 � a<1279 � b>320-(invencheck*32.5) � b<352.5-(invencheck*32.5) � clickedon=invencheck+8
+�� clickedon<>0 �
,!� inventory(clickedon,1)<>0 �
,Gprint$="GIVE "+name$(inventory(clickedon,1),inventory(clickedon,2))
,� c=4 �
,$print$=print$+" TO "
,.� print$
,8 garea=inventory(clickedon,1)
,B"gnumber=inventory(clickedon,2)
,Linumber=clickedon
,V�
,`�
,j�
,t�
,~� print$<>old$ �
,�� ""
,�
� print$;
,�old$=print$
,��
,�	� c=4
,�� garea<>0 �
,��=0
,�� � �>50
,�was$=print$
,��
,�print$=was$
,�ȗ a,b,c,d
-� b>395 � b<959 �
-
� check=1 � 7
-
over=�
-�� a>coordinate(area,check,1) � a<coordinate(area,check,3) � b>coordinate(area,check,2) � b<coordinate(area,check,4) � objects(area,check)=1 � over=�
-(� over=� �
-2#print$=print$+name$(area,check)
-<� c=4 �
-F	�walk
-P@� give(garea,gnumber,1)=area � give(garea,gnumber,2)=check �
-Zinventory$(inumber)=""
-dinventory(inumber,1)=0
-ninventory(inumber,2)=0
-x� garea=4 � gnumber=6 �
-�map%+=1
-�� map%=1 �
-�tarea=5
-�tcheck=3
-�	�take
-��
-�give(5,3,1)=6
-�give(5,3,2)=4
-�;look$(5,3)="I THINK THERES ONLY ONE MORE PIECE TO FIND"
-��
-�Msay$="HERE YOU ARE THIS WILL SOLVE ALL YOUR PROBLEMS. IT`S A LOVE POTION"
-�	�says
-�Ssay$="THANKS. HERE I JUST HAPPEN TO HAVE A PIECE  OF THAT MAP YOUR LOOKING FOR"
.� 31
.	�says
.� 63
."objects(3,3)=0
.,�update
.6�
.@� garea=5 � gnumber=3 �
.Jmap%+=1
.TJsay$="WOW I`VE GOT ALL OF THE MAP NOW. WE CAN TEAM UP AND GO TOGETHER"
.^� 31
.h	�says
.rsay$="OK LETS GO"
.|� 63
.�	�says
.��
.�� garea=14 � gnumber=2 �
.�9say$="HERE YOU GO I`VE GOT ONE OF THE DRAGONS SCALES"
.�	�says
.�-say$="THAT`LL DO. I`LL WRITE OUT A SPELL"
.�� 31
.�	�says
.�+talk$(13,2,1)="HOW DO I USE THE SPELL?"
.�$talk$(13,2,2)="JUST READ IT OUT"
.�tarea=14
.�tcheck=3
.�	�take
/�update
/�
/�
/&say$="I DON`T WANT TO"
/0�say
/:�
/D�
/N�
/X�
/b�
/l� print$<>old$ �
/v� ""
/�
� print$;
/��
/�old$=print$
/�	� c=4
/��
/�c=0
/�print$="WALK TO "
/�� ""
/�� "WALK TO";
/��
/�:
/�:
/�
� �use
0� ""
0old$=""
0
� "USE ";
0 �=0
0*� � �>50
04uarea=0
0>
unumber=0
0H�
0Rȗ a,b,c,d
0\print$="USE"
0f� invencheck=1 � 8
0pclickedon=0
0za� a>799 � a<1039 � b>320-(invencheck*32.5) � b<352.5-(invencheck*32.5) � clickedon=invencheck
0�d� a>1039 � a<1279 � b>320-(invencheck*32.5) � b<352.5-(invencheck*32.5) � clickedon=invencheck+8
0�� clickedon<>0 �
0�!� inventory(clickedon,1)<>0 �
0�Fprint$="USE "+name$(inventory(clickedon,1),inventory(clickedon,2))
0�� c=4 �
0�print$=print$+" WITH "
0�� print$
0� uarea=inventory(clickedon,1)
0�"unumber=inventory(clickedon,2)
0�inumber=invencheck
0��
0��
0��
1�
1� print$<>old$ �
1� ""
1$
� print$;
1.old$=print$
18�
1B	� c=4
1L� uarea<>0 �
1V�=0
1`� � �>50
1jwas$=print$
1t�
1~print$=was$
1�ȗ a,b,c,d
1�� b>395 � b<959 �
1�� check=1 � 7
1�
over=�
1��� a>coordinate(area,check,1) � a<coordinate(area,check,3) � b>coordinate(area,check,2) � b<coordinate(area,check,4) � objects(area,check)=1 � over=�
1�� over=� �
1�#print$=print$+name$(area,check)
1�� c=4 �
1�	�walk
1�;� use(area,check,1)=uarea � use(area,check,2)=unumber �
1�inventory$(inumber)=""
1�inventory(inumber,1)=0
2inventory(inumber,2)=0
2
� uarea=4 � unumber=5 �
2objects(1,5)=0
2tarea=4
2(tcheck=6
22	�take
2<�update
2F(say$="THE ACIDS BURNT THE LOCK AWAY"
2P�say
2Z�
2d� uarea=4 � unumber=4 �
2nmap%+=1
2x� map%=1 �
2�tarea=5
2�tcheck=3
2�	�take
2��
2�give(5,3,1)=6
2�give(5,3,2)=4
2�;look$(5,3)="I THINK THERES ONLY ONE MORE PIECE TO FIND"
2��
2�tarea=5
2�tcheck=4
2�	�take
2�tarea=5
2�tcheck=5
3	�take
3Usay$="I CAN LIFT THE CABINET WITH EASE. I`VE FOUND A PIECE OF THE MAP UNDERNEATH"
3�say
3":say$="I`VE ALSO FOUND A PIECE OF ROPE AND A SPY GLASS"
3,�say
36�
3@� uarea=5  � unumber=4 �
3Jtarea=9
3Ttcheck=4
3^	�take
3h3say$="A LEAF HAS CAUGHT FIRE. I`LL PICK IT OFF"
3r�say
3|�
3�� uarea=10 � unumber=4 �
3�=say$="THE BRICK HAS CAUGHT ON THE WINDOW. I`LL CLIMB OUT"
3��say
3�area=11
3�	x=260
3�
�build
3��
3�� uarea=12 � unumber=3 �
3�-say$="THE FLINT CAN CUT THROUGH THE ROPE"
3��say
3�tarea=12
3�tcheck=5
3�objects(11,2)=0
4	�take
4�update
4�
4&� uarea=12 � unumber=6 �
40Esay$="I`LL TIE A KNOT IN THE END AND HOOK THE SCALE OFF HIS BACK"
4:�say
4Dtarea=14
4Ntcheck=2
4Xobjects(14,2)=0
4b	�take
4l�update
4v�
4�� uarea=14 � unumber=3 �
4�print$="WALK TO"
4�objects(14,1)=0
4��update
4�objects(14,1)=1
4��update
4�objects(14,1)=0
4��update
4�*SCHOOSE willyr
4�� 63
4�
� &ED,x,y
4��=0
4�
� � �>300
5say$="I`VE DONE IT."
5�say
5Isay$="I`VE KILLED THE DRAGON. I CAN BECOME ONE OF THE KINGS KNIGHTS!"
5 �say
5*�=0
54
� � �>250
5>a=0
5H	�walk
5Rcompleted=�
5\�
5f�
5psay$="NOTHING HAPPENED"
5z�say
5��
5��
5��
5��
5��
5�� invencheck=1 � 8
5�clickedon=0
5�a� a>799 � a<1039 � b>320-(invencheck*32.5) � b<352.5-(invencheck*32.5) � clickedon=invencheck
5�d� a>1039 � a<1279 � b>320-(invencheck*32.5) � b<352.5-(invencheck*32.5) � clickedon=invencheck+8
5�� clickedon<>0 �
5�!� inventory(clickedon,1)<>0 �
5�Fprint$=print$+name$(inventory(clickedon,1),inventory(clickedon,2))
5�� c=4 �
6a� use(uarea,unumber,1)=inventory(clickedon,1) � use(uarea,unumber,2)=inventory(clickedon,2) �
6inventory$(inumber)=""
6inventory(inumber,1)=0
6$inventory(inumber,2)=0
6.� uarea=9 � unumber=4 �
68	�redo
6Bpotion%+=1
6L#say$="I`LL JUST PUT IT IN HERE"
6V�say
6`� potion%=2 �
6jgive(4,6,1)=3
6tgive(4,6,2)=3
6~�
6��
6�� uarea=7 � unumber=4 �
6�	�redo
6�potion%+=1
6�#say$="I`LL JUST PUT IT IN HERE"
6��say
6�� potion%=2 �
6�give(4,6,1)=3
6�give(4,6,2)=3
6��
6��
6�� uarea=5 � unumber=5 �
7inventory$(2)=""
7
inventory(2,1)=0
7inventory(2,2)=0
7tarea=10
7(tcheck=4
72	�take
7<)say$="I`LL TIE THE ROPE TO THE BRICK"
7F�say
7P�
7Z� uarea=10 � unumber=3 �
7dinventory$(1)=""
7ninventory(1,1)=0
7xinventory(1,2)=0
7�tarea=10
7�tcheck=4
7�	�take
7�)say$="I`LL TIE THE ROPE TO THE BRICK"
7��say
7��
7�� uarea=11 � unumber=1 �
7�� rid=1 � 16
7�� inventory$(rid)="ROPE" �
7�inventory$(rid)=""
7�inventory(rid,1)=0
7�inventory(rid,2)=0
7��
8�
8tarea=12
8tcheck=6
8"	�take
8,'say$="I`LL TIE THE ROPE TO THE BAR"
86�say
8@�
8J� uarea=12 � unumber=5 �
8T� rid=1 � 16
8^� inventory$(rid)="BAR" �
8hinventory$(rid)=""
8rinventory(rid,1)=0
8|inventory(rid,2)=0
8��
8��
8�tarea=12
8�tcheck=6
8�	�take
8�'say$="I`LL TIE THE ROPE TO THE BAR"
8��say
8��
8��
8�say$="NOTHING HAPPENED"
8��say
8��
8��
9�
9�
9�
9&�
90� print$<>old$ �
9:� ""
9D
� print$;
9N�
9Xold$=print$
9b	� c=4
9l�
9vc=0
9�print$="WALK TO "
9�� ""
9�� "WALK TO";
9��
9�:
9�:
9�
� �say
9�*POINTER 0
9�� 28,3,1,76,1
9��
9��
9�gap=�(say$)*12+150
9�
said=�
:� say$;
:�=0
:�
: � direction=1 �
:**SCHOOSE willyrt1
:4�
:>*SCHOOSE willylt1
:H�
:R
� &ED,x,y
:\wait%=�
:fsay%=�(60)+10
:p�
:z� �>wait%+say%
:�� direction=1 �
:�*SCHOOSE willyrt2
:��
:�*SCHOOSE willylt2
:��
:�
� &ED,x,y
:�wait%=�
:�say%=�(60)+10
:��
:�� �>gap � said=�
:�� �>wait%+say%
:�� said=�
:��
;�
;� 28,3,20,40,20
;�
;$�
;.
� print$;
;8*POINTER 1
;B�
;L:
;V:
;`� �says
;j*POINTER 0
;t� direction=1 �
;~*SCHOOSE willyr
;��
;�*SCHOOSE willyl
;��
;�
� &ED,x,y
;�� 28,3,1,76,1
;��
;��
;�gap=�(say$)*12+150
;�� say$;
;��=0
;�
� � �>gap
;��
<�
<
� 28,3,20,40,20
<�
<�
<(� 63
<2
� print$;
<<*POINTER 1
<F�
<P:
<Z:
<d� �build
<n� 15
<x�
<�*SCHOOSE options
<�
� &ED,0,0
<�*SCHOOSE optionbar
<�� &ED,0,959
<��update
<�*POINTER 1
<��
<�:
<�:
<�� �redo
<�� move=1 � 15
<�� inventory$(move)="" �
<�'inventory$(move)=inventory$(move+1)
=inventory$(move+1)=""
=)inventory(move,1)=inventory(move+1,1)
=inventory(move+1,1)=0
=")inventory(move,2)=inventory(move+1,2)
=,inventory(move+1,2)=0
=6�
=@�
=J� 28,50,30,78,22
=T�
=^�
=h� print=1 � 16
=r � print<9 � left=1 � left=16
=|down=print-1
=�� print>8 � down-=8
=�"� �left,down)inventory$(print)
=��
=�� 28,3,20,40,20
=��
=��
=�� "WALK TO";
=��
=�:
=�:
=�
� �update
=�	�redo
=�/choose$="*SCHOOSE left"+background$(area,1)
>
� choose$
>� &ED,0,397
>0choose$="*SCHOOSE right"+background$(area,2)
>&
� choose$
>0� &ED,1030,397
>:� object=1 � 7
>D� objects(area,object)=1 �
>N,choose$="*SCHOOSE "+choose$(area,object)
>X
� choose$
>b	� 8,0
>l=� &ED,coordinate(area,object,1),coordinate(area,object,2)
>v�
>��
>��
>�:
>�:
>�� �take
>�count=0
>��
>�count+=1
>�
done=�
>�� inventory$(count)="" �
>�
done=�
>�)inventory$(count)=name$(tarea,tcheck)
>�inventory(count,1)=tarea
?inventory(count,2)=tcheck
?�
?� done=�
? 	�redo
?*�
?4:
?>:
?H� �walk
?R
walk=�
?\� a<x �
?f
� x=260 �
?p
walk=�
?zdirection=-1
?��
?��
?�
� x=879 �
?�
walk=�
?�direction=1
?��
?��
?�� walk=� �
?�*POINTER 0
?�	was=a
?�� a<260 � a=260
?�� a>1029 � a=1029
?�� a<(x-10) �
@direction=-1
@� walk=x � a � -17
@� walk<a � walk=a
@$
x=walk
@.modded=(walk � 8)
@8)choose$="*SCHOOSE willyl"+�(8-modded)
@B
� choose$
@L� 63
@V
� &ED,x,y
@`�=0
@j� � �>7
@t�
@~x=a
@��
@�� a>(x+150) �
@�direction=1
@�� walk=x � a-150 � 17
@�
x=walk
@�modded=(walk � 8)+1
@�'choose$="*SCHOOSE willyr"+�(modded)
@�
� choose$
@�� 63
@�
� &ED,x,y
@��=0
@�� � �>7
A�
A
x=a-150
A�
A*POINTER 1
A(�
A2�
�

00000000  0d 00 0a 0f f4 3e 21 52  75 6e 49 6d 61 67 65 0d  |.....>!RunImage.|
00000010  00 14 09 f2 69 6e 69 74  0d 00 1e 05 f5 0d 00 28  |....init.......(|
00000020  09 f2 6d 65 6e 75 0d 00  32 0c fd 20 71 75 69 74  |..menu..2.. quit|
00000030  3d b9 0d 00 3c 0c 2a 46  58 20 31 35 2c 31 0d 00  |=...<.*FX 15,1..|
00000040  46 08 eb 20 31 35 0d 00  50 05 87 0d 00 5a 05 e0  |F.. 15..P....Z..|
00000050  0d 00 64 05 3a 0d 00 6e  05 3a 0d 00 78 0b dd 20  |..d.:..n.:..x.. |
00000060  f2 69 6e 69 74 0d 00 82  07 eb 20 31 0d 00 8c 05  |.init..... 1....|
00000070  87 0d 00 96 2d fb 31 3a  f1 20 8a 36 2c 31 33 29  |....-.1:. .6,13)|
00000080  22 4c 6f 61 64 69 6e 67  20 57 69 6c 6c 79 20 50  |"Loading Willy P|
00000090  6c 65 61 73 65 20 57 61  69 74 2e 2e 2e 22 0d 00  |lease Wait..."..|
000000a0  a0 30 fb 32 3a f1 20 8a  35 2c 31 35 29 22 41 6e  |.0.2:. .5,15)"An|
000000b0  20 41 64 76 65 6e 74 75  72 65 20 47 61 6d 65 20  | Adventure Game |
000000c0  46 6f 72 20 54 68 65 20  59 6f 75 6e 67 22 0d 00  |For The Young"..|
000000d0  aa 2b fb 31 3a f1 20 8a  35 2c 31 37 29 22 20 20  |.+.1:. .5,17)"  |
000000e0  20 a9 20 41 72 63 68 69  6d 65 64 65 73 20 57 6f  | . Archimedes Wo|
000000f0  72 6c 64 20 31 39 39 34  22 0d 00 b4 20 ff 20 22  |rld 1994"... . "|
00000100  53 6c 6f 61 64 20 3c 4f  62 65 79 24 44 69 72 3e  |Sload <Obey$Dir>|
00000110  2e 57 6f 72 6b 65 72 73  22 0d 00 be 13 de 20 6f  |.Workers"..... o|
00000120  62 6a 65 63 74 73 28 31  35 2c 37 29 0d 00 c8 11  |bjects(15,7)....|
00000130  de 20 6e 61 6d 65 24 28  31 35 2c 37 29 0d 00 d2  |. name$(15,7)...|
00000140  13 de 20 63 68 6f 6f 73  65 24 28 31 35 2c 37 29  |.. choose$(15,7)|
00000150  0d 00 dc 14 de 20 69 6e  76 65 6e 74 6f 72 79 24  |..... inventory$|
00000160  28 31 36 29 0d 00 e6 15  de 20 69 6e 76 65 6e 74  |(16)..... invent|
00000170  6f 72 79 28 31 36 2c 32  29 0d 00 f0 17 de 20 62  |ory(16,2)..... b|
00000180  61 63 6b 67 72 6f 75 6e  64 24 28 31 35 2c 32 29  |ackground$(15,2)|
00000190  0d 00 fa 18 de 20 63 6f  6f 72 64 69 6e 61 74 65  |..... coordinate|
000001a0  28 31 35 2c 37 2c 34 29  0d 01 04 12 de 20 77 61  |(15,7,4)..... wa|
000001b0  6c 6b 28 31 35 2c 37 2c  32 29 0d 01 0e 11 de 20  |lk(15,7,2)..... |
000001c0  6c 6f 6f 6b 24 28 31 35  2c 37 29 0d 01 18 11 de  |look$(15,7).....|
000001d0  20 75 73 65 28 31 35 2c  37 2c 32 29 0d 01 22 12  | use(15,7,2)..".|
000001e0  de 20 70 69 63 6b 75 70  28 31 35 2c 37 29 0d 01  |. pickup(15,7)..|
000001f0  2c 12 de 20 67 69 76 65  28 31 35 2c 37 2c 32 29  |,.. give(15,7,2)|
00000200  0d 01 36 13 de 20 74 61  6c 6b 24 28 31 35 2c 37  |..6.. talk$(15,7|
00000210  2c 32 29 0d 01 40 10 de  20 6f 70 65 6e 28 31 35  |,2)..@.. open(15|
00000220  2c 37 29 0d 01 4a 11 de  20 63 6c 6f 73 65 28 31  |,7)..J.. close(1|
00000230  35 2c 37 29 0d 01 54 10  de 20 6d 6f 76 65 28 31  |5,7)..T.. move(1|
00000240  35 2c 37 29 0d 01 5e 0e  de 20 72 75 6e 24 28 31  |5,7)..^.. run$(1|
00000250  35 29 0d 01 68 0a 71 75  69 74 3d a3 0d 01 72 05  |5)..h.quit=...r.|
00000260  e1 0d 01 7c 05 3a 0d 01  86 05 3a 0d 01 90 0b dd  |...|.:....:.....|
00000270  20 f2 6d 65 6e 75 0d 01  9a 08 eb 20 31 35 0d 01  | .menu..... 15..|
00000280  a4 05 87 0d 01 ae 1c e3  20 20 74 69 74 74 6c 65  |........  tittle|
00000290  25 3d 30 20 b8 20 31 33  30 30 20 88 20 32 35 0d  |%=0 . 1300 . 25.|
000002a0  01 b8 14 2a 53 43 48 4f  4f 53 45 20 74 69 74 74  |...*SCHOOSE titt|
000002b0  6c 65 31 0d 01 c2 1a f0  20 26 45 44 2c 31 33 30  |le1..... &ED,130|
000002c0  30 2d 74 69 74 74 6c 65  25 2c 38 30 30 0d 01 cc  |0-tittle%,800...|
000002d0  14 2a 53 43 48 4f 4f 53  45 20 74 69 74 74 6c 65  |.*SCHOOSE tittle|
000002e0  32 0d 01 d6 1a f0 20 26  45 44 2c 2d 39 32 30 2b  |2..... &ED,-920+|
000002f0  74 69 74 74 6c 65 25 2c  35 37 35 0d 01 e0 05 ed  |tittle%,575.....|
00000300  0d 01 ea 14 2a 53 43 48  4f 4f 53 45 20 74 69 74  |....*SCHOOSE tit|
00000310  74 6c 65 33 0d 01 f4 11  f0 20 26 45 44 2c 35 30  |tle3..... &ED,50|
00000320  30 2c 34 32 35 0d 01 fe  14 ef 20 32 38 2c 31 39  |0,425..... 28,19|
00000330  2c 32 39 2c 37 30 2c 32  39 0d 02 08 05 db 0d 02  |,29,70,29.......|
00000340  12 05 87 0d 02 1c 2a f1  20 22 20 20 20 20 20 20  |......*. "      |
00000350  20 20 20 20 31 2e 20 53  74 61 72 74 20 47 61 6d  |    1. Start Gam|
00000360  65 20 20 20 32 2e 20 51  75 69 74 22 3b 0d 02 26  |e   2. Quit";..&|
00000370  0a 64 6f 6e 65 3d a3 0d  02 30 0a 77 61 6c 6b 3d  |.done=...0.walk=|
00000380  30 0d 02 3a 05 f5 0d 02  44 0b 77 61 6c 6b 2b 3d  |0..:....D.walk+=|
00000390  31 0d 02 4e 15 e7 20 77  61 6c 6b 3d 39 20 8c 20  |1..N.. walk=9 . |
000003a0  77 61 6c 6b 3d 31 0d 02  58 25 63 68 6f 6f 73 65  |walk=1..X%choose|
000003b0  24 3d 22 2a 53 43 48 4f  4f 53 45 20 77 69 6c 6c  |$="*SCHOOSE will|
000003c0  79 72 22 2b c3 28 77 61  6c 6b 29 0d 02 62 0d ff  |yr"+.(walk)..b..|
000003d0  20 63 68 6f 6f 73 65 24  0d 02 6c 11 f0 20 26 45  | choose$..l.. &E|
000003e0  44 2c 35 37 35 2c 31 30  32 0d 02 76 07 d1 3d 30  |D,575,102..v..=0|
000003f0  0d 02 80 05 f5 0d 02 8a  15 e7 20 a6 28 2d 34 39  |.......... .(-49|
00000400  29 20 8c 20 64 6f 6e 65  3d b9 0d 02 94 0e e7 20  |) . done=...... |
00000410  a6 28 2d 35 30 29 20 8c  0d 02 9e 0a 71 75 69 74  |.(-50) .....quit|
00000420  3d b9 0d 02 a8 0a 64 6f  6e 65 3d b9 0d 02 b2 05  |=.....done=.....|
00000430  cd 0d 02 bc 0a fd 20 91  3e 31 33 0d 02 c6 0c fd  |...... .>13.....|
00000440  20 64 6f 6e 65 3d b9 0d  02 d0 15 e7 20 71 75 69  | done=...... qui|
00000450  74 3d a3 20 8c 20 f2 73  74 61 72 74 0d 02 da 05  |t=. . .start....|
00000460  e1 0d 02 e4 05 3a 0d 02  ee 05 3a 0d 02 f8 0c dd  |.....:....:.....|
00000470  20 f2 73 74 61 72 74 0d  03 02 0c 6c 65 76 65 6c  | .start....level|
00000480  25 3d 31 0d 03 0c 0a f2  62 6c 61 6e 6b 0d 03 16  |%=1.....blank...|
00000490  1d 62 61 63 6b 67 72 6f  75 6e 64 24 28 31 2c 31  |.background$(1,1|
000004a0  29 3d 22 62 72 77 61 6c  6c 22 0d 03 20 1d 62 61  |)="brwall".. .ba|
000004b0  63 6b 67 72 6f 75 6e 64  24 28 31 2c 32 29 3d 22  |ckground$(1,2)="|
000004c0  62 72 77 61 6c 6c 22 0d  03 2a 1d 62 61 63 6b 67  |brwall"..*.backg|
000004d0  72 6f 75 6e 64 24 28 32  2c 31 29 3d 22 62 72 77  |round$(2,1)="brw|
000004e0  61 6c 6c 22 0d 03 34 1d  62 61 63 6b 67 72 6f 75  |all"..4.backgrou|
000004f0  6e 64 24 28 32 2c 32 29  3d 22 62 61 63 6b 62 72  |nd$(2,2)="backbr|
00000500  22 0d 03 3e 1d 62 61 63  6b 67 72 6f 75 6e 64 24  |"..>.background$|
00000510  28 33 2c 31 29 3d 22 62  61 63 6b 62 72 22 0d 03  |(3,1)="backbr"..|
00000520  48 1d 62 61 63 6b 67 72  6f 75 6e 64 24 28 33 2c  |H.background$(3,|
00000530  32 29 3d 22 62 61 63 6b  62 72 22 0d 03 52 1d 62  |2)="backbr"..R.b|
00000540  61 63 6b 67 72 6f 75 6e  64 24 28 34 2c 31 29 3d  |ackground$(4,1)=|
00000550  22 62 72 77 61 6c 6c 22  0d 03 5c 1d 62 61 63 6b  |"brwall"..\.back|
00000560  67 72 6f 75 6e 64 24 28  34 2c 32 29 3d 22 62 72  |ground$(4,2)="br|
00000570  77 61 6c 6c 22 0d 03 66  1d 62 61 63 6b 67 72 6f  |wall"..f.backgro|
00000580  75 6e 64 24 28 35 2c 31  29 3d 22 62 72 77 61 6c  |und$(5,1)="brwal|
00000590  6c 22 0d 03 70 1d 62 61  63 6b 67 72 6f 75 6e 64  |l"..p.background|
000005a0  24 28 35 2c 32 29 3d 22  62 72 77 61 6c 6c 22 0d  |$(5,2)="brwall".|
000005b0  03 7a 1d 62 61 63 6b 67  72 6f 75 6e 64 24 28 36  |.z.background$(6|
000005c0  2c 31 29 3d 22 62 72 77  61 6c 6c 22 0d 03 84 1d  |,1)="brwall"....|
000005d0  62 61 63 6b 67 72 6f 75  6e 64 24 28 36 2c 32 29  |background$(6,2)|
000005e0  3d 22 62 61 63 6b 62 72  22 0d 03 8e 1d 62 61 63  |="backbr"....bac|
000005f0  6b 67 72 6f 75 6e 64 24  28 37 2c 31 29 3d 22 62  |kground$(7,1)="b|
00000600  61 63 6b 62 72 22 0d 03  98 1d 62 61 63 6b 67 72  |ackbr"....backgr|
00000610  6f 75 6e 64 24 28 37 2c  32 29 3d 22 62 72 77 61  |ound$(7,2)="brwa|
00000620  6c 6c 22 0d 03 a2 1d 62  61 63 6b 67 72 6f 75 6e  |ll"....backgroun|
00000630  64 24 28 38 2c 31 29 3d  22 62 61 63 6b 62 72 22  |d$(8,1)="backbr"|
00000640  0d 03 ac 1d 62 61 63 6b  67 72 6f 75 6e 64 24 28  |....background$(|
00000650  38 2c 32 29 3d 22 62 72  77 61 6c 6c 22 0d 03 b6  |8,2)="brwall"...|
00000660  1d 62 61 63 6b 67 72 6f  75 6e 64 24 28 39 2c 31  |.background$(9,1|
00000670  29 3d 22 62 72 77 61 6c  6c 22 0d 03 c0 1d 62 61  |)="brwall"....ba|
00000680  63 6b 67 72 6f 75 6e 64  24 28 39 2c 32 29 3d 22  |ckground$(9,2)="|
00000690  62 72 77 61 6c 6c 22 0d  03 ca 12 6f 62 6a 65 63  |brwall"....objec|
000006a0  74 73 28 31 2c 32 29 3d  31 0d 03 d4 15 6e 61 6d  |ts(1,2)=1....nam|
000006b0  65 24 28 31 2c 32 29 3d  22 44 4f 4f 52 22 0d 03  |e$(1,2)="DOOR"..|
000006c0  de 18 63 68 6f 6f 73 65  24 28 31 2c 32 29 3d 22  |..choose$(1,2)="|
000006d0  44 4f 4f 52 4c 22 0d 03  e8 0f 6f 70 65 6e 28 31  |DOORL"....open(1|
000006e0  2c 32 29 3d 31 0d 03 f2  18 63 6f 6f 72 64 69 6e  |,2)=1....coordin|
000006f0  61 74 65 28 31 2c 32 2c  31 29 3d 32 38 0d 03 fc  |ate(1,2,1)=28...|
00000700  19 63 6f 6f 72 64 69 6e  61 74 65 28 31 2c 32 2c  |.coordinate(1,2,|
00000710  32 29 3d 34 36 30 0d 04  06 19 63 6f 6f 72 64 69  |2)=460....coordi|
00000720  6e 61 74 65 28 31 2c 32  2c 33 29 3d 31 34 39 0d  |nate(1,2,3)=149.|
00000730  04 10 19 63 6f 6f 72 64  69 6e 61 74 65 28 31 2c  |...coordinate(1,|
00000740  32 2c 34 29 3d 39 34 32  0d 04 1a 12 6f 62 6a 65  |2,4)=942....obje|
00000750  63 74 73 28 31 2c 33 29  3d 31 0d 04 24 18 6e 61  |cts(1,3)=1..$.na|
00000760  6d 65 24 28 31 2c 33 29  3d 22 44 4f 4f 52 57 41  |me$(1,3)="DOORWA|
00000770  59 22 0d 04 2e 1b 63 68  6f 6f 73 65 24 28 31 2c  |Y"....choose$(1,|
00000780  33 29 3d 22 44 4f 4f 52  57 41 59 52 22 0d 04 38  |3)="DOORWAYR"..8|
00000790  11 77 61 6c 6b 28 31 2c  33 2c 31 29 3d 32 0d 04  |.walk(1,3,1)=2..|
000007a0  42 13 77 61 6c 6b 28 31  2c 33 2c 32 29 3d 32 36  |B.walk(1,3,2)=26|
000007b0  30 0d 04 4c 1a 63 6f 6f  72 64 69 6e 61 74 65 28  |0..L.coordinate(|
000007c0  31 2c 33 2c 31 29 3d 31  30 37 37 0d 04 56 19 63  |1,3,1)=1077..V.c|
000007d0  6f 6f 72 64 69 6e 61 74  65 28 31 2c 33 2c 32 29  |oordinate(1,3,2)|
000007e0  3d 34 36 30 0d 04 60 1a  63 6f 6f 72 64 69 6e 61  |=460..`.coordina|
000007f0  74 65 28 31 2c 33 2c 33  29 3d 31 32 34 37 0d 04  |te(1,3,3)=1247..|
00000800  6a 19 63 6f 6f 72 64 69  6e 61 74 65 28 31 2c 33  |j.coordinate(1,3|
00000810  2c 34 29 3d 39 34 32 0d  04 74 18 6e 61 6d 65 24  |,4)=942..t.name$|
00000820  28 31 2c 34 29 3d 22 44  4f 4f 52 57 41 59 22 0d  |(1,4)="DOORWAY".|
00000830  04 7e 1b 63 68 6f 6f 73  65 24 28 31 2c 34 29 3d  |.~.choose$(1,4)=|
00000840  22 44 4f 4f 52 57 41 59  4c 22 0d 04 88 11 77 61  |"DOORWAYL"....wa|
00000850  6c 6b 28 31 2c 34 2c 31  29 3d 35 0d 04 92 13 77  |lk(1,4,1)=5....w|
00000860  61 6c 6b 28 31 2c 34 2c  32 29 3d 38 37 39 0d 04  |alk(1,4,2)=879..|
00000870  9c 10 63 6c 6f 73 65 28  31 2c 34 29 3d 31 0d 04  |..close(1,4)=1..|
00000880  a6 18 63 6f 6f 72 64 69  6e 61 74 65 28 31 2c 34  |..coordinate(1,4|
00000890  2c 31 29 3d 32 38 0d 04  b0 19 63 6f 6f 72 64 69  |,1)=28....coordi|
000008a0  6e 61 74 65 28 31 2c 34  2c 32 29 3d 34 36 30 0d  |nate(1,4,2)=460.|
000008b0  04 ba 19 63 6f 6f 72 64  69 6e 61 74 65 28 31 2c  |...coordinate(1,|
000008c0  34 2c 33 29 3d 31 39 38  0d 04 c4 19 63 6f 6f 72  |4,3)=198....coor|
000008d0  64 69 6e 61 74 65 28 31  2c 34 2c 34 29 3d 39 34  |dinate(1,4,4)=94|
000008e0  32 0d 04 ce 12 6f 62 6a  65 63 74 73 28 31 2c 35  |2....objects(1,5|
000008f0  29 3d 31 0d 04 d8 15 6e  61 6d 65 24 28 31 2c 35  |)=1....name$(1,5|
00000900  29 3d 22 4c 4f 43 4b 22  0d 04 e2 17 63 68 6f 6f  |)="LOCK"....choo|
00000910  73 65 24 28 31 2c 35 29  3d 22 4c 4f 43 4b 22 0d  |se$(1,5)="LOCK".|
00000920  04 ec 25 6c 6f 6f 6b 24  28 31 2c 35 29 3d 22 49  |..%look$(1,5)="I|
00000930  54 20 4c 4f 4f 4b 53 20  56 45 52 59 20 53 54 52  |T LOOKS VERY STR|
00000940  4f 4e 47 22 0d 04 f6 10  75 73 65 28 31 2c 35 2c  |ONG"....use(1,5,|
00000950  31 29 3d 34 0d 05 00 10  75 73 65 28 31 2c 35 2c  |1)=4....use(1,5,|
00000960  32 29 3d 35 0d 05 0a 19  63 6f 6f 72 64 69 6e 61  |2)=5....coordina|
00000970  74 65 28 31 2c 35 2c 31  29 3d 31 35 30 0d 05 14  |te(1,5,1)=150...|
00000980  19 63 6f 6f 72 64 69 6e  61 74 65 28 31 2c 35 2c  |.coordinate(1,5,|
00000990  32 29 3d 36 32 34 0d 05  1e 19 63 6f 6f 72 64 69  |2)=624....coordi|
000009a0  6e 61 74 65 28 31 2c 35  2c 33 29 3d 31 39 32 0d  |nate(1,5,3)=192.|
000009b0  05 28 19 63 6f 6f 72 64  69 6e 61 74 65 28 31 2c  |.(.coordinate(1,|
000009c0  35 2c 34 29 3d 36 38 30  0d 05 32 12 6f 62 6a 65  |5,4)=680..2.obje|
000009d0  63 74 73 28 31 2c 36 29  3d 31 0d 05 3c 15 6e 61  |cts(1,6)=1..<.na|
000009e0  6d 65 24 28 31 2c 36 29  3d 22 4c 41 4d 50 22 0d  |me$(1,6)="LAMP".|
000009f0  05 46 18 63 68 6f 6f 73  65 24 28 31 2c 36 29 3d  |.F.choose$(1,6)=|
00000a00  22 4c 49 47 48 54 22 0d  05 50 19 63 6f 6f 72 64  |"LIGHT"..P.coord|
00000a10  69 6e 61 74 65 28 31 2c  36 2c 31 29 3d 32 31 35  |inate(1,6,1)=215|
00000a20  0d 05 5a 19 63 6f 6f 72  64 69 6e 61 74 65 28 31  |..Z.coordinate(1|
00000a30  2c 36 2c 32 29 3d 37 38  30 0d 05 64 19 63 6f 6f  |,6,2)=780..d.coo|
00000a40  72 64 69 6e 61 74 65 28  31 2c 36 2c 33 29 3d 33  |rdinate(1,6,3)=3|
00000a50  31 35 0d 05 6e 19 63 6f  6f 72 64 69 6e 61 74 65  |15..n.coordinate|
00000a60  28 31 2c 36 2c 34 29 3d  39 30 30 0d 05 78 12 6f  |(1,6,4)=900..x.o|
00000a70  62 6a 65 63 74 73 28 32  2c 31 29 3d 31 0d 05 82  |bjects(2,1)=1...|
00000a80  18 6e 61 6d 65 24 28 32  2c 31 29 3d 22 44 4f 4f  |.name$(2,1)="DOO|
00000a90  52 57 41 59 22 0d 05 8c  1b 63 68 6f 6f 73 65 24  |RWAY"....choose$|
00000aa0  28 32 2c 31 29 3d 22 44  4f 4f 52 57 41 59 4c 22  |(2,1)="DOORWAYL"|
00000ab0  0d 05 96 11 77 61 6c 6b  28 32 2c 31 2c 31 29 3d  |....walk(2,1,1)=|
00000ac0  31 0d 05 a0 13 77 61 6c  6b 28 32 2c 31 2c 32 29  |1....walk(2,1,2)|
00000ad0  3d 38 37 39 0d 05 aa 18  63 6f 6f 72 64 69 6e 61  |=879....coordina|
00000ae0  74 65 28 32 2c 31 2c 31  29 3d 32 38 0d 05 b4 19  |te(2,1,1)=28....|
00000af0  63 6f 6f 72 64 69 6e 61  74 65 28 32 2c 31 2c 32  |coordinate(2,1,2|
00000b00  29 3d 34 36 30 0d 05 be  19 63 6f 6f 72 64 69 6e  |)=460....coordin|
00000b10  61 74 65 28 32 2c 31 2c  33 29 3d 31 39 38 0d 05  |ate(2,1,3)=198..|
00000b20  c8 19 63 6f 6f 72 64 69  6e 61 74 65 28 32 2c 31  |..coordinate(2,1|
00000b30  2c 34 29 3d 39 34 32 0d  05 d2 12 6f 62 6a 65 63  |,4)=942....objec|
00000b40  74 73 28 32 2c 32 29 3d  31 0d 05 dc 11 6e 61 6d  |ts(2,2)=1....nam|
00000b50  65 24 28 32 2c 32 29 3d  22 22 0d 05 e6 1d 63 68  |e$(2,2)=""....ch|
00000b60  6f 6f 73 65 24 28 32 2c  32 29 3d 22 4e 45 58 54  |oose$(2,2)="NEXT|
00000b70  53 43 52 45 45 4e 22 0d  05 f0 11 77 61 6c 6b 28  |SCREEN"....walk(|
00000b80  32 2c 32 2c 31 29 3d 33  0d 05 fa 13 77 61 6c 6b  |2,2,1)=3....walk|
00000b90  28 32 2c 32 2c 32 29 3d  32 36 30 0d 06 04 1a 63  |(2,2,2)=260....c|
00000ba0  6f 6f 72 64 69 6e 61 74  65 28 32 2c 32 2c 31 29  |oordinate(2,2,1)|
00000bb0  3d 31 32 31 38 0d 06 0e  19 63 6f 6f 72 64 69 6e  |=1218....coordin|
00000bc0  61 74 65 28 32 2c 32 2c  32 29 3d 33 39 36 0d 06  |ate(2,2,2)=396..|
00000bd0  18 1a 63 6f 6f 72 64 69  6e 61 74 65 28 32 2c 32  |..coordinate(2,2|
00000be0  2c 33 29 3d 31 32 38 30  0d 06 22 19 63 6f 6f 72  |,3)=1280..".coor|
00000bf0  64 69 6e 61 74 65 28 32  2c 32 2c 34 29 3d 39 34  |dinate(2,2,4)=94|
00000c00  38 0d 06 2c 12 6f 62 6a  65 63 74 73 28 32 2c 33  |8..,.objects(2,3|
00000c10  29 3d 31 0d 06 36 15 6e  61 6d 65 24 28 32 2c 33  |)=1..6.name$(2,3|
00000c20  29 3d 22 44 4f 4f 52 22  0d 06 40 18 63 68 6f 6f  |)="DOOR"..@.choo|
00000c30  73 65 24 28 32 2c 33 29  3d 22 44 4f 4f 52 54 22  |se$(2,3)="DOORT"|
00000c40  0d 06 4a 0f 6f 70 65 6e  28 32 2c 33 29 3d 31 0d  |..J.open(2,3)=1.|
00000c50  06 54 1a 63 6f 6f 72 64  69 6e 61 74 65 28 32 2c  |.T.coordinate(2,|
00000c60  33 2c 31 29 3d 31 30 37  31 0d 06 5e 19 63 6f 6f  |3,1)=1071..^.coo|
00000c70  72 64 69 6e 61 74 65 28  32 2c 33 2c 32 29 3d 35  |rdinate(2,3,2)=5|
00000c80  34 30 0d 06 68 1a 63 6f  6f 72 64 69 6e 61 74 65  |40..h.coordinate|
00000c90  28 32 2c 33 2c 33 29 3d  31 32 31 35 0d 06 72 19  |(2,3,3)=1215..r.|
00000ca0  63 6f 6f 72 64 69 6e 61  74 65 28 32 2c 33 2c 34  |coordinate(2,3,4|
00000cb0  29 3d 38 35 30 0d 06 7c  18 6e 61 6d 65 24 28 32  |)=850..|.name$(2|
00000cc0  2c 34 29 3d 22 44 4f 4f  52 57 41 59 22 0d 06 86  |,4)="DOORWAY"...|
00000cd0  1b 63 68 6f 6f 73 65 24  28 32 2c 34 29 3d 22 44  |.choose$(2,4)="D|
00000ce0  4f 4f 52 57 41 59 54 22  0d 06 90 10 63 6c 6f 73  |OORWAYT"....clos|
00000cf0  65 28 32 2c 34 29 3d 31  0d 06 9a 11 77 61 6c 6b  |e(2,4)=1....walk|
00000d00  28 32 2c 34 2c 31 29 3d  34 0d 06 a4 13 77 61 6c  |(2,4,1)=4....wal|
00000d10  6b 28 32 2c 34 2c 32 29  3d 32 36 30 0d 06 ae 1a  |k(2,4,2)=260....|
00000d20  63 6f 6f 72 64 69 6e 61  74 65 28 32 2c 34 2c 31  |coordinate(2,4,1|
00000d30  29 3d 31 30 37 31 0d 06  b8 19 63 6f 6f 72 64 69  |)=1071....coordi|
00000d40  6e 61 74 65 28 32 2c 34  2c 32 29 3d 35 34 30 0d  |nate(2,4,2)=540.|
00000d50  06 c2 1a 63 6f 6f 72 64  69 6e 61 74 65 28 32 2c  |...coordinate(2,|
00000d60  34 2c 33 29 3d 31 32 31  35 0d 06 cc 19 63 6f 6f  |4,3)=1215....coo|
00000d70  72 64 69 6e 61 74 65 28  32 2c 34 2c 34 29 3d 38  |rdinate(2,4,4)=8|
00000d80  35 30 0d 06 d6 12 6f 62  6a 65 63 74 73 28 32 2c  |50....objects(2,|
00000d90  35 29 3d 31 0d 06 e0 15  6e 61 6d 65 24 28 32 2c  |5)=1....name$(2,|
00000da0  35 29 3d 22 4c 41 4d 50  22 0d 06 ea 18 63 68 6f  |5)="LAMP"....cho|
00000db0  6f 73 65 24 28 32 2c 35  29 3d 22 4c 49 47 48 54  |ose$(2,5)="LIGHT|
00000dc0  22 0d 06 f4 19 63 6f 6f  72 64 69 6e 61 74 65 28  |"....coordinate(|
00000dd0  32 2c 35 2c 31 29 3d 32  31 35 0d 06 fe 19 63 6f  |2,5,1)=215....co|
00000de0  6f 72 64 69 6e 61 74 65  28 32 2c 35 2c 32 29 3d  |ordinate(2,5,2)=|
00000df0  37 38 30 0d 07 08 19 63  6f 6f 72 64 69 6e 61 74  |780....coordinat|
00000e00  65 28 32 2c 35 2c 33 29  3d 33 31 35 0d 07 12 19  |e(2,5,3)=315....|
00000e10  63 6f 6f 72 64 69 6e 61  74 65 28 32 2c 35 2c 34  |coordinate(2,5,4|
00000e20  29 3d 39 30 30 0d 07 1c  12 6f 62 6a 65 63 74 73  |)=900....objects|
00000e30  28 33 2c 31 29 3d 31 0d  07 26 11 6e 61 6d 65 24  |(3,1)=1..&.name$|
00000e40  28 33 2c 31 29 3d 22 22  0d 07 30 1d 63 68 6f 6f  |(3,1)=""..0.choo|
00000e50  73 65 24 28 33 2c 31 29  3d 22 4e 45 58 54 53 43  |se$(3,1)="NEXTSC|
00000e60  52 45 45 4e 22 0d 07 3a  11 77 61 6c 6b 28 33 2c  |REEN"..:.walk(3,|
00000e70  31 2c 31 29 3d 32 0d 07  44 13 77 61 6c 6b 28 33  |1,1)=2..D.walk(3|
00000e80  2c 31 2c 32 29 3d 38 37  39 0d 07 4e 18 63 6f 6f  |,1,2)=879..N.coo|
00000e90  72 64 69 6e 61 74 65 28  33 2c 31 2c 31 29 3d 2d  |rdinate(3,1,1)=-|
00000ea0  31 0d 07 58 19 63 6f 6f  72 64 69 6e 61 74 65 28  |1..X.coordinate(|
00000eb0  33 2c 31 2c 32 29 3d 33  39 36 0d 07 62 18 63 6f  |3,1,2)=396..b.co|
00000ec0  6f 72 64 69 6e 61 74 65  28 33 2c 31 2c 33 29 3d  |ordinate(3,1,3)=|
00000ed0  36 34 0d 07 6c 19 63 6f  6f 72 64 69 6e 61 74 65  |64..l.coordinate|
00000ee0  28 33 2c 31 2c 34 29 3d  39 34 38 0d 07 76 12 6f  |(3,1,4)=948..v.o|
00000ef0  62 6a 65 63 74 73 28 33  2c 32 29 3d 31 0d 07 80  |bjects(3,2)=1...|
00000f00  15 6e 61 6d 65 24 28 33  2c 32 29 3d 22 53 49 47  |.name$(3,2)="SIG|
00000f10  4e 22 0d 07 8a 17 63 68  6f 6f 73 65 24 28 33 2c  |N"....choose$(3,|
00000f20  32 29 3d 22 53 49 47 4e  22 0d 07 94 21 6c 6f 6f  |2)="SIGN"...!loo|
00000f30  6b 24 28 33 2c 32 29 3d  22 27 54 48 45 20 54 57  |k$(3,2)="'THE TW|
00000f40  4f 20 53 41 58 4f 4e 53  27 22 0d 07 9e 19 63 6f  |O SAXONS'"....co|
00000f50  6f 72 64 69 6e 61 74 65  28 33 2c 32 2c 31 29 3d  |ordinate(3,2,1)=|
00000f60  39 34 34 0d 07 a8 19 63  6f 6f 72 64 69 6e 61 74  |944....coordinat|
00000f70  65 28 33 2c 32 2c 32 29  3d 38 31 30 0d 07 b2 1a  |e(3,2,2)=810....|
00000f80  63 6f 6f 72 64 69 6e 61  74 65 28 33 2c 32 2c 33  |coordinate(3,2,3|
00000f90  29 3d 31 30 34 34 0d 07  bc 19 63 6f 6f 72 64 69  |)=1044....coordi|
00000fa0  6e 61 74 65 28 33 2c 32  2c 34 29 3d 39 33 30 0d  |nate(3,2,4)=930.|
00000fb0  07 c6 12 6f 62 6a 65 63  74 73 28 33 2c 33 29 3d  |...objects(3,3)=|
00000fc0  31 0d 07 d0 17 6e 61 6d  65 24 28 33 2c 33 29 3d  |1....name$(3,3)=|
00000fd0  22 4b 4e 49 47 48 54 22  0d 07 da 19 63 68 6f 6f  |"KNIGHT"....choo|
00000fe0  73 65 24 28 33 2c 33 29  3d 22 4b 4e 49 47 48 54  |se$(3,3)="KNIGHT|
00000ff0  22 0d 07 e4 1d 6c 6f 6f  6b 24 28 33 2c 33 29 3d  |"....look$(3,3)=|
00001000  22 48 45 20 4c 4f 4f 4b  53 20 53 41 44 22 0d 07  |"HE LOOKS SAD"..|
00001010  ee 2f 74 61 6c 6b 24 28  33 2c 33 2c 31 29 3d 22  |./talk$(3,3,1)="|
00001020  59 4f 55 20 4c 4f 4f 4b  20 53 41 44 2e 20 57 48  |YOU LOOK SAD. WH|
00001030  41 54 53 20 55 50 20 4d  41 54 45 3f 22 0d 07 f8  |ATS UP MATE?"...|
00001040  5d 74 61 6c 6b 24 28 33  2c 33 2c 32 29 3d 22 49  |]talk$(3,3,2)="I|
00001050  60 4d 20 49 4e 20 4c 4f  56 45 20 57 49 54 48 20  |`M IN LOVE WITH |
00001060  41 20 50 52 49 4e 43 45  53 53 20 42 55 54 20 49  |A PRINCESS BUT I|
00001070  60 4d 20 4a 55 53 54 20  41 20 4b 4e 49 47 48 54  |`M JUST A KNIGHT|
00001080  2e 20 53 48 45 20 43 4f  55 4c 44 20 4e 45 56 45  |. SHE COULD NEVE|
00001090  52 20 4c 4f 56 45 20 4d  45 22 0d 08 02 18 63 6f  |R LOVE ME"....co|
000010a0  6f 72 64 69 6e 61 74 65  28 33 2c 33 2c 31 29 3d  |ordinate(3,3,1)=|
000010b0  36 34 0d 08 0c 19 63 6f  6f 72 64 69 6e 61 74 65  |64....coordinate|
000010c0  28 33 2c 33 2c 32 29 3d  35 31 36 0d 08 16 19 63  |(3,3,2)=516....c|
000010d0  6f 6f 72 64 69 6e 61 74  65 28 33 2c 33 2c 33 29  |oordinate(3,3,3)|
000010e0  3d 31 37 34 0d 08 20 19  63 6f 6f 72 64 69 6e 61  |=174.. .coordina|
000010f0  74 65 28 33 2c 33 2c 34  29 3d 37 33 36 0d 08 2a  |te(3,3,4)=736..*|
00001100  12 6f 62 6a 65 63 74 73  28 33 2c 34 29 3d 31 0d  |.objects(3,4)=1.|
00001110  08 34 18 6e 61 6d 65 24  28 33 2c 34 29 3d 22 44  |.4.name$(3,4)="D|
00001120  4f 4f 52 57 41 59 22 0d  08 3e 1b 63 68 6f 6f 73  |OORWAY"..>.choos|
00001130  65 24 28 33 2c 34 29 3d  22 44 4f 4f 52 57 41 59  |e$(3,4)="DOORWAY|
00001140  54 22 0d 08 48 11 77 61  6c 6b 28 33 2c 34 2c 31  |T"..H.walk(3,4,1|
00001150  29 3d 36 0d 08 52 13 77  61 6c 6b 28 33 2c 34 2c  |)=6..R.walk(3,4,|
00001160  32 29 3d 32 36 30 0d 08  5c 1a 63 6f 6f 72 64 69  |2)=260..\.coordi|
00001170  6e 61 74 65 28 33 2c 34  2c 31 29 3d 31 30 37 31  |nate(3,4,1)=1071|
00001180  0d 08 66 19 63 6f 6f 72  64 69 6e 61 74 65 28 33  |..f.coordinate(3|
00001190  2c 34 2c 32 29 3d 35 34  30 0d 08 70 1a 63 6f 6f  |,4,2)=540..p.coo|
000011a0  72 64 69 6e 61 74 65 28  33 2c 34 2c 33 29 3d 31  |rdinate(3,4,3)=1|
000011b0  32 31 35 0d 08 7a 19 63  6f 6f 72 64 69 6e 61 74  |215..z.coordinat|
000011c0  65 28 33 2c 34 2c 34 29  3d 38 35 30 0d 08 84 12  |e(3,4,4)=850....|
000011d0  6f 62 6a 65 63 74 73 28  33 2c 35 29 3d 31 0d 08  |objects(3,5)=1..|
000011e0  8e 11 6e 61 6d 65 24 28  33 2c 35 29 3d 22 22 0d  |..name$(3,5)="".|
000011f0  08 98 1d 63 68 6f 6f 73  65 24 28 33 2c 35 29 3d  |...choose$(3,5)=|
00001200  22 4e 45 58 54 53 43 52  45 45 4e 22 0d 08 a2 11  |"NEXTSCREEN"....|
00001210  77 61 6c 6b 28 33 2c 35  2c 31 29 3d 38 0d 08 ac  |walk(3,5,1)=8...|
00001220  13 77 61 6c 6b 28 33 2c  35 2c 32 29 3d 32 36 30  |.walk(3,5,2)=260|
00001230  0d 08 b6 1a 63 6f 6f 72  64 69 6e 61 74 65 28 33  |....coordinate(3|
00001240  2c 35 2c 31 29 3d 31 32  31 38 0d 08 c0 19 63 6f  |,5,1)=1218....co|
00001250  6f 72 64 69 6e 61 74 65  28 33 2c 35 2c 32 29 3d  |ordinate(3,5,2)=|
00001260  33 39 36 0d 08 ca 1a 63  6f 6f 72 64 69 6e 61 74  |396....coordinat|
00001270  65 28 33 2c 35 2c 33 29  3d 31 32 38 30 0d 08 d4  |e(3,5,3)=1280...|
00001280  19 63 6f 6f 72 64 69 6e  61 74 65 28 33 2c 35 2c  |.coordinate(3,5,|
00001290  34 29 3d 39 34 38 0d 08  de 12 6f 62 6a 65 63 74  |4)=948....object|
000012a0  73 28 34 2c 31 29 3d 31  0d 08 e8 18 6e 61 6d 65  |s(4,1)=1....name|
000012b0  24 28 34 2c 31 29 3d 22  44 4f 4f 52 57 41 59 22  |$(4,1)="DOORWAY"|
000012c0  0d 08 f2 1b 63 68 6f 6f  73 65 24 28 34 2c 31 29  |....choose$(4,1)|
000012d0  3d 22 44 4f 4f 52 57 41  59 4c 22 0d 08 fc 11 77  |="DOORWAYL"....w|
000012e0  61 6c 6b 28 34 2c 31 2c  31 29 3d 32 0d 09 06 13  |alk(4,1,1)=2....|
000012f0  77 61 6c 6b 28 34 2c 31  2c 32 29 3d 38 37 39 0d  |walk(4,1,2)=879.|
00001300  09 10 18 63 6f 6f 72 64  69 6e 61 74 65 28 34 2c  |...coordinate(4,|
00001310  31 2c 31 29 3d 32 38 0d  09 1a 19 63 6f 6f 72 64  |1,1)=28....coord|
00001320  69 6e 61 74 65 28 34 2c  31 2c 32 29 3d 34 36 30  |inate(4,1,2)=460|
00001330  0d 09 24 19 63 6f 6f 72  64 69 6e 61 74 65 28 34  |..$.coordinate(4|
00001340  2c 31 2c 33 29 3d 31 39  38 0d 09 2e 19 63 6f 6f  |,1,3)=198....coo|
00001350  72 64 69 6e 61 74 65 28  34 2c 31 2c 34 29 3d 39  |rdinate(4,1,4)=9|
00001360  34 32 0d 09 38 12 6f 62  6a 65 63 74 73 28 34 2c  |42..8.objects(4,|
00001370  32 29 3d 31 0d 09 42 11  6e 61 6d 65 24 28 34 2c  |2)=1..B.name$(4,|
00001380  32 29 3d 22 22 0d 09 4c  18 63 68 6f 6f 73 65 24  |2)=""..L.choose$|
00001390  28 34 2c 32 29 3d 22 54  41 42 4c 45 22 0d 09 56  |(4,2)="TABLE"..V|
000013a0  1a 63 6f 6f 72 64 69 6e  61 74 65 28 34 2c 32 2c  |.coordinate(4,2,|
000013b0  31 29 3d 31 30 33 30 0d  09 60 19 63 6f 6f 72 64  |1)=1030..`.coord|
000013c0  69 6e 61 74 65 28 34 2c  32 2c 32 29 3d 33 39 37  |inate(4,2,2)=397|
000013d0  0d 09 6a 1a 63 6f 6f 72  64 69 6e 61 74 65 28 34  |..j.coordinate(4|
000013e0  2c 32 2c 33 29 3d 31 30  33 30 0d 09 74 19 63 6f  |,2,3)=1030..t.co|
000013f0  6f 72 64 69 6e 61 74 65  28 34 2c 32 2c 34 29 3d  |ordinate(4,2,4)=|
00001400  33 39 37 0d 09 7e 12 6f  62 6a 65 63 74 73 28 34  |397..~.objects(4|
00001410  2c 33 29 3d 31 0d 09 88  15 6e 61 6d 65 24 28 34  |,3)=1....name$(4|
00001420  2c 33 29 3d 22 42 4f 4f  4b 22 0d 09 92 17 63 68  |,3)="BOOK"....ch|
00001430  6f 6f 73 65 24 28 34 2c  33 29 3d 22 42 4f 4f 4b  |oose$(4,3)="BOOK|
00001440  22 0d 09 9c 5b 6c 6f 6f  6b 24 28 34 2c 33 29 3d  |"...[look$(4,3)=|
00001450  22 49 54 20 4c 4f 4f 4b  53 20 4c 49 4b 45 20 41  |"IT LOOKS LIKE A|
00001460  20 44 52 55 49 44 53 20  53 50 45 4c 4c 20 42 4f  | DRUIDS SPELL BO|
00001470  4f 4b 2e 20 49 54 20 53  41 59 53 20 53 50 45 45  |OK. IT SAYS SPEE|
00001480  44 20 53 50 45 4c 4c 53  2c 20 4c 4f 56 45 20 50  |D SPELLS, LOVE P|
00001490  4f 54 49 4f 4e 53 20 45  43 54 2e 22 0d 09 a6 0f  |OTIONS ECT."....|
000014a0  6f 70 65 6e 28 34 2c 33  29 3d 31 0d 09 b0 10 63  |open(4,3)=1....c|
000014b0  6c 6f 73 65 28 34 2c 33  29 3d 31 0d 09 ba 1a 63  |lose(4,3)=1....c|
000014c0  6f 6f 72 64 69 6e 61 74  65 28 34 2c 33 2c 31 29  |oordinate(4,3,1)|
000014d0  3d 31 31 33 35 0d 09 c4  19 63 6f 6f 72 64 69 6e  |=1135....coordin|
000014e0  61 74 65 28 34 2c 33 2c  32 29 3d 35 31 35 0d 09  |ate(4,3,2)=515..|
000014f0  ce 1a 63 6f 6f 72 64 69  6e 61 74 65 28 34 2c 33  |..coordinate(4,3|
00001500  2c 33 29 3d 31 32 33 33  0d 09 d8 19 63 6f 6f 72  |,3)=1233....coor|
00001510  64 69 6e 61 74 65 28 34  2c 33 2c 34 29 3d 35 38  |dinate(4,3,4)=58|
00001520  33 0d 09 e2 16 6e 61 6d  65 24 28 34 2c 34 29 3d  |3....name$(4,4)=|
00001530  22 53 50 45 4c 4c 22 0d  09 ec 30 6c 6f 6f 6b 24  |"SPELL"...0look$|
00001540  28 34 2c 34 29 3d 22 49  54 60 53 20 41 4c 4c 20  |(4,4)="IT`S ALL |
00001550  49 4e 20 53 4f 4d 45 20  57 45 49 52 44 20 4c 41  |IN SOME WEIRD LA|
00001560  4e 47 55 41 47 45 22 0d  09 f6 12 6f 62 6a 65 63  |NGUAGE"....objec|
00001570  74 73 28 34 2c 35 29 3d  31 0d 0a 00 15 6e 61 6d  |ts(4,5)=1....nam|
00001580  65 24 28 34 2c 35 29 3d  22 41 43 49 44 22 0d 0a  |e$(4,5)="ACID"..|
00001590  0a 19 63 68 6f 6f 73 65  24 28 34 2c 35 29 3d 22  |..choose$(4,5)="|
000015a0  42 4f 54 54 4c 45 22 0d  0a 14 25 6c 6f 6f 6b 24  |BOTTLE"...%look$|
000015b0  28 34 2c 35 29 3d 22 49  54 20 4c 4f 4f 4b 53 20  |(4,5)="IT LOOKS |
000015c0  56 45 52 59 20 53 54 52  4f 4e 47 22 0d 0a 1e 11  |VERY STRONG"....|
000015d0  70 69 63 6b 75 70 28 34  2c 35 29 3d 31 0d 0a 28  |pickup(4,5)=1..(|
000015e0  1a 63 6f 6f 72 64 69 6e  61 74 65 28 34 2c 35 2c  |.coordinate(4,5,|
000015f0  31 29 3d 31 30 37 32 0d  0a 32 19 63 6f 6f 72 64  |1)=1072..2.coord|
00001600  69 6e 61 74 65 28 34 2c  35 2c 32 29 3d 35 35 30  |inate(4,5,2)=550|
00001610  0d 0a 3c 1a 63 6f 6f 72  64 69 6e 61 74 65 28 34  |..<.coordinate(4|
00001620  2c 35 2c 33 29 3d 31 31  33 32 0d 0a 46 19 63 6f  |,5,3)=1132..F.co|
00001630  6f 72 64 69 6e 61 74 65  28 34 2c 35 2c 34 29 3d  |ordinate(4,5,4)=|
00001640  36 32 35 0d 0a 50 17 6e  61 6d 65 24 28 34 2c 36  |625..P.name$(4,6|
00001650  29 3d 22 42 4f 54 54 4c  45 22 0d 0a 5a 2a 6c 6f  |)="BOTTLE"..Z*lo|
00001660  6f 6b 24 28 34 2c 36 29  3d 22 41 20 42 4f 54 54  |ok$(4,6)="A BOTT|
00001670  4c 45 20 55 53 45 44 20  46 4f 52 20 50 4f 54 49  |LE USED FOR POTI|
00001680  4f 4e 53 22 0d 0a 64 12  6f 62 6a 65 63 74 73 28  |ONS"..d.objects(|
00001690  35 2c 31 29 3d 31 0d 0a  6e 18 6e 61 6d 65 24 28  |5,1)=1..n.name$(|
000016a0  35 2c 31 29 3d 22 44 4f  4f 52 57 41 59 22 0d 0a  |5,1)="DOORWAY"..|
000016b0  78 1b 63 68 6f 6f 73 65  24 28 35 2c 31 29 3d 22  |x.choose$(5,1)="|
000016c0  44 4f 4f 52 57 41 59 52  22 0d 0a 82 11 77 61 6c  |DOORWAYR"....wal|
000016d0  6b 28 35 2c 31 2c 31 29  3d 31 0d 0a 8c 13 77 61  |k(5,1,1)=1....wa|
000016e0  6c 6b 28 35 2c 31 2c 32  29 3d 32 36 30 0d 0a 96  |lk(5,1,2)=260...|
000016f0  1a 63 6f 6f 72 64 69 6e  61 74 65 28 35 2c 31 2c  |.coordinate(5,1,|
00001700  31 29 3d 31 30 37 37 0d  0a a0 19 63 6f 6f 72 64  |1)=1077....coord|
00001710  69 6e 61 74 65 28 35 2c  31 2c 32 29 3d 34 36 30  |inate(5,1,2)=460|
00001720  0d 0a aa 1a 63 6f 6f 72  64 69 6e 61 74 65 28 35  |....coordinate(5|
00001730  2c 31 2c 33 29 3d 31 32  34 37 0d 0a b4 19 63 6f  |,1,3)=1247....co|
00001740  6f 72 64 69 6e 61 74 65  28 35 2c 31 2c 34 29 3d  |ordinate(5,1,4)=|
00001750  39 34 32 0d 0a be 12 6f  62 6a 65 63 74 73 28 35  |942....objects(5|
00001760  2c 32 29 3d 31 0d 0a c8  18 6e 61 6d 65 24 28 35  |,2)=1....name$(5|
00001770  2c 32 29 3d 22 43 41 42  49 4e 45 54 22 0d 0a d2  |,2)="CABINET"...|
00001780  19 63 68 6f 6f 73 65 24  28 35 2c 32 29 3d 22 54  |.choose$(5,2)="T|
00001790  41 42 4c 45 32 22 0d 0a  dc 1f 6c 6f 6f 6b 24 28  |ABLE2"....look$(|
000017a0  35 2c 32 29 3d 22 49 54  20 4c 4f 4f 4b 53 20 48  |5,2)="IT LOOKS H|
000017b0  45 41 56 59 22 0d 0a e6  0f 6d 6f 76 65 28 35 2c  |EAVY"....move(5,|
000017c0  32 29 3d 31 0d 0a f0 10  75 73 65 28 35 2c 32 2c  |2)=1....use(5,2,|
000017d0  31 29 3d 34 0d 0a fa 10  75 73 65 28 35 2c 32 2c  |1)=4....use(5,2,|
000017e0  32 29 3d 34 0d 0b 04 18  63 6f 6f 72 64 69 6e 61  |2)=4....coordina|
000017f0  74 65 28 35 2c 32 2c 31  29 3d 31 35 0d 0b 0e 19  |te(5,2,1)=15....|
00001800  63 6f 6f 72 64 69 6e 61  74 65 28 35 2c 32 2c 32  |coordinate(5,2,2|
00001810  29 3d 34 30 35 0d 0b 18  19 63 6f 6f 72 64 69 6e  |)=405....coordin|
00001820  61 74 65 28 35 2c 32 2c  33 29 3d 32 35 39 0d 0b  |ate(5,2,3)=259..|
00001830  22 19 63 6f 6f 72 64 69  6e 61 74 65 28 35 2c 32  |".coordinate(5,2|
00001840  2c 34 29 3d 36 31 32 0d  0b 2c 14 6e 61 6d 65 24  |,4)=612..,.name$|
00001850  28 35 2c 33 29 3d 22 4d  41 50 22 0d 0b 36 43 6c  |(5,3)="MAP"..6Cl|
00001860  6f 6f 6b 24 28 35 2c 33  29 3d 22 49 54 60 53 20  |ook$(5,3)="IT`S |
00001870  4f 4e 4c 59 20 50 41 52  54 20 4f 46 20 54 48 45  |ONLY PART OF THE|
00001880  20 4d 41 50 2e 20 49 20  4e 45 45 44 20 54 4f 20  | MAP. I NEED TO |
00001890  46 49 4e 44 20 54 48 45  20 52 45 53 54 22 0d 0b  |FIND THE REST"..|
000018a0  40 1a 6e 61 6d 65 24 28  35 2c 34 29 3d 22 53 50  |@.name$(5,4)="SP|
000018b0  59 20 47 4c 41 53 53 22  0d 0b 4a 23 6c 6f 6f 6b  |Y GLASS"..J#look|
000018c0  24 28 35 2c 34 29 3d 22  41 20 4d 41 47 4e 49 46  |$(5,4)="A MAGNIF|
000018d0  59 49 4e 47 20 47 4c 41  53 53 22 0d 0b 54 15 6e  |YING GLASS"..T.n|
000018e0  61 6d 65 24 28 35 2c 35  29 3d 22 52 4f 50 45 22  |ame$(5,5)="ROPE"|
000018f0  0d 0b 5e 25 6c 6f 6f 6b  24 28 35 2c 35 29 3d 22  |..^%look$(5,5)="|
00001900  41 20 4c 4f 4e 47 20 50  49 45 43 45 20 4f 46 20  |A LONG PIECE OF |
00001910  52 4f 50 45 22 0d 0b 68  11 75 73 65 28 35 2c 35  |ROPE"..h.use(5,5|
00001920  2c 31 29 3d 31 30 0d 0b  72 10 75 73 65 28 35 2c  |,1)=10..r.use(5,|
00001930  35 2c 32 29 3d 33 0d 0b  7c 12 6f 62 6a 65 63 74  |5,2)=3..|.object|
00001940  73 28 36 2c 31 29 3d 31  0d 0b 86 18 6e 61 6d 65  |s(6,1)=1....name|
00001950  24 28 36 2c 31 29 3d 22  44 4f 4f 52 57 41 59 22  |$(6,1)="DOORWAY"|
00001960  0d 0b 90 1b 63 68 6f 6f  73 65 24 28 36 2c 31 29  |....choose$(6,1)|
00001970  3d 22 44 4f 4f 52 57 41  59 4c 22 0d 0b 9a 11 77  |="DOORWAYL"....w|
00001980  61 6c 6b 28 36 2c 31 2c  31 29 3d 33 0d 0b a4 13  |alk(6,1,1)=3....|
00001990  77 61 6c 6b 28 36 2c 31  2c 32 29 3d 38 37 39 0d  |walk(6,1,2)=879.|
000019a0  0b ae 18 63 6f 6f 72 64  69 6e 61 74 65 28 36 2c  |...coordinate(6,|
000019b0  31 2c 31 29 3d 32 38 0d  0b b8 19 63 6f 6f 72 64  |1,1)=28....coord|
000019c0  69 6e 61 74 65 28 36 2c  31 2c 32 29 3d 34 36 30  |inate(6,1,2)=460|
000019d0  0d 0b c2 19 63 6f 6f 72  64 69 6e 61 74 65 28 36  |....coordinate(6|
000019e0  2c 31 2c 33 29 3d 31 39  38 0d 0b cc 19 63 6f 6f  |,1,3)=198....coo|
000019f0  72 64 69 6e 61 74 65 28  36 2c 31 2c 34 29 3d 39  |rdinate(6,1,4)=9|
00001a00  34 32 0d 0b d6 12 6f 62  6a 65 63 74 73 28 36 2c  |42....objects(6,|
00001a10  32 29 3d 31 0d 0b e0 11  6e 61 6d 65 24 28 36 2c  |2)=1....name$(6,|
00001a20  32 29 3d 22 22 0d 0b ea  1d 63 68 6f 6f 73 65 24  |2)=""....choose$|
00001a30  28 36 2c 32 29 3d 22 4e  45 58 54 53 43 52 45 45  |(6,2)="NEXTSCREE|
00001a40  4e 22 0d 0b f4 11 77 61  6c 6b 28 36 2c 32 2c 31  |N"....walk(6,2,1|
00001a50  29 3d 37 0d 0b fe 13 77  61 6c 6b 28 36 2c 32 2c  |)=7....walk(6,2,|
00001a60  32 29 3d 32 36 30 0d 0c  08 1a 63 6f 6f 72 64 69  |2)=260....coordi|
00001a70  6e 61 74 65 28 36 2c 32  2c 31 29 3d 31 32 31 38  |nate(6,2,1)=1218|
00001a80  0d 0c 12 19 63 6f 6f 72  64 69 6e 61 74 65 28 36  |....coordinate(6|
00001a90  2c 32 2c 32 29 3d 33 39  36 0d 0c 1c 1a 63 6f 6f  |,2,2)=396....coo|
00001aa0  72 64 69 6e 61 74 65 28  36 2c 32 2c 33 29 3d 31  |rdinate(6,2,3)=1|
00001ab0  32 38 30 0d 0c 26 19 63  6f 6f 72 64 69 6e 61 74  |280..&.coordinat|
00001ac0  65 28 36 2c 32 2c 34 29  3d 39 34 38 0d 0c 30 12  |e(6,2,4)=948..0.|
00001ad0  6f 62 6a 65 63 74 73 28  36 2c 33 29 3d 31 0d 0c  |objects(6,3)=1..|
00001ae0  3a 11 6e 61 6d 65 24 28  36 2c 33 29 3d 22 22 0d  |:.name$(6,3)="".|
00001af0  0c 44 16 63 68 6f 6f 73  65 24 28 36 2c 33 29 3d  |.D.choose$(6,3)=|
00001b00  22 42 41 52 22 0d 0c 4e  1a 63 6f 6f 72 64 69 6e  |"BAR"..N.coordin|
00001b10  61 74 65 28 36 2c 33 2c  31 29 3d 31 30 34 33 0d  |ate(6,3,1)=1043.|
00001b20  0c 58 19 63 6f 6f 72 64  69 6e 61 74 65 28 36 2c  |.X.coordinate(6,|
00001b30  33 2c 32 29 3d 34 39 32  0d 0c 62 1a 63 6f 6f 72  |3,2)=492..b.coor|
00001b40  64 69 6e 61 74 65 28 36  2c 33 2c 33 29 3d 31 30  |dinate(6,3,3)=10|
00001b50  34 33 0d 0c 6c 19 63 6f  6f 72 64 69 6e 61 74 65  |43..l.coordinate|
00001b60  28 36 2c 33 2c 34 29 3d  34 39 32 0d 0c 76 12 6f  |(6,3,4)=492..v.o|
00001b70  62 6a 65 63 74 73 28 36  2c 34 29 3d 31 0d 0c 80  |bjects(6,4)=1...|
00001b80  1b 6e 61 6d 65 24 28 36  2c 34 29 3d 22 42 41 52  |.name$(6,4)="BAR|
00001b90  20 54 45 4e 44 45 52 22  0d 0c 8a 19 63 68 6f 6f  | TENDER"....choo|
00001ba0  73 65 24 28 36 2c 34 29  3d 22 54 45 4e 44 45 52  |se$(6,4)="TENDER|
00001bb0  22 0d 0c 94 20 6c 6f 6f  6b 24 28 36 2c 34 29 3d  |"... look$(6,4)=|
00001bc0  22 48 45 20 4c 4f 4f 4b  53 20 46 45 44 20 55 50  |"HE LOOKS FED UP|
00001bd0  22 0d 0c 9e 3c 74 61 6c  6b 24 28 36 2c 34 2c 31  |"...<talk$(6,4,1|
00001be0  29 3d 22 49 54 60 53 20  41 20 42 49 54 20 51 55  |)="IT`S A BIT QU|
00001bf0  49 45 54 20 49 4e 20 48  45 52 45 20 54 4f 4e 49  |IET IN HERE TONI|
00001c00  47 48 54 20 49 53 4e 60  54 20 49 54 22 0d 0c a8  |GHT ISN`T IT"...|
00001c10  48 74 61 6c 6b 24 28 36  2c 34 2c 32 29 3d 22 59  |Htalk$(6,4,2)="Y|
00001c20  45 48 2e 20 45 56 45 52  59 4f 4e 45 53 20 47 4f  |EH. EVERYONES GO|
00001c30  4e 45 20 4c 4f 4f 4b 49  4e 47 20 46 4f 52 20 54  |NE LOOKING FOR T|
00001c40  48 49 53 20 44 52 41 47  4f 4e 20 41 49 4e 54 20  |HIS DRAGON AINT |
00001c50  54 48 45 59 22 0d 0c b2  1a 63 6f 6f 72 64 69 6e  |THEY"....coordin|
00001c60  61 74 65 28 36 2c 34 2c  31 29 3d 31 30 37 32 0d  |ate(6,4,1)=1072.|
00001c70  0c bc 19 63 6f 6f 72 64  69 6e 61 74 65 28 36 2c  |...coordinate(6,|
00001c80  34 2c 32 29 3d 35 39 39  0d 0c c6 1a 63 6f 6f 72  |4,2)=599....coor|
00001c90  64 69 6e 61 74 65 28 36  2c 34 2c 33 29 3d 31 32  |dinate(6,4,3)=12|
00001ca0  31 38 0d 0c d0 19 63 6f  6f 72 64 69 6e 61 74 65  |18....coordinate|
00001cb0  28 36 2c 34 2c 34 29 3d  37 36 36 0d 0c da 12 6f  |(6,4,4)=766....o|
00001cc0  62 6a 65 63 74 73 28 37  2c 31 29 3d 31 0d 0c e4  |bjects(7,1)=1...|
00001cd0  11 6e 61 6d 65 24 28 37  2c 31 29 3d 22 22 0d 0c  |.name$(7,1)=""..|
00001ce0  ee 1d 63 68 6f 6f 73 65  24 28 37 2c 31 29 3d 22  |..choose$(7,1)="|
00001cf0  4e 45 58 54 53 43 52 45  45 4e 22 0d 0c f8 11 77  |NEXTSCREEN"....w|
00001d00  61 6c 6b 28 37 2c 31 2c  31 29 3d 36 0d 0d 02 13  |alk(7,1,1)=6....|
00001d10  77 61 6c 6b 28 37 2c 31  2c 32 29 3d 38 37 39 0d  |walk(7,1,2)=879.|
00001d20  0d 0c 18 63 6f 6f 72 64  69 6e 61 74 65 28 37 2c  |...coordinate(7,|
00001d30  31 2c 31 29 3d 2d 31 0d  0d 16 19 63 6f 6f 72 64  |1,1)=-1....coord|
00001d40  69 6e 61 74 65 28 37 2c  31 2c 32 29 3d 33 39 36  |inate(7,1,2)=396|
00001d50  0d 0d 20 18 63 6f 6f 72  64 69 6e 61 74 65 28 37  |.. .coordinate(7|
00001d60  2c 31 2c 33 29 3d 36 34  0d 0d 2a 19 63 6f 6f 72  |,1,3)=64..*.coor|
00001d70  64 69 6e 61 74 65 28 37  2c 31 2c 34 29 3d 39 34  |dinate(7,1,4)=94|
00001d80  38 0d 0d 34 12 6f 62 6a  65 63 74 73 28 37 2c 32  |8..4.objects(7,2|
00001d90  29 3d 31 0d 0d 3e 11 6e  61 6d 65 24 28 37 2c 32  |)=1..>.name$(7,2|
00001da0  29 3d 22 22 0d 0d 48 16  63 68 6f 6f 73 65 24 28  |)=""..H.choose$(|
00001db0  37 2c 32 29 3d 22 42 41  52 22 0d 0d 52 17 63 6f  |7,2)="BAR"..R.co|
00001dc0  6f 72 64 69 6e 61 74 65  28 37 2c 32 2c 31 29 3d  |ordinate(7,2,1)=|
00001dd0  30 0d 0d 5c 19 63 6f 6f  72 64 69 6e 61 74 65 28  |0..\.coordinate(|
00001de0  37 2c 32 2c 32 29 3d 34  39 32 0d 0d 66 17 63 6f  |7,2,2)=492..f.co|
00001df0  6f 72 64 69 6e 61 74 65  28 37 2c 32 2c 33 29 3d  |ordinate(7,2,3)=|
00001e00  30 0d 0d 70 19 63 6f 6f  72 64 69 6e 61 74 65 28  |0..p.coordinate(|
00001e10  37 2c 32 2c 34 29 3d 34  39 32 0d 0d 7a 12 6f 62  |7,2,4)=492..z.ob|
00001e20  6a 65 63 74 73 28 37 2c  33 29 3d 31 0d 0d 84 1b  |jects(7,3)=1....|
00001e30  6e 61 6d 65 24 28 37 2c  33 29 3d 22 46 49 52 45  |name$(7,3)="FIRE|
00001e40  20 50 4c 41 43 45 22 0d  0d 8e 1c 63 68 6f 6f 73  | PLACE"....choos|
00001e50  65 24 28 37 2c 33 29 3d  22 46 49 52 45 50 4c 41  |e$(7,3)="FIREPLA|
00001e60  43 45 22 0d 0d 98 1a 63  6f 6f 72 64 69 6e 61 74  |CE"....coordinat|
00001e70  65 28 37 2c 33 2c 31 29  3d 31 30 38 30 0d 0d a2  |e(7,3,1)=1080...|
00001e80  19 63 6f 6f 72 64 69 6e  61 74 65 28 37 2c 33 2c  |.coordinate(7,3,|
00001e90  32 29 3d 34 37 35 0d 0d  ac 1a 63 6f 6f 72 64 69  |2)=475....coordi|
00001ea0  6e 61 74 65 28 37 2c 33  2c 33 29 3d 31 31 34 30  |nate(7,3,3)=1140|
00001eb0  0d 0d b6 19 63 6f 6f 72  64 69 6e 61 74 65 28 37  |....coordinate(7|
00001ec0  2c 33 2c 34 29 3d 36 36  36 0d 0d c0 12 6f 62 6a  |,3,4)=666....obj|
00001ed0  65 63 74 73 28 37 2c 34  29 3d 31 0d 0d ca 15 6e  |ects(7,4)=1....n|
00001ee0  61 6d 65 24 28 37 2c 34  29 3d 22 43 4f 41 4c 22  |ame$(7,4)="COAL"|
00001ef0  0d 0d d4 17 63 68 6f 6f  73 65 24 28 37 2c 34 29  |....choose$(7,4)|
00001f00  3d 22 43 4f 41 4c 22 0d  0d de 1f 6c 6f 6f 6b 24  |="COAL"....look$|
00001f10  28 37 2c 34 29 3d 22 49  54 53 20 56 45 52 59 20  |(7,4)="ITS VERY |
00001f20  42 4c 41 43 4b 22 0d 0d  e8 11 70 69 63 6b 75 70  |BLACK"....pickup|
00001f30  28 37 2c 34 29 3d 31 0d  0d f2 1a 63 6f 6f 72 64  |(7,4)=1....coord|
00001f40  69 6e 61 74 65 28 37 2c  34 2c 31 29 3d 31 31 34  |inate(7,4,1)=114|
00001f50  30 0d 0d fc 19 63 6f 6f  72 64 69 6e 61 74 65 28  |0....coordinate(|
00001f60  37 2c 34 2c 32 29 3d 35  30 30 0d 0e 06 1a 63 6f  |7,4,2)=500....co|
00001f70  6f 72 64 69 6e 61 74 65  28 37 2c 34 2c 33 29 3d  |ordinate(7,4,3)=|
00001f80  31 31 38 36 0d 0e 10 19  63 6f 6f 72 64 69 6e 61  |1186....coordina|
00001f90  74 65 28 37 2c 34 2c 34  29 3d 35 33 30 0d 0e 1a  |te(7,4,4)=530...|
00001fa0  12 6f 62 6a 65 63 74 73  28 38 2c 31 29 3d 31 0d  |.objects(8,1)=1.|
00001fb0  0e 24 11 6e 61 6d 65 24  28 38 2c 31 29 3d 22 22  |.$.name$(8,1)=""|
00001fc0  0d 0e 2e 1d 63 68 6f 6f  73 65 24 28 38 2c 31 29  |....choose$(8,1)|
00001fd0  3d 22 4e 45 58 54 53 43  52 45 45 4e 22 0d 0e 38  |="NEXTSCREEN"..8|
00001fe0  11 77 61 6c 6b 28 38 2c  31 2c 31 29 3d 33 0d 0e  |.walk(8,1,1)=3..|
00001ff0  42 13 77 61 6c 6b 28 38  2c 31 2c 32 29 3d 38 37  |B.walk(8,1,2)=87|
00002000  39 0d 0e 4c 18 63 6f 6f  72 64 69 6e 61 74 65 28  |9..L.coordinate(|
00002010  38 2c 31 2c 31 29 3d 2d  31 0d 0e 56 19 63 6f 6f  |8,1,1)=-1..V.coo|
00002020  72 64 69 6e 61 74 65 28  38 2c 31 2c 32 29 3d 33  |rdinate(8,1,2)=3|
00002030  39 36 0d 0e 60 18 63 6f  6f 72 64 69 6e 61 74 65  |96..`.coordinate|
00002040  28 38 2c 31 2c 33 29 3d  36 34 0d 0e 6a 19 63 6f  |(8,1,3)=64..j.co|
00002050  6f 72 64 69 6e 61 74 65  28 38 2c 31 2c 34 29 3d  |ordinate(8,1,4)=|
00002060  39 34 38 0d 0e 74 12 6f  62 6a 65 63 74 73 28 38  |948..t.objects(8|
00002070  2c 32 29 3d 31 0d 0e 7e  15 6e 61 6d 65 24 28 38  |,2)=1..~.name$(8|
00002080  2c 32 29 3d 22 44 4f 4f  52 22 0d 0e 88 18 63 68  |,2)="DOOR"....ch|
00002090  6f 6f 73 65 24 28 38 2c  32 29 3d 22 44 4f 4f 52  |oose$(8,2)="DOOR|
000020a0  54 22 0d 0e 92 0f 6f 70  65 6e 28 38 2c 32 29 3d  |T"....open(8,2)=|
000020b0  31 0d 0e 9c 18 63 6f 6f  72 64 69 6e 61 74 65 28  |1....coordinate(|
000020c0  38 2c 32 2c 31 29 3d 36  34 0d 0e a6 19 63 6f 6f  |8,2,1)=64....coo|
000020d0  72 64 69 6e 61 74 65 28  38 2c 32 2c 32 29 3d 35  |rdinate(8,2,2)=5|
000020e0  34 30 0d 0e b0 19 63 6f  6f 72 64 69 6e 61 74 65  |40....coordinate|
000020f0  28 38 2c 32 2c 33 29 3d  32 30 38 0d 0e ba 19 63  |(8,2,3)=208....c|
00002100  6f 6f 72 64 69 6e 61 74  65 28 38 2c 32 2c 34 29  |oordinate(8,2,4)|
00002110  3d 38 35 30 0d 0e c4 18  6e 61 6d 65 24 28 38 2c  |=850....name$(8,|
00002120  33 29 3d 22 44 4f 4f 52  57 41 59 22 0d 0e ce 1b  |3)="DOORWAY"....|
00002130  63 68 6f 6f 73 65 24 28  38 2c 33 29 3d 22 44 4f  |choose$(8,3)="DO|
00002140  4f 52 57 41 59 54 22 0d  0e d8 10 63 6c 6f 73 65  |ORWAYT"....close|
00002150  28 38 2c 33 29 3d 31 0d  0e e2 11 77 61 6c 6b 28  |(8,3)=1....walk(|
00002160  38 2c 33 2c 31 29 3d 39  0d 0e ec 13 77 61 6c 6b  |8,3,1)=9....walk|
00002170  28 38 2c 33 2c 32 29 3d  32 36 30 0d 0e f6 18 63  |(8,3,2)=260....c|
00002180  6f 6f 72 64 69 6e 61 74  65 28 38 2c 33 2c 31 29  |oordinate(8,3,1)|
00002190  3d 36 34 0d 0f 00 19 63  6f 6f 72 64 69 6e 61 74  |=64....coordinat|
000021a0  65 28 38 2c 33 2c 32 29  3d 35 34 30 0d 0f 0a 19  |e(8,3,2)=540....|
000021b0  63 6f 6f 72 64 69 6e 61  74 65 28 38 2c 33 2c 33  |coordinate(8,3,3|
000021c0  29 3d 32 30 38 0d 0f 14  19 63 6f 6f 72 64 69 6e  |)=208....coordin|
000021d0  61 74 65 28 38 2c 33 2c  34 29 3d 38 35 30 0d 0f  |ate(8,3,4)=850..|
000021e0  1e 12 6f 62 6a 65 63 74  73 28 39 2c 31 29 3d 31  |..objects(9,1)=1|
000021f0  0d 0f 28 18 6e 61 6d 65  24 28 39 2c 31 29 3d 22  |..(.name$(9,1)="|
00002200  44 4f 4f 52 57 41 59 22  0d 0f 32 1b 63 68 6f 6f  |DOORWAY"..2.choo|
00002210  73 65 24 28 39 2c 31 29  3d 22 44 4f 4f 52 57 41  |se$(9,1)="DOORWA|
00002220  59 4c 22 0d 0f 3c 11 77  61 6c 6b 28 39 2c 31 2c  |YL"..<.walk(9,1,|
00002230  31 29 3d 38 0d 0f 46 13  77 61 6c 6b 28 39 2c 31  |1)=8..F.walk(9,1|
00002240  2c 32 29 3d 32 36 30 0d  0f 50 18 63 6f 6f 72 64  |,2)=260..P.coord|
00002250  69 6e 61 74 65 28 39 2c  31 2c 31 29 3d 32 38 0d  |inate(9,1,1)=28.|
00002260  0f 5a 19 63 6f 6f 72 64  69 6e 61 74 65 28 39 2c  |.Z.coordinate(9,|
00002270  31 2c 32 29 3d 34 36 30  0d 0f 64 19 63 6f 6f 72  |1,2)=460..d.coor|
00002280  64 69 6e 61 74 65 28 39  2c 31 2c 33 29 3d 31 39  |dinate(9,1,3)=19|
00002290  38 0d 0f 6e 19 63 6f 6f  72 64 69 6e 61 74 65 28  |8..n.coordinate(|
000022a0  39 2c 31 2c 34 29 3d 39  34 32 0d 0f 78 12 6f 62  |9,1,4)=942..x.ob|
000022b0  6a 65 63 74 73 28 39 2c  32 29 3d 31 0d 0f 82 11  |jects(9,2)=1....|
000022c0  6e 61 6d 65 24 28 39 2c  32 29 3d 22 22 0d 0f 8c  |name$(9,2)=""...|
000022d0  18 63 68 6f 6f 73 65 24  28 39 2c 32 29 3d 22 54  |.choose$(9,2)="T|
000022e0  41 42 4c 45 22 0d 0f 96  1a 63 6f 6f 72 64 69 6e  |ABLE"....coordin|
000022f0  61 74 65 28 39 2c 32 2c  31 29 3d 31 30 33 30 0d  |ate(9,2,1)=1030.|
00002300  0f a0 19 63 6f 6f 72 64  69 6e 61 74 65 28 39 2c  |...coordinate(9,|
00002310  32 2c 32 29 3d 33 39 37  0d 0f aa 1a 63 6f 6f 72  |2,2)=397....coor|
00002320  64 69 6e 61 74 65 28 39  2c 32 2c 33 29 3d 31 30  |dinate(9,2,3)=10|
00002330  33 30 0d 0f b4 19 63 6f  6f 72 64 69 6e 61 74 65  |30....coordinate|
00002340  28 39 2c 32 2c 34 29 3d  33 39 37 0d 0f be 12 6f  |(9,2,4)=397....o|
00002350  62 6a 65 63 74 73 28 39  2c 33 29 3d 31 0d 0f c8  |bjects(9,3)=1...|
00002360  16 6e 61 6d 65 24 28 39  2c 33 29 3d 22 50 4c 41  |.name$(9,3)="PLA|
00002370  4e 54 22 0d 0f d2 18 63  68 6f 6f 73 65 24 28 39  |NT"....choose$(9|
00002380  2c 33 29 3d 22 50 4c 41  4e 54 22 0d 0f dc 18 6c  |,3)="PLANT"....l|
00002390  6f 6f 6b 24 28 39 2c 33  29 3d 22 41 20 50 4c 41  |ook$(9,3)="A PLA|
000023a0  4e 54 22 0d 0f e6 10 75  73 65 28 39 2c 33 2c 31  |NT"....use(9,3,1|
000023b0  29 3d 35 0d 0f f0 10 75  73 65 28 39 2c 33 2c 32  |)=5....use(9,3,2|
000023c0  29 3d 34 0d 0f fa 1a 63  6f 6f 72 64 69 6e 61 74  |)=4....coordinat|
000023d0  65 28 39 2c 33 2c 31 29  3d 31 30 38 30 0d 10 04  |e(9,3,1)=1080...|
000023e0  19 63 6f 6f 72 64 69 6e  61 74 65 28 39 2c 33 2c  |.coordinate(9,3,|
000023f0  32 29 3d 35 34 35 0d 10  0e 1a 63 6f 6f 72 64 69  |2)=545....coordi|
00002400  6e 61 74 65 28 39 2c 33  2c 33 29 3d 31 31 32 36  |nate(9,3,3)=1126|
00002410  0d 10 18 19 63 6f 6f 72  64 69 6e 61 74 65 28 39  |....coordinate(9|
00002420  2c 33 2c 34 29 3d 36 35  37 0d 10 22 15 6e 61 6d  |,3,4)=657..".nam|
00002430  65 24 28 39 2c 34 29 3d  22 4c 45 41 46 22 0d 10  |e$(9,4)="LEAF"..|
00002440  2c 23 6c 6f 6f 6b 24 28  39 2c 34 29 3d 22 49 54  |,#look$(9,4)="IT|
00002450  60 53 20 53 54 49 4c 4c  20 53 4d 4f 4b 49 4e 47  |`S STILL SMOKING|
00002460  22 0d 10 36 10 75 73 65  28 39 2c 34 2c 31 29 3d  |"..6.use(9,4,1)=|
00002470  34 0d 10 40 10 75 73 65  28 39 2c 34 2c 32 29 3d  |4..@.use(9,4,2)=|
00002480  36 0d 10 4a 12 6f 62 6a  65 63 74 73 28 39 2c 35  |6..J.objects(9,5|
00002490  29 3d 31 0d 10 54 19 6e  61 6d 65 24 28 39 2c 35  |)=1..T.name$(9,5|
000024a0  29 3d 22 53 4b 59 4c 49  47 48 54 22 0d 10 5e 1b  |)="SKYLIGHT"..^.|
000024b0  63 68 6f 6f 73 65 24 28  39 2c 35 29 3d 22 53 4b  |choose$(9,5)="SK|
000024c0  59 4c 49 47 48 54 22 0d  10 68 19 63 6f 6f 72 64  |YLIGHT"..h.coord|
000024d0  69 6e 61 74 65 28 39 2c  35 2c 31 29 3d 37 30 30  |inate(9,5,1)=700|
000024e0  0d 10 72 19 63 6f 6f 72  64 69 6e 61 74 65 28 39  |..r.coordinate(9|
000024f0  2c 35 2c 32 29 3d 38 31  39 0d 10 7c 19 63 6f 6f  |,5,2)=819..|.coo|
00002500  72 64 69 6e 61 74 65 28  39 2c 35 2c 33 29 3d 39  |rdinate(9,5,3)=9|
00002510  30 30 0d 10 86 19 63 6f  6f 72 64 69 6e 61 74 65  |00....coordinate|
00002520  28 39 2c 35 2c 34 29 3d  39 35 39 0d 10 90 09 f2  |(9,5,4)=959.....|
00002530  67 61 6d 65 0d 10 9a 0c  6c 65 76 65 6c 25 3d 32  |game....level%=2|
00002540  0d 10 a4 0e e7 20 65 78  69 74 3d a3 20 8c 0d 10  |..... exit=. ...|
00002550  ae 0a f2 62 6c 61 6e 6b  0d 10 b8 08 eb 20 31 35  |...blank..... 15|
00002560  0d 10 c2 05 87 0d 10 cc  ea 6d 65 73 73 61 67 65  |.........message|
00002570  24 3d 22 53 4f 20 59 4f  55 20 41 4e 44 20 4d 49  |$="SO YOU AND MI|
00002580  43 20 54 48 45 20 42 41  52 20 54 45 4e 44 45 52  |C THE BAR TENDER|
00002590  20 53 45 54 20 4f 46 46  20 49 4e 20 41 20 42 4f  | SET OFF IN A BO|
000025a0  41 54 20 46 4f 52 20 54  48 45 20 49 53 4c 41 4e  |AT FOR THE ISLAN|
000025b0  44 2e 20 41 46 54 45 52  20 41 20 46 45 57 20 44  |D. AFTER A FEW D|
000025c0  41 59 53 20 41 54 20 53  45 41 20 59 4f 55 20 52  |AYS AT SEA YOU R|
000025d0  45 41 43 48 20 59 4f 55  52 20 44 45 53 54 49 4e  |EACH YOUR DESTIN|
000025e0  41 54 49 4f 4e 2e 20 55  4e 46 4f 52 54 55 4e 41  |ATION. UNFORTUNA|
000025f0  54 45 4c 59 20 54 48 45  20 4c 4f 43 41 4c 20 4e  |TELY THE LOCAL N|
00002600  41 54 49 56 45 53 20 44  4f 20 4e 4f 54 20 20 20  |ATIVES DO NOT   |
00002610  20 20 20 20 41 50 50 52  45 43 49 41 54 45 20 59  |    APPRECIATE Y|
00002620  4f 55 52 20 50 52 45 53  45 4e 43 45 20 41 4e 44  |OUR PRESENCE AND|
00002630  20 54 48 45 59 20 54 48  52 4f 57 20 59 4f 55 20  | THEY THROW YOU |
00002640  42 4f 54 48 20 49 4e 20  43 45 4c 4c 53 2e 22 0d  |BOTH IN CELLS.".|
00002650  10 d6 1b e3 20 73 68 6f  77 25 3d 31 20 b8 20 a9  |.... show%=1 . .|
00002660  28 6d 65 73 73 61 67 65  24 29 0d 10 e0 19 f1 20  |(message$)..... |
00002670  c1 6d 65 73 73 61 67 65  24 2c 73 68 6f 77 25 2c  |.message$,show%,|
00002680  31 29 3b 0d 10 ea 07 d1  3d 30 0d 10 f4 28 e7 20  |1);.....=0...(. |
00002690  c1 6d 65 73 73 61 67 65  24 2c 73 68 6f 77 25 2c  |.message$,show%,|
000026a0  31 29 3c 3e 22 20 22 20  8c 20 f5 20 fd 20 91 3e  |1)<>" " . . . .>|
000026b0  31 31 0d 10 fe 05 ed 0d  11 08 07 d1 3d 30 0d 11  |11..........=0..|
000026c0  12 0d f5 20 fd 20 91 3e  34 30 30 0d 11 1c 18 69  |... . .>400....i|
000026d0  6e 76 65 6e 74 6f 72 79  24 28 31 29 3d 22 52 4f  |nventory$(1)="RO|
000026e0  50 45 22 0d 11 26 14 69  6e 76 65 6e 74 6f 72 79  |PE"..&.inventory|
000026f0  28 31 2c 31 29 3d 35 0d  11 30 14 69 6e 76 65 6e  |(1,1)=5..0.inven|
00002700  74 6f 72 79 28 31 2c 32  29 3d 35 0d 11 3a 25 6c  |tory(1,2)=5..:%l|
00002710  6f 6f 6b 24 28 35 2c 35  29 3d 22 41 20 4c 4f 4e  |ook$(5,5)="A LON|
00002720  47 20 50 49 45 43 45 20  4f 46 20 52 4f 50 45 22  |G PIECE OF ROPE"|
00002730  0d 11 44 11 75 73 65 28  35 2c 35 2c 31 29 3d 31  |..D.use(5,5,1)=1|
00002740  30 0d 11 4e 10 75 73 65  28 35 2c 35 2c 32 29 3d  |0..N.use(5,5,2)=|
00002750  33 0d 11 58 1e 62 61 63  6b 67 72 6f 75 6e 64 24  |3..X.background$|
00002760  28 31 30 2c 31 29 3d 22  62 72 77 61 6c 6c 22 0d  |(10,1)="brwall".|
00002770  11 62 1e 62 61 63 6b 67  72 6f 75 6e 64 24 28 31  |.b.background$(1|
00002780  30 2c 32 29 3d 22 62 72  77 61 6c 6c 22 0d 11 6c  |0,2)="brwall"..l|
00002790  1e 62 61 63 6b 67 72 6f  75 6e 64 24 28 31 31 2c  |.background$(11,|
000027a0  31 29 3d 22 62 72 77 61  6c 6c 22 0d 11 76 1e 62  |1)="brwall"..v.b|
000027b0  61 63 6b 67 72 6f 75 6e  64 24 28 31 31 2c 32 29  |ackground$(11,2)|
000027c0  3d 22 62 61 63 6b 62 72  22 0d 11 80 1e 62 61 63  |="backbr"....bac|
000027d0  6b 67 72 6f 75 6e 64 24  28 31 32 2c 31 29 3d 22  |kground$(12,1)="|
000027e0  62 61 63 6b 62 72 22 0d  11 8a 1e 62 61 63 6b 67  |backbr"....backg|
000027f0  72 6f 75 6e 64 24 28 31  32 2c 32 29 3d 22 62 61  |round$(12,2)="ba|
00002800  63 6b 62 72 22 0d 11 94  1e 62 61 63 6b 67 72 6f  |ckbr"....backgro|
00002810  75 6e 64 24 28 31 33 2c  31 29 3d 22 62 72 77 61  |und$(13,1)="brwa|
00002820  6c 6c 22 0d 11 9e 1e 62  61 63 6b 67 72 6f 75 6e  |ll"....backgroun|
00002830  64 24 28 31 33 2c 32 29  3d 22 62 72 77 61 6c 6c  |d$(13,2)="brwall|
00002840  22 0d 11 a8 1e 62 61 63  6b 67 72 6f 75 6e 64 24  |"....background$|
00002850  28 31 34 2c 31 29 3d 22  62 61 63 6b 62 72 22 0d  |(14,1)="backbr".|
00002860  11 b2 1e 62 61 63 6b 67  72 6f 75 6e 64 24 28 31  |...background$(1|
00002870  34 2c 32 29 3d 22 62 61  63 6b 62 72 22 0d 11 bc  |4,2)="backbr"...|
00002880  13 6f 62 6a 65 63 74 73  28 31 30 2c 31 29 3d 31  |.objects(10,1)=1|
00002890  0d 11 c6 18 6e 61 6d 65  24 28 31 30 2c 31 29 3d  |....name$(10,1)=|
000028a0  22 57 49 4e 44 4f 57 22  0d 11 d0 1a 63 68 6f 6f  |"WINDOW"....choo|
000028b0  73 65 24 28 31 30 2c 31  29 3d 22 57 49 4e 44 4f  |se$(10,1)="WINDO|
000028c0  57 22 0d 11 da 27 6c 6f  6f 6b 24 28 31 30 2c 31  |W"...'look$(10,1|
000028d0  29 3d 22 49 20 43 41 4e  60 54 20 51 55 49 54 45  |)="I CAN`T QUITE|
000028e0  20 53 45 45 20 4f 55 54  22 0d 11 e4 1b 63 6f 6f  | SEE OUT"....coo|
000028f0  72 64 69 6e 61 74 65 28  31 30 2c 31 2c 31 29 3d  |rdinate(10,1,1)=|
00002900  31 30 37 30 0d 11 ee 1a  63 6f 6f 72 64 69 6e 61  |1070....coordina|
00002910  74 65 28 31 30 2c 31 2c  32 29 3d 37 33 30 0d 11  |te(10,1,2)=730..|
00002920  f8 1b 63 6f 6f 72 64 69  6e 61 74 65 28 31 30 2c  |..coordinate(10,|
00002930  31 2c 33 29 3d 31 32 34  30 0d 12 02 1a 63 6f 6f  |1,3)=1240....coo|
00002940  72 64 69 6e 61 74 65 28  31 30 2c 31 2c 34 29 3d  |rdinate(10,1,4)=|
00002950  39 34 39 0d 12 0c 12 75  73 65 28 31 30 2c 31 2c  |949....use(10,1,|
00002960  31 29 3d 31 30 0d 12 16  11 75 73 65 28 31 30 2c  |1)=10....use(10,|
00002970  31 2c 32 29 3d 34 0d 12  20 13 6f 62 6a 65 63 74  |1,2)=4.. .object|
00002980  73 28 31 30 2c 32 29 3d  31 0d 12 2a 16 6e 61 6d  |s(10,2)=1..*.nam|
00002990  65 24 28 31 30 2c 32 29  3d 22 44 4f 4f 52 22 0d  |e$(10,2)="DOOR".|
000029a0  12 34 19 63 68 6f 6f 73  65 24 28 31 30 2c 32 29  |.4.choose$(10,2)|
000029b0  3d 22 44 4f 4f 52 4c 22  0d 12 3e 10 6f 70 65 6e  |="DOORL"..>.open|
000029c0  28 31 30 2c 32 29 3d 31  0d 12 48 19 63 6f 6f 72  |(10,2)=1..H.coor|
000029d0  64 69 6e 61 74 65 28 31  30 2c 32 2c 31 29 3d 32  |dinate(10,2,1)=2|
000029e0  38 0d 12 52 1a 63 6f 6f  72 64 69 6e 61 74 65 28  |8..R.coordinate(|
000029f0  31 30 2c 32 2c 32 29 3d  34 36 30 0d 12 5c 1a 63  |10,2,2)=460..\.c|
00002a00  6f 6f 72 64 69 6e 61 74  65 28 31 30 2c 32 2c 33  |oordinate(10,2,3|
00002a10  29 3d 31 39 38 0d 12 66  1a 63 6f 6f 72 64 69 6e  |)=198..f.coordin|
00002a20  61 74 65 28 31 30 2c 32  2c 34 29 3d 39 34 32 0d  |ate(10,2,4)=942.|
00002a30  12 70 13 6f 62 6a 65 63  74 73 28 31 30 2c 33 29  |.p.objects(10,3)|
00002a40  3d 31 0d 12 7a 17 6e 61  6d 65 24 28 31 30 2c 33  |=1..z.name$(10,3|
00002a50  29 3d 22 42 52 49 43 4b  22 0d 12 84 19 63 68 6f  |)="BRICK"....cho|
00002a60  6f 73 65 24 28 31 30 2c  33 29 3d 22 42 52 49 43  |ose$(10,3)="BRIC|
00002a70  4b 22 0d 12 8e 21 6c 6f  6f 6b 24 28 31 30 2c 33  |K"...!look$(10,3|
00002a80  29 3d 22 49 54 20 4c 4f  4f 4b 53 20 53 54 52 4f  |)="IT LOOKS STRO|
00002a90  4e 47 22 0d 12 98 12 70  69 63 6b 75 70 28 31 30  |NG"....pickup(10|
00002aa0  2c 33 29 3d 31 0d 12 a2  11 75 73 65 28 31 30 2c  |,3)=1....use(10,|
00002ab0  33 2c 31 29 3d 35 0d 12  ac 11 75 73 65 28 31 30  |3,1)=5....use(10|
00002ac0  2c 33 2c 32 29 3d 35 0d  12 b6 1b 63 6f 6f 72 64  |,3,2)=5....coord|
00002ad0  69 6e 61 74 65 28 31 30  2c 33 2c 31 29 3d 31 31  |inate(10,3,1)=11|
00002ae0  38 30 0d 12 c0 1a 63 6f  6f 72 64 69 6e 61 74 65  |80....coordinate|
00002af0  28 31 30 2c 33 2c 32 29  3d 35 32 35 0d 12 ca 1b  |(10,3,2)=525....|
00002b00  63 6f 6f 72 64 69 6e 61  74 65 28 31 30 2c 33 2c  |coordinate(10,3,|
00002b10  33 29 3d 31 32 35 32 0d  12 d4 1a 63 6f 6f 72 64  |3)=1252....coord|
00002b20  69 6e 61 74 65 28 31 30  2c 33 2c 34 29 3d 36 30  |inate(10,3,4)=60|
00002b30  35 0d 12 de 1e 6e 61 6d  65 24 28 31 30 2c 34 29  |5....name$(10,4)|
00002b40  3d 22 52 4f 50 45 20 4e  20 42 52 49 43 4b 22 0d  |="ROPE N BRICK".|
00002b50  12 e8 33 6c 6f 6f 6b 24  28 31 30 2c 34 29 3d 22  |..3look$(10,4)="|
00002b60  54 48 45 20 52 4f 50 45  20 49 53 20 54 49 45 44  |THE ROPE IS TIED|
00002b70  20 41 52 4f 55 4e 44 20  54 48 45 20 42 52 49 43  | AROUND THE BRIC|
00002b80  4b 22 0d 12 f2 13 6f 62  6a 65 63 74 73 28 31 31  |K"....objects(11|
00002b90  2c 31 29 3d 31 0d 12 fc  15 6e 61 6d 65 24 28 31  |,1)=1....name$(1|
00002ba0  31 2c 31 29 3d 22 42 41  52 22 0d 13 06 18 63 68  |1,1)="BAR"....ch|
00002bb0  6f 6f 73 65 24 28 31 31  2c 31 29 3d 22 42 41 52  |oose$(11,1)="BAR|
00002bc0  53 22 0d 13 10 2b 6c 6f  6f 6b 24 28 31 31 2c 31  |S"...+look$(11,1|
00002bd0  29 3d 22 49 54 20 46 45  4c 4c 20 4f 55 54 20 4f  |)="IT FELL OUT O|
00002be0  46 20 54 48 45 20 57 49  4e 44 4f 57 22 0d 13 1a  |F THE WINDOW"...|
00002bf0  12 70 69 63 6b 75 70 28  31 31 2c 31 29 3d 31 0d  |.pickup(11,1)=1.|
00002c00  13 24 12 75 73 65 28 31  31 2c 31 2c 31 29 3d 31  |.$.use(11,1,1)=1|
00002c10  32 0d 13 2e 11 75 73 65  28 31 31 2c 31 2c 32 29  |2....use(11,1,2)|
00002c20  3d 35 0d 13 38 1a 63 6f  6f 72 64 69 6e 61 74 65  |=5..8.coordinate|
00002c30  28 31 31 2c 31 2c 31 29  3d 31 30 30 0d 13 42 1a  |(11,1,1)=100..B.|
00002c40  63 6f 6f 72 64 69 6e 61  74 65 28 31 31 2c 31 2c  |coordinate(11,1,|
00002c50  32 29 3d 34 35 30 0d 13  4c 1a 63 6f 6f 72 64 69  |2)=450..L.coordi|
00002c60  6e 61 74 65 28 31 31 2c  31 2c 33 29 3d 31 37 32  |nate(11,1,3)=172|
00002c70  0d 13 56 1a 63 6f 6f 72  64 69 6e 61 74 65 28 31  |..V.coordinate(1|
00002c80  31 2c 31 2c 34 29 3d 34  39 30 0d 13 60 13 6f 62  |1,1,4)=490..`.ob|
00002c90  6a 65 63 74 73 28 31 31  2c 32 29 3d 31 0d 13 6a  |jects(11,2)=1..j|
00002ca0  16 6e 61 6d 65 24 28 31  31 2c 32 29 3d 22 52 4f  |.name$(11,2)="RO|
00002cb0  50 45 22 0d 13 74 18 63  68 6f 6f 73 65 24 28 31  |PE"..t.choose$(1|
00002cc0  31 2c 32 29 3d 22 52 4f  50 45 22 0d 13 7e 31 6c  |1,2)="ROPE"..~1l|
00002cd0  6f 6f 6b 24 28 31 31 2c  32 29 3d 22 49 54 60 53  |ook$(11,2)="IT`S|
00002ce0  20 53 54 49 4c 4c 20 41  54 41 43 48 45 44 20 54  | STILL ATACHED T|
00002cf0  4f 20 54 48 45 20 42 52  49 43 4b 22 0d 13 88 12  |O THE BRICK"....|
00002d00  75 73 65 28 31 31 2c 32  2c 31 29 3d 31 32 0d 13  |use(11,2,1)=12..|
00002d10  92 11 75 73 65 28 31 31  2c 32 2c 32 29 3d 33 0d  |..use(11,2,2)=3.|
00002d20  13 9c 1a 63 6f 6f 72 64  69 6e 61 74 65 28 31 31  |...coordinate(11|
00002d30  2c 32 2c 31 29 3d 31 32  30 0d 13 a6 1a 63 6f 6f  |,2,1)=120....coo|
00002d40  72 64 69 6e 61 74 65 28  31 31 2c 32 2c 32 29 3d  |rdinate(11,2,2)=|
00002d50  35 35 37 0d 13 b0 1a 63  6f 6f 72 64 69 6e 61 74  |557....coordinat|
00002d60  65 28 31 31 2c 32 2c 33  29 3d 31 33 39 0d 13 ba  |e(11,2,3)=139...|
00002d70  1a 63 6f 6f 72 64 69 6e  61 74 65 28 31 31 2c 32  |.coordinate(11,2|
00002d80  2c 34 29 3d 39 35 35 0d  13 c4 13 6f 62 6a 65 63  |,4)=955....objec|
00002d90  74 73 28 31 31 2c 33 29  3d 31 0d 13 ce 16 6e 61  |ts(11,3)=1....na|
00002da0  6d 65 24 28 31 31 2c 33  29 3d 22 4c 41 4d 50 22  |me$(11,3)="LAMP"|
00002db0  0d 13 d8 19 63 68 6f 6f  73 65 24 28 31 31 2c 33  |....choose$(11,3|
00002dc0  29 3d 22 4c 49 47 48 54  22 0d 13 e2 1a 63 6f 6f  |)="LIGHT"....coo|
00002dd0  72 64 69 6e 61 74 65 28  31 31 2c 33 2c 31 29 3d  |rdinate(11,3,1)=|
00002de0  32 31 35 0d 13 ec 1a 63  6f 6f 72 64 69 6e 61 74  |215....coordinat|
00002df0  65 28 31 31 2c 33 2c 32  29 3d 37 38 30 0d 13 f6  |e(11,3,2)=780...|
00002e00  1a 63 6f 6f 72 64 69 6e  61 74 65 28 31 31 2c 33  |.coordinate(11,3|
00002e10  2c 33 29 3d 33 31 35 0d  14 00 1a 63 6f 6f 72 64  |,3)=315....coord|
00002e20  69 6e 61 74 65 28 31 31  2c 33 2c 34 29 3d 39 30  |inate(11,3,4)=90|
00002e30  30 0d 14 0a 13 6f 62 6a  65 63 74 73 28 31 31 2c  |0....objects(11,|
00002e40  34 29 3d 31 0d 14 14 12  6e 61 6d 65 24 28 31 31  |4)=1....name$(11|
00002e50  2c 34 29 3d 22 22 0d 14  1e 1e 63 68 6f 6f 73 65  |,4)=""....choose|
00002e60  24 28 31 31 2c 34 29 3d  22 4e 45 58 54 53 43 52  |$(11,4)="NEXTSCR|
00002e70  45 45 4e 22 0d 14 28 13  77 61 6c 6b 28 31 31 2c  |EEN"..(.walk(11,|
00002e80  34 2c 31 29 3d 31 32 0d  14 32 14 77 61 6c 6b 28  |4,1)=12..2.walk(|
00002e90  31 31 2c 34 2c 32 29 3d  32 36 30 0d 14 3c 1b 63  |11,4,2)=260..<.c|
00002ea0  6f 6f 72 64 69 6e 61 74  65 28 31 31 2c 34 2c 31  |oordinate(11,4,1|
00002eb0  29 3d 31 32 31 38 0d 14  46 1a 63 6f 6f 72 64 69  |)=1218..F.coordi|
00002ec0  6e 61 74 65 28 31 31 2c  34 2c 32 29 3d 33 39 36  |nate(11,4,2)=396|
00002ed0  0d 14 50 1b 63 6f 6f 72  64 69 6e 61 74 65 28 31  |..P.coordinate(1|
00002ee0  31 2c 34 2c 33 29 3d 31  32 38 30 0d 14 5a 1a 63  |1,4,3)=1280..Z.c|
00002ef0  6f 6f 72 64 69 6e 61 74  65 28 31 31 2c 34 2c 34  |oordinate(11,4,4|
00002f00  29 3d 39 34 38 0d 14 64  13 6f 62 6a 65 63 74 73  |)=948..d.objects|
00002f10  28 31 32 2c 31 29 3d 31  0d 14 6e 16 6e 61 6d 65  |(12,1)=1..n.name|
00002f20  24 28 31 32 2c 31 29 3d  22 44 4f 4f 52 22 0d 14  |$(12,1)="DOOR"..|
00002f30  78 19 63 68 6f 6f 73 65  24 28 31 32 2c 31 29 3d  |x.choose$(12,1)=|
00002f40  22 44 4f 4f 52 54 22 0d  14 82 10 6f 70 65 6e 28  |"DOORT"....open(|
00002f50  31 32 2c 31 29 3d 31 0d  14 8c 19 63 6f 6f 72 64  |12,1)=1....coord|
00002f60  69 6e 61 74 65 28 31 32  2c 31 2c 31 29 3d 36 34  |inate(12,1,1)=64|
00002f70  0d 14 96 1a 63 6f 6f 72  64 69 6e 61 74 65 28 31  |....coordinate(1|
00002f80  32 2c 31 2c 32 29 3d 35  34 30 0d 14 a0 1a 63 6f  |2,1,2)=540....co|
00002f90  6f 72 64 69 6e 61 74 65  28 31 32 2c 31 2c 33 29  |ordinate(12,1,3)|
00002fa0  3d 32 30 38 0d 14 aa 1a  63 6f 6f 72 64 69 6e 61  |=208....coordina|
00002fb0  74 65 28 31 32 2c 31 2c  34 29 3d 38 35 30 0d 14  |te(12,1,4)=850..|
00002fc0  b4 19 6e 61 6d 65 24 28  31 32 2c 32 29 3d 22 44  |..name$(12,2)="D|
00002fd0  4f 4f 52 57 41 59 22 0d  14 be 1c 63 68 6f 6f 73  |OORWAY"....choos|
00002fe0  65 24 28 31 32 2c 32 29  3d 22 44 4f 4f 52 57 41  |e$(12,2)="DOORWA|
00002ff0  59 54 22 0d 14 c8 11 63  6c 6f 73 65 28 31 32 2c  |YT"....close(12,|
00003000  32 29 3d 31 0d 14 d2 13  77 61 6c 6b 28 31 32 2c  |2)=1....walk(12,|
00003010  32 2c 31 29 3d 31 33 0d  14 dc 14 77 61 6c 6b 28  |2,1)=13....walk(|
00003020  31 32 2c 32 2c 32 29 3d  32 36 30 0d 14 e6 19 63  |12,2,2)=260....c|
00003030  6f 6f 72 64 69 6e 61 74  65 28 31 32 2c 32 2c 31  |oordinate(12,2,1|
00003040  29 3d 36 34 0d 14 f0 1a  63 6f 6f 72 64 69 6e 61  |)=64....coordina|
00003050  74 65 28 31 32 2c 32 2c  32 29 3d 35 34 30 0d 14  |te(12,2,2)=540..|
00003060  fa 1a 63 6f 6f 72 64 69  6e 61 74 65 28 31 32 2c  |..coordinate(12,|
00003070  32 2c 33 29 3d 32 30 38  0d 15 04 1a 63 6f 6f 72  |2,3)=208....coor|
00003080  64 69 6e 61 74 65 28 31  32 2c 32 2c 34 29 3d 38  |dinate(12,2,4)=8|
00003090  35 30 0d 15 0e 13 6f 62  6a 65 63 74 73 28 31 32  |50....objects(12|
000030a0  2c 33 29 3d 31 0d 15 18  17 6e 61 6d 65 24 28 31  |,3)=1....name$(1|
000030b0  32 2c 33 29 3d 22 46 4c  49 4e 54 22 0d 15 22 19  |2,3)="FLINT"..".|
000030c0  63 68 6f 6f 73 65 24 28  31 32 2c 33 29 3d 22 46  |choose$(12,3)="F|
000030d0  4c 49 4e 54 22 0d 15 2c  1c 6c 6f 6f 6b 24 28 31  |LINT"..,.look$(1|
000030e0  32 2c 33 29 3d 22 49 54  60 53 20 53 48 41 52 50  |2,3)="IT`S SHARP|
000030f0  22 0d 15 36 12 70 69 63  6b 75 70 28 31 32 2c 33  |"..6.pickup(12,3|
00003100  29 3d 31 0d 15 40 1b 63  6f 6f 72 64 69 6e 61 74  |)=1..@.coordinat|
00003110  65 28 31 32 2c 33 2c 31  29 3d 31 31 30 30 0d 15  |e(12,3,1)=1100..|
00003120  4a 1a 63 6f 6f 72 64 69  6e 61 74 65 28 31 32 2c  |J.coordinate(12,|
00003130  33 2c 32 29 3d 35 30 30  0d 15 54 1b 63 6f 6f 72  |3,2)=500..T.coor|
00003140  64 69 6e 61 74 65 28 31  32 2c 33 2c 33 29 3d 31  |dinate(12,3,3)=1|
00003150  31 32 38 0d 15 5e 1a 63  6f 6f 72 64 69 6e 61 74  |128..^.coordinat|
00003160  65 28 31 32 2c 33 2c 34  29 3d 35 34 30 0d 15 68  |e(12,3,4)=540..h|
00003170  13 6f 62 6a 65 63 74 73  28 31 32 2c 34 29 3d 31  |.objects(12,4)=1|
00003180  0d 15 72 12 6e 61 6d 65  24 28 31 32 2c 34 29 3d  |..r.name$(12,4)=|
00003190  22 22 0d 15 7c 1e 63 68  6f 6f 73 65 24 28 31 32  |""..|.choose$(12|
000031a0  2c 34 29 3d 22 4e 45 58  54 53 43 52 45 45 4e 22  |,4)="NEXTSCREEN"|
000031b0  0d 15 86 13 77 61 6c 6b  28 31 32 2c 34 2c 31 29  |....walk(12,4,1)|
000031c0  3d 31 31 0d 15 90 14 77  61 6c 6b 28 31 32 2c 34  |=11....walk(12,4|
000031d0  2c 32 29 3d 38 37 39 0d  15 9a 19 63 6f 6f 72 64  |,2)=879....coord|
000031e0  69 6e 61 74 65 28 31 32  2c 34 2c 31 29 3d 2d 31  |inate(12,4,1)=-1|
000031f0  0d 15 a4 1a 63 6f 6f 72  64 69 6e 61 74 65 28 31  |....coordinate(1|
00003200  32 2c 34 2c 32 29 3d 33  39 36 0d 15 ae 19 63 6f  |2,4,2)=396....co|
00003210  6f 72 64 69 6e 61 74 65  28 31 32 2c 34 2c 33 29  |ordinate(12,4,3)|
00003220  3d 36 34 0d 15 b8 1a 63  6f 6f 72 64 69 6e 61 74  |=64....coordinat|
00003230  65 28 31 32 2c 34 2c 34  29 3d 39 34 38 0d 15 c2  |e(12,4,4)=948...|
00003240  16 6e 61 6d 65 24 28 31  32 2c 35 29 3d 22 52 4f  |.name$(12,5)="RO|
00003250  50 45 22 0d 15 cc 29 6c  6f 6f 6b 24 28 31 32 2c  |PE"...)look$(12,|
00003260  35 29 3d 22 41 20 53 48  4f 52 54 45 52 20 50 49  |5)="A SHORTER PI|
00003270  45 43 45 20 4f 46 20 52  4f 50 45 22 0d 15 d6 12  |ECE OF ROPE"....|
00003280  75 73 65 28 31 32 2c 35  2c 31 29 3d 31 31 0d 15  |use(12,5,1)=11..|
00003290  e0 11 75 73 65 28 31 32  2c 35 2c 32 29 3d 31 0d  |..use(12,5,2)=1.|
000032a0  15 ea 1c 6e 61 6d 65 24  28 31 32 2c 36 29 3d 22  |...name$(12,6)="|
000032b0  52 4f 50 45 20 4e 20 42  41 52 22 0d 15 f4 3c 6c  |ROPE N BAR"...<l|
000032c0  6f 6f 6b 24 28 31 32 2c  36 29 3d 22 54 48 45 20  |ook$(12,6)="THE |
000032d0  52 4f 50 45 20 49 53 20  54 49 45 44 20 41 52 4f  |ROPE IS TIED ARO|
000032e0  55 4e 44 20 54 48 45 20  45 4e 44 20 4f 46 20 54  |UND THE END OF T|
000032f0  48 45 20 42 41 52 22 0d  15 fe 13 6f 62 6a 65 63  |HE BAR"....objec|
00003300  74 73 28 31 32 2c 37 29  3d 31 0d 16 08 12 6e 61  |ts(12,7)=1....na|
00003310  6d 65 24 28 31 32 2c 37  29 3d 22 22 0d 16 12 1e  |me$(12,7)=""....|
00003320  63 68 6f 6f 73 65 24 28  31 32 2c 37 29 3d 22 4e  |choose$(12,7)="N|
00003330  45 58 54 53 43 52 45 45  4e 22 0d 16 1c 13 77 61  |EXTSCREEN"....wa|
00003340  6c 6b 28 31 32 2c 37 2c  31 29 3d 31 34 0d 16 26  |lk(12,7,1)=14..&|
00003350  14 77 61 6c 6b 28 31 32  2c 37 2c 32 29 3d 32 36  |.walk(12,7,2)=26|
00003360  30 0d 16 30 1b 63 6f 6f  72 64 69 6e 61 74 65 28  |0..0.coordinate(|
00003370  31 32 2c 37 2c 31 29 3d  31 32 31 38 0d 16 3a 1a  |12,7,1)=1218..:.|
00003380  63 6f 6f 72 64 69 6e 61  74 65 28 31 32 2c 37 2c  |coordinate(12,7,|
00003390  32 29 3d 33 39 36 0d 16  44 1b 63 6f 6f 72 64 69  |2)=396..D.coordi|
000033a0  6e 61 74 65 28 31 32 2c  37 2c 33 29 3d 31 32 38  |nate(12,7,3)=128|
000033b0  30 0d 16 4e 1a 63 6f 6f  72 64 69 6e 61 74 65 28  |0..N.coordinate(|
000033c0  31 32 2c 37 2c 34 29 3d  39 34 38 0d 16 58 13 6f  |12,7,4)=948..X.o|
000033d0  62 6a 65 63 74 73 28 31  33 2c 31 29 3d 31 0d 16  |bjects(13,1)=1..|
000033e0  62 19 6e 61 6d 65 24 28  31 33 2c 31 29 3d 22 44  |b.name$(13,1)="D|
000033f0  4f 4f 52 57 41 59 22 0d  16 6c 1c 63 68 6f 6f 73  |OORWAY"..l.choos|
00003400  65 24 28 31 33 2c 31 29  3d 22 44 4f 4f 52 57 41  |e$(13,1)="DOORWA|
00003410  59 4c 22 0d 16 76 13 77  61 6c 6b 28 31 33 2c 31  |YL"..v.walk(13,1|
00003420  2c 31 29 3d 31 32 0d 16  80 14 77 61 6c 6b 28 31  |,1)=12....walk(1|
00003430  33 2c 31 2c 32 29 3d 32  36 30 0d 16 8a 19 63 6f  |3,1,2)=260....co|
00003440  6f 72 64 69 6e 61 74 65  28 31 33 2c 31 2c 31 29  |ordinate(13,1,1)|
00003450  3d 32 38 0d 16 94 1a 63  6f 6f 72 64 69 6e 61 74  |=28....coordinat|
00003460  65 28 31 33 2c 31 2c 32  29 3d 34 36 30 0d 16 9e  |e(13,1,2)=460...|
00003470  1a 63 6f 6f 72 64 69 6e  61 74 65 28 31 33 2c 31  |.coordinate(13,1|
00003480  2c 33 29 3d 31 39 38 0d  16 a8 1a 63 6f 6f 72 64  |,3)=198....coord|
00003490  69 6e 61 74 65 28 31 33  2c 31 2c 34 29 3d 39 34  |inate(13,1,4)=94|
000034a0  32 0d 16 b2 13 6f 62 6a  65 63 74 73 28 31 33 2c  |2....objects(13,|
000034b0  32 29 3d 31 0d 16 bc 17  6e 61 6d 65 24 28 31 33  |2)=1....name$(13|
000034c0  2c 32 29 3d 22 44 52 55  49 44 22 0d 16 c6 19 63  |,2)="DRUID"....c|
000034d0  68 6f 6f 73 65 24 28 31  33 2c 32 29 3d 22 44 52  |hoose$(13,2)="DR|
000034e0  55 49 44 22 0d 16 d0 2a  6c 6f 6f 6b 24 28 31 33  |UID"...*look$(13|
000034f0  2c 32 29 3d 22 48 45 20  4c 4f 4f 4b 53 20 44 45  |,2)="HE LOOKS DE|
00003500  45 50 20 49 4e 20 54 48  4f 55 47 48 54 22 0d 16  |EP IN THOUGHT"..|
00003510  da 55 74 61 6c 6b 24 28  31 33 2c 32 2c 31 29 3d  |.Utalk$(13,2,1)=|
00003520  22 49 20 4e 45 45 44 20  59 4f 55 52 20 48 45 4c  |"I NEED YOUR HEL|
00003530  50 20 54 4f 20 47 45 54  20 52 49 44 20 4f 46 20  |P TO GET RID OF |
00003540  41 20 44 52 41 47 4f 4e  2e 20 43 41 4e 20 59 4f  |A DRAGON. CAN YO|
00003550  55 20 47 49 56 45 20 4d  45 20 41 20 53 50 45 4c  |U GIVE ME A SPEL|
00003560  4c 3f 22 0d 16 e4 52 74  61 6c 6b 24 28 31 33 2c  |L?"...Rtalk$(13,|
00003570  32 2c 32 29 3d 22 49 46  20 59 4f 55 20 57 41 4e  |2,2)="IF YOU WAN|
00003580  54 20 41 20 53 50 45 4c  4c 20 59 4f 55 20 4d 55  |T A SPELL YOU MU|
00003590  53 54 20 42 52 49 4e 47  20 4d 45 20 50 41 52 54  |ST BRING ME PART|
000035a0  20 4f 46 20 54 48 45 20  44 52 41 47 4f 4e 53 20  | OF THE DRAGONS |
000035b0  42 4f 44 59 22 0d 16 ee  1b 63 6f 6f 72 64 69 6e  |BODY"....coordin|
000035c0  61 74 65 28 31 33 2c 32  2c 31 29 3d 31 30 36 35  |ate(13,2,1)=1065|
000035d0  0d 16 f8 1a 63 6f 6f 72  64 69 6e 61 74 65 28 31  |....coordinate(1|
000035e0  33 2c 32 2c 32 29 3d 34  36 30 0d 17 02 1b 63 6f  |3,2,2)=460....co|
000035f0  6f 72 64 69 6e 61 74 65  28 31 33 2c 32 2c 33 29  |ordinate(13,2,3)|
00003600  3d 31 31 36 37 0d 17 0c  1a 63 6f 6f 72 64 69 6e  |=1167....coordin|
00003610  61 74 65 28 31 33 2c 32  2c 34 29 3d 36 39 39 0d  |ate(13,2,4)=699.|
00003620  17 16 13 6f 62 6a 65 63  74 73 28 31 34 2c 31 29  |...objects(14,1)|
00003630  3d 31 0d 17 20 18 6e 61  6d 65 24 28 31 34 2c 31  |=1.. .name$(14,1|
00003640  29 3d 22 44 52 41 47 4f  4e 22 0d 17 2a 1a 63 68  |)="DRAGON"..*.ch|
00003650  6f 6f 73 65 24 28 31 34  2c 31 29 3d 22 44 52 41  |oose$(14,1)="DRA|
00003660  47 4f 4e 22 0d 17 34 1d  6c 6f 6f 6b 24 28 31 34  |GON"..4.look$(14|
00003670  2c 31 29 3d 22 48 45 60  53 20 41 53 4c 45 45 50  |,1)="HE`S ASLEEP|
00003680  22 0d 17 3e 12 75 73 65  28 31 34 2c 31 2c 31 29  |"..>.use(14,1,1)|
00003690  3d 31 34 0d 17 48 11 75  73 65 28 31 34 2c 31 2c  |=14..H.use(14,1,|
000036a0  32 29 3d 33 0d 17 52 1b  63 6f 6f 72 64 69 6e 61  |2)=3..R.coordina|
000036b0  74 65 28 31 34 2c 31 2c  31 29 3d 31 30 33 33 0d  |te(14,1,1)=1033.|
000036c0  17 5c 1a 63 6f 6f 72 64  69 6e 61 74 65 28 31 34  |.\.coordinate(14|
000036d0  2c 31 2c 32 29 3d 34 30  30 0d 17 66 1b 63 6f 6f  |,1,2)=400..f.coo|
000036e0  72 64 69 6e 61 74 65 28  31 34 2c 31 2c 33 29 3d  |rdinate(14,1,3)=|
000036f0  31 32 35 30 0d 17 70 1a  63 6f 6f 72 64 69 6e 61  |1250..p.coordina|
00003700  74 65 28 31 34 2c 31 2c  34 29 3d 36 30 37 0d 17  |te(14,1,4)=607..|
00003710  7a 13 6f 62 6a 65 63 74  73 28 31 34 2c 32 29 3d  |z.objects(14,2)=|
00003720  31 0d 17 84 17 6e 61 6d  65 24 28 31 34 2c 32 29  |1....name$(14,2)|
00003730  3d 22 53 43 41 4c 45 22  0d 17 8e 19 63 68 6f 6f  |="SCALE"....choo|
00003740  73 65 24 28 31 34 2c 32  29 3d 22 53 43 41 4c 45  |se$(14,2)="SCALE|
00003750  22 0d 17 98 1f 6c 6f 6f  6b 24 28 31 34 2c 32 29  |"....look$(14,2)|
00003760  3d 22 41 20 47 52 45 45  4e 20 53 43 41 4c 45 22  |="A GREEN SCALE"|
00003770  0d 17 a2 13 67 69 76 65  28 31 34 2c 32 2c 31 29  |....give(14,2,1)|
00003780  3d 31 33 0d 17 ac 12 67  69 76 65 28 31 34 2c 32  |=13....give(14,2|
00003790  2c 32 29 3d 32 0d 17 b6  12 75 73 65 28 31 34 2c  |,2)=2....use(14,|
000037a0  32 2c 31 29 3d 31 32 0d  17 c0 11 75 73 65 28 31  |2,1)=12....use(1|
000037b0  34 2c 32 2c 32 29 3d 36  0d 17 ca 1b 63 6f 6f 72  |4,2,2)=6....coor|
000037c0  64 69 6e 61 74 65 28 31  34 2c 32 2c 31 29 3d 31  |dinate(14,2,1)=1|
000037d0  32 35 31 0d 17 d4 1a 63  6f 6f 72 64 69 6e 61 74  |251....coordinat|
000037e0  65 28 31 34 2c 32 2c 32  29 3d 35 35 35 0d 17 de  |e(14,2,2)=555...|
000037f0  1b 63 6f 6f 72 64 69 6e  61 74 65 28 31 34 2c 32  |.coordinate(14,2|
00003800  2c 33 29 3d 31 32 37 39  0d 17 e8 1a 63 6f 6f 72  |,3)=1279....coor|
00003810  64 69 6e 61 74 65 28 31  34 2c 32 2c 34 29 3d 35  |dinate(14,2,4)=5|
00003820  39 35 0d 17 f2 17 6e 61  6d 65 24 28 31 34 2c 33  |95....name$(14,3|
00003830  29 3d 22 53 50 45 4c 4c  22 0d 17 fc 37 6c 6f 6f  |)="SPELL"...7loo|
00003840  6b 24 28 31 34 2c 33 29  3d 22 49 54 60 53 20 41  |k$(14,3)="IT`S A|
00003850  20 53 50 45 4c 4c 20 54  4f 20 47 45 54 20 52 49  | SPELL TO GET RI|
00003860  44 20 4f 46 20 54 48 45  20 44 52 41 47 4f 4e 22  |D OF THE DRAGON"|
00003870  0d 18 06 13 6f 62 6a 65  63 74 73 28 31 34 2c 34  |....objects(14,4|
00003880  29 3d 31 0d 18 10 12 6e  61 6d 65 24 28 31 34 2c  |)=1....name$(14,|
00003890  34 29 3d 22 22 0d 18 1a  1e 63 68 6f 6f 73 65 24  |4)=""....choose$|
000038a0  28 31 34 2c 34 29 3d 22  4e 45 58 54 53 43 52 45  |(14,4)="NEXTSCRE|
000038b0  45 4e 22 0d 18 24 13 77  61 6c 6b 28 31 34 2c 34  |EN"..$.walk(14,4|
000038c0  2c 31 29 3d 31 32 0d 18  2e 14 77 61 6c 6b 28 31  |,1)=12....walk(1|
000038d0  34 2c 34 2c 32 29 3d 38  37 39 0d 18 38 19 63 6f  |4,4,2)=879..8.co|
000038e0  6f 72 64 69 6e 61 74 65  28 31 34 2c 34 2c 31 29  |ordinate(14,4,1)|
000038f0  3d 2d 31 0d 18 42 1a 63  6f 6f 72 64 69 6e 61 74  |=-1..B.coordinat|
00003900  65 28 31 34 2c 34 2c 32  29 3d 33 39 36 0d 18 4c  |e(14,4,2)=396..L|
00003910  19 63 6f 6f 72 64 69 6e  61 74 65 28 31 34 2c 34  |.coordinate(14,4|
00003920  2c 33 29 3d 36 34 0d 18  56 1a 63 6f 6f 72 64 69  |,3)=64..V.coordi|
00003930  6e 61 74 65 28 31 34 2c  34 2c 34 29 3d 39 34 38  |nate(14,4,4)=948|
00003940  0d 18 60 09 f2 67 61 6d  65 0d 18 6a 05 cd 0d 18  |..`..game..j....|
00003950  74 13 e7 20 65 78 69 74  3d a3 20 8c 20 f2 77 69  |t.. exit=. . .wi|
00003960  6e 0d 18 7e 05 e1 0d 18  88 05 3a 0d 18 92 05 3a  |n..~......:....:|
00003970  0d 18 9c 0c dd 20 f2 62  6c 61 6e 6b 0d 18 a6 14  |..... .blank....|
00003980  e3 20 73 65 74 61 72 65  61 3d 31 20 b8 20 31 35  |. setarea=1 . 15|
00003990  0d 18 b0 15 e3 20 73 65  74 6f 62 6a 65 63 74 3d  |..... setobject=|
000039a0  31 20 b8 20 37 0d 18 ba  0e e3 20 63 6f 3d 31 20  |1 . 7..... co=1 |
000039b0  b8 20 34 0d 18 c4 26 63  6f 6f 72 64 69 6e 61 74  |. 4...&coordinat|
000039c0  65 28 73 65 74 61 72 65  61 2c 73 65 74 6f 62 6a  |e(setarea,setobj|
000039d0  65 63 74 2c 63 6f 29 3d  30 0d 18 ce 05 ed 0d 18  |ect,co)=0.......|
000039e0  d8 20 6f 62 6a 65 63 74  73 28 73 65 74 61 72 65  |. objects(setare|
000039f0  61 2c 73 65 74 6f 62 6a  65 63 74 29 3d 30 0d 18  |a,setobject)=0..|
00003a00  e2 1f 77 61 6c 6b 28 73  65 74 61 72 65 61 2c 73  |..walk(setarea,s|
00003a10  65 74 6f 62 6a 65 63 74  2c 31 29 3d 30 0d 18 ec  |etobject,1)=0...|
00003a20  21 74 61 6c 6b 24 28 73  65 74 61 72 65 61 2c 73  |!talk$(setarea,s|
00003a30  65 74 6f 62 6a 65 63 74  2c 31 29 3d 22 22 0d 18  |etobject,1)=""..|
00003a40  f6 21 74 61 6c 6b 24 28  73 65 74 61 72 65 61 2c  |.!talk$(setarea,|
00003a50  73 65 74 6f 62 6a 65 63  74 2c 32 29 3d 22 22 0d  |setobject,2)="".|
00003a60  19 00 1e 75 73 65 28 73  65 74 61 72 65 61 2c 73  |...use(setarea,s|
00003a70  65 74 6f 62 6a 65 63 74  2c 31 29 3d 30 0d 19 0a  |etobject,1)=0...|
00003a80  1d 6f 70 65 6e 28 73 65  74 61 72 65 61 2c 73 65  |.open(setarea,se|
00003a90  74 6f 62 6a 65 63 74 29  3d 30 0d 19 14 1e 63 6c  |tobject)=0....cl|
00003aa0  6f 73 65 28 73 65 74 61  72 65 61 2c 73 65 74 6f  |ose(setarea,seto|
00003ab0  62 6a 65 63 74 29 3d 30  0d 19 1e 1f 67 69 76 65  |bject)=0....give|
00003ac0  28 73 65 74 61 72 65 61  2c 73 65 74 6f 62 6a 65  |(setarea,setobje|
00003ad0  63 74 2c 31 29 3d 30 0d  19 28 1d 6d 6f 76 65 28  |ct,1)=0..(.move(|
00003ae0  73 65 74 61 72 65 61 2c  73 65 74 6f 62 6a 65 63  |setarea,setobjec|
00003af0  74 29 3d 30 0d 19 32 1f  70 69 63 6b 75 70 28 73  |t)=0..2.pickup(s|
00003b00  65 74 61 72 65 61 2c 73  65 74 6f 62 6a 65 63 74  |etarea,setobject|
00003b10  29 3d 30 0d 19 3c 05 ed  0d 19 46 05 ed 0d 19 50  |)=0..<....F....P|
00003b20  21 e7 20 6c 65 76 65 6c  25 3d 31 20 8c 20 61 72  |!. level%=1 . ar|
00003b30  65 61 3d 31 20 8b 20 61  72 65 61 3d 31 30 0d 19  |ea=1 . area=10..|
00003b40  5a 09 78 3d 35 30 30 0d  19 64 09 79 3d 34 35 30  |Z.x=500..d.y=450|
00003b50  0d 19 6e 0f 64 69 72 65  63 74 69 6f 6e 3d 31 0d  |..n.direction=1.|
00003b60  19 78 0b 6f 6c 64 24 3d  22 22 0d 19 82 0a 67 6f  |.x.old$=""....go|
00003b70  74 73 3d a3 0d 19 8c 0f  63 6f 6d 70 6c 65 74 65  |ts=.....complete|
00003b80  64 3d a3 0d 19 96 0a 65  78 69 74 3d a3 0d 19 a0  |d=.....exit=....|
00003b90  0a 6d 61 70 25 3d 30 0d  19 aa 0d 70 6f 74 69 6f  |.map%=0....potio|
00003ba0  6e 25 3d 30 0d 19 b4 12  e3 20 62 6c 61 6e 6b 3d  |n%=0..... blank=|
00003bb0  31 20 b8 20 31 36 0d 19  be 18 69 6e 76 65 6e 74  |1 . 16....invent|
00003bc0  6f 72 79 24 28 62 6c 61  6e 6b 29 3d 22 22 0d 19  |ory$(blank)=""..|
00003bd0  c8 18 69 6e 76 65 6e 74  6f 72 79 28 62 6c 61 6e  |..inventory(blan|
00003be0  6b 2c 31 29 3d 30 0d 19  d2 18 69 6e 76 65 6e 74  |k,1)=0....invent|
00003bf0  6f 72 79 28 62 6c 61 6e  6b 2c 32 29 3d 30 0d 19  |ory(blank,2)=0..|
00003c00  dc 05 ed 0d 19 e6 05 e1  0d 19 f0 05 3a 0d 19 fa  |............:...|
00003c10  05 3a 0d 1a 04 0a dd 20  f2 77 69 6e 0d 1a 0e 08  |.:..... .win....|
00003c20  eb 20 31 35 0d 1a 18 05  87 0d 1a 22 d8 6d 65 73  |. 15.......".mes|
00003c30  73 61 67 65 24 3d 22 59  4f 55 20 53 54 41 52 54  |sage$="YOU START|
00003c40  20 59 4f 55 52 20 4c 4f  4e 47 20 4a 4f 55 52 4e  | YOUR LONG JOURN|
00003c50  45 59 20 48 4f 4d 45 2e  20 4e 45 57 53 20 52 45  |EY HOME. NEWS RE|
00003c60  41 43 48 45 53 20 54 48  45 20 4b 49 4e 47 20 4f  |ACHES THE KING O|
00003c70  46 20 59 4f 55 52 20 54  52 49 55 4d 50 48 20 4f  |F YOUR TRIUMPH O|
00003c80  56 45 52 20 54 48 45 44  52 41 47 4f 4e 20 41 4e  |VER THEDRAGON AN|
00003c90  44 20 59 4f 55 20 41 52  52 49 56 45 20 48 4f 4d  |D YOU ARRIVE HOM|
00003ca0  45 20 54 4f 20 41 20 42  49 47 20 52 45 43 45 50  |E TO A BIG RECEP|
00003cb0  54 49 4f 4e 2e 20 59 4f  55 20 41 52 45 20 54 4f  |TION. YOU ARE TO|
00003cc0  20 42 45 20 4b 4e 49 47  48 54 45 44 20 42 59 20  | BE KNIGHTED BY |
00003cd0  54 48 45 20 4b 49 4e 47  20 20 41 4e 44 20 42 45  |THE KING  AND BE|
00003ce0  43 4f 4d 45 20 4f 4e 45  20 4f 46 20 48 49 53 20  |COME ONE OF HIS |
00003cf0  50 45 52 53 4f 4e 41 4c  20 47 55 41 52 44 53 2e  |PERSONAL GUARDS.|
00003d00  22 0d 1a 2c 1b e3 20 73  68 6f 77 25 3d 31 20 b8  |"..,.. show%=1 .|
00003d10  20 a9 28 6d 65 73 73 61  67 65 24 29 0d 1a 36 19  | .(message$)..6.|
00003d20  f1 20 c1 6d 65 73 73 61  67 65 24 2c 73 68 6f 77  |. .message$,show|
00003d30  25 2c 31 29 3b 0d 1a 40  07 d1 3d 30 0d 1a 4a 28  |%,1);..@..=0..J(|
00003d40  e7 20 c1 6d 65 73 73 61  67 65 24 2c 73 68 6f 77  |. .message$,show|
00003d50  25 2c 31 29 3c 3e 22 20  22 20 8c 20 f5 20 fd 20  |%,1)<>" " . . . |
00003d60  91 3e 31 31 0d 1a 54 05  ed 0d 1a 5e 07 d1 3d 30  |.>11..T....^..=0|
00003d70  0d 1a 68 0d f5 20 fd 20  91 3e 34 30 30 0d 1a 72  |..h.. . .>400..r|
00003d80  08 eb 20 31 35 0d 1a 7c  05 87 0d 1a 86 13 2a 53  |.. 15..|......*S|
00003d90  43 48 4f 4f 53 45 20 77  69 6c 6c 79 72 0d 1a 90  |CHOOSE willyr...|
00003da0  12 f0 20 26 45 44 2c 31  30 30 30 2c 33 30 30 0d  |.. &ED,1000,300.|
00003db0  1a 9a 1b f1 20 8a 36 31  2c 31 32 29 22 49 20 4b  |.... .61,12)"I K|
00003dc0  4e 49 47 48 54 20 54 48  45 22 0d 1a a4 07 d1 3d  |NIGHT THE".....=|
00003dd0  30 0d 1a ae 0d f5 20 fd  20 91 3e 34 30 30 0d 1a  |0..... . .>400..|
00003de0  b8 10 2a 53 43 48 4f 4f  53 45 20 61 72 6d 0d 1a  |..*SCHOOSE arm..|
00003df0  c2 09 e6 20 38 2c 30 0d  1a cc 12 f0 20 26 45 44  |... 8,0..... &ED|
00003e00  2c 31 30 30 30 2c 34 33  35 0d 1a d6 1b f1 20 8a  |,1000,435..... .|
00003e10  36 31 2c 31 32 29 22 20  53 49 52 20 57 49 4c 4c  |61,12)" SIR WILL|
00003e20  59 20 20 22 0d 1a e0 07  d1 3d 30 0d 1a ea 0d f5  |Y  ".....=0.....|
00003e30  20 fd 20 91 3e 34 30 30  0d 1a f4 05 db 0d 1a fe  | . .>400........|
00003e40  13 2a 53 43 48 4f 4f 53  45 20 77 69 6c 6c 79 72  |.*SCHOOSE willyr|
00003e50  0d 1b 08 12 f0 20 26 45  44 2c 31 30 30 30 2c 33  |..... &ED,1000,3|
00003e60  30 30 0d 1b 12 07 d1 3d  30 0d 1b 1c 0c f5 20 fd  |00.....=0..... .|
00003e70  20 91 3e 33 30 0d 1b 26  05 db 0d 1b 30 10 2a 53  | .>30..&....0.*S|
00003e80  43 48 4f 4f 53 45 20 61  72 6d 0d 1b 3a 09 e6 20  |CHOOSE arm..:.. |
00003e90  38 2c 30 0d 1b 44 12 f0  20 26 45 44 2c 31 30 30  |8,0..D.. &ED,100|
00003ea0  30 2c 34 33 35 0d 1b 4e  13 2a 53 43 48 4f 4f 53  |0,435..N.*SCHOOS|
00003eb0  45 20 77 69 6c 6c 79 72  0d 1b 58 12 f0 20 26 45  |E willyr..X.. &E|
00003ec0  44 2c 31 30 30 30 2c 33  30 30 0d 1b 62 20 f1 20  |D,1000,300..b . |
00003ed0  8a 35 39 2c 31 32 29 22  54 48 45 20 44 52 41 47  |.59,12)"THE DRAG|
00003ee0  4f 4e 20 4b 49 4c 4c 45  52 22 0d 1b 6c 07 d1 3d  |ON KILLER"..l..=|
00003ef0  30 0d 1b 76 0d f5 20 fd  20 91 3e 36 30 30 0d 1b  |0..v.. . .>600..|
00003f00  80 07 eb 20 31 0d 1b 8a  05 87 0d 1b 94 1e f1 20  |... 1.......... |
00003f10  8a 31 33 2c 31 34 29 22  57 49 4c 4c 59 20 53 55  |.13,14)"WILLY SU|
00003f20  43 43 45 45 44 45 44 22  0d 1b 9e 07 d1 3d 30 0d  |CCEEDED".....=0.|
00003f30  1b a8 0d f5 20 fd 20 91  3e 35 30 30 0d 1b b2 05  |.... . .>500....|
00003f40  e1 0d 1b bc 05 3a 0d 1b  c6 05 3a 0d 1b d0 0b dd  |.....:....:.....|
00003f50  20 f2 67 61 6d 65 0d 1b  da 0a f2 62 75 69 6c 64  | .game.....build|
00003f60  0d 1b e4 0e 2a 50 4f 49  4e 54 45 52 20 31 0d 1b  |....*POINTER 1..|
00003f70  ee 05 f5 0d 1b f8 0e c8  97 20 61 2c 62 2c 63 2c  |......... a,b,c,|
00003f80  64 0d 1c 02 30 e7 20 61  3e 35 33 32 20 80 20 61  |d...0. a>532 . a|
00003f90  3c 38 30 30 20 80 20 62  3e 30 20 80 20 62 3c 31  |<800 . b>0 . b<1|
00003fa0  30 38 20 80 20 63 3d 34  20 8c 20 65 78 69 74 3d  |08 . c=4 . exit=|
00003fb0  b9 0d 1c 0c 2f e7 20 61  3e 30 20 80 20 61 3c 32  |..../. a>0 . a<2|
00003fc0  37 30 20 80 20 62 3e 32  33 30 20 80 20 62 3c 33  |70 . b>230 . b<3|
00003fd0  35 30 20 80 20 63 3d 34  20 8c 20 f2 6c 6f 6f 6b  |50 . c=4 . .look|
00003fe0  0d 1c 16 31 e7 20 61 3e  35 33 32 20 80 20 61 3c  |...1. a>532 . a<|
00003ff0  38 30 30 20 80 20 62 3e  31 30 38 20 80 20 62 3c  |800 . b>108 . b<|
00004000  32 32 38 20 80 20 63 3d  34 20 8c 20 f2 6d 6f 76  |228 . c=4 . .mov|
00004010  65 0d 1c 20 31 e7 20 61  3e 32 36 38 20 80 20 61  |e.. 1. a>268 . a|
00004020  3c 35 33 32 20 80 20 62  3e 30 20 80 20 62 3c 31  |<532 . b>0 . b<1|
00004030  30 38 20 80 20 63 3d 34  20 8c 20 f2 70 69 63 6b  |08 . c=4 . .pick|
00004040  75 70 0d 1c 2a 2f e7 20  61 3e 30 20 80 20 61 3c  |up..*/. a>0 . a<|
00004050  32 36 38 20 80 20 62 3e  31 30 38 20 80 20 62 3c  |268 . b>108 . b<|
00004060  32 32 38 20 80 20 63 3d  34 20 8c 20 f2 6f 70 65  |228 . c=4 . .ope|
00004070  6e 0d 1c 34 2e e7 20 61  3e 30 20 80 20 61 3c 32  |n..4.. a>0 . a<2|
00004080  36 38 20 80 20 62 3e 30  20 80 20 62 3c 31 30 38  |68 . b>0 . b<108|
00004090  20 80 20 63 3d 34 20 8c  20 f2 63 6c 6f 73 65 0d  | . c=4 . .close.|
000040a0  1c 3e 31 e7 20 61 3e 32  36 38 20 80 20 61 3c 35  |.>1. a>268 . a<5|
000040b0  33 32 20 80 20 62 3e 32  33 30 20 80 20 62 3c 33  |32 . b>230 . b<3|
000040c0  35 30 20 80 20 63 3d 34  20 8c 20 f2 74 61 6c 6b  |50 . c=4 . .talk|
000040d0  0d 1c 48 31 e7 20 61 3e  32 36 38 20 80 20 61 3c  |..H1. a>268 . a<|
000040e0  35 33 32 20 80 20 62 3e  31 30 38 20 80 20 62 3c  |532 . b>108 . b<|
000040f0  32 32 38 20 80 20 63 3d  34 20 8c 20 f2 67 69 76  |228 . c=4 . .giv|
00004100  65 0d 1c 52 30 e7 20 61  3e 35 33 32 20 80 20 61  |e..R0. a>532 . a|
00004110  3c 38 30 30 20 80 20 62  3e 32 33 30 20 80 20 62  |<800 . b>230 . b|
00004120  3c 33 35 30 20 80 20 63  3d 34 20 8c 20 f2 75 73  |<350 . c=4 . .us|
00004130  65 0d 1c 5c 15 e7 20 62  3e 33 39 35 20 80 20 62  |e..\.. b>395 . b|
00004140  3c 39 35 39 20 8c 0d 1c  66 0b 6d 6f 76 65 64 3d  |<959 ...f.moved=|
00004150  a3 0d 1c 70 0b 63 6f 75  6e 74 3d 30 0d 1c 7a 05  |...p.count=0..z.|
00004160  f5 0d 1c 84 0c 63 6f 75  6e 74 2b 3d 31 0d 1c 8e  |.....count+=1...|
00004170  0a 6f 76 65 72 3d a3 0d  1c 98 98 e7 20 61 3e 63  |.over=...... a>c|
00004180  6f 6f 72 64 69 6e 61 74  65 28 61 72 65 61 2c 63  |oordinate(area,c|
00004190  6f 75 6e 74 2c 31 29 20  80 20 61 3c 63 6f 6f 72  |ount,1) . a<coor|
000041a0  64 69 6e 61 74 65 28 61  72 65 61 2c 63 6f 75 6e  |dinate(area,coun|
000041b0  74 2c 33 29 20 80 20 62  3e 63 6f 6f 72 64 69 6e  |t,3) . b>coordin|
000041c0  61 74 65 28 61 72 65 61  2c 63 6f 75 6e 74 2c 32  |ate(area,count,2|
000041d0  29 20 80 20 62 3c 63 6f  6f 72 64 69 6e 61 74 65  |) . b<coordinate|
000041e0  28 61 72 65 61 2c 63 6f  75 6e 74 2c 34 29 20 80  |(area,count,4) .|
000041f0  20 6f 62 6a 65 63 74 73  28 61 72 65 61 2c 63 6f  | objects(area,co|
00004200  75 6e 74 29 3d 31 20 8c  20 6f 76 65 72 3d b9 0d  |unt)=1 . over=..|
00004210  1c a2 15 70 72 69 6e 74  24 3d 22 57 41 4c 4b 20  |...print$="WALK |
00004220  54 4f 20 22 0d 1c ac 0e  e7 20 6f 76 65 72 3d b9  |TO "..... over=.|
00004230  20 8c 0d 1c b6 23 70 72  69 6e 74 24 3d 70 72 69  | ....#print$=pri|
00004240  6e 74 24 2b 6e 61 6d 65  24 28 61 72 65 61 2c 63  |nt$+name$(area,c|
00004250  6f 75 6e 74 29 0d 1c c0  0b e7 20 63 3d 34 20 8c  |ount)..... c=4 .|
00004260  0d 1c ca 09 f2 77 61 6c  6b 0d 1c d4 0b 6d 6f 76  |.....walk....mov|
00004270  65 64 3d b9 0d 1c de 1d  e7 20 77 61 6c 6b 28 61  |ed=...... walk(a|
00004280  72 65 61 2c 63 6f 75 6e  74 2c 31 29 3c 3e 30 20  |rea,count,1)<>0 |
00004290  8c 0d 1c e8 18 78 3d 77  61 6c 6b 28 61 72 65 61  |.....x=walk(area|
000042a0  2c 63 6f 75 6e 74 2c 32  29 0d 1c f2 1b 61 72 65  |,count,2)....are|
000042b0  61 3d 77 61 6c 6b 28 61  72 65 61 2c 63 6f 75 6e  |a=walk(area,coun|
000042c0  74 2c 31 29 0d 1c fc 28  e7 20 78 3c 35 30 30 20  |t,1)...(. x<500 |
000042d0  8c 20 64 69 72 65 63 74  69 6f 6e 3d 31 20 8b 20  |. direction=1 . |
000042e0  64 69 72 65 63 74 69 6f  6e 3d 2d 31 0d 1d 06 0a  |direction=-1....|
000042f0  f2 62 75 69 6c 64 0d 1d  10 05 cd 0d 1d 1a 05 cd  |.build..........|
00004300  0d 1d 24 05 cd 0d 1d 2e  16 fd 20 63 6f 75 6e 74  |..$....... count|
00004310  3d 37 20 84 20 6f 76 65  72 3d b9 0d 1d 38 1b e7  |=7 . over=...8..|
00004320  20 6d 6f 76 65 64 3d a3  20 80 20 63 3d 34 20 8c  | moved=. . c=4 .|
00004330  20 f2 77 61 6c 6b 0d 1d  42 05 cd 0d 1d 4c 28 e7  | .walk..B....L(.|
00004340  20 62 3c 3d 33 39 35 20  84 20 62 3e 3d 39 35 39  | b<=395 . b>=959|
00004350  20 8c 20 70 72 69 6e 74  24 3d 22 57 41 4c 4b 20  | . print$="WALK |
00004360  54 4f 22 0d 1d 56 14 e7  20 70 72 69 6e 74 24 3c  |TO"..V.. print$<|
00004370  3e 6f 6c 64 24 20 8c 0d  1d 60 08 f1 20 22 22 0d  |>old$ ...`.. "".|
00004380  1d 6a 0d f1 20 70 72 69  6e 74 24 3b 0d 1d 74 05  |.j.. print$;..t.|
00004390  cd 0d 1d 7e 0f 6f 6c 64  24 3d 70 72 69 6e 74 24  |...~.old$=print$|
000043a0  0d 1d 88 13 e7 20 64 69  72 65 63 74 69 6f 6e 3d  |..... direction=|
000043b0  31 20 8c 0d 1d 92 13 2a  53 43 48 4f 4f 53 45 20  |1 .....*SCHOOSE |
000043c0  77 69 6c 6c 79 72 0d 1d  9c 05 cc 0d 1d a6 13 2a  |willyr.........*|
000043d0  53 43 48 4f 4f 53 45 20  77 69 6c 6c 79 6c 0d 1d  |SCHOOSE willyl..|
000043e0  b0 05 cd 0d 1d ba 08 e6  20 36 33 0d 1d c4 0d f0  |........ 63.....|
000043f0  20 26 45 44 2c 78 2c 79  0d 1d ce 25 e7 20 6c 65  | &ED,x,y...%. le|
00004400  76 65 6c 25 3d 31 20 80  20 6d 61 70 25 3d 33 20  |vel%=1 . map%=3 |
00004410  8c 20 63 6f 6d 70 6c 65  74 65 64 3d b9 0d 1d d8  |. completed=....|
00004420  1a fd 20 63 6f 6d 70 6c  65 74 65 64 3d b9 20 84  |.. completed=. .|
00004430  20 65 78 69 74 3d b9 0d  1d e2 05 e1 0d 1d ec 05  | exit=..........|
00004440  3a 0d 1d f6 05 3a 0d 1e  00 0b dd 20 f2 6c 6f 6f  |:....:..... .loo|
00004450  6b 0d 1e 0a 08 f1 20 22  22 0d 1e 14 0b 6f 6c 64  |k..... ""....old|
00004460  24 3d 22 22 0d 1e 1e 11  f1 20 22 4c 4f 4f 4b 20  |$=""..... "LOOK |
00004470  41 54 20 22 3b 0d 1e 28  07 d1 3d 30 0d 1e 32 0c  |AT ";..(..=0..2.|
00004480  f5 20 fd 20 91 3e 35 30  0d 1e 3c 05 f5 0d 1e 46  |. . .>50..<....F|
00004490  0e c8 97 20 61 2c 62 2c  63 2c 64 0d 1e 50 14 70  |... a,b,c,d..P.p|
000044a0  72 69 6e 74 24 3d 22 4c  4f 4f 4b 20 41 54 22 0d  |rint$="LOOK AT".|
000044b0  1e 5a 15 e7 20 62 3e 33  39 35 20 80 20 62 3c 39  |.Z.. b>395 . b<9|
000044c0  35 39 20 8c 0d 1e 64 11  e3 20 63 68 65 63 6b 3d  |59 ...d.. check=|
000044d0  31 20 b8 20 37 0d 1e 6e  0a 6f 76 65 72 3d a3 0d  |1 . 7..n.over=..|
000044e0  1e 78 98 e7 20 61 3e 63  6f 6f 72 64 69 6e 61 74  |.x.. a>coordinat|
000044f0  65 28 61 72 65 61 2c 63  68 65 63 6b 2c 31 29 20  |e(area,check,1) |
00004500  80 20 61 3c 63 6f 6f 72  64 69 6e 61 74 65 28 61  |. a<coordinate(a|
00004510  72 65 61 2c 63 68 65 63  6b 2c 33 29 20 80 20 62  |rea,check,3) . b|
00004520  3e 63 6f 6f 72 64 69 6e  61 74 65 28 61 72 65 61  |>coordinate(area|
00004530  2c 63 68 65 63 6b 2c 32  29 20 80 20 62 3c 63 6f  |,check,2) . b<co|
00004540  6f 72 64 69 6e 61 74 65  28 61 72 65 61 2c 63 68  |ordinate(area,ch|
00004550  65 63 6b 2c 34 29 20 80  20 6f 62 6a 65 63 74 73  |eck,4) . objects|
00004560  28 61 72 65 61 2c 63 68  65 63 6b 29 3d 31 20 8c  |(area,check)=1 .|
00004570  20 6f 76 65 72 3d b9 0d  1e 82 0e e7 20 6f 76 65  | over=...... ove|
00004580  72 3d b9 20 8c 0d 1e 8c  27 70 72 69 6e 74 24 3d  |r=. ....'print$=|
00004590  22 4c 4f 4f 4b 20 41 54  20 22 2b 6e 61 6d 65 24  |"LOOK AT "+name$|
000045a0  28 61 72 65 61 2c 63 68  65 63 6b 29 0d 1e 96 0b  |(area,check)....|
000045b0  e7 20 63 3d 34 20 8c 0d  1e a0 09 f2 77 61 6c 6b  |. c=4 ......walk|
000045c0  0d 1e aa 4c e7 20 6c 6f  6f 6b 24 28 61 72 65 61  |...L. look$(area|
000045d0  2c 63 68 65 63 6b 29 3d  22 22 20 8c 20 73 61 79  |,check)="" . say|
000045e0  24 3d 22 4e 4f 54 48 49  4e 47 20 53 50 45 43 49  |$="NOTHING SPECI|
000045f0  41 4c 22 20 8b 20 73 61  79 24 3d 6c 6f 6f 6b 24  |AL" . say$=look$|
00004600  28 61 72 65 61 2c 63 68  65 63 6b 29 0d 1e b4 08  |(area,check)....|
00004610  f2 73 61 79 0d 1e be 05  cd 0d 1e c8 05 cd 0d 1e  |.say............|
00004620  d2 05 ed 0d 1e dc 05 cc  0d 1e e6 16 e3 20 69 6e  |............. in|
00004630  76 65 6e 63 68 65 63 6b  3d 31 20 b8 20 38 0d 1e  |vencheck=1 . 8..|
00004640  f0 0f 63 6c 69 63 6b 65  64 6f 6e 3d 30 0d 1e fa  |..clickedon=0...|
00004650  61 e7 20 61 3e 37 39 39  20 80 20 61 3c 31 30 33  |a. a>799 . a<103|
00004660  39 20 80 20 62 3e 33 32  30 2d 28 69 6e 76 65 6e  |9 . b>320-(inven|
00004670  63 68 65 63 6b 2a 33 32  2e 35 29 20 80 20 62 3c  |check*32.5) . b<|
00004680  33 35 32 2e 35 2d 28 69  6e 76 65 6e 63 68 65 63  |352.5-(invenchec|
00004690  6b 2a 33 32 2e 35 29 20  8c 20 63 6c 69 63 6b 65  |k*32.5) . clicke|
000046a0  64 6f 6e 3d 69 6e 76 65  6e 63 68 65 63 6b 0d 1f  |don=invencheck..|
000046b0  04 64 e7 20 61 3e 31 30  33 39 20 80 20 61 3c 31  |.d. a>1039 . a<1|
000046c0  32 37 39 20 80 20 62 3e  33 32 30 2d 28 69 6e 76  |279 . b>320-(inv|
000046d0  65 6e 63 68 65 63 6b 2a  33 32 2e 35 29 20 80 20  |encheck*32.5) . |
000046e0  62 3c 33 35 32 2e 35 2d  28 69 6e 76 65 6e 63 68  |b<352.5-(invench|
000046f0  65 63 6b 2a 33 32 2e 35  29 20 8c 20 63 6c 69 63  |eck*32.5) . clic|
00004700  6b 65 64 6f 6e 3d 69 6e  76 65 6e 63 68 65 63 6b  |kedon=invencheck|
00004710  2b 38 0d 1f 0e 14 e7 20  63 6c 69 63 6b 65 64 6f  |+8..... clickedo|
00004720  6e 3c 3e 30 20 8c 0d 1f  18 21 e7 20 69 6e 76 65  |n<>0 ....!. inve|
00004730  6e 74 6f 72 79 28 63 6c  69 63 6b 65 64 6f 6e 2c  |ntory(clickedon,|
00004740  31 29 3c 3e 30 20 8c 0d  1f 22 4a 70 72 69 6e 74  |1)<>0 ..."Jprint|
00004750  24 3d 22 4c 4f 4f 4b 20  41 54 20 22 2b 6e 61 6d  |$="LOOK AT "+nam|
00004760  65 24 28 69 6e 76 65 6e  74 6f 72 79 28 63 6c 69  |e$(inventory(cli|
00004770  63 6b 65 64 6f 6e 2c 31  29 2c 69 6e 76 65 6e 74  |ckedon,1),invent|
00004780  6f 72 79 28 63 6c 69 63  6b 65 64 6f 6e 2c 32 29  |ory(clickedon,2)|
00004790  29 0d 1f 2c 0b e7 20 63  3d 34 20 8c 0d 1f 36 3d  |)..,.. c=4 ...6=|
000047a0  73 61 79 24 3d 6c 6f 6f  6b 24 28 69 6e 76 65 6e  |say$=look$(inven|
000047b0  74 6f 72 79 28 63 6c 69  63 6b 65 64 6f 6e 2c 31  |tory(clickedon,1|
000047c0  29 2c 69 6e 76 65 6e 74  6f 72 79 28 63 6c 69 63  |),inventory(clic|
000047d0  6b 65 64 6f 6e 2c 32 29  29 0d 1f 40 08 f2 73 61  |kedon,2))..@..sa|
000047e0  79 0d 1f 4a 05 cd 0d 1f  54 05 cd 0d 1f 5e 05 cd  |y..J....T....^..|
000047f0  0d 1f 68 05 ed 0d 1f 72  05 cd 0d 1f 7c 14 e7 20  |..h....r....|.. |
00004800  70 72 69 6e 74 24 3c 3e  6f 6c 64 24 20 8c 0d 1f  |print$<>old$ ...|
00004810  86 08 f1 20 22 22 0d 1f  90 0d f1 20 70 72 69 6e  |... ""..... prin|
00004820  74 24 3b 0d 1f 9a 0f 6f  6c 64 24 3d 70 72 69 6e  |t$;....old$=prin|
00004830  74 24 0d 1f a4 05 cd 0d  1f ae 09 fd 20 63 3d 34  |t$.......... c=4|
00004840  0d 1f b8 07 63 3d 30 0d  1f c2 15 70 72 69 6e 74  |....c=0....print|
00004850  24 3d 22 57 41 4c 4b 20  54 4f 20 22 0d 1f cc 08  |$="WALK TO "....|
00004860  f1 20 22 22 0d 1f d6 10  f1 20 22 57 41 4c 4b 20  |. ""..... "WALK |
00004870  54 4f 22 3b 0d 1f e0 05  e1 0d 1f ea 05 3a 0d 1f  |TO";.........:..|
00004880  f4 05 3a 0d 1f fe 0b dd  20 f2 6d 6f 76 65 0d 20  |..:..... .move. |
00004890  08 08 f1 20 22 22 0d 20  12 0b 6f 6c 64 24 3d 22  |... "". ..old$="|
000048a0  22 0d 20 1c 0d f1 20 22  4d 4f 56 45 22 3b 0d 20  |". ... "MOVE";. |
000048b0  26 07 d1 3d 30 0d 20 30  0c f5 20 fd 20 91 3e 35  |&..=0. 0.. . .>5|
000048c0  30 0d 20 3a 05 f5 0d 20  44 0e c8 97 20 61 2c 62  |0. :... D... a,b|
000048d0  2c 63 2c 64 0d 20 4e 11  70 72 69 6e 74 24 3d 22  |,c,d. N.print$="|
000048e0  4d 4f 56 45 22 0d 20 58  15 e7 20 62 3e 33 39 35  |MOVE". X.. b>395|
000048f0  20 80 20 62 3c 39 35 39  20 8c 0d 20 62 11 e3 20  | . b<959 .. b.. |
00004900  63 68 65 63 6b 3d 31 20  b8 20 37 0d 20 6c 0a 6f  |check=1 . 7. l.o|
00004910  76 65 72 3d a3 0d 20 76  98 e7 20 61 3e 63 6f 6f  |ver=.. v.. a>coo|
00004920  72 64 69 6e 61 74 65 28  61 72 65 61 2c 63 68 65  |rdinate(area,che|
00004930  63 6b 2c 31 29 20 80 20  61 3c 63 6f 6f 72 64 69  |ck,1) . a<coordi|
00004940  6e 61 74 65 28 61 72 65  61 2c 63 68 65 63 6b 2c  |nate(area,check,|
00004950  33 29 20 80 20 62 3e 63  6f 6f 72 64 69 6e 61 74  |3) . b>coordinat|
00004960  65 28 61 72 65 61 2c 63  68 65 63 6b 2c 32 29 20  |e(area,check,2) |
00004970  80 20 62 3c 63 6f 6f 72  64 69 6e 61 74 65 28 61  |. b<coordinate(a|
00004980  72 65 61 2c 63 68 65 63  6b 2c 34 29 20 80 20 6f  |rea,check,4) . o|
00004990  62 6a 65 63 74 73 28 61  72 65 61 2c 63 68 65 63  |bjects(area,chec|
000049a0  6b 29 3d 31 20 8c 20 6f  76 65 72 3d b9 0d 20 80  |k)=1 . over=.. .|
000049b0  0e e7 20 6f 76 65 72 3d  b9 20 8c 0d 20 8a 24 70  |.. over=. .. .$p|
000049c0  72 69 6e 74 24 3d 22 4d  4f 56 45 20 22 2b 6e 61  |rint$="MOVE "+na|
000049d0  6d 65 24 28 61 72 65 61  2c 63 68 65 63 6b 29 0d  |me$(area,check).|
000049e0  20 94 0b e7 20 63 3d 34  20 8c 0d 20 9e 09 f2 77  | ... c=4 .. ...w|
000049f0  61 6c 6b 0d 20 a8 1a e7  20 6d 6f 76 65 28 61 72  |alk. ... move(ar|
00004a00  65 61 2c 63 68 65 63 6b  29 3d 31 20 8c 0d 20 b2  |ea,check)=1 .. .|
00004a10  18 e7 20 61 72 65 61 3d  35 20 80 20 63 68 65 63  |.. area=5 . chec|
00004a20  6b 3d 32 20 8c 0d 20 bc  35 73 61 79 24 3d 22 49  |k=2 .. .5say$="I|
00004a30  20 43 41 4e 60 54 20 51  55 49 54 45 20 46 49 4e  | CAN`T QUITE FIN|
00004a40  44 20 54 48 45 20 53 54  52 45 4e 47 54 48 20 54  |D THE STRENGTH T|
00004a50  4f 20 4c 49 46 54 20 49  54 22 0d 20 c6 08 f2 73  |O LIFT IT". ...s|
00004a60  61 79 0d 20 d0 05 cd 0d  20 da 05 cc 0d 20 e4 20  |ay. .... .... . |
00004a70  73 61 79 24 3d 22 49 20  44 4f 4e 60 54 20 53 45  |say$="I DON`T SE|
00004a80  45 20 54 48 45 20 50 4f  49 4e 54 22 0d 20 ee 08  |E THE POINT". ..|
00004a90  f2 73 61 79 0d 20 f8 05  cd 0d 21 02 05 cd 0d 21  |.say. ....!....!|
00004aa0  0c 05 cd 0d 21 16 05 ed  0d 21 20 05 cd 0d 21 2a  |....!....! ...!*|
00004ab0  14 e7 20 70 72 69 6e 74  24 3c 3e 6f 6c 64 24 20  |.. print$<>old$ |
00004ac0  8c 0d 21 34 08 f1 20 22  22 0d 21 3e 0d f1 20 70  |..!4.. "".!>.. p|
00004ad0  72 69 6e 74 24 3b 0d 21  48 05 cd 0d 21 52 0f 6f  |rint$;.!H...!R.o|
00004ae0  6c 64 24 3d 70 72 69 6e  74 24 0d 21 5c 09 fd 20  |ld$=print$.!\.. |
00004af0  63 3d 34 0d 21 66 07 63  3d 30 0d 21 70 05 e1 0d  |c=4.!f.c=0.!p...|
00004b00  21 7a 05 3a 0d 21 84 05  3a 0d 21 8e 0d dd 20 f2  |!z.:.!..:.!... .|
00004b10  70 69 63 6b 75 70 0d 21  98 08 f1 20 22 22 0d 21  |pickup.!... "".!|
00004b20  a2 0b 6f 6c 64 24 3d 22  22 0d 21 ac 10 f1 20 22  |..old$="".!... "|
00004b30  50 49 43 4b 20 55 50 22  3b 0d 21 b6 07 d1 3d 30  |PICK UP";.!...=0|
00004b40  0d 21 c0 0c f5 20 fd 20  91 3e 35 30 0d 21 ca 05  |.!... . .>50.!..|
00004b50  f5 0d 21 d4 0e c8 97 20  61 2c 62 2c 63 2c 64 0d  |..!.... a,b,c,d.|
00004b60  21 de 14 70 72 69 6e 74  24 3d 22 50 49 43 4b 20  |!..print$="PICK |
00004b70  55 50 22 0d 21 e8 15 e7  20 62 3e 33 35 39 20 80  |UP".!... b>359 .|
00004b80  20 62 3c 39 35 39 20 8c  0d 21 f2 11 e3 20 63 68  | b<959 ..!... ch|
00004b90  65 63 6b 3d 31 20 b8 20  37 0d 21 fc 0a 6f 76 65  |eck=1 . 7.!..ove|
00004ba0  72 3d a3 0d 22 06 98 e7  20 61 3e 63 6f 6f 72 64  |r=.."... a>coord|
00004bb0  69 6e 61 74 65 28 61 72  65 61 2c 63 68 65 63 6b  |inate(area,check|
00004bc0  2c 31 29 20 80 20 61 3c  63 6f 6f 72 64 69 6e 61  |,1) . a<coordina|
00004bd0  74 65 28 61 72 65 61 2c  63 68 65 63 6b 2c 33 29  |te(area,check,3)|
00004be0  20 80 20 62 3e 63 6f 6f  72 64 69 6e 61 74 65 28  | . b>coordinate(|
00004bf0  61 72 65 61 2c 63 68 65  63 6b 2c 32 29 20 80 20  |area,check,2) . |
00004c00  62 3c 63 6f 6f 72 64 69  6e 61 74 65 28 61 72 65  |b<coordinate(are|
00004c10  61 2c 63 68 65 63 6b 2c  34 29 20 80 20 6f 62 6a  |a,check,4) . obj|
00004c20  65 63 74 73 28 61 72 65  61 2c 63 68 65 63 6b 29  |ects(area,check)|
00004c30  3d 31 20 8c 20 6f 76 65  72 3d b9 0d 22 10 0e e7  |=1 . over=.."...|
00004c40  20 6f 76 65 72 3d b9 20  8c 0d 22 1a 27 70 72 69  | over=. ..".'pri|
00004c50  6e 74 24 3d 22 50 49 43  4b 20 55 50 20 22 2b 6e  |nt$="PICK UP "+n|
00004c60  61 6d 65 24 28 61 72 65  61 2c 63 68 65 63 6b 29  |ame$(area,check)|
00004c70  0d 22 24 0b e7 20 63 3d  34 20 8c 0d 22 2e 09 f2  |."$.. c=4 .."...|
00004c80  77 61 6c 6b 0d 22 38 1c  e7 20 70 69 63 6b 75 70  |walk."8.. pickup|
00004c90  28 61 72 65 61 2c 63 68  65 63 6b 29 3d 31 20 8c  |(area,check)=1 .|
00004ca0  0d 22 42 19 6f 62 6a 65  63 74 73 28 61 72 65 61  |."B.objects(area|
00004cb0  2c 63 68 65 63 6b 29 3d  30 0d 22 4c 0e 74 61 72  |,check)=0."L.tar|
00004cc0  65 61 3d 61 72 65 61 0d  22 56 10 74 63 68 65 63  |ea=area."V.tchec|
00004cd0  6b 3d 63 68 65 63 6b 0d  22 60 09 f2 74 61 6b 65  |k=check."`..take|
00004ce0  0d 22 6a 0b f2 75 70 64  61 74 65 0d 22 74 18 e7  |."j..update."t..|
00004cf0  20 61 72 65 61 3d 37 20  80 20 63 68 65 63 6b 3d  | area=7 . check=|
00004d00  34 20 8c 0d 22 7e 10 75  73 65 28 37 2c 34 2c 31  |4 .."~.use(7,4,1|
00004d10  29 3d 34 0d 22 88 10 75  73 65 28 37 2c 34 2c 32  |)=4."..use(7,4,2|
00004d20  29 3d 36 0d 22 92 05 cd  0d 22 9c 05 cc 0d 22 a6  |)=6."...."....".|
00004d30  1a 73 61 79 24 3d 22 49  20 44 4f 4e 60 54 20 57  |.say$="I DON`T W|
00004d40  41 4e 54 20 49 54 22 0d  22 b0 46 e7 20 61 72 65  |ANT IT".".F. are|
00004d50  61 3d 31 31 20 80 20 63  68 65 63 6b 3d 32 20 8c  |a=11 . check=2 .|
00004d60  20 73 61 79 24 3d 22 49  20 43 41 4e 60 54 2e 20  | say$="I CAN`T. |
00004d70  49 54 60 53 20 53 54 49  4c 4c 20 54 49 45 44 20  |IT`S STILL TIED |
00004d80  54 4f 20 54 48 45 20 42  52 49 43 4b 22 0d 22 ba  |TO THE BRICK".".|
00004d90  3f e7 20 61 72 65 61 3d  31 34 20 80 20 63 68 65  |?. area=14 . che|
00004da0  63 6b 3d 32 20 8c 20 73  61 79 24 3d 22 49 60 4d  |ck=2 . say$="I`M|
00004db0  20 4e 4f 54 20 47 4f 49  4e 47 20 4e 45 41 52 20  | NOT GOING NEAR |
00004dc0  54 48 41 54 20 44 52 41  47 4f 4e 22 0d 22 c4 08  |THAT DRAGON"."..|
00004dd0  f2 73 61 79 0d 22 ce 05  cd 0d 22 d8 05 cd 0d 22  |.say."...."...."|
00004de0  e2 05 cd 0d 22 ec 05 ed  0d 22 f6 05 cd 0d 23 00  |...."...."....#.|
00004df0  14 e7 20 70 72 69 6e 74  24 3c 3e 6f 6c 64 24 20  |.. print$<>old$ |
00004e00  8c 0d 23 0a 08 f1 20 22  22 0d 23 14 0d f1 20 70  |..#... "".#... p|
00004e10  72 69 6e 74 24 3b 0d 23  1e 05 cd 0d 23 28 0f 6f  |rint$;.#....#(.o|
00004e20  6c 64 24 3d 70 72 69 6e  74 24 0d 23 32 09 fd 20  |ld$=print$.#2.. |
00004e30  63 3d 34 0d 23 3c 07 63  3d 30 0d 23 46 05 e1 0d  |c=4.#<.c=0.#F...|
00004e40  23 50 05 3a 0d 23 5a 05  3a 0d 23 64 0b dd 20 f2  |#P.:.#Z.:.#d.. .|
00004e50  6f 70 65 6e 0d 23 6e 08  64 6f 3d b9 0d 23 78 08  |open.#n.do=..#x.|
00004e60  f1 20 22 22 0d 23 82 0b  6f 6c 64 24 3d 22 22 0d  |. "".#..old$="".|
00004e70  23 8c 0d f1 20 22 4f 50  45 4e 22 3b 0d 23 96 07  |#... "OPEN";.#..|
00004e80  d1 3d 30 0d 23 a0 0c f5  20 fd 20 91 3e 35 30 0d  |.=0.#... . .>50.|
00004e90  23 aa 05 f5 0d 23 b4 0e  c8 97 20 61 2c 62 2c 63  |#....#.... a,b,c|
00004ea0  2c 64 0d 23 be 11 70 72  69 6e 74 24 3d 22 4f 50  |,d.#..print$="OP|
00004eb0  45 4e 22 0d 23 c8 15 e7  20 62 3e 33 39 35 20 80  |EN".#... b>395 .|
00004ec0  20 62 3c 39 35 39 20 8c  0d 23 d2 11 e3 20 63 68  | b<959 ..#... ch|
00004ed0  65 63 6b 3d 31 20 b8 20  37 0d 23 dc 0a 6f 76 65  |eck=1 . 7.#..ove|
00004ee0  72 3d a3 0d 23 e6 98 e7  20 61 3e 63 6f 6f 72 64  |r=..#... a>coord|
00004ef0  69 6e 61 74 65 28 61 72  65 61 2c 63 68 65 63 6b  |inate(area,check|
00004f00  2c 31 29 20 80 20 61 3c  63 6f 6f 72 64 69 6e 61  |,1) . a<coordina|
00004f10  74 65 28 61 72 65 61 2c  63 68 65 63 6b 2c 33 29  |te(area,check,3)|
00004f20  20 80 20 62 3e 63 6f 6f  72 64 69 6e 61 74 65 28  | . b>coordinate(|
00004f30  61 72 65 61 2c 63 68 65  63 6b 2c 32 29 20 80 20  |area,check,2) . |
00004f40  62 3c 63 6f 6f 72 64 69  6e 61 74 65 28 61 72 65  |b<coordinate(are|
00004f50  61 2c 63 68 65 63 6b 2c  34 29 20 80 20 6f 62 6a  |a,check,4) . obj|
00004f60  65 63 74 73 28 61 72 65  61 2c 63 68 65 63 6b 29  |ects(area,check)|
00004f70  3d 31 20 8c 20 6f 76 65  72 3d b9 0d 23 f0 15 e7  |=1 . over=..#...|
00004f80  20 6f 76 65 72 3d b9 20  80 20 64 6f 3d b9 20 8c  | over=. . do=. .|
00004f90  0d 23 fa 24 70 72 69 6e  74 24 3d 22 4f 50 45 4e  |.#.$print$="OPEN|
00004fa0  20 22 2b 6e 61 6d 65 24  28 61 72 65 61 2c 63 68  | "+name$(area,ch|
00004fb0  65 63 6b 29 0d 24 04 0b  e7 20 63 3d 34 20 8c 0d  |eck).$... c=4 ..|
00004fc0  24 0e 09 f2 77 61 6c 6b  0d 24 18 1a e7 20 6f 70  |$...walk.$... op|
00004fd0  65 6e 28 61 72 65 61 2c  63 68 65 63 6b 29 3d 31  |en(area,check)=1|
00004fe0  20 8c 0d 24 22 18 e7 20  61 72 65 61 3d 31 20 80  | ..$".. area=1 .|
00004ff0  20 63 68 65 63 6b 3d 32  20 8c 0d 24 2c 16 e7 20  | check=2 ..$,.. |
00005000  6f 62 6a 65 63 74 73 28  31 2c 35 29 3d 31 20 8c  |objects(1,5)=1 .|
00005010  0d 24 36 16 73 61 79 24  3d 22 49 54 60 53 20 4c  |.$6.say$="IT`S L|
00005020  4f 43 4b 45 44 22 0d 24  40 08 f2 73 61 79 0d 24  |OCKED".$@..say.$|
00005030  4a 05 cc 0d 24 54 12 6f  62 6a 65 63 74 73 28 31  |J...$T.objects(1|
00005040  2c 32 29 3d 30 0d 24 5e  12 6f 62 6a 65 63 74 73  |,2)=0.$^.objects|
00005050  28 31 2c 34 29 3d 31 0d  24 68 08 64 6f 3d a3 0d  |(1,4)=1.$h.do=..|
00005060  24 72 0b f2 75 70 64 61  74 65 0d 24 7c 05 cd 0d  |$r..update.$|...|
00005070  24 86 05 cd 0d 24 90 18  e7 20 61 72 65 61 3d 32  |$....$... area=2|
00005080  20 80 20 63 68 65 63 6b  3d 33 20 8c 0d 24 9a 12  | . check=3 ..$..|
00005090  6f 62 6a 65 63 74 73 28  32 2c 33 29 3d 30 0d 24  |objects(2,3)=0.$|
000050a0  a4 12 6f 62 6a 65 63 74  73 28 32 2c 34 29 3d 31  |..objects(2,4)=1|
000050b0  0d 24 ae 0b f2 75 70 64  61 74 65 0d 24 b8 08 64  |.$...update.$..d|
000050c0  6f 3d a3 0d 24 c2 05 cd  0d 24 cc 18 e7 20 61 72  |o=..$....$... ar|
000050d0  65 61 3d 38 20 80 20 63  68 65 63 6b 3d 32 20 8c  |ea=8 . check=2 .|
000050e0  0d 24 d6 12 6f 62 6a 65  63 74 73 28 38 2c 32 29  |.$..objects(8,2)|
000050f0  3d 30 0d 24 e0 12 6f 62  6a 65 63 74 73 28 38 2c  |=0.$..objects(8,|
00005100  33 29 3d 31 0d 24 ea 0b  f2 75 70 64 61 74 65 0d  |3)=1.$...update.|
00005110  24 f4 08 64 6f 3d a3 0d  24 fe 05 cd 0d 25 08 18  |$..do=..$....%..|
00005120  e7 20 61 72 65 61 3d 34  20 80 20 63 68 65 63 6b  |. area=4 . check|
00005130  3d 33 20 8c 0d 25 12 38  73 61 79 24 3d 22 57 48  |=3 ..%.8say$="WH|
00005140  41 54 20 54 59 50 45 20  4f 46 20 53 50 45 4c 4c  |AT TYPE OF SPELL|
00005150  20 44 4f 20 59 4f 55 20  57 41 4e 54 20 4d 45 20  | DO YOU WANT ME |
00005160  54 4f 20 4c 4f 4f 4b 20  55 50 3f 22 0d 25 1c 08  |TO LOOK UP?".%..|
00005170  f2 73 61 79 0d 25 26 05  db 0d 25 30 05 ee 0d 25  |.say.%&...%0...%|
00005180  3a 0c 2a 46 58 20 31 35  2c 31 0d 25 44 0c e8 20  |:.*FX 15,1.%D.. |
00005190  73 70 65 6c 6c 24 0d 25  4e 05 87 0d 25 58 22 73  |spell$.%N...%X"s|
000051a0  61 79 24 3d 22 49 20 43  41 4e 60 54 20 46 49 4e  |ay$="I CAN`T FIN|
000051b0  44 20 54 48 41 54 20 53  50 45 4c 4c 22 0d 25 62  |D THAT SPELL".%b|
000051c0  53 e7 20 73 70 65 6c 6c  24 3d 22 4c 4f 56 45 22  |S. spell$="LOVE"|
000051d0  20 84 20 73 70 65 6c 6c  24 3d 22 6c 6f 76 65 22  | . spell$="love"|
000051e0  20 84 20 73 70 65 6c 6c  24 3d 22 4c 4f 56 45 20  | . spell$="LOVE |
000051f0  50 4f 54 49 4f 4e 22 20  84 20 73 70 65 6c 6c 24  |POTION" . spell$|
00005200  3d 22 6c 6f 76 65 20 70  6f 74 69 6f 6e 22 20 8c  |="love potion" .|
00005210  0d 25 6c 53 73 61 79 24  3d 22 49 54 60 53 20 41  |.%lSsay$="IT`S A|
00005220  20 50 4f 54 49 4f 4e 2e  20 59 4f 55 20 4e 45 45  | POTION. YOU NEE|
00005230  44 20 53 4f 4d 45 20 43  41 52 42 4f 4e 20 41 4e  |D SOME CARBON AN|
00005240  44 20 41 20 4c 45 41 46  20 46 52 4f 4d 20 41 20  |D A LEAF FROM A |
00005250  42 55 52 4e 49 4e 47 20  46 49 52 45 20 50 4c 41  |BURNING FIRE PLA|
00005260  4e 54 22 0d 25 76 4e 6c  6f 6f 6b 24 28 39 2c 33  |NT".%vNlook$(9,3|
00005270  29 3d 22 57 45 4c 4c 20  49 54 60 53 20 41 20 50  |)="WELL IT`S A P|
00005280  4c 41 4e 54 20 42 55 54  20 49 20 44 4f 4e 60 54  |LANT BUT I DON`T|
00005290  20 54 48 49 4e 4b 20 49  54 60 53 20 41 20 42 55  | THINK IT`S A BU|
000052a0  52 4e 49 4e 47 20 46 49  52 45 20 50 4c 41 4e 54  |RNING FIRE PLANT|
000052b0  22 0d 25 80 05 cd 0d 25  8a 61 e7 20 73 70 65 6c  |".%....%.a. spel|
000052c0  6c 24 3d 22 53 54 52 45  4e 47 54 48 22 20 84 20  |l$="STRENGTH" . |
000052d0  73 70 65 6c 6c 24 3d 22  73 74 72 65 6e 67 74 68  |spell$="strength|
000052e0  22 20 84 20 73 70 65 6c  6c 24 3d 22 53 54 52 45  |" . spell$="STRE|
000052f0  4e 47 54 48 20 53 50 45  4c 4c 22 20 84 20 73 70  |NGTH SPELL" . sp|
00005300  65 6c 6c 24 3d 22 73 74  72 65 6e 67 74 68 20 73  |ell$="strength s|
00005310  70 65 6c 6c 22 20 8c 0d  25 94 0e e7 20 67 6f 74  |pell" ..%... got|
00005320  73 3d a3 20 8c 0d 25 9e  2d 73 61 79 24 3d 22 48  |s=. ..%.-say$="H|
00005330  45 52 45 20 49 54 20 49  53 2e 20 49 60 4c 4c 20  |ERE IT IS. I`LL |
00005340  54 45 41 52 20 4f 55 54  20 54 48 45 20 50 41 47  |TEAR OUT THE PAG|
00005350  45 22 0d 25 a8 0b 74 61  72 65 61 3d 34 0d 25 b2  |E".%..tarea=4.%.|
00005360  0c 74 63 68 65 63 6b 3d  34 0d 25 bc 09 f2 74 61  |.tcheck=4.%...ta|
00005370  6b 65 0d 25 c6 0a 67 6f  74 73 3d b9 0d 25 d0 05  |ke.%..gots=..%..|
00005380  cd 0d 25 da 05 cd 0d 25  e4 78 e7 20 73 70 65 6c  |..%....%.x. spel|
00005390  6c 24 3d 22 53 50 45 45  44 22 20 84 20 73 70 65  |l$="SPEED" . spe|
000053a0  6c 6c 24 3d 22 73 70 65  65 64 22 20 84 20 73 70  |ll$="speed" . sp|
000053b0  65 6c 6c 24 3d 22 53 50  45 45 44 20 53 50 45 4c  |ell$="SPEED SPEL|
000053c0  4c 22 20 84 20 73 70 65  6c 6c 24 3d 22 73 70 65  |L" . spell$="spe|
000053d0  65 64 20 73 70 65 6c 6c  22 20 8c 20 73 61 79 24  |ed spell" . say$|
000053e0  3d 22 54 48 41 54 20 50  41 47 45 20 48 41 53 20  |="THAT PAGE HAS |
000053f0  42 45 45 4e 20 54 4f 52  4e 20 4f 55 54 22 0d 25  |BEEN TORN OUT".%|
00005400  ee 08 f2 73 61 79 0d 25  f8 05 cd 0d 26 02 19 e7  |...say.%....&...|
00005410  20 61 72 65 61 3d 31 30  20 80 20 63 68 65 63 6b  | area=10 . check|
00005420  3d 32 20 8c 0d 26 0c 27  73 61 79 24 3d 22 49 54  |=2 ..&.'say$="IT|
00005430  60 53 20 4c 4f 43 4b 45  44 20 46 52 4f 4d 20 54  |`S LOCKED FROM T|
00005440  48 45 20 4f 55 54 53 49  44 45 22 0d 26 16 08 f2  |HE OUTSIDE".&...|
00005450  73 61 79 0d 26 20 05 cd  0d 26 2a 19 e7 20 61 72  |say.& ...&*.. ar|
00005460  65 61 3d 31 32 20 80 20  63 68 65 63 6b 3d 31 20  |ea=12 . check=1 |
00005470  8c 0d 26 34 13 6f 62 6a  65 63 74 73 28 31 32 2c  |..&4.objects(12,|
00005480  31 29 3d 30 0d 26 3e 13  6f 62 6a 65 63 74 73 28  |1)=0.&>.objects(|
00005490  31 32 2c 32 29 3d 31 0d  26 48 0b f2 75 70 64 61  |12,2)=1.&H..upda|
000054a0  74 65 0d 26 52 08 64 6f  3d a3 0d 26 5c 05 cd 0d  |te.&R.do=..&\...|
000054b0  26 66 05 cc 0d 26 70 1a  73 61 79 24 3d 22 49 20  |&f...&p.say$="I |
000054c0  43 41 4e 60 54 20 4f 50  45 4e 20 49 54 22 0d 26  |CAN`T OPEN IT".&|
000054d0  7a 08 f2 73 61 79 0d 26  84 05 cd 0d 26 8e 05 cd  |z..say.&....&...|
000054e0  0d 26 98 05 cd 0d 26 a2  05 ed 0d 26 ac 05 cd 0d  |.&....&....&....|
000054f0  26 b6 14 e7 20 70 72 69  6e 74 24 3c 3e 6f 6c 64  |&... print$<>old|
00005500  24 20 8c 0d 26 c0 08 f1  20 22 22 0d 26 ca 0d f1  |$ ..&... "".&...|
00005510  20 70 72 69 6e 74 24 3b  0d 26 d4 05 cd 0d 26 de  | print$;.&....&.|
00005520  0f 6f 6c 64 24 3d 70 72  69 6e 74 24 0d 26 e8 09  |.old$=print$.&..|
00005530  fd 20 63 3d 34 0d 26 f2  07 63 3d 30 0d 26 fc 05  |. c=4.&..c=0.&..|
00005540  e1 0d 27 06 05 3a 0d 27  10 05 3a 0d 27 1a 0c dd  |..'..:.'..:.'...|
00005550  20 f2 63 6c 6f 73 65 0d  27 24 08 64 6f 3d b9 0d  | .close.'$.do=..|
00005560  27 2e 08 f1 20 22 22 0d  27 38 0b 6f 6c 64 24 3d  |'... "".'8.old$=|
00005570  22 22 0d 27 42 0e f1 20  22 43 4c 4f 53 45 22 3b  |"".'B.. "CLOSE";|
00005580  0d 27 4c 07 d1 3d 30 0d  27 56 0c f5 20 fd 20 91  |.'L..=0.'V.. . .|
00005590  3e 35 30 0d 27 60 05 f5  0d 27 6a 0e c8 97 20 61  |>50.'`...'j... a|
000055a0  2c 62 2c 63 2c 64 0d 27  74 12 70 72 69 6e 74 24  |,b,c,d.'t.print$|
000055b0  3d 22 43 4c 4f 53 45 22  0d 27 7e 15 e7 20 62 3e  |="CLOSE".'~.. b>|
000055c0  33 39 35 20 80 20 62 3c  39 35 39 20 8c 0d 27 88  |395 . b<959 ..'.|
000055d0  11 e3 20 63 68 65 63 6b  3d 31 20 b8 20 37 0d 27  |.. check=1 . 7.'|
000055e0  92 0a 6f 76 65 72 3d a3  0d 27 9c 98 e7 20 61 3e  |..over=..'... a>|
000055f0  63 6f 6f 72 64 69 6e 61  74 65 28 61 72 65 61 2c  |coordinate(area,|
00005600  63 68 65 63 6b 2c 31 29  20 80 20 61 3c 63 6f 6f  |check,1) . a<coo|
00005610  72 64 69 6e 61 74 65 28  61 72 65 61 2c 63 68 65  |rdinate(area,che|
00005620  63 6b 2c 33 29 20 80 20  62 3e 63 6f 6f 72 64 69  |ck,3) . b>coordi|
00005630  6e 61 74 65 28 61 72 65  61 2c 63 68 65 63 6b 2c  |nate(area,check,|
00005640  32 29 20 80 20 62 3c 63  6f 6f 72 64 69 6e 61 74  |2) . b<coordinat|
00005650  65 28 61 72 65 61 2c 63  68 65 63 6b 2c 34 29 20  |e(area,check,4) |
00005660  80 20 6f 62 6a 65 63 74  73 28 61 72 65 61 2c 63  |. objects(area,c|
00005670  68 65 63 6b 29 3d 31 20  8c 20 6f 76 65 72 3d b9  |heck)=1 . over=.|
00005680  0d 27 a6 15 e7 20 6f 76  65 72 3d b9 20 80 20 64  |.'... over=. . d|
00005690  6f 3d b9 20 8c 0d 27 b0  25 70 72 69 6e 74 24 3d  |o=. ..'.%print$=|
000056a0  22 43 4c 4f 53 45 20 22  2b 6e 61 6d 65 24 28 61  |"CLOSE "+name$(a|
000056b0  72 65 61 2c 63 68 65 63  6b 29 0d 27 ba 0b e7 20  |rea,check).'... |
000056c0  63 3d 34 20 8c 0d 27 c4  09 f2 77 61 6c 6b 0d 27  |c=4 ..'...walk.'|
000056d0  ce 1b e7 20 63 6c 6f 73  65 28 61 72 65 61 2c 63  |... close(area,c|
000056e0  68 65 63 6b 29 3d 31 20  8c 0d 27 d8 18 e7 20 61  |heck)=1 ..'... a|
000056f0  72 65 61 3d 32 20 80 20  63 68 65 63 6b 3d 34 20  |rea=2 . check=4 |
00005700  8c 0d 27 e2 12 6f 62 6a  65 63 74 73 28 32 2c 34  |..'..objects(2,4|
00005710  29 3d 30 0d 27 ec 12 6f  62 6a 65 63 74 73 28 32  |)=0.'..objects(2|
00005720  2c 33 29 3d 31 0d 27 f6  0b f2 75 70 64 61 74 65  |,3)=1.'...update|
00005730  0d 28 00 08 64 6f 3d a3  0d 28 0a 05 cd 0d 28 14  |.(..do=..(....(.|
00005740  18 e7 20 61 72 65 61 3d  38 20 80 20 63 68 65 63  |.. area=8 . chec|
00005750  6b 3d 33 20 8c 0d 28 1e  12 6f 62 6a 65 63 74 73  |k=3 ..(..objects|
00005760  28 38 2c 33 29 3d 30 0d  28 28 12 6f 62 6a 65 63  |(8,3)=0.((.objec|
00005770  74 73 28 38 2c 32 29 3d  31 0d 28 32 0b f2 75 70  |ts(8,2)=1.(2..up|
00005780  64 61 74 65 0d 28 3c 08  64 6f 3d a3 0d 28 46 05  |date.(<.do=..(F.|
00005790  cd 0d 28 50 18 e7 20 61  72 65 61 3d 31 20 80 20  |..(P.. area=1 . |
000057a0  63 68 65 63 6b 3d 34 20  8c 0d 28 5a 12 6f 62 6a  |check=4 ..(Z.obj|
000057b0  65 63 74 73 28 31 2c 34  29 3d 30 0d 28 64 12 6f  |ects(1,4)=0.(d.o|
000057c0  62 6a 65 63 74 73 28 31  2c 32 29 3d 31 0d 28 6e  |bjects(1,2)=1.(n|
000057d0  0b f2 75 70 64 61 74 65  0d 28 78 08 64 6f 3d a3  |..update.(x.do=.|
000057e0  0d 28 82 05 cd 0d 28 8c  19 e7 20 61 72 65 61 3d  |.(....(... area=|
000057f0  31 32 20 80 20 63 68 65  63 6b 3d 32 20 8c 0d 28  |12 . check=2 ..(|
00005800  96 13 6f 62 6a 65 63 74  73 28 31 32 2c 32 29 3d  |..objects(12,2)=|
00005810  30 0d 28 a0 13 6f 62 6a  65 63 74 73 28 31 32 2c  |0.(..objects(12,|
00005820  31 29 3d 31 0d 28 aa 0b  f2 75 70 64 61 74 65 0d  |1)=1.(...update.|
00005830  28 b4 08 64 6f 3d a3 0d  28 be 05 cd 0d 28 c8 05  |(..do=..(....(..|
00005840  cc 0d 28 d2 1b 73 61 79  24 3d 22 49 20 43 41 4e  |..(..say$="I CAN|
00005850  60 54 20 43 4c 4f 53 45  20 49 54 22 0d 28 dc 08  |`T CLOSE IT".(..|
00005860  f2 73 61 79 0d 28 e6 05  cd 0d 28 f0 05 cd 0d 28  |.say.(....(....(|
00005870  fa 05 cd 0d 29 04 05 ed  0d 29 0e 05 cd 0d 29 18  |....)....)....).|
00005880  14 e7 20 70 72 69 6e 74  24 3c 3e 6f 6c 64 24 20  |.. print$<>old$ |
00005890  8c 0d 29 22 08 f1 20 22  22 0d 29 2c 0d f1 20 70  |..)".. "".),.. p|
000058a0  72 69 6e 74 24 3b 0d 29  36 05 cd 0d 29 40 0f 6f  |rint$;.)6...)@.o|
000058b0  6c 64 24 3d 70 72 69 6e  74 24 0d 29 4a 09 fd 20  |ld$=print$.)J.. |
000058c0  63 3d 34 0d 29 54 07 63  3d 30 0d 29 5e 05 e1 0d  |c=4.)T.c=0.)^...|
000058d0  29 68 05 3a 0d 29 72 05  3a 0d 29 7c 0b dd 20 f2  |)h.:.)r.:.)|.. .|
000058e0  74 61 6c 6b 0d 29 86 08  f1 20 22 22 0d 29 90 0b  |talk.)... "".)..|
000058f0  6f 6c 64 24 3d 22 22 0d  29 9a 11 f1 20 22 54 41  |old$="".)... "TA|
00005900  4c 4b 20 54 4f 20 22 3b  0d 29 a4 07 d1 3d 30 0d  |LK TO ";.)...=0.|
00005910  29 ae 0c f5 20 fd 20 91  3e 35 30 0d 29 b8 05 f5  |)... . .>50.)...|
00005920  0d 29 c2 0e c8 97 20 61  2c 62 2c 63 2c 64 0d 29  |.).... a,b,c,d.)|
00005930  cc 14 70 72 69 6e 74 24  3d 22 54 41 4c 4b 20 54  |..print$="TALK T|
00005940  4f 22 0d 29 d6 15 e7 20  62 3e 33 39 35 20 80 20  |O".)... b>395 . |
00005950  62 3c 39 35 39 20 8c 0d  29 e0 11 e3 20 63 68 65  |b<959 ..)... che|
00005960  63 6b 3d 31 20 b8 20 37  0d 29 ea 0a 6f 76 65 72  |ck=1 . 7.)..over|
00005970  3d a3 0d 29 f4 98 e7 20  61 3e 63 6f 6f 72 64 69  |=..)... a>coordi|
00005980  6e 61 74 65 28 61 72 65  61 2c 63 68 65 63 6b 2c  |nate(area,check,|
00005990  31 29 20 80 20 61 3c 63  6f 6f 72 64 69 6e 61 74  |1) . a<coordinat|
000059a0  65 28 61 72 65 61 2c 63  68 65 63 6b 2c 33 29 20  |e(area,check,3) |
000059b0  80 20 62 3e 63 6f 6f 72  64 69 6e 61 74 65 28 61  |. b>coordinate(a|
000059c0  72 65 61 2c 63 68 65 63  6b 2c 32 29 20 80 20 62  |rea,check,2) . b|
000059d0  3c 63 6f 6f 72 64 69 6e  61 74 65 28 61 72 65 61  |<coordinate(area|
000059e0  2c 63 68 65 63 6b 2c 34  29 20 80 20 6f 62 6a 65  |,check,4) . obje|
000059f0  63 74 73 28 61 72 65 61  2c 63 68 65 63 6b 29 3d  |cts(area,check)=|
00005a00  31 20 8c 20 6f 76 65 72  3d b9 0d 29 fe 0e e7 20  |1 . over=..)... |
00005a10  6f 76 65 72 3d b9 20 8c  0d 2a 08 27 70 72 69 6e  |over=. ..*.'prin|
00005a20  74 24 3d 22 54 41 4c 4b  20 54 4f 20 22 2b 6e 61  |t$="TALK TO "+na|
00005a30  6d 65 24 28 61 72 65 61  2c 63 68 65 63 6b 29 0d  |me$(area,check).|
00005a40  2a 12 0b e7 20 63 3d 34  20 8c 0d 2a 1c 09 f2 77  |*... c=4 ..*...w|
00005a50  61 6c 6b 0d 2a 26 1e e7  20 74 61 6c 6b 24 28 61  |alk.*&.. talk$(a|
00005a60  72 65 61 2c 63 68 65 63  6b 2c 31 29 3d 22 22 20  |rea,check,1)="" |
00005a70  8c 0d 2a 30 2d 73 61 79  24 3d 22 48 4d 4d 20 54  |..*0-say$="HMM T|
00005a80  48 45 52 45 53 20 4e 4f  20 41 4e 53 57 45 52 2c  |HERES NO ANSWER,|
00005a90  20 53 54 52 41 4e 47 45  20 54 48 41 54 22 0d 2a  | STRANGE THAT".*|
00005aa0  3a 08 f2 73 61 79 0d 2a  44 05 cc 0d 2a 4e 1c 73  |:..say.*D...*N.s|
00005ab0  61 79 24 3d 74 61 6c 6b  24 28 61 72 65 61 2c 63  |ay$=talk$(area,c|
00005ac0  68 65 63 6b 2c 31 29 0d  2a 58 09 f2 73 61 79 73  |heck,1).*X..says|
00005ad0  0d 2a 62 08 fb 20 33 31  0d 2a 6c 1c 73 61 79 24  |.*b.. 31.*l.say$|
00005ae0  3d 74 61 6c 6b 24 28 61  72 65 61 2c 63 68 65 63  |=talk$(area,chec|
00005af0  6b 2c 32 29 0d 2a 76 09  f2 73 61 79 73 0d 2a 80  |k,2).*v..says.*.|
00005b00  08 fb 20 36 33 0d 2a 8a  18 e7 20 61 72 65 61 3d  |.. 63.*... area=|
00005b10  36 20 80 20 63 68 65 63  6b 3d 34 20 8c 0d 2a 94  |6 . check=4 ..*.|
00005b20  39 74 61 6c 6b 24 28 36  2c 34 2c 31 29 3d 22 57  |9talk$(6,4,1)="W|
00005b30  48 59 20 41 52 45 4e 60  54 20 59 4f 55 20 4c 4f  |HY AREN`T YOU LO|
00005b40  4f 4b 49 4e 47 20 46 4f  52 20 54 48 45 20 44 52  |OKING FOR THE DR|
00005b50  41 47 4f 4e 3f 22 0d 2a  9e 4d 74 61 6c 6b 24 28  |AGON?".*.Mtalk$(|
00005b60  36 2c 34 2c 32 29 3d 22  49 60 56 45 20 4f 4e 4c  |6,4,2)="I`VE ONL|
00005b70  59 20 47 4f 54 20 50 41  52 54 20 4f 46 20 54 48  |Y GOT PART OF TH|
00005b80  45 20 4d 41 50 20 49 60  4c 4c 20 4e 45 56 45 52  |E MAP I`LL NEVER|
00005b90  20 46 49 4e 44 20 4d 59  20 57 41 59 20 54 48 45  | FIND MY WAY THE|
00005ba0  52 45 22 0d 2a a8 05 cd  0d 2a b2 05 cd 0d 2a bc  |RE".*....*....*.|
00005bb0  05 cd 0d 2a c6 05 cd 0d  2a d0 05 ed 0d 2a da 05  |...*....*....*..|
00005bc0  cd 0d 2a e4 14 e7 20 70  72 69 6e 74 24 3c 3e 6f  |..*... print$<>o|
00005bd0  6c 64 24 20 8c 0d 2a ee  08 f1 20 22 22 0d 2a f8  |ld$ ..*... "".*.|
00005be0  0d f1 20 70 72 69 6e 74  24 3b 0d 2b 02 0f 6f 6c  |.. print$;.+..ol|
00005bf0  64 24 3d 70 72 69 6e 74  24 0d 2b 0c 05 cd 0d 2b  |d$=print$.+....+|
00005c00  16 09 fd 20 63 3d 34 0d  2b 20 07 63 3d 30 0d 2b  |... c=4.+ .c=0.+|
00005c10  2a 15 70 72 69 6e 74 24  3d 22 57 41 4c 4b 20 54  |*.print$="WALK T|
00005c20  4f 20 22 0d 2b 34 08 f1  20 22 22 0d 2b 3e 10 f1  |O ".+4.. "".+>..|
00005c30  20 22 57 41 4c 4b 20 54  4f 22 3b 0d 2b 48 05 e1  | "WALK TO";.+H..|
00005c40  0d 2b 52 05 3a 0d 2b 5c  05 3a 0d 2b 66 0b dd 20  |.+R.:.+\.:.+f.. |
00005c50  f2 67 69 76 65 0d 2b 70  08 f1 20 22 22 0d 2b 7a  |.give.+p.. "".+z|
00005c60  0b 6f 6c 64 24 3d 22 22  0d 2b 84 0e f1 20 22 47  |.old$="".+... "G|
00005c70  49 56 45 20 22 3b 0d 2b  8e 07 d1 3d 30 0d 2b 98  |IVE ";.+...=0.+.|
00005c80  0c f5 20 fd 20 91 3e 35  30 0d 2b a2 0b 67 61 72  |.. . .>50.+..gar|
00005c90  65 61 3d 30 0d 2b ac 0d  67 6e 75 6d 62 65 72 3d  |ea=0.+..gnumber=|
00005ca0  30 0d 2b b6 05 f5 0d 2b  c0 0e c8 97 20 61 2c 62  |0.+....+.... a,b|
00005cb0  2c 63 2c 64 0d 2b ca 11  70 72 69 6e 74 24 3d 22  |,c,d.+..print$="|
00005cc0  47 49 56 45 22 0d 2b d4  16 e3 20 69 6e 76 65 6e  |GIVE".+... inven|
00005cd0  63 68 65 63 6b 3d 31 20  b8 20 38 0d 2b de 0f 63  |check=1 . 8.+..c|
00005ce0  6c 69 63 6b 65 64 6f 6e  3d 30 0d 2b e8 61 e7 20  |lickedon=0.+.a. |
00005cf0  61 3e 37 39 39 20 80 20  61 3c 31 30 33 39 20 80  |a>799 . a<1039 .|
00005d00  20 62 3e 33 32 30 2d 28  69 6e 76 65 6e 63 68 65  | b>320-(invenche|
00005d10  63 6b 2a 33 32 2e 35 29  20 80 20 62 3c 33 35 32  |ck*32.5) . b<352|
00005d20  2e 35 2d 28 69 6e 76 65  6e 63 68 65 63 6b 2a 33  |.5-(invencheck*3|
00005d30  32 2e 35 29 20 8c 20 63  6c 69 63 6b 65 64 6f 6e  |2.5) . clickedon|
00005d40  3d 69 6e 76 65 6e 63 68  65 63 6b 0d 2b f2 64 e7  |=invencheck.+.d.|
00005d50  20 61 3e 31 30 33 39 20  80 20 61 3c 31 32 37 39  | a>1039 . a<1279|
00005d60  20 80 20 62 3e 33 32 30  2d 28 69 6e 76 65 6e 63  | . b>320-(invenc|
00005d70  68 65 63 6b 2a 33 32 2e  35 29 20 80 20 62 3c 33  |heck*32.5) . b<3|
00005d80  35 32 2e 35 2d 28 69 6e  76 65 6e 63 68 65 63 6b  |52.5-(invencheck|
00005d90  2a 33 32 2e 35 29 20 8c  20 63 6c 69 63 6b 65 64  |*32.5) . clicked|
00005da0  6f 6e 3d 69 6e 76 65 6e  63 68 65 63 6b 2b 38 0d  |on=invencheck+8.|
00005db0  2b fc 14 e7 20 63 6c 69  63 6b 65 64 6f 6e 3c 3e  |+... clickedon<>|
00005dc0  30 20 8c 0d 2c 06 21 e7  20 69 6e 76 65 6e 74 6f  |0 ..,.!. invento|
00005dd0  72 79 28 63 6c 69 63 6b  65 64 6f 6e 2c 31 29 3c  |ry(clickedon,1)<|
00005de0  3e 30 20 8c 0d 2c 10 47  70 72 69 6e 74 24 3d 22  |>0 ..,.Gprint$="|
00005df0  47 49 56 45 20 22 2b 6e  61 6d 65 24 28 69 6e 76  |GIVE "+name$(inv|
00005e00  65 6e 74 6f 72 79 28 63  6c 69 63 6b 65 64 6f 6e  |entory(clickedon|
00005e10  2c 31 29 2c 69 6e 76 65  6e 74 6f 72 79 28 63 6c  |,1),inventory(cl|
00005e20  69 63 6b 65 64 6f 6e 2c  32 29 29 0d 2c 1a 0b e7  |ickedon,2)).,...|
00005e30  20 63 3d 34 20 8c 0d 2c  24 18 70 72 69 6e 74 24  | c=4 ..,$.print$|
00005e40  3d 70 72 69 6e 74 24 2b  22 20 54 4f 20 22 0d 2c  |=print$+" TO ".,|
00005e50  2e 0c f1 20 70 72 69 6e  74 24 0d 2c 38 20 67 61  |... print$.,8 ga|
00005e60  72 65 61 3d 69 6e 76 65  6e 74 6f 72 79 28 63 6c  |rea=inventory(cl|
00005e70  69 63 6b 65 64 6f 6e 2c  31 29 0d 2c 42 22 67 6e  |ickedon,1).,B"gn|
00005e80  75 6d 62 65 72 3d 69 6e  76 65 6e 74 6f 72 79 28  |umber=inventory(|
00005e90  63 6c 69 63 6b 65 64 6f  6e 2c 32 29 0d 2c 4c 15  |clickedon,2).,L.|
00005ea0  69 6e 75 6d 62 65 72 3d  63 6c 69 63 6b 65 64 6f  |inumber=clickedo|
00005eb0  6e 0d 2c 56 05 cd 0d 2c  60 05 cd 0d 2c 6a 05 cd  |n.,V...,`...,j..|
00005ec0  0d 2c 74 05 ed 0d 2c 7e  14 e7 20 70 72 69 6e 74  |.,t...,~.. print|
00005ed0  24 3c 3e 6f 6c 64 24 20  8c 0d 2c 88 08 f1 20 22  |$<>old$ ..,... "|
00005ee0  22 0d 2c 92 0d f1 20 70  72 69 6e 74 24 3b 0d 2c  |".,... print$;.,|
00005ef0  9c 0f 6f 6c 64 24 3d 70  72 69 6e 74 24 0d 2c a6  |..old$=print$.,.|
00005f00  05 cd 0d 2c b0 09 fd 20  63 3d 34 0d 2c ba 10 e7  |...,... c=4.,...|
00005f10  20 67 61 72 65 61 3c 3e  30 20 8c 0d 2c c4 07 d1  | garea<>0 ..,...|
00005f20  3d 30 0d 2c ce 0c f5 20  fd 20 91 3e 35 30 0d 2c  |=0.,... . .>50.,|
00005f30  d8 0f 77 61 73 24 3d 70  72 69 6e 74 24 0d 2c e2  |..was$=print$.,.|
00005f40  05 f5 0d 2c ec 0f 70 72  69 6e 74 24 3d 77 61 73  |...,..print$=was|
00005f50  24 0d 2c f6 0e c8 97 20  61 2c 62 2c 63 2c 64 0d  |$.,.... a,b,c,d.|
00005f60  2d 00 15 e7 20 62 3e 33  39 35 20 80 20 62 3c 39  |-... b>395 . b<9|
00005f70  35 39 20 8c 0d 2d 0a 11  e3 20 63 68 65 63 6b 3d  |59 ..-... check=|
00005f80  31 20 b8 20 37 0d 2d 14  0a 6f 76 65 72 3d a3 0d  |1 . 7.-..over=..|
00005f90  2d 1e 98 e7 20 61 3e 63  6f 6f 72 64 69 6e 61 74  |-... a>coordinat|
00005fa0  65 28 61 72 65 61 2c 63  68 65 63 6b 2c 31 29 20  |e(area,check,1) |
00005fb0  80 20 61 3c 63 6f 6f 72  64 69 6e 61 74 65 28 61  |. a<coordinate(a|
00005fc0  72 65 61 2c 63 68 65 63  6b 2c 33 29 20 80 20 62  |rea,check,3) . b|
00005fd0  3e 63 6f 6f 72 64 69 6e  61 74 65 28 61 72 65 61  |>coordinate(area|
00005fe0  2c 63 68 65 63 6b 2c 32  29 20 80 20 62 3c 63 6f  |,check,2) . b<co|
00005ff0  6f 72 64 69 6e 61 74 65  28 61 72 65 61 2c 63 68  |ordinate(area,ch|
00006000  65 63 6b 2c 34 29 20 80  20 6f 62 6a 65 63 74 73  |eck,4) . objects|
00006010  28 61 72 65 61 2c 63 68  65 63 6b 29 3d 31 20 8c  |(area,check)=1 .|
00006020  20 6f 76 65 72 3d b9 0d  2d 28 0e e7 20 6f 76 65  | over=..-(.. ove|
00006030  72 3d b9 20 8c 0d 2d 32  23 70 72 69 6e 74 24 3d  |r=. ..-2#print$=|
00006040  70 72 69 6e 74 24 2b 6e  61 6d 65 24 28 61 72 65  |print$+name$(are|
00006050  61 2c 63 68 65 63 6b 29  0d 2d 3c 0b e7 20 63 3d  |a,check).-<.. c=|
00006060  34 20 8c 0d 2d 46 09 f2  77 61 6c 6b 0d 2d 50 40  |4 ..-F..walk.-P@|
00006070  e7 20 67 69 76 65 28 67  61 72 65 61 2c 67 6e 75  |. give(garea,gnu|
00006080  6d 62 65 72 2c 31 29 3d  61 72 65 61 20 80 20 67  |mber,1)=area . g|
00006090  69 76 65 28 67 61 72 65  61 2c 67 6e 75 6d 62 65  |ive(garea,gnumbe|
000060a0  72 2c 32 29 3d 63 68 65  63 6b 20 8c 0d 2d 5a 1a  |r,2)=check ..-Z.|
000060b0  69 6e 76 65 6e 74 6f 72  79 24 28 69 6e 75 6d 62  |inventory$(inumb|
000060c0  65 72 29 3d 22 22 0d 2d  64 1a 69 6e 76 65 6e 74  |er)="".-d.invent|
000060d0  6f 72 79 28 69 6e 75 6d  62 65 72 2c 31 29 3d 30  |ory(inumber,1)=0|
000060e0  0d 2d 6e 1a 69 6e 76 65  6e 74 6f 72 79 28 69 6e  |.-n.inventory(in|
000060f0  75 6d 62 65 72 2c 32 29  3d 30 0d 2d 78 1b e7 20  |umber,2)=0.-x.. |
00006100  67 61 72 65 61 3d 34 20  80 20 67 6e 75 6d 62 65  |garea=4 . gnumbe|
00006110  72 3d 36 20 8c 0d 2d 82  0b 6d 61 70 25 2b 3d 31  |r=6 ..-..map%+=1|
00006120  0d 2d 8c 0e e7 20 6d 61  70 25 3d 31 20 8c 0d 2d  |.-... map%=1 ..-|
00006130  96 0b 74 61 72 65 61 3d  35 0d 2d a0 0c 74 63 68  |..tarea=5.-..tch|
00006140  65 63 6b 3d 33 0d 2d aa  09 f2 74 61 6b 65 0d 2d  |eck=3.-...take.-|
00006150  b4 05 cc 0d 2d be 11 67  69 76 65 28 35 2c 33 2c  |....-..give(5,3,|
00006160  31 29 3d 36 0d 2d c8 11  67 69 76 65 28 35 2c 33  |1)=6.-..give(5,3|
00006170  2c 32 29 3d 34 0d 2d d2  3b 6c 6f 6f 6b 24 28 35  |,2)=4.-.;look$(5|
00006180  2c 33 29 3d 22 49 20 54  48 49 4e 4b 20 54 48 45  |,3)="I THINK THE|
00006190  52 45 53 20 4f 4e 4c 59  20 4f 4e 45 20 4d 4f 52  |RES ONLY ONE MOR|
000061a0  45 20 50 49 45 43 45 20  54 4f 20 46 49 4e 44 22  |E PIECE TO FIND"|
000061b0  0d 2d dc 05 cd 0d 2d e6  4d 73 61 79 24 3d 22 48  |.-....-.Msay$="H|
000061c0  45 52 45 20 59 4f 55 20  41 52 45 20 54 48 49 53  |ERE YOU ARE THIS|
000061d0  20 57 49 4c 4c 20 53 4f  4c 56 45 20 41 4c 4c 20  | WILL SOLVE ALL |
000061e0  59 4f 55 52 20 50 52 4f  42 4c 45 4d 53 2e 20 49  |YOUR PROBLEMS. I|
000061f0  54 60 53 20 41 20 4c 4f  56 45 20 50 4f 54 49 4f  |T`S A LOVE POTIO|
00006200  4e 22 0d 2d f0 09 f2 73  61 79 73 0d 2d fa 53 73  |N".-...says.-.Ss|
00006210  61 79 24 3d 22 54 48 41  4e 4b 53 2e 20 48 45 52  |ay$="THANKS. HER|
00006220  45 20 49 20 4a 55 53 54  20 48 41 50 50 45 4e 20  |E I JUST HAPPEN |
00006230  54 4f 20 48 41 56 45 20  41 20 50 49 45 43 45 20  |TO HAVE A PIECE |
00006240  20 4f 46 20 54 48 41 54  20 4d 41 50 20 59 4f 55  | OF THAT MAP YOU|
00006250  52 20 4c 4f 4f 4b 49 4e  47 20 46 4f 52 22 0d 2e  |R LOOKING FOR"..|
00006260  04 08 fb 20 33 31 0d 2e  0e 09 f2 73 61 79 73 0d  |... 31.....says.|
00006270  2e 18 08 fb 20 36 33 0d  2e 22 12 6f 62 6a 65 63  |.... 63..".objec|
00006280  74 73 28 33 2c 33 29 3d  30 0d 2e 2c 0b f2 75 70  |ts(3,3)=0..,..up|
00006290  64 61 74 65 0d 2e 36 05  cd 0d 2e 40 1b e7 20 67  |date..6....@.. g|
000062a0  61 72 65 61 3d 35 20 80  20 67 6e 75 6d 62 65 72  |area=5 . gnumber|
000062b0  3d 33 20 8c 0d 2e 4a 0b  6d 61 70 25 2b 3d 31 0d  |=3 ...J.map%+=1.|
000062c0  2e 54 4a 73 61 79 24 3d  22 57 4f 57 20 49 60 56  |.TJsay$="WOW I`V|
000062d0  45 20 47 4f 54 20 41 4c  4c 20 4f 46 20 54 48 45  |E GOT ALL OF THE|
000062e0  20 4d 41 50 20 4e 4f 57  2e 20 57 45 20 43 41 4e  | MAP NOW. WE CAN|
000062f0  20 54 45 41 4d 20 55 50  20 41 4e 44 20 47 4f 20  | TEAM UP AND GO |
00006300  54 4f 47 45 54 48 45 52  22 0d 2e 5e 08 fb 20 33  |TOGETHER"..^.. 3|
00006310  31 0d 2e 68 09 f2 73 61  79 73 0d 2e 72 15 73 61  |1..h..says..r.sa|
00006320  79 24 3d 22 4f 4b 20 4c  45 54 53 20 47 4f 22 0d  |y$="OK LETS GO".|
00006330  2e 7c 08 fb 20 36 33 0d  2e 86 09 f2 73 61 79 73  |.|.. 63.....says|
00006340  0d 2e 90 05 cd 0d 2e 9a  1c e7 20 67 61 72 65 61  |.......... garea|
00006350  3d 31 34 20 80 20 67 6e  75 6d 62 65 72 3d 32 20  |=14 . gnumber=2 |
00006360  8c 0d 2e a4 39 73 61 79  24 3d 22 48 45 52 45 20  |....9say$="HERE |
00006370  59 4f 55 20 47 4f 20 49  60 56 45 20 47 4f 54 20  |YOU GO I`VE GOT |
00006380  4f 4e 45 20 4f 46 20 54  48 45 20 44 52 41 47 4f  |ONE OF THE DRAGO|
00006390  4e 53 20 53 43 41 4c 45  53 22 0d 2e ae 09 f2 73  |NS SCALES".....s|
000063a0  61 79 73 0d 2e b8 2d 73  61 79 24 3d 22 54 48 41  |ays...-say$="THA|
000063b0  54 60 4c 4c 20 44 4f 2e  20 49 60 4c 4c 20 57 52  |T`LL DO. I`LL WR|
000063c0  49 54 45 20 4f 55 54 20  41 20 53 50 45 4c 4c 22  |ITE OUT A SPELL"|
000063d0  0d 2e c2 08 fb 20 33 31  0d 2e cc 09 f2 73 61 79  |..... 31.....say|
000063e0  73 0d 2e d6 2b 74 61 6c  6b 24 28 31 33 2c 32 2c  |s...+talk$(13,2,|
000063f0  31 29 3d 22 48 4f 57 20  44 4f 20 49 20 55 53 45  |1)="HOW DO I USE|
00006400  20 54 48 45 20 53 50 45  4c 4c 3f 22 0d 2e e0 24  | THE SPELL?"...$|
00006410  74 61 6c 6b 24 28 31 33  2c 32 2c 32 29 3d 22 4a  |talk$(13,2,2)="J|
00006420  55 53 54 20 52 45 41 44  20 49 54 20 4f 55 54 22  |UST READ IT OUT"|
00006430  0d 2e ea 0c 74 61 72 65  61 3d 31 34 0d 2e f4 0c  |....tarea=14....|
00006440  74 63 68 65 63 6b 3d 33  0d 2e fe 09 f2 74 61 6b  |tcheck=3.....tak|
00006450  65 0d 2f 08 0b f2 75 70  64 61 74 65 0d 2f 12 05  |e./...update./..|
00006460  cd 0d 2f 1c 05 cc 0d 2f  26 1a 73 61 79 24 3d 22  |../..../&.say$="|
00006470  49 20 44 4f 4e 60 54 20  57 41 4e 54 20 54 4f 22  |I DON`T WANT TO"|
00006480  0d 2f 30 08 f2 73 61 79  0d 2f 3a 05 cd 0d 2f 44  |./0..say./:.../D|
00006490  05 cd 0d 2f 4e 05 cd 0d  2f 58 05 ed 0d 2f 62 05  |.../N.../X.../b.|
000064a0  cd 0d 2f 6c 14 e7 20 70  72 69 6e 74 24 3c 3e 6f  |../l.. print$<>o|
000064b0  6c 64 24 20 8c 0d 2f 76  08 f1 20 22 22 0d 2f 80  |ld$ ../v.. ""./.|
000064c0  0d f1 20 70 72 69 6e 74  24 3b 0d 2f 8a 05 cd 0d  |.. print$;./....|
000064d0  2f 94 0f 6f 6c 64 24 3d  70 72 69 6e 74 24 0d 2f  |/..old$=print$./|
000064e0  9e 09 fd 20 63 3d 34 0d  2f a8 05 cd 0d 2f b2 07  |... c=4./..../..|
000064f0  63 3d 30 0d 2f bc 15 70  72 69 6e 74 24 3d 22 57  |c=0./..print$="W|
00006500  41 4c 4b 20 54 4f 20 22  0d 2f c6 08 f1 20 22 22  |ALK TO "./... ""|
00006510  0d 2f d0 10 f1 20 22 57  41 4c 4b 20 54 4f 22 3b  |./... "WALK TO";|
00006520  0d 2f da 05 e1 0d 2f e4  05 3a 0d 2f ee 05 3a 0d  |./..../..:./..:.|
00006530  2f f8 0a dd 20 f2 75 73  65 0d 30 02 08 f1 20 22  |/... .use.0... "|
00006540  22 0d 30 0c 0b 6f 6c 64  24 3d 22 22 0d 30 16 0d  |".0..old$="".0..|
00006550  f1 20 22 55 53 45 20 22  3b 0d 30 20 07 d1 3d 30  |. "USE ";.0 ..=0|
00006560  0d 30 2a 0c f5 20 fd 20  91 3e 35 30 0d 30 34 0b  |.0*.. . .>50.04.|
00006570  75 61 72 65 61 3d 30 0d  30 3e 0d 75 6e 75 6d 62  |uarea=0.0>.unumb|
00006580  65 72 3d 30 0d 30 48 05  f5 0d 30 52 0e c8 97 20  |er=0.0H...0R... |
00006590  61 2c 62 2c 63 2c 64 0d  30 5c 10 70 72 69 6e 74  |a,b,c,d.0\.print|
000065a0  24 3d 22 55 53 45 22 0d  30 66 16 e3 20 69 6e 76  |$="USE".0f.. inv|
000065b0  65 6e 63 68 65 63 6b 3d  31 20 b8 20 38 0d 30 70  |encheck=1 . 8.0p|
000065c0  0f 63 6c 69 63 6b 65 64  6f 6e 3d 30 0d 30 7a 61  |.clickedon=0.0za|
000065d0  e7 20 61 3e 37 39 39 20  80 20 61 3c 31 30 33 39  |. a>799 . a<1039|
000065e0  20 80 20 62 3e 33 32 30  2d 28 69 6e 76 65 6e 63  | . b>320-(invenc|
000065f0  68 65 63 6b 2a 33 32 2e  35 29 20 80 20 62 3c 33  |heck*32.5) . b<3|
00006600  35 32 2e 35 2d 28 69 6e  76 65 6e 63 68 65 63 6b  |52.5-(invencheck|
00006610  2a 33 32 2e 35 29 20 8c  20 63 6c 69 63 6b 65 64  |*32.5) . clicked|
00006620  6f 6e 3d 69 6e 76 65 6e  63 68 65 63 6b 0d 30 84  |on=invencheck.0.|
00006630  64 e7 20 61 3e 31 30 33  39 20 80 20 61 3c 31 32  |d. a>1039 . a<12|
00006640  37 39 20 80 20 62 3e 33  32 30 2d 28 69 6e 76 65  |79 . b>320-(inve|
00006650  6e 63 68 65 63 6b 2a 33  32 2e 35 29 20 80 20 62  |ncheck*32.5) . b|
00006660  3c 33 35 32 2e 35 2d 28  69 6e 76 65 6e 63 68 65  |<352.5-(invenche|
00006670  63 6b 2a 33 32 2e 35 29  20 8c 20 63 6c 69 63 6b  |ck*32.5) . click|
00006680  65 64 6f 6e 3d 69 6e 76  65 6e 63 68 65 63 6b 2b  |edon=invencheck+|
00006690  38 0d 30 8e 14 e7 20 63  6c 69 63 6b 65 64 6f 6e  |8.0... clickedon|
000066a0  3c 3e 30 20 8c 0d 30 98  21 e7 20 69 6e 76 65 6e  |<>0 ..0.!. inven|
000066b0  74 6f 72 79 28 63 6c 69  63 6b 65 64 6f 6e 2c 31  |tory(clickedon,1|
000066c0  29 3c 3e 30 20 8c 0d 30  a2 46 70 72 69 6e 74 24  |)<>0 ..0.Fprint$|
000066d0  3d 22 55 53 45 20 22 2b  6e 61 6d 65 24 28 69 6e  |="USE "+name$(in|
000066e0  76 65 6e 74 6f 72 79 28  63 6c 69 63 6b 65 64 6f  |ventory(clickedo|
000066f0  6e 2c 31 29 2c 69 6e 76  65 6e 74 6f 72 79 28 63  |n,1),inventory(c|
00006700  6c 69 63 6b 65 64 6f 6e  2c 32 29 29 0d 30 ac 0b  |lickedon,2)).0..|
00006710  e7 20 63 3d 34 20 8c 0d  30 b6 1a 70 72 69 6e 74  |. c=4 ..0..print|
00006720  24 3d 70 72 69 6e 74 24  2b 22 20 57 49 54 48 20  |$=print$+" WITH |
00006730  22 0d 30 c0 0c f1 20 70  72 69 6e 74 24 0d 30 ca  |".0... print$.0.|
00006740  20 75 61 72 65 61 3d 69  6e 76 65 6e 74 6f 72 79  | uarea=inventory|
00006750  28 63 6c 69 63 6b 65 64  6f 6e 2c 31 29 0d 30 d4  |(clickedon,1).0.|
00006760  22 75 6e 75 6d 62 65 72  3d 69 6e 76 65 6e 74 6f  |"unumber=invento|
00006770  72 79 28 63 6c 69 63 6b  65 64 6f 6e 2c 32 29 0d  |ry(clickedon,2).|
00006780  30 de 16 69 6e 75 6d 62  65 72 3d 69 6e 76 65 6e  |0..inumber=inven|
00006790  63 68 65 63 6b 0d 30 e8  05 cd 0d 30 f2 05 cd 0d  |check.0....0....|
000067a0  30 fc 05 cd 0d 31 06 05  ed 0d 31 10 14 e7 20 70  |0....1....1... p|
000067b0  72 69 6e 74 24 3c 3e 6f  6c 64 24 20 8c 0d 31 1a  |rint$<>old$ ..1.|
000067c0  08 f1 20 22 22 0d 31 24  0d f1 20 70 72 69 6e 74  |.. "".1$.. print|
000067d0  24 3b 0d 31 2e 0f 6f 6c  64 24 3d 70 72 69 6e 74  |$;.1..old$=print|
000067e0  24 0d 31 38 05 cd 0d 31  42 09 fd 20 63 3d 34 0d  |$.18...1B.. c=4.|
000067f0  31 4c 10 e7 20 75 61 72  65 61 3c 3e 30 20 8c 0d  |1L.. uarea<>0 ..|
00006800  31 56 07 d1 3d 30 0d 31  60 0c f5 20 fd 20 91 3e  |1V..=0.1`.. . .>|
00006810  35 30 0d 31 6a 0f 77 61  73 24 3d 70 72 69 6e 74  |50.1j.was$=print|
00006820  24 0d 31 74 05 f5 0d 31  7e 0f 70 72 69 6e 74 24  |$.1t...1~.print$|
00006830  3d 77 61 73 24 0d 31 88  0e c8 97 20 61 2c 62 2c  |=was$.1.... a,b,|
00006840  63 2c 64 0d 31 92 15 e7  20 62 3e 33 39 35 20 80  |c,d.1... b>395 .|
00006850  20 62 3c 39 35 39 20 8c  0d 31 9c 11 e3 20 63 68  | b<959 ..1... ch|
00006860  65 63 6b 3d 31 20 b8 20  37 0d 31 a6 0a 6f 76 65  |eck=1 . 7.1..ove|
00006870  72 3d a3 0d 31 b0 98 e7  20 61 3e 63 6f 6f 72 64  |r=..1... a>coord|
00006880  69 6e 61 74 65 28 61 72  65 61 2c 63 68 65 63 6b  |inate(area,check|
00006890  2c 31 29 20 80 20 61 3c  63 6f 6f 72 64 69 6e 61  |,1) . a<coordina|
000068a0  74 65 28 61 72 65 61 2c  63 68 65 63 6b 2c 33 29  |te(area,check,3)|
000068b0  20 80 20 62 3e 63 6f 6f  72 64 69 6e 61 74 65 28  | . b>coordinate(|
000068c0  61 72 65 61 2c 63 68 65  63 6b 2c 32 29 20 80 20  |area,check,2) . |
000068d0  62 3c 63 6f 6f 72 64 69  6e 61 74 65 28 61 72 65  |b<coordinate(are|
000068e0  61 2c 63 68 65 63 6b 2c  34 29 20 80 20 6f 62 6a  |a,check,4) . obj|
000068f0  65 63 74 73 28 61 72 65  61 2c 63 68 65 63 6b 29  |ects(area,check)|
00006900  3d 31 20 8c 20 6f 76 65  72 3d b9 0d 31 ba 0e e7  |=1 . over=..1...|
00006910  20 6f 76 65 72 3d b9 20  8c 0d 31 c4 23 70 72 69  | over=. ..1.#pri|
00006920  6e 74 24 3d 70 72 69 6e  74 24 2b 6e 61 6d 65 24  |nt$=print$+name$|
00006930  28 61 72 65 61 2c 63 68  65 63 6b 29 0d 31 ce 0b  |(area,check).1..|
00006940  e7 20 63 3d 34 20 8c 0d  31 d8 09 f2 77 61 6c 6b  |. c=4 ..1...walk|
00006950  0d 31 e2 3b e7 20 75 73  65 28 61 72 65 61 2c 63  |.1.;. use(area,c|
00006960  68 65 63 6b 2c 31 29 3d  75 61 72 65 61 20 80 20  |heck,1)=uarea . |
00006970  75 73 65 28 61 72 65 61  2c 63 68 65 63 6b 2c 32  |use(area,check,2|
00006980  29 3d 75 6e 75 6d 62 65  72 20 8c 0d 31 ec 1a 69  |)=unumber ..1..i|
00006990  6e 76 65 6e 74 6f 72 79  24 28 69 6e 75 6d 62 65  |nventory$(inumbe|
000069a0  72 29 3d 22 22 0d 31 f6  1a 69 6e 76 65 6e 74 6f  |r)="".1..invento|
000069b0  72 79 28 69 6e 75 6d 62  65 72 2c 31 29 3d 30 0d  |ry(inumber,1)=0.|
000069c0  32 00 1a 69 6e 76 65 6e  74 6f 72 79 28 69 6e 75  |2..inventory(inu|
000069d0  6d 62 65 72 2c 32 29 3d  30 0d 32 0a 1b e7 20 75  |mber,2)=0.2... u|
000069e0  61 72 65 61 3d 34 20 80  20 75 6e 75 6d 62 65 72  |area=4 . unumber|
000069f0  3d 35 20 8c 0d 32 14 12  6f 62 6a 65 63 74 73 28  |=5 ..2..objects(|
00006a00  31 2c 35 29 3d 30 0d 32  1e 0b 74 61 72 65 61 3d  |1,5)=0.2..tarea=|
00006a10  34 0d 32 28 0c 74 63 68  65 63 6b 3d 36 0d 32 32  |4.2(.tcheck=6.22|
00006a20  09 f2 74 61 6b 65 0d 32  3c 0b f2 75 70 64 61 74  |..take.2<..updat|
00006a30  65 0d 32 46 28 73 61 79  24 3d 22 54 48 45 20 41  |e.2F(say$="THE A|
00006a40  43 49 44 53 20 42 55 52  4e 54 20 54 48 45 20 4c  |CIDS BURNT THE L|
00006a50  4f 43 4b 20 41 57 41 59  22 0d 32 50 08 f2 73 61  |OCK AWAY".2P..sa|
00006a60  79 0d 32 5a 05 cd 0d 32  64 1b e7 20 75 61 72 65  |y.2Z...2d.. uare|
00006a70  61 3d 34 20 80 20 75 6e  75 6d 62 65 72 3d 34 20  |a=4 . unumber=4 |
00006a80  8c 0d 32 6e 0b 6d 61 70  25 2b 3d 31 0d 32 78 0e  |..2n.map%+=1.2x.|
00006a90  e7 20 6d 61 70 25 3d 31  20 8c 0d 32 82 0b 74 61  |. map%=1 ..2..ta|
00006aa0  72 65 61 3d 35 0d 32 8c  0c 74 63 68 65 63 6b 3d  |rea=5.2..tcheck=|
00006ab0  33 0d 32 96 09 f2 74 61  6b 65 0d 32 a0 05 cc 0d  |3.2...take.2....|
00006ac0  32 aa 11 67 69 76 65 28  35 2c 33 2c 31 29 3d 36  |2..give(5,3,1)=6|
00006ad0  0d 32 b4 11 67 69 76 65  28 35 2c 33 2c 32 29 3d  |.2..give(5,3,2)=|
00006ae0  34 0d 32 be 3b 6c 6f 6f  6b 24 28 35 2c 33 29 3d  |4.2.;look$(5,3)=|
00006af0  22 49 20 54 48 49 4e 4b  20 54 48 45 52 45 53 20  |"I THINK THERES |
00006b00  4f 4e 4c 59 20 4f 4e 45  20 4d 4f 52 45 20 50 49  |ONLY ONE MORE PI|
00006b10  45 43 45 20 54 4f 20 46  49 4e 44 22 0d 32 c8 05  |ECE TO FIND".2..|
00006b20  cd 0d 32 d2 0b 74 61 72  65 61 3d 35 0d 32 dc 0c  |..2..tarea=5.2..|
00006b30  74 63 68 65 63 6b 3d 34  0d 32 e6 09 f2 74 61 6b  |tcheck=4.2...tak|
00006b40  65 0d 32 f0 0b 74 61 72  65 61 3d 35 0d 32 fa 0c  |e.2..tarea=5.2..|
00006b50  74 63 68 65 63 6b 3d 35  0d 33 04 09 f2 74 61 6b  |tcheck=5.3...tak|
00006b60  65 0d 33 0e 55 73 61 79  24 3d 22 49 20 43 41 4e  |e.3.Usay$="I CAN|
00006b70  20 4c 49 46 54 20 54 48  45 20 43 41 42 49 4e 45  | LIFT THE CABINE|
00006b80  54 20 57 49 54 48 20 45  41 53 45 2e 20 49 60 56  |T WITH EASE. I`V|
00006b90  45 20 46 4f 55 4e 44 20  41 20 50 49 45 43 45 20  |E FOUND A PIECE |
00006ba0  4f 46 20 54 48 45 20 4d  41 50 20 55 4e 44 45 52  |OF THE MAP UNDER|
00006bb0  4e 45 41 54 48 22 0d 33  18 08 f2 73 61 79 0d 33  |NEATH".3...say.3|
00006bc0  22 3a 73 61 79 24 3d 22  49 60 56 45 20 41 4c 53  |":say$="I`VE ALS|
00006bd0  4f 20 46 4f 55 4e 44 20  41 20 50 49 45 43 45 20  |O FOUND A PIECE |
00006be0  4f 46 20 52 4f 50 45 20  41 4e 44 20 41 20 53 50  |OF ROPE AND A SP|
00006bf0  59 20 47 4c 41 53 53 22  0d 33 2c 08 f2 73 61 79  |Y GLASS".3,..say|
00006c00  0d 33 36 05 cd 0d 33 40  1c e7 20 75 61 72 65 61  |.36...3@.. uarea|
00006c10  3d 35 20 20 80 20 75 6e  75 6d 62 65 72 3d 34 20  |=5  . unumber=4 |
00006c20  8c 0d 33 4a 0b 74 61 72  65 61 3d 39 0d 33 54 0c  |..3J.tarea=9.3T.|
00006c30  74 63 68 65 63 6b 3d 34  0d 33 5e 09 f2 74 61 6b  |tcheck=4.3^..tak|
00006c40  65 0d 33 68 33 73 61 79  24 3d 22 41 20 4c 45 41  |e.3h3say$="A LEA|
00006c50  46 20 48 41 53 20 43 41  55 47 48 54 20 46 49 52  |F HAS CAUGHT FIR|
00006c60  45 2e 20 49 60 4c 4c 20  50 49 43 4b 20 49 54 20  |E. I`LL PICK IT |
00006c70  4f 46 46 22 0d 33 72 08  f2 73 61 79 0d 33 7c 05  |OFF".3r..say.3|.|
00006c80  cd 0d 33 86 1c e7 20 75  61 72 65 61 3d 31 30 20  |..3... uarea=10 |
00006c90  80 20 75 6e 75 6d 62 65  72 3d 34 20 8c 0d 33 90  |. unumber=4 ..3.|
00006ca0  3d 73 61 79 24 3d 22 54  48 45 20 42 52 49 43 4b  |=say$="THE BRICK|
00006cb0  20 48 41 53 20 43 41 55  47 48 54 20 4f 4e 20 54  | HAS CAUGHT ON T|
00006cc0  48 45 20 57 49 4e 44 4f  57 2e 20 49 60 4c 4c 20  |HE WINDOW. I`LL |
00006cd0  43 4c 49 4d 42 20 4f 55  54 22 0d 33 9a 08 f2 73  |CLIMB OUT".3...s|
00006ce0  61 79 0d 33 a4 0b 61 72  65 61 3d 31 31 0d 33 ae  |ay.3..area=11.3.|
00006cf0  09 78 3d 32 36 30 0d 33  b8 0a f2 62 75 69 6c 64  |.x=260.3...build|
00006d00  0d 33 c2 05 cd 0d 33 cc  1c e7 20 75 61 72 65 61  |.3....3... uarea|
00006d10  3d 31 32 20 80 20 75 6e  75 6d 62 65 72 3d 33 20  |=12 . unumber=3 |
00006d20  8c 0d 33 d6 2d 73 61 79  24 3d 22 54 48 45 20 46  |..3.-say$="THE F|
00006d30  4c 49 4e 54 20 43 41 4e  20 43 55 54 20 54 48 52  |LINT CAN CUT THR|
00006d40  4f 55 47 48 20 54 48 45  20 52 4f 50 45 22 0d 33  |OUGH THE ROPE".3|
00006d50  e0 08 f2 73 61 79 0d 33  ea 0c 74 61 72 65 61 3d  |...say.3..tarea=|
00006d60  31 32 0d 33 f4 0c 74 63  68 65 63 6b 3d 35 0d 33  |12.3..tcheck=5.3|
00006d70  fe 13 6f 62 6a 65 63 74  73 28 31 31 2c 32 29 3d  |..objects(11,2)=|
00006d80  30 0d 34 08 09 f2 74 61  6b 65 0d 34 12 0b f2 75  |0.4...take.4...u|
00006d90  70 64 61 74 65 0d 34 1c  05 cd 0d 34 26 1c e7 20  |pdate.4....4&.. |
00006da0  75 61 72 65 61 3d 31 32  20 80 20 75 6e 75 6d 62  |uarea=12 . unumb|
00006db0  65 72 3d 36 20 8c 0d 34  30 45 73 61 79 24 3d 22  |er=6 ..40Esay$="|
00006dc0  49 60 4c 4c 20 54 49 45  20 41 20 4b 4e 4f 54 20  |I`LL TIE A KNOT |
00006dd0  49 4e 20 54 48 45 20 45  4e 44 20 41 4e 44 20 48  |IN THE END AND H|
00006de0  4f 4f 4b 20 54 48 45 20  53 43 41 4c 45 20 4f 46  |OOK THE SCALE OF|
00006df0  46 20 48 49 53 20 42 41  43 4b 22 0d 34 3a 08 f2  |F HIS BACK".4:..|
00006e00  73 61 79 0d 34 44 0c 74  61 72 65 61 3d 31 34 0d  |say.4D.tarea=14.|
00006e10  34 4e 0c 74 63 68 65 63  6b 3d 32 0d 34 58 13 6f  |4N.tcheck=2.4X.o|
00006e20  62 6a 65 63 74 73 28 31  34 2c 32 29 3d 30 0d 34  |bjects(14,2)=0.4|
00006e30  62 09 f2 74 61 6b 65 0d  34 6c 0b f2 75 70 64 61  |b..take.4l..upda|
00006e40  74 65 0d 34 76 05 cd 0d  34 80 1c e7 20 75 61 72  |te.4v...4... uar|
00006e50  65 61 3d 31 34 20 80 20  75 6e 75 6d 62 65 72 3d  |ea=14 . unumber=|
00006e60  33 20 8c 0d 34 8a 14 70  72 69 6e 74 24 3d 22 57  |3 ..4..print$="W|
00006e70  41 4c 4b 20 54 4f 22 0d  34 94 13 6f 62 6a 65 63  |ALK TO".4..objec|
00006e80  74 73 28 31 34 2c 31 29  3d 30 0d 34 9e 0b f2 75  |ts(14,1)=0.4...u|
00006e90  70 64 61 74 65 0d 34 a8  13 6f 62 6a 65 63 74 73  |pdate.4..objects|
00006ea0  28 31 34 2c 31 29 3d 31  0d 34 b2 0b f2 75 70 64  |(14,1)=1.4...upd|
00006eb0  61 74 65 0d 34 bc 13 6f  62 6a 65 63 74 73 28 31  |ate.4..objects(1|
00006ec0  34 2c 31 29 3d 30 0d 34  c6 0b f2 75 70 64 61 74  |4,1)=0.4...updat|
00006ed0  65 0d 34 d0 13 2a 53 43  48 4f 4f 53 45 20 77 69  |e.4..*SCHOOSE wi|
00006ee0  6c 6c 79 72 0d 34 da 08  e6 20 36 33 0d 34 e4 0d  |llyr.4... 63.4..|
00006ef0  f0 20 26 45 44 2c 78 2c  79 0d 34 ee 07 d1 3d 30  |. &ED,x,y.4...=0|
00006f00  0d 34 f8 0d f5 20 fd 20  91 3e 33 30 30 0d 35 02  |.4... . .>300.5.|
00006f10  18 73 61 79 24 3d 22 49  60 56 45 20 44 4f 4e 45  |.say$="I`VE DONE|
00006f20  20 49 54 2e 22 0d 35 0c  08 f2 73 61 79 0d 35 16  | IT.".5...say.5.|
00006f30  49 73 61 79 24 3d 22 49  60 56 45 20 4b 49 4c 4c  |Isay$="I`VE KILL|
00006f40  45 44 20 54 48 45 20 44  52 41 47 4f 4e 2e 20 49  |ED THE DRAGON. I|
00006f50  20 43 41 4e 20 42 45 43  4f 4d 45 20 4f 4e 45 20  | CAN BECOME ONE |
00006f60  4f 46 20 54 48 45 20 4b  49 4e 47 53 20 4b 4e 49  |OF THE KINGS KNI|
00006f70  47 48 54 53 21 22 0d 35  20 08 f2 73 61 79 0d 35  |GHTS!".5 ..say.5|
00006f80  2a 07 d1 3d 30 0d 35 34  0d f5 20 fd 20 91 3e 32  |*..=0.54.. . .>2|
00006f90  35 30 0d 35 3e 07 61 3d  30 0d 35 48 09 f2 77 61  |50.5>.a=0.5H..wa|
00006fa0  6c 6b 0d 35 52 0f 63 6f  6d 70 6c 65 74 65 64 3d  |lk.5R.completed=|
00006fb0  b9 0d 35 5c 05 cd 0d 35  66 05 cc 0d 35 70 1b 73  |..5\...5f...5p.s|
00006fc0  61 79 24 3d 22 4e 4f 54  48 49 4e 47 20 48 41 50  |ay$="NOTHING HAP|
00006fd0  50 45 4e 45 44 22 0d 35  7a 08 f2 73 61 79 0d 35  |PENED".5z..say.5|
00006fe0  84 05 cd 0d 35 8e 05 cd  0d 35 98 05 cd 0d 35 a2  |....5....5....5.|
00006ff0  05 ed 0d 35 ac 05 cc 0d  35 b6 16 e3 20 69 6e 76  |...5....5... inv|
00007000  65 6e 63 68 65 63 6b 3d  31 20 b8 20 38 0d 35 c0  |encheck=1 . 8.5.|
00007010  0f 63 6c 69 63 6b 65 64  6f 6e 3d 30 0d 35 ca 61  |.clickedon=0.5.a|
00007020  e7 20 61 3e 37 39 39 20  80 20 61 3c 31 30 33 39  |. a>799 . a<1039|
00007030  20 80 20 62 3e 33 32 30  2d 28 69 6e 76 65 6e 63  | . b>320-(invenc|
00007040  68 65 63 6b 2a 33 32 2e  35 29 20 80 20 62 3c 33  |heck*32.5) . b<3|
00007050  35 32 2e 35 2d 28 69 6e  76 65 6e 63 68 65 63 6b  |52.5-(invencheck|
00007060  2a 33 32 2e 35 29 20 8c  20 63 6c 69 63 6b 65 64  |*32.5) . clicked|
00007070  6f 6e 3d 69 6e 76 65 6e  63 68 65 63 6b 0d 35 d4  |on=invencheck.5.|
00007080  64 e7 20 61 3e 31 30 33  39 20 80 20 61 3c 31 32  |d. a>1039 . a<12|
00007090  37 39 20 80 20 62 3e 33  32 30 2d 28 69 6e 76 65  |79 . b>320-(inve|
000070a0  6e 63 68 65 63 6b 2a 33  32 2e 35 29 20 80 20 62  |ncheck*32.5) . b|
000070b0  3c 33 35 32 2e 35 2d 28  69 6e 76 65 6e 63 68 65  |<352.5-(invenche|
000070c0  63 6b 2a 33 32 2e 35 29  20 8c 20 63 6c 69 63 6b  |ck*32.5) . click|
000070d0  65 64 6f 6e 3d 69 6e 76  65 6e 63 68 65 63 6b 2b  |edon=invencheck+|
000070e0  38 0d 35 de 14 e7 20 63  6c 69 63 6b 65 64 6f 6e  |8.5... clickedon|
000070f0  3c 3e 30 20 8c 0d 35 e8  21 e7 20 69 6e 76 65 6e  |<>0 ..5.!. inven|
00007100  74 6f 72 79 28 63 6c 69  63 6b 65 64 6f 6e 2c 31  |tory(clickedon,1|
00007110  29 3c 3e 30 20 8c 0d 35  f2 46 70 72 69 6e 74 24  |)<>0 ..5.Fprint$|
00007120  3d 70 72 69 6e 74 24 2b  6e 61 6d 65 24 28 69 6e  |=print$+name$(in|
00007130  76 65 6e 74 6f 72 79 28  63 6c 69 63 6b 65 64 6f  |ventory(clickedo|
00007140  6e 2c 31 29 2c 69 6e 76  65 6e 74 6f 72 79 28 63  |n,1),inventory(c|
00007150  6c 69 63 6b 65 64 6f 6e  2c 32 29 29 0d 35 fc 0b  |lickedon,2)).5..|
00007160  e7 20 63 3d 34 20 8c 0d  36 06 61 e7 20 75 73 65  |. c=4 ..6.a. use|
00007170  28 75 61 72 65 61 2c 75  6e 75 6d 62 65 72 2c 31  |(uarea,unumber,1|
00007180  29 3d 69 6e 76 65 6e 74  6f 72 79 28 63 6c 69 63  |)=inventory(clic|
00007190  6b 65 64 6f 6e 2c 31 29  20 80 20 75 73 65 28 75  |kedon,1) . use(u|
000071a0  61 72 65 61 2c 75 6e 75  6d 62 65 72 2c 32 29 3d  |area,unumber,2)=|
000071b0  69 6e 76 65 6e 74 6f 72  79 28 63 6c 69 63 6b 65  |inventory(clicke|
000071c0  64 6f 6e 2c 32 29 20 8c  0d 36 10 1a 69 6e 76 65  |don,2) ..6..inve|
000071d0  6e 74 6f 72 79 24 28 69  6e 75 6d 62 65 72 29 3d  |ntory$(inumber)=|
000071e0  22 22 0d 36 1a 1a 69 6e  76 65 6e 74 6f 72 79 28  |"".6..inventory(|
000071f0  69 6e 75 6d 62 65 72 2c  31 29 3d 30 0d 36 24 1a  |inumber,1)=0.6$.|
00007200  69 6e 76 65 6e 74 6f 72  79 28 69 6e 75 6d 62 65  |inventory(inumbe|
00007210  72 2c 32 29 3d 30 0d 36  2e 1b e7 20 75 61 72 65  |r,2)=0.6... uare|
00007220  61 3d 39 20 80 20 75 6e  75 6d 62 65 72 3d 34 20  |a=9 . unumber=4 |
00007230  8c 0d 36 38 09 f2 72 65  64 6f 0d 36 42 0e 70 6f  |..68..redo.6B.po|
00007240  74 69 6f 6e 25 2b 3d 31  0d 36 4c 23 73 61 79 24  |tion%+=1.6L#say$|
00007250  3d 22 49 60 4c 4c 20 4a  55 53 54 20 50 55 54 20  |="I`LL JUST PUT |
00007260  49 54 20 49 4e 20 48 45  52 45 22 0d 36 56 08 f2  |IT IN HERE".6V..|
00007270  73 61 79 0d 36 60 11 e7  20 70 6f 74 69 6f 6e 25  |say.6`.. potion%|
00007280  3d 32 20 8c 0d 36 6a 11  67 69 76 65 28 34 2c 36  |=2 ..6j.give(4,6|
00007290  2c 31 29 3d 33 0d 36 74  11 67 69 76 65 28 34 2c  |,1)=3.6t.give(4,|
000072a0  36 2c 32 29 3d 33 0d 36  7e 05 cd 0d 36 88 05 cd  |6,2)=3.6~...6...|
000072b0  0d 36 92 1b e7 20 75 61  72 65 61 3d 37 20 80 20  |.6... uarea=7 . |
000072c0  75 6e 75 6d 62 65 72 3d  34 20 8c 0d 36 9c 09 f2  |unumber=4 ..6...|
000072d0  72 65 64 6f 0d 36 a6 0e  70 6f 74 69 6f 6e 25 2b  |redo.6..potion%+|
000072e0  3d 31 0d 36 b0 23 73 61  79 24 3d 22 49 60 4c 4c  |=1.6.#say$="I`LL|
000072f0  20 4a 55 53 54 20 50 55  54 20 49 54 20 49 4e 20  | JUST PUT IT IN |
00007300  48 45 52 45 22 0d 36 ba  08 f2 73 61 79 0d 36 c4  |HERE".6...say.6.|
00007310  11 e7 20 70 6f 74 69 6f  6e 25 3d 32 20 8c 0d 36  |.. potion%=2 ..6|
00007320  ce 11 67 69 76 65 28 34  2c 36 2c 31 29 3d 33 0d  |..give(4,6,1)=3.|
00007330  36 d8 11 67 69 76 65 28  34 2c 36 2c 32 29 3d 33  |6..give(4,6,2)=3|
00007340  0d 36 e2 05 cd 0d 36 ec  05 cd 0d 36 f6 1b e7 20  |.6....6....6... |
00007350  75 61 72 65 61 3d 35 20  80 20 75 6e 75 6d 62 65  |uarea=5 . unumbe|
00007360  72 3d 35 20 8c 0d 37 00  14 69 6e 76 65 6e 74 6f  |r=5 ..7..invento|
00007370  72 79 24 28 32 29 3d 22  22 0d 37 0a 14 69 6e 76  |ry$(2)="".7..inv|
00007380  65 6e 74 6f 72 79 28 32  2c 31 29 3d 30 0d 37 14  |entory(2,1)=0.7.|
00007390  14 69 6e 76 65 6e 74 6f  72 79 28 32 2c 32 29 3d  |.inventory(2,2)=|
000073a0  30 0d 37 1e 0c 74 61 72  65 61 3d 31 30 0d 37 28  |0.7..tarea=10.7(|
000073b0  0c 74 63 68 65 63 6b 3d  34 0d 37 32 09 f2 74 61  |.tcheck=4.72..ta|
000073c0  6b 65 0d 37 3c 29 73 61  79 24 3d 22 49 60 4c 4c  |ke.7<)say$="I`LL|
000073d0  20 54 49 45 20 54 48 45  20 52 4f 50 45 20 54 4f  | TIE THE ROPE TO|
000073e0  20 54 48 45 20 42 52 49  43 4b 22 0d 37 46 08 f2  | THE BRICK".7F..|
000073f0  73 61 79 0d 37 50 05 cd  0d 37 5a 1c e7 20 75 61  |say.7P...7Z.. ua|
00007400  72 65 61 3d 31 30 20 80  20 75 6e 75 6d 62 65 72  |rea=10 . unumber|
00007410  3d 33 20 8c 0d 37 64 14  69 6e 76 65 6e 74 6f 72  |=3 ..7d.inventor|
00007420  79 24 28 31 29 3d 22 22  0d 37 6e 14 69 6e 76 65  |y$(1)="".7n.inve|
00007430  6e 74 6f 72 79 28 31 2c  31 29 3d 30 0d 37 78 14  |ntory(1,1)=0.7x.|
00007440  69 6e 76 65 6e 74 6f 72  79 28 31 2c 32 29 3d 30  |inventory(1,2)=0|
00007450  0d 37 82 0c 74 61 72 65  61 3d 31 30 0d 37 8c 0c  |.7..tarea=10.7..|
00007460  74 63 68 65 63 6b 3d 34  0d 37 96 09 f2 74 61 6b  |tcheck=4.7...tak|
00007470  65 0d 37 a0 29 73 61 79  24 3d 22 49 60 4c 4c 20  |e.7.)say$="I`LL |
00007480  54 49 45 20 54 48 45 20  52 4f 50 45 20 54 4f 20  |TIE THE ROPE TO |
00007490  54 48 45 20 42 52 49 43  4b 22 0d 37 aa 08 f2 73  |THE BRICK".7...s|
000074a0  61 79 0d 37 b4 05 cd 0d  37 be 1c e7 20 75 61 72  |ay.7....7... uar|
000074b0  65 61 3d 31 31 20 80 20  75 6e 75 6d 62 65 72 3d  |ea=11 . unumber=|
000074c0  31 20 8c 0d 37 c8 10 e3  20 72 69 64 3d 31 20 b8  |1 ..7... rid=1 .|
000074d0  20 31 36 0d 37 d2 1e e7  20 69 6e 76 65 6e 74 6f  | 16.7... invento|
000074e0  72 79 24 28 72 69 64 29  3d 22 52 4f 50 45 22 20  |ry$(rid)="ROPE" |
000074f0  8c 0d 37 dc 16 69 6e 76  65 6e 74 6f 72 79 24 28  |..7..inventory$(|
00007500  72 69 64 29 3d 22 22 0d  37 e6 16 69 6e 76 65 6e  |rid)="".7..inven|
00007510  74 6f 72 79 28 72 69 64  2c 31 29 3d 30 0d 37 f0  |tory(rid,1)=0.7.|
00007520  16 69 6e 76 65 6e 74 6f  72 79 28 72 69 64 2c 32  |.inventory(rid,2|
00007530  29 3d 30 0d 37 fa 05 cd  0d 38 04 05 ed 0d 38 0e  |)=0.7....8....8.|
00007540  0c 74 61 72 65 61 3d 31  32 0d 38 18 0c 74 63 68  |.tarea=12.8..tch|
00007550  65 63 6b 3d 36 0d 38 22  09 f2 74 61 6b 65 0d 38  |eck=6.8"..take.8|
00007560  2c 27 73 61 79 24 3d 22  49 60 4c 4c 20 54 49 45  |,'say$="I`LL TIE|
00007570  20 54 48 45 20 52 4f 50  45 20 54 4f 20 54 48 45  | THE ROPE TO THE|
00007580  20 42 41 52 22 0d 38 36  08 f2 73 61 79 0d 38 40  | BAR".86..say.8@|
00007590  05 cd 0d 38 4a 1c e7 20  75 61 72 65 61 3d 31 32  |...8J.. uarea=12|
000075a0  20 80 20 75 6e 75 6d 62  65 72 3d 35 20 8c 0d 38  | . unumber=5 ..8|
000075b0  54 10 e3 20 72 69 64 3d  31 20 b8 20 31 36 0d 38  |T.. rid=1 . 16.8|
000075c0  5e 1d e7 20 69 6e 76 65  6e 74 6f 72 79 24 28 72  |^.. inventory$(r|
000075d0  69 64 29 3d 22 42 41 52  22 20 8c 0d 38 68 16 69  |id)="BAR" ..8h.i|
000075e0  6e 76 65 6e 74 6f 72 79  24 28 72 69 64 29 3d 22  |nventory$(rid)="|
000075f0  22 0d 38 72 16 69 6e 76  65 6e 74 6f 72 79 28 72  |".8r.inventory(r|
00007600  69 64 2c 31 29 3d 30 0d  38 7c 16 69 6e 76 65 6e  |id,1)=0.8|.inven|
00007610  74 6f 72 79 28 72 69 64  2c 32 29 3d 30 0d 38 86  |tory(rid,2)=0.8.|
00007620  05 cd 0d 38 90 05 ed 0d  38 9a 0c 74 61 72 65 61  |...8....8..tarea|
00007630  3d 31 32 0d 38 a4 0c 74  63 68 65 63 6b 3d 36 0d  |=12.8..tcheck=6.|
00007640  38 ae 09 f2 74 61 6b 65  0d 38 b8 27 73 61 79 24  |8...take.8.'say$|
00007650  3d 22 49 60 4c 4c 20 54  49 45 20 54 48 45 20 52  |="I`LL TIE THE R|
00007660  4f 50 45 20 54 4f 20 54  48 45 20 42 41 52 22 0d  |OPE TO THE BAR".|
00007670  38 c2 08 f2 73 61 79 0d  38 cc 05 cd 0d 38 d6 05  |8...say.8....8..|
00007680  cc 0d 38 e0 1b 73 61 79  24 3d 22 4e 4f 54 48 49  |..8..say$="NOTHI|
00007690  4e 47 20 48 41 50 50 45  4e 45 44 22 0d 38 ea 08  |NG HAPPENED".8..|
000076a0  f2 73 61 79 0d 38 f4 05  cd 0d 38 fe 05 cd 0d 39  |.say.8....8....9|
000076b0  08 05 cd 0d 39 12 05 cd  0d 39 1c 05 ed 0d 39 26  |....9....9....9&|
000076c0  05 cd 0d 39 30 14 e7 20  70 72 69 6e 74 24 3c 3e  |...90.. print$<>|
000076d0  6f 6c 64 24 20 8c 0d 39  3a 08 f1 20 22 22 0d 39  |old$ ..9:.. "".9|
000076e0  44 0d f1 20 70 72 69 6e  74 24 3b 0d 39 4e 05 cd  |D.. print$;.9N..|
000076f0  0d 39 58 0f 6f 6c 64 24  3d 70 72 69 6e 74 24 0d  |.9X.old$=print$.|
00007700  39 62 09 fd 20 63 3d 34  0d 39 6c 05 cd 0d 39 76  |9b.. c=4.9l...9v|
00007710  07 63 3d 30 0d 39 80 15  70 72 69 6e 74 24 3d 22  |.c=0.9..print$="|
00007720  57 41 4c 4b 20 54 4f 20  22 0d 39 8a 08 f1 20 22  |WALK TO ".9... "|
00007730  22 0d 39 94 10 f1 20 22  57 41 4c 4b 20 54 4f 22  |".9... "WALK TO"|
00007740  3b 0d 39 9e 05 e1 0d 39  a8 05 3a 0d 39 b2 05 3a  |;.9....9..:.9..:|
00007750  0d 39 bc 0a dd 20 f2 73  61 79 0d 39 c6 0e 2a 50  |.9... .say.9..*P|
00007760  4f 49 4e 54 45 52 20 30  0d 39 d0 11 ef 20 32 38  |OINTER 0.9... 28|
00007770  2c 33 2c 31 2c 37 36 2c  31 0d 39 da 05 db 0d 39  |,3,1,76,1.9....9|
00007780  e4 05 87 0d 39 ee 16 67  61 70 3d a9 28 73 61 79  |....9..gap=.(say|
00007790  24 29 2a 31 32 2b 31 35  30 0d 39 f8 0a 73 61 69  |$)*12+150.9..sai|
000077a0  64 3d a3 0d 3a 02 0b f1  20 73 61 79 24 3b 0d 3a  |d=..:... say$;.:|
000077b0  0c 07 d1 3d 30 0d 3a 16  05 f5 0d 3a 20 13 e7 20  |...=0.:....: .. |
000077c0  64 69 72 65 63 74 69 6f  6e 3d 31 20 8c 0d 3a 2a  |direction=1 ..:*|
000077d0  15 2a 53 43 48 4f 4f 53  45 20 77 69 6c 6c 79 72  |.*SCHOOSE willyr|
000077e0  74 31 0d 3a 34 05 cc 0d  3a 3e 15 2a 53 43 48 4f  |t1.:4...:>.*SCHO|
000077f0  4f 53 45 20 77 69 6c 6c  79 6c 74 31 0d 3a 48 05  |OSE willylt1.:H.|
00007800  cd 0d 3a 52 0d f0 20 26  45 44 2c 78 2c 79 0d 3a  |..:R.. &ED,x,y.:|
00007810  5c 0b 77 61 69 74 25 3d  91 0d 3a 66 11 73 61 79  |\.wait%=..:f.say|
00007820  25 3d b3 28 36 30 29 2b  31 30 0d 3a 70 05 f5 0d  |%=.(60)+10.:p...|
00007830  3a 7a 12 fd 20 91 3e 77  61 69 74 25 2b 73 61 79  |:z.. .>wait%+say|
00007840  25 0d 3a 84 13 e7 20 64  69 72 65 63 74 69 6f 6e  |%.:... direction|
00007850  3d 31 20 8c 0d 3a 8e 15  2a 53 43 48 4f 4f 53 45  |=1 ..:..*SCHOOSE|
00007860  20 77 69 6c 6c 79 72 74  32 0d 3a 98 05 cc 0d 3a  | willyrt2.:....:|
00007870  a2 15 2a 53 43 48 4f 4f  53 45 20 77 69 6c 6c 79  |..*SCHOOSE willy|
00007880  6c 74 32 0d 3a ac 05 cd  0d 3a b6 0d f0 20 26 45  |lt2.:....:... &E|
00007890  44 2c 78 2c 79 0d 3a c0  0b 77 61 69 74 25 3d 91  |D,x,y.:..wait%=.|
000078a0  0d 3a ca 11 73 61 79 25  3d b3 28 36 30 29 2b 31  |.:..say%=.(60)+1|
000078b0  30 0d 3a d4 05 f5 0d 3a  de 14 e7 20 91 3e 67 61  |0.:....:... .>ga|
000078c0  70 20 8c 20 73 61 69 64  3d b9 0d 3a e8 12 fd 20  |p . said=..:... |
000078d0  91 3e 77 61 69 74 25 2b  73 61 79 25 0d 3a f2 0c  |.>wait%+say%.:..|
000078e0  fd 20 73 61 69 64 3d b9  0d 3a fc 05 db 0d 3b 06  |. said=..:....;.|
000078f0  05 87 0d 3b 10 13 ef 20  32 38 2c 33 2c 32 30 2c  |...;... 28,3,20,|
00007900  34 30 2c 32 30 0d 3b 1a  05 db 0d 3b 24 05 87 0d  |40,20.;....;$...|
00007910  3b 2e 0d f1 20 70 72 69  6e 74 24 3b 0d 3b 38 0e  |;... print$;.;8.|
00007920  2a 50 4f 49 4e 54 45 52  20 31 0d 3b 42 05 e1 0d  |*POINTER 1.;B...|
00007930  3b 4c 05 3a 0d 3b 56 05  3a 0d 3b 60 0b dd 20 f2  |;L.:.;V.:.;`.. .|
00007940  73 61 79 73 0d 3b 6a 0e  2a 50 4f 49 4e 54 45 52  |says.;j.*POINTER|
00007950  20 30 0d 3b 74 13 e7 20  64 69 72 65 63 74 69 6f  | 0.;t.. directio|
00007960  6e 3d 31 20 8c 0d 3b 7e  13 2a 53 43 48 4f 4f 53  |n=1 ..;~.*SCHOOS|
00007970  45 20 77 69 6c 6c 79 72  0d 3b 88 05 cc 0d 3b 92  |E willyr.;....;.|
00007980  13 2a 53 43 48 4f 4f 53  45 20 77 69 6c 6c 79 6c  |.*SCHOOSE willyl|
00007990  0d 3b 9c 05 cd 0d 3b a6  0d f0 20 26 45 44 2c 78  |.;....;... &ED,x|
000079a0  2c 79 0d 3b b0 11 ef 20  32 38 2c 33 2c 31 2c 37  |,y.;... 28,3,1,7|
000079b0  36 2c 31 0d 3b ba 05 db  0d 3b c4 05 87 0d 3b ce  |6,1.;....;....;.|
000079c0  16 67 61 70 3d a9 28 73  61 79 24 29 2a 31 32 2b  |.gap=.(say$)*12+|
000079d0  31 35 30 0d 3b d8 0b f1  20 73 61 79 24 3b 0d 3b  |150.;... say$;.;|
000079e0  e2 07 d1 3d 30 0d 3b ec  0d f5 20 fd 20 91 3e 67  |...=0.;... . .>g|
000079f0  61 70 0d 3b f6 05 db 0d  3c 00 05 87 0d 3c 0a 13  |ap.;....<....<..|
00007a00  ef 20 32 38 2c 33 2c 32  30 2c 34 30 2c 32 30 0d  |. 28,3,20,40,20.|
00007a10  3c 14 05 db 0d 3c 1e 05  87 0d 3c 28 08 fb 20 36  |<....<....<(.. 6|
00007a20  33 0d 3c 32 0d f1 20 70  72 69 6e 74 24 3b 0d 3c  |3.<2.. print$;.<|
00007a30  3c 0e 2a 50 4f 49 4e 54  45 52 20 31 0d 3c 46 05  |<.*POINTER 1.<F.|
00007a40  e1 0d 3c 50 05 3a 0d 3c  5a 05 3a 0d 3c 64 0c dd  |..<P.:.<Z.:.<d..|
00007a50  20 f2 62 75 69 6c 64 0d  3c 6e 08 eb 20 31 35 0d  | .build.<n.. 15.|
00007a60  3c 78 05 87 0d 3c 82 14  2a 53 43 48 4f 4f 53 45  |<x...<..*SCHOOSE|
00007a70  20 6f 70 74 69 6f 6e 73  0d 3c 8c 0d f0 20 26 45  | options.<... &E|
00007a80  44 2c 30 2c 30 0d 3c 96  16 2a 53 43 48 4f 4f 53  |D,0,0.<..*SCHOOS|
00007a90  45 20 6f 70 74 69 6f 6e  62 61 72 0d 3c a0 0f f0  |E optionbar.<...|
00007aa0  20 26 45 44 2c 30 2c 39  35 39 0d 3c aa 0b f2 75  | &ED,0,959.<...u|
00007ab0  70 64 61 74 65 0d 3c b4  0e 2a 50 4f 49 4e 54 45  |pdate.<..*POINTE|
00007ac0  52 20 31 0d 3c be 05 e1  0d 3c c8 05 3a 0d 3c d2  |R 1.<....<..:.<.|
00007ad0  05 3a 0d 3c dc 0b dd 20  f2 72 65 64 6f 0d 3c e6  |.:.<... .redo.<.|
00007ae0  11 e3 20 6d 6f 76 65 3d  31 20 b8 20 31 35 0d 3c  |.. move=1 . 15.<|
00007af0  f0 1b e7 20 69 6e 76 65  6e 74 6f 72 79 24 28 6d  |... inventory$(m|
00007b00  6f 76 65 29 3d 22 22 20  8c 0d 3c fa 27 69 6e 76  |ove)="" ..<.'inv|
00007b10  65 6e 74 6f 72 79 24 28  6d 6f 76 65 29 3d 69 6e  |entory$(move)=in|
00007b20  76 65 6e 74 6f 72 79 24  28 6d 6f 76 65 2b 31 29  |ventory$(move+1)|
00007b30  0d 3d 04 19 69 6e 76 65  6e 74 6f 72 79 24 28 6d  |.=..inventory$(m|
00007b40  6f 76 65 2b 31 29 3d 22  22 0d 3d 0e 29 69 6e 76  |ove+1)="".=.)inv|
00007b50  65 6e 74 6f 72 79 28 6d  6f 76 65 2c 31 29 3d 69  |entory(move,1)=i|
00007b60  6e 76 65 6e 74 6f 72 79  28 6d 6f 76 65 2b 31 2c  |nventory(move+1,|
00007b70  31 29 0d 3d 18 19 69 6e  76 65 6e 74 6f 72 79 28  |1).=..inventory(|
00007b80  6d 6f 76 65 2b 31 2c 31  29 3d 30 0d 3d 22 29 69  |move+1,1)=0.=")i|
00007b90  6e 76 65 6e 74 6f 72 79  28 6d 6f 76 65 2c 32 29  |nventory(move,2)|
00007ba0  3d 69 6e 76 65 6e 74 6f  72 79 28 6d 6f 76 65 2b  |=inventory(move+|
00007bb0  31 2c 32 29 0d 3d 2c 19  69 6e 76 65 6e 74 6f 72  |1,2).=,.inventor|
00007bc0  79 28 6d 6f 76 65 2b 31  2c 32 29 3d 30 0d 3d 36  |y(move+1,2)=0.=6|
00007bd0  05 cd 0d 3d 40 05 ed 0d  3d 4a 14 ef 20 32 38 2c  |...=@...=J.. 28,|
00007be0  35 30 2c 33 30 2c 37 38  2c 32 32 0d 3d 54 05 db  |50,30,78,22.=T..|
00007bf0  0d 3d 5e 05 87 0d 3d 68  12 e3 20 70 72 69 6e 74  |.=^...=h.. print|
00007c00  3d 31 20 b8 20 31 36 0d  3d 72 20 e7 20 70 72 69  |=1 . 16.=r . pri|
00007c10  6e 74 3c 39 20 8c 20 6c  65 66 74 3d 31 20 8b 20  |nt<9 . left=1 . |
00007c20  6c 65 66 74 3d 31 36 0d  3d 7c 10 64 6f 77 6e 3d  |left=16.=|.down=|
00007c30  70 72 69 6e 74 2d 31 0d  3d 86 17 e7 20 70 72 69  |print-1.=... pri|
00007c40  6e 74 3e 38 20 8c 20 64  6f 77 6e 2d 3d 38 0d 3d  |nt>8 . down-=8.=|
00007c50  90 22 f1 20 8a 6c 65 66  74 2c 64 6f 77 6e 29 69  |.". .left,down)i|
00007c60  6e 76 65 6e 74 6f 72 79  24 28 70 72 69 6e 74 29  |nventory$(print)|
00007c70  0d 3d 9a 05 ed 0d 3d a4  13 ef 20 32 38 2c 33 2c  |.=....=... 28,3,|
00007c80  32 30 2c 34 30 2c 32 30  0d 3d ae 05 db 0d 3d b8  |20,40,20.=....=.|
00007c90  05 87 0d 3d c2 10 f1 20  22 57 41 4c 4b 20 54 4f  |...=... "WALK TO|
00007ca0  22 3b 0d 3d cc 05 e1 0d  3d d6 05 3a 0d 3d e0 05  |";.=....=..:.=..|
00007cb0  3a 0d 3d ea 0d dd 20 f2  75 70 64 61 74 65 0d 3d  |:.=... .update.=|
00007cc0  f4 09 f2 72 65 64 6f 0d  3d fe 2f 63 68 6f 6f 73  |...redo.=./choos|
00007cd0  65 24 3d 22 2a 53 43 48  4f 4f 53 45 20 6c 65 66  |e$="*SCHOOSE lef|
00007ce0  74 22 2b 62 61 63 6b 67  72 6f 75 6e 64 24 28 61  |t"+background$(a|
00007cf0  72 65 61 2c 31 29 0d 3e  08 0d ff 20 63 68 6f 6f  |rea,1).>... choo|
00007d00  73 65 24 0d 3e 12 0f f0  20 26 45 44 2c 30 2c 33  |se$.>... &ED,0,3|
00007d10  39 37 0d 3e 1c 30 63 68  6f 6f 73 65 24 3d 22 2a  |97.>.0choose$="*|
00007d20  53 43 48 4f 4f 53 45 20  72 69 67 68 74 22 2b 62  |SCHOOSE right"+b|
00007d30  61 63 6b 67 72 6f 75 6e  64 24 28 61 72 65 61 2c  |ackground$(area,|
00007d40  32 29 0d 3e 26 0d ff 20  63 68 6f 6f 73 65 24 0d  |2).>&.. choose$.|
00007d50  3e 30 12 f0 20 26 45 44  2c 31 30 33 30 2c 33 39  |>0.. &ED,1030,39|
00007d60  37 0d 3e 3a 12 e3 20 6f  62 6a 65 63 74 3d 31 20  |7.>:.. object=1 |
00007d70  b8 20 37 0d 3e 44 1e e7  20 6f 62 6a 65 63 74 73  |. 7.>D.. objects|
00007d80  28 61 72 65 61 2c 6f 62  6a 65 63 74 29 3d 31 20  |(area,object)=1 |
00007d90  8c 0d 3e 4e 2c 63 68 6f  6f 73 65 24 3d 22 2a 53  |..>N,choose$="*S|
00007da0  43 48 4f 4f 53 45 20 22  2b 63 68 6f 6f 73 65 24  |CHOOSE "+choose$|
00007db0  28 61 72 65 61 2c 6f 62  6a 65 63 74 29 0d 3e 58  |(area,object).>X|
00007dc0  0d ff 20 63 68 6f 6f 73  65 24 0d 3e 62 09 e6 20  |.. choose$.>b.. |
00007dd0  38 2c 30 0d 3e 6c 3d f0  20 26 45 44 2c 63 6f 6f  |8,0.>l=. &ED,coo|
00007de0  72 64 69 6e 61 74 65 28  61 72 65 61 2c 6f 62 6a  |rdinate(area,obj|
00007df0  65 63 74 2c 31 29 2c 63  6f 6f 72 64 69 6e 61 74  |ect,1),coordinat|
00007e00  65 28 61 72 65 61 2c 6f  62 6a 65 63 74 2c 32 29  |e(area,object,2)|
00007e10  0d 3e 76 05 cd 0d 3e 80  05 ed 0d 3e 8a 05 e1 0d  |.>v...>....>....|
00007e20  3e 94 05 3a 0d 3e 9e 05  3a 0d 3e a8 0b dd 20 f2  |>..:.>..:.>... .|
00007e30  74 61 6b 65 0d 3e b2 0b  63 6f 75 6e 74 3d 30 0d  |take.>..count=0.|
00007e40  3e bc 05 f5 0d 3e c6 0c  63 6f 75 6e 74 2b 3d 31  |>....>..count+=1|
00007e50  0d 3e d0 0a 64 6f 6e 65  3d a3 0d 3e da 1c e7 20  |.>..done=..>... |
00007e60  69 6e 76 65 6e 74 6f 72  79 24 28 63 6f 75 6e 74  |inventory$(count|
00007e70  29 3d 22 22 20 8c 0d 3e  e4 0a 64 6f 6e 65 3d b9  |)="" ..>..done=.|
00007e80  0d 3e ee 29 69 6e 76 65  6e 74 6f 72 79 24 28 63  |.>.)inventory$(c|
00007e90  6f 75 6e 74 29 3d 6e 61  6d 65 24 28 74 61 72 65  |ount)=name$(tare|
00007ea0  61 2c 74 63 68 65 63 6b  29 0d 3e f8 1c 69 6e 76  |a,tcheck).>..inv|
00007eb0  65 6e 74 6f 72 79 28 63  6f 75 6e 74 2c 31 29 3d  |entory(count,1)=|
00007ec0  74 61 72 65 61 0d 3f 02  1d 69 6e 76 65 6e 74 6f  |tarea.?..invento|
00007ed0  72 79 28 63 6f 75 6e 74  2c 32 29 3d 74 63 68 65  |ry(count,2)=tche|
00007ee0  63 6b 0d 3f 0c 05 cd 0d  3f 16 0c fd 20 64 6f 6e  |ck.?....?... don|
00007ef0  65 3d b9 0d 3f 20 09 f2  72 65 64 6f 0d 3f 2a 05  |e=..? ..redo.?*.|
00007f00  e1 0d 3f 34 05 3a 0d 3f  3e 05 3a 0d 3f 48 0b dd  |..?4.:.?>.:.?H..|
00007f10  20 f2 77 61 6c 6b 0d 3f  52 0a 77 61 6c 6b 3d b9  | .walk.?R.walk=.|
00007f20  0d 3f 5c 0b e7 20 61 3c  78 20 8c 0d 3f 66 0d e7  |.?\.. a<x ..?f..|
00007f30  20 78 3d 32 36 30 20 8c  0d 3f 70 0a 77 61 6c 6b  | x=260 ..?p.walk|
00007f40  3d a3 0d 3f 7a 10 64 69  72 65 63 74 69 6f 6e 3d  |=..?z.direction=|
00007f50  2d 31 0d 3f 84 05 cd 0d  3f 8e 05 cc 0d 3f 98 0d  |-1.?....?....?..|
00007f60  e7 20 78 3d 38 37 39 20  8c 0d 3f a2 0a 77 61 6c  |. x=879 ..?..wal|
00007f70  6b 3d a3 0d 3f ac 0f 64  69 72 65 63 74 69 6f 6e  |k=..?..direction|
00007f80  3d 31 0d 3f b6 05 cd 0d  3f c0 05 cd 0d 3f ca 0e  |=1.?....?....?..|
00007f90  e7 20 77 61 6c 6b 3d b9  20 8c 0d 3f d4 0e 2a 50  |. walk=. ..?..*P|
00007fa0  4f 49 4e 54 45 52 20 30  0d 3f de 09 77 61 73 3d  |OINTER 0.?..was=|
00007fb0  61 0d 3f e8 13 e7 20 61  3c 32 36 30 20 8c 20 61  |a.?... a<260 . a|
00007fc0  3d 32 36 30 0d 3f f2 15  e7 20 61 3e 31 30 32 39  |=260.?... a>1029|
00007fd0  20 8c 20 61 3d 31 30 32  39 0d 3f fc 10 e7 20 61  | . a=1029.?... a|
00007fe0  3c 28 78 2d 31 30 29 20  8c 0d 40 06 10 64 69 72  |<(x-10) ..@..dir|
00007ff0  65 63 74 69 6f 6e 3d 2d  31 0d 40 10 16 e3 20 77  |ection=-1.@... w|
00008000  61 6c 6b 3d 78 20 b8 20  61 20 88 20 2d 31 37 0d  |alk=x . a . -17.|
00008010  40 1a 15 e7 20 77 61 6c  6b 3c 61 20 8c 20 77 61  |@... walk<a . wa|
00008020  6c 6b 3d 61 0d 40 24 0a  78 3d 77 61 6c 6b 0d 40  |lk=a.@$.x=walk.@|
00008030  2e 15 6d 6f 64 64 65 64  3d 28 77 61 6c 6b 20 83  |..modded=(walk .|
00008040  20 38 29 0d 40 38 29 63  68 6f 6f 73 65 24 3d 22  | 8).@8)choose$="|
00008050  2a 53 43 48 4f 4f 53 45  20 77 69 6c 6c 79 6c 22  |*SCHOOSE willyl"|
00008060  2b c3 28 38 2d 6d 6f 64  64 65 64 29 0d 40 42 0d  |+.(8-modded).@B.|
00008070  ff 20 63 68 6f 6f 73 65  24 0d 40 4c 08 e6 20 36  |. choose$.@L.. 6|
00008080  33 0d 40 56 0d f0 20 26  45 44 2c 78 2c 79 0d 40  |3.@V.. &ED,x,y.@|
00008090  60 07 d1 3d 30 0d 40 6a  0b f5 20 fd 20 91 3e 37  |`..=0.@j.. . .>7|
000080a0  0d 40 74 05 ed 0d 40 7e  07 78 3d 61 0d 40 88 05  |.@t...@~.x=a.@..|
000080b0  cd 0d 40 92 11 e7 20 61  3e 28 78 2b 31 35 30 29  |..@... a>(x+150)|
000080c0  20 8c 0d 40 9c 0f 64 69  72 65 63 74 69 6f 6e 3d  | ..@..direction=|
000080d0  31 0d 40 a6 19 e3 20 77  61 6c 6b 3d 78 20 b8 20  |1.@... walk=x . |
000080e0  61 2d 31 35 30 20 88 20  31 37 0d 40 b0 0a 78 3d  |a-150 . 17.@..x=|
000080f0  77 61 6c 6b 0d 40 ba 17  6d 6f 64 64 65 64 3d 28  |walk.@..modded=(|
00008100  77 61 6c 6b 20 83 20 38  29 2b 31 0d 40 c4 27 63  |walk . 8)+1.@.'c|
00008110  68 6f 6f 73 65 24 3d 22  2a 53 43 48 4f 4f 53 45  |hoose$="*SCHOOSE|
00008120  20 77 69 6c 6c 79 72 22  2b c3 28 6d 6f 64 64 65  | willyr"+.(modde|
00008130  64 29 0d 40 ce 0d ff 20  63 68 6f 6f 73 65 24 0d  |d).@... choose$.|
00008140  40 d8 08 e6 20 36 33 0d  40 e2 0d f0 20 26 45 44  |@... 63.@... &ED|
00008150  2c 78 2c 79 0d 40 ec 07  d1 3d 30 0d 40 f6 0b f5  |,x,y.@...=0.@...|
00008160  20 fd 20 91 3e 37 0d 41  00 05 ed 0d 41 0a 0b 78  | . .>7.A....A..x|
00008170  3d 61 2d 31 35 30 0d 41  14 05 cd 0d 41 1e 0e 2a  |=a-150.A....A..*|
00008180  50 4f 49 4e 54 45 52 20  31 0d 41 28 05 cd 0d 41  |POINTER 1.A(...A|
00008190  32 05 e1 0d ff                                    |2....|
00008195