pro plot1, stfid, enfid, prefix, sensor, timerange=timerange
;
;
    ;infil_arr = file_list('/yd3/morrison/mdi', prefix+'*')
    infil_arr = file_list('/md65/toulouse/tb_tv', prefix+'*')
    break_file, infil_arr, dsk_log, dir, filnam_arr, ext
    filnam_arr = filnam_arr + ext
    p = strpos(filnam_arr(0), '_9')
    fid_arr = strmid(filnam_arr, p+1, 11)
    p2 = strpos(filnam_arr(0), '_')
    sens_arr = fix(strmid(filnam_arr, p2+1, p-p2-1))

for isen=0,n_elements(sensor)-1 do begin
    ss = where((fid_arr ge stfid) and (fid_arr le enfid) and (sens_arr eq sensor(isen)))
    infil = infil_arr(ss)
    nfil = n_elements(infil)
    ;
    sttim = fmt_tim(fid2ex(fid_arr(ss(0))))
    ;
    yrange = [1e+10, -1e+10]
    for ifil=0,nfil-1 do begin
	mat = rd_tfile(infil(ifil), 2)
	yrange(0) = min([yrange(0), reform(mat(1,*))])
	yrange(1) = max([yrange(1), reform(mat(1,*))])
    end
    ;
    for ifil=nfil-1,0,-1 do begin
	infil0 = infil(ifil)
	p = strpos(infil0, '_9')
	fid = strmid(infil0, p+1, 11)
	mat = rd_tfile(infil0, 2)
    
	x = float(mat(0,*))
	y = mat(1,*)
	ref_time = fmt_tim(fid2ex(fid))
	entim = fmt_tim(anytim2ints(ref_time, off=max(x)))

	;tit = strtrim(nfil,2) + ' Files Plotted'
	tit = '(Sensor ' + strtrim(sensor(isen),2) + ')'
	case sensor(isen) of
	    1267: tit = 'OP Front Window ' + tit 	+  '   (TC 957)
	    1314: tit = 'OP FT 1 TRP/PLM ' + tit 	+  '   (TC 609)
	    1315: tit = 'OP UTRP BULK ' + tit 		+  '   (TC 610)
	    1316: tit = 'OP Panel 1/PLM ' + tit 	+  '   (TC 611)
	    1389: tit = 'CCD Radiator ' + tit 		+  '   (TC 914)
	    1390: tit = 'OP Radiator ' + tit 		+  '   (TC 915)
	    167:  tit = 'Solar Flux ' + tit
	    502:  tit = 'Pressure ' + tit
	    505:  tit = 'Coldwall temp ? ' + tit
	    506:  tit = 'Coldwall temp'
	    else: tit = '??? ' + tit
	endcase
	if (not keyword_set(timerange)) then timerange=[sttim,entim]
	if (ifil eq nfil-1) then begin
	    utplot, x, y, ref_time, tit=tit, /ynozero, timerange=timerange, yrange=yrange, ytype=(sensor(isen) eq 502)
	end else begin
	    outplot, x, y, ref_time
	end
    end
    plottime, 0, .04, strtrim(nfil,2) + ' Files Plotted'
    plottime, 0, 0, 'PLOT_TB_TV.PRO  Ver 2.0'
    plottime
    pause
end

pprint

end
;-------------------------------------------------------
;
;
;
if (n_elements(infil_arr) eq 0) then begin
    ;infil_arr = file_list('/yd3/morrison/mdi', 'mdi_*')
    infil_arr = file_list('/md65/toulouse/tb_tv', 'mdi_*')
    break_file, infil_arr, dsk_log, dir, filnam_arr, ext
    filnam_arr = filnam_arr + ext
    p = strpos(filnam_arr(0), '_9')
    fid_arr = strmid(filnam_arr, p+1, 11)
end
;
;;ii = xmenu_sel(filnam_arr)
;;if (ii(0) eq -1) then stop
;
;;infil = infil_arr(ii(0))
;;p = strpos(infil, '_9')
;;fid = strmid(infil, p+1, 11)
;;mat = rd_tfile(infil, 2)
;;x = float(mat(0,*))
;;y = mat(1,*)
;;ref_time = fid2ex(fid)
;
;;utplot, x, y, ref_time, tit=infil, /ynozero

goto, skip
plot1, '950101.0000', '950115.0000', 'forall_', [167, 502, 505, 506]
plot1, '941209.0000', '941213.2359', 'forall_', [167, 502, 505, 506]
plot1, '941215.0000', '941231.0000', 'forall_', [167, 502, 505, 506]

plot1, '941209.0000', '941213.2359', 'mdi_', [1267, 1314, 1315, 1389, 1390]
plot1, '941215.0000', '941231.0000', 'mdi_', [1267, 1314, 1315, 1389, 1390]
plot1, '950101.0000', '950115.0000', 'mdi_', [1267, 1314, 1315, 1389, 1390]

!p.multi=[0,2,2]
!x.style=1
plot1, '941215.0000', '941223.0000', 'forall_', [167, 502, 505, 506], timerange=['17-dec-94','22-dec-94']

skip:
plot1, '941217.0000', '941220.0000', 'forall_', [167], timerange=['18-dec-94','19-dec-94']


end