procedure tchoose (cpAcross, fileSet, Nsl, inPref, choose1, choose2, howSelect, idFile, outPref, verb)

bool cpAcross 	{yes, prompt="Copy and compile choose.f?"}
int fileSet	{1, prompt="File Set: 1=outMean; 2=starMean; 3=elgLine"} 
int Nsl		{9, prompt="Number of wavelength slices (DON'T COUNT TSCALE O/P)"}
string inPref	{"try",prompt="Input file extension"}
string choose1	{"0.  -  0.  -  0.", prompt="Min   lt/le    Col No.   lt/le   Max"}
string choose2 	{"0.  -  0.  -  0.", prompt="Min   lt/le    Col No.   lt/le   Max"}
string howSelect  {"and", prompt="Selection method: and/or/file/anti"}
string idFile   {"=", prompt="    File of IDs if howSelect=file/anti"}
string outPref	{"jnk",prompt="Output file extension"}
bool verb	{yes, prompt="Verbose mode?"}



begin

	# Variable declarations:



	# Running choose: ------------------------------------------

	if (verb==yes) {
		print (" ")
		print ("================================================")	
		print (" ")
	}	

	if (cpAcross==yes) {
		if (verb==yes) {
	 		print (" Copying choose.f across...")
		}
	 	!cp /home/dhj/iraf/TFred/choose.f .
		if (verb==yes) {	
		 	print (" ")	
		 	print (" Compiling...")
		}
	 	!f77 -C choose.f -o choose
		if (verb==yes) {
	 		print (" ")
		}		
	}


	# Creating choose.in:
	if (verb==yes) {
		print (" Creating choose.in:")
		print (" ")
	}
	!/bin/rm choose.in
	print (fileSet, > "choose.in")
	print (Nsl, >> "choose.in")
	print (inPref, >> "choose.in")
	print (choose1, >> "choose.in")
	print (choose2, >> "choose.in")
	print (howSelect, >> "choose.in")
	print (idFile, >> "choose.in")
	print (outPref, >> "choose.in")
	if (verb==yes) {	
		type (input_fi="choose.in", map_cc+, device="terminal", flpar-)

		print(" ")
		print(" ")
		print ("------------------------------------------------")
		print(" ")
		print(" Running choose...")
		print (" ")
	}	
	!choose

	if (verb==yes) {	
		print (" ")
		print ("================================================")	
		# print (" ")	
		# print (" Done.")
		print (" ")	
		print (" ")
	}

end