package/comgt/files/getcnum.gcom

   1 opengt
   2  set com 115200n81
   3  set comecho off
   4  set senddelay 0.02
   5  waitquiet 0.2 0.2
   6  flash 0.1
   7
   8 :start
   9  send "AT+CNUM^m"
  10  get 1 "^m" $n
  11  get 1 ":" $n
  12  get 1 "\"" $n
  13  get 1 "\"" $n
  14  get 1 "\"" $n
  15  get 1 "\"" $n
  16  let n = len($n)
  17  if n<1 goto continue
  18  print $n
  19 :continue
  20  exit 0