Code:
Do
Initialisierung
Lcdloeschen

'Udata &H7F
'Udata &H02
'Udata &H04
'Udata &H02
'Udata &H7F
'Udata &H00

Restore A
For X = 1 To 6
Read Ziff
Udata Ziff
Next X

Restore B
For X = 1 To 6
Read Ziff
Udata Ziff
Next X

Restore C
For X = 1 To 6
Read Ziff
Udata Ziff
Next X

Restore B1
For X = 1 To 6
Read Ziff
Udata Ziff
Next X

Wait 2

Loop
Und so habe ich ABCb auf dem Display.