How to decode an SMS which looks like this ...

[financecatalyst]

Hi
I am trying to decode an sms like this:
serout2 tx,baud,["AT^SMGR=1",13]
Serin2 rx,baud,5000,main,[WAIT("REC UNREAD"),SKIP 3, STR num\12, skip 28, STR sms\8]

To send an sms I use:
serout2 tx,baud,["AT+CMGS=",34,"+44xxxxxxxxxx",34,13] ' It works fine when I put an predefined number
Serin2 rx,baud,5000,check,[WAIT(">")] ' then sms and enter

Problem:
I want to send an text to the number from which an sms came, So I tried the above command in the following ways:
serout2 tx,baud,["AT+CMGS=",34,STR num\12,34,13]
serout2 tx,baud,["AT+CMGS=",34,STR num,34,13]

It is not working. Can anyone correct me if I am wrong or advise me an alternative Please.
Thanks

[aratti]

It is not working. Can anyone correct me if I am wrong or advise me an alternative Please.

Use this code:

serout2 tx,baud,["AT+CMGS=",STR num\12,13]

Where:


num[0]="+"
num[1]="4"
num[2]="4"
....................

Al.

[financecatalyst]

Use this code:

serout2 tx,baud,["AT+CMGS=",STR num\12,13]

Where:


num[0]="+"
num[1]="4"
num[2]="4"
....................

Al.

I tried the above way but sorry its not working like this.

[aratti]

I tried the above way but sorry its not working like this.

You can tray with SEROUT which seems working better.

Num     var Byte [21]
A0        var Byte

Num[0] = "A"
Num[1] = "T"
Num[2] = "+"
Num[3] = "C"
Num[4] = "M"
Num[5] = "G"
Num[6] = "S"
Num[7] = "="
Num[8] = "+"
Num[20]= 13 ' Last array variable MUST be 13

' The above are the constant value

'From Num[9] to Num[19] load your number
Num[9[] = "4"
Num[10] = "4"
Num[11] = ?? ' etc. etc.


' dial and send the sms using the for next loop
For A0 = 0 to 20                         
serout Tx,T9600,[Num[A0]]   ' Change baud rate as per your need.
Next A0

Al.

[financecatalyst]

Thanks for the input, but to try this can you advise me how to load my number from num[9] to num[19] as I am only aware of loading the number using the following command which starts loading it from num[0] to num[12]:

Serin2 rx,baud,5000,main,[WAIT("REC UNREAD"),SKIP 3, STR num\12, skip 28, STR sms\8]

How can I modify the above syntax to start loading from 9 to 19 & NOT 0 to 12?

Thanks

[aratti]

How can I modify the above syntax to start loading from 9 to 19 & NOT 0 to 12?

Use two arrays, one for serin2 and one for serout

For A0=0 to 11
SecondArray[A0+9]=FirstArray[A0]
next A0

Al.