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;