if ![load $number]
    if [query $number "Enter your dial up phone number"]
        save $number
    end
end

# initialize modem, use at&f1 for USR and SupraFax modems
output at&f\r
input 10 OK\r

# Remove the '#' from the below two lines 
# if you modem can't hear a dialling tone
# output atx\r
# input 10 OK\r

# Be certain to add long-distance, or PABX dial-out prefixes
output atdt$number\r
input 45 CONNECT

# Special Setting for UUnet
output \r
wait 1

#  Pop up a window and prompt you for your login name
input 30 sername:
username Please enter your username:
output \u\r

#  Pop up a window and prompt you for your login name
input 30 assword:
password Please enter your password:
output \p\r
wait 10

# special setting for karsing
input 30 Karsing
output 2\r
wait 5

display \n
display Connected.\n
display You can now start your Winsock utilities.\n
online