Help....

[mister_e]

you didn't tell us your osc speed, but i'll assume 4MHZ
use the following setting and post your results

DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 25  ' 9600 Baud @ 0.16%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically

Those lines above, are a courtesy of Mister E PICMultiCalc

Zah Mister E PicMultiCalc... the calc who calc those calcs

and this...

ME:
High TXD
HSerout["ATX=[2]"] ' busy line
Pause 2000
Low TXD

Pause 2000
HSerin 500,ME,[wait("OK")]

probably a real killer and also golden to miss incomming data., remove the pause 2000