Click above to get retro games delivered to your door ever month!

 SETKXTAB()
 Installs key tables
------------------------------------------------------------------------------
 Syntax

     SETKXTAB(<idKeyTable>) --> lInstalled

 Argument

     <idKeyTable>  Designates a character string that contains the key
     definitions as described below.

 Returns

     The function returns .T. when the key table is successfully installed.

 Description

     With SETKXLAT() code translations can only be defined for individual
     keys.   In contrast, with SETKXTAB() an entire table can be implemented.
     SETKXLAT() is primarily for use in the restoration of a key table that
     has been saved with GETKXTAB().  Four bytes are needed to translate a
     single key; two bytes are needed for the scan code for the original key;
     and two bytes are needed for the scan code for the key that is
     simulated.  The construction of the table progresses in the following
     form:

     cByte1  := CHR(ASC1)            // Key to be translated
     cByte2  := CHR(ASC2)            // Key to be translated
     cByte3  := CHR(ASC1)            // Key to be simulated
     cByte4  := CHR(ASC2)            // Key to be simulated

     cTable := cByte1 + cByte2 + cByte3 + cByte4

     with symbolic constants:

     cTable := KS_A + KS_B           // Translate "A" to "B"

     The symbolic constants for key codes can be found in the CTSCAN.CH
     include file.

 Note

     .  The installation of a new key table overwrites the existing
        table.

 Example

     Save the existing key table and reset it later:

     cKXTab := GETKXTAB()
     DO KEYCHANGE
     SETKXTAB(cKXTab)