3 Fragen zu Turbopascal

Here is a simple example program in Turbo Pascal 7 (TP7) using the `graph.tpu` unit. This program initializes the graphics mode, draws a line, waits for a keypress, and then closes the graphics mode. You can run this under DOSBox with TP7. ```pascal program SimpleGraphDemo; uses graph, crt; var gd, gm: integer; begin gd := detect; initgraph(gd, gm, ''); if graphresult <> grOk then begin writeln('Graphics error: ', grapherrormsg(graphresult)); halt(1); end; line(100, 100, 300, 300); { Draw a line from (100,100) to (300,300) } outtextxy(120, 90, 'Press any key to exit...'); readkey; closegraph; end. ``` **Instructions:** 1. Save this code as `GRAPHDEMO.PAS`. 2. Compile it in Turbo Pascal 7 under DOSBox. 3. Make sure `graph.tpu` and the BGI driver files (e.g., `EGAVGA.BGI`) are in the same directory or specify the path in `initgraph`. For more information about Turbo Pascal and its graphics unit, see [Turbo Pascal resources](https://pascal-programming.info/).

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.

Hier ist ein einfaches Beispielprogramm in Turbo Pascal 7 (englische Version), das unter DOSBox läuft. Das Programm gibt „Hello, world!“ auf dem Bildschirm aus. ```pascal program HelloWorld; begin writeln('Hello, world!'); end. ``` **So gehst du vor:** 1. Speichere den obigen Code in eine Datei, z.B. `HELLO.PAS`. 2. Starte DOSBox. 3. Mounte das Verzeichnis, in dem sich die Datei befindet, z.B. mit `mount c c:\tp7` 4. Wechsle zu Laufwerk C: mit `c:` 5. Starte Turbo Pascal mit `tp` 6. Öffne die Datei `HELLO.PAS` im Editor. 7. Drücke `Alt+F9`, um das Programm zu kompilieren. 8. Drücke `Ctrl+F9`, um das Programm auszuführen. Weitere Informationen zu Turbo Pascal findest du z.B. hier: https://en.wikipedia.org/wiki/Turbo_Pascal DOSBox-Download: https://www.dosbox.com/