proc main

   set port databits 7
   set port parity even

   transmit "^M"

   waitfor "Host Name:"
   transmit "CIS^M"

   waitfor "User ID:"
   transmit $USERID, raw
   transmit "/NOINT/PPP:CISPPP^M"

   waitfor "Password: "
   transmit $PASSWORD, raw
   transmit "^M"

   waitfor "PPP:"

   set port databits 8
   set port parity none

endproc