Hi cncmachineguy

OOOps !. I have been reading that section of the datasheet over and over again but it didn't click until you highlighted it so I have removed the:-
Code:
if PIR1.5 = 1 then 
Hserin 1,jump,[MI]                                      ' Read a character and clear buffer
jump:                  
gosub gratio
endif
and replaced by using a "dummi" variable to read RCREG as follows
Code:
if PIR1.5 = 1 then 
dummi = RCREG                              ' Read a character and clear buffer
gosub gratio
endif
That seems to work ok.

Thanks again