function SoundPlay(data,samplerate)
% SoundPlay(data,[samplerate])
%
% SoundPlay is obsolete. See Snd.

% 6/10/96  dhb  Re-wrote as a call to SndPlay
% 2/7/98   dgp  Re-wrote as a call to Snd.
% 4/29/98  dhb Make call to Snd synchronous with close.

[m,n] = size(data);
if (m ~= 1 & m ~= 2)
	if (n == 1 | n == 2)
		data = data';
	end		
end

switch nargin
	case 0; Snd('Wait');
	case 1; Snd('Play',data); Snd('Wait'); Snd('Close');
	case 2; Snd('Play',data,samplerate); Snd('Wait'); Snd('Close');
end

