How many characters of code did you use?
551

Include your code here, if you'd like to show it off!
s=63q={}z=0e=9camera(-s,-s)pal({1,-13,3,-5,11,-6},1)o,j,h=circfill,cos,sin::_::p=btnp()z=z-(p&2)/32+(p&1)/16a=t()/8
if(rnd()>.99)add(q,{rnd(8)\1/8,50,-.1})
if(p>8)q[2]={z%1,1,2,1}
q[1]={z,s,1,1}
for i=0,800do
f=rnd()r=rnd(99)x=r*h(f)y=r*j(f)o(x,y,1,abs(pget(x,y)-1))end
for i=a,a+.01,.001do
line(0,0,h(i)*s,j(i)*s,7)end
for f in all(q)do
g=f[1]p=f[2]e=min(p,e)d=abs(g-a+.1)%1x=p*h(g)y=p*j(g)f[2]+=f[3]
if((d<.5and d or 1-d)<.1)f[4]=1
if(f[4])o(x,y,1)
for k in all(q)do
if(k!=f and k[1]==g and abs(k[2]-p)<1)del(q,f)o(x,y,7)end
end
flip()
if(e>0)goto _