How many characters of code did you use?
500

Include your code here, if you'd like to show it off!
p=1r={0,0,0}s={9,-9,9}w=320function _update60()cls(7)▒=true
for i=1,3do
clip(0,i*22+9,128,22)for x=0,w do
o=(r[i]+x)%w-128if(x==0)rectfill(o,32,64+o,196,3)
if(x==112 or x==272)circfill(o,64,32,8)
if(x==160)line()for d=0,39do for i=.25,2,.4do line(cos(i)*d+o+32,sin(i)*d+66,9)end end
end
if(btnp(5)and p<4)s[p]*=.9p+=1break
a=abs(s[i])if(a<9)s[i]*=.99
r[i]-=s[i]if a<1do
s[i]=0r[i]=(r[i]/80+.5)\1*80c=pget(64,i*16+32)▒=(▒ and c==l)l=c
end
end
if p>4do
if(▒)?"\ashege4cdg ⁶7"
run()end
if(s[3]==0)p=5end