form Files
	word inFile_(Long_Sound) MediaEnglishEpisode3.wav
	comment A matching TextGrid file will be created
endform

prefix$ = inFile$ - ".wav"
outFile$ = prefix$ + ".TextGrid"
Open long sound file... 'inFile$'
Rename... longSoundObj
To TextGrid... utterance
Rename... textgridObj
plus LongSound longSoundObj
Edit

while 1=1
	editor TextGrid textgridObj
		pause Select target utterance
		startOfUtt = Get start of selection
		endOfUtt = Get end of selection
	endeditor
	select TextGrid textgridObj
	Insert boundary... 1 startOfUtt
	Insert boundary... 1 endOfUtt
	Write to text file... 'outFile$'
endwhile