program petnash;
uses
 crt,graph,
 petnash1;{Модуль,содержащий основные подпрограммы}
Var
grDriver,grMode,ErrCode,men:integer;
Begin(*petnash*)
{Инициализация графического режима}
grDriver:=Detect;
InitGraph(grDriver, grMode,'');
ErrCode := GraphResult;
if ErrCode <> grOk
 then
 begin
Writeln('Graphics error:',GraphErrorMsg(ErrCode)); 
Writeln('Press - <ENTER>');
Readln;
Halt;
 end;
{Установка текущих параметров цвета и линии}
setcolor( 6); 
setlinestyle(0,0,1);
recod; {Считывание данных из файла с лучшими результатами}
repeat
 menu(men);{Процедура,обеспечивающая работу с меню}
 case men of
 0:game; {ИГРА}
 1:best; {ЛУЧШИЕ ИГРОКИ}
 2:help; {ОБ ИГРЕ}
end;(*case*)
until men=3; {ВЫХОД ИЗ ИГРЫ}
closegraph {Выход из графического режима в текстовой}
END.(*petnash*)