alias circle { 
  var %x = 0
  window -ek0p @circle 
  if (($1-)) {
    while (%x < 360) { 
      inc %x 
      drawdot @circle $1 $2 $calc(($cos(%x)* $rand()+200) $calc(($sin(%x)* $4)+200)
    } 
  }
}

**Then**

/timer 20 0 /circle