TRISC=%10000000
G1 VAR PORTC.6
G2 VAR PORTC.7
rec var WORD
LED VAR PORTC.0
PAUSE 1000
SEROUT PORTC.6,9600,["AT"] 'check to see if gsm is working
PAUSE 2000
SEROUT PORTC.6,9600,["AT+CMGF = 1",13] 'set the sms mode to text
PAUSE 2000
SEROUT PORTC.6,9600,["AT+CSMP = 17,167,0,0",13] 'set text mode parameters
PAUSE 2000
HIGH G1
serout PORTC.6,9600,["AT+CMGS =",34,"+233501371821",34,13] 'send text to this number
pause 200
serout PORTC.6,9600,["GAS LEAKAGE DETECTED AT HOME PLEASE ATTEND TO IT",26]