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 $USERID, raw

transmit "/NOINT/PPP:CISPPP^M"

;   waitfor "Password: "

delay 2

transmit $PASSWORD, raw

transmit "^M"

;   waitfor "PPP:"

delay 2

set port databits 8
set port parity none

endproc