text: program Mouse;
  
  {
  This program illustrates the Mufasa Mouse Functions
  }
  
  var
     w, h, x, y: integer;
  begin
    getclientdimensions(w,h);
    writeln(inttostr(w) + ', ' + inttostr(h));
    MoveMouse(0, 0);
    getmousepos(x, y);
    writeln(inttostr(x) + ', ' + inttostr(y));
    wait(1000);
    MoveMouse(w, 0);
    getmousepos(x, y);
    writeln(inttostr(x) + ', ' + inttostr(y));
    wait(1000);
    MoveMouse(0, h);
    getmousepos(x, y);
    writeln(inttostr(x) + ', ' + inttostr(y));
    wait(1000);
    MoveMouse(w, h);
    getmousepos(x, y);
    writeln(inttostr(x) + ', ' + inttostr(y));
    wait(1000);
    ClickMouse(0, 0, mouse_Right);
  
    for x := 0 to 400 do
      MoveMouse(x, x);
  end.
  