uses graph,crt,constr;
var
key:char;
g:string;
label 11;

Begin
{ DirectVideo:=False;}
 gd:=Detect;
 gm:=IBM8514Lo;
 Initgraph(gd,gm,'D:\bgi');
 pos1:=0;
 init_footballers('squad1.txt');
  Repeat
  A[1]:='    NEW GAME';
  A[2]:='     LOAD';
  A[3]:='     ABOUT';
  A[4]:='     EXIT ';
  u:=true;
  u1:=false;
  S:=' ';
   playzone.BallMenu(450,250,4,A,u,u1,S,pos1);
   case pos1 of
   1:goto 11;
   2:;
   3:;
   4:exit;
  end;
 Until pos1=4;
 begin 11:
  Repeat
  st[1]:='     ZENIT';
  st[2]:='    SPARTAK';
  st[3]:='     CSKA';
  st[4]:='  MAN.UNITED';
  st[5]:='   BARCELONA';
  st[6]:='     done  ';
   u:=true;
  u1:=false;
  S:=' ';
  playzone.menu(250,150,5,st,u,u1,s,pos2);
      case pos2 of
   1: begin team.init('zenit'); printer;team.changes;end;
   2: begin team.init('spartak');printer;team.changes; end;
   3: begin team.init('cska');printer;team.changes; end;
   4: begin team.init('man.united');printer;team.changes;end;
   5: begin team.init('barcelona');printer;team.changes;end;
   6: playzone.BallMenu(450,250,4,A,u,u1,S,pos1);
   end;

  Until ord(key)=27;
  end;
 End.