INPUTMODE()
 Determines the previously active or the currently active input mode
------------------------------------------------------------------------------
 Syntax

     INPUTMODE([<lActiveMode>]) --> nInputMode

 Argument

     <lActiveMode>  Designates an optional parameter.  If this parameter
     is .T., the function returns the currently active mode.

 Returns

     INPUTMODE() returns a numeric value that indicates the input command for
     the previously active or the currently active input mode.

 Description

     INPUTMODE() allows you to determine what type of input command has been
     interrupted.  When called without a parameter or with .F., the function
     returns the currently active mode or, if no input has occurred, the
     previously active input mode.

     If the function is called with <lActiveMode> set to .T., then only the
     currently active input mode or 0 is returned.  The following table shows
     the return values as well as the symbolic constants and their
     accompanying definitions.

     Table 2-2  Coding the Input Mode
     ------------------------------------------------------------------------
     Return  Symbolic Const.    Definition
     ------------------------------------------------------------------------
     0      IMODE_NO            No input command currently.
     1      IMODE_WAIT          WAIT
     2      IMODE_ACCEPT        ACCEPT
     3      IMODE_INPUT         INPUT
     4      IMODE_READ          READ
     5      IMODE_MEMOEDIT      MEMOEDIT()
     6      IMODE_MENU          MENU
     7      IMODE_INKEY         INKEY()
     8      IMODE_DEBUG         Debugger input
     9      IMODE_GETINPUT      Input within GETINPUT()
     10     IMODE_GETSECRET     Input within GETSECRET()
     ------------------------------------------------------------------------

 Example

     PROCEDURE HELP(A, B, C)

        nArea  := SELECT()
        nMode  := INPUTMODE()

        IF nMode = 5               // Calling from MEMOEDIT()
           SELECT MEMOHELP
        ELSE
           SELECT HELP
        ENDIF

        SELECT (nArea)

        RETURN