; Skript zum Einwaehlen in den CompuServe-ppp Dienst 
; ueber Infonet Singapur
; Burkhard Grosche
; 101234,1532
; 11.9.97

;
; This is a script file that demonstrates how
; to establish a PPP connection with Compuserve,
; which requires changing the port settings to
; log in.
;


; 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
   
   delay 10
   transmit "^M"   

   waitfor "#"
   transmit "C^M"

   waitfor "CENTER:"
   transmit "CSI^M"

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

   waitfor "User ID:"
   transmit $USERID
   transmit "/go:pppconnect^M"

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

   waitfor "One moment please..."

   ; Set the port settings back to allow successful
   ; negotiation.

   set port databits 8
   set port parity none

endproc