home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 03 / tricks / smausaus.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-10  |  927 b   |  31 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    SMAUSAUS.PAS                        *)
  3. (*             (c) 1991 Olaf Heß & TOOLBOX                *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM SMausAus;
  6.  
  7. USES Dos, Crt;
  8.  
  9. VAR
  10.   Regs : Registers;
  11.  
  12. BEGIN
  13.   WITH Regs DO BEGIN
  14.     AX := 0;
  15.     Intr($33, Regs);
  16.     IF INTEGER(AX) = -1 THEN BEGIN        { Maus vorhanden }
  17.       ClrScr;
  18.       WriteLn('Bitte die Maus bewegen.');
  19.       WriteLn('Tastendruck = Ende');
  20.       AX := 1;
  21.       Intr($33, Regs);           { Maus-Cursor einschalten }
  22.       REPEAT UNTIL KeyPressed;
  23.       AX := 2;
  24.       Intr($33, Regs);           { Maus-Cursor ausschalten }
  25.     END ELSE
  26.       WriteLn('Kein Maustreiber installiert');
  27.   END;
  28. END.
  29. (* ------------------------------------------------------ *)
  30. (*                 Ende von SMAUSAUS.PAS                  *)
  31.