anchor.diff:  
       procedure PrivolDKClick(SenderPnl: TIdContext; SenderOR: TObject; Button: TPanelButton);
       procedure PrivokDKPotvrSekv(Sender: TIdContext; success: Boolean);
  +    procedure PrivolBarriers(var barriers: TList<TJCBarrier>; SenderArea: TArea);
  +    procedure PrivolBarriersConfirmed(Sender: TObject);
  +    procedure PrivolBarriersRejected(Sender: TObject);
       procedure RNZPotvrSekv(Sender: TIdContext; success: Boolean);
   
       function GetTrackId(): TBlk;
  
positive.code: interface
  
  uses IniFiles, Block, Menus, AreaDb, SysUtils, Classes, rrEvent,
    TechnologieJC, IdContext, Generics.Collections, THnaciVozidlo,
    Area, StrUtils, JsonDataObjects, TechnologieRCS, Train, RegularExpressions;
  
  type
  
negative.code: uses BlockDb, BlockTrack, TJCDatabase, TCPServerPanel, Graphics, BlockGroupSignal,
    GetSystems, Logging, TrainDb, BlockIR, AreaStack, ownStrUtils, BlockPst,
    BlockRailwayTrack, BlockRailway, BlockTurnout, BlockLock, TechnologieAB,
    predvidanyOdjezd, ownConvert, RCS, IfThenElse, RCSErrors, UPO;
  
  constructor TBlkSignal.Create(index: Integer);
  begin
  