mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-11 07:12:42 +02:00
31 lines
512 B
ObjectPascal
31 lines
512 B
ObjectPascal
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.
|
|
|