Procedure SaveXYPos(Var Position:XYPosData);

    Returns  the  current  XY  position  of  the  cursor  relative to the
    current  Pascal  window  in   Position.    Notice  that  Position  is
    treated as a stack.  The stack wraps around when it overflows.