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