anchor.diff:      function RealZesZkrat():TBoosterSignal;
       function CanStandSouprava():boolean;
       function CanBeNextVB(vbs: TList<TObject>; start: TBlk):boolean;
  -
  +    function CanBeKC(vbs: TList<TObject>; start: TBlk):boolean;
   
     protected
      UsekSettings:TBlkUsekSettings;
  
positive.code:  end;
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  
negative.code:  Blk := Blky.GeTBlkNavZacatekVolba((SenderOR as TOR).id);
   if (Blk <> nil) then
    begin
     if ((Self.CanBeKC((SenderOR as TOR).vb, blk)) or Self.CanBeNextVB((SenderOR as TOR).vb, blk)) then
       Result := Result + '-,';
     if (Self.CanBeKC((SenderOR as TOR).vb, blk)) then
       Result := Result + 'KC,';
     if (Self.CanBeNextVB((SenderOR as TOR).vb, blk)) then
       Result := Result + 'VB,';
    end;
  
   // pokud mame knihovnu simulator, muzeme ridit stav useku
  