LASTKFUNC()
 Returns the function name that created the most-recent key trap
------------------------------------------------------------------------------
 Syntax

     LASTKFUNC() --> cFunctionName

 Returns

     LASTKFUNC() returns the function name (KEYTIME(), KEYSEC(), or
     COM_KEY()) that placed the character in the keyboard buffer.

 Description

     This function determines if a key code was placed in the keyboard buffer
     by KEYTIME(), KEYSEC(), or COM_KEY().

 Note

     .  If a trap is created by COM_KEY(), the last character of the
        function name that is returned, is a number that corresponds to the
        port that triggered an interrupt.

 Example

     Name the function that created the last error:

     cTrapFunc: = LASTKFUNC()
     IF cTrapFunc = "COM_KEY"
        ? "Interrupt via port", RIGHT(cTrapFunc, 1)
     ENDIF