Archiv :: Alte Turbo-Pascal-Quelltexte
An dieser Stelle veröffentliche ich zwei meiner ersten Programme im Quelltext einfach nur so zum Lesen und auch zum sich Erinnern wie es damals war. Sie stehen hier einzig aus nostalgischen Gründen. Die Programme wurden mit einem Turbo Pascal 4 bis 6 übersetzt. Als damaliger Besitzer eines Amiga 500 (später 1200 und erst sehr viel später 4000) wurde eine MS-DOS-Emulation benutzt, der Kompiler wurde von Diskette unter gelegentlichem Wechseln gestartet. Damals brauchte man noch Geduld ;-)
Function Plotter
Das erste Programm zeigt recht gut, wie man eine "Kurvendiskussion" früher auf einfache Art und Weise realisieren konnte. Da der Informatiklehrer jede Woche eine andere Funktion fest eingebaut haben wollte, lag es nahe, eine beliebige Funktion eingeben zu lassen. Dazu wurde ein selbstmodifizierender Code erstellt, indem der Kompiler im Hintergrund aufgerufen wird und die erzeugte Binärfunktion einfach ins Hauptprogramm einkopiert wird. Damals ging das noch sehr einfach (ohne Internet oder Google).
Paint Program
Das zweite Programm ist ein einfaches Zeichenprogramm. Ich kann mich gar nicht mehr erinnern, das geschrieben zu haben, aber der Quelltext ist da ;-)