anchor.diff:    {$ENDIF}
   
     {$IFDEF USEBASS}
  -  BASS_Stop(); //Stop all Bass output
  +  BASS_Stop; //Stop all Bass output
     //Free the streams we may have used (will just return false if the stream is invalid)
     BASS_StreamFree(fBassStream);
     BASS_StreamFree(fBassOtherStream);
  -  BASS_Free(); //Frees this usage of BASS, allowing it to be recreated successfully
  +  BASS_Free; //Frees this usage of BASS, allowing it to be recreated successfully
     {$ENDIF}
   
     inherited;
  
positive.code:   if not BASS_Init(-1, 44100, 0, 0, nil) then
    begin
      fLog.AppendLog('Failed to initialize the music playback device');
      IsMusicInitialized := false;
    end;
    {$ENDIF}
  
    UpdateMusicVolume(aVolume);
  
    // Initialise TrackOrder
    for i := 1 to MusicCount do
    begin
      TrackOrder[i] := i;
    end;
  
    fLog.AppendLog('Music init done, '+inttostr(MusicCount)+' tracks found');
  end;
  
  
  
negative.code: end;
  
  
  procedure TMusicLib.PauseMusicToPlayFile(aFileName: string; aVolume: single);
  begin
    fOtherVolume := aVolume;
    if fFadeState in [fsNone, fsFadeIn] then
  