home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 03 / bonus / status.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-01-28  |  322 b   |  19 lines
  1. PROGRAM Status;
  2.  
  3. { (c) 1991 R. Ruder & toolbox }
  4.  
  5. USES Dos, Crt;
  6.  
  7. VAR Dummy:CHAR;
  8.  
  9. BEGIN
  10. TextColor(7);
  11. TextBackground(0);
  12. REPEAT
  13. WriteLn('Tastaturstatus: ', Mem[$40:$17], ' Tastenscancode: ', Port[$60], 
  14.     ' ASCII-Zeichen: ', Dummy, ' ASCII-Wert: ', Ord(Dummy));
  15.     Dummy := ReadKey;
  16. UNTIL Dummy=#27;
  17. END.
  18.  
  19.