uses wincrt;
var
sec:char;
procedure bolum1;
begin
end;
procedure bolum2;
begin
end;
procedure bolum3;
begin
end;
procedure menu;
begin
repeat
clrscr;
gotoxy(30,6);write('1-hareket giris-çıkıs');
gotoxy(30,8);write('2-hareket listesi ');
gotoxy(30,10);write('3-cari bilgi girişi ');
gotoxy(30,12);write('c-çıkıs ');
gotoxy(30,14);write('seçiminiz:');
repeat
sec:=upcase(readkey);
until sec in ['1','2','3','c'];
case sec of
'1':bolum1;
'2':bolum2;
'3':bolum3;
'c':exit;
end;
until false;
end;
begin
menu;
end.