program circle
      integer pgopen
      if(pgopen('/xwin') <= 0) stop
      call pgenv(-2.0,2.0,-2.0,2.0,1,0)
      call pgsfs(2)
      call pgcirc(0.0,0.0,0.8)
      call pgclos
      end