Program
  Hasznal;

Uses
  Crt,Graph2,Diagramm,Menu;

Var
  Cim         : AblakTulTip;
  SzimTer     : AblakTulTip;
  Param       : AblakTulTip;
  Grafikon    : AblakTulTip;
  GrafDiag    : TOszlDiag;
  Siker       : Boolean;
  i           : Word;
  MenuSor     : TMenuSor;
  MenuPont    : TMenuPont;
  MenuSiker   : Boolean;
  AktMenuPont : Byte;
  Enter       : Boolean;
  Bill        : Char;

{$i WindRajz.exp}
{$i DiagInit.exp}
{$i MenuInit.exp}


Begin
SetViewPort2(0,0,640,480,True);
  WindRajz; {exportalva: WindRajz.exp-bol}
  DiagInit; {exportalva: DiagInit.exp-bol}
  MenuInit; {exportalva: MenuInit.exp-bol}


Grafikon.Be;
  AktMenuPont:=1;
  GrafDiag.OszlopDiagRajz;
  MenuSiker:=MenuSor.MenuRajz;

  i:=0;
  Enter:=MenuSor.MenuReakcio(Bill,AktMenuPont);
  Repeat
    i:=i+1;
    If KeyPressed Then
      begin
        Bill:=ReadKey;
        If Bill=chr(0) Then Bill:=ReadKey;
        Enter:=MenuSor.MenuReakcio(Bill,AktMenuPont);
      end{then};
    If i<=GrafDiag.AdatSor.Db Then Siker:=GrafDiag.AktOszlopRajz;
    Delay(150);
{    If (Enter) and (AktMenuPont=1) Then i:=1;}
  Until Bill=chr(27);
Grafikon.Ki;



SzimTer.Be;
SzimTer.Ki;

End.