# The cursor routine

GR_CURS (XU,YU,X4,Y4,CODE)

Calls the interactive graphic cursor and returns its position when you hit any alphanumeric key on the keyboard.

    Arguments :
            XU      REAL*8       X User coordinates    Output
            YU      REAL*8       Y User coordinates    Output
            X4      REAL*4       X Plot coordinates    Output
            Y4      REAL*4       Y Plot coordinates    Output
            CODE    CHARACTER*1  Character struck      Output

The subroutine returns CODE = 'E' when an error occurs.

For X-Window terminals, button 1 returns ˆ , 2 returns & and 3 returns .