eventuell so ...

Code:
Dim Led As Byte

Do
  If Led < 16 Then Incr Led Else Led = 0
  Porta.0 = Led.0
  Porta.1 = Led.1
  Porta.2 = Led.2
  Porta.3 = Led.3
  Wait 1
Loop
dann kannst du dir die ganzen Definitionen sparen.