ZXTape! 0Created with Ramsoft MakeTZXTREASURE 6 68 20:0::"":0,0;"":"" LOGO @6 m6lmm6mmm6lmm6mmm mammammm mammammm6lmm6mmm6lmm6mm` ma lal` ma lalmm`6mmmmmm`6mmmm` ma lal` ma lalm amlaml` ma lalmmammlm amlamlm `mlalmmamml` alalm `mlal` ma lal` alalm amlaml` ma lalm6l`mmlm amlaml ` lalm6l`mml` alaml ` lalm mamlal` alamlm `mlamlm mamlalm6l`lmlm `mlaml` ma lalm6l`lml|~<B<B@B@BB@@BBDbBB|BB<HUNT L^'L^. N^ 2ze=0:un=1:"23609",ze:"23658",ze g(3):g$(3,20):n=13:g(n)=1e4':g$(n)="No-one at all":n:dub="60100":play="1000":select="5000":seemaps="6000":instruct="6500":explain="7000":enter="8700":title="9800":name="9500":setup="9400" setup:title (name d@ze:ڰ"5":ze:"5"::ze,8;:z$="Treasure Hunt":v=dub n"5,2;"S ... Select Game Type";7,2;"P ... Play Game";9 ,2;"I ... Instructions";11 ,2;"M ... Choose a Map";13 ,2;"E ... Explain Map Symbols";15,2;"N ... New name for player";17,2;"H ... High Score Table" x<#1;ze,ze;un;ze;" Press S P I M E N or H " z$="!""9900" Cz$=:z$"s"z$"p"z$"i"z$"m"z$"e"z$"n"z$"h"120x z$="s"select:100d z$="p"play:100d z$="i"instruct:100d z$="m"seemaps:100d z$="e"explain:100d z$="n"40( z$="h"2180:100d V7:ze:5::tvis=(game3):angle=ze:found=ze:map=smap:hostel=ze $9100#:9200#:9300T$ 2000: .error=ze:3000 :comi$=""2000  4000 G(com=2usebear)(com=3usebear)error=(5-usebear) errorz$=("Pardon ?"error=1)+("I need a number"error=2)+("I need a direction"error=3)+("Using bearings"error=4)+("Using compass points"error=5)+("Sorry. No decimals"error=6)+("I need a 3 figure number"error=7):8000@:2000 ok=1:(2200com=1)+(2400` com=2)+(2500 com=3)+(2600( com=4)+(2700 com=5)+(2800 com=6) ok2000  ;hostel.8L,2:.8L,1:1.6L,ze hostel9610%  a$=a$+x+y  R#1;ze,ze;"Press ENTER to see the route you took.!!":enter:"" *un;un;a$(un),a$(2):n=3̱a$2:.1}L,n*30/a$:8;8;"a$(n)-23677","a$(n+1)-23678":5:n 4G#1;ze,ze;un;" Press ENTER ":enter:"" >hostel(game>unfound) Hscore=(a$/2)-1:4:ze:un:4::ze,12 ;:z$="Well Done":v=dub:z$="** "+n$+" **":4,16-z$/2;:v=dub RUgameun10 ,0;"You found the gold in ";score;" turns"''"on game ";game \Cgame=un10 ,ze;"You made it home safely in"'score;" turns" f[scoreg(game)15,ze;"The best score yet on this levelis ";g(game);" by ";g$(game) pMscore20z$="Too far ! Try again.":8000@: +value=0z$="Silly !":8000@: (z$="Walking "+value+" km":8000@ &ox=x:oy=y:xa=2*angle:xb=2*angle:n=12*value:x=(ox+n*xa+.5):y=(oy+n*xb+.5):x<0y<44,x>186y>175z$="You just fell off the edge of the world !!":8000@:x=x+(2x<0):y=y-(2y>175):ok=0: `v=60300:60320,x:60338,(175-y):v=60300:v2260:ok .006yD,12 :8600!:game=3tvisd23px,py;6;0;"":tvis=1:z$="You are near enough to see the gold !!":8000@ n:a$=a$+x+y: Rm=xx+2:l=y-2+(mx+1)y-(mx+1):(m,l)=1l:m: attr=(21-((l/8)),(m/8)):paper=(attr/8):ink=attr-8*paper:ink=2hostel:z$="You are back in the hostel"+(". Congratulations... You made it"(game=1found)):8000@:ok=(game=1found):hostel=1: ink=2z$="You are back in the hostel"+(". Congratulations... You made it"(game=1found)):8000@:ok=(game=1found):hostel=1: paper=0ink=6z$="You Have found the gold !!":8000@:px,py;un;7;ze;"";20,25;ze;ze;6;un;"":n=60<ze-1:.02{# =,n:n:found=un: 1a$=a$+x+y:ok=0:z$=("You just drowned !!"ink=5)+("You've fallen over the cliffs"ink=0)+("You just sank in the marshes"ink=1)+("You just disappeared in the quicksand"ink=6)+("You are lost in the forest"ink=4)+("You fell down a pit !"ink=3):8000@: `Ovalue>359gz$="You can't have a bearing over 359 degrees":8000@: jb$="000"+value:b$=b$(b$-2):z$="Bearing now "+b$+" degrees":8000@:12 ,25;7;b$;:angle=2**value/360h: ēangle=2**value/360h:n=1̱i$:i$(n)=(i$(n)-32 ):n:z$="Heading now "+i$:8000@:12 ,27;7;i$;" "  (Fz$="Position shown Press ENTER to continue":8000@:2620< 2enter:2620< : <1;1;x+1,40(:1;8;8;0,135:1;1;0,y-2:1;8;8;192,0: -ok=ze:z$="Game Stopped. ok.":8000@: ~x$=("Bearing"usebear)+("Heading"usebear):game=1z$="The object is to get back to the Hostel .Use walk and "+x$ ~game1z$="The object is to find the "+("hidden "game=3)+"treasure and get back to the  .Use Walk and "+x$ 8000@: F8:8:21,ze;">";:ipos=ze:toff=ze:i$="":com=ze ""3010 z$=:z$=""3020 Bz=z$:(z$<" "z$>"z")z13 (z12 ipos)3020 7z=13 " ";:v=60020t:.1}L,24: z$<"a"ipos3020 z=12 skeytoff=121,1;" ";21,1;""+8;:ipos=0:toff=0:com=0:3010 xz=12 " "+8+8+""+8;:ipos=ipos-1:toff=toff-1:i$=i$(̱i$-1):3010 +skeyipos=03200 :3010 .01z# =,0:ipos=0(z-32 )+""+8;;:ipos=ipos+1:toff=toff+1:i$=i$+(z-32 ):3010 ^ipos20z$+""+8;;:ipos=ipos+1:toff=toff+1:i$=i$+z$:3010 & 3010 8z$="b"usebearz$="Bearing ":com=2:3270 9z$="h"usebearz$="Heading ":com=3:3270 -z$="q"z$="Quit ":com=5:3270 -z$="w"z$="Walk ":com=1:3270 1z$="p"z$="Position ":com=4:3270 0z$="e"z$="Explain ":com=6:3270  j.006yD,12 :.006yD,12 :.01z# =,12 :z$+""+8;:ipos=z$:toff=1: 'com4260:comerror=1 comcom>3 com=34130" i$=0error=2: .i$(1)=" "i$=i$(2):4030 .i$(i$)=" "i$=i$(̱i$-1):4050 fpoint=0:no=0:n=1̱i$:(i$(n)<"0"i$(n)>"9")i$(n)" "i$(n)"."error=2: !i$(n)"0"i$(n)"9"no=1  i$(n)="."point=point+1 'n:nopoint>1error=2: pointerror=6: Evalue=i$:com=2value<100dƱi$<3error=7:  "i$=""error=3: ,.i$(1)=" "i$=i$(2):4130" 66l=i$:i$(l)=" "l=l-1:i$=i$(l):41506 @i$="n"value=0: Ji$="ne"value=45-: Ti$="e"value=90Z: ^i$="se"value=135: hi$="s"value=180: ri$="sw"value=225: |i$="w"value=270: i$="nw"value=315;: error=3:  i$="" n=1̱i$:i$(n)" "n &z$=i$(n-1):i$=i$(n+1) N4310:n=16:x$:(z$+" ")(3)=x$(3)com=n: !n:com=0:error=1: 8"Walk","Bearing","Heading","Position","Quit","Explain" :ڰ"6":ze:"6"::ze,9 ;:z$="Select Game":v=dub /3,ze;"You can choose from three games" 5,2;"1 ...You are left stranded";6,7;"somewhere on the map. You";7,7;"must find your way back";8,7;"to the hostel." 10 ,2;"2 ...You must leave the hostel";11 ,7;"to collect the treasure";12 ,7;"shown on the map and then";13 ,7;"return safely." 15,2;"3 ...As game 2 except that now";16,7;"the treasure is hidden.";17,7;"To help your search";18,7;"the computer will tell";19,7;"you your distance from";20,7;"it on each move." J#1;ze,ze;" Press 1 2,3 to select game Enter to finish" Yn=13:5*n,0;(19+1+">>"n=game)+(" "ngame):n 5z$=:z$"1"z$"2"z$"3"z$13 5070 $z$13 game=z$:5050 *:ze,9 ;:z$="Select Game":v=dub 5,ze;"To move in the game you use the command Walk and to change";7,ze;"direction you you can use either";9 ,2;"1 ... bearings (from 000 to";10 ,7;"360 degrees) or";12 ,2;"2 ... points of the compass";13 ,7;"(eg NE or W)" H#1;ze,ze;" Press 1 or 2 to select Enter to finish"  wn=12:6+3*n,0;(19+1+">>"2-n=usebear)+(" "2-nusebear):n .z$=:z$"1"z$"2"z$13 5140 ,z$13 usebear=(z$="1"):5120 P*:ze,9 ;:z$="Select Game":v=dub Z4,ze;"The game is played on one of 8 maps."''"To select which map use the"'"M option when you return to the main menu after this page" d11 ,ze;"Would you like ..";13 ,2;"1 ...Single keyword entry";14,7;"for commands (w for walk";15,7;" b for bearing etc ) or";17,2;"2 ...Type in each command";18,7;"in full." nH#1;ze,ze;" Press 1 or 2 to select Enter to finish" xqn=12:9 +4*n,0;(19+1+">>"2-n=skey)+(" "2-nskey):n .z$=:z$"1"z$"2"z$13 5250 )z$13 skey=(z$="1"):5230n  p:ڰ"6":ze:"6"::z$="Select Maps":ze,8;:v=dub zڰ"6":2,26;"Map";4,27;1;map;ze;7,26;"Map";8,24;"selected";10 ,27;smap;3,ze;:7:9100#:.1}L,6:4,27;6;map S#1;ze,ze;"Press S to select this map Enter for next map Q to quit "; .z$=:z$"s"z$"q"z$13 6030 z$="s"smap=map:10 ,27;6;ze;1;smap:.2~L,12 :10 ,27;6;ze;smap:6020  z$="q" +map=map+1:map=9 map=1  6010z d<ڰ"7":ze:"7"::z$="Instructions":ze,10 ;:v=dub n5,ze;"Treasure hunt is three games allin one."''"Each game is played on one of eight maps using symbols from ordnance survey maps." x''"In each game you are shown by the cross and must either findgold  or make your way home to the Youth Hostel  safely." 421,4;"Press Enter to continue":enter ,:z$="Instructions":ze,10 ;:v=dub -3,ze;"To move around on the maps you must give the computer a COMMAND"'"The commands are ..."''"Walk plus a number to walk in the direction you are facing"''"Bearing plus a 3 figure number"'" or "'"Heading with N S E W or NE , SW etc to change the direction you are facing." `'"Position to show where you are"''"Quit to give up and"''"Explain to help if you are stuck"; <#1;1,4;"Press Enter to continue":enter ,:z$="Instructions":ze,10 ;:v=dub 5,ze;"1 ... Explain the maps";7,ze;"2 ... Explain Commands";9 ,ze;;18,ze;"Press 1 or 2 for more instuctions or press ENTER to go back to the game" .i$=:i$"1"i$"2"i$13 6600 i$=13 Kz$="Explain "+("Maps"i$="1")+("Commands"i$="2")::ze,8;:v=dub a6650+502*i$:#1;1,4;"Press Enter to continue":enter:6580 ,5,ze;"The map shows symbols for Trees,cliffs rivers and lakes and you must steer round them to reach the gold or the hostel." 6j10 ,ze;"The computer will tell you if you reach the gold or if you hit any of the obstacles." @14,ze;"If you want to choose which map to play on or let the computer show you what the signs on the map mean then press M or E on the  blue  menu." J ^5,ze;"The 3 main commands are"'''"walk ... to move you about."''"For example you could type in Walk 8 (and ENTER) and the computer would move you 8 kilometres on the map." h(21,8;"Press ENTER":enter r_:5,ze;"Heading ... to change the way you are facing."''"This works on a Compass";10 ,16;"N";11 ,16;"";12 ,13 ;"WE";13 ,16;"";14,16;"";15,16;"S";17,0;"Heading N will face you straightup the screen and Heading SW will face you down to the left." |(21,8;"Press ENTER":enter 7:3,ze;"Bearing ... to change the way you are facing"''"This works like an angle from 000 to 360"'"(bearings always have 3 numbers so 0 goes to 000 and 90 goes to 090)":128,568,20:n=02*ͧ/4:128+18*n,568+18*n:3*n,3*n:n 11 ,15;1;"000";14,10 ;"270";14,19;"090";18,15;"180";19,ze;ze;"So Bearing 000 will face you up on the screen and Bearing 270 would turn you to the left.": XBڰ"6":ze:"6"::ze,6;:z$="Explain Map Symbols":v=dub bw5,ze;"The symbols used on these"'"maps are the standard"'"Ordnance Survey Symbols"'"for their 1:50000 series." lZ#1;ze,2;"Press ENTER for examples";1,4;"of the symbols":enter v"7":ڰ"7"::m=34:map=m:ze,ze;:9100#:7510V+(10 map=4):n=15:m,la,lb,z$,x$:7500L:l=1921:l,ze;" ":l:19,0;"The ";x$;" here"'"Stands for ";z$ R#1;1,4;"Press Enter to continue":enter:"":7500L:n:m ^:5,ze;"Would you like to try a quick quiz on the map symbols ? press Y or N" !z$=:z$"y"z$"n"7060  z$="n" xscore=0::z$="Map":ze,25;:v=dub:z$="Quiz":3,25;:v=dub:q(3):q=13 Zr(3):ans=(*10 +1):m=13:q(m)=ans7110:q(q)=ans @m:right=(*3+1):r(right)=ans:m=13 r(m)7160 Jr(m)=(*10 +1):o=13:r(m)=r(o)mo7140 o m:no=ans:7400:map=z:ze,ze;:9100#:la=x:lb=y:7500L:17,ze;"is this ":o=13:no=r(o):7400:17+o,6;o;" ";z$:o H#1;1,ze;"Press 1 2 or 3":z$=:z$<"1"z$>"3"7170  "":z=z$:z=rightscore=score+1:#1;ze,ze;" Right ...well Done ":o=124:.1}L,o:o:7200  h#1;ze,ze;" Wrong !!! ":o=241-1:.1}L,o:o  V7500L:o=1721:o,ze;" ";:o:"":q *18,ze;n$'"Out of 3 questions you scored ";score'("Well done"score=3)+("Not bad"score=2)+("Ooops"score<2);#1;ze,ze;"Press A to try again ENTER to go back to menu" 4'z$=:z$13 z$"a"72204 >z$="a"7100 H ,7510V:m=1no:z,x,y,z$,a$:m: L]1;1;255,88X:1;8;8;la-255,lb-88X: V3,37%,97a,"a Lake","",3,3,74J,"a Lighthouse","",3,152,88X,"a Non Coniferous wood","",3,173,137,"River (and Bridge)","",3,173,100d,"a Small Quarry or Pit","" `4,8,164,"Sand dunes","",4,11 ,535,"a Youth Hostel","",4,168,535,"Marshland"," ",4,147,100d,"a Coniferous Wood","",4,127,151,"a Cliff or Flat rock","" @!z$23m=z$:8030^ J7m=231-1:z$(m)" "m:m=23 TD21,ze;z$(m):z$=z$(m+1):v=60020t:8000@ ^#21,ze;z$:v=60020t: !d2=0:d1=((((x-hx)^2+(y-hy)^2)^.5)/4):16,25;7;d1;" km ";:game=1found !wd2=((((x+1-tx)^2+((y-1)-ty)^2)^.5)/4):20,25;7;d2;" km ": !""8700! " z$=:z$13 8710" "".1}L,ze:.1}L,12 : #(Z80P,194,88X,196,21,2,5,22,4,22 #2\125},197,229,200,73I,2,1,20,1,21 #118,25;1;" ";19,25;" " $d23676|\,255:n=1721:n,ze;6;0;" ";:n $ $Tfound=ze:hy=8*(21-a(9 ))+4:hx=8*a(10 )+4:game>1y=8*(21-a(7))+4:x=8*a(8)+4 $^Q9350$:game=1y=8*(21-px)+4:x=8*py+4 $hsgame1ty=8*(21-px)+4:tx=8*py+4:game=2px,py;6;0;"" $rc60306,4:60320,x:60338,176-y:v=60300:8600!:a$=x+y $|jangle=ze:12 ,25;7;1;("000 deg"usebear)+(" N"usebear):.2~L,24: $6p=a(7):q=a(8):#1;1,6;" Please Wait " $Lpx=(*17):py=(*24):((px-p)+(py-q))<169360$ $(px,py)5689360$ $236066\,23675{\:236077\,23676|\-1:s1=(px,py):s2=(px,py+1):236066\,0:236077\,60<:s1513s25139360$ $"": $tgame=1:skey=1:a(10 ):map=1:smap=1:usebear=1:n$="":score=0:a$="": %ڰ"2":ٰ"7":ܰ"1":"2": %&n=18:60456(,("Treasure"(n)):m=-44803:60488H,m:604706,((70F+12 *n)+(480-m)*(n-4.5)*.45ffff):v=60450":.01z# =,m/5+3*n:v=60450":m:v=60450":n %0sn=14:"60456",("Hunt"(n)):"60488","80":"60470","94+12*n":v="60450":.2~L,3*n:n %:x$=" Please Type in Your Name ...":n=x$1-1:16,ze;x$(n):m=13:254,2:254,18:m:n %D4store=skey:skey=ze:3000 :n$=i$:skey=store %N:n=ze202:n,n+502:255-2*n,0:0,125}-2*n:-255+2*n,0:0,2*n-125}:n %Xz$="Treasure":6,12 ;:v=dub:z$="Hunt":9 ,14;:v=dub:16,3;"Welcome to Treasure Hunt";18,15.5x-(n$/2);:z$=n$:v=dub %b[#1;1,4;"Press ENTER to continue";:9600%:13 9570b% %l %9"9602":n=173I:p,d:d/14,p:=""n % %93,1,4,5,6,1,7,5,3,1,4,2,6,1,7,2,12 ,1,11 ,2,4,1,7,2,11 ,1,10 ,10.5(,9 ,1,7,1,4,1,2,1,4,17 %3,1,4,5,6,1,7,5,3,1,4,2,6,1,7,2,12 ,1,11 ,2,4,1,7,2,16,1,15,31 %73,1,4,5,6,1,7,5,3,1,4,2,6,1,7,2,12 ,1,11 ,2,4,1,7,2,11 ,1,10 ,11 ,9 ,1,7,1,4,1,2,1,4,17 % 4,3,16,2,14,1,11 ,2,9 ,1,7,2,4,1,9.8,4,9.8,4,9.8,4,9.8,4,7,1,4,1,2,1,4,2,4,10 %Q7,1,4,1,2,1,4,2,4,7 %<9612%:n=124:p,d:d/10 ,p:=""n % %7,2,7,1,2,1,7,2,11 ,2,14,9 ,7,2,7,1,2,1,7,2,7,2,2,9 %7,2,7,1,2,1,7,2,11 ,2,14,9 ,7,2,7,1,11 ,1,7,2,2,2,7,10 &H23676|\,251:4:ze:1:4::z$="Treasure Hunt":5,9 ;:v=dub:14,9 ;" 1983":23676|\,255 &R:21,4;"Press ENTER to continue":enter: &n=13 &-.1}L,6*n:z$=:z$=""9901& &z$"pwc"(n) &n:65120`: '"49999":ڰ"7":ټ:ç:ç:ç:ç:"7":5,5;1;;"STILL LOADING";7,5;"LEAVE TAPE RUNNING":"":v="65110": '2"Treasure"ʰ"9998":"Treasure""50000","15535" 3T.H.  ?@ ~??????????x|||?<<<>>>????|~>?||> "# $%  &' ()* +, -./0  123 45  6789:; <=  >?@ABCD EF  GHI JKL  MN OP QRSTU  VW X YZ [\ ]^ _` abc de  fgh ij  kl ????????    "#$%  &'() *+ ,-./ 012!!34567 89:;< =!!!!!!!!>?@ABCD E!!!!!!!!FGHI  J!!!!!!!KL MNOP Q!!!!!RST UVW !!XYZ[ \] ^_`a bcde fghij   ??????????????????!!!!!!!!!!"#$%&' !!!!!!()*+ !!!,-. !/01 2 3 456 789: ;< => ?@A BCDEF GHIJ KLMN O!PQ   RST    UV   WX  YZ[ ~|??????~|??>????????????????? "#  $% &'   ()* +,   -!. /0   12 34  56789  :;< =>?   @  A BC D  EF GH   IJK LMNO  PQR  S TUVWX Y Z[\  ]^_` abcd efg hij ????????????????????  "# $  %&'( )  *+,-. /  01 2  3456 7  89:;< =  >  ?@   A  BC   DE  FG `x????????????????????`??  " #$% &'!  ()*+,-./012 345!!  678 9:;?!!!!!!!   @ABCDEFGH!!!!   IJK L!!!!   MNO  PQ!!   RST UV!  WXYZ [  \]^_` abcd ef ghij  klm   no ?????8??~  "#$ %&'()*+,-./ 012 34 56789: ;<=     >?@ ABCD EFGHI JKLMNO >=x ! P! ~ w# !P6$#3*K\~Z`  #~( #^#V#P:\G>!2:\G>2#N#F#x~*# x o&)))<:O:G y >2xg'''''o@w$<!6>*{\o&)))> ???OG>vg8o???g@WR06yo|gOx(9=~(!6w#~(!6w< !N!6>t*6\o&)))>???OG>Pg8o???g@WR06yo|gOx(9=~(!6w#~(!6w< !N & @@@@@@@@$$$$$$''$$$$$$''$$BbRJFB%=%+**'(i'+J*䕕"%=%%T4 8 煄""ب[UQx@p@xssPPP> G^>>VG!;\::\(3:(>2\>2:H\8G???2H\> 2\>2 P P P 88 MMXCXL8Wq !Ov>II*>@@88||0timeleft>0((foundc18,0;1;7;"7 6 for up/down "'"Q to quit "'"S to select " H4choose=1:select:chooseclear:2000 6to=o(choose):1:4:8000@:7:0:clear:7,0;"You Choose to"'"go by "+c$(way)'"to ";t$(to)''"Distance"'dist;" miles"''"Journey time"'"hr ";t$(take)''"Cost `";(cost);" ";5;2,16;" To ";t$(to);" ";:8;8;t(pos,1),t(pos,2) z60020t,t(pos,1)-2:60038,175-(t(pos,2)+2):60006f,19:v=60000` idisx=t(to,1)-t(pos,1):disy=(t(to,2)-t(pos,2)):max=disx:disy>maxmax=disy qox=t(pos,1):oy=t(pos,2):n=0max:px=t(pos,1)+n/max*disx:py=t(pos,2)+n/max*disy L60020t,ox-2:60038,175-(oy+2):v=60000` L60020t,px-2:60038,175-(py+2):v=60000`  v=60150 +.02{# =,24*n/max:ox=px:oy=py:n pos=to:enter 4cash=(cash-cost):timeleft=timeleft-take:clear: are you sure (quit) y#1;0,0;1;7;2;"Are you sure you want to give up press Y for yes N for no " yesno "":yes2005 quit=1: letters found S3,0;"Welcome to "'" "'t$(pos);" "'" ";:7,0; ³w(pos,1)0w(pos,2)=0"You've found"'"a letter "'n$:n=160<:.004yn,n:n:found=found+1:11 ,5;t$(word,w(pos,1)) ̇w(pos,1)=0w(pos,2)=1"No letters here":w(pos,2)=1'"But I think"'"you've been"'"here already" w(pos,2)=1 314,0;"Letters Found"'"So Far are :-" z$="..........."(letters):n=118:w(n,2)=1w(n,1)0z$(w(n,1))=t$(word,w(n,1)) &n:17,0;:v=dub:enter *n=1128:v=59299:n: = name the place  M1:7:1::z$="Name The Place":0,6;:v=dub 3,0;"In this quiz the computer will"''"show a city or town on the map"''"and give you three names to"''"choose from ."'''"You must choose the right name ."'''"After five questions the"''"computer will give you a score" enter 2:z$="Name The Place":0,6;:v=dub q(5):score=0 9q=15:clear:clear2:map:1:7 Bquest=(1+*18):n=1q:q(n)=quest4110 Bn:q(q)=quest:a(3):ans=(1+*3):a(ans)=q(q) "n=13 ,a(n)04170J 6Qaa=(1+*18):aa=a(1)aa=a(2)aa=a(3)41506 @ a(n)=aa Jn h.4,0;:z$="Question "+q:v=dub rb8;8;1;128,0:1;t(q(q),1)-128,t(q(q),2) |j7,0;"Is this ...":n=13:7+2*n,0;(64@+n);" ";t$(a(n)) n D#1;1,5;1;7;" Press A B or C "; b8;8;1;128,0:1;t(q(q),1)-128,t(q(q),2) (z$=:z$"a"z$"b"z$"c"4240 "":ans=a((z$)-96`) +ans=q(q)score=score+1:4700\ ansq(q)4800  enter:q 2:0,6;:z$="Name The Place":v=dub %5,0;h$(score);" "''n$ 29 ,0;"You scored ";score;" out of 5" f12 ,2;"Do you want to play the";14,2;"quiz again ? (press Y or N )" yesno:yes4000  [ right \i#1;0,0;1;" Well Done ..... ";t$(q(q));" is RIGHT "; f?n=0502:.01z# =,n:n:10 :120x:"":  wrong #1;0,0;1;2;" No ! ";(z$-32 );" is not right The right answer is ";t$(q(q)); Hn=5020-1:.01z# =,n:n:10 :120x:"": T2:7:2::z$="Estimate the distance":0,5;:v=dub 5,0;"In this quiz the computer will"''"show two cities or towns on the"''"map."''"You have to estimate how far"''"apart they are in miles."''"The computer will tell you how"''"close you are each time." enter P:z$="Estimate the distance":0,5;:v=dub:map:2:7 t1=(1+*18) -t2=(1+*18):t2=t15110 8t(t2,2)>t(t1,2)store=t1:t1=t2:t2=store  ~5,0;"How many miles"'"apart are"''t$(t1)'" and"'t$(t2);12 ,0;"Type in your"'"estimate then"'"ENTER" a8;9 ;104h,108l:1;t(t1,1)-104h,t(t1,2)-108l _8;8;104h,90Z:1;t(t2,1)-104h,t(t2,2)-90Z P921,0;" ";:input:"" ZDok=1:point=0:digit=0:i$=""i$=" "5200P d.i$(1)=" "i$=i$(2):5210Z n.i$(i$)=" "i$=i$(̱i$-1):5210Z n=1̱i$ -i$(n)" "(i$(n)<"0"i$(n)>"9")ok=0 $i$(n)"0"i$(n)"9"digit=1 i$(n)="."point=1 n [point#1;1,0;1;" No decimals please ";:5200P `okdigit#1;1,0;1;" No letters please ";:5200P 121,0;" ";:dist=i$ dist0dist>1e5CP#1;0,0;9 ;1;" Don't be silly ! Try again ":100d:5200P "12 ,0;" "'" "'" ";12 ,0;"Your estimate"'" ";dist;" miles"''"The distance was"'" ";p(t1,t2);" miles" ,Wout=(dist-p(t1,t2)):error=100d*((dist-p(t1,t2)))/dist:percentage error 6$18,0;out;" miles out" @Z20,0;1;("Very Good !"error<10 )+("Pretty Good"(error10 error<20))+("Not Bad at all"(error<30error20))+("A fair way out"(error<40(error30))+("Way out"(error40(error<60<))+("Pretty wild guess that"(error60<error<100d))+("Thats Silly."error100d) Th#1;0,0;1;" Do you want to try another question ? (press Y or N ) "; ^yesno hyes5030 r o display p1:7:1::2,0;:z$="England Scotland":v=dub:5,3;:z$="and Wales":v=dub:4:map:1:4:10 :10 :100d zO#1;1,0;7;1;" Press any key to go to menu " =""6010z  M Wset screen X7:0:6::z$=" Around Britain in 48 Hours ":v=dub:0,160:255,0:0,15:-255,0:0,-15 b5:0:map: select a move  8+choose,0;2;7;1;"":dist=p(pos,o(choose)):cost=(.1}L+(.05|Lway=2)+(.3(way=3)))*dist:take=dist/(40(+(20way=2)+(120xway=3)):.1}L,12 -6*((z$="6")-(z$="7")) Ɛ#1;0,0;0;" To ";t$(o(choose));" ";dist;" miles ";1,0;"Journey ";t$(take);" Cost `";(cost);" "; z$=:z$=""7110 $="6"8+choose,0;" ";:choose=choose+1:choose>totchoose=1: Zz$="7"8+choose,0;" ";:choose=choose-1:choose=0choose=tot z$="6"z$="7"7100 z$"q"z$"s"7110 choose=(choosez$="s"):choose8+choose,1;1;1;2;7;" ";:.2~L,0:.1}L,12 :n:"":enter  "": K name LY0:7:0::2,2;:z$="Around Britain in 48 Hours":v=dub VD8,0;"Please type in your name"'"then press ENTER" `input:n$=i$:21,0;6;" ";12 ,0;"Hello ";n$;14,0;7;"Welcome to"''" Around Britain in 48 Hours" j^0,38&:255,0:0,12 :-255,0:0,-12 t enter: ?draw the map !!!!! @}236066\,144:236077\,225:v=59060:7:0:236066\,0:236077\,60<: draw your position 2,16;1;7;" In ";t$(pos);" ";:129,150:1;t(pos,1)-129,t(pos,2)-150:  yesno yes=0:""8200 !z$=:z$"y"z$"n"8210 'yes=(z$="y"):.1}L,12 *yes: k enter l""8300l v]#1;0,4;9 ;"Press ENTER to continue":13 8310v .1}L,12 :"": clear Ln=721:n,0;" ";:n:7,0;: ! clear2 !Kn=26:n,0;" ";:n:7,0;: !3 visited !4?vis=0:clear2:clear:2,0;"Places visited" !>Xn=118:w(n,2)=1vis+3,0;t$(n);:vis=vis+1 !Hn:enter:clear2:clear: !instructions !Pz$="Around Britain in 48 Hours":7:1::0,3;:v=dub !5,0;"The object of this game is to find the hidden name of the"'"city or town."'"The computer has hidden the"'"letters of the name in differenttowns and cities around the"'"United Kingdom." !'"To find the letters you must travel round the country by"'"rail , road and air."''"You start the game with `300"'"and 48 hours to find the"'"whole word." !enter !>z$="Around Britain in 48 Hours"::0,3;:v=dub !5,0;"Each move the computer will"'"show you the possible routes ,"'"how much each journey costs and"'"how long it will take."'"You must decide where to go to"'"try to find the letters." !Ԧ'"The computer will show your"'"position on the map and tell"'"you the letters you have found."''"If you find all the letters the"'"computer will give you a score." ! enter: " " title "23675{\,176:23676|\,254:5:0:5:1::5,8;:z$="Around Britain":v=dub:8,10 ;:z$="In 48 Hours":v=dub:18,9 ;" 1983":0:enter: #( set up #2::yes=0:score=0:word=(*18+1) #<pos=9 :london #Fhcash=300,:timeleft=480:found=0:letters=0:hours+no of letters to find in game #P)w(18,2):n=111 #ZHno=(1+*18):no=9 w(no,1)09050Z# #d:t$(word,n)" "w(no,1)=n:letters=letters+1 #nn #x*w(pos,2)=1:.1}L,0 # #xo(10 ):tot=0:1;8;8;t(pos,1),t(pos,2):m=118:join=c(pos,m) #join=c1join=c2join=71;8;8;t(pos,1),t(pos,2):1;8;8;t(m,1)-t(pos,1),t(m,2)-t(pos,2):" ";t$(m):tot=tot+1:o(tot)=m:.2~L,2*tot #m:n: %=set up the names of cities + score table  %!"Birmingham",197,38&,"Bristol",185,24,"Caernarfon",177,568,"Dover",228,16,"Edinburgh",197,98b,"Glasgow",186,99c,"Inverness",190,125},"Leicester",206,40(,"London",213,24,"Liverpool",192,60<,"Manchester",200,61=,"Newcastle",208,78N,"Norwich",228,39',"Nottingham",205,47/,"Plymouth",169,12 ,"Southampton",198,15,"Swansea",175,30,"York",212,65A %&9500%:t$(18,11 ):t(18,2):n=118:t$(n),t(n,1),t(n,2):n:s$(15):n$(15):23658j\,0: %input i$ %@23658j\,8:ix=1:i$="":21,0;">"; %""9610% %z$=:z$=""9620% %%z$=12 ix=19610% %bz$=12 " ";8;8;"";8;:ix=ix-1:i$=i$(ix-1):9620% %=z$=13 " ":23658j\,0:.2~L,18: %Sz$<165z$32 ix<16z$;"";8;:ix=ix+1:i$=i$+z$ %!.008zn,12 :9610% %bach tune %g9710%:m=012 12 :n=117:pitch,dur:dur*.08}# =,pitch+m:n:m: %-1,2,4,.73333,6,.8L,8,2,8,2,6,2,9 ,2,8,2,-1,2,-3,2,8,.73333,4,.9ffff,6,2,-3,2,-4,2,3,2,4,5 %-1,2,4,.73333,6,.8L,8,2,8,2,6,2,9 ,2,8,2,-1,2,-3,2,8,.73333,4,.9ffff,6,2,-3,2,-4,2,3,2,4,7 & &n=13 &-.1}L,6*n:z$=:z$=""9920& &"z$="pwc"(n)n:v=65120`: & ' "":"":"":"ok": '57999:7:0:0:0:0:0:7::3,5;1;1;"AROUND BRITAIN";5,5;"IN 48 HOURS";7,5;"IS STILL LOADING";9 ,5;"LEAVE TAPE RUNNING":"":"":v=65110V:9500%:10 'X:"48hours"9998':"map"58000,3000 :"graphics"65100L,436 map @ o~

<'_?@<  "#$  %&'()*  +,-./0  12!3!45  67!!!8  9:;!<=   >?@!AB   CD!!E   FG!!H   IJ!!K   LM!!N  OPQ!!!R  ST!!!!U  VWX!!!!YZ  [\!!!!!!!]  ^_`!!!!a  b!!!!!!cd  efghijklmn  o pq > x *K\~Z`  #~( #^#V#P:\G>!2:\G>2#N#F#x~C# x o&)))<:O:G y >2xg'''''o@w$<æ'!p~FJ}݆o=J}݆oN=!p~FJ}݆og8''o???g@!6>*{\o&)))>???OG>ƕg8o???g@WR06yo|gOx(9=~(!6w#~(!6w< !N!,Q:H\???FB˧F#CPfb%lJA.sflP==ffyd?9f *8Wf ~F%fu=~.lPa(f*=.p[?~l&b*lph!S%fh]]Jd~]lfFP[]fpCJ8]yRTAW!Jj?8%ayjPHf(?dff.ySpR?fFd~P{Ws?ufl~C{wf9f*&Wwl]T8HF*graphics LV> G^>>VGx!;\::\(5:( >2\>2:H\G8???2H\> 2\>2QUUKj{XK I늋 (e @ """#QUU . @@@@(((??"B0 0`XHPPP(@`0( `@( (0  ``<<