home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / SYS / Rexx / PlayMod.rexx < prev    next >
OS/2 REXX Batch file  |  1994-06-23  |  643b  |  33 lines
  1. /*
  2.  $VER: PlayMod.rexx 1.0 (22.6.94)
  3.  
  4.  Player for AMosaic using DeliTracker
  5.  
  6.  (C) 1994 by Bernhard Möllemann
  7.  
  8.  You may use it for any purpose,
  9.  but this Copyright notice must be included and left intact
  10. */
  11.  
  12. Options Results
  13.  
  14. arg module
  15.  
  16. /* test for ARexx-Port DELITRACKER and load if nessacary */
  17.  
  18. if ( Show(P,'DELITRACKER')=0 ) then do
  19.   Address Command
  20.   Call Pragma(D,':Installed_Progs/mus/DeliTracker_II')
  21.   'Run DeliTracker2 >>T:info CX_POPUP NO'
  22.   'WaitForPort DELITRACKER'
  23.   Call SetClip('__Mosaic_started_DT2','TRUE')
  24. end
  25.  
  26. if ( Show(P,'DELITRACKER')=1 ) then do
  27.   Address DELITRACKER
  28.   'SONGEND YES'
  29.   'SHOWGUI'
  30.   'PLAYMOD 'module
  31. end
  32.  
  33.