'*******************************************************************************
'*******************************************************************************
'**************** MESAJ GÖNDERME RUTİNİ ********************
'*******************************************************************************
'******************************************************************** 26.10.2005
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
'*******************************************************************************
'**************************************************************** Mesaj Gönderme