!Включаем приём смс
sms.rcv.init
DO
! Пауза между приёмом
!смс.
pause 5000
! Поступающие сообщения
!записываются в переменную sms$.
SMS.rcv.next sms$ 
!Убирает "sms from"
sms$=right$(sms$, len(sms$)-9) 
!Записывает номер отправителя в 
!sms_number$
sms_number$=left$(sms$, 12)
!Убирает номер и двоеточие из 
!переменной sms_text$.
sms_text$=right$(sms$, len(sms$)-14)
UNTIL sms$ <> "@"
!Вывод номера и текста на экран.
print sms_number$
print sms_text$