Beispielprogramm zur Nutzung von mouse.tpu in Turbo Pascal 7 unter DOSBox?

Hier ist ein einfaches Beispielprogramm in Turbo Pascal 7 (TP7), das die `MOUSE.TPU` verwendet und unter DOSBox lauffähig ist. Das Programm zeigt, wie du die Maus initialisierst, die Position abfragst und einen Mauscursor auf dem Bildschirm bewegst.

```pascal
program MouseDemo;
uses
crt, mouse;

var
mx, my, mb: integer;

begin
clrscr;
if not MousePresent then
begin
writeln('Keine Maus gefunden!');
halt(1);
end;

ShowMouse;
writeln('Bewege die Maus. Drücke eine Taste zum Beenden.');
repeat
GetMouseState(mx, my, mb);
GotoXY(1, 2);
write('Mausposition: X=', mx:3, ' Y=', my:3, ' Taste=', mb:1, ' ');
delay(50);
until keypressed;

HideMouse;
end.
```

**Hinweise:**
- Das Programm setzt voraus, dass sich die Datei `MOUSE.TPU` im Suchpfad des Compilers befindet.
- Unter DOSBox muss ein Maus-Treiber aktiv sein (DOSBox emuliert standardmäßig eine Maus).
- Kompiliere das Programm in TP7 und führe es in DOSBox aus.

**Weitere Informationen zu Turbo Pascal und DOSBox:**
- [Turbo Pascal bei Wikipedia](https://de.wikipedia.org/wiki/Turbo_Pascal)
- [DOSBox offizielle Seite](https://www.dosbox.com/)

Falls du die `MOUSE.TPU` nicht hast, findest du sie meist im Lieferumfang von Turbo Pascal oder in entsprechenden Archiven im Netz.