anchor.diff:  /// /////////////////////////////////////////////////////////////////////////////
   
   procedure TRCSdClient.Update();
  -var i: Integer;
  -  module: TRCSdModule;
  -begin
  -  for i := 0 to Self.modules.Count - 1 do
  -  begin
  -    module := Self.modules[i];
  +begin
  +  for var i := 0 to Self.modules.Count - 1 do
  +  begin
  +    var module := Self.modules[i];
       if (module.output_changed) then
       begin
         module.output_changed := false;
  
positive.code: /// /////////////////////////////////////////////////////////////////////////////
  
  function TRCSdClient.ModuleIndexOf(addr: Integer): Integer;
  var i: Integer;
  begin
    Result := -1;
    for i := 0 to Self.modules.Count - 1 do
      if (Self.modules[i].addr = addr) then
        Exit(i);
  end;
  
negative.code: /// /////////////////////////////////////////////////////////////////////////////
  
  procedure TRCSdClient.SendOutput(addr: Integer);
  var str: string;
    max: Cardinal;
  begin
    str := '';
    max := RCSi.GetModuleOutputsCountSafe(addr);
  
    for var i := 0 to max - 1 do
    begin
      try
        str := str + IntToStr(RCSi.GetOutput(addr, i)) + '|';
  