proc main

waitfor "serid:"

transmit $USERID

transmit "^M"

waitfor "word:"

transmit $PASSWORD

transmit "^M"

waitfor "CS>"

transmit "PPP^M"

endproc