41 lines
693 B
Plaintext
41 lines
693 B
Plaintext
|
;
|
||
|
|
; 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
|
||
|
|
|
||
|
|
transmit "^M"
|
||
|
|
|
||
|
|
waitfor "Host Name:"
|
||
|
|
transmit "CIS^M"
|
||
|
|
|
||
|
|
waitfor "User ID:"
|
||
|
|
transmit $USERID, raw
|
||
|
|
transmit "/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
|