Interface

procedure menu_;

{Работа только с меню для обработки таблицы, описывающей работу с библиотекой данных }

Implementation

uses crt,Utable,utils;

var

stop:boolean;

Tbl:OTabl;

L:byte;

function run_menu:byte;{главное меню с основными пунктами работы}

begin

window(1,1,80,25);

clrscr;

gotoxy(1,1);

textcolor(15);

textbackground(11);

gotoxy(1,1); write(' Файл ');

gotoxy(11,1); write(' Таблица ');

gotoxy(72,1); write(' Выход ');

textbackground(1);

textcolor(7);

stop:=false;

L:=1;

case readkey of

#0: case readkey of

#75: if L>1 then dec(L);

#77: if L<3 then inc(L);

end;{case}

#13: begin

stop:=true;

run_menu:=L;

end;

end;

run_menu:=L;

textbackground(0);

window(1,1,80,25);

while not stop do

begin

case L of

1: Begin

gotoxy(1,1);

textcolor(15);

write(' Файл ');

help_line(' Операции с файлом');

end;

2: Begin

gotoxy(11,1);

textcolor(15);

write(' Таблица ');

help_line(' Операции с таблицей ');

end;

3: Begin

gotoxy(72,1);

textcolor(15);

write(' Выход ');

help_line(' Закончить работу ');

end;

end;{case}

case readkey of

#0: case readkey of

#75: if L>1 then dec(L);

#77: if L<3 then inc(L);

end;{case}

#13: begin

stop:=true;

run_menu:=L;

end;

end;

run_menu:=L;

textbackground(0);

window(1,1,80,25);

end;

end;

function pop_menu1:byte;{работа с первым пунктом меню}

var

stop:boolean;

begin

window(1,1,80,25);

clrscr;

textcolor(15);

textbackground(11);

gotoxy(2,1); write(' Открыть ');

gotoxy(2,2); write(' Сохранить ');

textbackground(1);

textcolor(7);

stop:=false;

L:=1;

while not stop do

begin

case L of