for (y = 1; y <= Bottom; y++) {
  s = replace([x,y], "(.*-[0-9]+)", "$1�¡", false, true);
  p = pos(s, "�¡");
  if (p > 0) {
    [x,y] = left(s, p - 1);
    [x+1,y] = mid(s, p + 1);
  }
}