################################################################################
sub read_in
{
    my ($botschaft_bin) = "\x00" x 16;


    open FILE, "CCO_Quelldatei/Trigger/RC0.CCO");
    binmode (FILE);

        seek (FILE, 1024, 0);

    until (substr($botschaft_bin,0,5) eq "\xFF" x 5 && $botschaft_bin ne "\xFF" x 16)
    {

        ######################################################################
       #Einlesen einer Botschaft des cco.files -> i.O.
        read (FILE, $botschaft_bin, 16);

        ######################################################################
       #Triggerabfrage und Speichern 
       if (substr($botschaft_bin,5,1) eq "\x40")    {
            push(@triggerzeitpunkt, substr($botschaft_bin,0,5));
        }

           ######################################################################
       #in der Botschaftsstruktur abspeichern

        push (@botschaften_gesamt, $botschaft_bin);
       }
    close (FILE);
}
################################################################################