Hallo CheGeuvara,

wie hättest du den das ganze gemacht??

Dim Schritt as Byte

Do
Schritt vor oder zurückzählen
Select Case Schritt
Case 0 : Gosub Schritt1
Case 1 : Gosub Schritt2
etc.
End Select
Loop
End

Schritt1:
PortX.Y = 1
PortX.Z = 0
PortX.X = 0
PortA.B = 1
PortC.D = 0
Return
etc.

Gruß, Michael