How many characters did you use?
560

Include your code here, if you'd like to show it off!
::z::
p=0
::w::
x,y,r,xd,yd,s,n,c,b=64,99,2,0,0,.5,rnd,rectfill,-15
e={}
for i=1,p/2+4 do
add(e,{x=i*6,y=8,xd=n(1)+s,yd=n(2),r=i})
end
::_::
cls(7)
if(btn(0))xd-=s
if(btn(1))xd+=s
if(btn(2))yd-=s
if(btn(3))yd+=s
xd*=.8
yd*=.8
x+=xd
y+=yd
for v in all(e) do
v.x+=v.xd
v.y+=v.yd
if (v.x>128) v.x=b
if (v.y>128) v.y=b
if x<v.x+v.r and
x+r>v.x and
y<v.y+v.r and
y+r>v.y then
if r<v.r then goto z
else del(e,v) r+=1 p+=1
end
end
c(v.x,v.y,v.x+v.r,v.y+v.r,0)
end
c(x,y,x+r,y+r,8)
c(0,0,128,8,0)
?"shadow collector / "..p.." pts",2,2,7
if (#e<1) goto w
flip()
goto _