This script is what the Road Runner Dial Access client for Windows uses to log in to the modem servers, as of September, 2005.

proc main
 
    string prefix = "aolnet/ent."
    string UID = prefix + $USERID
 
    waitfor
	"ANSNet" 	then DoANSLogin,
	"Login:" 	then DoPPPLogin,
	"sername:" 	then DoDirLogin,
	"% Username:" 	then DoPRLogin
    until 20
 
    DoANSLogin:
        waitfor "login"  until 5
	if $SUCCESS then
	    transmit prefix + $USERID, raw
	    transmit "^M"
	    goto DONE
	endif 
 
    DoPPPLogin:
        transmit UID, raw
	transmit "^M"
	waitfor "Password" until 5
	transmit $PASSWORD, raw
	transmit "^M" 
	waitfor ">" until 5
	transmit "ppp", raw
	transmit "^M" 
	goto DONE
 
    DoDirLogin:
	transmit UID, raw
	transmit "^M"
	waitfor "Password" until 5
	transmit $PASSWORD, raw
	transmit "^M" 
	goto DONE
 
    DoPRLogin:
	waitfor "% Username:"  until 20
	if $SUCCESS then
	    transmit UID, raw
	    transmit "^M"
	    waitfor "Password" until 5
	    transmit $PASSWORD, raw
	    transmit "^M" 
	    goto DONE
	endif

    DONE:
        delay 2
endproc