%N pgqpos %F $MIR/src/pgqpos.f
%D Inquire current pen position
%B
      SUBROUTINE PGQPOS (X, Y)
      REAL X, Y

 Query the current "pen" position in world C coordinates (X,Y).

 Arguments:
  X      (output)  : world x-coordinate of the pen position.
  Y      (output)  : world y-coordinate of the pen position.
