home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 3 / AACD03.BIN / AACD / Sound / Eagleplayer2 / Rexx / EP_NextPatt.dopus < prev    next >
Text File  |  1998-01-09  |  856b  |  44 lines
  1. /* Eagleplayer control for DOPUS 4
  2.    (c) 1993-97 DEFECT Softworks
  3.    switches to next pattern in current module
  4.  
  5.    ------------------------------------------------------------------------
  6.    Call as:
  7.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  8.    [ARexx]  Eagleplayer2:Rexx/EP_NextPatt.dopus {p}
  9.  
  10.    Flags:   none required
  11.  
  12. */
  13. parse arg opusport
  14.  
  15. options results
  16.  
  17. address 'rexx_EP'
  18.  status m pnr
  19.  num = result
  20.  if num "RESULT" then
  21.   do
  22.    address value opusport
  23.    toptext 'Eagleplayer: no module loaded'
  24.    exit 0
  25.   end
  26.   else
  27.   do
  28.    status p num jmp
  29.    player = result
  30.    if player=="yes" then
  31.     do
  32.      nextpatt
  33.      aha=result
  34.      address value opusport
  35.      toptext 'Eagleplayer: '||aha
  36.     end
  37.     else
  38.      do
  39.       address value opusport
  40.       toptext 'Eagleplayer: Patternjump Impossible'
  41.      end
  42.   end
  43. exit
  44.