dyn_float getQuote(string symbol)

{

  // http://download.finance.yahoo.com/d/quotes.csv?s=%s&f=l1v"

  string request = "GET /d/quotes.csv?s=%s&f=l1v HTTP/1.1\r\n"

                   "Connection: keep-alive\r\n"

                   "Host: download.finance.yahoo.com\n\n";

  sprintf(request, request, symbol);

  DebugTN("getQuote", symbol);

  string response;

  int socket=tcpOpen("download.finance.yahoo.com", 80);

  tcpWrite(socket, request);

  tcpRead(socket, response, 3);

  tcpClose(socket);

  strreplace(response, "\r", "");

  dyn_string lines = strsplit(response, "\n");

  // print response lines (debug)

  for ( int i=1; i<=dynlen(lines); i++ )

    DebugTN(i, lines[i]);

  // extract the information we want

  if ( dynlen(lines) >= 13 ) {

    dyn_string cols=strsplit(lines[13], ",");

    float f1, f2;

    if ( dynlen(cols) > 0 ) sscanf(cols[1], "%f", f1);

    if ( dynlen(cols) > 1 ) sscanf(cols[2], "%f", f2);

    DebugTN(symbol, f1, f2);

    return makeDynFloat(f1, f2);

  }

}