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 ") "
transmit dumb
transmit "^M"
waitfor "> "
transmit "ppp"
transmit "^M"
transmit "^M"
endproc