program circle
      i_dummy=pgopen('/xwin')
      call pgenv(-5.0,5.0,-5.0,5.0,1,0)
      call pgsfs(0)
      call pgcirc(1.0,0.0,2.0)
      call pgclos
      end