Mr.Ioannis

I HAVE FIND SOME CODE ABOUT AND I WROTE SOME CODE "AT+CMGD"
I SEND TO MODEM TO SMS "A" BUT NOT TURN ON PORTB.6

WHAT'S THE WRONG THIS CODE HELP ME
' Def
define OSC 4
DEFINE HSER_SPBRG 25
DEFINE HSER_TXSTA 20h
DEFINE HSER_RCSTA 90h
DEFINE HSER_BAUD 2400
DEFINE HSER_CLROERR 1

sms VAR BYTE[16]

I VAR BYTE

'Check sms

begin:
HIGH PORTB.7
HSerout ["AT",13,10]' start comm
HSERIN 2000,begin,[WAIT("OK")]
LOW PORTB.7


query:
HSEROUT["AT+CMGL=",34,"REC READ",34,13,10]' filter for query
HSERIN 5000,query,[WAIT("REC READ"),skip 41, STR sms\16\13]
HIGH PORTB.5
PAUSE 200
LOW PORTB.5
I=0

WHILE I <> 13' count until 13
if sms[i]=$44 THEN ' searching for letter A ?
GOTO turnon:
ELSE
GOTO back
I=I+1
ENDIF
WEND
turnon:
High PortB.6
pause 1000
HSerout ["AT+CMGD=1",13,10]
low portb.6
GOTO QUERY
back:
HIGH PORTB.4
HSerout ["AT+CMGD=1",13,10]
PAUSE 100
LOW PORTB.4
GOTO QUERY
END

xxxxx.