function [m,d] = aufinfo(filename)
%AUFINFO Text description of AU file contents.
%

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

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