home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 11 / tricks / keys.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-08-08  |  1.1 KB  |  45 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     KEYS.PAS                           *)
  3. (*            Abfrage des Keyboard-Status                 *)
  4. (*         (c) 1990 Frederick Knauf & TOOLBOX             *)
  5. (* ------------------------------------------------------ *)
  6. UNIT Keys;                    { txKeys }
  7.  
  8. INTERFACE
  9.  
  10. CONST
  11.   INS         = 128;
  12.   CAPS_LOCK   =  64;
  13.   NUM_LOCK    =  32;
  14.   SCROLL_LOCK =  16;
  15.   ALT         =   8;
  16.   CTRL        =   4;
  17.   LEFT_SHIFT  =   2;
  18.   RIGHT_SHIFT =   1;
  19.  
  20.   LESEN       =   1;
  21.   SETZEN      =   2;
  22.   LOESCHEN    =   3;
  23.  
  24.   FUNCTION Status(K, B : BYTE) : BOOLEAN;
  25.  
  26. IMPLEMENTATION
  27.  
  28.   FUNCTION Status;
  29.   VAR
  30.     KStat : BYTE ABSOLUTE $0000:$0417;
  31.   BEGIN
  32.     Status := TRUE;
  33.     CASE B OF
  34.       LESEN    : IF (k AND KStat) <> k THEN
  35.                    Status := FALSE;
  36.       SETZEN   : KStat := KStat OR k;
  37.       LOESCHEN : KStat := KStat AND (255 - k);
  38.     END;
  39.   END;
  40.  
  41. BEGIN
  42. END.
  43. (* ------------------------------------------------------ *)
  44. (*                   Ende von KEYS.PAS                    *)
  45.