for (y = 1; y <= Bottom; y++) {
  s = [1,y];
  p = pos(s, "ƒJƒ‰�[�F");
  if (p > 0) {
    [1,y] = left(s, p - 1) + [2,y] + mid(s, p);
    [2,y] = "";
  }
}