diff --git a/source/core.adb b/source/core.adb
index 8b3275a..41fc737 100644
--- a/source/core.adb
+++ b/source/core.adb
@@ -22,113 +22,6 @@ package body core is
 		mouse_button_back
 	) with convention => c;
 	--
-	--~key_null          : constant integer := 0;
-	--~key_space         : constant integer := 32;
-	--~key_apostrophe    : constant integer := 39;
-	--~key_comma         : constant integer := 44;
-	--~key_minus         : constant integer := 45;
-	--~key_period        : constant integer := 46;
-	--~key_slash         : constant integer := 47;
-	--~key_0             : constant integer := 48;
-	--~key_1             : constant integer := 49;
-	--~key_2             : constant integer := 50;
-	--~key_3             : constant integer := 51;
-	--~key_4             : constant integer := 52;
-	--~key_5             : constant integer := 53;
-	--~key_6             : constant integer := 54;
-	--~key_7             : constant integer := 55;
-	--~key_8             : constant integer := 56;
-	--~key_9             : constant integer := 57;
-	--~key_semicolon     : constant integer := 59;
-	--~key_equal         : constant integer := 61;
-	--~key_a             : constant integer := 65;
-	--~key_b             : constant integer := 66;
-	--~key_c             : constant integer := 67;
-	--~key_d             : constant integer := 68;
-	--~key_e             : constant integer := 69;
-	--~key_f             : constant integer := 70;
-	--~key_g             : constant integer := 71;
-	--~key_h             : constant integer := 72;
-	--~key_i             : constant integer := 73;
-	--~key_j             : constant integer := 74;
-	--~key_k             : constant integer := 75;
-	--~key_l             : constant integer := 76;
-	--~key_m             : constant integer := 77;
-	--~key_n             : constant integer := 78;
-	--~key_o             : constant integer := 79;
-	--~key_p             : constant integer := 80;
-	--~key_q             : constant integer := 81;
-	--~key_r             : constant integer := 82;
-	--~key_s             : constant integer := 83;
-	--~key_t             : constant integer := 84;
-	--~key_u             : constant integer := 85;
-	--~key_v             : constant integer := 86;
-	--~key_w             : constant integer := 87;
-	--~key_x             : constant integer := 88;
-	--~key_y             : constant integer := 89;
-	--~key_z             : constant integer := 90;
-	--~key_left_bracket  : constant integer := 91;
-	--~key_backslash     : constant integer := 92;
-	--~key_right_bracket : constant integer := 93;
-	--~key_grave         : constant integer := 96;
-	--~key_escape        : constant integer := 256;
-	--~key_enter         : constant integer := 257;
-	--~key_tab           : constant integer := 258;
-	--~key_backspace     : constant integer := 259;
-	--~key_insert        : constant integer := 260;
-	--~key_delete        : constant integer := 261;
-	--~key_right         : constant integer := 262;
-	--~key_left          : constant integer := 263;
-	--~key_down          : constant integer := 264;
-	--~key_up            : constant integer := 265;
-	--~key_page_up       : constant integer := 266;
-	--~key_page_down     : constant integer := 267;
-	--~key_home          : constant integer := 268;
-	--~key_end           : constant integer := 269;
-	--~key_caps_lock     : constant integer := 280;
-	--~key_scroll_lock   : constant integer := 281;
-	--~key_num_lock      : constant integer := 282;
-	--~key_print_screen  : constant integer := 283;
-	--~key_pause         : constant integer := 284;
-	--~key_f1            : constant integer := 290;
-	--~key_f2            : constant integer := 291;
-	--~key_f3            : constant integer := 292;
-	--~key_f4            : constant integer := 293;
-	--~key_f5            : constant integer := 294;
-	--~key_f6            : constant integer := 295;
-	--~key_f7            : constant integer := 296;
-	--~key_f8            : constant integer := 297;
-	--~key_f9            : constant integer := 298;
-	--~key_f10           : constant integer := 299;
-	--~key_f11           : constant integer := 300;
-	--~key_f12           : constant integer := 301;
-	--~key_pad_0         : constant integer := 320;
-	--~key_pad_1         : constant integer := 321;
-	--~key_pad_2         : constant integer := 322;
-	--~key_pad_3         : constant integer := 323;
-	--~key_pad_4         : constant integer := 324;
-	--~key_pad_5         : constant integer := 325;
-	--~key_pad_6         : constant integer := 326;
-	--~key_pad_7         : constant integer := 327;
-	--~key_pad_8         : constant integer := 328;
-	--~key_pad_9         : constant integer := 329;
-	--~key_pad_decimal   : constant integer := 330;
-	--~key_pad_divide    : constant integer := 331;
-	--~key_pad_multiply  : constant integer := 332;
-	--~key_pad_subtract  : constant integer := 333;
-	--~key_pad_add       : constant integer := 334;
-	--~key_pad_enter     : constant integer := 335;
-	--~key_pad_equal     : constant integer := 336;
-	--~key_left_shift    : constant integer := 340;
-	--~key_left_control  : constant integer := 341;
-	--~key_left_alt      : constant integer := 342;
-	--~key_left_super    : constant integer := 343;
-	--~key_right_shift   : constant integer := 344;
-	--~key_right_control : constant integer := 345;
-	--~key_right_alt     : constant integer := 346;
-	--~key_right_super   : constant integer := 347;
-	--~key_kb_menu       : constant integer := 348;
-	--
 	type vessel    is record x, y : float;                                                                           end record with convention => c_pass_by_copy;
 	type color     is record r, g, b, a : color_range;                                                               end record with convention => c_pass_by_copy;
 	type rectangle is record x ,y, width, height : float;                                                            end record with convention => c_pass_by_copy;