ZXTape! metal 7'9' /9050Z#:n=07:a:"a"+n,a:n 0:7:3: Y1;1;" Super Advanced Metal detector "'" delux, gold ultra edition " ;:"You've just got a metal detector"'"for your birthday!" @"Being slightly on the skint side"'"however, you can't afford" :"anything more than a trowel"'"to dig. So you must use " #"your gift to make your fortune!"  :"Q=up A=down O=left P=right" ,"SPACE=dig"'"0=Visit shop to buy and sell" 0::"Press any key to start":1:0 money=0 "battery=502:broken=0 (fresh=0 2 old=0 Fjunk=0 Ptreasure=0 Z 1000 _4:4:: dCtime=65536*23674z\+256*23673y\+23672x\ n 2000 xplayery,playerx;(144) oldx=playerx:oldy=playery a$= :(a$="o"a$="O")playerx>0playerx=playerx-1 ;(a$="p"a$="P")playerx<31playerx=playerx+1 :(a$="q"a$="Q")playery>0playery=playery-1 ;(a$="a"a$="A")playery<21playery=playery+1 a$=" "3000 a$="0"4000 \(time-(65536*23674z\+256*23673y\+23672x\))<502240 ^time=(65536*23674z\+256*23673y\+23672x\):battery=battery-1 battery=05000 oldy,oldx;" " `#0;0,0;4;9 ;"Money: $";money;14;"Battery: ";battery;" " .01z# =,freq  110n a(34",24) n=110 Ox=(*30)+1:y=(*20)+1:treas=(*10 )+1 ,a(x+1,y+1)01030 a(x+1,y+1)=treas $n .$playerx=16:playery=11 L$t$(12 ,31):t(12 ) V1:n=112 :a$,a:t$(n)=a$:t(n)=a:n , freq=-20:total=0 &x=13:y=13 $total=total+a(playerx+x,playery+y) y:x -total>0total<900freq=0 ha(playerx+2,playery+2)>0a(playerx+2,playery+2)<900freq=30   _temp=a(playerx+2,playery+2)+1:a(playerx+2,playery+2)=999 Qtemp>800 #0;1,0;9 ;"You've already dug here!": wtemp=10 temp=11 plus=(*10 ):#0;1,0;9 ;t$(temp);plus:money=money+plus: Mtemp=1#0;1,0;9 ;"Nothing, not a sausage": _temp>1temp<5#0;9 ;1,0;t$(temp):money=money+t(temp): etemp>4temp<7#0;9 ;1,0;t$(temp):treasure=treasure+1: ^temp>6temp<10 #0;9 ;1,0;t$(temp):junk=junk+1: Dtemp=12 #9 ;1,0;t$(temp):old=old+1  0:7:0: M4;"Welcome to Spike's General"'4;"Store and Antique Emporium" -:"1) Sell treasures"'"2) Buy Battery - `5" D"3) Buy new Metal Detector - `100"'"4) Travel to a new site - `20" "5) Return to treasure hunt" ""Please select an option",option 9option=54:9 :4::4300 Hoption=2money5fresh=fresh+1:money=money-5 Woption=3money100dbattery=502:broken=0:money=money-100d +option=4money201000 total=0 treasure=04200h n=0treasure "jrand=(*502):total=total+rand:.01z# =,10 :20,0;"Calculating value: `";total ,m=1100d:m 6n @620,0;"Total value of treasure: `";total J%money=money+total:treasure=0 h 4050 Ctime=65536*23674z\+256*23673y\+23672x\  xfresh>0fresh=fresh-1:battery=502:#0;1,6;7;"Battery replacement ": old=05100 F#0;1,1;7;"Battery's dead! Using old one. "  n=0502:1:n ]>.58,0;"The battery's shorted and leaked":broken=0:5200P !battery=(*20)+5: 08,5;"Your battery ran out! " money>54000 Fbattery=08,5;"Your battery ran out":5500|   P 4000 Zmoney>100d4000 dbroken=0 |<10 ,11 ;2;7;1;"GAME OVER!" g:"You ended the game with `";money'junk;" bits of junk and"'treasure;" pieces of unvalued treasure." #(T"Nothing! not a sausage",0,"A pound coin",1,"A two pound coin",2 #2a"A money clip",10 ,"A leather pouch full of gold",0,"A small bejewelled box",0 #