proc main

set port databits 7
set port parity even

transmit "^M"

delay 2
transmit "CIS^M"

delay 2
transmit $USERID, raw
transmit "/NOINT/PPP:CISPPP^M"

delay 2
transmit $PASSWORD, raw
transmit "^M"

delay 2

set port databits 8
set port parity none

endproc