How many characters of code did you use?
560

Include your code here, if you'd like to show it off!
l=120S,A=sin,1/64w=128j=12r,c,e=rnd,circfill,add::G::a=.75g={}k=0y,x=l,r(w)for n=1,j+r(j)do e(g,{r(w),r(w),r(20)+8,r{3,j,15}})end e(g,{x,y,5,3})e(g,{w-x,j,9,11})e(g,{w-x,9,2,1})p=A::L::cls(j)z=abs(X)Z=abs(Y)for i in all(g)do c(i[1],i[2],i[3],i[4])end if(z<A)X=0 if(Z<A)Y=0 if X+Y==0then ?k b=btn()n=pget(x,y) if(n==1)goto G if(n%j<1)x=u y=v u,v,s=x,y,n>9 and.4or 1line(x,y,x-cos(a)*j,y-S(a)*j)a-=A*(b&2)/2a+=A*(b&1)if b>15then rectfill(0,l,p*16,w)p=4+4*S(f)f+=A else if(p>0)X=p*s*cos(a)Y=p*s*S(a)f=.3p=0k+=1 end end y-=Y x-=X X*=.9Y*=.9c(x,y,z+Z,7)flip()goto L