8 lines
130 B
Text
8 lines
130 B
Text
opengt
|
|
set com 115200n81
|
|
set senddelay 0.05
|
|
send "AT+CUSD=1,\"*100#\",15^m"
|
|
waitfor 10 "CUSD:"
|
|
get 1 "^m" $s
|
|
print $s,"\n"
|
|
exit 0
|