/*ClipReq V1.0
  A simple utility to request the files selected by GadMget,
  using DaFTP. */


/*Variables*/
GadOut = 'CLIP:'            /*Path to GadMget's output file*/

/*end of variables**/

address 'daftp'
call open(clip,GadOut,r)
stem = 1
call sep
do while ~eof(clip)
  call sep
end
call close(clip)
call open(CON,'con:0/400/-1/112/DaftRequest','W')
mes = 'Selected 'stem-1' File'
if stem >2 then mes =mes||'s'
call writeln(con,mes)
do count = 1 to stem-1
  call writeln(con,fil.count)
end
call writeln(con,'')
do count = 1 to stem-1
  call writeln(con,'Requesting 'fil.count)
  get fil.count
end

exit

sep:
lis = readln(clip)
lis = left(lis,length(lis)-1)
w = words(lis)
do count = 2 to w
  fil.stem = word(lis,count)
  stem = stem + 1
end