cartdata("lr280")x=64u=0::_::s,h,c=t(),%24066,circfill
dset(0,max(h,s))
?"\^1\^c7\^p\n\*6 \fe"..(s\1).." "..h
for i=0,63do c(i*2,(s*(40+(i^3)%59))%140,2)end
b=btn()&3x+=u if(b>0)u+=b-1.5
u*=.8
if(pget(x,99)!=7)for i=1,50do circ(x,99,i*3,8+i%5)flip()end run()
c(x,99,1,9)goto _