ok anbei die unschöne Lösung:

Hier wird AFFE an ein 4 stelliges 7 Segment Anzeige (RN DIGI) ausgegeben.
Die Funktion Led_Display bekommt als 1. Übergabeparameter wird das jeweilige Segment ausgewählt (1-4)
Der 2. Übergabeparameter ist dann das Zeichen das ausgegeben wird

Code:
Text = "A"
Letter = Asc(text)
Led_display 1 , Letter

Text = "F"
Letter = Asc(text)
Led_display 2 , Letter

Text = "F"
Letter = Asc(text)
Led_display 3 , Letter


Text = "E"
Letter = Asc(text)
Led_display 4 , Letter