function  putsound(y)
% write out a  wav file y. 
%
filename =  input('PutSound. Filename:  ','s');
Fs = input('sample Hz (11025,22050,44100): ');
  disp ('Creating Sound File' );
        disp(filename);
        wavwrite(y,Fs, 32,filename);
        
disp('Hit any key to listen:');
pause;
wavplay(y, Fs);
end
