/*
** $VER: FTPGet.daftp 1.1 (29.5.95)
**
** by Eirik Nicolai Synnes
**
** Please read the comment in the beginning of FTPGet.thor for info on this
** script.
**
**
*/

/* Edit these variables: */
listfile = "Thor:GetFiles.txt" /* This must be the same in FTPGet.thor and FTPGet.daftp */
remotehome = "/pub/aminet/"     /* Set this to the remote AmiNet directory */
/* End */

i = 0

if exists(listfile) then do
	call open(filelist, listfile, 'R')
	do until eof(filelist)
		i = i + 1
		files.i = readln(filelist)
		end
	call close(filelist)
	end
else do
	say 'Couldn''t find filelist ('listfile')'
	exit(0)
	end

address("daftp")

CD NOSCAN '"'remotehome'"'
if rc ~= 0 then do
	say 'Remote CD to 'remotehome' failed.'
	exit(0)
	end


do j = 1 to i
	if files.j ~= "" then do
		MGET BIN files.j
		say result
		if rc ~= 0 then say 'MGET of 'files.j' failed.'
		end
	end