How many characters of code did you use?
547

Include your code here, if you'd like to show it off!
::r::x=64y=64e={}cls(7)memcpy(0,24576,8192)
::_::memcpy(24576,0,8192)t=0
b=btn()n=(b&2)\2-(b&1)m=(b&8)/8-(b&4)\4
x=mid(0,x+n,127)y=mid(0,y+m,127)
circfill(x,y,4,0)memcpy(0,24576,8192)c=0
for i=0,16384,2do
if(pget(i%128,i/128)==0)c+=1
end
for v in all(e)do
n=v.x
m=v.y
s=v.s
i=mid(-s,x-n,s)j=mid(-s,y-m,s)
if(pget(n+i,m)==0)v.x+=i
if(pget(n,m+j)==0)v.y+=j
circfill(n,m,3,8)
end
if#e<99and rnd()>.9then
n=rnd(128)m=rnd(128)
if(pget(n,m)==0)add(e,{x=n,y=m,s=.1+rnd(.5)})
end
if(pget(x,y)==8)goto r
pset(x,y,12)h=max(c,h)
?c.."~"..h,0,0,8
flip()goto _