anchor.diff:  
   
   procedure TKMMusicLib.FadeMusic;
  +begin
  +  FadeMusic(FADE_TIME);
  +end;
  +
  +
  +procedure TKMMusicLib.FadeMusic(aFadeTime: Integer);
   {$IFDEF USELIBZPLAY}
   var
     startTime, endTime: TStreamTime;
  
positive.code:     fFadedToPlayOther := False;
      UnfadeMusic(False);
    end;
  end;
  
  
  
negative.code:                   end
                    else
                    //Start playback of other file half way through the fade
                    if (GetTimeSince(fFadeStarted) > fFadeTime div 2)
                      and (fToPlayAfterFade <> '') then
                    begin
                      fFadedToPlayOther := True;
  