download the rebol core and dictionary documentation

from Louis Turk on the altme rebol3 world Would someone on the rebol mail list please post the following script for whoever might find it useful? Here is a simple script to download the rebol core and dictionary documentation to your harddrive. Simply run the program. it will make appropriate folders and download the files. rebol [] make-dir %/c/rebol-docs/ make-dir %/c/rebol-docs/graphics/ make-dir %/c/rebol-docs/words/ change-dir %/c/rebol-docs/ page: copy read http://www.rebol.com/docs/core23/rebolcore.html write %rebolcore.html page write %graphics/doc-bar.gif read http://www.rebol.com/graphics/doc-bar.gif links: [] parse page [some [thru {<A HREF="} copy temp to {"} (append links temp)] to end] foreach link links [ if not find link "http:" [ print ["Downloading: " link] write to-file link read to-url rejoin ["http://www.rebol.com/docs/core23/" link] ] ] page: copy read http://www.rebol.com/docs/dictionary.html write %dictionary.html page links: [] parse page [some [thru {<A HREF="} copy temp to {"} (append links temp)] to end] foreach link links [ if not find link "http:" [ print ["Downloading: " link] write to-file link read to-url rejoin ["http://www.rebol.com/docs/" link] ] ] print "" ask "Finished. hit <ENTER> to quit." quit -- ... nice weather eh