INCLUDE "sms_parsing_lib.bas"
sms.rcv.init
DO
pause 5000
sms.rcv.next sms$
num$ = sms_rcv_number$(sms$) !Получение номера.
text$ = sms_rcv_text$(sms$) !Получение текста.
UNTIL sms$ <> "@"
print num$
print text$