home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 03 / tricks / mousenew.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-10  |  658 b   |  24 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    MOUSENEW.PAS                        *)
  3. (*            (c) 1991 Olaf Heß & TOOLBOX                 *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM MouseNew;
  6.  
  7. USES Dos;
  8.  
  9.   PROCEDURE MouseReset;
  10.   VAR
  11.     Regs : Registers;
  12.   BEGIN
  13.     Regs.AX := 0;
  14.     Intr($33, Regs);           { Maus-Reset }
  15.     IF INTEGER(Regs.AX) <> -1 THEN
  16.       WriteLn('Kein Mausteiber installiert');
  17.   END;
  18.  
  19. BEGIN
  20.   MouseReset;
  21. END.
  22. (* ------------------------------------------------------ *)
  23. (*                  Ende von MOUSENEW.PAS                 *)
  24.