home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / tricks / mrtest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-20  |  1.0 KB  |  39 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      MRTEST.PAS                        *)
  3. (*         (c) 1990 Michael Plewe & TOOLBOX               *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM MRTest;
  6.  
  7. USES Crt, MRead;
  8.  
  9. VAR
  10.   w : WORD;
  11.  
  12. BEGIN
  13.   ClrScr;
  14.   IF NOT MouseInit THEN BEGIN
  15.     WriteLn(^G'Maustreiber ist nicht vorhanden!');
  16.     Halt(1);
  17.   END;
  18.   WriteLn('Taste (Maus oder Tastatur) drücken, ',
  19.           'mit ESC beenden.');
  20.   REPEAT
  21.     w := MReadCode;
  22.     GotoXY(1,3);
  23.     Write('Folgende Taste wurde gedrückt: ');
  24.     CASE w OF
  25.       $4800 : WriteLn('   CUp');
  26.       $5000 : WriteLn(' CDown');
  27.       $4B00 : WriteLn(' CLeft');
  28.       $4D00 : WriteLn('CRight');
  29.       $000D : WriteLn('RETURN');
  30.       $001B : WriteLn('   ESC');
  31.       $3B00 : WriteLn('    F1');
  32.     ELSE
  33.       WriteLn(w:6);
  34.     END;
  35.   UNTIL w = $001B;
  36. END.
  37. (* ------------------------------------------------------ *)
  38. (*                   Ende von MRTEST.PAS                  *)
  39.