$regfile = "m128def.dat"
$crystal = 1000000
'-----------------------
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Config Porte.4 = Output
Config Porte.5 = Output
Config Porte.6 = Output
Config Porte.7 = Output
'-----------------------
Leds1 Alias Portd
Leds2 Alias Porte
'-----------------------
Dim I As Byte , J As Byte
'-----------------------
Do
For I = 0 To 3
J = I + 4
Set Leds1.i
Set Leds2.j
Wait 1
Next I
For I = 3 To 0 Step -1
J = I + 4
Reset Leds1.i
Reset Leds2.j
Wait 1
Next I
Loop
End