127 begin

   127 begin

   128 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/flag"', true);

   128 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/flag"', true);

   129 if s[1]='"' then Delete(s, 1, 1);

   129 if s[1]='"' then Delete(s, 1, 1);

   130 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);

   130 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);

   131 CurrentTeam^.flag:= s

   131 CurrentTeam^.flag:= s

   132 end;

   139 end;

   133 

   140 

   134 procedure chAddHH(var id: shortstring);

   141 procedure chAddHH(var id: shortstring);

   135 var s: shortstring;

   142 var s: shortstring;

   136     Gear: PGear;

   143     Gear: PGear;