pico-8 cartridge

__lua__
t=0function _update()s=stat(109)l=s-stat(108)cls(2)for n=1,l do
poke(n,t*2|t/64&t)t+=1end
serial(2056,1,l)end
function _draw()cls()for i=0,127do
memcpy(24576+i*64,1+i,64)end
for i=1,s do
x=i/s*128line(x,peek(i)/2,x,0,i+1&1)end
end