home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -readerstuff- / barry_beukhof / mpagui_mui / playlist.rexx < prev    next >
OS/2 REXX Batch file  |  1998-04-29  |  2KB  |  60 lines
  1. /* Play Current MPAgui List */
  2.  
  3. options results
  4. address MPAgui
  5.  
  6. MUIA_List_Entries    = 0x80421654
  7. MUIA_Cycle_Active       = 0x80421788
  8.  
  9. /*Saving list to temp file*/
  10.  
  11. result = "Ram:list.temp"
  12. if open('List', result, 'w') = 1 then do
  13.   list ID LIST1 ATTRS MUIA_List_Entries
  14.   max = result
  15.   do i = 0 to max - 1
  16.     list ID LIST1 POS i
  17.     writeln('List', result)
  18.   end
  19.   call close('List')
  20.  
  21. /*Playing List with selected options*/
  22.  
  23. cycle ID MAXFR ATTRS MUIA_Cycle_Active
  24. if result = '0' then frequency = "-F 11025"
  25. else if result = '1' then frequency = "-F 22050"
  26. else frequency = "-F 44100"
  27. cycle ID QUALR ATTRS MUIA_Cycle_Active
  28. if result = '0' then quality = '-q0'
  29. else if result = '1' then quality = '-q1'
  30. else quality = '-q2'
  31. cycle ID MIXFR ATTRS MUIA_Cycle_Active
  32. if result = '0' then mixfreq = "-x 11025"
  33. else if result = '1' then mixfreq = "-x 22050"
  34. else mixfreq = "-x 44100"
  35. cycle ID COUNT ATTRS MUIA_Cycle_Active
  36. if result = '0' then counter = ''
  37. else if result = '1' then counter = "-T"
  38. else counter = "-n"
  39. check ID filte; FILTER = '-f'RESULT
  40. CHECK ID MONOp; VARI = RESULT
  41. IF VARI = 0 THEN MON = ''
  42. ELSE MON = '-m'
  43. check id ahiou; VARI = result
  44. if VARI = 0 then AH = ''
  45. else AH = "-I"
  46. check ID waitb; VARI = result
  47. if VARI = 0 then wa = ' '
  48. else wa = "-w"
  49. check ID ASYNC; VARI = result
  50. if VARI = 0 then asy = '-r'
  51. else asy = ''
  52. popasl ID MPEGA; program = result
  53. SLIDER ID BUFFE; BUFFER = '-t'RESULT
  54. SLIDER ID PRIOR; PR = '-p'RESULT
  55. address command program ">con:100/100/440/70/MPAgui_Output" "Ram:list.temp" "-l" pr frequency quality mixfreq mon ah wa buffer counter asy filter
  56.  
  57. /*Deleting Temp File*/
  58.  
  59. address command "c:delete" ">nil:" "Ram:list.temp"
  60. return