| opengt | |
| set senddelay 0.05 | |
| waitquiet 1 0.2 | |
| let c=1 | |
| :loop | |
| inc c | |
| send "AT+CGATT?^m" | |
| waitfor 5 "+CGATT: 1","+CGATT: 0" | |
| print "\n." | |
| if % = -1 goto error | |
| if c > 10 goto toolong | |
| if % = 0 goto out | |
| sleep 2 | |
| if % = 1 goto loop | |
| :toolong | |
| exit 1 | |
| :error | |
| exit 0 | |
| :out | |
| exit 0 |