home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / AVMN199D.LHA / avminstall / rexx / recordamiga.avm < prev    next >
Encoding:
Text File  |  1995-04-10  |  551 b   |  22 lines
  1. /* */
  2. parse upper arg compression fileName .
  3. address command
  4. say 'Recording'
  5.  
  6. samplingrate = '9600'
  7. if pos('7200', compression) > 0
  8.   then samplingrate = '7200'
  9. else if pos('8000', compression) > 0
  10.   then samplingrate = '8000'
  11. else if pos('9600', compression) > 0
  12.   then samplingrate = '9600'
  13. else if pos('6400', compression) > 0
  14.   then samplingrate = '6400'
  15.  
  16. 'avm:agmsrecordsound/agmsrecordsoundps3 avmtemp:temp.iff Hz=' || samplingrate
  17. say 'Converting'
  18. 'avm:iff2voice avmtemp:temp.iff' compression fileName
  19. say 'Done'
  20. call setclip('playAmigaFile')
  21.  
  22.