cls()pal(6,0)pal(7,2)circ(64,64,32,10)
::_::for x=0,127 do for y=0,127 do
if(rnd()>0.8+cos(t()/4)/6)pset(x,y,max(6,pget(x,y)-1))
if pget(x,y)>9then a=rnd(2) d=sgn(rnd(2)-1)
if(a>1 and pget(x,y+d)==0)pset(x,y+d,10)
if(a<1 and pget(x+d,y)==0)pset(x+d,y,10)
end end end goto _