FUNCTION GETAKEY()

  Short:
  ------
  GETAKEY() Gets intent of last keystroke

  Returns:
  --------
  <cIntent> as key direction (FWD,BWD,ESC,CTW,UNK)

  Syntax:
  -------
  GETAKEY(nKeyVal)

  Description:
  ------------
  Gives key direction of last key, for evaluating what
  direction in a read the user is heading.

  Examples:
  ---------
   If GETAKEY(LASTKEY())=="FWD"
       nActive_field++
   elseif GETAKEY(LASTKEY())=="BWD"
       nActive_field--
   endif

  Source:
  -------
  S_GETKEY.PRG