home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
arexx
/
ep_pack
/
ep_mute.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-05-16
|
393b
|
25 lines
/* EagleMute V1.0 By Warp of GiGA Productions...©Thu May 16 23:35:02 1996 */
Waittime=5
Testflag=0
Time ('R')
options results
do while (Testflag=0) & (Time('E') < Waittime)
if (pos('rexx_EP',SHOW('Ports')) ~= 0) then testflag =1
end
if testflag=0 then exit
Address 'rexx_EP'
Status g vol
OLDVOL = RESULT
if OLDVOL > 20 then do
Volume 0
end
else do V=OLDVOL to 32
Volume V*2
end