1
0

getcnum.gcom 275 B

1234567891011121314151617181920
  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. :start
  8. send "AT+CNUM^m"
  9. get 1 "^m" $n
  10. get 1 ":" $n
  11. get 1 "\"" $n
  12. get 1 "\"" $n
  13. get 1 "\"" $n
  14. get 1 "\"" $n
  15. let n = len($n)
  16. if n<1 goto continue
  17. print $n
  18. :continue
  19. exit 0