pro bcs_samp, irec, data, dgi, ngrps, callev, cinwin, cenco, tcnts
;
;
;
common bcs_samp_blk, lun
;
if (n_elements(lun) eq 0) then begin
    get_lun, lun
    ;infil = filnam_fix('refdata:bcs_samp2.dat')
    infil = filnam_fix('refsoft:bcs_samp2.dat')
    openr, lun, infil
end
;
ngrps	= lonarr(4)
callev	= lonarr(4)
cinwin	= lonarr(4)
cenco	= lonarr(4)
tcnts	= lonarr(4)
dgi	= float(0)
data0	= bytarr(256,4)
;
point_lun, lun, long(1108)*irec
readu, lun, ngrps, callev, cinwin, cenco, tcnts, dgi, data0
;
data = fix(data0) - 128		;Fortran/IDL byte signing problem?
;
end