program Billard5; uses mSum, mKugel in 'mKugel.pas'; var derBildschirm : Bildschirm; dieMaus : Maus; meineKugel : Kugel; meinStift : Stift; begin // Initialisierung derBildschirm := Bildschirm.init; dieMaus := Maus.init; meineKugel := Kugel.init; meinStift := Stift.init; // Aktionsteil meinStift.bewegeBis(10, 10); meinStift.zeichneRechteck(450, 350); // Zeichnen des Rahmens meineKugel.zeichne; repeat meineKugel.bewege; until dieMaus.istGedrueckt; // Aufräumen meinStift.gibFrei; meineKugel.gibFrei; dieMaus.gibFrei; derBildschirm.gibFrei end.