b,z,x,y,d,r,g=0,128,{},{},{},rnd,pget
cls(0)::_::for i=0,z do
for j=0,z do
c=g(i,j)
if(c>0)pset(i,j,c-1)
end
end
for i=1,9 do
if(b<9)b+=1x[i]=r(z)y[i]=r(z)d[i]=r(1)
circfill(x[i],y[i],2,9)x[i]+=cos(d[i])*r(3)y[i]+=sin(d[i])*r(3)d[i]+=r(.1)-.05x[i]%=z
y[i]%=z
end
flip()goto _