Was es gibt:
Code:
Dim I as byte 

Do
  for i = 0 to 7  
     portb.i = 1
     waitms 100 
     portb.i = 0
     waitms 100 
  next
Loop
Meinst du sowas ?