thermometer and humidity sms

[elektoro2009]

How can I unite this sample software

http://dosyayukle.info/index.php?p=download&hash=rzskbVI8qQey

with my software.Thank you.

'**************** 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
'************************************************* ***************