XPmouseGet()
 Read a String, recognizing the Mouse.
------------------------------------------------------------------------------

  Function:    XPmouseGet()

               This is a simple function that will read s string at some
               screen position, optionally with a PICTURE associated to
               it. The difference with a Normal GET,READ is that this
               function handles the Left button as Enter, and the right
               button as Escape (now also Space for Middle button).

               Standard Clipper editing keys are supported, Up and Down
               do not exit the editing.

               This function does not require a Mouse to be installed,
               but just uses it when XPmouseThere() returns true. This
               function will not make the Mouse cursor visible, as
               there's nothing to move to.

               Again, this function was introduced for simple
               editing of prompts, and is not intended as a
               complete replacement of, say, the Get system.

  Syntax:      XPmouseGet(nRow,nCol,xValue[,cPicture])

  Arguments:   nRow and nPos position where to read the string,
               xValue is the original value to read and edit. cPicture
               eventually formats the variable, and processes the
               reading of the string. Picture as normal in Clipper.

  Returns:     NIL when edit was aborted by Escape or the Right
               button, the Edited variable if the user pressed Enter ot
               the Left button.

  Usage:       @ row(), Col() Say "Enter date: "
               d := XPmouseGet(row(),Col(),date(),"D")
               * - Simple eh?