There's a very cool site called Rosetta Code, that contains a large number of simple programming problems, and how to solve them in a variety of programming languages. The idea is that newbies to a language can go there to see how to, for example, write "bubble sort" in their new language.
At any rate, I noticed that the site was very short on examples from Forth, SML and the old "line number" style BASIC. So I've been slowly building up the entries for these languages. I must say the Forth examples are the most fun, and in some cases I've had to do some research to get the example code to work. (A good examples is the "uniq" implementation.)
I can't claim all of the code for these languages by any means, but it's nice to feel like I'm helping out in some small way, even if only for old or obscure languages nobody cares about.