How many characters of code did you use?
559

Include your code here, if you'd like to show it off!
cls(3)x=0y=0c=1d=0h={}k=0m=memcpy
n=8192a=n*3z=127while k<n do
x+=rnd(2)-1y+=rnd(2)-1if(x<0)x=z
if(x>z)x=0
if(y<0)y=z
if(y>z)y=0
if(pget(x,y)==5)goto l
pset(x,y,5)k+=1if(k%500==0)add(h,{x,y})
::l::end
m(0,a,n)::_::m(a,0,n)s=1b=btn()
if(b>16)d=1
if(d>0)d+=1
if(d>30)d=0
r=b\2%2-b%2u=b\8%2-b\4%2
?"⌂",9,9,12
for i=1,c do
?"◆",x,y-i*2,9
end
f=pget(x+3,y+4)
if(f==5)s=.2
x+=r*s
y+=u*s
for i in all(h)do
p,q=abs(x-i[1]),abs(y-i[2])
if(p<2and q<2)del(h,i)c+=1
if(p<d and q<d)i[3]=0
if(i[3])print("◆",i[1],i[2])
end
?"웃",x,y,1
circ(x,y,d)
if(f==12)run()
flip()goto _