REBOL [
    Title:   "Get All Library Scripts"
    Date:    20-May-1999
    File:    %weblib.r
    Purpose: "Downloads all scripts from the REBOL script library"
    Category: [web file net util 2] 
]

library: http://www.rebol.com/examples

scripts: load library/scripts.r

print [{This program will download all example files
to your current directory. (} what-dir {)}]

if find/match ask "Ready to download? " "y" [
    foreach file scripts [
        print ["Downloading: " library/:file]
        write file read library/:file
    ]
]