I did some delay, nothing changed.
I made another test, here is the code:

DEFINE OSC 20
DEFINE HSER_TXSTA 24h
DEFINE HSER_RCSTA 90h
DEFINE HSER_BAUD 19200
DEFINE HSER_SPBRG 64 ' 19200 Bauds
DEFINE HSER_CLROERR 1

main:
HSerout ["AT",13,10]
HSerin 5000,main,[WAIT("OK")]
HSerout ["WELL DONE",13,10]
End

Despite i receive the ok from the phone, the program continues to
loop and no WELL DONE.

I don't know what to search and/or test anymore !!

Thanks for any help.
Bye
Lotondo