sirload16.m: Reads 16 bit SIR10 DZT files

function [ladedat]=sirload16(Dateiname)
% Read Sir10-DZT-Files 
%         (Extension must be given)
% 
% File size is fixed to 256 Samples per Scan
%
% Aufruf: zielvariable=sirload('Pfad+Dateiname');
% $Id: sirload16.m,v 1.2 1996/01/08 15:03:13 aperrig Exp aperrig $
%

Anweisung=['fid=fopen(''' Dateiname ''');'];
eval(Anweisung);
groesse=[1024,inf];
a=fread(fid,groesse, 'uint8' );
% a(:,1)=a(:,2);
% a=a-128;
[m,n] = size( a );

ladedat = a(1:2:m,:) + 256 * a(2:2:m,:);

ladedat = ladedat( 5:(m/2), 5:n );

end