%N wincurs %F $MIR/src/subs/win.for
%D Get a character from a window
%P pjt
%: plotting, pgplot, user-interaction
%B
        SUBROUTINE WinCurs( nx, ny, px, py, c )
        REAL      px, py
        INTEGER   nx, ny
        CHARACTER c*1

    WinCurs gets a character from the screen and returns an absolute
    position in {xpos, ypos}.  If the character was typed from within
    an active plot, then the window number is returned in {nx, ny},
    otherwise {nx, ny} is {0, 0}.  See WinToScr and WinToUsr.
    If the device did not have a cursor (like printers) char(0) is
    returned in c.
