proc main
string szPassword
transmit "@D^M"
waitfor "TERMINAL=",matchcase until 7
transmit "d1^M"
waitfor "@",matchcase until 1
transmit "x.121ADDRESS,NUI,PASSWORD^M"
endproc