f={}p={0,1,5,4,6,12,14,15}for i=0,1199
do f[i]=0 poke(i,143)end
function update()for i=0,1119 do 
if i<41 then f[1160+i]=rnd(2)*256 end
f[i]=(f[i+39]+f[i+40]+f[i+41]+f[i+80])/4.1
poke(1200+i,p[mid(0,flr(f[i]/4),7)+1])
end end