/* 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
