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

output \r
wait 5