Name:         PGCURS

Purpose:      read cursor position

Category:     GRAPHICS

File:         pgplot.src

Author:       T.J. Pearson

Use:          see description below.

Description:

            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.

Updates:      Oct 16, 1998: JPT automatically extracted from source.