function [par, out]=lochstreifen(datei)
x=imread(datei);
loecher=(mean(x,2));
[temp transportloch]=max(loecher(50:62));
transportloch=transportloch+50;
treffer=0;
old=0;
for i=1:size(x,2)
	if (old==0)&&(x(transportloch,i)==1)
%		disp(i);
		if (size(x,2)>i+3)
			treffer=treffer+1;
			daten(:,treffer)=x(:,i+3);
		end
	end
	old=x(transportloch,i);
end
bits=[-44,-30,-15,15,30,44,57];
bits=bits+transportloch
parity=max(bits)+15;
daten;
for i=1:7
	for j=1:treffer
		ausgabe(i,j)=0;
		if mean(daten(bits(i)-2:bits(i)+2,j))>0
			ausgabe(i,j)=1;
		end
	end
end
%for i=1:7
%		ausgabe(i,:)=daten(bits(i),:);
%end
for j=1:treffer
	paritybits(j)=0;
	if mean(daten(parity-2:parity+2,j))>0
		paritybits(j)=1;
	end
end
streifen=ausgabe';
%streifen
streifendez=streifen(:,1)+streifen(:,2)*2+streifen(:,3)*4+streifen(:,4)*8+streifen(:,5)*16+streifen(:,6)*32+streifen(:,7)*64;
paritycheck=mod(sum(streifen,2),2);
par=sum(abs(paritycheck-paritybits'))
out=char(streifendez');
ausgabedatei=fopen('out.txt','a');
fwrite(ausgabedatei,out);
fclose(ausgabedatei);