How many characters of code did you use?
560

Include your code here, if you'd like to show it off!
n=108pal(5,0,1)s=0g=9f=9c=7camera(-9,-9)m,v=mget,sget::_::p=btnp()g+=p\2%2-p%2f+=p\8%2-p\4%2cls(15)for i=0,n,6do
line(i,0,i,n,4)line(0,i,n,i)end
for x=0,18do
for y=0,18do
k=m(x,y)sset(x,y,k>0and 1)
if(k>0)circfill(x*6,y*6,2,k)end
end
if(p>14)then
mset(g,f,c)c=c<6and 7or 5repeat
b=1for x=0,18do
for y=0,18do
e=m(x,y)if v(x,y)<1then
for i=0,1,1/4do
j=x+cos(i)k=y+sin(i)r=m(j,k)
if(v(j,k)>0and(e<1or e==r))sset(j,k,0)b=z
end
end
end
end
until b
for x=0,18do
for y=0,18do
if(v(x,y)>0)s+=6-m(x,y)mset(x,y)end
end
end
?s,0,-8,s>=0and 7
circ(g*6,f*6,3,c)flip()goto _