84 procedure chColor(var id: shortstring);

    84 procedure chColor(var id: shortstring);

    85 var c: integer;

    85 var c: integer;

    86 begin

    86 begin

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

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

    88 val(id, CurrentTeam.Color, c);

    88 val(id, CurrentTeam.Color, c);

    90 end;

    91 end;

    91 

    92 

    92 procedure chAdd(var id: shortstring);

    93 procedure chAdd(var id: shortstring);

    93 var s: shortstring;

    94 var s: shortstring;

    94     c: integer;

    95     c: integer;