Also das Bitmuster lässt sich einfach so erstellen, aber frag mich nciht, was mit den Eingängen/Ausgängen Enable A/B und Sen A/B passiert.

Code:
Config Portb = Output

A Alias Portb.0
B Alias Portb.1
C Alias Portb.2
D Alias Portb.3

Portb = 0

Dim Zeit As Byte

Zeit = 10

Do
A = 1 : C = 0                                               'A und D (nach erstem Durchlauf)
Waitms Zeit
D = 0 : B = 1                                               'A und B
Waitms Zeit
A = 0 : C = 1                                               'B und C
Waitms Zeit
B = 0 : D = 1                                               'C und D
Waitms Zeit

Loop