GetKeyMap contains a header file, c source code, and object modual (compiled
under SAS/C 5.10a).  This function is used to obtains the current keymap    
into a structure supplied to the function.  You can then modify the contents
of that structure and use the new keymap in any way that you wish.  I use it
in the StringInfo structure of gadgets and set the type parameters for the  
keys to KCF_NOP.  In this way I can mask out all keys that I do not want    
entered in the gadget.