home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 02 / grdlage / scaninfo.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1988-11-15  |  922 b   |  28 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   SCANTEST.PAS                         *)
  3. (*      Utility zum Anzeigen der Tastatur-Scancodes       *)
  4. (*                 (c) 1988 TOOLBOX                       *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM ScanTest;
  7.  
  8. TYPE Registers =  RECORD CASE INTEGER OF
  9.                 1: (ax,bx,cx,dx,bp,si,di,ds,flags: INTEGER);
  10.                 2: (al,ah,bl,bh,cl,ch,dl,dh      : BYTE);
  11.                   END;
  12. VAR Regs : Registers;
  13.  
  14. BEGIN
  15.   ClrScr;
  16.   GotoXY(10,20);
  17.   Write('Abbruch mit <Esc> ');
  18.   REPEAT
  19.     WITH Regs DO BEGIN
  20.       ah := 0;
  21.       Intr($16, Regs);    (* aus dem Puffer lesen *)
  22.       GotoXY(10,10);
  23.       Write('ah: ',ah:3,'   al: ',al:3,'  ASCII: ',Chr(al));
  24.     END;
  25.   UNTIL (Regs.ah = 1) AND (Regs.al = 27);
  26. END.
  27. (* ------------------------------------------------------- *)
  28.