Flashlı karaşimşek devresi

[electriccomander]

1sn aralıklara 5 defa flash yapan daha sonra 1sn aralıklarla kaydırma yapan devre tamamladım beyler gerek kalmadı yardımınıza...

trisb=0
L VAR BYTE
T VAR BYTE
U VAR BYTE
K VAR BYTE
S VAR BYTE

FOR U = 1 TO 5   

PORTB=%11111111
PAUSE 500       
PORTB=%00000000   
PAUSE 500       
NEXT  U


FOR S = 1 TO 5   
T=%10000000
FOR K = 1 TO 8
PORTB=T
PAUSE 300
T=T >> 1
NEXT K

T=%00000001
FOR L = 1 TO 8
PORTB=T
PAUSE 300
T=T << 1
NEXT L
NEXT S