Salut !
Na so ein Lauflicht in Bascom zu programmieren, ist recht einfach.
Du konfigurierst zunächst die entsprechenden Ausgangsports und
schaltest sie dann nach Wunsch EIN bzw.AUS (also setzt sie "1" bzw."0").
z.B.
$regfile="m32def.dat"
Dim I As Byte, J As Byte
Config Portb.0 = Output
Config Portb.1 = Output usw......
Config Portd = Output (setzt z.B. den gesamten Port D als Ausgang)
Do
For I = 0 To 3 (LED-Balken 1 ...4 laufen lassen)
Portb.i=1
Wait 1
Portb.i=0
Next I
For J=0 To 7 (LED-Balken 5...12 laufen lassen)
Portd.j=1
Wait 1
Portd.j=0
Next J
Loop (....und wieder von vorn beginnen ...!)

Zweifellos geht's noch etwas besser, aber das müsste erstmal so laufen !

Try it ! so long - TOM !