Thank you for the reply, but stil nothing.
I am starting to think my hardware is faulty. I have written a program that acording to me could ecco what is sended to the pic. do you agree with the program, if it is correct i definitly need to start looking at my hardware.
Thank you again for al the help

INCLUDE "ANSI.INC"

CMCON = %00000111 ;Disable Comparator module's
OPTION_REG = %11010111 ;Set PIC options
INTCON = 0 ;Disable interrupts
TRISB = %00000000 ;RB7...RB0 are outputs.
TRISA = 255 ;SET PORTA AS INPUTS

DEFINE HSER_RCSTA 90h ;Set receive register to receiver enabled
DEFINE HSER_TXSTA 20h ;Set transmit regester to transmitter enabled
DEFINE HSER_BAUD 2400 ;Set baud rate
DEFINE HSER_SPBRG 25 ;Set spbrg regester

I VAR BYTE
I = 20

loop:
@ ClearScr ; Clear Screen
HSEROUT ["Value of I:",I,10,13]
HSERIN 5000,LOOP,[I]
GOTO loop
End