// 13列目と14列目にある文字列を全て全角に変換する。
SelLeft = 13;
SelRight = 14;
SelTop = 1;
SelBottom = Bottom;
TransChar1();
TransChar5();

for (y = 1; y <= Bottom; y++) {
  // ビックリマーク以降の文字列を全て消す。
  p = pos([13,y], "！");
  if (p > 0) {
    [13,y] = left([13,y], p - 1);
  }
  p = pos([14,y], "！");
  if (p > 0) {
    [14,y] = left([14,y], p - 1);
  }

  // 14列目に入っている文字数(スペースも含め)が15文字以上あれば、
  // 15文字の所でカンマを追加し、15文字以降の文字列は15列目に移動させ、
  [15,y] = mid([14,y], 16) + [15,y];
  [14,y] = left([14,y], 15);

  // 15列目でも15文字以上あれば、カンマを追加し、15文字以降の文字列を16列目に移動させる。
  [16,y] = mid([15,y], 16) + [16,y];
  [15,y] = left([15,y], 15);
}