A nice overview of the source code for that is:

http://literateprogramming.com/adventure.pdf