;+
; NAME: multifindingchart
; PURPOSE:
; 	call findingchart for a bunch of sources listed in a file.
;
; INPUTS:
; KEYWORDS:
; 	/coords		use coords from the target file, not just names.
; 				Useful for targets not in SIMBAD
; 	wait=#		wait # seconds between images
; 	/ps			write to PS
; OUTPUTS:
;
; HISTORY:
; 	Began 2005-07-14 18:16:08 by Marshall Perrin 
; 	2005-09-29	added /wait, and /ps
;-
PRO multifindingchart,filename,coords=coords,wait=wait,_extra=_extra



	readcol,filename,names,format="(A)"

	if keyword_set(coords) then begin
		readcol,filename,name,rah,ram,ras,dd,dm,ds,lickdone,keckdone,form='a,f,f,f,f,f,f,f,f'
		allcoords = strc(fix(rah))+" "+strc(fix(ram))+" "+strc(ras)+" +"+strc(fix(dd))+" "+strc(fix(dm))+" "+strc(ds)
		if total(dd lt 0) gt 0 then $
			message,"This won't work for any negative declinations - fix the code!"
	endif 

	for i = 0,n_elements(names)-1 do names[i] = strepex(names[i],"_"," ",/all)


	for i = 0,n_elements(names)-1 do begin
		if keyword_set(allcoords) then coords=allcoords[i]
		findingchart,names[i],coords=coords,_extra=_extra
		if keyword_set( wait) then wait,wait
	endfor

		

end