; ; Copyright (c) 1996 ; by CompuServe GmbH, Unterhaching, Deutschland ; ; ; created by Peter Hense and Axel Pipahl 24.6.97 ; ; ; This is a script file that demonstrates how ; to establish a PPP connection with Compuserve, ; via Infonet Euro 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 "CSF^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