::★::z=cos(t()/30)*10cls(1)rectfill(0,66,127,127,0)for d=140,20,-15do
x,y=50+z+(1250-z*99)/d,63+600/d
for r=5,1,-1do
ovalfill(x-r*100/d,y-r*20/d,x+r*100/d,y+r*20/d,8-r/2)end
line(x,y,x,y-500/d,6)line(x,y-500/d,x-50/d,y-500/d)pset(x-50/d,y-500/d+1,7)end
flip()goto ★