Гто-то у Вас с DEFINE не все в порядке. Я уже давно с PBPro не работаю и не хочется возвращаться к нему, поэтому не смогу найти ошибку.
А так работает! Device = 16F873A
Declare All_Digital = On ' Сделать все порты цифровыми
Declare LCD_Type ALPHA ' Тип ЖКИ - буквенно -цифровой
Declare LCD_DTPin PORTA.0 ' Порт данных ЖКИ
Declare LCD_ENPin PORTA.4 ' Цепь управления E
Declare LCD_RSPin PORTB.3 ' Цепь управления RS
Declare LCD_Interface 4 ' Разрядность шины данных
Declare LCD_CommandUs 2000 ' Задержка перед посылкой команды
Declare LCD_DataUs 50 ' Задержка перед посылкой данных
Declare LCD_Lines 2 ' Количество строк ЖКИ
TRISB = %11110111
TRISA = %11100000
main:
PAUSE 500
LCDOUT $FE, 1, $20,$20,$20,$20,$50,$52,$49,$56,$45,$54
LCDOUT $FE, $C0, $20,$20,$20,$56,$4F,$4C,$47,$4F,$47,$52,$41,$44
PAUSE 500
GoTo main
Переходите на Протон, чтоб не заморачиваться.
PS
Нет, у Вас с DEFINE все в порядке, скорее всего причина в настройках регистров ADCON0 и ADCON1