TRISB=0
TRISA=11111
PORTB=0
INICIO:
IF PORTA.1=0 THEN GOSUB CICLO ' Si se cumplen las condiciones van a la subrutina correspondiente
IF PORTA.2=0 THEN GOSUB CICLO1 ' y vuelve al programa principal.
IF PORTA.3=0 THEN GOSUB IN
GOTO INICIO 'el programa principal se repite indefinidamente.
CICLO:
PORTB=%00000001
PAUSE 100
PORTB=%00000010
PAUSE 100
PORTB=%00000100
PAUSE 100
PORTB=%00001000
PAUSE 100
PORTB=%00010000
PAUSE 100
PORTB=%00100000
PAUSE 100
PORTB=%01000000
PAUSE 100
PORTB=%10000000
PAUSE 100
PORTB=%01000000
PAUSE 100
PORTB=%00100000
PAUSE 100
PORTB=%00010000
PAUSE 100
PORTB=%00001000
PAUSE 100
PORTB=%00000100
PAUSE 100
PORTB=%00000010
PAUSE 100
RETURN
CICLO1:
PORTB=%00111111
PAUSE 400
PORTB=%00000110
PAUSE 400
PORTB=%01001111
PAUSE 400
PORTB=%01100110
PAUSE 400
PORTB=%00010000
PAUSE 400
PORTB=%01101101
PAUSE 400
PORTB=%01111101
PAUSE 400
PORTB=%00000111
PAUSE 400
PORTB=%01111111
PAUSE 400
PORTB=%01100111
PAUSE 400
RETURN
IN:
PORTB=%0
RETURN
END