package/network/utils/comgt/files/ussd.gcom

   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
   8 :start
   9  send "AT+CUSD=1,"
  10  send $env("ussd")
  11  send ",15"
  12  send "^m"
  13  waitfor 120 "+CUSD:"
  14  if % = -1 goto timeout
  15  get 1 "^m" $s
  16  print $s
  17  exit 0
  18
  19 :timeout
  20  print "ERROR: no USSD response, timeout.\n"
  21  exit 1