anchor.diff:  /// /////////////////////////////////////////////////////////////////////////////
   
   procedure TRCSdClient.SendOutput(addr: Integer);
  -var i: Integer;
  -  str: string;
  +var str: string;
     max: Cardinal;
   begin
     str := '';
     max := RCSi.GetModuleOutputsCountSafe(addr);
   
  -  for i := 0 to max - 1 do
  +  for var i := 0 to max - 1 do
     begin
       try
         str := str + IntToStr(RCSi.GetOutput(addr, i)) + '|';
  
positive.code: end;
  
  procedure TRCSd.RemoveAllClients();
  var i: Integer;
  begin
    for i := 0 to Self.clients.Count - 1 do
      Self.clients[i].Free();
  end;
  
  /// /////////////////////////////////////////////////////////////////////////////
  
  procedure TRCSd.Parse(Sender: TIdContext; parsed: TStrings);
  var i: Integer;
  begin
    parsed[2] := UpperCase(parsed[2]);
  
  
negative.code: /// /////////////////////////////////////////////////////////////////////////////
  
  function TRCSdClient.ModuleIndexOf(addr: Integer): Integer;
  begin
    Result := -1;
    for var i := 0 to Self.modules.Count - 1 do
      if (Self.modules[i].addr = addr) then
        Exit(i);
  end;
  