http://www.adaconcept.com/programs/ontozorendszeres_szimulacio/szimulacio-ontozorendszer-megjelenito.ads
-- Azzal, hogy ennek a csomagnak van egy gyerekcsomagja a Muveletek, elkerultuk az elaboracios kort.
-- Figyeljuk meg a Szimulacio.Ontozorendszer.Elemek es a Szimulacio.Ontozorendszer.Megjelenito.Muveletek fuggosegeit ("Context clause")
package Szimulacio.Ontozorendszer.Megjelenito is
Maximalis_Oszlopszam : constant := 80;
Maximalis_Sorszam : constant := 25;
Ures_Hely_Karakter : constant Character := ' ';
type String_Tomb_Tipus is array(Positive range <>) of String(1 .. Maximalis_Oszlopszam);
Ures_String_Tomb_Ertek : constant String_Tomb_Tipus := (2..1 => (others => Ures_Hely_Karakter)); -- extremalis ertek
subtype Megjelenitheto_Kep is String_Tomb_Tipus(1 .. Maximalis_Sorszam); -- figyeljuk meg az altipust
Ures_Megjelenitheto_Kep_Ertek : constant Megjelenitheto_Kep := (others => (others => Ures_Hely_Karakter));
end Szimulacio.Ontozorendszer.Megjelenito;