for (y = 1; y <= Bottom; y++) {
  p = pos([x,y], "―");
  if (p > 0) {
    [x+1,y] = mid([x,y], p + 1);
    [x,y] = left([x,y], p - 1);
  }
}