So habs hinbekommen, hab einfach mal Wait auf 2 hochgeschraubt, irgentwie verschlucht er imemr ein paar Leds (jedesmal unterschiedlich)

Code:
$regfile = "m16def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600

Waitms 50                                                   'Einschwingzeit

Config Porta = Output
Config Portc = Output

Portc.5 = 0                                                 'Elkos Masse
Porta.4 = 0                                                 'Enable1 active = low

Dim I As Byte
Print "Start"

Do
For I = 0 To 15
Print "1"
Porta = I
Wait 2
Next I

Loop
Ist der vielleicht defekt? Ich weiß echt nicht was falsch ist, er funktioniert ja, nur bleibt imemr "hängen".

Sicher das LE freibleibt?