= DownloadRemote('http://www.levelextreme.com', 'c:\temp\test.txt')
MODI FILE 'c:\temp\test.txt' NOWAIT

FUNCTION DownloadRemote(lcRemoteFile, lcLocalFile)
* downloading a remote file to a local file
	DECLARE INTEGER URLDownloadToFile IN urlmon;
		INTEGER, STRING, STRING, INTEGER, INTEGER
	WAIT WINDOW NOWAIT "Downloading remote file..."
	= URLDownloadToFile(0, lcRemoteFile, lcLocalFile, 0,0) = 0
	WAIT CLEAR