home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / GETKEY.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  1.2 KB  |  63 lines
  1.  
  2. (*
  3.  * function key and other keyboard entry definition
  4.  * shs (rev. 12-nov-87)
  5.  *
  6.  *)
  7.  
  8. const
  9.    YES         = 'Y';
  10.    NO          = 'N';
  11.    BACKSPACE   = #8;
  12.    TAB         = #9;
  13.    NEWLINE     = #13;
  14.    ESC         = #27;
  15.    F1          = #201;
  16.    F2          = #202;
  17.    F3          = #203;
  18.    F4          = #204;
  19.    F5          = #205;
  20.    F6          = #206;
  21.    F7          = #207;
  22.    F8          = #208;
  23.    F9          = #209;
  24.    F10         = #210;
  25.    HOME        = #213;
  26.    UP          = #214;
  27.    PGUP        = #215;
  28.    LEFT        = #217;
  29.    RIGHT       = #219;
  30.    ENDK        = #221;
  31.    DOWN        = #222;
  32.    PGDN        = #223;
  33.    INS         = #224;
  34.    DEL         = #225;
  35.    CTRL_F1     = #236;
  36.    CTRL_F2     = #237;
  37.    CTRL_F3     = #238;
  38.    CTRL_F9     = #244;
  39.    CTRL_F10    = #245;
  40.    CTRL_PGUP   = #18;
  41.    CTRL_PGDN   = #4;
  42.    CTRL_LEFT   = #1;
  43.    CTRL_RIGHT  = #2;
  44.    CTRL_HOME   = #5;
  45.    CTRL_END    = #3;
  46.  
  47. function getkey: char;
  48. var
  49.    key: char;
  50.  
  51. begin
  52.    c := crt.readkey;
  53.    if (key = #0) then
  54.    begin
  55.       c := crt.readkey;
  56.       key := chr( lo( ord( key )+ 142 ));
  57.                               {convert function keys to 201..210}
  58.    end;
  59.  
  60.    getkey := key;
  61. end;
  62.  
  63.