anchor.diff:            TBlkDiscBasicState.disabled, TBlkDiscBasicState.activeInfinite:
               PanelServer.Menu(SenderPnl, Self, (SenderOR as TArea), Self.ShowPanelMenu(SenderPnl, SenderOR, rights));
             TBlkDiscBasicState.inactive:
  -            Self.ActivateWithPossibleUPO(SenderPnl, SenderOR);
  +            if (not Self.PstIsActive()) then
  +              Self.ActivateWithPossibleUPO(SenderPnl, SenderOR);
             TBlkDiscBasicState.active, TBlkDiscBasicState.shortTimeRemaining:
  -            Self.Prolong();
  +            if (not Self.PstIsActive()) then
  +              Self.Prolong();
           end;
         end;
   
  
positive.code:   begin
      if (Self.active) then
        Result := Result + 'AKTIV<,'
      else if (Self.state <> TBlkDiscBasicState.disabled) then
        Result := Result + 'AKTIV>,';
    end;
    Result := Result + 'STIT,';
  
negative.code:     var state := RCSi.GetInput(Self.m_settings.rcsController.addr);
      if ((state = TRCSInputState.isOn) and (not Self.active)) then
        Self.state := TBlkDiscBasicState.activeInfinite;
      if ((state = TRCSInputState.isOff) and (Self.state = TBlkDiscBasicState.activeInfinite)) then
        Self.state := TBlkDiscBasicState.inactive;
    except
      on E: RCSException do Exit();
  