pro print_bcs_qs, qs, file=file
;
;
;
qfile = 0
if (keyword_set(file)) then begin
    get_lun, lun
    openw, lun, file
    qfile = 1
end
tit = 'Start Time        End Time           SCAVAL    HV  Stim  Fe26  Chan_MFD SAA FlrRis FlrDec FlrOpt
print,tit	& if (qfile) then printf, lun, tit
print, '  '	& if (qfile) then printf, lun, '  '
n = n_elements(qs.instr)
fmt = '(a,1x,a,f11.3, 2x,8i4, 8(1x,Z2.2))'
for in=0,n-1 do begin
	dd = qs.instr(in)
        int2ex, qs.instr(in).st_time, qs.instr(in).st_day, st_arr
        int2ex, qs.instr(in).en_time, qs.instr(in).en_day, en_arr
	diff = (dd.en_day-dd.st_day)*86400 + (dd.en_time-dd.st_time)/1000.
	str=string(fmt_tim(st_arr), fmt_tim(en_arr), diff, dd.scaval, dd.hv_control, dd.stim_control, dd.fe26_thresh, dd.chan_mfd, $
				dd.saa_thresh, dd.flr_risethresh, dd.flr_decaythresh, dd.flr_optionid, format = fmt)
	print, str	& if (qfile) then printf, lun, str
end
;
if (qfile) then free_lun, lun
end