hi ...still canot work .. i chnage my code to this ..it canot send sms )

DEFINE OSC 8
DEFINE HSER_TXSTA 24h
DEFINE HSER_RCSTA 90h
DEFINE HSER_BAUD 9600
DEFINE HSER_SPBRG 129
DEFINE HSER_CLROERR 1

sms:

HSEROUT ["AT" ,13,10]
hserin 5000,sms,[WAIT("OK")]


HSEROUT ["AT+CMGF=1" ,13,10]
hserin 5000,sms,[WAIT("OK")]


HSEROUT ["AT+CMGS=",34,"my number",34,13,10]
hserin 5000,sms,[WAIT(">")]


HSEROUT ["hello",26,13,10]
pause 5000

end