function quote(str) {
  return "\"" + replace(str, "\"", "\"\"") + "\"";
}

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;
}

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

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

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

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

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

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

  // 内容品
  writeln(quote(str([27,y])));
}