home *** CD-ROM | disk | FTP | other *** search
/ YPA: Your Privacy Assured / YPA.ISO / other_goodies / music / ep154b_1.dms / ep154b_1.adf / Rexx / EP_nextsubsong.dopus < prev    next >
Text File  |  1995-01-17  |  348b  |  19 lines
  1. /* Eagleplayersteuerung (c) 1993 Henryk Richter */
  2. options results
  3.  
  4. address 'rexx_EP'
  5.  status m pnr
  6.  num = result
  7.  'status p 'num' sub'
  8.  player = result
  9.  if player=="yes" then do
  10.   nextsong
  11.   address 'DOPUS.1'
  12.   toptext 'Eagleplayer: Next Subsong Selected'
  13.  end
  14.  else do
  15.   address 'DOPUS.1'
  16.   toptext 'Eagleplayer: No Subsongs available'
  17.  end
  18. exit
  19.