form Specify
	word inFolder 05.lab.TextGrid.after.LTS.scheme
	word inFileExt_(with_dot) .TextGrid
	natural tierToRemove 3
	word outFolder_(to_be_created) 05.lab.TextGrid.after.LTS.scheme.OUT
endform

system mkdir 'outFolder$'

Create Strings as file list... fileList 'inFolder$'/*'inFileExt$'
Sort
numFiles = Get number of strings
pause 'numFiles' identified. Continue?

for iFile to numFiles
	select Strings fileList
	fileName$ = Get string... iFile
	Read from file... 'inFolder$'/'fileName$'
	Remove tier... tierToRemove
#	Edit
#	pause
	Write to text file... 'outFolder$'/'fileName$'
	Remove
endfor