home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / ep_pack / ep_mute.rexx < prev    next >
OS/2 REXX Batch file  |  1996-05-16  |  393b  |  25 lines

  1. /* EagleMute V1.0 By Warp of GiGA Productions...©Thu May 16 23:35:02 1996 */
  2.  
  3. Waittime=5
  4. Testflag=0
  5. Time ('R')
  6.  
  7. options results
  8.  
  9.  
  10.  do while (Testflag=0) & (Time('E') < Waittime)
  11.   if (pos('rexx_EP',SHOW('Ports')) ~= 0) then testflag =1
  12.  end
  13.  if testflag=0 then exit
  14.  
  15. Address 'rexx_EP'
  16.  
  17. Status g vol
  18.  OLDVOL = RESULT
  19.  
  20. if OLDVOL > 20 then do
  21.     Volume 0
  22. end
  23. else do V=OLDVOL to 32 
  24.     Volume V*2
  25. end