function limit40(str) {
  if (lenB(str) < 40) {
    return len(str);
  }
  for (i = 21; i <= 40; i++) {
    if (lenB(left(str, i)) > 40) {
      return (i - 1);
    }
  }
  return 40;
}

writeln("郵便番号,届け先氏名,敬称,住所1行目,住所2行目,住所3行目,住所4行目,内容品");

for (y = 2; y <= Bottom; y++) {
  // 郵便番号
  write([9,y] + ",");
  // 届け先氏名
  write([8,y] + ",");
  // 敬称
  write([14,y] + ",");

  // 住所1行目
  address = str([10,y]);
  p = limit40(address);
  write(left(address, p) + ",");

  // 住所2行目
  address = mid(address, p + 1);
  p = limit40(address);
  write(left(address, p) + ",");

  // 住所3行目
  address = mid(address, p + 1);
  p = limit40(address);
  write(left(address, p) + ",");

  // 住所4行目
  address = mid(address, p + 1);
  write(address + ",");

  // 内容品
  writeln([26,y]);
}