home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 01 / praxis / maustest.mod < prev    next >
Encoding:
Text File  |  1989-11-29  |  441 b   |  21 lines
  1. MODULE MouseTest;
  2.  
  3. IMPORT Mouse, IO, Window;
  4.  
  5. BEGIN
  6.   IF Mouse.MouseAvail() THEN
  7.     Mouse.SetMouseUsage(TRUE);
  8.     Mouse.OpenMouse;
  9.     REPEAT
  10.       Window.GotoXY(1, 1);
  11.       IO.WrStr('    X: ');
  12.       IO.WrInt(Mouse.xMouse, 2);
  13.       IO.WrLn;
  14.       IO.WrStr('    Y: ');
  15.       IO.WrInt(Mouse.yMouse, 2);
  16.       IO.WrLn;
  17.     UNTIL Mouse.btnPressed[Mouse.M_LEFTBUTTON] = TRUE;
  18.     Mouse.CloseMouse;
  19.   END;
  20. END MouseTest.
  21.