home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 11 / tricks / keytest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-07-08  |  1001 b   |  40 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     KEYTEST.PAS                        *)
  3. (* ------------------------------------------------------ *)
  4. PROGRAM KeyTest;
  5.  
  6. USES
  7.   Crt, Keys;
  8.  
  9.   PROCEDURE Wait;
  10.   BEGIN
  11.     WriteLn('Bitte drücken Sie eine Taste!');
  12.     REPEAT UNTIL Ord(ReadKey) > 0;
  13.   END;
  14.  
  15.   PROCEDURE Test;
  16.   BEGIN
  17.     IF Status(NUM_LOCK, LESEN) THEN
  18.       WriteLn('LESEN --> NumLock ist gesetzt.')
  19.     ELSE
  20.       WriteLn('LESEN --> NumLock ist nicht gesetzt.');
  21.     Wait;
  22.     WriteLn;
  23.   END;
  24.  
  25. BEGIN
  26.   ClrScr;
  27.   WriteLn('Testprogramm für die KEYS-Unit');
  28.   GotoXY(1,5);
  29.   IF Status(NUM_LOCK, SETZEN) THEN
  30.     WriteLn('SCHREIBEN --> NumLock ist jetzt gesetzt.');
  31.   Wait;
  32.   Test;
  33.   IF Status(NUM_LOCK, LOESCHEN) THEN
  34.     WriteLn('LOESCHEN --> NumLock ist jetzt gelöscht.');
  35.   Wait;
  36.   Test;
  37. END.
  38. (* ------------------------------------------------------ *)
  39. (*                     KEYTEST.PAS                        *)
  40.