3
{ Program to demonstrate the SetMouseXY function. }
9
Writeln('Click right mouse button to quit.');
12
Writeln(GetMouseX,',',GetMouseY);
13
If (GetMouseX>70) then
14
SetMouseXY(10,GetMouseY);
15
If (GetMouseY>20) then
16
SetMouseXY(GetMouseX,5);
17
Until (GetMouseButtons=MouseRightButton);