/* */
parse upper arg compression fileName .
address command
say 'Recording'

samplingrate = '9600'
if pos('7200', compression) > 0
  then samplingrate = '7200'
else if pos('8000', compression) > 0
  then samplingrate = '8000'
else if pos('9600', compression) > 0
  then samplingrate = '9600'
else if pos('6400', compression) > 0
  then samplingrate = '6400'

'avm:agmsrecordsound/agmsrecordsound avmtemp:temp.iff Hz=' || samplingrate
say 'Converting'
'avm:iff2adpcm avmtemp:temp.iff' compression fileName
say 'Done'
call setclip('playAmigaFile')