function beep(nBeeps)

% beep -- Audible beeps.
%  beep(nBeeps) emits nBeeps (default = 1).
 
% Copyright (C) 1997 Dr. Charles R. Denham, ZYDECO.
%  All Rights Reserved.
%   Disclosure without explicit written consent from the
%    copyright owner does not constitute publication.
 
% Version of 21-Jul-1998 18:10:14.

if nargin < 1, nBeeps = 1; end

if ischar(nBeeps), nBeeps = eval(nBeeps, '1'); end

if any(findstr(computer, 'MAC'))
	for i = 1:nBeeps
		system_dependent(1001)
	end
else
	for i = 1:nBeeps
		fprintf(1, '\a')
	end
end