q=1200
h={}for i=0,q do poke(i,rnd(99))end
function t(a)poke(q+p,a)p=(p-40)%q end
function update()srand(1)for i=0,39 do
h[i]=(h[i] or rnd(30))+(1/(rnd(5)+2))p=i+(flr(h[i])%30)*40
t(15)t(14)
for j=0,5 do t(10)end
for j=0,5 do t(2)end
t(8)t(0)
end
end