sub Add2ByteInInt {
	my $byte1 = shift;
	my $byte2 = shift;

#  Da fehlt das zusammenzählen

	return (chr($int));
}