シフトコード「X'0E’」があったら全角の開始、「X'0F'」があったら全角終了。RPGなら配列にいれて探す。ILEなら%SCANして%SUBSTすればいけます。
解決しました。ありがとうございました。