SET PROCEDURE TO qdfoxJSON
JSONStart() 
JSON.stringDelimitator = ["]
cGoogleAPI="http://ajax.googleapis.com/ajax/services/search/web?v=1.0&q="
oData = JSONObject("url:" + cGoogleAPI + "Visual%20FoxPro") 

?"Estimated results:",""
??oData.responseData.Cursor.estimatedResultCount 
FOR EACH oREsult IN oData.responseData.Results 
 ?"",oResult.titleNoFormatting,"(" + oResult.URL + ")" 
ENDFOR