home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 03 / leser / getscan.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-16  |  371 b   |  17 lines
  1. PROGRAM GetScanCode;                 { Turbo Pascal ab 5.0 }
  2.  
  3. USES Crt, Dos;
  4.  
  5. VAR
  6.   Regs : Registers;
  7.   ch : CHAR;
  8. BEGIN
  9.   REPEAT
  10.     REPEAT                              { auf Taste warten }
  11.     UNTIL KeyPressed;
  12.     Regs.AH := 0;
  13.     Intr($16, Regs);
  14.     WriteLn('Scancode = ', Regs.AX);
  15.   UNTIL Regs.AX = 283;                    { Ende mit <Esc> }
  16. END.
  17.