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