22 lines
304 B
Text
22 lines
304 B
Text
|
opengt
|
||
|
|
set com 115200n81
|
||
|
|
set comecho off
|
||
|
|
set senddelay 0.02
|
||
|
|
waitquiet 0.2 0.2
|
||
|
|
flash 0.1
|
||
|
|
|
||
|
|
:start
|
||
|
|
send "AT+CUSD=1,"
|
||
|
|
send $env("ussd")
|
||
|
|
send ",15"
|
||
|
|
send "^m"
|
||
|
|
waitfor 120 "+CUSD:"
|
||
|
|
if % = -1 goto timeout
|
||
|
|
get 1 "^m" $s
|
||
|
|
print $s
|
||
|
|
exit 0
|
||
|
|
|
||
|
|
:timeout
|
||
|
|
print "ERROR: no USSD response, timeout.\n"
|
||
|
|
exit 1
|