anchor.diff:  
   
   procedure TKMSoundPlayer.Paint;
  -var I: Integer;
  +var
  +  I: Integer;
   begin
     gRenderAux.CircleOnTerrain(fListener.Pos[1], fListener.Pos[2], MAX_DISTANCE, $00000000, $FFFFFFFF);
     for I := Low(fALSounds) to High(fALSounds) do
  
positive.code: 
  
  procedure TKMSoundPlayer.AbortAllLongSounds;
  var I: Integer;
  begin
    if SKIP_SOUND or not fIsSoundInitialized then Exit;
  
  
negative.code:   end;
  
    //Set active context
    I := alcMakeContextCurrent(context);
    Set8087CW($133F); //Above OpenAL call messes up FPU settings
    if I > 1 then begin //valid returns are AL_NO_ERROR=0 and AL_TRUE=1
      gLog.AddNoTime('OpenAL warning. Context could not be made current.');
  