anchor.diff:  
   implementation
   
  -uses AreaDb, TCPServerPanel, ownConvert;
  +uses AreaDb, TCPServerPanel, ownConvert, FileSystem;
   
   constructor TBlkIO.Create(index: Integer);
   begin
  
positive.code: 
    if (Self.isRCSOutput) then
    begin
      ini_tech.WriteInteger(section, 'RCSb0', Self.m_settings.RCSoutput.board);
      ini_tech.WriteInteger(section, 'RCSp0', Self.m_settings.RCSoutput.port);
      ini_tech.WriteBool(section, 'RCSn0', Self.m_settings.RCSoutputNeeded);
    end;
    if (Self.isRCSinput) then
    begin
      ini_tech.WriteInteger(section, 'RCSbi', Self.m_settings.RCSinput.board);
      ini_tech.WriteInteger(section, 'RCSpi', Self.m_settings.RCSinput.port);
      ini_tech.WriteBool(section, 'RCSni', Self.m_settings.RCSinputNeeded);
    end;
  
  
negative.code:   Self.m_settings.isRCSOutput := false;
    Self.m_settings.isRCSinput := false;
  
    Self.m_settings.isRCSOutput := (ini_tech.ReadString(section, 'RCSout', '') <> '') or (ini_tech.ReadInteger(section, 'RCSb0', -1) <> -1);
    if (Self.m_settings.isRCSOutput) then
    begin
      Self.m_settings.RCSoutput := RCSFromIni(ini_tech, section, 'RCSout', 'RCSb0', 'RCSp0');
      Self.m_settings.RCSoutputNeeded := ini_tech.ReadBool(section, 'RCSn0', true);
    end;
  
    Self.m_settings.isRCSinput := (ini_tech.ReadString(section, 'RCSin', '') <> '') or (ini_tech.ReadInteger(section, 'RCSbi', -1) <> -1);
    if (Self.m_settings.isRCSinput) then
    begin
      Self.m_settings.RCSinput := RCSFromIni(ini_tech, section, 'RCSin', 'RCSbi', 'RCSpi');
      Self.m_settings.RCSinputNeeded := ini_tech.ReadBool(section, 'RCSni', true);
    end;
  
    Self.LoadAreas(ini_rel, 'POM').Free();
  