#This is a login.cmd file For use with
# Trumpet WinSock


# save as: login.cmd
#
if ![load $number]
  if [query $number "Enter your dial up phone number"]
    save $number
  end
end
if ![load $username]
  if [username "Enter your login username"]
    save $username
  end
end
if ![load $password]
  if [password "Enter your login password"]
    save $password
  end
end
# use YOUR modem string here
# this one is for the megahertz PCMCIA 14.4
$modemsetup = "&F&C1&D2&Q5&K3&S1W2S95=43M0S7=90S11=55S0=0"
$userprompt = "login:"
$passprompt = "assword:"
$addrtarg = "Your address is"
%attempts = 10
#
# initialize modem
#
output "atz"\13
if ! [input 10 OK\n]
  display "Modem is not responding"\n
  abort
end
#
# setup our modem commands
#
output "at"$modemsetup\13
input 10 OK\n
#
# send phone number
#
%n = 0
repeat
  if %n = %attempts
    display "Too many dial attempts"\n
    abort
  end
  output "atdt"$number\13
  %ok = [input 120 CONNECT]
  %n = %n + 1
until %ok
input 10 \n
#
#  wait till it's safe to send because some modem's hang up
#  if you transmit during the connection phase
#
wait 30 dcd
#
# now prod the terminal server
#
output \13
#
#  wait for the username prompt
#
input 30 $userprompt
output $username\13
#
# and the password
#
input 30 $passprompt
output $password\13
# done
# we are now logged in
# END

 +-------------------------+----------------------------------------+
 |     Tony Elliott        |          -+{ SoVerNet }+-              |
 | <telliott@sover.net>    | Southern Vermont's Internet Connection |
 |    Vice Net Worker      | Phone (802)463-2111  FAX (802)463-2110 |
 |    sales@sover.net      |  info@sover.net   --  www.sover.net    |
 |            http://www.sover.net/~telliott/index.html             |
 +-------------------------+----------------------------------------+