home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / multtsk / cpm25d / kbtest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-04-28  |  1.1 KB  |  41 lines
  1. {$I cpmswitc.inc}
  2.  
  3. {--------------------------------------------------------------------------
  4.  
  5. KBTEST.PAS  (Demonstrating keyboard handling through MTPopup unit)
  6.  
  7. This program requires the CPMULTI Multitasking Toolkit and Turbo Pascal
  8. 5.0 or later.
  9.  
  10. January 1994
  11.  
  12. Copyright (C) 1994 (USA)        Copyright (C) 1989-1994
  13. Hypermetrics                    Christian Philipps Software-Technik
  14. PO Box 9700 Suite 363           Duesseldorfer Str. 316
  15. Austin, TX  78758-9700          D-47447 Moers
  16.                                 Germany
  17.  
  18. For each key pressed by the user, all available information is
  19. displayed. Pressing ESCape will end the program.
  20.  
  21. ---------------------------------------------------------------------------}
  22.  
  23. program KBTest;
  24.  
  25. uses DOS, CRT, MTPopUp;
  26.  
  27. var C : KeyType;
  28.  
  29. begin
  30.   ClrScr;
  31.   Writeln('ESC to end...'^M^J);
  32.   repeat
  33.     C.LongKey := GetKey;
  34.     with C do
  35.     begin
  36.       Writeln('Char=',c,' Scan=',scan,' Shift-state=',ShiftStatus);
  37.       Writeln('LongInt = ',LongKey,'  LongHex = ',LongIntToHex(LongKey));
  38.     end
  39.   until C.C=#27;
  40. end.
  41.