sirload256.m: Reads 8 bit SIR10 DZT files

function [ladedat]=sirload256(Dateiname)
% Read Sir10-DZT-Files 
%         (Extension must be given)
% 
% File size is fixed to 256 Samples per Scan
%
% Aufruf: zielvariable=sirload('Pfad+Dateiname');
%
Anweisung=['fid=fopen(''' Dateiname ''');'];
eval(Anweisung);
groesse=[256,inf];
a=fread(fid,groesse);
a(:,1)=a(:,2);
a=a-128;
ladedat=a;