/* 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