form File name
	word soundFile_(with_dot_wav) SouthPark.wav
endform

#fileName$ = "SexCity.wav"

prefix$ = soundFile$ - ".wav"
outFile$ = prefix$ + ".Collection"
Open long sound file... 'soundFile$'
Rename... longObj
To TextGrid... sentence 
Rename... textObj
plus LongSound longObj
Edit

i=0
dur = 1
while dur>0
	i=i+1
	j=i*2

	editor TextGrid textObj
		pause Pick your sentence. SINGLE-CLICK anywhere when all done.
		start = Get start of selection
		end = Get end of selection
		dur = end - start
	endeditor

	if dur>0
		select TextGrid textObj
		Insert boundary... 1 start
		Insert boundary... 1 end
		Set interval text... 1 j 'i'
	
		select LongSound longObj
		Extract part... start end no
		Rename... 'i'
	endif
endwhile

select all
minus LongSound longObj
Write to binary file... 'outFile$'
pause Check current folder for 'outFile$' file!!