GETMODE()
 Uses the current screen mode as a function name
------------------------------------------------------------------------------
 Syntax

     GETMODE() --> cFunctionName

 Returns

     GETMODE() returns a character string that represents the active mode.
     The character string corresponds to the CA-Clipper Tools function call
     used to switch to that mode.

 Description

     This function substitutes for a difficult to understand numeric code for
     the return value of a function.  This character string corresponds to
     the function call used to switch to the current mode.  The returned
     value can be held in a variable, and this function can be called later
     using the compile and run operator.

 Note

     Important!  You must declare all function calls for setting a mode
     which could occur as a return value from this function as EXTERNAL.

 Example

     Notice the mode and reset it later:

     cVar := GETMODE()                 // Save current mode
     ? cVar                            // For example "CGA80(.T.)"

     CGA40(.T.)                        // Select other mode

     ? &(cVar)                         // Reset old mode.