Program
  Hasznal;

Uses
  Crt,Graph2,Menu;

Var
  MenuSor     : TMenuSor;
  MenuPont    : TMenuPont;
  MenuSiker   : Boolean;
  AktMenuPont : Byte;
  Enter       : Boolean;
  Bill        : Char;

Begin
AktMenuPont:=1;

with MenuSor do
  begin
    X1             := 0;
    Y1             := 0;      {Menu bal also sarkanak koordinatai}
    Irany          := True;        {Menupontok elhelyezkedese: 0:sorfolytonos, 1:oszlopfolytonos}
    AktivMRajzSzin := LightGray;{Menu rajzolasi szine, ha kivalaszthato a menupont}
    PasszMRajzSzin := Black;    {Menu rajzolasi szine, ha nem kivalaszthato a menupont}
    AktualHSzin    := Yellow;   {Aktualis menupont hatterszine}
    NotAktualHSzin := Blue;     {Nem aktualis menupont hatterszine}
    MenuKoz        := 10;     {Menupontok oszlopai vagy sorai kozotti tavolsag}
    HatarSavSzel   := 3;
    MenuPont.Cimke:='Elso'; MenuPont.AktivE:=True; AddMenuPont(MenuPont);
    MenuPont.Cimke:='Masodik'; MenuPont.AktivE:=True; AddMenuPont(MenuPont);
    MenuPont.Cimke:='Harmadik (rejt)'; MenuPont.AktivE:=False; AddMenuPont(MenuPont);
    MenuPont.Cimke:='Negyedik'; MenuPont.AktivE:=True; AddMenuPont(MenuPont);
    MenuPont.Cimke:='Otodik'; MenuPont.AktivE:=True; AddMenuPont(MenuPont);
    MenuPont.Cimke:='Hatodik (rejt)'; MenuPont.AktivE:=False; AddMenuPont(MenuPont);
    MenuPont.Cimke:='Hetedik'; MenuPont.AktivE:=True; AddMenuPont(MenuPont);
    MenuSiker:=MenuRajz;
    Enter:=MenuReakcio(Bill,AktMenuPont);
    Repeat
      If KeyPressed Then
        begin
          Bill:=ReadKey;
          If Bill=chr(0) Then Bill:=ReadKey;
          Enter:=MenuReakcio(Bill,AktMenuPont);
        end{then};
    Until Bill=chr(27);
  end{with};


End.