t=0n=0m=64z=128::_::if(n%9<1)then
cls(1)n=1for i=0,z*2 do
line(32,m,i-m,z,7)line(z,50,i-m,z,7)end
end
if(t<1)r=rnd(z)s=32-rnd(m)n+=1
for i=0,z do
?"$",i*6,z-i%4*i,3
for j=0,z do
if(pget(i,j)>7)pset(i,j,6)end
end
x=r+s*sin(t/m)y=t+5if(pget(x,y)>1)pset(x,y,8)
flip()t+=.5t%=z
goto _