So habe jetzt das Profil noch ein wenig optimiert

Das Programm habe ich mit einem weiteren Unterprogramm von 160 auf 80 Zeilen verkürzt