k="pige0"cartdata(k)g=136function d()b=0a=0r=0s=0h=dget(0)x=72n=0m=0f=0v=1t={}l=0o=40w=0y=x u=x end
function p(a,b,c)?a,b+1,c,7
q=sspr?a,b,c,1
end cls()p(k.." :0e0b0efe76743010 :002e6b6ebe5e3c18 :81c3c3183c3c1800 :0000dbbdbd180000",0,0)pset(8,0,1)memcpy(0,6^13,g*g)d()c=btn::b::flip()cls(9)for j=0,255 do
circ((j%16)*8+4,(j\16)*8+4,b,14)end
if(c(2)and m>-9)m-=a*2f=(f+1)%2r=1w=1+w%2
if(r==0)q(0,0,o,5,9,32,g,20)p("up to start",42,80)p("by yopenatal",41,118)b=l%g
if r==1 then
a=s/g+.1b=s
for q in all(t)do
if(x<q.x+5and q.x<x+9and q.y<y+9and y<q.y+5)d()?"\aggg"
p(":63772a1c2a776300",q.x-5,q.y-5)end
if(x<u+7 and x+8>u and y<o+8 and y+8>o)s+=1add(t,{x=(x\8)*8,y=((y\8)*8-64)%g})u=rnd(g)o=u*3?"\addff"
x=n+x%g y=m+y%g
if(c(0)and-9<n)v=1n-=a
if(c(1)and n<9)v=-1n+=a
q(24+12*(w-1),0,9,9,x-4*v,y-3,9*v,9)q(48+12*flr(o%2),0,9,9,u-7,o-7)if(m<9)m+=a
u=sin(l/g)*.9-v*a+u%g
o=cos(l/g)*.2-a+o%g
if(s>h)dset(0,s)h=s?"\afafafaf"
end
p("sc0re:"..s,1,10)p("hisc0re:"..h,1,1)l=1+l%g?"\a1"..sub("cdfecffecdfecdde",l/8,l/8).."1"
goto b