p=1r={0,0,0}s={9,-9,9}w=320function _update60()cls(7)▒=true
for i=1,3do
clip(0,i22+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)\180c=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