MAX_LEN = 15;

inserted = Col;
for (y = 1; y <= Bottom; y++) {
  x = Col;
  while(len([x,y]) > MAX_LEN) {
    if (x + 1 > inserted) {
      InsertCol(x + 1);
      inserted = x + 1;
    }
    [x+1,y] = mid([x,y], MAX_LEN + 1);
    [x,y] = left([x,y], MAX_LEN);
    x++;
  }
}