Да погодите вы, я просто скинул уже готовое. Вот еще вариант
$x0 = 786 // координата центра
$y0 = 624
$r = 10 // шаг точек круга
$r2 = 1 // Начальный радиус
MOVE($x0,$y0) // Это для теста демонстрации в Painte
LDOWN(-1,-1) // зажимаем левую кнопку, рисуем
WHILE($r2 < 200) // Предельный радиус
FOR($a=0,$a<360+$r,$r)
MOVE(ROUND($x0+$r2*cos($a),0),ROUND($y0+$r2*sin($a),0))
WAITMS(5)
$r2 = $r2+0.5 // шаг расширения круга
END_CYC
END_CYC
LUP(-1,-1) // отпускаем
HALT