blob: 4555970af4663799156b126dc95251662dc60f5f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{example for ShowMouse and HideMouse}
Uses MsMouse;
Begin
ClrScr;
If MouseFound Then
Begin
Writeln('Now you can see the mouse... (press enter to continue)');
ShowMouse;
Readln;
HideMouse;
Writeln('And now you can''t... (press enter to quit)');
Readln
End
End.
|
