Macro IntSpect(name1,name2,name3,name4,start_INT,stop_INT)

	STRING name1,name2,name3,name4,name1_IntSpect,name2_IntSpect,name3_IntSpect,name4_IntSpect
	VARIABLE start_INT=400,stop_INT=4000
	PROMPT start_INT, "What is the integration to start at?"
	PROMPT stop_INT, "What is the integration to stop at?"
	Prompt name1,"What is name of wave to convert?", popup, WaveList("*",";","")
	Prompt name2,"What is name of wave to convert?", popup, WaveList("*",";","")
	Prompt name3,"What is name of wave to convert?", popup, WaveList("*",";","")
	Prompt name4,"What is name of wave to convert?", popup, WaveList("*",";","")

	name1_IntSpect = name1 + "_IntSpect"
	name2_IntSpect = name2 + "_IntSpect"
	name3_IntSpect = name3 + "_IntSpect"
	name4_IntSpect = name4 + "_IntSpect"

	wavestats/R=(stop_INT,start_INT)$name1
	wavestats/R=(stop_INT,start_INT)$name2
	wavestats/R=(stop_INT,start_INT)$name3
	wavestats/R=(stop_INT,start_INT)$name4
	
	Integrate $name1/D=$name1_IntSpect
	Integrate $name2/D=$name2_IntSpect
	Integrate $name3/D=$name3_IntSpect
	Integrate $name4/D=$name4_IntSpect

	
//Display $N_name
//SetAxis/A/R bottom
//Label left "area under de curve";DelayUpdate
//Label bottom "Wavelength"
	
	Endmacro