sync on
sync rate 60

do
cls

a=wrapvalue(a+5)
mycircle(320,240,50,25,a)

sync
loop

function mycircle(posx,posy,sizex,sizey,value)
   for angle=0 to value
      x=posx+sizex*sin(angle)
      y=posy+sizey*cos(angle)
      dot x,y
   next angle
endfunction