Hier sind einige Hinweise für meine Lehrveranstaltung.
PROCEDURE ClearScreen IS
BEGIN
Ada.Text_IO.New_Line;
Ada.Text_IO.Put (ASCII.ESC);
Ada.Text_IO.Put ("[2J");
END ClearScreen;
Oder als Paket: screen.adb - screen.ads - Screentest Program