anchor.diff:  
   implementation
   
  -uses TCPServerPanel, ownConvert, Graphics, PTUtils, IfThenElse, BlockPst, RCSErrors;
  +uses TCPServerPanel, ownConvert, Graphics, PTUtils, IfThenElse, BlockPst,
  +    RCSErrors, UPO;
   
   constructor TBlkDisconnector.Create(index: Integer);
   begin
  
positive.code: 
  procedure TBlkDisconnector.MenuAktivOnClick(SenderPnl: TIdContext; SenderOR: TObject);
  begin
    Self.state := TBlkDiscBasicState.active;
  end;
  
  procedure TBlkDisconnector.MenuAktivOffClick(SenderPnl: TIdContext; SenderOR: TObject);
  
negative.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;
  