Program Executor;
Uses Cell,Crt,Graph;
{****************************************************************************}
 Begin
 Ig;
 Rule := Life;
 A:=Round(Xx/2);B:=Round(Yy/2);
  Header(0,0);
   Repeat
      Ch:=ReadKey;
     Case Ch of
     Tab  : ChangeAlg;
     F1   : Header(0,0);
     F2   : Save;
     F3   : Load;
     F4   : Editor;
     F5   : RandomMap;
     F6   : Begin Sound(400); Delay(50); NoSound; Algoritm end;
     F7   : Repeat Sound(50); Delay(100); NoSound; Algoritm until KeyPressed;
     F8   : Begin Sound(700); Delay(100); NoSound; ClearMap(False) end;
     F9   : OutAllMap;
     F10  : Begin Sound(3000); Delay(100); NoSound; CloseGraph; Exit end;
     end;
    Until False;
  CloseGraph;
 End.