anchor.diff:  {$ENDIF}
   
   //ProcName can be case sensitive !!!
  -function alProcedure(ProcName : PChar) : Pointer;
  +function alProcedure(ProcName : PAnsiChar) : Pointer;
   begin
   Result := NIL;
   if Addr(alGetProcAddress) <> NIL then
  
positive.code:   procedure alutLoadWAVFile(fname: string; var format: TALenum; var data: TALvoid; var size: TALsizei; var freq: TALsizei; var loop: TALint);
    procedure alutLoadWAVMemory(memory: PALbyte; var format: TALenum; var data: TALvoid; var size: TALsizei; var freq: TALsizei; var loop: TALint);
    procedure alutUnloadWAV(format: TALenum; data: TALvoid; size: TALsizei; freq: TALsizei);
  {$ENDIF}
  
  var
  
negative.code: 
  implementation
  
  uses mmsystem;
  
  type
    //WAV file header
    TWAVHeader = record
      RIFFHeader: array [1..4] of AnsiChar;
      FileSize: longint;
      WAVEHeader: array [1..4] of AnsiChar;
      FormatHeader: array [1..4] of AnsiChar;
      FormatHeaderSize: longint;
      FormatCode: Word;
      ChannelNumber: Word;
      SampleRate: longint;
      BytesPerSecond: longint;
      BytesPerSample: Word;
      BitsPerSample: Word;
    end;
  