Procedure InitMouse ;
InitMouse Initializes the mouse driver sets the variable MouseFound depending on whether or not a mouse is found.
This is Automatically called at the start of your program. You should never have to call it, unless you want to reset everything to its default values.
None.
MouseFound variable.
Program Mouse1;
{example for InitMouse and MouseFound}
Uses Mouse;
Begin
If MouseFound Then
Begin
{go into graphics mode 13h}
Asm
movl $0x013, %eax
pushl %ebp
int $0x010
popl %ebp
End;
InitMouse;
ShowMouse; {otherwise it stays invisible}
Writeln('Mouse Found! (press enter to quit)');
Readln;
{back to text mode}
Asm
movl $3, %eax
pushl %ebp
int $0x010
popl %ebp
End
End
End.