program main
use appgraphics
implicit none
    integer::screen
    integer::x, y, r, i         
    x=10
    y=10
    r=1   
    screen = init_screen(800, 600, title="Draw Primitives")     
    call settextstyle(2,0,5)   
    do while(x <= 800)
      call clearviewport 
      call circle(x,y,r)
      call outtextxy(x,y,char(r),pt)
      i=0
      do while(i < 100000)
         i=i+1
      end do
      x=x+25
      y=y+15
      r=r+12
    end do
    call delay(1)
    call closewindow(screen)
end program main