package/comgt/files/getcnum.gcom


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

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