die zuweisung solten schon mit in der Schleife stehen!
....
Do

For B = 1 To 4
A = X(i)
Porta.0 = A.0 'Linksoben
Portd.6 = A.1 'Linksmitte
Portd.2 = A.2 'Linksunten
Portb.1 = A.3 'Mitteoben
Portd.3 = A.4 'Mittemitte
Portb.0 = A.5 'Mitteunten
Portd.4 = A.6 'Rechtsoben
Portb.2 = A.7 'Rechtsmitte
Portd.5 = A.8 'Rechtsunten
Portd.1 = A.9 'Ebene1
Porta.1 = A.10 'Ebene2
Portd.0 = A.11 'Ebene3
Waitms 500
Next


Loop