ToPhone(s = "")
{
set r=""
set c=96
for p=2:1:9 {
set k=""
for j=1:1:3+(p=7)+(p=9) {
set k=k_p
set c($c($i(c)))=k
}
}
for i=1:1:$l(s) {
set n=$g(c($e(s,i)),0)
if $e(n)=$e(r,*) set r=r_" "
set r=r_n
}
quit r
}- Log in to post comments