Beacon Adventure (Beacon.tzx)

ZXTape!èBeacon   
ÁÁ%èÃÿñca=0
ñfound=0
ñi=0
ñop=0
ñwo=1
ñst=1

ñfed=0
	ç0:Ú0:û:Ù7

í8000@:í9000(#
õ:õl$(x,y):í9500%
Eëf=1Ì9	:úa(f)=xÆb(f)=yËõ"Looking
around you see a ";o$(f)
óf
!úx=4Æy=3Ëì9999'
î"What
next? ";Êc$
ñc$=c$+"
"
#ú±c$=1Ëña$=c$
(Gëf=1Ì±c$:úc$(f)="
"Ëña$=c$(Ìf-1):ñb$=c$(f+1Ì):ñf=±c$
2óf
<(úa$="n"Åa$="s"Åa$="e"Åa$="w"Ëì900
F
úa$="get"Åa$="take"Ëí1500Ü
Gúa$="i"Ëì1600@
Húa$="r"Ëì20
Iúa$="d"Ëì5000
P
úa$="put"Åa$="drop"Ëí2000Ð
Zúa$="open"Ëí2500Ä	
dúa$="unlock"Ëí3000ž
núa$="feed"Ëí3500¬

xúa$="swim"Ëí3700t
}úa$="quit"Ëì9600%
~úa$="save"Ëì9700ä%
úa$="chop"Ëí6000p
úa$="make"Ëí6500d
úa$="light"Ëì4300Ì
úa$="insert"Ëí4500
 ,õ"I
don't understand. Try again.":ì30
`úx=3Æy=6ÆwoËõ"You are
surrounded by wolves    who will not let you
move.":ì30
Túx>4Æx<9	Æy=7ÆstÆa$="e"Ëõ"There
is a stream in the
way!":ì30
Iúx=8Æy=3ÆÃfedÆa$="w"Ëõ"There is a dog
in the
way!":ì30
èHúa$="w"Æl$(x,y-1,1)=""Ëõ"You
can't go that
way!":ì30
òHúa$="n"Æl$(x-1,y,1)=""Ëõ"You
can't go that
way!":ì30
üHúa$="s"Æl$(x+1,y,1)=""Ëõ"You
can't go that
way!":ì30
Húa$="e"Æl$(x,y+1,1)=""Ëõ"You
can't go that
way!":ì30
úa$="s"Ëñx=x+1
úa$="n"Ëñx=x-1
$úa$="w"Ëñy=y-1
)úa$="e"Ëñy=y+1
.
ì20
Üúb$=""Ëõ"Get
what?":ì30
æñg=±b$
ðkëf=1Ì9	:úx=a(f)Æy=b(f)Æb$=o$(f,Ìg)Ëñca=ca+1:ña(f)=0:ñb(f)=0:õ"O.K.":ì30
úóf
õ"I
can't see a ";b$

ì30
@Eõ"You
have:":ëf=1Ì9	:úa(f)=0Ëñfound=1:õ'o$(f)
Jóf
TúÃfoundËõ'"Nothing!"
^ñfound=0:ì30
Ð*ñkl=0:úb$=""Ëõa$;"
what?":ì30
Úñg=±b$
ßtúÃa(3)Æx=3Æy=6Æb$="onion
"Ëñwo=0:õ"The wolves run away because of  the smell of the
onion."
äWëf=1Ì9	:úb$=o$(f,Ìg)ÆÃa(f)Ëña(f)=x:ñb(f)=y:ñi=i-1:õ"O.K.":ñkl=1
åúklËì30
îóf
ø"õ"You
don't have a ";b$:ì30
	Äúb$=""Ëõ"Open
what?":ì30
	Î:úb$="door "Æ(xÉ6ÅyÉ8)Ëõ"What
door?":ì30
	Ø)úb$É"door "Ëõ"Don't be
silly!":ì30
	â'úlocËõ"It's locked,
stupid!":ì30
	ì:õ"O.K. There is a stair going
down":ñop=1:ì30
ž!úb$=""Ëõ"Unlock
what?":ì30
Â:úb$="door "Æ(xÉ6ÅyÉ8)Ëõ"What
door?":ì30
Ì)úb$É"door "Ëõ"Don't be
silly!":ì30
Ñ$úa(2)Ëõ"What
with?":ì30
Öõ"O.K.":ñloc=0:ì30

¬úb$=""Ëõ"Feed
what?":ì30

¶&úb$É"dog "Ëõ"That's
silly!":ì30

À7úxÉ8ÅyÉ3Ëõ"There's no dog
here!":ì30

Ê-úa(7)Ëõ"I have no dog
food.":ì30

Ô=õ"Munch,
munch!":ñfed=1:ña(7)=45-:ì30
tgú(xÉ5ÅyÉ5)Æ(xÉ4ÅyÉ8)Æ(x<5ÅyÉ7)Ëõ"There's
no water here!":ì30
~,õ"Brrr... The water is too cold!":ì30
Ì
úb$=""Ëõ"Light what?":ì30
Ñ)úb$É"candle
"Ëõ"That's silly!":ì30
Ö2úa(4)Ëõ"You don't have a
candle!":ì30
àPúÃa(4)ÆÃa(9	)Ëõ"It casts a flickering
light.":ñlit=1:ì30
þBúa(9	)Ëõ"You don't have anything to
lightit with!":ì30
!úb$=""Ëõ"Insert
what?":ì30
+úb$É"battery "Ëõ"Don't be
nuts!":ì30
3úa(5)Ëõ"You don't have a
battery.":ì30
šzõ"You insert the battery. The     beacon flashes on and off.
You  have succesfully completed the 
adventure.":ì9999'
Húx=6Æy=8ÆopÆÃa(4)ÆlitËñx=4:ñy=8:ì20
Túx=4Æy=8ÆopÆ(a(4)Å(Ãa(4)ÆÃlit))Ëõ"It's
too dark!":ì30
?úx=6Æy=8ÆopÆa(4)Ëõ"It's too
dark!":ì30
Húx=4Æy=8ÆopÆÃa(4)ÆlitËñx=6:ñy=8:ì20
º
õ"You can't go down.":ì30
p1úa(8)Ëõ"You haven't got an
axe!":ì30
zúb$=""Ëõ"Chop
what?":ì30
-úb$É"tree "Ëõ"That's a bit
silly.":ì30
Gúx<5ÅyÉ7Ëõ"There are no trees
worth"'"chopping!":ì30
7õ"Whooshhh..."'"The tree
falls.":ñtr=1:ì30
d)úb$É"raft "Ëõ"Don't be
silly!":ì30
x,úÃtrËõ"You haven't got any
wood.":ì30
?úx<5ÅyÉ7Ëõ"What do you want a raft
for?":ì30
/õ"O.K. You have a
raft.":ñst=0:ì30
@él$(9	,9	,110n)
A)ëf=1Ì9	:ñl$(1,f)="":óf
BOëf=1Ì8:ñl$(f,1)="":ñl$(f,9	)="":ñl$(9	,f)="":óf
J5ëf=2Ì8:ëg=2Ì8:ãl$(f,g):óg:óf
T
ä"There is a road going south."
^ä""
h3ä"You are on a road
running from  north to south."
r	ä"",""
|Jä"You are in a
field. There are   gates to the east and to the    south."
1ä"You are on a road
running from  east to west."
3ä"You are on a road running from  north to
south."
ä""
€3ä"You are on a road running from  north to
south."
®ä""
ž+ä"You are in the west end of a   
meadow."
Â+ä"You are in the east end of a   
meadow."
Ìä""
Ö8ä"You are in a big field. There isa swamp to the
east."
à3ä"Arrgh!!! You have just fallen   into a swamp..."
ê8ä"You are
in some hills. There is a swamp to the west."
ôä""
þ"ä"You are
on a huge plateau.",""
 rä"You are on an island. In front  of you is a
beacon which lacks  a power source. There is a hole in the ground."
 ä"You are in a
shrubbery."
 ä""
 &7ä"You are in a rockery. There is  a lake to the
west."
 0Wä"You are at the edge of a lake.  In the middle there is a stone  with a sword
in it."
 :ä"You are on a huge plateau."
 DGä"You are at the edge of a
river. There are trees all around you.",""
 N5ä"You are in a meadow. There
is a road to the west."
 X1ä"You are on a road running from  west to east."
b.ä"You are in a valley. To the eastis a road."
 lä"You are in a valley."
v ä"You are on an immense plain."
 Cä"You are at the edge of a river. There are
trees all around you."
 @ä"You are in a forest. In front ofyou is a door in the
ground."
 ä""
 ä"You are in a wood."
 šä""
²ä"You are in a cave."
 Œä"You are in a meadow."
 ÆCä"You are at
the edge of a river. There are trees all around you."
 Ð=ä"You are in a forest. There
is a path running north-south."
 ÕAä"You are in a clearing. In front of you is a
woodcutter's hut."
 Úä"You are in a wood."
 ää"You are in a
meadow.",""
 îä"You are in a field."
 øCä"You are at the edge
of a river. There are trees all around you."
!=ä"You are in a forest. There is a path
running
north-south."
!4þ
#(ñx=2:ñy=8
#).éo$(9	,15):éa(9	):éb(9	)
#2'ëf=1Ì9	:ão$(f),a(f),b(f):óf
#<Nä"phone",6,6,"golden
key",2,2,"onion",2,7
#FKä"candle",3,6,"battery",4,2,"wand",6,4
#PHä"bone",7,5,"axe",8,2,"matches",7,3
#Zñfed=0:ñraft=0
#dñloc=1:ñwiz=1
#n
ñlit=0
#þ
%0õ"Exits:":úl$(x-1,y,1)É""Ëõ"North"
%&%úl$(x,y+1,1)É""Ëõ"East"
%0&úl$(x+1,y,1)É""Ëõ"South"
%:%úl$(x,y-1,1)É""Ëõ"West"
%Dþ
%(î"Want
to quit? ";Ês$:ús$É"y"Ëì30
%9î"Want to save the game first?
";Ês$:ús$É"y"Ëì9999'
%äû:õ"Have blank tape
ready."
%îø"beacon"Ê20
%øõ"O.K...":ò200È:ì20
m