program circle
      integer pgopen
      if(pgopen('/xwin') <= 0) stop
      call pgpap(3.0,1.0)
      call pgenv(-2.0,2.0,-2.0,2.0,1,0)
      call pgsfs(2)
      x = 0.0
      y = 0.0
      r = 0.8
      call pgcirc(x,y,r)
c     call pgcirc(0.0,0.0,0.8)
      call pgclos
      end