(defconstant VK_L_CTRL 327680)
(defconstant VK_L_ALT 278528)
(defconstant VK_R_ALT -133939200)
(defconstant VK_R_CTRL -133890048)
(defconstant VK_L_SHFT 294912)
(defconstant VK_R_SHFT 1458176)
(defconstant VK_CAPS 1441792)
(defconstant VK_ENTER 1474560)
(defconstant VK_TAB 212992)
(defconstant VK_BKSP 1671168)
(defconstant VK_ESC 1933312)
(defconstant VK_F1 81920)
(defconstant VK_F2 98304)
(defconstant VK_F3 65536)
(defconstant VK_F4 196608)
(defconstant VK_F5 49152)
(defconstant VK_F6 180224)
(defconstant VK_F7 2146304)
(defconstant VK_F8 163840)
(defconstant VK_F9 16384)
(defconstant VK_F10 147456)
(defconstant VK_F11 1966080)
(defconstant VK_F12 114688)
(defconstant VK_INSERT -132382720)
(defconstant VK_HOME -132448256)
(defconstant VK_PG_UP -132169728)
(defconstant VK_DELETE -132366336)
(defconstant VK_END -132497408)
(defconstant VK_PG_DN -132218880)
(defconstant VK_U_ARROW -132300800)
(defconstant VK_L_ARROW -132464640)
(defconstant VK_D_ARROW -132349952)
(defconstant VK_R_ARROW -132317184)



(setq *unmodif-table* (vector 256 256 256 256 256 256 256 256 256 256 256 256 256 9 94 256
 256 256 256 256 256 113 49 256 256 256 121 115 97 119 50 256
 256 99 120 100 101 52 51 256 256 32 118 102 116 114 53 256
 256 110 98 104 103 122 54 256 256 256 109 106 117 55 56 256
 256 44 107 105 111 48 57 256 256 46 45 108 246 112 223 256
 256 256 228 256 252 180 256 256 256 256 13 43 256 35 256 256
 256 60 256 256 256 256 256 256 256 256 256 256 256 256 256 256
 256 256 256 256 256 256 27 256 256 256 256 256 256 256 256 256
 256 256 256 256 256 256 256 256 256 256 256 256 256 256 256 256))

(setq *altgr-table* (vector 256 256 256 256 256 256 256 256 256 256 256 256 256 9 176 256
 256 256 256 256 256 81 33 256 256 256 89 83 65 87 34 256
 256 67 88 68 69 36 167 256 256 32 86 70 84 82 37 256
 256 78 66 72 71 90 38 256 256 256 77 74 85 123 91 256
 256 59 75 73 79 125 93 256 256 58 95 76 214 80 92 256
 256 256 196 256 220 96 256 256 256 256 13 126 256 39 256 256
 256 124 256 256 256 256 256 256 256 256 256 256 256 256 256 256
 256 256 256 256 256 256 27 256 256 256 256 256 256 256 256 256
 256 256 256 256 256 256 256 256 256 256 256 256 256 256 256 256))

(setq *shft-table* (vector 256 256 256 256 256 256 256 256 256 256 256 256 256 9 176 256
 256 256 256 256 256 81 33 256 256 256 89 83 65 87 34 256
 256 67 88 68 69 36 167 256 256 32 86 70 84 82 37 256
 256 78 66 72 71 90 38 256 256 256 77 74 85 47 40 256
 256 59 75 73 79 61 41 256 256 58 95 76 214 80 63 256
 256 256 196 256 220 96 256 256 256 256 13 42 256 39 256 256
 256 62 256 256 256 256 256 256 256 256 256 256 256 256 256 256
 256 256 256 256 256 256 27 256 256 256 256 256 256 256 256 256
 256 256 256 256 256 256 256 256 256 256 256 256 256 256 256 256))