%N pgcurs %F $MIR/src/pgcurs.f
%D Read cursor position
%B
      INTEGER FUNCTION PGCURS (X, Y, CH)
      REAL X, Y
      CHARACTER*(*) CH

 Read the cursor position and a character typed by the user.
 The position is returned in world coordinates.  PGCURS positions
 the cursor at the position specified, allows the user to move the
 cursor using the joystick or arrow keys or whatever is available on
 the device. When he has positioned the cursor, the user types a
 single character on the keyboard; PGCURS then returns this
 character and the new cursor position (in world coordinates).

 Returns:
  PGCURS         : 1 if the call was successful; 0 if the device
                    has no cursor or some other error occurs.
 Arguments:
  X      (in/out) : the world x-coordinate of the cursor.
  Y      (in/out) : the world y-coordinate of the cursor.
  CH     (output) : the character typed by the user; if the device has
                    no cursor or if some other error occurs, the value
                    CHAR(0) [ASCII NUL character] is returned.

 Note: The cursor coordinates (X,Y) may be changed by PGCURS even if
 the device has no cursor or if the user does not move the cursor.
 Under these circumstances, the position returned in (X,Y) is that of
 the pixel nearest to the requested position.
