home *** CD-ROM | disk | FTP | other *** search
/ ANews 3 / AnewsCD3.iso / Script / HiP.rexx < prev    next >
OS/2 REXX Batch file  |  1999-10-06  |  397b  |  19 lines
  1. /* HippoPlayer - Play <file> */
  2.  
  3. parse arg '"' filename '"'
  4. if (filename = "") THEN
  5.     parse arg filename
  6.  
  7. if ~show(ports,'HIPPOPLAYER') then
  8. do
  9. address command
  10. 'ANewsCD:C/Hippoplayer/Hip' /* change if you've put HippoPlayer somewhere else */
  11. end
  12.  
  13. hiploop:
  14. result = SHOW("p","HIPPOPLAYER")
  15. if result=0 then signal hiploop
  16. address 'HIPPOPLAYER'
  17. ZIP 0
  18. if pos(':', filename) ~= 0 then play filename
  19.