%ok = [load $number]

if [query $number "Enter the dial-up modem number"]
  save $number
end