home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / +system+ / tools / sound / eagleplayer2.00 / rexx / ep_closemainwindow.dopus < prev    next >
Text File  |  1998-02-26  |  613b  |  28 lines
  1. /* Eagleplayeransteuerung über Diropus
  2.    (c) 1993-97 DEFECT Softworks
  3.    closes Eagleplayer`s main window
  4.  
  5.    ------------------------------------------------------------------------
  6.    Call as:
  7.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  8.    [ARexx]  Eagleplayer2:Rexx/EP_CloseMainWindow.dopus {p}
  9.  
  10.    Flags:   none required
  11. */
  12.  
  13. parse arg opusport
  14.  
  15. options results
  16. if (pos('rexx_EP',SHOW('Ports')) = 0) then 
  17.  do
  18.   address value opusport
  19.   toptext 'No Eagleplayer found'
  20.   exit
  21.  end
  22. address 'rexx_EP'
  23. CX_POPUP NO
  24. AHA=result
  25. address value opusport
  26. toptext 'Eagleplayer: '||AHA
  27. exit
  28.