Super !!! habe das Display zum Leben erweckt.

Aber kann man folgendes nicht eleganter Lösen damit mein Program nicht so gross wird ? Hat jemand eine Idee?

Send = &B11000000 'Display init
Gosub _ser_output
Send = &B10100000 'Digit 0
Gosub _ser_output
Send = &B00011111 'Row 0
Gosub _ser_output
Send = &B00001110 'Row 1
Gosub _ser_output
Send = &B00000100 'Row 2
Gosub _ser_output
Send = &B00000100 'Row 3
Gosub _ser_output
Send = &B00000100 'Row 4
Gosub _ser_output
Send = &B00001110 'Row 5
Gosub _ser_output
Send = &B00011111 'Row 6