home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Player / MSR-EP20.LHA / Eagleplayer2.00 / Rexx / EP_PrevSong.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-08-05  |  375 b   |  29 lines
  1. /* EaglePlayer - play previous subsong in module */
  2.  
  3. address 'rexx_EP'
  4.  
  5. options results
  6.  
  7. status m pnr
  8. nummer=result
  9. if nummer == "RESULT" then
  10.  do
  11.   say "No Module loaded!"
  12.   exit 0
  13.  end
  14.  else
  15.   do
  16.    status p nummer sub
  17.     if result == "no" then
  18.      do
  19.       say "No SubSongs available!"
  20.      end
  21.      else
  22.       do
  23.        prevsong
  24.        song=result
  25.        say song
  26.       end
  27.   end
  28.  
  29.