He corregido un par de fallos, prueba de nuevo.
En teoria puedes poner la palabra de configuración (CONF_WORD...2) como quieras, pero en este caso no se recomienda porque no aclaras nada y el PSI ya la inserta de forma automática en hex. Pero como tu quieras.
Define CONF_WORD = 0x23c4 'Configuración de fuses
Define CONF_WORD_2 = 0x3eff 'Configuración de fueses
AllDigital 'Indica que las entradas que pueden trabajar por defecto como analogicas, trabajarán como digitales.
TRISA.0 = 0
TRISA.1 = 0
TRISA.2 = 0
TRISA.3 = 0
TRISA.4 = 1
TRISA.5 = 1
TRISA.6 = 1
TRISA.7 = 1
TRISB = 0
TRISC = 0
Symbol salida1 = PORTA.0
Symbol salida2 = PORTA.1
Symbol salida3 = PORTA.2
Symbol salida4 = PORTA.3
Symbol boton1 = PORTA.4
Symbol boton2 = PORTA.5
Symbol boton3 = PORTA.6
Symbol boton4 = PORTA.7
main:
While boton1 = 1 And boton2 = 0
Gosub salidas1
Wend
While boton1 = 1 And boton2 = 1
Gosub salidas2
Wend
Goto main 'Gosub main
End 'El manual es claro, hay que ponerlo.
salidas1:
salida1 = 1
salida2 = 0
salida3 = 0
salida4 = 0
Return
salidas2:
salida1 = 1
salida2 = 1
Return
salidas3:
salida1 = 1
salida2 = 1
salida3 = 0
salida4 = 1
Return
salidas4:
salida1 = 0
salida2 = 1
salida3 = 0
salida4 = 1
Return
PD: Lo he simulado con el PSI y no da fallos.