proc main set port databits 7 set port parity even transmit "^M" waitfor "Host Name:" delay 2 transmit "CIS^M" waitfor "User ID:" delay 2 transmit $IHRE_USERID transmit "^M" waitfor "Password: " delay 2 transmit $IHR_PASSWORD, raw transmit "^M" waitfor "!" delay 2 transmit "/go:pppconnect^M" set port databits 8 set port parity none endproc -----------------------------