{****************************************************}
{********* Girilen Sayýlarý Lineer Sýralar **********}
{****************************************************}


Uses Crt;
Const
  Secenek_Sayisi = 9; { Secenek Sayisi [1..9] arasinda olabilir...}
  EkranRengi     = 1;
  YaziRengi      = 0;
  ZeminRengi     = 6;
  MenuYaziRengi  = 0;
  MenuZeminRengi = 7;
  SeritZeminRengi= 7;
  SeritYaziRengi = 15;
  Baslik         = '     T - U   B i l g i s a y a r ' +
                   ' A n a d o l u   T e k n i k'+
                   ' L i s e s i';
Var
  k     : Byte;
  Secim : Byte;


Procedure Menu;
Var
  Secenek : Array [1..9] Of String[17];
  Ch      : Char;

Begin
  Secenek[1] := ' Secenek.......1 ';
  Secenek[2] := ' Secenek.......2 ';
  Secenek[3] := ' Secenek.......3 ';
  Secenek[4] := ' Secenek.......4 ';
  Secenek[5] := ' Secenek.......5 ';
  Secenek[6] := ' Secenek.......6 ';
  Secenek[7] := ' Secenek.......7 ';
  Secenek[8] := ' Secenek.......8 ';
  Secenek[9] := ' Secenek.......9 ';


  TextBackGround (EkranRengi);
  ClrScr;
  TextColor (SeritYaziRengi); TextBackGround (SeritZeminRengi);

  GotoXy (1, 1); For k := 1 To 80 Do Write (' ');
  GotoXy (1, 1); Write (Baslik);
  GotoXy (1, 25); For k := 1 To 79 Do Write (' ');

  TextColor (1); TextBackGround (0);
  For k := 7 to 09 + Secenek_Sayisi do
    Begin
      GotoXy (31, k); Write ('                   ');
    End;
  GotoXy (30, 8); Write ('                   Ä');
  TextColor (SeritYaziRengi); TextBackGround (ZeminRengi);
  For k := 6 to 8 + Secenek_Sayisi do
    Begin
      GotoXy (30, k); Write ('                   ');
    End;
  GotoXy (30, 7); Write ('ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
  GotoXy (30, 6); Write ('  A N A  M E N U  ');

  Repeat
    For k := 1 To Secenek_Sayisi Do
      Begin
        TextColor (YaziRengi); TextBackGround (ZeminRengi);
        GotoXy (31, 7 + k); Write (Secenek[k]);
      End;
    TextColor (MenuYaziRengi); TextBackGround (MenuZeminRengi);
    GotoXy (31, 7 + Secim); Write (Secenek[Secim]);

    TextColor (SeritYaziRengi); TextBackGround (SeritZeminRengi);
    GotoXy (3, 25); Write (Secenek[Secim]);
    TextColor (4); TextBackGround (SeritZeminRengi);
    GotoXy (2, 25); Write (#16);
    GotoXy (80, 25);

    Ch := ReadKey;
    Case Ch Of
       #0: Begin
             Ch := ReadKey;
             Case Ch Of
               #72: Begin
                      Secim := Secim - 1;
                      If Secim < 1 Then Secim := Secenek_Sayisi;
                    End;

               #80: Begin
                      Secim := Secim + 1;
                      If Secim > Secenek_Sayisi Then Secim := 1;
                    End;
             End;
           End;
      #13: Exit;
      #27: Halt;
    End;
  Until Ch = #13 ;

End;

Begin
  Secim := 1;
  Repeat
    Menu;
    Case Secim Of
      1: ; {  Secenek ----- 1 Seceneklerde calisacak Procedure Adlari Yazilacak }
      2: ; {  Secenek ----- 2  }
      3: ; {  Secenek ----- 3  }
      4: ; {  Secenek ----- 4  }
      5: ; {  Secenek ----- 5  }
      6: ; {  Secenek ----- 6  }
      7: ; {  Secenek ----- 7  }
      8: ; {  Secenek ----- 8  }
      9: ; {  Secenek ----- 9  }
    End;
  Until 1=2;
End.