y = wavread('scanner16-48-m.wav');
delete 'scanner16-48-m.dat'
delete 'scanner16-48-m.hex'
len = length(y);

fid = fopen('scanner16-48-m.dat','w');

for i = 1:length(y) - 1,
	fprintf(fid,'%d, \n',(y(i)*32768));
end
    fprintf(fid,'\n' ,y(length(y))*32768);
fclose(fid);