anchor.diff:  uses BlockDb, BlockTrack, TJCDatabase, TCPServerPanel, Graphics, BlockGroupSignal,
     GetSystems, Logging, TrainDb, BlockIR, AreaStack, ownStrUtils, BlockPst,
     BlockRailwayTrack, BlockRailway, BlockTurnout, BlockLock, TechnologieAB,
  -  predvidanyOdjezd, ownConvert, RCS, IfThenElse, RCSErrors;
  +  predvidanyOdjezd, ownConvert, RCS, IfThenElse, RCSErrors, UPO;
   
   constructor TBlkSignal.Create(index: Integer);
   begin
  
positive.code:   begin
      Self.m_state.selected := TBlkSignalSelection.none;
      Self.signal := ncPrivol;
    end else begin
      Self.selected := TBlkSignalSelection.none;
    end;
  
negative.code:   if ((Self.signal = ncPrivol) and (code = ncStuj)) then
    begin
      // STUJ po privolavacce -> vypnout zvukovou vyzvu
      Self.Log('Zhasnuta PN', ltMessage);
      for var area: TArea in Self.m_areas do
        Area.pnBlkCnt := area.pnBlkCnt - 1;
    end;
  