--geturl -- Get a file via its URL.

--Copyright (C) 1997 Dr. Charles R. Denham, ZYDECO.
--All Rights Reserved.
--Disclosure without explicit written consent from the
--copyright owner does not constitute publication.

--Version of 10-Sep-1997 16:34:52.

set TESTING to 0
if TESTING is 1 then
	set theURL to "http://crusty.er.usgs.gov/~cdenham/index.html"
	set theFilename to "priapus:index.html"
	--set theApplication to "Netscape Navigatorª Gold 3.01"
end if

tell application "Netscape Navigatorª Gold 3.01"
	if theFilename is "" then
		webActivate
		GetURL theURL
	else
		GetURL theURL to file theFilename
		close window 1
	end if
end tell