--Rotter Gyorgy
--Szoveg kiirasa karakterkiiro taszkokkal... :) (nem lesz egyszeru... :) )

with Kiirok_Csomag;                    --sajat, igen bonyolult csomagunk :)


procedure parhuzamosankiir is
  idezet:constant Kiirok_Csomag.M_String:=new string'("Nehezebb eltorni a faragatlan fat.");   --ezt az idezetet irjuk majd ki

  Karakter_Kiiro_Taszkok:Kiirok_Csomag.IdezetTipus(idezet,idezet.all'length);                  --ld. specifikacio


begin
   Kiirok_Csomag.Kepernyo.Sortores;
   Kiirok_Csomag.Kepernyo.Kiir("Parhuzamos program indul");
   Kiirok_Csomag.Kepernyo.Sortores;
   Kiirok_Csomag.Kepernyo.Kiir("Parhuzamos program vege");
   Kiirok_Csomag.Kepernyo.Sortores;
end parhuzamosankiir;