proc main waitfor "TRANSPAC." transmit "^M" transmit "cis" transmit "^M" waitfor "Password: " transmit "cis" transmit "^M" waitfor "Host Name:" transmit "CIS^M" waitfor "User ID:" transmit $IHREUSERID, raw transmit "/GO:PPPCONNECT/NOINT^M" waitfor "Password:" transmit $IHRPASSWORD transmit "^M" endproc