ZXTape! TIME #v"J#23658j\,8  fed=0  i=0 set=1000 init=9100# init  "What shall I do ?" a$=""  no=0  ea=0  we=0  so=0  up=0  do=0 i$="" #set ( -i$ 2found=0 4 p=0 < 9600% P 100d Z2a$="LOOK"found"I can't see anything special" f"What shall I do ?";j$ gj$=""100d h ja= kHset=1240a>.95s333"The dog awoke and killed you":9000(# m 500 n a$;" ";b$ ob$=""115s p"b$(1)=" "b$=b$(2) q?a$="TAKE"a$="GET"a$="PUT"a$="DROP"b$=b$+" " rb$=" "112p sa$="N"no0set=no xa$="S"so0set=so a$="W"we0set=we a$="E"ea0set=ea a$="D"do0set=do .a$="N"a$="S"a$="E"a$="W"a$="D"20 @a$="U"set1210set1240set1450158 a$="U"6000p a$="R"40( (a$="HELP""No chance mate":100d a$="TAKE"a$="GET"2000 a$="SAVE"9800H& a$="PUT"a$="DROP"4500 a$="OPEN"2500 a$="FEED"3500 a$="LOOK"60< a$="SWIM"4000 a$="LIGHT"7500L a$="READ"6500d a$="UNLOCK"3000 a$="I"5500|:100d a$="INSERT"7000X a$="QUIT"9000(# a$="SAVE"9900& *"I can't ";a$;" ";b$ #a$=1"I can't":100d  100d .j$(1)=" "Ʊj$>1j$=j$(2) j$(1)=" "500  sp=0 a$="" b$="" n=1̱j$ j$(n)=" "spsp=1 j$(n)=" "sp520 sp=0a$=a$+j$(n) sp>0b$=b$+j$(n) n  Ei$="You are in a forest. There are paths leading north and south." no=1390n so=1030  \i$="You are in a forest, with paths leading north and east and a clearing to the west."  no=1000 ea=1090B we=1060$  $gi$="You are in a clearing. In the centre is a time machine which lacks a power source. Exit east." .ea=1030 8 B>i$="You are in a forest. There is a path running east-west." Lwe=1030 Qea=1120` V `i$="You are in the forest. Through a gap to the north you can see alake. The path runs east-west and there is a cave to the south" eea=1300 jwe=1090B oso=1150~ t ~|i$="You are in a small cave. Daylight is to the north. There is a door to the west and an opening to the south." so=1180 no=1120`  i$="You are in a large cavern. Thereis a chest lying in one corner, and a skeleton in another. The only exit is to the north." no=1150~  i$="I can't see a thing." up=1150~  أi$="You are in a long passage. You can hear the sound of dripping water. To the north is a flight of stairs with a large dog sleeping on the bottom step." so=1210  ri$="You are on an island in the centre of the lake. There is a hole in the ground with a stair-case in it." do=1240   i$="You are beside a lake. There is an island in the middle of the lake. To the west is the forest and to the north is a rockery." no=13302 #we=1120` ( 2_i$="You are in a rockery. The lake is to the west, and there are some reeds to the north." <no=1360P Aso=1300 F P UB"I have fallen into a swamp glug.....glug.....glug........" Z 9000(# nti$="You are in a shrubbery. The forest is to the south. the lakeis to the east, and meadow is to the north." xno=1420 }so=1000  ri$="You are in a meadow. The lake isto the south-east. To the south is the shrubbery and to the eastis a tower." ea=1450 so=1390n  i$="You are at the foot af a tower. There is no door to be seen. To the west is the meadow and to the east are some reeds." ea=1360P we=1420 up=1480  Gi$="You are at the top of the tower.There is no door up here either." do=1450  1i5"I can't carry any more.":100d +b$=""a$;" waht ?":b$:b$=""100d found=0 n=112 i(n)set2055 (o$(n)b$(115)2055  "OK..." found=1 i(n)=0  i=i+1 n  found=0499  100d -b$="""Open what ?":b$:b$=""2500  2b$="DOOR"set1150~"What door":499 9b$="DOOR"und=0"It's locked dumbo..":499 Eb$="DOOR""There is a stair going down.":do=1210:100d 9b$="CHEST"set1180"I see no chest.":100d +b$="CHEST"unc"It's locked":100d ?b$="CHEST""OK.":"There is nohing in the chest.":100d  499 /b$="""Unlock what ?":b$:b$=""3000  "b$(1)=" "b$=b$(2) 4b$="DOOR"set1150~"What door ?":100d i(7)>0499 ,b$="DOOR"und=1:"Click":100d 6b$="Chest"set1180"What chest ?":100d -b$="CHEST"unc=1:"Clunk":100d 499 -b$="""Feed what ?":b$:b$=""3500 (b$"DOG""Dont be silly !":499 4set1240"There is no dog here.":100d 7i(12 )>0"I have no dog food.":100d i=i-1 fed=1 up=1270 "Munch,munch" i(12 )=1180 100d set=1120`set=1270set=1300set=13302set=1390nset=1420"Brrr. The water is cold.":100d "There is no water here."  100d -b$="""Drop what ?":b$:b$=""4500 n=112 "b$(1)=" "b$=b$(2) b$(1)=" "4507 i(n)04545 (o$(n)b$(115)4545  i(n)=set found=1  "OK..."  i=i-1 n  100d |found=0 n=112 i(n)05530 "found"I have the following.." 10 ;" a ";o$(n) found=1 n  pset=12406100 rset=1210set=up uset1450set=up zset=up20 5i(3)>0"There is no way up":100d up>0set=up set=up20 "I can't go up"  100d 4fed=0"There's a dog in the way":100d set=1270  20 d,b$=""a$;" what ?":b$:b$=""6500d b$"MANUSCRIPT"499 Di(11 )>0set1480"I do not have ";b$:100d  ^"The manuscript says: PP3 - TM Island "  100d X&set1060$i(9 )499 b2"You have successfully completed the adventure." g l2"Your time-ship takes off for your own time." q14,12 ;"" r16,12 ;"" s&15,12 ;"";17;"" vz=(*250)+1995 a=z1983-1 15,13 ;a:5 a   9000(# L.b$="""Light what ?":b$:b$=""7500L ji(8)>0499 tset=1210no=1240 ~lno>0"You are in a small room. There is a staircase to the east and a damp passage to the north." no0100d "That didn't much good."  100d @ JE,,,,,,,," TIME SWITCH =================" T ^ h" You are stranded in the dim and distant past. You must find your way back to your own time using what you can find on your journey." r,18,4;"PRESS ANY KEY TO START" |=""8060|  9500% #($"Do you want to try again (Y/N) ?" #2b$ #< b$="Y" #F # #$i(12 ):o$(12 ,15) #n=112 #x=(*15) #i(n)=(x*30)+1000 #i(n)=1360P9140# #-i(n)>1200i(n)<12719140# #o$(n) #n #i(9 )=1270 #i(7)=1480 #i(11 )=1480 #i(3)=1060$ #x"ROPE","ROCK","LADDER","GOLD RING","GUN","13 AMP PLUG","GOLDEN KEY","TORCH","BATTERY","LOG","MANUSCRIPT","MARROW-BONE" $ und=0 % unc=0 % 8000@ % %n=112 % p=p+1 %i(n)=set9630% %p=12 90Z % 9650% %found"I can see a ...." %o$(n) %n % 100d &H"timeslide"10 eieni#? $$$n$~Ϲ ROPE ROCK LADDER GOLD RING GUN 13 AMP PLUG GOLDEN KEY TORCH BATTERY LOG MANUSCRIPT MARROW-BONE #xnn