;12/95
; This Script establishes a PPP connection
; with UNI
;
proc main
	waitfor "Username: "
 	transmit $USERID
	transmit "^M"
	waitfor "Password: "
	transmit $PASSWORD
	transmit "^M"
	waitfor "Selection: "
	transmit "7"
	transmit "^M"
	set ipaddr getip
endproc