anchor.diff:        Result := Result + '*ZRUŠ REDUKCI,';
     end;
   
  -  if ((RCSi.simulation) and (Self.posDetection)) then
  +  if (RCSi.simulation) then
     begin
       Result := Result + '-,';
  -    if (Self.position <> TTurnoutPosition.plus) then
  -      Result := Result + '*POL+,';
  -    if (Self.position <> TTurnoutPosition.minus) then
  -      Result := Result + '*POL-,';
  -    if (Self.position <> TTurnoutPosition.none) then
  -      Result := Result + '*NEPOL,';
  +
  +    if (Self.posDetection) then
  +    begin
  +      if (Self.position <> TTurnoutPosition.plus) then
  +        Result := Result + '*POL+,';
  +      if (Self.position <> TTurnoutPosition.minus) then
  +        Result := Result + '*POL-,';
  +      if (Self.position <> TTurnoutPosition.none) then
  +        Result := Result + '*NEPOL,';
  +    end;
  +
  +    if (Self.m_settings.controllers.enabled) then
  +    begin
  +      try
  +        var plus := (RCSi.GetInput(Self.m_settings.controllers.rcsPlus) = isOn);
  +        var minus := (RCSi.GetInput(Self.m_settings.controllers.rcsMinus) = isOn);
  +
  +        if (not plus) then
  +          Result := Result + '*RAD+,';
  +        if (not minus) then
  +          Result := Result + '*RAD-,';
  +        if (plus or minus) then
  +          Result := Result + '*RAD?,';
  +      except
  +        on E: RCSException do begin end;
  +      end;
  +    end;
     end;
   end;
   
  
positive.code:     procedure UPONSMinusClick(Sender: TObject);
  
      procedure MenuAdminREDUKClick(SenderPnl: TIDContext; SenderOR: TObject);
      procedure MenuAdminPolPlusCLick(SenderPnl: TIDContext; SenderOR: TObject);
      procedure MenuAdminPolMinusCLick(SenderPnl: TIDContext; SenderOR: TObject);
      procedure MenuAdminNepolCLick(SenderPnl: TIDContext; SenderOR: TObject);
  
      procedure PanelPotvrSekvNSPlus(Sender: TIDContext; success: Boolean);
      procedure PanelPotvrSekvNSMinus(Sender: TIDContext; success: Boolean);
  
negative.code:   end;
  end;
  
  procedure TBlkTurnout.MenuAdminRadPlusCLick(SenderPnl: TIDContext; SenderOR: TObject);
  begin
    if (not Self.m_settings.controllers.enabled) then
      Exit();
  
    try
      RCSi.SetInput(Self.m_settings.controllers.rcsPlus, 1);
      RCSi.SetInput(Self.m_settings.controllers.rcsMinus, 0);
    except
      PanelServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TArea(SenderOR).ShortName,
        'SIMULACE');
    end;
  end;
  
  procedure TBlkTurnout.MenuAdminRadMinusCLick(SenderPnl: TIDContext; SenderOR: TObject);
  begin
    if (not Self.m_settings.controllers.enabled) then
      Exit();
  
    try
      RCSi.SetInput(Self.m_settings.controllers.rcsPlus, 0);
      RCSi.SetInput(Self.m_settings.controllers.rcsMinus, 1);
    except
      PanelServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TArea(SenderOR).ShortName,
        'SIMULACE');
    end;
  end;
  
  procedure TBlkTurnout.MenuAdminRadNepolCLick(SenderPnl: TIDContext; SenderOR: TObject);
  begin
    if (not Self.m_settings.controllers.enabled) then
      Exit();
  
    try
      RCSi.SetInput(Self.m_settings.controllers.rcsPlus, 0);
      RCSi.SetInput(Self.m_settings.controllers.rcsMinus, 0);
    except
      PanelServer.BottomError(SenderPnl, 'Simulace nepovolila nastavení RCS vstupů!', TArea(SenderOR).ShortName,
        'SIMULACE');
    end;
  end;
  
  /// /////////////////////////////////////////////////////////////////////////////
  
  function TBlkTurnout.ShowPanelMenu(SenderPnl: TIDContext; SenderOR: TObject; rights: TAreaRights): string;
  