home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Sound / Eagleplayer2 / Rexx / EP_PrevPatt.rexx < prev    next >
OS/2 REXX Batch file  |  1998-01-09  |  386b  |  29 lines
  1. /* EaglePlayer - play previous 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.        prevpatt
  24.        position=result
  25.        say position
  26.       end
  27.   end
  28.  
  29.