unit infkeret;

interface
uses crt,dos,graph;

{R+ S+}

{$I InfDef.inc} (* A valtozokhoz *)
{$I InfHdr.inc} (* Az eljarasok fejlecei *)

implementation

{$I InfElj.INC} (* Az eljarasok kifejtve *)

Procedure Foprogram(focim,alcim,grafcim:string; hol:PathStr; var mxi,mxj:integer;cse,le:boolean; T:Tomb; P:ParamT);
begin
  PrFeltolt(P);
  dosindul(mxi,P[PrHely('S',P)].ertek,P); inic(hol,vegee);
  indertekbeallit(t,p,mxi,P[PrHely('S',P)].ertek,mxj,cse,le);
  fokeretrajzol(focim);
  alkeretrajzol(alcim,grafcim,p, pba1,pba2,pba3,pba4,mxi,mxj,cse,le);
  repeat
    billrevar(vegee,t,p,focim,alcim,grafcim,mxi,mxj,cse,le);
  until (vegee);
  cleardevice;
  closegraph;
end;

begin
  {repeat
    foprogram(' Szimul ci˘ ','Demogr fiai modell','Korcsoportonk‚nti megoszl s:',hol,mxi,mxj,cse,le,t,p);
    write('Ism‚t? (ak r m s adatokkal) '); readln(legvege);
  until (upcase(legvege)='N');}

{Foprogram:
  Inic - graf
  FokeretRajzol;
  For i:=1 to 5 do begin
    alkereteketRajzol(keret[i],keretcim[i]);
  cv.
  szim_idop:=ind_ertek;
  tombNullaz(T);
  Ciklus...
    billreVar(bill)
  c. amig (bill='kilep')
vege}
end.