cRequest = 'http://phpreview.nl.linux.org/download/xml/oreilly/1565927699.xml'
cTargetFile = 'c:\temp\myfile.xml'

IF DownloadRemote(cRequest, cTargetFile)
	MODI FILE (cTargetFile) NOWAIT
ENDIF

FUNCTION DownloadRemote(cRequest, cTargetFile)
	LOCAL lResult
	DECLARE INTEGER URLDownloadToFile IN urlmon;
		INTEGER, STRING, STRING, INTEGER, INTEGER
	WAIT WINDOW NOWAIT "Downloading remote file..."
	lResult = (URLDownloadToFile (0, cRequest, cTargetFile, 0,0) = 0)
	WAIT CLEAR
RETURN lResult