| 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 |