sms send sht11 pic16f876 nokia 6210

[elektoro2009]

How can I unite this sample software TERMONEMALRM-1.zip with my software.
Thank you.Best regards.

'**************** SMS SEND SAMPLE ********************
SmsMesajTx : SerOut2 modem_tx,modem_baud,["AT+CMGF=1",13] ' Mesaj Formatı TXT için
Pause Bek100

SerOut2 modem_tx,modem_baud,["AT+CMGS=",34,"90532XXXXXXX",34,",145",13]

SerIn2 modem_rx,modem_baud,5000,msghata2,[wait(">")]


Pause Bek500

SmsData = "A" ' Gidecek Mesaj


For addr= 0 TO 159
SerOut2 modem_tx,modem_baud,[SmsData]
Next addr

Pause Bek500

SerOut2 modem_tx,modem_baud,[26] ' CTRL+Z

SerIn2 modem_rx,modem_baud,35000,msghata2,[wait("+CMGS")]

msghata2: SerOut2 modem_tx,modem_baud,["ATH",13]
Pause Bek500

Return
'************************************************* ***************