Programalama > PASCAL

uses crt;
var
tus:char; sat:integer;
procedure yenikayit;
begin
clrscr;
end;
procedure ekleme;
begin
end;
procedure arama;
begin
end;
procedure listeleme;
begin
end;
procedure silme;
begin
end;
procedure degistir;
begin
end;
procedure menu;
begin
textcolor(3);gotoxy(25, 10); write('Yeni Kayt');
textcolor(4);gotoxy(25, 11); write('Ekleme');
textcolor(5);gotoxy(25, 12); write('Arama');
textcolor(6);gotoxy(25, 13); write('Listeleme');
textcolor(8);gotoxy(25, 14); write('Silme');
textcolor(9);gotoxy(25, 15); write('De§iŸtirme');
end;
procedure yap;
begin
case sat of
10:yenikayit;
11:ekleme;
12:arama;
13:listeleme;
14:silme;
15:degistir;
end;
end;
procedure kontrol;
begin
repeat
tus:=readkey;
if tus=#0 then
begin
tus:=readkey;
if tus=#72 then sat:=sat-1; if sat<10 then sat:=15;
if tus=#80 then sat:=sat+1; if sat>15 then sat:=10;
gotoxy(25, sat);
end;
until tus=#27;
yap;
end;
begin {ana program}
clrscr;
menu;
kontrol;
end.