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