clearinfo
writeInfoLine: "label", tab$, "VOT"

textgrid = selected("TextGrid")
numToken = Get number of intervals... 1

for i from 1 to numToken
	select textgrid
	token_label$ = Get label of interval... 1 i
	if token_label$ != ""
		start = Get start point... 1 i
		end = Get end point... 1 i
		Extract part... start end no
		Rename... 'i'

		for j from 1 to 2
			event_time = Get time of point... 2 j
			event_label$ = Get label of point... 2 j

			if event_label$ = "b"
				burst = event_time
			elsif event_label$ = "v"
				voice = event_time
			else
				exit Unknown label!
			endif
		endfor

		vot = voice - burst
		appendInfoLine: token_label$,tab$,vot
		Remove
	endif
endfor

exit