edit; If you are interested in finding other glitches, there's commented source code over here:
Red/Blue: https://github.com/iimarckus/pokered
Crystal: https://github.com/kanzure/pokecrystal (Gold/Silver doesn't compile yet)
I love that there are nerds tucked away in random corners of the internet, making themselves happy by working on obscure, challenging problems like these.
edit; If you are interested in finding other glitches, there's commented source code over here:
Red/Blue: https://github.com/iimarckus/pokered
Crystal: https://github.com/kanzure/pokecrystal (Gold/Silver doesn't compile yet)