| 123456789101112131415161718192021 |
- 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
|
