home *** CD-ROM | disk | FTP | other *** search
/ ANews 2 / AnewsCD2.iso / Script / ecoute.rexx < prev    next >
OS/2 REXX Batch file  |  1999-10-11  |  928b  |  55 lines
  1. /* Script Action Ecoute */
  2.  
  3. options results
  4.  
  5. parse arg type ' ' exe ' "' filename '"'
  6.  
  7. say exe
  8. say type
  9. say filename
  10.  
  11. type=upper(type)
  12.  
  13. /* Selection du type de player */
  14.  
  15. if type="SONGPLAYER" then call SP
  16. if type="AMPLIFIER" then call AMP
  17. if type="AMIGAAMP" then call AAMP
  18. exit
  19.  
  20. SP:
  21. if ~show('p','SONGPLAYER.1') then do
  22.   address command "run >NIL: "||exe||" GUI"
  23.   address command "waitforport SONGPLAYER.1"
  24. end
  25. if show('p','SONGPLAYER.1') then do
  26.   address SONGPLAYER.1
  27.   ADD '"'filename'"'
  28.   PLAY
  29. end
  30. exit
  31.  
  32. AMP:
  33. if ~show('p','AMPLIFIER.1') then do
  34.   address command "run >NIL: "||exe
  35.   address command "waitforport AMPLIFIER.1"
  36. end
  37. if show('p','AMPLIFIER.1') then do
  38.   address AMPLIFIER.1
  39.   PLAY '"'filename'"'
  40. end
  41. exit
  42.  
  43. AAMP:
  44. if ~show('p','AMIGAAMP') then do
  45.   address command "run >NIL: "||exe
  46.   address command "waitforport AMIGAAMP"
  47. end
  48. if show('p','AMIGAAMP') then do
  49.   address AmigaAMP
  50.   OPEN '"'filename'"'
  51. end
  52. exit
  53.  
  54.  
  55.