SAVESETKEYS()

  Short:
  ------
  SAVESETKEYS() Saves active set keys to an array

  Returns:
  --------
  <aSaved> => setkey setting saved to an array

  Syntax:
  -------
  SAVESETKEYS([lClear])

  Description:
  ------------
  Saves the inkey codes and codeblocks associated with
  all active setkeys to an array.

  [lClear] If True, clear any active setkeys (set to NIL)

  Examples:
  ---------
   aSaved := SAVESETKEYS(.t.)

   * do stuff

   RESTSETKEYS(aSaved)

  Source:
  -------
  S_SETKEY.PRG