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