Digger & r& (  "GRAVE DIGGER" a(10 ,20) ( b(6) 2i=1 10 <j=1 20 Fa(i,j)=(" ") Pj Zi d w=0 n x=5 x y=("*") b=("+") c=("O") d=(":") e=("X") z=(" ") j=1 10 a(j,1)=d a(j,20)=d j j=1 20 a(1,j)=d a(10 ,j)=d j a(9 ,20)=z j=1 20 f=(*7+2) "g=(*15+3) , a(f,g)=b 6j @ m=2 J n=2 Tb(2)=19 ^b(4)=19 hb(6)=19 rb(1)=4 |b(3)=3 b(5)=2 j=1 5 2 a(b(j),b(j+1))=e j  860\  "ENTER MOVE ";w "(YOU CAN GO N,S,E OR W)" a$ a$="N"530 a$="E"5600 a$="S"600X a$="W"630v  470  t=n-1 u=m & 650 0t=n : u=m+1 D"a(t,u)=z m=19 770 N 650 X t=n+1 bu=m l 650 vt=n  u=m-1 a(t,u)=z 710  a(t,u)=d a(t,u)=b 690 a(t,u)=c 800  a(t,u)=e 830> "THAT WAY'S BLOCKED"  440  a(n,m)=z n=t m=u  a(n,m)=y  1030  400 "YOU'RE FREE**"  I"YOUR PERFORMANCE RATING IS ";((60<-W)/60<*(96`+X));"%"   "YOU'VE FALLEN INTO" *"ONE OF YOUR OWN HOLES" 4 >"URK! YOU'VE BEEN SCARED" H"TO DEATH BY A SKELETON" R \ a(n,m)=y f pr=n zs=m  w=w+1 w>60< 990 i=1 10 j=1 20  (a(i,j)); j  i  "THE CLOCK'S STRUCK"  "MIDNIGHT" "ARGHHHHH!!!!"  x=0 1110V  "WOULD YOU LIKE TO DIG" $"A HOLE (Y OR N)" .b$ 8b$"Y"1110V B x=x-1 L a(r,s)=c Vj=1 5 2 `t=b(j) ju=b(j+1) ta(t,u+1)=y 830> ~a(t,u-1)=y 830> a(t-1,u)=y 830> a(t+1,u)=y 830> a$="W"1300 &a$="S"a(t+1,u)=z 1270 &a$="N"a(t-1,u)=z 1280 +a$="E"a(t,u+1)=z m>u 1240 &a$="E"a(t,u-1)=z 1250  1300 #b(j+1)=b(j+1)+2 #b(j+1)=b(j+1)-1  1290  b(j)=b(j)+2 b(j)=b(j)-1  a(t,u)=z j  {