home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / dragen1.zip / mp3.cmd < prev    next >
OS/2 REXX Batch file  |  2000-01-09  |  1KB  |  43 lines
  1. /*mp3*/
  2. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. call SysLoadFuncs
  4. parse arg mplay
  5. echo off
  6. getstr="del temp.mp3"
  7. getstr
  8. do while lines(mp3.var)
  9. buffer=linein(mp3.var)
  10. mfile=linein(mp3.var)
  11. getstr= "start /c /min get2 -g "mfile
  12. getstr
  13. getstr="cls"
  14. getstr
  15. say "Dragen FTP copyright (c) 2000, Keith Cotroneo"
  16. count=0
  17. do until nfile.0 = "1"
  18. Call Syssleep 2
  19. getstr="cls"
  20. getstr
  21. say "Dragen FTP copyright (c) 2000, Keith Cotroneo"
  22. call SysFileTree 'temp.mp3', 'nfile', 'F'
  23. count=count+2
  24. say ""
  25. say "Attempting to connect..... taking "count" seconds so far."
  26. end
  27. say "Connection established, delaying for "buffer" seconds to build buffer...."
  28. Call Syssleep buffer
  29. say "Buffering completed...."
  30. say ""
  31. say "Starting playback using "mplay
  32. say ""
  33. say "Dragen FTP is designed to interface with external mp3 players."
  34. say "The basic mp3 player included with Dragen FTP is provided courtesy"
  35. say "of Samuel Audet, to obtain a fully developed PM player for OS/2,"
  36. say "visit Samuel's page at http://www.cam.org/~guardia."
  37. say ""
  38. getstr=mplay" temp.mp3"
  39. getstr
  40. end
  41.  
  42.  
  43.