7 Segment Anzeige?!

Abend,

wenn ich meine Segmente nach meinem Vorgegebenen Programm ablaufen 
lassen will bzw. Anzeigen will geht das nicht wirklich!

Ich wollte den Buchstaben  "J" auf mein Segment_1 anzeigen lassen aber 
anstatt er das Anzeigt wird alles Angezeigt -.-
Was mache ich falsch?

$regfile = "m88def.dat".


Config Portc = Output
Config Portb = Output
Config Portd = Output

Segment_1 Alias Portc.0                                     'Änderung 
der Portnamen für Schalt Segmente
Segment_2 Alias Portc.1
Segment_3 Alias Portc.2
Segment_4 Alias Portc.3
Segment_5 Alias Portc.4
Segment_6 Alias Portc.5

Segment_a Alias Portd.0                                     'Anderung 
der Portnamen für Anzeige Segmente
Segment_b Alias Portd.1
Segment_c Alias Portd.2
Segment_d Alias Portd.3
Segment_e Alias Portd.4
Segment_f Alias Portd.5
Segment_g Alias Portd.6

Do


Segment_a = 1
Waitms 1
Segment_a = 0
Waitms 1
Segment_b = 1
Waitms 1
Segment_b = 0
Waitms 1
Segment_c = 1
Waitms 1
Segment_c = 0
Waitms 1
Segment_d = 1
Waitms 1
Segment_d = 0
Waitms 1
Segment_e = 1
Waitms 1
Segment_e = 0
Waitms 1
Segment_g = 1
Waitms 1
Segment_g = 0
Waitms 1

Segment_1 = 1
Waitms 1
Segment_1 = 0



Loop


End