sub user_informieren ($) {
    #--------------------------------------------------------------------------
    # sub          : u s e r _ i n f o r m i e r e n
    #--------------------------------------------------------------------------
    # Autor        : CD
    # Aufgabe      : Informiert den User über den Fortschritt des Programms.
    #                Dies erfolgt in Form der Anpassung des Fortschrittbalkens.
    # Parameter    : Anzahl Zeichen in der aktuellen Zeile.
    # Rückgabewert : keiner
    #--------------------------------------------------------------------------
    # 0.0.1 - 21.04.2004 - CD - Erstellt
    #--------------------------------------------------------------------------

    $Konfig{accsize} += 1 + shift; # + 1 für das 2. Zeichen des Zeilenumbruchs

    if ($Konfig{gui}) {
        $Konfig{mw}->Unbusy();
        $Konfig{fsb}->value(int (100 * $Konfig{accsize} / $Konfig{maxsize}));
        $Konfig{mw}->update();
        $Konfig{mw}->Busy();
    }
    else {
        local $| = 1;
        if ( $Konfig{accsize} / $Konfig{maxsize} >= $Konfig{accperc} ) {
            print '#';
            $Konfig{accperc} += 0.0125;
            print "\n\n" if $Konfig{accsize} == $Konfig{maxsize};
        }
    }

} # sub user_informieren