function fourcc = makefourcc(code)
% Make a four character code out of four characters
% This is documented in the MSDN for the mmioFOURCC routine.

%   $Revision: 1.1 $  $Date: 2000/01/30 16:14:31 $
code = double(code);
fourcc = bitor( bitor( bitor(code(1),bitshift(code(2),8)) , ...
			  bitshift(code(3),16)),bitshift(code(4),24));
