Quote Originally Posted by Rufinus

'Main program

pause 1000 'wait for screen to sort get started
start:
lcdout $FE,1, "Sending number.."
pause 1000
HSEROUT ["atd **********", 13, 10]
HSERIN [wait("OK")]

lcdout $FE, 1, "Got it!"
pause 1000
goto start
end
Try to add on top of your program:

HserOut ["AT",13,10] ;Sync modem to 9600 baud

Also if you power up PIC at the same time as the mobile you won't get reliable connection with the phone until the phone is on the network.

Ioannis