変数宣言　文字列{&TBL},長整数{&i,&確認}
繰り返し
　ファイル名入力　初期値="*.TBL",プロンプト="半角カナを全角に変換したい表を指定（[Esc]で終了）",&TBL
　条件(&TBL="")　繰り返し中止
　表　&TBL
　表表示
　繰り返し
　　キー入力　(1,1),プロンプト="処理したい項目の項目番号を入力([Esc]で終了)",モード=確定,初期値="",終了状態=&実行リターン,&i
　　条件(&実行リターン<1 .or &i<1)　繰り返し中止
　　手続き実行　半角カナ置換()
　　確認　"項目番号"+#STR(&i)+"の変換終了、続いて他項目も変換しますか？",&確認
　　条件(&確認<>1)　繰り返し中止
　繰り返し終了
　終了　表　編集対象表
繰り返し終了
終了

proc 半角カナ置換()
＊項目番号を利用した置換（&iが項目番号）
置換　終了状態=&実行リターン\
　,&i=#s(#s(#s(#s(#s(#s(#s(#s(#s(#s(#s([],"ｳﾞ","ヴ"),"ｶﾞ","ガ"),"ｷﾞ","ギ"),"ｸﾞ","グ"),"ｹﾞ","ゲ"),"ｺﾞ","ゴ"),"ｻﾞ","ザ"),"ｼﾞ","ジ"),"ｽﾞ","ズ"),"ｾﾞ","ゼ"),"ｿﾞ","ゾ")
置換　終了状態=&実行リターン\
　,&i=#s(#s(#s(#s(#s(#s(#s(#s(#s(#s([],"ﾀﾞ","ダ"),"ﾁﾞ","ヂ"),"ﾂﾞ","ヅ"),"ﾃﾞ","デ"),"ﾄﾞ","ド"),"ﾊﾞ","ﾊﾞ"),"ﾋﾞ","ビ"),"ﾌﾞ","ブ"),"ﾍﾞ","ベ"),"ﾎﾞ","ボ")
置換　終了状態=&実行リターン\
　,&i=#s(#s(#s(#s(#s(#s(#s(#s(#s(#s([],"ﾊﾟ","パ"),"ﾋﾟ","ピ"),"ﾌﾟ","プ"),"ﾍﾟ","ペ"),"ﾎﾟ","ポ"),"ｧ","ァ"),"ｨ","ィ"),"ｩ","ゥ"),"ｪ","ェ"),"ｫ","ォ")
置換　終了状態=&実行リターン\
　,&i=#s(#s(#s(#s(#s(#s(#s(#s(#s(#s([],"ｱ","ア"),"ｲ","イ"),"ｳ","ウ"),"ｴ","エ"),"ｵ","オ"),"ｶ","カ"),"ｷ","キ"),"ｸ","ク"),"ｹ","ケ"),"ｺ","コ")
置換　終了状態=&実行リターン\
　,&i=#s(#s(#s(#s(#s(#s(#s(#s(#s(#s([],"ｻ","サ"),"ｼ","シ"),"ｽ","ス"),"ｾ","セ"),"ｿ","ソ"),"ﾀ","タ"),"ﾁ","チ"),"ﾂ","ツ"),"ﾃ","テ"),"ﾄ","ト")
置換　終了状態=&実行リターン\
　,&i=#s(#s(#s(#s(#s(#s(#s(#s(#s(#s([],"ﾅ","ナ"),"ﾆ","ニ"),"ﾇ","ヌ"),"ﾈ","ネ"),"ﾉ","ノ"),"ﾊ","ハ"),"ﾋ","ヒ"),"ﾌ","フ"),"ﾍ","ヘ"),"ﾎ","ホ")
置換　終了状態=&実行リターン\
　,&i=#s(#s(#s(#s(#s(#s(#s(#s(#s(#s([],"ﾏ","マ"),"ﾐ","ミ"),"ﾑ","ム"),"ﾒ","メ"),"ﾓ","モ"),"ﾔ","ヤ"),"ﾕ","ユ"),"ﾖ","ヨ"),"ｬ","ャ"),"ｭ","ュ")
置換　終了状態=&実行リターン\
　,&i=#s(#s(#s(#s(#s(#s(#s(#s(#s(#s([],"ｮ”,"ョ"),"ﾗ","ラ"),"ﾘ","リ"),"ﾙ","ル"),"ﾚ","レ"),"ﾛ","ロ"),"ﾜ","ワ"),"ｦ","ヲ"),"ﾝ","ン"),"ｰ","ー")
置換　終了状態=&実行リターン\
　,&i=#s(#s(#s(#s(#s(#s([],"｢”,"「"),"｣","」"),"｡","。"),"､","、"),"･","・"),"ｯ","ッ")
＊他はもう無いかなぁ？
＊"~"→"～"の置換は除外した。
＊Wingboy氏のご指摘により「ッ」の扱いを追加した。
＊表形式編集
end