home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 3
/
AACD03.BIN
/
AACD
/
Sound
/
Eagleplayer2
/
Rexx
/
EP_nextsubsong.dopus
< prev
next >
Wrap
Text File
|
1998-01-09
|
822b
|
41 lines
/* Eagleplayer control for DOPUS 4
(c) 1993-97 DEFECT Softworks
switches to next subsong
------------------------------------------------------------------------
Call as:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
[ARexx] Eagleplayer2:Rexx/EP_nextsubsong.dopus {p}
Flags: none required
*/
parse arg opusport
options results
address 'rexx_EP'
status m pnr
nummer=result
if nummer == "RESULT" then
do
address value opusport
toptext "Eagleplayer: no module loaded"
exit 0
end
else
do
status p nummer sub
if result == "no" then
do
address value opusport
toptext "Eagleplayer: no subsongs available!"
end
else
do
nextsong
song=result
address value opusport
toptext "Eagleplayer: "||song
end
end