pro get_bcs, FileList, index, data, dp_sync, $
        channel=channel, all=all


;   dp_sync must be present???
;   or should read_bcs,files,index  be possible...

if n_params() ne 4 or (1-data_chk(FileList,/string)) then begin 
   box_message,['Need 4 parameters, a filelist, and 3 outputs...',$
                'IDL> get_bcs, filelist, index ,data, dp_sync']
   return
endif


;if n_params() ne 4 then begin
;   print,'** Call should be get_bcs,FileList,index,data,dp_sync
;   return
;endif

if FileList(0) eq '' then begin
   box_message,['No file names supplied...']
   return
endif

print,'Using files: '
print,FileList,format='(x,a)'
print,''

;   channel to use for lightcurve selection
chan = 3
if keyword_set(channel) then chan = channel

;   /all keyword does not call light curve selector
ssVec = -1

;   read on roadmap and select the desired interval
if not keyword_set(all) then begin
   rd_roadmap, FileList, roadmap, ndset, filidx=filidx
   Counts = gt_total_cnts(roadmap, chan, title=title)>0
   ssVec = plot_lcur(roadmap, Counts, title=title)
endif else print,'** Selecting all the data **'

rd_bda,FileList,ssVec,index,data
rd_bda_dp,FileList,dp_sync

print,'Selected time range:'
fmt_timer,index

end