proc main

;carriage return to initiate login
delay 1
transmit "^M"

;send userid
waitfor "LI Net username:"
transmit $USERID
transmit "^M"

;send password
waitfor "LI Net password:"
transmit $PASSWORD
transmit "^M"

;start ppp
delay 2
transmit "ppp"
transmit "^M"

endproc