MSXPen

0definta-z:screen1:deffna(i)=int(rnd(-time)*i):deffno(a$,a)=asc(mid$(a$,a,1)):f=32:b=6209:onstriggosub6:fori=0to3:g=6176

1:p(i)=fno("5<!<",i+1)+g:reada$:a$(i)=a$+" grid":forv=0to5:a=a+1:o(v,i)=fno("ÁÇËÌÑÒÇÁÌËÑÒÇÁÌËÑÒÇÁÌËÒÑ",a):nextv,i:u=10''

2forv=0to7:q(v)=fno("ZXZyyy9X",v+1)-89:s(v)=fno("Y9YZYyYX",v+1)-89:nextv:fori=gto6495:vpokei,219:next:p(2)=6453:s=b+u'''

3printa$(e):forl=cto2:forv=0to7:fori=1to8:vpokeg+f+i+v*f+l*u,0:nexti,v,l:c=1:forz=0to11:y=s+fna(8)*f+fna(8):gosub6:nextz

4y=b:strig(0)on:ifinkey$="m"theno=o*(o=>0)-e*(o<=e):vpokeb,o(d,o)elseq=stick(0):t=s(q):b=b+t:v=(b-g)\f:ifq=0then4'thanks

5ifbmodfmod9=0orvmod9=0thenb=b-t:goto4elsey=b:fori=1to8:z=g+i+v*f:vpokez+t*(qmod4=1),0:vpokez,7:next:vpokeb,o(d,o):goto4

6u(n)=y:r=u(0):vpokey+u,o(d,o):ifn=0thenn=1:returnelsen=0:w=rmodf-ymodf:j=r\f-y\f:form=0toabs(j):forv=0toabs(w):datacopy

7a=u+r-m*f*sgn(j)-v*sgn(w):vpokea,o(d,o):pokea+g*6,o(d,e):nextv,m:d=d+1:ifd<=5thenreturnelseifx=0thenx=1:d=0:n=0:return'

8forv=0to7:fori=0to7:l=&ha915+i+v*f:y=p(e)+i*q(e)+v*q(e+4):vpokey,peek(l):k=k+(vpeek(y)>vpeek(y-u)):pokel,0:nexti,v''dan

9datahflip,vflip,r90ø:locate0,0:ifk=0thend=0:x=0:e=e+1:ife>3thenprint"u hawk eye!":endelseo=0:goto3elseprint"try again?"