anchor.diff:      end;
   
      Soupravy.soupravy[(Blk as TBlkUsek).Souprava].ChangeSmer();
  -   writelog('Obsazen smyckovy usek '+Blk.GetGlobalSettings.name+ ' - menim smer loko v souprave '+Soupravy.soupravy[(Blk as TBlkUsek).Souprava].nazev, WR_SPRPREDAT);
  +   writelog('Obsazen smyckovy usek '+Blk.GetGlobalSettings.name+ ' - menim smer loko v souprave '+
  +      Soupravy.soupravy[(Blk as TBlkUsek).Souprava].nazev, WR_SPRPREDAT);
     end;//if
   end;//procedure
   
  
positive.code:   (UsekDalsi as TBlkUsek).AddSoupravaL(spri);
    Soupravy.soupravy[(UsekDalsi as TBlkUsek).Souprava].front := UsekDalsi;
    (UsekDalsi as TBlkUsek).houk_ev_enabled := true;
    writelog('JC '+Self.nazev+': predana souprava '+Soupravy.GetSprNameByIndex((UsekDalsi as TBlkUsek).Souprava)+' z bloku '+UsekActual.GetGlobalSettings().name+' do bloku '+UsekDalsi.GetGlobalSettings().name,WR_SPRPREDAT, 0);
  
    Self.CheckSmyckaBlok(UsekDalsi);
   end;//procedure
  
negative.code:           (Blk as TBlkUsek).RemoveSouprava(spri);
           end;
  
          writelog('JC '+Self.nazev+': smazana souprava '+Soupravy.GetSprNameByIndex(spri)+
            ' z bloku '+Usek.GetGlobalSettings().name, WR_SPRPREDAT, 0);
          (Usek as TBlkUsek).RemoveSoupravy();
         end;
  