p=0::_::pal({[0]=1,14,-1,15,-4,12,15,7},1)
cls()for y=-4,0,.01 do
q=cos(y/(7+cos(t()/9)*3)+t()/20)/15
local r=cos(t()/15+y/14)*.7
for a=0,8do
poke(24414,17<<(a%3))a/=9a+=t()*q
local x,z=cos(a)*r,r*sin(a)z+=1if(z>.1)circfill(64+x*64/z,128+y*64/z,1.5/z,7)
end end flip()goto _