proc main
delay 1
transmit "^M"
delay 1
transmit "^M"
delay 1
transmit "^M"
waitfor "ogin: "
transmit $USERID
transmit "^M"
waitfor "assword: "
transmit $PASSWORD
transmit "^M"
waitfor "known) "
transmit "dumb"
transmit "^M"
waitfor "> "
transmit  "exec pppattachd server"
transmit "^M"
endproc