program pg_line
      integer pgopen
      real x(3),y(3)
      if(pgopen('/xwin').le.0) stop
      call pgenv(0.0,5.0,0.0,5.0,0,0)
      x(1) = 1.0
      y(1) = 1.0
      x(2) = 4.0
      y(2) = 4.0
      x(3) = 3.0
      y(3) = 1.0
      call pgline(3,x,y)
      call pgclos
      end