Grafikausgabe mit FreePascal (DOS)

[sirius]

Oh wunder! Die alten Disketten sind noch lesbar....

Also, ich habe mal gekramt. Im Anhang hängt ein Grafikprogramm, was unter TP 6.0 programmiert wurde. Das Programm ist alt und ohne OOP geschrieben, also etwas undurchsichtig. Prinzipiell ist es: "Türme von Hanoi".

Da befindet sich eine procedure "init" gleich am Anfang. Die initialisiert nicht nur die Grafik, sondern sucht auch noch den Grafiktreiber (hier die egavga.bgi) unter ausgesuchten Pfaden (siehe unter "const").



Hinweis (falls du das Programm starten willst): Da du die Unit packen nicht hast, fehlen dir die Routinen unpackstring und packstring. Die kannst du weglassen (Ergebnis der Routinen = erster Parameter)