FUNCTION mk_fidlist, ffid, lfid, path=path, wid=wid
;	---------------------------------------------------------------
;+							5-May-93
;	NAME: mk_fidlist
;
;	PURPOSE: Make a complete list of fids given a first and a last fid. 
;
;	Calling Sequence:
;		fid_list = mk_fidlist( first_fid, last_fid)	;default dir
;		fid_list = mk_fidlist( first_fid, last_fid, path=path) 
;	or      fid_list = mk_fidlist( first_fid, last_fid, wid=wid) 
;
;	History: written 5-May-93, gal.
;-
;	--------------------------------------------------------------

	IF keyword_set(wid) THEN BEGIN
	  If strlen(wid) eq 5 then wid = wid+'a'
	  dir = finddir(wid)		;get full path	  
	ENDIF ELSE BEGIN		;check for path or take default
	  IF n_elements(path) eq 0 then begin	;take the default
	    cd, current=dir
	  ENDIF ELSE BEGIN
	    dir = path
	  ENDELSE
        ENDELSE

	fids = uniq_fid(dir)

	i1 = where(fids eq ffid)
	i2 = where(fids eq lfid)

	IF (i1(0) eq -1) or (i2(0) eq -1) then begin
	  Print, 'fl_list: First or Last FID NOT found.'
	  return, ''		;return null
	ENDIF

	nfids = indgen(n_elements(fids))
	w1 = where(nfids ge i1(0))
	w2 = where(nfids(w1) le i2(0))

	return, fids(nfids(w1(w2)))
	
	END