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(fc,ac,grc:st; var hol:St; var mxi,mxj:integer; var cse,le,klm:log; var T:Tomb; var P:ParamT; var H:Hullt);
 Procedure lenyeg;
 begin
   repeat
     billrevar(vegee,klm,p,t,h,fc,ac,grc,mxi,mxj,cse,le);
   until (vegee);
 end;

begin
  if not(klm) then begin
    PrFeltolt(P);
    dosindul(mxi,P[5].ertek,P); inic(hol,vegee); (* PrHely('S',P) *)
    TombAbsNull(T,P,mxi,mxj);
    indertekbeallit(t,p,h,mxi,mxj,cse,le); (* PrHely['S',P] *)
    fokeretrajzol(fc);
    alkeretrajzol(ac,grc,p, pba1,pba2,pba3,pba4,mxi,mxj,cse,le);
  end
  else klm:=false;
    lenyeg;
  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.