' Autor: Schülergruppe von Herrn Degelmann, RS Neuenburg
' 23.4.2001

'Lichterbeschleunigung in jeder Runde
DO
DIM x                           'x aktivieren          
DIM z                           'z aktivieren
FOR z=2 TO 0.5 STEP -0.5        'Geschwindigkeitsregler 
  FOR x=1 TO 16                 'x bestimmen
    DOUT x , ON                 'Lichter nach x an
    WAIT z                      'warte z lang
  NEXT                          
  DOUTS "0000 0000 0000 0000"   'alle lichter aus
  WAIT 0.5                      'warte 0.5 sec
NEXT
LOOP