home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 03 / tricks / keydef.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-10  |  1.6 KB  |  46 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      KEYDEF.PAS                        *)
  3. (*         Konstantendefinitionen für die Tastatur        *)
  4. (* ------------------------------------------------------ *)
  5. UNIT KeyDef;
  6.  
  7. INTERFACE
  8.  
  9. CONST
  10.  
  11.   { Tastaturcodes        1. Ziffernblock   }
  12.   ESC   = $011b;  Home = $4700;  ende  = $4f00;
  13.   PgUp  = $4900;  PgDn = $5100;  right = $4D00;
  14.   left  = $4b00;  up   = $4800;  Down  = $5000;
  15.   five  = $4cf0;  ins  = $5200;  del   = $5300;
  16.   first = $1C00;  last = $1D00;
  17.  
  18.   { Tastaturcodes        2. Funktionstasten   }
  19.   F1   = $3b00;  F2   = $3c00;  F3  = $3d00;  F4  = $3e00;
  20.   F5   = $3f00;  F6   = $4000;  F7  = $4100;  F8  = $4200;
  21.   F9   = $4300;  F10  = $4400;  F11 = $0085;  F12 = $0086;
  22.  
  23.   SF1  = $5400;  SF2  = $5500;  SF3  = $5600;  SF4  = $5700;
  24.   SF5  = $5800;  SF6  = $5900;  SF7  = $5a00;  SF8  = $5b00;
  25.   SF9  = $5c00;  SF10 = $5d00;  SF11 = $8700;  SF12 = $8800;
  26.  
  27.   CF1  = $5e00;  CF2  = $5f00;  CF3  = $6000;  CF4  = $6100;
  28.   CF5  = $6200;  CF6  = $6300;  CF7  = $6400;  CF8  = $6500;
  29.   CF9  = $6600;  CF10 = $6700;  CF11 = $8900;  CF12 = $8a00;
  30.  
  31.   AF1  = $6800;  AF2  = $6900;  AF3  = $6a00;  AF4  = $6b00;
  32.   AF5  = $6c00;  AF6  = $6d00;  AF7  = $6e00;  AF8  = $6f00;
  33.   AF9  = $7000;  AF10 = $7100;  AF11 = $8b00;  AF12 = $8c00;
  34.  
  35.   { Tastaturcodes        3. sonstige Tasten   }
  36.   FCR  = $1c0D;  CFCR = $1c0A;  CPgu = $8400;  CPgd = $7600;
  37.   Tab  = $0009;  STab = $0f00;  bksp = 3592;
  38.  
  39. IMPLEMENTATION
  40.  
  41. BEGIN
  42. END.
  43. (* ------------------------------------------------------ *)
  44. (*                   Ende von KEYDEF.PAS                  *)
  45.  
  46.