4 Fragen zu Beispielprogramm

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/

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, das die Maus unter DOSBox anspricht. Das Programm zeigt, wie du die Maus initialisierst, den Mauszeiger anzeigst und die aktuelle Position sowie den Status der Maustasten abfragst. ```pascal program MouseDemo; uses Dos, Crt; var regs: Registers; x, y, buttons: Integer; procedure InitMouse; begin regs.ax := $0000; { Reset mouse } Intr($33, regs); end; procedure ShowMouse; begin regs.ax := $0001; { Show mouse pointer } Intr($33, regs); end; procedure HideMouse; begin regs.ax := $0002; { Hide mouse pointer } Intr($33, regs); end; procedure GetMousePos(var x, y, buttons: Integer); begin regs.ax := $0003; { Get mouse position and button status } Intr($33, regs); buttons := regs.bx; x := regs.cx div 8; { Convert to text mode columns } y := regs.dx div 8; { Convert to text mode rows } end; begin ClrScr; InitMouse; ShowMouse; WriteLn('Press any key to show mouse position and button status. Press ESC to exit.'); repeat if KeyPressed then begin if ReadKey = #27 then Break; { ESC to exit } GetMousePos(x, y, buttons); GotoXY(1, 3); Write('Mouse X: ', x:3, ' Y: ', y:3, ' Buttons: ', buttons:1, ' '); end; until False; HideMouse; end. ``` **Hinweise:** - Das Programm funktioniert in DOSBox mit Turbo Pascal 7. - Die Maus muss in DOSBox aktiviert sein (`mouse.com` laden). - Die Spalten- und Zeilenberechnung (`div 8`) ist für Textmodus-Anzeige gedacht. - `buttons` gibt den Status der Maustasten zurück (Bit 0 = links, Bit 1 = rechts, Bit 2 = mittlere Taste). **Weitere Infos zu DOSBox:** [https://www.dosbox.com/](https://www.dosbox.com/) **Weitere Infos zu Turbo Pascal:** [https://winworldpc.com/product/turbo-pascal/7x](https://winworldpc.com/product/turbo-pascal/7x)