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