opengt set com 115200n81 set comecho off set senddelay 0.02 waitquiet 0.2 0.2 flash 0.1 :start send "AT+CNUM^m" get 1 "^m" $n get 1 ":" $n get 1 "\"" $n get 1 "\"" $n get 1 "\"" $n get 1 "\"" $n let n = len($n) if n<1 goto continue print $n :continue exit 0
