sms.rcv.init
DO
pause 5000
SMS.rcv.next sms$
sms$=right$(sms$, len(sms$)-9)
sms_number$=left$(sms$, 12)
sms_text$=right$(sms$, len(sms$)-14)
UNTIL sms$ <> "@"
print sms_number$
print sms_text$