#Extract and save all non-empty intervals
#directory for the sounds to be saved in
if numberOfSelected("Sound") <> 1
   exit select a sound
endif
if numberOfSelected("TextGrid") <> 1
   exit select the textgrid as well
endif

dir$ = "k:\sounds\recordings\"

Extract non-empty intervals... 1 no
n = numberOfSelected("Sound")
for i from 1 to n
    s'i' = selected("Sound",'i')
    s'i'$ = selected$("Sound",'i')
endfor

for i from 1 to n
    n$ = s'i'$
    select s'i'
    Write to WAV file... 'dir$''n$'.wav
endfor