@verb #8084:"distance" this none this rxdo #8084
@program #8084:"distance" this none this
{city1, state1, ?city2 = "Cookeville", ?state2 = "TN"} = args
city1 = strsub(city1, " ", "%20")
city2 = strsub(city2, " ", "%20")
page = "/cgi-bin/mqtrip?uid=u6d6j7r0ydu1q9do&avoid_lmTD_access=&avoid_toll_roads=&route_type=&link=TripQuest-Main&uid=u6d6j7r0ydu1q9do&avoid_ferry=1&OPC=null&ADDR_ORIGIN=&CITY_ORIGIN={CITY1}&STATE_ORIGIN={STATE1}&DPC=null&ADDR_DESTINATION=&CITY_DESTINATION={CITY2}&STATE_DESTINATION={STATE2}&quest_mode=trip&results_display_mode=text"
page = strsub(page, "{CITY1}", city1)
page = strsub(page, "{CITY2}", city2)
page = strsub(page, "{STATE1}", state1)
page = strsub(page, "{STATE2}", state2)
conn = open_network_connection("www.mapquest.com", 80)
notify(conn, tostr("GET ", page))
while ((x = `read(conn) ! E_INVARG') != E_INVARG)
  if (index(x, "<TD align=\"center\"><FONT size=\"2\" face=\"Arial\">") == 1)
    whee = match(x, "%([0-9]+%.[0-9]+%) km")
    return toint(x[whee[3][1][1]..whee[3][1][2]])
  endif
endwhile
"Last modified by Dax (#789) on Tue May  3 14:09:36 2005 MDT."
.