sub as_int
{
  my $x=shift;

  # nur 32 Bit
  $x=($x%2**32)*($x>0?1:-1);

  # Übergang bestimmen
  if($x < ((2**32)/2)*-1 || $x > ((2**32)/2)-1)
  { $x*=-1; }

  return x;
}