package/comgt/files/dial.comgt

   1 # dial given number
   2 opengt
   3  set com 115200n81
   4  set senddelay 0.02
   5  waitquiet 1 0.2
   6  flash 0.1
   7
   8 :start
   9  print "Dialing '"+$env("NUMBER")+"'\n"
  10  send "ATDT"+$env("NUMBER")+"^m"
  11
  12  waitfor 15 "CONNECT" "OK","ERR","ERROR"
  13  if % = 0 goto continue
  14  if % = 1 goto continue
  15  if % = 2 goto senderror
  16  if % = 3 goto senderror
  17
  18  print "Timeout dialing '"+$env("NUMBER")+"'\n"
  19  exit 1
  20
  21 :senderror
  22  print "Error dialing '"+$env("NUMBER")+"'\n"
  23  exit 1
  24
  25 :continue
  26  exit 0