var dirout;
var abort;

macro 'RUN FIRST [9]' {
	abort=false;
	dir = getDirectory("Choose an Input Directory ");
	dirout = getDirectory("Choose Output (Save To) Directory");
	list = getFileList(dir);
	for (i=0; i<list.length; i++) {
		name = list[i];
		path = dir+name;
		open(path);
		setThreshold(95, 255);
		run("Threshold...");
		while (isOpen(name)) {
			wait(10);	
			if (abort) {print("Aborted"); exit();}
		}
	}
}

macro 'Binary and Save [b]' {
	title = getTitle();
	pathout = dirout+title;
	getThreshold(lower, upper);
	run("Apply LUT");
	print(""+title+", "+lower+", "+upper+"");
	dotIndex = lastIndexOf(pathout, ".");
	if (dotIndex!=-1) {
		pathsave = substring(pathout, 0, dotIndex); // remove extension
		save(pathsave+"-bin.gif");
	}
	selectImage(1);
	close();
}	

macro "Abort" {
	abort = true;
}