;#picaxe 20m2

setfreq m8

dirsB = %11111111
pinsB = %11111111

symbol t = 70
symbol i = b1
symbol p = b2
symbol m = b3
symbol x = b4

do

' --------------------------------
' Lauflicht links
' --------------------------------

for i = 0 to 7
  low i
  pause t
  high i
next i


' --------------------------------
' Lauflicht rechts
' --------------------------------

for i = 7 to 0 step -1
  low i
  pause t
  high i
next i


' --------------------------------
' Alles EIN / AUS
' --------------------------------

pinsB = %00000000
pause 300

pinsB = %11111111
pause 300


' --------------------------------
' Wechselblinken
' --------------------------------

for i = 1 to 4

  pinsB = %10101010
  pause 250

  pinsB = %01010101
  pause 250

next i


' --------------------------------
' Schnelles Blitzen
' --------------------------------

for i = 1 to 12

  pinsB = %00000000
  pause 40

  pinsB = %11111111
  pause 40

next i


' --------------------------------
' Außen nach innen
' --------------------------------

for i = 0 to 3

  p = 7 - i

  low i
  low p

  pause 100

  high i
  high p

next i


' --------------------------------
' Innen nach außen
' --------------------------------

for i = 3 to 0 step -1

  p = 7 - i

  low i
  low p

  pause 100

  high i
  high p

next i


' --------------------------------
' Muster
' --------------------------------

for m = 1 to 6

  x = m - 1

  lookup x,(%11001100,%00110011,%11110000,%00001111,%10011001,%01100110),pinsB

  pause 180

next m

loop