[CreateGraph]
	// Create the graph from the data and plot
	window -a multiWks;
	worksheet -s 1 0 $(fileCount) 0;
	getnumber "Bin size: " binSize "Length bin size, user must enter a value.";
	
	nCol = fileCount;
	iLeft = wks.c1;
	
	window -t p MULTILAYOUT;	// create a new graph window
	%B = %H;
	window -r %B multiReport;
	
	window -t data MULTI;		// create a new worksheet for bin percentages
	%B = %H;
	window -r %B percWks;
	
	window -t data MULTI;		// create a new worksheet for binning
	%B = %H;
	window -r %B binWks;
	
	for (kk = 0; kk < nCol; kk++)	// loop over the selected columns
	{
		%A = %(multiWks, iLeft +$(kk));		// dataset name of an input column
		
		sum(%A);		// find max and min
		binMin = sum.min;
		binMax = sum.max;

		indexCol = $(kk) + 1;
		col($(indexCol)) = Histogram(%A, binSize, binMin - binSize, binMax);	
	};
	
	// create particle frequency by percentage data
	for (mm = 1; mm <= wks.ncols; mm++)
	{
		sum(%(binWks,mm));
		%(percWks,mm) = 100 * %(binWks,mm) / sum.total;
	}
	window -a percWks;
	
	// plot the graph
	worksheet -s 1 0 $(fileCount) 0;
	run.section(Plot, LineSymbol);

	// configure plot symbols (and size) and line colours
	if (fileCount => 1 && fileCount < 2) {
		set binWks_A -k 2;				// change shape to circle
		set binWks_A -c 1;				// line colour = black
		set binWks_A -z 3;				// symbol size of 3
	} if (fileCount => 2 && fileCount < 3) { 
		set binWks_B -k 2;
		set binWks_B -c 2;				// line colour = red
		set binWks_B -z 3;				// symbol size of 3
	} if (fileCount => 3 && fileCount < 4) {
		set binWks_C -k 2;	
		set binWks_C -c 3;				// line colour = blue
		set binWks_C -z 3;				// symbol size of 3
	} if (fileCount => 4 && fileCount < 5) {
		set binWks_D -k 2;
		set binWks_D -c 4;				// line colour = dark cyan
		set binWks_D -z 3;				// symbol size of 3
	} if (fileCount => 5 && fileCount < 6) {
		set binWks_E -k 2;
		set binWks_E -c 5;				// line colour = magenta
		set binWks_E -z 3;				// symbol size of 3
	} if (fileCount => 6 && fileCount < 7) {
		set binWks_F -k 2;
		set binWks_F -c 6;				// line colour = dark yellow
		set binWks_F -z 3;				// symbol size of 3
	} if (fileCount => 7 && fileCount < 8) {
		set binWks_G -k 2;
		set binWks_G -c 7;				// line colour = navy
		set binWks_G -z 3;				// symbol size of 3
	} if (fileCount => 8 && fileCount < 9) {
		set binWks_H -k 2;
		set binWks_H -c 8;				// line colour = wine
		set binWks_H -z 3;				// symbol size of 3
	} if (fileCount => 9 && fileCount < 10) {
		set binWks_I -k 2;
		set binWks_I -c 9;				// line colour = pink
		set binWks_I -z 3;				// symbol size of 3
	} if (fileCount == 10) {
		set binWks_J -k 2;
		set binWks_J -c 10;				// line colour = green
		set binWks_J -z 3;				// symbol size of 3
	}
	
	document -uw;
	%B = %H;
	window -r %B multiGraph;
	
	// re-scale the graph
	layer -a;
	layer1.x.from = 0;
	layer1.y.from = -10;	// -10 to increase clarity of points (will be -10%)
	
	// create the legend
	legend -s;
	legend.fSize = 14; 			 // set the font size
	legend.text$ = %Z;
	legend.x1 = legend.x1 - 5;
	legend.y1 = legend.y1 - 4;
	legend.background = 1;		 // add a border
	
	// label the axes
	label -n XB \b(\p120(Particle size (profile length) microns));
	label -n YL \b(\p120(Particle frequency (percentage by number)));
	
	// finally make the report the active window ready to export
	window -a multiReport;

[LoadData]
	// Open files and place them in new, seperate worksheets
	fdlog.path$ = "C:\MATLAB71\PIMS\"; // set fdlog's default path
	fdlog.ShowComment = 0;
	fdlog.UseGroup(Ascii);
	if (fdlog.MultiOpen() != 0/0);
	{
		loop (ii, 1, fdlog.MultiOpen.Count)
		{
			window -t data asciiImport;
			fdlog.Get(A, ii);
			open -w %A;
			%B = %H;
			window -r %B Sheet$(ii);			
		}
	}
	
	// Merge all worksheets into one dataset
 	fileCount = fdlog.MultiOpen.Count;
	if (fileCount == 0) 
	{
		type -b "Error: No files have been selected for loading.";
		return; // exit the script
	}
	else if (fileCount > 10)
	{
		type -b "Error: Too many files selected. Maximum number is 10.";
		return; // exit the script
	}
	else 
	{
		// copy col D from sheet represented by count to the column 
		// represented by count in multiWks
		window -t data MULTI;
		%B = %H;
		window -r %B multiWks;
		%Z = "";
		loop (jj, 1, fileCount)
		{
			// extraction of length data
			%(multiWks,jj) = Sheet$(jj)_D;	// copy length data
		}
	}

        type "check files to open";
	if (fdlog.MultiOpen() != 0/0);
	{
		type "YES files to open";
		type "count = $(fdlog.MultiOpen.Count)";
		loop (ii, 1, fdlog.MultiOpen.Count)
		{
			type "loop $(ii) new worksheet asciiImport";
			window -t data asciiImport;
			type "loop $(ii) open fdlog GET";
			fdlog.Get(A, ii);
			type "loop $(ii) open new worksheet";
			open -w %A;
			type "loop $(ii) %B=%H";
			%B = %H;
			type "loop $(ii) rename worksheet to Sheet$(ii)";
			window -r %B Sheet$(ii);
			type "loop $(ii) end";
		}
		type "end if";
	}
	type "assigning count to fileCount";
	// Merge all worksheets into one dataset
 	fileCount = fdlog.MultiOpen.Count;

check files to open
YES files to open
count = 1
assigning count to fileCount

quote:

---

I don't see how LabTalk can be so temperamental about a script that processes just fine on one machine, yet fails to process on another.

---