How many characters did you use?
559

Include your code here, if you'd like to show it off!
c=0
e={}b={}s=0r=1::_::
x=stat(32)y=stat(33)
d=del
cls(0)c+=1poke(0x5f2d,1)add(b,{x,99,4})if(c%3==0)then add(e,{rnd(99)+8,-10,c/950+.15})end
if(#e>0 and #b>0)then
for i=#e,1,-1 do
n=e[i] n[2]+=n[3]circ(n[1],n[2],5,2)circfill(n[1]+rnd(2)-1,n[2]+rnd(2)-1,2,8)if n[2]>128then
?s,64,64,9
stop()end
for j=#b,1,-1 do
if(n[1]-b[j][1])^2+(n[2]-b[j][2])^2<=(50)then
d(e,n)d(b,b[j])s+=1 end end end end
?s,0,0,7
circ(x,y,2)line(x,99,x-3,104,3)line(x,99,x+3,104,11)
for i=#b,1,-1 do n=b[i] n[2]-=n[3]pset(n[1]+rnd(4)-2,n[2],10)if n[2]<0then d(b,n)end end
flip()goto _