5 poke59468,12
    6 poke59467,16:poke59466,15:poke59464,0
   10 print"{clr}"
   20 print"               hurkle"
   30 print"               {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
   40 print"{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}by d.j.wylie"
   50 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}press a key to start:-"
   60 geta$:ifa$=""then60
   70 print"{clr}to find hurkle,press the co-ordinates":print"of the square in which you think
   71 print"he is hidden.(top co-ordinate 1'st)
   72 print"he will tell you which direction to go."
   73 print
   74 print"press a key to start"
   75 geta$:ifa$=""then75
   90 print"{clr}"
  100 print"  0123456789"
  110 fora=0to9:printa:next
  120 print"{home}{down}{down}";
  130 fora=0to9:print"{rght}{rght}";:forb=0to9:print"O";:next:print"{CBM-G}":next
  140 print"  {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  145 print
  150 l=int(rnd(ti)*9)
  160 m=int(rnd(ti)*9)
  165 poke158,0
  170 geta$:ifa$=""then170
  171 poke59464,100:foryt=0to100:next:poke59464,0
  172 getb$:ifb$=""then172
  173 poke59464,200:foryt=0to100:next:poke59464,0
  174 x=val(a$):y=val(b$)
  180 ifx=landm=ythen1000
  181 print"{up}      {up}":ify>mthenprint"n";
  182 ify<mthenprint"s";
  183 ifx>lthenprint"w"
  184 ifx<lthenprint"e"
  185 poke(32850+x+(40*y)),224
  186 print
  187 ifx=lthenprint
  188 print"{up}{up}"
  200 goto165
 1000 poke(32850+x+(40*y)),102
 1010 fora=1to500:next
 1020 print"{clr}"
 1030 print"
 1040 print"     you've found the
 1050 print"
 1060 print"        {rvon}hurkle{rvof}!!"
 1070 print"
 1080 print"
 1090 print"
 1100 print"         ]]]]]]]]]
 1110 print"        N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M
 1120 print"       N           M
 1130 print"       {CBM-G}  Q  {CBM-@}  Q  {CBM-M}{SHIFT-@}P
 1140 print"      O{CBM-G}    N M    {CBM-M} {SHIFT-@}
 1150 print"     O {CBM-G}    {CBM-G} {CBM-M}    {CBM-M}{SHIFT-@}
 1160 print"     LO{CBM-G} I {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} U {CBM-M}
 1170 print"      {$a0}{CBM-G} ]       ] {CBM-M}{$a0}
 1180 print"       {CBM-G} J@@@@@@@K {CBM-M}{$a0}
 1190 print"       {CBM-G}           {CBM-M}{$a0}
 1200 print"       {CBM-T}{CBM-T}{CBM-T}{CBM-+}P   O{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 1210 print"           P   O{CBM-+}
 1220 print"           {CBM-M}O{CBM-T}P{CBM-G}
 1230 print"          {CBM-+}{CBM-+}   {CBM-+}{CBM-+}
 1240 readx,y
 1245 ifx=0andy=0thenpoke59464,0:goto1265
 1250 poke59464,x:fort=1toy:next
 1260 goto1240
 1265 print"press 1 to go again"
 1266 geta$:ifa$=""then1266
 1270 ifa$="1"thenrestore:goto90
 1300 poke59464,0:poke59466,254:poke59467,0:end
 2000 data186,80,103,80,205,120,136,20
 3000 data186,80,103,80,205,120,136,20
 4000 data186,80,103,80,205,120,136,20
 9000 data0,0