home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 05 / leser / scan.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-03-13  |  520 b   |  32 lines
  1. (* Sondertasten der MF2-Tastatur *)
  2.  
  3. USES Dos;
  4.  
  5. VAR
  6.   Cde : BYTE;
  7.  
  8.   FUNCTION ScanKey(VAR Code : BYTE) : CHAR;
  9.   VAR
  10.     Regs : Registers;
  11.   BEGIN
  12.     Regs.AH := $10;   (* nur BIOS AT 03- PS/2 *)
  13.     Intr($16, Regs);
  14.     Code := Regs.AH;
  15.     ScanKey := Chr(Regs.AL);
  16.   END;
  17.  
  18.   FUNCTION Status : BYTE;
  19.   VAR
  20.     Regs : Registers;
  21.   BEGIN
  22.     Regs.AH := $12;
  23.     Intr($16, Regs);
  24.     Status := Regs.AL
  25.   END;
  26.  
  27. BEGIN
  28.   Write(ScanKey(Cde));
  29.   Write('  : ', Cde);
  30.   Write('  : ', Status);
  31. END.
  32.