/* Rexx */

/* Получаем список файлов и заполняем переменную "Files" */
Call SysFileTree '*.mp3', 'Files', 'FO'             

/* Проходим по списку */
Do i = 1 To Files.0
 /* Выбираем имя файла, отбрасываем расширение */
 File_name = FileSpec( 'Name', Files.i ); Parse Var File_name File_name '.mp3'

 /* Если файл ещё не был обработан: */
 If Pos( 'KHz', File_name ) = 0 then do
  /* Составляем задание для LAME */
  Task = '--mp3input -f --abr 16 -B 24 -b 8 --resample 11.025 -a --priority 0'
  Task = Task '"' || File_name || '.mp3"' '"' || File_name || ' (11KHz).mp3"'

  /* Вызываем LAME */
  Address CMD 'Lame' Task
 End
End
