;read_channels

;date='061293'
date='101094'

Filename=getenv('spk_dat')+'\00'+date+'.cha'

;Filename=pickfile(path=getenv('spk_dat'),filt='*.cha',/write)
;if Filename eq '' then goto,exit

	openr,lun,Filename,/get_lun

status=fstat(lun)
N_bad_chan=(status.size-42)/18
data=intarr(2,N_bad_chan)

emptystring=''

readf,lun,emptystring
readf,lun,emptystring
readf,lun,data
	free_lun,lun

i_Bad_channels=where(Data(1,*))

Bad_channels=Data(0,sort(Data(0,i_Bad_channels)))

;print,data
;print
print,Bad_channels

exit:
end