# Script to Login to Internet Provider (Dialup Shell Account)
count 5
loop:
    if !count
        hangup
        display "^M^JAborting Script, Maximum count exceeded^M^J"
        abort
    endif
    expect 10 "login:"
    if !expect
        hangup
        redial
        goto loop
    endif
# This Service Provider expects a system name for the first login,
# the the login and password values for that system.
output "starbase^M"
expect 10 "login:"
output "zkrr01^M"
sleep 1
password
expect 15 "Password:"
output "^P^M"
sleep 2
output "^M"
