'PIC 16F84A
DEFINE OSC 4
TRISA = %000001
TRISB = %11111100
I VAR BYTE
PAUSE 200

MAIN:
IF PORTA.0 = 1 then SWITCH_LED
goto main

SWITCH_LED: IF PORTA.0 = 0 THEN SWITCH_LED_INSTANT
FOR I = 0 TO 10
IF I < 10 AND PORTA.0 = 0 THEN SWITCH_LED_INSTANT
PAUSE 100
NEXT I
IF PORTA.0 = 1 THEN SWITCH_LED_DELAY
goto main

SWITCH_LED_DELAY: TOGGLE PORTB.0
PAUSE 10

AVOID_LED_BLINK: IF PORTA.0 = 1 THEN AVOID_LED_BLINK
PAUSE 10
GOTO MAIN


SWITCH_LED_INSTANT: TOGGLE PORTB.1
PAUSE 10
GOTO MAIN