{$if not def DEVICES_KEYMAP_H}
Const DEVICES_KEYMAP_H=0;
{$if not def EXEC_NODES_H;incl"exec/nodes.h";endif}
{$if not def EXEC_LISTS_H;incl"exec/lists.h";endif}
Type
p_KeyMap=^KeyMap;
KeyMap=Record
 km_LoKeyMapTypes,km_LoKeyMap:Ptr;
 km_LoCapsable, km_LoRepeatable,km_HiKeyMapTypes:Ptr;
 km_HiKeyMap,km_HiCapsable,km_HiRepeatable:Ptr
End;
p_KeyMapMode=^KeyMapNode;
KeyMapNode=Record
 kn_Node:Node;
 kn_KeyMap:KeyMap
End;
p_KeyMapResource=^KeyMapResource;
KeyMapResource=Record
 kr_Node:Node;
 kr_List:List
End;
Const
 KC_NOQUAL=0;
 KC_VANILLA=7;
 KCB_SHIFT=0;
 KCF_SHIFT=$01;
 KCB_ALT=1;
 KCF_ALT=$02;
 KCB_CONTROL=2;
 KCF_CONTROL=$04;
 KCB_DOWNUP=3;
 KCF_DOWNUP=$08;
 KCB_DEAD=5;
 KCF_DEAD=$20;
 KCB_STRING=6;
 KCF_STRING=$40;
 KCB_NOP=7;
 KCF_NOP=$80;
 DPB_MOD=0;
 DPF_MOD=$01;
 DPB_DEAD=3;
 DPF_DEAD=$08;
 DP_2DINDEXMASK=$0f;
 DP_2DFACSHIFT=4;
{$endif}