Kuul, knight rider effekt *grins*

zum einarbeiten sind solche spielereien wirklich net schlecht!

bloss ist der code jetzt ziemlich lang und sieht dämlich aus:
Code:
$crystal = 4000000

Config Porta = Output
Do
  Porta.0 = 1
  Waitms 35
  Porta.0 = 0
  Porta.1 = 1
  Waitms 35
  Porta.1 = 0
  Porta.2 = 1
  Waitms 35
  Porta.2 = 0
  Porta.3 = 1
  Waitms 35
  Porta.3 = 0
  Porta.4 = 1
  Waitms 35
  Porta.4 = 0
  Porta.5 = 1
  Waitms 35
  Porta.5 = 0
  Porta.6 = 1
  Waitms 35
  Porta.6 = 0
  Porta.7 = 1
  Waitms 35
  Porta.7 = 0
  Porta.6 = 1
  Waitms 35
  Porta.6 = 0
  Porta.5 = 1
  Waitms 35
  Porta.5 = 0
  Porta.4 = 1
  Waitms 35
  Porta.4 = 0
  Porta.3 = 1
  Waitms 35
  Porta.3 = 0
  Porta.2 = 1
  Waitms 35
  Porta.2 = 0
  Porta.1 = 1
  Waitms 35
  Porta.1 = 0

Loop
kann man das vereinfachen in bascom?
thx knacki