I have a 16f819 hooked up to a rf ZIGBEE transceiver and had both the serout and serin working a couple of days ago. I have another transceiver hooked up to a laptop and using hyperterminal to communicate with the pic. All of the sudden serin stopped working. I've tried on different pics to no avail. Here is the code that is running on the pic. Is there something I'm overlooking. It's especially frustrating because it worked a few days ago. However, some slight code modifications have been made, but nothing I thought that would affect the serin command. Serout works just fine and I'm getting all the data on hyper terminal

INCLUDE "MODEDEFS.BAS"
'INCLUDE "BS2DEFS.BAS"
@ DEVICE HS_OSC,MCLR_OFF,BOD_OFF
define CHAR_PACING 1000
DEFINE OSC 4
DEFINE SHIFT_PAUSEUS 100
OSCCON=$60
ADCON1=6
SERIN_DATA VAR BYTE
TRISB.0=1
HIGH PORTA.4

begin:
SERIN PORTB.0,T9600,4000,cont,SERIN_DATA
SEROUT PORTB.4,T9600, ["Got the Value: ", SERIN_DATA,13]
IF SERIN_DATA[0]="S" THEN
HIGH PORTA.3
ENDIF
IF SERIN_DATA[0]="F" THEN
LOW PORTA.3
ENDIF
CONT
SEROUT PORTB.4,T9600, ["Still wainting ",13]

goto begin