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(","); } write("\""); write(replace([x,y], "\"", "\"\"")); write("\""); } writeln(); }