home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Pascal / AIM.ZIP / MISCSTUF.INC < prev    next >
Encoding:
Text File  |  1991-06-29  |  3.9 KB  |  135 lines
  1. {***************************************************************************}
  2. {*                                                                         *}
  3. {*      MISCSTUF.INC        Copyright - Matt Goodrich                      *}
  4. {*                              Jun 29, 1991                               *}
  5. {*                                                                         *}
  6. {*  This inclusion has my codes for various keyed characters.  These are   *}
  7. {*    used after calling the routine 'Keyin_Char'.                         *}
  8. {*                                                                         *}
  9. {*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *}
  10. {*                                                                         *}
  11. {*      Maintenance History :                                              *}
  12. {*                                                                         *}
  13. {*  1.A  MG  6/29/91 - Initial keyin.                                      *}
  14. {*                                                                         *}
  15. {***************************************************************************}
  16.  
  17. CONST
  18.  
  19.   Tab_Key       =   9;
  20.   Carr_Return   =  13;
  21.   ESC_Key       =  27;
  22.  
  23.   Home_Key      = 198;
  24.   Up_Key        = 199;
  25.   PgUp_Key      = 200;
  26.   Lft_Key       = 202;
  27.   Rgt_Key       = 204;
  28.   End_Key       = 206;
  29.   Dn_Key        = 207;
  30.   PgDn_Key      = 208;
  31.   Ins_Key       = 209;
  32.   Del_Key       = 210;
  33.  
  34.   Ctrl_Lft_Key  = 242;
  35.   Ctrl_Rgt_Key  = 243;
  36.   Ctrl_PgDn_Key = 245;
  37.   Ctrl_PgUp_Key = 259;
  38.  
  39.   F1_Key        = 186;
  40.   F2_Key        = 187;
  41.   F3_Key        = 188;
  42.   F4_Key        = 189;
  43.   F5_Key        = 190;
  44.   F6_Key        = 191;
  45.   F7_Key        = 192;
  46.   F8_Key        = 193;
  47.   F9_Key        = 194;
  48.   F10_Key       = 195;
  49.   F11_Key       = 260;
  50.   F12_Key       = 261;
  51.  
  52.   Ctrl_F1       = 221;
  53.   Ctrl_F2       = 222;
  54.   Ctrl_F3       = 223;
  55.   Ctrl_F4       = 224;
  56.   Ctrl_F5       = 225;
  57.   Ctrl_F6       = 226;
  58.   Ctrl_F7       = 227;
  59.   Ctrl_F8       = 228;
  60.   Ctrl_F9       = 229;
  61.   Ctrl_F10      = 230;
  62.   Ctrl_F11      = 264;
  63.   Ctrl_F12      = 265;
  64.  
  65.   Alt_F1        = 231;
  66.   Alt_F2        = 232;
  67.   Alt_F3        = 233;
  68.   Alt_F4        = 234;
  69.   Alt_F5        = 235;
  70.   Alt_F6        = 236;
  71.   Alt_F7        = 237;
  72.   Alt_F8        = 238;
  73.   Alt_F9        = 239;
  74.   Alt_F10       = 240;
  75.   Alt_F11       = 266;
  76.   Alt_F12       = 267;
  77.  
  78.   Ctrl_A        =   1;
  79.   Ctrl_B        =   2;
  80.   Ctrl_C        =   3;
  81.   Ctrl_D        =   4;
  82.   Ctrl_E        =   5;
  83.   Ctrl_F        =   6;
  84.   Ctrl_G        =   7;
  85.   Ctrl_H        =   8;
  86.   Ctrl_I        =   9;
  87.   Ctrl_J        =  10;
  88.   Ctrl_K        =  11;
  89.   Ctrl_L        =  12;
  90.   Ctrl_M        =  13;
  91.   Ctrl_N        =  14;
  92.   Ctrl_O        =  15;
  93.   Ctrl_P        =  16;
  94.   Ctrl_Q        =  17;
  95.   Ctrl_R        =  18;
  96.   Ctrl_S        =  19;
  97.   Ctrl_T        =  20;
  98.   Ctrl_U        =  21;
  99.   Ctrl_V        =  22;
  100.   Ctrl_W        =  23;
  101.   Ctrl_X        =  24;
  102.   Ctrl_Y        =  25;
  103.   Ctrl_Z        =  26;
  104.  
  105.   Alt_A         = 157;
  106.   Alt_B         = 175;
  107.   Alt_C         = 173;
  108.   Alt_D         = 159;
  109.   Alt_E         = 145;
  110.   Alt_F         = 160;
  111.   Alt_G         = 161;
  112.   Alt_H         = 162;
  113.   Alt_I         = 150;
  114.   Alt_J         = 163;
  115.   Alt_K         = 164;
  116.   Alt_L         = 165;
  117.   Alt_M         = 177;
  118.   Alt_N         = 176;
  119.   Alt_O         = 151;
  120.   Alt_P         = 152;
  121.   Alt_Q         = 143;
  122.   Alt_R         = 146;
  123.   Alt_S         = 158;
  124.   Alt_T         = 147;
  125.   Alt_U         = 149;
  126.   Alt_V         = 174;
  127.   Alt_W         = 144;
  128.   Alt_X         = 172;
  129.   Alt_Y         = 148;
  130.   Alt_Z         = 171;
  131.  
  132. {***************************************************************************}
  133. {***                        End of MISCSTUF.INC                          ***}
  134. {***************************************************************************}
  135.