Stuff

ForthEC:

FILE download.def

LIBRARY		download
DESCRIPTION	'-'
VERSION		1.0
EXPORTS
download	@1


FILE download.f

INCLUDE	..\include\windef.f
INCLUDE	..\include\dll.f

NOTOUCH
	include c:\masm32\include\masm32rt.inc
	include c:\masm32\include\urlmon.inc
	includelib c:\masm32\lib\urlmon.lib
TOUCH

: download { $file$ $url$ -- }
	$url$ $file$
NOTOUCH
	fn URLDownloadToFile,0,[esp+16],[esp+8],0,0
TOUCH
;