anchor.diff:        Result := Result + 'AKTIV>,';
     end;
     Result := Result + 'STIT,';
  +
  +  if ((RCSi.simulation) and (Self.m_settings.rcsController.enabled)) then
  +  begin
  +    try
  +      if (RCSi.GetInput(Self.m_settings.rcsController.addr) = isOn) then
  +        Result := Result + '-,*RAD<,'
  +      else
  +        Result := Result + '-,*RAD>,';
  +    except
  +      on E: RCSException do begin end;
  +      on E: Exception do raise;
  +    end;
  +  end;
   end;
   
   procedure TBlkDisconnector.PanelMenuClick(SenderPnl: TIdContext; SenderOR: TObject; item: string; itemindex: Integer);
   begin
     if (item = 'STIT') then
  -    Self.MenuStitClick(SenderPnl, SenderOR);
  +    Self.MenuStitClick(SenderPnl, SenderOR)
  +  else if (item = 'RAD>') then
  +    Self.MenuAdminRadOnClick(SenderPnl, SenderOR)
  +  else if (item = 'RAD<') then
  +    Self.MenuAdminRadOffClick(SenderPnl, SenderOR);
   
     if (Self.IsActiveByController()) then
       Exit();
  
positive.code:     procedure MenuStitClick(SenderPnl: TIdContext; SenderOR: TObject);
      procedure MenuAktivOnClick(SenderPnl: TIdContext; SenderOR: TObject);
      procedure MenuAktivOffClick(SenderPnl: TIdContext; SenderOR: TObject);
  
      function IsActive(): Boolean;
      function IsActiveByController(): Boolean;
  
negative.code:   Self.state := TBlkDiscBasicState.inactive;
  end;
  
  procedure TBlkDisconnector.MenuAdminRadOnClick(SenderPnl: TIDContext; SenderOR: TObject);
  begin
    if (not Self.m_settings.rcsController.enabled) then
      Exit();
  
    try
      RCSi.SetInput(Self.m_settings.rcsController.addr, 1);
    except
      PanelServer.BottomError(SenderPnl, 'Simulace nepovolila nastaven RCS vstup!', TArea(SenderOR).ShortName,
        'SIMULACE');
    end;
  end;
  
  procedure TBlkDisconnector.MenuAdminRadOffClick(SenderPnl: TIDContext; SenderOR: TObject);
  begin
    if (not Self.m_settings.rcsController.enabled) then
      Exit();
  
    try
      RCSi.SetInput(Self.m_settings.rcsController.addr, 0);
    except
      PanelServer.BottomError(SenderPnl, 'Simulace nepovolila nastaven RCS vstup!', TArea(SenderOR).ShortName,
        'SIMULACE');
    end;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  function TBlkDisconnector.IsActive(): Boolean;
  