The closest *I* know is if you've already beaten the things. (For R/B)
Make sure you have infinite pokéballs of some sort (make it 2nd item in list for this code): 016321D3
Reset Pokés (you can capture again)
0100D8D7 + 0101A9D5: Snorlax
010082D8 + 0100D3D5: Articuno
0100D4D7 + 0100B0D5: Zapdos
0100EED7 + 0100B1D5: Moltres
01005FD8 + 0100C0D5: Mewtwo
Sorry, I forget which Snorlax that is. I think it's the one by the cycling road. Just go where you normally see them, they should be there again.
We interrupt this show for an important message: I love you. Now back to your regularly scheduled program.