Symbol LED = PORTB.0
Symbol LED1 = PORTB.1
Symbol LED2 = PORTB.2
Symbol LED3 = PORTB.3
Symbol LEDS = PORTB
TRISB = %11110000
TRISA = %00011100
b var byte
b=0
b1 var byte
b1=0
led=0
led1=0
led2=0
led3=0

shag_prav:
Button porta.3,0,255,255,b,1,shag_lev
Button porta.4,0,255,255,b1,1,polu_shag_prav

led3=0
led=1
led1=1
pause 3
led=0
led1=1
led2=1
pause 3
led1=0
led2=1
led3=1
pause 3
led2=0
led3=1
led=1
pause 3
goto shag_prav

shag_lev:
Button porta.4,0,255,255,b1,1,polu_shag_prav
Button porta.3,0,255,255,b,1,shag_prav

led=0
led3=1
led2=1
pause 3
led3=0
led2=1
led1=1
pause 3
led2=0
led1=1
led=1
pause 3
led1=0
led=1
led3=1
pause 3

goto shag_lev

polu_shag_prav:
Button porta.3,0,255,255,b,1,shag_prav
Button porta.4,0,255,255,b1,1,polu_shag_lev
led=1
led1=0
led2=0
led3=0
pause 3

led=1
led1=1
led2=0
led3=0
pause 3

led=0
led1=1
led2=0
led3=0
pause 3

led=0
led1=1
led2=1
led3=0
pause 3

led=0
led1=0
led2=1
led3=0
pause 3

led=0
led1=0
led2=1
led3=1
pause 3

led=0
led1=0
led2=0
led3=1
pause 3
led=1
led1=0
led2=0
led3=1
pause 3
goto polu_shag_prav

polu_shag_lev:
Button porta.3,0,255,255,b,1,shag_lev
Button porta.4,0,255,255,b1,1,polu_shag_prav
led3=1
led2=0
led1=0
led=0
pause 3

led3=1
led2=1
led1=0
led=0
pause 3

led3=0
led2=1
led1=0
led=0
pause 3

led3=0
led2=1
led1=1
led=0
pause 3

led3=0
led2=0
led1=1
led=0
pause 3

led3=0
led2=0
led1=1
led=1
pause 3

led3=0
led2=0
led1=0
led=1
pause 3

led3=1
led2=0
led1=0
led=1
goto polu_shag_lev

I VAR BYTE
B0 VAR BYTE
Symbol led=PORTB
TRISB=0
TRISD=%11000000
B0=0
MAIN:
FOR I = 0 TO 7
IF I=7 THEN LED=%10000000
IF I=0 THEN LED=%00000001
IF I=1 THEN LED=%00000010
IF I=2 THEN LED=%00000100
IF I=3 THEN LED=%00001000
IF I=4 THEN LED=%00010000
IF I=5 THEN LED=%00100000
IF I=6 THEN LED=%01000000
Button PORTD.7,0,255,255,B0,1,LEDS
PAUSE 200
NEXT
GOTO MAIN
LEDS:
FOR I = 0 TO 7
IF I=7 THEN LED=%00000001
IF I=0 THEN LED=%10000000
IF I=1 THEN LED=%01000000
IF I=2 THEN LED=%00100000
IF I=3 THEN LED=%00010000
IF I=4 THEN LED=%00001000
IF I=5 THEN LED=%00000100
IF I=6 THEN LED=%00000010
PAUSE 200
NEXT
GOTO LEDS