opengt
 set com 115200n81
 set senddelay 0.02
 waitquiet 1 0.2

:start
 flash 0.1

:getuser
 let $u=$env("USER")
 let a=len($u)
 if a=0 goto continue

:getpass
 let $p=$env("PASS")

:auth
 print "User: ",$u,"\n"
 print "Pass: ",$p,"\n"
 send "AT$QCPDPP=1,1,\""
 send $p
 send "\",\""
 send $u
 send "\"^m"
 waitfor 2 "OK"
 if % = -1 goto error
 if % = 0 goto continue

:error
 exit 1

:continue
 exit 0