hsodata.comgt 316 B

123456789101112131415161718192021222324252627
  1. opengt
  2. set com 115200n81
  3. set senddelay 0.02
  4. waitquiet 1 0.2
  5. flash 0.1
  6. let c=1
  7. :start
  8. send "AT_OWANDATA=1^m"
  9. waitfor 2 "ERROR"
  10. if % = 0 goto repeat
  11. send "AT_OWANDATA=1^m"
  12. get 2 "^m" $s
  13. get 2 "^m" $s
  14. print $s
  15. print "\n"
  16. exit 0
  17. :repeat
  18. sleep 3
  19. inc c
  20. if c > 15 goto error
  21. goto start
  22. :error
  23. exit 1