TRISB=0
TRISA=1
BROJ1 VAR BYTE 
J1 VAR BYTE
J VAR BYTE 
SYMBOL TAS1=PORTA.0 
input tas1 
BROJ1=J

JEDINICE:
IF TAS1=0 THEN 
J1=J1+1
PORTB=2^J1
IF J1>9 THEN J1=0
BROJ1=J1
PORTB=BROJ1
HIGH PORTB.5
PAUSE 200
LOW PORTB.5
ENDIF