; ; Copyright (c) 1998 ; by CompuServe Interactive Services Deutschland GmbH ; Unterhaching, Deutschland ; ; ; created by Axel Pipahl, Peter Hense 26.2.98 ; ; ; This is a script file that demonstrates how ; to establish a PPP connection with Compuserve, ; via Infonet World networks. ; log in. ; ; Main entry point to script ; proc main integer max=20 ; Set the port settings so we can wait for ; non-gibberish text. set port databits 7 set port parity even loop: max=max-1 transmit "^M" waitfor "#" then continue until 1 if max==0 then goto continue endif goto loop continue: transmit "C^M" waitfor "CENTER:" transmit "CPS^M" waitfor "Host Name:" transmit "CIS^M" waitfor "User ID:" transmit $USERID, raw transmit "/noint/go:pppconnect^M" waitfor "Password: " transmit $PASSWORD, raw transmit "^M" waitfor "One moment please..." ; Set the port settings back to allow successful ; negotiation. set port databits 8 set port parity none endproc