;This will begin the script

proc main

;Enable the following to delay for 1 second first to
;allow host time to send initial characters (not needed by many ISPs).

;	delay 1

;Sometimes, ISPs need a carriage return to initiate the login process.
;If your ISP requires this, uncomment the following line:

	transmit "^M"

;Wait for the login prompt before entering the user ID and carriage return
;(I left off the first letter since login is case sensitive)
;The $USERID variable is taken from the dial-up connection box

	waitfor "username:"
	transmit $USERID
	transmit "^M"
	

;Enter your password (I left off the first letter since login is case-sensitive)
;and send a carriage return.

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

;Enter the menu selection 3 to select a ppp connection.

	waitfor "hoice:"
	transmit "3"
	transmit "^M"

;Finish the script.

;Add a delay to allow logon.

	delay 1

endproc