fn.def sms_rcv_number$(sms$)
sms$ = right$(sms$, len(sms$)-9)
sms_number$ = left$(sms$, 12)
fn.rtn sms_number$
fn.end
fn.def sms_rcv_text$(sms$)
sms$ = right$(sms$, len(sms$)-9)
sms_text$ = right$(sms$, len(sms$)-14)
fn.rtn sms_text$
fn.end