home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / POPTXT22.ZIP / KEYNAMES.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-01-06  |  3.6 KB  |  161 lines
  1. Unit KeyNames;
  2.  
  3. {  The following are collections of Key press routines for the
  4.    IBM PC command set.  They are arranged in two formats.
  5.  
  6.    Format 1:  Control Set Commands
  7.               All control Set commands are the direct return from the
  8.               Inkey (READKEY) function.
  9.  
  10.    Format 2:  Alternate Set Commands (SCANCodes)
  11.               If Inkey returns a 0, the global variable SCANCODE, or
  12.               the next return of Inkey will contain the Alternate code }
  13.  
  14. {***** These command set controls should work with both Units Screenio and
  15.        CRT.  If you are using CRT, Scancode can be retrieved by another call
  16.        to READKEY.  *****}
  17.  
  18. {*******************************************************}
  19. {***  Keynames                                       ***}
  20. {***  () 1989 Tone Zone Computing                    ***}
  21. {***  Brian K. Trotter                               ***}
  22. {***  You may freely copy these constants and        ***}
  23. {***  distribute them to your friends provided that  ***}
  24. {***  no fee is charged for them.  You may freely    ***}
  25. {***  use them in all your Turbo Pascal programs     ***}
  26. {*******************************************************}
  27.  
  28. Interface
  29.  
  30. Const
  31.      {Alternate Format}
  32.  
  33.      F1   =  59;    {Normal Function Keys}
  34.      F2   =  60;
  35.      F3   =  61;
  36.      F4   =  62;
  37.      F5   =  63;
  38.      F6   =  64;
  39.      F7   =  65;
  40.      F8   =  66;
  41.      F9   =  67;
  42.      F10  =  68;
  43.      SF1  =  84;    {Shifted Function Keys}
  44.      SF2  =  85;
  45.      SF3  =  86;
  46.      SF4  =  87;
  47.      SF5  =  88;
  48.      SF6  =  89;
  49.      SF7  =  90;
  50.      SF8  =  91;
  51.      SF9  =  92;
  52.      SF10 =  93;
  53.      CF1  =  94;    {Control Function Keys}
  54.      CF2  =  95;
  55.      CF3  =  96;
  56.      CF4  =  97;
  57.      CF5  =  98;
  58.      CF6  =  99;
  59.      CF7  =  100;
  60.      CF8  =  101;
  61.      CF9  =  102;
  62.      CF10 =  103;
  63.      AF1  =  104;    {Alternate Function Keys}
  64.      AF2  =  105;
  65.      AF3  =  106;
  66.      AF4  =  107;
  67.      AF5  =  108;
  68.      AF6  =  109;
  69.      AF7  =  110;
  70.      AF8  =  111;
  71.      AF9  =  112;
  72.      AF10 =  113;
  73.  
  74.  {Alternate Keys}
  75.      AltA   =  30;
  76.      AltB   =  48;
  77.      AltC   =  46;
  78.      AltD   =  32;
  79.      AltE   =  18;
  80.      AltF   =  33;
  81.      AltG   =  34;
  82.      AltH   =  35;
  83.      AltI   =  23;
  84.      AltJ   =  36;
  85.      AltK   =  37;
  86.      AltL   =  38;
  87.      AltM   =  50;
  88.      AltN   =  49;
  89.      AltO   =  24;
  90.      AltP   =  25;
  91.      AltQ   =  16;
  92.      AltR   =  19;
  93.      AltT   =  20;
  94.      AltU   =  22;
  95.      AltV   =  47;
  96.      AltW   =  17;
  97.      AltX   =  45;
  98.      AltY   =  21;
  99.      AltZ   =  44;
  100.  
  101.      Alt1   =  121;
  102.      Alt2   =  122;
  103.      Alt3   =  123;
  104.      Alt4   =  124;
  105.      Alt5   =  125;
  106.      Alt6   =  126;
  107.      Alt7   =  127;
  108.      Alt8   =  128;
  109.      Alt9   =  129;
  110.      Alt10  =  130;
  111.  
  112. {Special Keys }
  113.      NIns   =  82;
  114.      NDel   =  83;
  115.      NHome  =  71;
  116.      NPgUp  =  73;
  117.      NPgDn  =  81;
  118.      NEnd   =  79;
  119.      NUp    =  72;
  120.      NDown  =  80;
  121.      NLeft  =  75;
  122.      NRight =  77;
  123.  
  124. {Control Format}
  125.  
  126.      CntrlA  =  1;
  127.      CntrlB  =  2;
  128.      CntrlC  =  3;
  129.      CntrlD  =  4;
  130.      CntrlE  =  5;
  131.      CntrlF  =  6;
  132.      CntrlG  =  7;
  133.      CntrlH  =  8;
  134.      CntrlI  =  9;
  135.      CntrlJ  =  10;
  136.      CntrlK  =  11;
  137.      CntrlL  =  12;
  138.      CntrlM  =  13;
  139.      CntrlN  =  14;
  140.      CntrlO  =  15;
  141.      CntrlP  =  16;
  142.      CntrlQ  =  17;
  143.      CntrlR  =  18;
  144.      CntrlS  =  19;
  145.      CntrlT  =  20;
  146.      CntrlU  =  21;
  147.      CntrlV  =  22;
  148.      CntrlW  =  23;
  149.      CntrlX  =  24;
  150.      CntrlY  =  25;
  151.      CntrlZ  =  26;
  152.  
  153.      NPrt    =  16;
  154.      NBack   =  8;
  155.      NReturn =  13;
  156.  
  157.  
  158. Implementation
  159.  
  160. end.
  161.