home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -readerstuff- / barry_beukhof / mpagui_mui / decode.rexx < prev    next >
OS/2 REXX Batch file  |  1998-04-29  |  1KB  |  58 lines
  1. /* CONVERT */
  2.  
  3. options results; address MPAgui
  4.  
  5. MUIA_List_Active    = 0x8042391c;    MUIA_Disabled        = 0x80423661
  6.  
  7. list ID SLST ATTRS MUIA_List_Active
  8. list ID SLST POS result
  9.  
  10.   cycle ID MAXFR
  11.   if result = '11025' then frequency = "-F 11025"
  12.   else if result = '22050' then frequency = "-F 22050"
  13.   else frequency = "-F 44100"
  14.  
  15.   cycle ID QUALR
  16.   if result = 'Low' then quality = '-q0'
  17.   else if result = 'Medium' then quality = '-q1'
  18.   else quality = '-q2'
  19.  
  20.   cycle ID MIXFR
  21.   if result = '11025' then mixfreq = "-x 11025"
  22.   else if result = '22050' then mixfreq = "-x 22050"
  23.   else mixfreq = "-x 44100"
  24.  
  25.   cycle ID COUNT
  26.   if result = 'Frames' then counter = ''
  27.   else if result = 'Real_Time' then counter = "-T"
  28.   else counter = "-n"
  29.  
  30.   cycle ID OFORM
  31.   if result = 'wav' then format = "-W"
  32.   else if result = 'aiff' then format = "-A"
  33.   else format = ''
  34.  
  35.   CHECK ID MONOP; STAT = RESULT
  36.   IF STAT = 0 THEN MON = ''
  37.   ELSE MON = '-m'
  38.  
  39.   check ID ASYNC; stat = result
  40.   if stat = 0 then asy = '-r'
  41.   else asy = ''
  42.  
  43.   popasl ID MPEGA; program = result
  44.  
  45.   SLIDER ID BUFFE; BUFFER = '-b'RESULT
  46.  
  47.   SLIDER ID PRIOR; PRI = '-p'RESULT 
  48.  
  49.   popasl ID DEFI; savefile = result
  50.  
  51.   LIST ID LIST1; FILE = RESULT 
  52.  
  53.   sound = "-n"
  54.  
  55.   
  56.  
  57. address command program ">con:100/100/440/70/Converting_File" file savefile format frequency quality mixfreq mon buffer counter oform sound asy pri
  58. return