for (y = 1; y <= Bottom; y++) {
  if ([1,y] == 1) {
    r = 8;
  } else if ([1,y] == 2) {
    r = 6;
  } else {
    r = Right;
  }

  for (x = 1; x <= r; x++) {
    if (x > 1) {
      write(",");
    }

    s = [x,y];
    if (pos(s, ",") > 0 || pos(s, "\"") > 0 || pos(s, "\t") > 0) {
      write("\"");
      write(replace(s, "\"", "\"\""));
      write("\"");
    } else {
      write(s);
    }
  }
  writeln();
}