alias acircle { 
  var %x = 0
  window -ek0p @circle 
  while (%x < 360) { 
    inc %x 
    drawdot @circle $rand(1,14) $rand(1,10) $calc(($cos(%x)* $rand(30,150))+200) $calc(($sin(%x)* $rand(30,130))+200)
  }
}

*THEN*

/timer 30 0 /acircle