home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / ep_pack / ep_deletecurr.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-30  |  792b  |  36 lines
  1. /* - ARexx
  2. **
  3. **   Eagle deletor by Fini 'Warp' Alring of GiGA Productions...© 1995
  4. **
  5. ** Last Update: Sun Sep 22 21:28:08 1996
  6. **
  7. **    Purpose:
  8. **         To delete the currently playing module, and load/play the next.
  9. **         very useful, if you've got a lot of modules...
  10. **      Assign to 'Shift-alt + D'  or something like that...
  11. **
  12. ** Designed for use with Eagleplayer © by Buggs and Eagleeye of Defect...
  13. ** 
  14. */
  15.  
  16. options results
  17.  
  18. Xver=1.7
  19.  
  20. if pos('rexx_EP',SHOW('Ports')) ~= 0 then do
  21.     address 'rexx_EP'
  22.     status m fil
  23.     name = result
  24.     status m dir
  25.     Dir = result
  26.  
  27.     nextmodule    
  28.     Scrolltext NAME" was erased...   Ep_deletecurr.rexx "XVER" by Warp / GiGA Prod.                                       "
  29.  
  30.     address command
  31.     Path = '"' || Dir || Name || '"'            
  32.     'C:Delete 'Path' Force Quiet'
  33. end
  34.  
  35. Exit(0)
  36.