J7 source code:

http://www.math.uwaterloo.ca/apl_archives/j/early_j/src/