a=0cls()
::_::pal(11,stat(108),1)
for i=1,127 do line(i,127-peek(0+i-1)/2,i,127-peek(0+i)/2,11)
end?""
while stat(108) < 1000 do for i=0,64 do
poke(0+i,band(a,200+i))
serial(2056,0,8)end a+=1 end goto _