function [m,d] = wavfinfo(filename)
%WAVFINFO Text description of WAV file contents.
%

% Copyright 1984-2000 The MathWorks, Inc. 
%   $Revision: 1.2 $  $Date: 2000/06/01 04:18:04 $

try
    m = 'Sound (WAV) file';
    d = wavread(filename, 'size');
    d = sprintf('Sound (WAV) file containing: %d samples in %d channel(s)', ...
                d(1), d(2));
catch
    m = '';
    d = 'Not a WAVE file';
end    
