proc main
string PPPname = "nppp"
string PPPpassword = "password" 
transmit "^M"
delay 1
waitfor "!login:" until 1
transmit PPPname
transmit "^M"
waitfor "Password:" until 2
transmit PPPpassword
transmit "^M"
delay 1
endproc