Code weiter verkuerzt/verallgemeinert (Lesbarkeit in alter Version
besser!)
-pgm einlesen grob implementiert