Signed-off-by: Daniel Golle <dgolle@allnet.de> SVN-Revision: 29365master
parent
fc6b568cab
commit
6db7b50cec
@ -0,0 +1,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 |
@ -0,0 +1,17 @@ |
||||
opengt |
||||
set com 115200n81 |
||||
set comecho off |
||||
set senddelay 0.02 |
||||
waitquiet 0.2 0.2 |
||||
flash 0.1 |
||||
|
||||
:start |
||||
send "AT+CIMI^m" |
||||
get 1 "^m" $s |
||||
get 1 "^m" $s |
||||
let x = len($s) |
||||
if x<2 goto continue |
||||
let $s = $right($s, x-1) |
||||
print $s |
||||
:continue |
||||
exit 0 |
Loading…
Reference in new issue