sub read_in
{
    my ($botschaft_bin, $botschaft_hex);
    open (FILE, "CCO_Quelldatei/Trigger/RC0.CCO");
    binmode (FILE);

    seek (FILE, 1024, 0);

    until (substr($botschaft_hex,0,10) =~ m/f{10,}/ && $botschaft_hex !~ /f{32,}/)
   {
    ######################################################################
        read (FILE, $botschaft_bin, 16);
        $botschaft_hex = unpack ("H32", $botschaft_bin);

        ######################################################################
   		
        push (@botschaften_gesamt, $botschaft_hex);
    }

    close (FILE);

    return (\@botschaften_gesamt);
}