home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / +system+ / tools / sound / eagleplayer2.00 / rexx / ep_stop.dopus < prev    next >
Text File  |  1998-02-26  |  834b  |  45 lines
  1. /* Eagleplayer control for DOPUS 4
  2.    (c) 1993-97 DEFECT Softworks
  3.    stops playing
  4.  
  5.    ------------------------------------------------------------------------
  6.    Call as:
  7.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  8.    [ARexx]  Eagleplayer2:Rexx/EP_Stop.dopus {p}
  9.  
  10.    Flags:   none required
  11.  
  12. */
  13. parse arg opusport
  14. if (pos('rexx_EP',SHOW('Ports')) = 0) then 
  15.  do
  16.   address value opusport
  17.   toptext 'No Eagleplayer found'
  18.   exit
  19.  end
  20.  
  21. address 'rexx_EP'
  22.  
  23. options results
  24.  
  25. status G fil
  26.  
  27. if result == "no" then do
  28.     address value opusport
  29.     toptext "Eagleplayer: No Module loaded !"
  30. end
  31. else do
  32.  status g ply
  33.  aha =result
  34.  if aha == "no" then do
  35.     address value opusport
  36.     toptext "Eagleplayer: I don`t play!"
  37.  end
  38.  else
  39.   do
  40.     Stop
  41.     address value opusport
  42.     toptext "Eagleplayer: Playing now stopped!"
  43.   end
  44. end
  45.