pal({129,1,131,6,140,13,12},1)poke(24372,1)::_::t,w=time(),128for i=1,14do
z,c=18-t*2%4-i,cos(t/4)
s=w/z
y=w*c/z-64while y<w do
x=w*c/z-80while x<w do
rectfill(x,y,x+s,y+s,4352+(i-flr(t))%8+c%1)x+=s*2end
y+=s*2end
end
flip()goto _