anchor.diff:        else
           Result[2] := GetUPOLine('ID ' + IntToStr(bariera.param));
        end;
  -  end
  +  end;
  +
  +  _JCB_SPR_SMER : begin
  +    Result[0] := GetUPOLine('POZOR !', taCenter, clYellow, $A0A0A0);
  +    Result[1] := GetUPOLine('Jzda proti smru soupravy');
  +    Result[2] := GetUPOLine('Soprava ' + Soupravy.soupravy[Bariera.param].nazev);
  +  end;
   
    else
     Result[0] := GetUPOLine('Neznm barira ve stavn JC', taCenter, clRed, clWhite);
  
positive.code:     _JCB_HV_RUC                  = 100;
      _JCB_HV_NOT_ALL_RUC          = 101;
  
  
     private const
      _def_jc_staveni : TJCStaveni = (
  
negative.code:          bariery.Add(Self.JCBariera(_JCB_HV_NOT_ALL_RUC));
           break;
          end;
  
     // kontrola smeru soupravy
     if (Self.fproperties.TypCesty = TJCType.vlak) then
      begin
       if (((TBlkScom(Blk2).Smer = THVStanoviste.lichy) and (not Soupravy.soupravy[TBlkUsek(Blk).Souprava].sdata.smer_L)) or
           ((TBlkScom(Blk2).Smer = THVStanoviste.sudy) and (not Soupravy.soupravy[TBlkUsek(Blk).Souprava].sdata.smer_S))) then
         bariery.Add(Self.JCBariera(_JCB_SPR_SMER, nil, TBlkUsek(Blk).Souprava));
      end;
  
    end;
  end;//procedure
  