zen pong

This is a #tweetcart originally released in https://twitter.com/kometbomb/status/1396132850299293701

memset(0,17,9215)pal({7,7},1)a={92,23,1,1}b={32,99,1,-1}
::_::cls()map()rect(0,0,127,127,2)for p=0,1 do
a,b=b,a
for n=1,4 do
i=n%2+1f=n%2j=b[i+2]
b[i]+=b[i+2]x,y=b[1],b[2]
if(pget(x,y)!=1-p)mset(x/8,y/8,1-p)b[i+2]=-j b[i]=b[i]-j
end
circfill(b[1],b[2],2,p)end
flip()goto _--#pico8