Don, I posted my code in the blog entry I did on “Twitter Tracker” - http://www.ohararp.com/blog
Or you can just download the code at http://ohararp.com/wp/wp-content/upload … D.bas_.pdf
'*******************************************************************************
SEND_TEXT:
IDX_SEND_TEXT = 0
SEND_TEXT_RESTART:
SerOut PORTB.7,84,["SENDING AT#BND=1",13,10]
HSerOut ["AT#BND=1",13,10]
GoSub RECEIVE_OK
SerOut PORTB.7,84,["SENDING AT+CSCA=+12063130004,145",13,10]
HSerOut["AT+CSCA=+12063130004,145",13,10]
DelayMS 1000
SerOut PORTB.7,84,["SENDING AT+CMGF=1",13,10]
HSerOut["AT+CMGF=1",13,10]
DelayMS 1000
SerOut PORTB.7,84,["SENDING AT+CMGS=40404",13,10]
HSerOut["AT+CMGS=40404",13,10]
CZ_TEST = 1
HSerIn 2500,SEND_TEXT_TIMEOUT,[Wait(">")]
SEND_TEXT_TIMEOUT_RETURN:
Select CZ_TEST
Case 1
SerOut PORTB.7,84,["> FOUND ",13,10]
SerOut PORTB.7,84,["http://maps.google.com/maps?q=",Dec8 LAT,44,Dec8
LON,13,10]
HSerOut["http://maps.google.com/maps?q=",Dec8 LAT,44,Dec8 LON,$1A,13,
10]
BLINKM_VAR = %010
BLINKM_DEL = 250
BLINKM_NUM = 3
GoSub BLINKM
Case 0
SerOut PORTB.7,84,["SEND TEXT ERROR - ",Dec IDX_SEND_TEXT,13,10]
If IDX_SEND_TEXT < 5 Then
DelayMS 10000
SerOut PORTB.7,84,["RESENDING TEXT - ",Dec IDX_SEND_TEXT,13,10]
Inc IDX_SEND_TEXT
GoTo SEND_TEXT_RESTART
EndIf
EndSelect
Return