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