sync on:sync rate 30
randomize timer()
hide mouse
radius=10
t=1
ink rgb(0,0,0),0
do
cls rgb(255,255,255)
      for r = 0 to t
         x#=newXvalue(screen width()/2,rnd(360),rnd(radius*w))
         y#=newYvalue(screen height()/2,rnd(360),rnd(radius*w))
         circle x#,y#,radius
         circle x#-radius/4,y#-radius/4,radius/8
      next r
      blur bitmap 0,3
   sync
t=t*2
w=w+2
wait 1000
loop