REBOL [
    Title: "Interactive FTP Downloader"
    File:  %ftpdownload.r
    Date:  26-May-1999
    Purpose: {
        Download a group of files from an FTP server, prompting
        for each file along the way.
    }
    Category: [ftp net file 2] 
]

site: ftp://ftp.rebol.com/pub/downloads/

pattern: "*.gz"

files: read site

foreach file files [
    if find/match/any file pattern [
        if find/match ask ["Get" file "now? "] "y" [
            write/binary file read/binary site/:file
        ]
    ]
]