InitMouse

   

Declaration:

Procedure InitMouse ;

Description:

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.

Errors:

None.

See also:

MouseFound variable.

Example

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.