Ddra = &B11111111
Porta = &B00000000
Ddrb = &B1011
Portb = &B1000

Dim A As Byte
A = 2
Do
   If A > 1 Then
   Portb = &B1011
   Porta = &B10000000
   Waitms 75
   Porta = &B11000000
   Waitms 75
   Porta = &B11100000
   Waitms 75
   Porta = &B11110000
   Waitms 75
   Porta = &B11111000
   Waitms 75
   Porta = &B11111100
   Waitms 75
   Porta = &B11111110
   Waitms 75
   Porta = &B11111111
   Waitms 75
   A = 0
   Else
   Portb = &B1011
   Porta = &B11111111
   Waitms 75
   Porta = &B11111110
   Waitms 75
   Porta = &B11111100
   Waitms 75
   Porta = &B11111000
   Waitms 75
   Porta = &B11110000
   Waitms 75
   Porta = &B11100000
   Waitms 75
   Porta = &B11000000
   Waitms 75
   Porta = &B10000000
   Waitms 75
   Porta = &B00000000
   Waitms 150
   A = 2
   End If
Loop


End