home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / OS2API / KEYS.ADS < prev    next >
Text File  |  1996-11-26  |  13KB  |  252 lines
  1.  
  2. -- ╔═══════════════════════════════════════════════════════════════════╗
  3. -- ║       D E S I G N   E N G I N E R I N G              ║D║S║        ║
  4. -- ║            S O F T W A R E                           ╚═╩═╝        ║
  5. -- ║                                                                   ║
  6. -- ║        Package   Keys.ads                                         ║
  7. -- ║                                                                   ║
  8. -- ║        Author :  Leonid Dulman     1994-1996                      ║
  9. -- ║                                                                   ║
  10. -- ║         Values as returned from getkey() and getxkey()            ║
  11. -- ║                                                                   ║
  12. -- ╚═══════════════════════════════════════════════════════════════════╝
  13.  
  14. package Keys is
  15. pragma preelaborate(Keys);
  16.  
  17.  K_Control_A            :constant integer:=16#001#;
  18.  K_Control_B            :constant integer:=16#002#;
  19.  K_Control_C            :constant integer:=16#003#;
  20.  K_Control_D            :constant integer:=16#004#;
  21.  K_Control_E            :constant integer:=16#005#;
  22.  K_Control_F            :constant integer:=16#006#;
  23.  K_Control_G            :constant integer:=16#007#;
  24.  K_BackSpace            :constant integer:=16#008#;
  25.  K_Control_H            :constant integer:=16#008#;
  26.  K_Tab                  :constant integer:=16#009#;
  27.  K_Control_I            :constant integer:=16#009#;
  28.  K_LineFeed             :constant integer:=16#00a#;
  29.  K_Control_J            :constant integer:=16#00a#;
  30.  K_Control_K            :constant integer:=16#00b#;
  31.  K_Control_L            :constant integer:=16#00c#;
  32.  K_Return               :constant integer:=16#00d#;
  33.  K_Control_M            :constant integer:=16#00d#;
  34.  K_Control_N            :constant integer:=16#00e#;
  35.  K_Control_O            :constant integer:=16#00f#;
  36.  K_Control_P            :constant integer:=16#010#;
  37.  K_Control_Q            :constant integer:=16#011#;
  38.  K_Control_R            :constant integer:=16#012#;
  39.  K_Control_S            :constant integer:=16#013#;
  40.  K_Control_T            :constant integer:=16#014#;
  41.  K_Control_U            :constant integer:=16#015#;
  42.  K_Control_V            :constant integer:=16#016#;
  43.  K_Control_W            :constant integer:=16#017#;
  44.  K_Control_X            :constant integer:=16#018#;
  45.  K_Control_Y            :constant integer:=16#019#;
  46.  K_Control_Z            :constant integer:=16#01a#;
  47.  K_Control_LBracket     :constant integer:=16#01a#;
  48.  K_Escape               :constant integer:=16#01b#;
  49.  K_Control_BackSlash    :constant integer:=16#01c#;
  50.  K_Control_RBracket     :constant integer:=16#01d#;
  51.  K_Control_Caret        :constant integer:=16#01e#;
  52.  K_Control_Underscore   :constant integer:=16#01f#;
  53.  K_Space                :constant integer:=16#020#;
  54.  K_ExclamationPoint     :constant integer:=16#021#;
  55.  K_DoubleQuote          :constant integer:=16#022#;
  56.  K_Hash                 :constant integer:=16#023#;
  57.  K_Dollar               :constant integer:=16#024#;
  58.  K_Percent              :constant integer:=16#025#;
  59.  K_Ampersand            :constant integer:=16#026#;
  60.  K_Quote                :constant integer:=16#027#;
  61.  K_LParen               :constant integer:=16#028#;
  62.  K_RParen               :constant integer:=16#029#;
  63.  K_Star                 :constant integer:=16#02a#;
  64.  K_Plus                 :constant integer:=16#02b#;
  65.  K_Comma                :constant integer:=16#02c#;
  66.  K_Dash                 :constant integer:=16#02d#;
  67.  K_Period               :constant integer:=16#02e#;
  68.  K_Slash                :constant integer:=16#02f#;
  69.  K_Colon                :constant integer:=16#03a#;
  70.  K_SemiColon            :constant integer:=16#03b#;
  71.  K_LAngle               :constant integer:=16#03c#;
  72.  K_Equals               :constant integer:=16#03d#;
  73.  K_RAngle               :constant integer:=16#03e#;
  74.  K_QuestionMark         :constant integer:=16#03f#;
  75.  K_At                   :constant integer:=16#040#;
  76.  K_LBracket             :constant integer:=16#05b#;
  77.  K_BackSlash            :constant integer:=16#05c#;
  78.  K_RBracket             :constant integer:=16#05d#;
  79.  K_Caret                :constant integer:=16#05e#;
  80.  K_UnderScore           :constant integer:=16#05f#;
  81.  K_BackQuote            :constant integer:=16#060#;
  82.  K_LBrace               :constant integer:=16#07b#;
  83.  K_Pipe                 :constant integer:=16#07c#;
  84.  K_RBrace               :constant integer:=16#07d#;
  85.  K_Tilde                :constant integer:=16#07e#;
  86.  K_Control_Backspace    :constant integer:=16#07f#;
  87.  
  88.  K_Alt_Escape           :constant integer:=16#101#;
  89.  K_Control_At           :constant integer:=16#103#;
  90.  K_Alt_Backspace        :constant integer:=16#10e#;
  91.  K_BackTab              :constant integer:=16#10f#;
  92.  K_Alt_Q                :constant integer:=16#110#;
  93.  K_Alt_W                :constant integer:=16#111#;
  94.  K_Alt_E                :constant integer:=16#112#;
  95.  K_Alt_R                :constant integer:=16#113#;
  96.  K_Alt_T                :constant integer:=16#114#;
  97.  K_Alt_Y                :constant integer:=16#115#;
  98.  K_Alt_U                :constant integer:=16#116#;
  99.  K_Alt_I                :constant integer:=16#117#;
  100.  K_Alt_O                :constant integer:=16#118#;
  101.  K_Alt_P                :constant integer:=16#119#;
  102.  K_Alt_LBracket         :constant integer:=16#11a#;
  103.  K_Alt_RBracket         :constant integer:=16#11b#;
  104.  K_Alt_Return           :constant integer:=16#11c#;
  105.  K_Alt_A                :constant integer:=16#11e#;
  106.  K_Alt_S                :constant integer:=16#11f#;
  107.  K_Alt_D                :constant integer:=16#120#;
  108.  K_Alt_F                :constant integer:=16#121#;
  109.  K_Alt_G                :constant integer:=16#122#;
  110.  K_Alt_H                :constant integer:=16#123#;
  111.  K_Alt_J                :constant integer:=16#124#;
  112.  K_Alt_K                :constant integer:=16#125#;
  113.  K_Alt_L                :constant integer:=16#126#;
  114.  K_Alt_Semicolon        :constant integer:=16#127#;
  115.  K_Alt_Quote            :constant integer:=16#128#;
  116.  K_Alt_Backquote        :constant integer:=16#129#;
  117.  K_Alt_Backslash        :constant integer:=16#12b#;
  118.  K_Alt_Z                :constant integer:=16#12c#;
  119.  K_Alt_X                :constant integer:=16#12d#;
  120.  K_Alt_C                :constant integer:=16#12e#;
  121.  K_Alt_V                :constant integer:=16#12f#;
  122.  K_Alt_B                :constant integer:=16#130#;
  123.  K_Alt_N                :constant integer:=16#131#;
  124.  K_Alt_M                :constant integer:=16#132#;
  125.  K_Alt_Comma            :constant integer:=16#133#;
  126.  K_Alt_Period           :constant integer:=16#134#;
  127.  K_Alt_Slash            :constant integer:=16#135#;
  128.  K_Alt_KPStar           :constant integer:=16#137#;
  129.  K_F1                   :constant integer:=16#13b#;
  130.  K_F2                   :constant integer:=16#13c#;
  131.  K_F3                   :constant integer:=16#13d#;
  132.  K_F4                   :constant integer:=16#13e#;
  133.  K_F5                   :constant integer:=16#13f#;
  134.  K_F6                   :constant integer:=16#140#;
  135.  K_F7                   :constant integer:=16#141#;
  136.  K_F8                   :constant integer:=16#142#;
  137.  K_F9                   :constant integer:=16#143#;
  138.  K_F10                  :constant integer:=16#144#;
  139.  K_Home                 :constant integer:=16#147#;
  140.  K_Up                   :constant integer:=16#148#;
  141.  K_PageUp               :constant integer:=16#149#;
  142.  K_Alt_KPMinus          :constant integer:=16#14a#;
  143.  K_Left                 :constant integer:=16#14b#;
  144.  K_Center               :constant integer:=16#14c#;
  145.  K_Right                :constant integer:=16#14d#;
  146.  K_Alt_KPPlus           :constant integer:=16#14e#;
  147.  K_End                  :constant integer:=16#14f#;
  148.  K_Down                 :constant integer:=16#150#;
  149.  K_PageDown             :constant integer:=16#151#;
  150.  K_Insert               :constant integer:=16#152#;
  151.  K_Delete               :constant integer:=16#153#;
  152.  K_Shift_F1             :constant integer:=16#154#;
  153.  K_Shift_F2             :constant integer:=16#155#;
  154.  K_Shift_F3             :constant integer:=16#156#;
  155.  K_Shift_F4             :constant integer:=16#157#;
  156.  K_Shift_F5             :constant integer:=16#158#;
  157.  K_Shift_F6             :constant integer:=16#159#;
  158.  K_Shift_F7             :constant integer:=16#15a#;
  159.  K_Shift_F8             :constant integer:=16#15b#;
  160.  K_Shift_F9             :constant integer:=16#15c#;
  161.  K_Shift_F10            :constant integer:=16#15d#;
  162.  K_Control_F1           :constant integer:=16#15e#;
  163.  K_Control_F2           :constant integer:=16#15f#;
  164.  K_Control_F3           :constant integer:=16#160#;
  165.  K_Control_F4           :constant integer:=16#161#;
  166.  K_Control_F5           :constant integer:=16#162#;
  167.  K_Control_F6           :constant integer:=16#163#;
  168.  K_Control_F7           :constant integer:=16#164#;
  169.  K_Control_F8           :constant integer:=16#165#;
  170.  K_Control_F9           :constant integer:=16#166#;
  171.  K_Control_F10          :constant integer:=16#167#;
  172.  K_Alt_F1               :constant integer:=16#168#;
  173.  K_Alt_F2               :constant integer:=16#169#;
  174.  K_Alt_F3               :constant integer:=16#16a#;
  175.  K_Alt_F4               :constant integer:=16#16b#;
  176.  K_Alt_F5               :constant integer:=16#16c#;
  177.  K_Alt_F6               :constant integer:=16#16d#;
  178.  K_Alt_F7               :constant integer:=16#16e#;
  179.  K_Alt_F8               :constant integer:=16#16f#;
  180.  K_Alt_F9               :constant integer:=16#170#;
  181.  K_Alt_F10              :constant integer:=16#171#;
  182.  K_Control_Left         :constant integer:=16#173#;
  183.  K_Control_Right        :constant integer:=16#174#;
  184.  K_Control_End          :constant integer:=16#175#;
  185.  K_Control_PageDown     :constant integer:=16#176#;
  186.  K_Control_Home         :constant integer:=16#177#;
  187.  K_Alt_1                :constant integer:=16#178#;
  188.  K_Alt_2                :constant integer:=16#179#;
  189.  K_Alt_3                :constant integer:=16#17a#;
  190.  K_Alt_4                :constant integer:=16#17b#;
  191.  K_Alt_5                :constant integer:=16#17c#;
  192.  K_Alt_6                :constant integer:=16#17d#;
  193.  K_Alt_7                :constant integer:=16#17e#;
  194.  K_Alt_8                :constant integer:=16#17f#;
  195.  K_Alt_9                :constant integer:=16#180#;
  196.  K_Alt_0                :constant integer:=16#181#;
  197.  K_Alt_Dash             :constant integer:=16#182#;
  198.  K_Alt_Equals           :constant integer:=16#183#;
  199.  K_Control_PageUp       :constant integer:=16#184#;
  200.  K_F11                  :constant integer:=16#185#;
  201.  K_F12                  :constant integer:=16#186#;
  202.  K_Shift_F11            :constant integer:=16#187#;
  203.  K_Shift_F12            :constant integer:=16#188#;
  204.  K_Control_F11          :constant integer:=16#189#;
  205.  K_Control_F12          :constant integer:=16#18a#;
  206.  K_Alt_F11              :constant integer:=16#18b#;
  207.  K_Alt_F12              :constant integer:=16#18c#;
  208.  K_Control_Up           :constant integer:=16#18d#;
  209.  K_Control_KPDash       :constant integer:=16#18e#;
  210.  K_Control_Center       :constant integer:=16#18f#;
  211.  K_Control_KPPlus       :constant integer:=16#190#;
  212.  K_Control_Down         :constant integer:=16#191#;
  213.  K_Control_Insert       :constant integer:=16#192#;
  214.  K_Control_Delete       :constant integer:=16#193#;
  215.  K_Control_KPSlash      :constant integer:=16#195#;
  216.  K_Control_KPStar       :constant integer:=16#196#;
  217.  K_Alt_EHome            :constant integer:=16#197#;
  218.  K_Alt_EUp              :constant integer:=16#198#;
  219.  K_Alt_EPageUp          :constant integer:=16#199#;
  220.  K_Alt_ELeft            :constant integer:=16#19b#;
  221.  K_Alt_ERight           :constant integer:=16#19d#;
  222.  K_Alt_EEnd             :constant integer:=16#19f#;
  223.  K_Alt_EDown            :constant integer:=16#1a0#;
  224.  K_Alt_EPageDown        :constant integer:=16#1a1#;
  225.  K_Alt_EInsert          :constant integer:=16#1a2#;
  226.  K_Alt_EDelete          :constant integer:=16#1a3#;
  227.  K_Alt_KPSlash          :constant integer:=16#1a4#;
  228.  K_Alt_Tab              :constant integer:=16#1a5#;
  229.  K_Alt_Enter            :constant integer:=16#1a6#;
  230.  
  231.  K_EHome                :constant integer:=16#247#;
  232.  K_EUp                  :constant integer:=16#248#;
  233.  K_EPageUp              :constant integer:=16#249#;
  234.  K_ELeft                :constant integer:=16#24b#;
  235.  K_ERight               :constant integer:=16#24d#;
  236.  K_EEnd                 :constant integer:=16#24f#;
  237.  K_EDown                :constant integer:=16#250#;
  238.  K_EPageDown            :constant integer:=16#251#;
  239.  K_EInsert              :constant integer:=16#252#;
  240.  K_EDelete              :constant integer:=16#253#;
  241.  K_Control_ELeft        :constant integer:=16#273#;
  242.  K_Control_ERight       :constant integer:=16#274#;
  243.  K_Control_EEnd         :constant integer:=16#275#;
  244.  K_Control_EPageDown    :constant integer:=16#276#;
  245.  K_Control_EHome        :constant integer:=16#277#;
  246.  K_Control_EPageUp      :constant integer:=16#284#;
  247.  K_Control_EUp          :constant integer:=16#28d#;
  248.  K_Control_EDown        :constant integer:=16#291#;
  249.  K_Control_EInsert      :constant integer:=16#292#;
  250.  K_Control_EDelete      :constant integer:=16#293#;
  251. end Keys ;
  252.