Programalama > PASCAL

uses crt;
const
menu:array[1..5] of string[20]=('kayit','listele','sil','arama','‡ks');
sat:array[1..5] of integer=(1,10,1,10,5);
sut:array[1..5] of integer=(1,1,20,20,10);
var
tus:char;
sayac:integer;
begin
clrscr;
for sayac:=1 to 5 do
begin
gotoxy(sut[sayac],sat[sayac]);
textbackground(BLACK);textcolor(WHITE);
write(menu[sayac]);
sayac:=1;
repeat
textbackground(cyan);
gotoxy(sut[sayac],sat[sayac]);
write(menu[sayac]);
tus:=readkey;
if tus=#0 then tus:=readkey;
if tus=#27 then halt;
if tus=#80  then
begin
textbackground(black);
gotoxy(sut[sayac],sat[sayac]);
write(menu[sayac]) ;
sayac:=sayac+1;
if sayac=6 then sayac:=1;
end;
begin
textbackground(black);
gotoxy(sut[sayac],sat[sayac]);
write(menu[sayac]);
sayac:=sayac-1;
if sayac=0 then sayac:=5;
end;
if (tus=#13) and (sayac=5) then halt;
until 1=2;
end;
end.

(Emre ALPARSLAN  www.emrealparslan.com)