;
; Chat script for connecting to Northwestern University's
; ECE department modem pools.
;
; Adapted from Compuserv example script.
;
; PSB, November 28, 1999.
;


; Main entry point to script
;
proc main

   ; Set the port settings so we can wait for
   ; non-gibberish text.
   ;
   ; set port databits 7
   ; set port parity even
   ;
   ; transmit "^M"
   ;
   ; waitfor "Host Name:"
   ; transmit "CIS^M"
   ;
   waitfor "Username: "
   transmit $USERID, raw
   transmit "^M"

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

   waitfor "):"
   transmit "ppp^M"

   ; Set the port settings back to allow successful
   ; negotiation.
   ;
   ; set port databits 8
   ; set port parity none

endproc