#picaxe 08M2
 
let dirsc=%00010111
 
symbol LED1 = pinc.0
symbol LED2 = pinc.1
symbol LED3 = pinc.2
symbol LED4 = pinc.4
 symbol Zaehler=W2
 
do
      '--------------------
      Zaehler=1
      LED2=1
      do
 
       for W1=0 to 400
         if Zaehler=W1 then
            LED1=1
         endif
       next W1
       LED1=0
       Zaehler=Zaehler+4
 
       if Zaehler>=400 then
          exit 
       end if
 
      loop
 
      '----------------------
      Zaehler=1
      LED3=1
      do
 
       for W1=0 to 400
         if Zaehler =W1 then
            LED2=1
         end if
        next W1
        LED2=0
 
       Zaehler=Zaehler+4
       if Zaehler>=400 then
          exit
       end if
 
      loop
 
      '----------------------
      Zaehler=1
      LED4=1
      do
 
       for W1=0 to 400
         if Zaehler =W1 then
            LED3=1
         end if
       next W1
       LED3=0
 
       Zaehler=Zaehler+4
       if Zaehler>=400 then
          exit 
       end if
 
      loop
 
      '----------------------
      Zaehler=1
      LED1=1
      do
 
       for W1=0 to 400
         if Zaehler =W1 then
            LED4=1
         end if
       next W1
       LED4=0
 
       Zaehler=Zaehler+4
       if Zaehler>=400 then
          exit 
       end if
 
      loop
      '----------------------
      
      
loop
end