home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ANews 1
/
AnewsCD01.iso
/
Script
/
ecoute.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-08-13
|
654b
|
38 lines
/* Script Action Ecoute */
options results
parse arg type exe '"' filename '"'
type=upper(type)
/* Selection du type de player */
if type="SONGPLAYER" then call SP
if type="AMPLIFIER" then call AMP
exit
SP:
if ~show('p','SONGPLAYER.1') then do
address command "run >NIL: "||exe||" GUI"
address command "waitforport SONGPLAYER.1"
end
if show('p','SONGPLAYER.1') then do
address SONGPLAYER.1
ADD '"'filename'"'
PLAY
end
exit
AMP:
if ~show('p','AMPLIFIER.1') then do
address command "run >NIL: "||exe
address command "waitforport AMPLIFIER.1"
end
if show('p','AMPLIFIER.1') then do
address AMPLIFIER.1
PLAY '"'filename'"'
end
exit