directory$ = "C:\Documents and Settings\Reiko\Desktop\Test4\"
outdir$ = "C:\Documents and Settings\Reiko\Desktop\Japanese\"

for s from 0 to 9

current_file1$ = "e_kta_v1_'s'.wav"
current_file2$ = "e_kta_c_'s'.wav"
current_file3$ = "e_kta_r_'s'.wav"
current_file4$ = "e_kta_v2_'s'.wav"

#Read three sound files

Read from file... 'directory$''current_file1$'
   sound_id_1 = selected("Sound")

Read from file... 'directory$''current_file2$'
   sound_id_2 = selected("Sound")

Read from file... 'directory$''current_file3$'
   sound_id_3 = selected("Sound")

Read from file... 'directory$''current_file4$'
   sound_id_4 = selected("Sound")


select sound_id_1
plus sound_id_2
plus sound_id_3
plus sound_id_4

Concatenate

Write to WAV file... 'outdir$'e_kta_'s'.wav

select sound_id_1
plus sound_id_2
plus sound_id_3
plus sound_id_4
plus Sound chain
Remove

endfor

print 'newline$'Cocatenation completed!'newline$'