ZXTape! 2| Space IslandDocimodus/Terminal Software1983EnglishAdventure: GraphicUnknownOriginalTZXed by Martin HarrisonIsland SS<mS@!345 !@345 "zz1.0nnd$ (zzzzzzzzzzzzzzzzzzzz "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz 3.bo51lsjld8mtUrwdXdctb6)fc\rkedo0to 90Z Aa$''b$;"STATUS"'''" Your starship is locked in"''"geostationary orbit above ROBA."''"Repeated attempts to land a"''"survey unit have fallen to laser"''"attacks from the surface. One"''"android has survived a crash and"''"awaits your command." C 90Z F'''''" He stands alone amid the"''"wreckage on a small island west"''"of ROBA. He is your only hope"''"of completing your mission." H 90Z Ka$''b$;"CONTROL"'''" On your videoscanner you can"''"see ROBA and the location plot"''"of the android."''" The black dots indicate known"''"points of interest."'''"Keys 5 to 8 control direction."'''"Vocabulary is revealed by"''" pressing SPACE." M 90Z P 95_ Z""90Z [ a=13000 :"": \a:: _d:10 ,0;"Press ""S"" to start play"''"or any other key to repeat"''"the introduction." `#1000:"s"Ʀ"S"10 dt0:6:6:0*23760\:g$(32 ):a=23802\23833]:g$(a-23801\)=¾a:a gCp$(32 ):a=23840 ]23871?]:p$(a-23839])=¾a:a i11,8;1;"GENERATING GAME" n op=0 s1d$=g$(5): h=g$(3):v=g$(4) xo$(64@,4):a=23878F]24130B^4:b=03:o$((a-23878F])/4+1,b+1)=¾(a+b):b:a }&0:g$(14)="g"200 z=1200:o1=(*62>+3):o2=(*62>+3):z$=o$(o1,2):o$(o1,2)=o$(o2,2):o$(o2,2)=z$:z 0*23760\ Xo=164@:o$(o,1)"#"0;0;o$(o,1),o$(o,2) :o::t$(30,15):t=115:t$(t):t D"ldladder","lslaser","dcdecoder","fccontainer","fufuel","liliquid" l"dtdata tape","bxbox","wdsilver disc","totorch","dydynamite","rcoverall","kekey","lblead boots","mgmagnet" r$="n":gc=g$(10 ):hls=.4L:hl=175:vl=80P:sh=g$(11 ):st=g$(9 ):m$="n":rf=g$(8)*100d:f$="nf":at=32 :w$="""SPACE"" to see vocabulary" .lose=9000(# 0drop=9400$ 1get=9500% 2list=9600% 3delay=9700% 5hold=8000@ 6has=9620% 7mon=2500 8find=2600( 9del2=2700 :exp=7000X 0:0*23781\ N0:rf=rf-st*(rf>st):g$(8)=(rf/100d):0*23760\ #1/rf+.01z# =,rf/500 =" "list:1000 ="d"Ŧ="D"drop:1000 tgc=gc+1:g$(10 )=gc:gc>5gc=1:at33!g$(18)="b"g$(17)="e"2042 >"4"Ʀ<"9"d$= g$(5)=d$ \h=h+(d$="8"h<230)-(d$="5"h>16):v=v+(d$="7"v<155)-(d$="6"v>16) 5pv=(22-(v+1)/8):ph=(h/8)  at=(pv,ph) 7:21,0;"***ENERGY = ";1;rf;"**";21,18;"*WEIGHT = ";1;st;"**";21,31;"*";1,0;"********************************":0*23781\ 'np=(h,v):npopop=np:2000 1:8:h,v:h-1,v:h+1,v:h+2,v:h-2,v:h,v-1:h,v+1:h,v-2:h,v+2 20:0:op=np ,g$(3)=h:g$(4)=v:1000 .g$(6)="y"g$(6)="n":1000 &rf<1000q$="I'm hungry":del2 'rf<300,q$="I'm starving":del2 'rf20):g$(9 )=st:o$(1,1)=h:o$(1,2)=v:q$="I'm glad I've got rid of that":del2:1000  qrf=rf-st*10 *(rf>st*10 ):g$(8)=(rf/100d):q$="O.K. I'll keep the boat":del2:1000 .at=33!at=34"1000:monster Gm$="y":q$="The Auto-Defence is listening":delay:i$="q"2510 ?q$="I'm being attacked by a ROBOT":delay:i$"f"2520 /f$="ls":find:sh=0f$="nf"2520 Ush=sh-(sh>0):g$(11 )=sh:q$="I've "+g$(11 )+" shots left":del2 />.73333q$="I missed !":del2:2502 Rg$(11 )>0q$="I killed it":1,30:exp:del2:2530 ig$(12 )="s"g$(12 )="z":g$(11 )="(":sh=40(:q$="I'm reloading":del2:2502 2502 6>.5q$="It didn't hear me":del2:1000 2502 lose b0*23760\:z=115:rh=(*235+10 ):rv=(*145+10 ) 7v2=(22-(rv+1)/8):h2=(rh/8) -a2=(v2,h2):a234"a233!rh,rv %z:0*23781\:1000 (2p=111 2:p$(pp+1)=f$ )p:f$="nf": [0*23760\:1,1;q$:d=40(0-.5:.01z# =,d:d: ""3000 4000+o*20  Xq$="I have found a fuel tank **shaped like a boat":delay:i$="e"4030 i$"g"4023 %q$="It is too heavy to lift":delay i$"p"1000  q$="It is sliding away":delay i$"h"4027 [g$(18)="b":g$(17)=i$:st=st+16:g$(9 )=st:get:hold:1000 Bq$="It is going too fast for me":delay:q$="I've lost it":del2 get:1000 cq$="I've got in it but I can't get**it to move":del2:q$="I'm getting out":del2:1000 @q$="A Laser Rifle is on the ground":delay:i$"g"1000 get:hold:1000 9q$="I have found a ladder !":delay:i$"g"1000 get:hold:1000 Yq$="The ground before me is **shimmering a little":delay:i$"e"1000 bh=(*40(+100d):v=(*60<+40():q$="I'm being teleported":del2:1000 dq$="There is a small silver disc **hovering just above the ground":delay:i$"g"1000 get:st=(st/2+1)-4*(st>4):g$(9 )=st:hold:q$="I feel like I'm walking on air":del2:1000 [q$="I see an electronic gadget **with a control switch":delay:i$"s"1000 Zq$="A message flashes on saying, **""WAITING FOR DATA""":delay:i$"l"1000 Ef$="dt":find:f$="nf"q$="I've nothing to load":del2:1000 g$(7)="y":q$="The tape has loaded":delay:q$="Message says, ""TIME SPREAD **DATA TRANSMITTED TO ORBITAL **UNIT""":del2:1000 ,Sq$="The metal thing I am standing **on is ticking":delay:i$"j"4142. -:exp:q$="It has exploded but I'm O.K.":del2:1000 .2exp:q$="It has blown up, I'm dying":del2:lose @Vq$="An empty Telepax GT container **is on the ground":delay:i$"g"1000 Aget:hold:1000 T4q$="I have found a key":delay:i$"g"1000 Uget:hold:1000 hvq$="There is a door in the ground":delay:i$"o"q$="Well, I didn't want to open it**anyway":del2:1000 iDf$="ke":find:f$="nf"q$="The door is locked":delay:4205m jLq$="There's a box of laser charges**inside":delay:i$"g"1000 k@g$(12 )="s":q$="I now have 40 shots to spare":get:del2 l 1000 mi$"f"1000 nq$="The door has melted away":del2:q$="I see a box of laser charges":del2:q$="They are melting too":del2:q$="They're going to explode !":del2:exp:lose |?q$="There is a torch on the ground":delay:i$="g"get:hold } 1000 5q$="I am in a fuel dump":delay:i$"g"1000 f$="fc":find:f$="nf"q$="A warning is flashing ""TELEPAX**GT must not be handle without **a container""":del2:q$="Help, the fuel is burning":del2:exp:lose hold:1000 =q$="Vegetables are growing here":delay:i$"c"1000 .q$="I feel ill, they are poison":del2:lose @q$="I see a bottle labelled A.L.E.":delay:i$"c"1000 Dq$="I feel refreshed now":del2:rf=rf+5000:get:1000 :q$="I have found some plants":delay:i$"c"1000 Frf>15000:q$="I'm full, I can't eat anymore":del2:1000 Zget:q$="That was good":del2:rf=rf+1000:g$(8)=(rf/100d):1000 <q$="I have found some dynamite":delay:i$"g"1000 Gget:hold:>.73333q$="The dynamite is sweating":del2:exp:lose  1000 ?q$="I see a metalo-plastic overall":delay:i$="g"get:hold  1000 Rq$="There is a pair of lead boots **on the ground":delay:i$="g"get:hold  1000 6q$="I have found a magnet":delay:i$="g"get:hold  1000 0;q$="I have found a data tape":delay:i$"g"1000 1get:hold:1000 D-q$="I see a box":delay:i$"o"1000 E7q$="It contains a message":delay:i$"r"1000 FYq$="It says, ""The missile is faked** Find the tape and.......""":del2:1000 X;q$="I see a sign above a door":delay:i$"r"1000 ZBq$="It says ""THE DAWNSIL COMPANY""":delay:i$="i"1000  \~q$="There is a layer of ash before**the door":delay:i$"o"i$"e"q$="O.K. I'll keep my feet clean":del2:1000 ^Gf$="lb":find:f$="nf"q$="Help - it's radioactive ash":delay:lose `^q$="The door has slammed shut":delay:i$="o"q$="The handle is **ELECTRIFI...":del2:lose bPq$="I can smell gas...I'm very **sleepy....sweet dreams...":del2:lose 4q$="I have found a hut":delay:i$"e"1000 @q$="I've found a bed. Can I rest ?":delay:i$"y"1000 get:0:0:rf=rf+4000*(rf<15000:):g$(8)=(rf/100d)::7;10 ,11 ;"Goodnight":z=1300,:z:6:6:q$="I feel better now":del2:1000 ?q$="I see a strange plant with **long tendrils":delay ?i$="t"q$="A small fruit has stuck to my **hand":delay: ӏi$="c"g$(13 )"i"g$(13 )="i":rf=(rf/2):g$(8)=(rf/100d):q$="I feel sick, but I can go on":del2:1000 Աi$="c"g$(13 )="i"rf=rf+2000*(rf<15000:):g$(8)=(rf/100d):q$="I'm immune to its' poison and **I feel invigorated now":get:del2:1000 Kq$="Its' tendrils have got me":delay:q$="I'm being crushed":del2:lose Uq$="There is a chair here. Can I **stop and rest ?":delay:i$"y"1000 q$="The chair has started to spin":delay:i$"h"q$="I feel dizzy":del2:rf=rf-5000*(rf>7000X):g$(8)=(rf/100d):q$="I've been thrown clear":del2:1000 Mh=491:v=491:q$="I'm flying back to the start":del2:1000 Yq$="I have found an old orbital **interceptor missile":delay:i$"e"1000 Gf$="ld":find:f$="nf"q$="I can't reach the door":del2:1000 q$="A switch is marked ""ENGAGE""":delay:i$="s"q$="The door has slammed shut":delay:q$="The air is running out":del2:q$="I'm suffocating":del2:lose g$(7)="y"q$="The display reads ""SPREAD DATA**HAS BEEN RECEIVED""":del2:q$="There is an activate switch":delay:i$="s"9020<# g$(7)="y"q$="Another switch says""END""":delay:i$="s"q$="The lights have gone out":del2:q$="Everything is quiet":delay:i$="q"9040P# 5q$="Help, the whole thing is.....":del2:exp:lose  .q$="I see a cave":delay:i$"e"1000 q$="There is a big spider in here":delay:i$="k"i$="j"i$="f"q$="It squelched !":del2:q$="Hundreds of other spiders are **attacking me":delay:lose i$="t"q$="The spider is telepathic.":del2:q$="The message in my mind says, **""The ash did this to me. I **was an ARAFAD prince""":delay:q$="I'm getting out of here !":del2  1000 4 4300 H>q$="There is an ancient inn here":delay:i$"e"1000 Jeq$="There are some bottles of HEIN":delay:i$"c"q$="But I'm thirsty":delay:i$"c"1000 LIq$="Yuk ! - I feel sick - I'm off":rf=(rf*.73333):del2:1000 \Yq$="I have found a BEEB machine **with a switch on it":delay:i$"s"1000 ^Zq$="A display reads ""I DO NOT **SPEAK SPECTRUM - GO AWAY""":del2:1000  6000p 9q$="QUICKSAND! Help - I'm sinking":delay:i$"h"lose wq$="I'm holding on but the pull is**very strong":rf=rf-st*100d*(rf>st*100d):delay:i$"p"4802 /q$="I've pulled myself out":del2:1000  4300 L 6000p q$="The ground is vibrating":delay:i$="h"q$="I am all shook up but O.K.":rf=(rf/2):g$(8)=(rf/100d):del2:1000 0q$="The ground is opening up":del2:exp:lose  6000p ;q$="There are trees before me":delay:i$"e"1000 q$="The trees have eyes and ears **and a tiny ""knot"" to talk with":del2:q$="They say they are lonely":delay:i$="q"q$="They have moved to surround me":delay:i$="t"q$="They like me and insist that I**join them":del2:q$="I have grown roots - goodbye":del2: lose li$"h"i$"f"i$"k"i$"t"q$="They say I'm too noisey and **have thrown me out":del2:1000 yi$="f"i$="k"q$="They are not impressed with my**approach":del2:q$="I think they are angry - Help":delay:lose i$="t"q$="They have bent over to touch **my head":delay:i$"q"q$="My mind is full of colours. I **can't think - I'm going mad":del2:q$="Blop, gulup, pfff....":del2:lose Vq$="They have given me their power":get:st=(st/3)+1:del2:1000 4q$="There is an old space shuttle **before me" delay i$"e"1000 ?q$="The activate teledrive lever **is before me.":delay i$"p"5108 Nq$="The low fuel warning light is **flashing":delay:i$"l"5108 af$="fu":find:f$="nf"q$="I have no fuel":del2:q$="I'll have to get some":del2:1000 q$="The lever is before me":delay:i$="p"q$="Everything is vibrating":del2:q$="I think it's going to explode":del2:exp:lose Yq$="A warning light says ""UNSAFE **FUEL SYSTEM - LEAVE NOW !""":del2:1000 p*100d>vl2500 r:q$="The volcano is erupting":del2:0*23760\ sYz=18:2:15:6:rh=(*10 +hl):rv=(*10 +vl) t7v2=(22-(rv+1)/8):h2=(rh/8) w~(v2,h2)=34"2:x=12:rh+1,rv,x:rh,rv,x:x:hl=hl-hls:vl=vl-.3*(vl>45-):0 x hl<145r$="y":hls=-hls z 0:z 0*23781\ rr$="y"hl>175q$="The island is exploding":del2:z=110 :2:10 :6:z:lose 6:1000 Y1:x=13:sh,z,x:sh-1,z,x:x:0*23781\:1000 X0*23760\:1;h,v:0*23781\:3:z=14:h,v,z:h+1,v,z:z:0:.3,-30: @hold A>p=111 2:p$(pp+1)="zz"8005E Bp CRq$="I can't carry anymore":1;h,v:0*23781\:del2:1000 East=st+4:g$(9 )=st:q$="I've got it":del2:p$(pp+1)=o$(o,34): #' 1000 #(""9000(#:lose #)x7:2:0::10 ,0;"You have lost your Android."''"Replay starts soon.":5,-20 #*''''"Press ""S"" to skip introduction" #+10:z=1300,:=""z:10 #,=""9004,# #."s"10 #06:6:100d #<0:0::5,0;"When the TIME SPREAD activated"''"the Calarax system dissapeared":z=1300,:z:10 #P5:3::6,0;"Silently, the TIME SPREADER,"''"disguised as a missile, lifts"''"off and joins you in orbit."'''"You return to EARTH triumphant." #U!''''"You have scored ";(rf/st) #Z#z=11000:z:10 $drop $%at33!at34"9410$ $dq$="I can't drop any items here. **It may trigger off the planets**auto-defences":del2: $:"I have :-"'' $.has:h$="n"5;"nothing":100d: $!''"Which object shall I drop ?" $i$="" $""9415$ $=""9416$ $8i$=i$+:18,0;i$:i$<49415$ $:t=115:t$(t,36)=i$9425$ $t: $Fo=164@:o$(o,34)=t$(t,2)9430$ $o: $Op=111 2:p$(pp+1)=o$(o,34)9440$ $p: $hst=st-4*(st>10 ):g$(9 )=st:p$(pp+1)="zz":o$(o,1)=h:o$(o,2)=v $<0*23760\:1;h,v:0*23781\: %get %<0*23760\:1;h,v:0*23781\: %list %""9600% %.:4;"CONTROL LETTERS AND WORDS" %5''''"Abandon, Consume, Drop, Enter" %0''"Fire, Get, Hold on, Ignore" %>''"Jump, Kill, Load, No, Open, Pull" %=''"Quiet, Read, Switch, Touch, Yes" %=''''"Press INVERSE VIDEO letter only":1000: %has %ph$="n":p=111 2:t=115:p$(pp+1)=t$(t,2)h$="y":t$(t,3) %t:p % %6:1000: %""9700% %T.3,-15:0*23760\:1,1;q$;20,3;w$ %ri$="":d=120:20:=" "list:0*23760\:1,1;q$;20,3;w$ %>"4"Ʀ<"9" %""9707% %d: %)i$=:i$"A"i$"Z"i$=(i$+32 ) %i$<"a"i$>"z"9706% % % end & &""9905& &:23802\,122z:"Island"1:0*23760\:"Isle"::10 ,0;"Replay to verify program":"Island" &/''"Load ""Screen"" then press key":0: tIsle @xÃÿÃÿý??p뽽ソ?ソÿ???ソýaÃÁ?;?q0@x?@@2??   ?@?  ???  !? 0?`   @?$߀  ? ?@@8???A00000000000000000000000000000000000000000000000000000000000000008!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!88!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!88!!!!!!!!!!!!!!!!!!! !!!!!!!88!!!!! !!! !!!!! ! ! !!!!!!!!88!!!!!!!!! !!!!! ! !!!!!!!!88!!!!!!!!! !!!! """ !!!!!!88!!!!!!!! !!! """"" !!!!!!88!!!!!!!!! !!!! """""" !!!!!88!!!!!!!!!! !!!!! """"" !!!!!88!!!!!!!!! !!!!! !"""" !!!!!88!!!!!!!!!!!! !!!!! ""! !!!!!88!!!!!!!!!!! !!!! !!!!!!88!!!!!!!!!!!! !!!!!!! !!!!!!88!!!!! !!!!!!!! !!!!!!!!!!!!!!88!!!!! !!!!!!!! !!!!!!!!!!!!!!88!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!88!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!88!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!88!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!888888888888888888888888888888888