program pg_point
      integer pgopen
      real x(2),y(2)
      if(pgopen('/xwin').le.0) stop
      call pgenv(-2.0,2.0,-2.0,2.0,0,0)
      x(1) = -1.0
      y(1) = -1.0
      x(2) = 1.0
      y(2) = 1.0
      call pgpt(2,x,y,9)
      call pgclos
      end