home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / +system+ / tools / sound / eagleplayer2.00 / rexx / ep_nextpatt.rexx < prev    next >
OS/2 REXX Batch file  |  1998-02-26  |  382b  |  29 lines
  1. /* EaglePlayer - play next pattern 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 jmp
  17.     if result == "no" then
  18.      do
  19.       say "No Patternjump available!"
  20.      end
  21.      else
  22.       do
  23.        nextpatt
  24.        position=result
  25.        say position
  26.       end
  27.   end
  28.  
  29.