1
0

dial.comgt 457 B

1234567891011121314151617181920212223242526
  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. :start
  8. print "Dialing '"+$env("NUMBER")+"'\n"
  9. send "ATDT"+$env("NUMBER")+"^m"
  10. waitfor 15 "CONNECT" "OK","ERR","ERROR"
  11. if % = 0 goto continue
  12. if % = 1 goto continue
  13. if % = 2 goto senderror
  14. if % = 3 goto senderror
  15. print "Timeout dialing '"+$env("NUMBER")+"'\n"
  16. exit 1
  17. :senderror
  18. print "Error dialing '"+$env("NUMBER")+"'\n"
  19. exit 1
  20. :continue
  21. exit 0