hallo, mit diesem kurzen programm habe ich das streifenbild mit Bascom erstellt. siehe "album, roboterbilder".

$regfile = "m16def.dat"
$crystal = 8000000

Enable Interrupts

Config Pind.5 = Output
Config Pind.6 = Output

Portd.5 = 0
Portd.6 = 0
Waitms 100

Do

Portd.6 = 1
Portd.5 = 1

Portd.6 = 0
Portd.5 = 0

Loop

mfg pebisoft