home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / +system+ / tools / sound / eagleplayer2.00 / rexx / ep_quit.dopus < prev    next >
Text File  |  1998-02-26  |  562b  |  26 lines
  1. /* Eagleplayer control for DOPUS 4
  2.    (c) 1993-97 DEFECT Softworks
  3.    remote-terminate Eagleplayer
  4.  
  5.    ------------------------------------------------------------------------
  6.    Call as:
  7.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  8.    [ARexx]  Eagleplayer2:Rexx/EP_Quit.dopus {p}
  9.  
  10.    Flags:   none required
  11.  
  12. */
  13. parse arg opusport
  14.  
  15. if (pos('rexx_EP',SHOW('Ports')) = 0) then 
  16.  do
  17.   address value opusport
  18.   toptext 'Eagleplayer not found'
  19.   exit
  20.  end
  21. address 'rexx_EP'
  22. quit
  23. address value opusport
  24. toptext 'Eagleplayer quitted'
  25. exit
  26.