;
;
;
for irec=0,59 do begin
    bcs_samp, irec, data, dgi, ngrps, callev, cinwin, cenco, tcnts
    
    !p.multi = [0, 2, 2, 0, 0]
    for ichan=0,3 do begin
	str = string(callev(ichan), cinwin(ichan), cenco(ichan), tcnts(ichan), format = '(4i6)')
	tit = 'Chan ' + strtrim(ichan+1,2) + '  Rec ' + strtrim(irec,2) + '!c' + str
	n = ngrps(ichan)-1
	!type = 4
	set_xy, 0, n+1
	!y.margin = [4,4]
	plot, data(0:n, ichan), psym = 10, title = tit, charsize = 0.7
    end

    in = ' '
    ; read, 'Pause', in
end
;
end