522 if b = 0 then OutError(errmsgUnknownVariable + ' "' + id + '"', false)

   522 if b = 0 then OutError(errmsgUnknownVariable + ' "' + id + '"', false)

   523         else CurrentTeam^.Binds[b]:= s

   523         else CurrentTeam^.Binds[b]:= s

   524 end;

   524 end;

   525 

   525 

   526 procedure chTeamGone(var s:shortstring);

   526 procedure chTeamGone(var s:shortstring);

   528 begin

   528 begin

   529 t:= 0;

   529 t:= 0;

   530 while (t < cMaxTeams)

   530 while (t < cMaxTeams)

   531     and (TeamsArray[t] <> nil)

   531     and (TeamsArray[t] <> nil)

   532     and (TeamsArray[t]^.TeamName <> s) do inc(t);

   532     and (TeamsArray[t]^.TeamName <> s) do inc(t);