ＰＡＲ＆Ｘ−Ｔゲーム改造スレッド２

今更で恐縮ですが、初代ポケモンのタイプ変更のコードってありますでしょうか？
結構探したんですが、見つからなくて・・・。