Aus der PDF kopiert und in Bascom eingefügt, sind keine Leerzeilen mehr
vorhanden.
Ausgang ist als Byte deklariert, jedoch sind in den DATAs nur 7 Bit
hinterlegt. Die Bits würde ich immer komplett angeben.
Statt die Ausgänge bei jedem Durchgang zu invertieren, würde ich gleich
die Bits in den DATAs ändern.
Ansonsten bietet der Code noch Optimierbarkeit.
Wenn der unterste Strich bei der 0, 2, 6, 8 und 9 angezeigt wird, könnte
es an der Hardware liegen. Am besten mal alle Segmente einzeln ansteuern
und schauen, ob mal 2 Leuchten. Dann hast Du bei der 3 und der 5 evtl.
einen Kurzschluß. Oder Segment D wird über Segment E mitgespeist und
leuchtet deswegen bei den anderen Ziffern.