home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Player / DC-EP20B.LZX / eagleplayer_beta / rexx / EP_OpenMainWindow.dopus < prev    next >
Encoding:
Text File  |  1997-04-04  |  321 b   |  19 lines
  1. /* Eagleplayeransteuerung über Diropus
  2.    (c) 1993-96 DEFECT
  3.    öffnet Eagleplayer Mainwindow
  4. */
  5.  
  6. options results
  7. if (pos('rexx_EP',SHOW('Ports')) = 0) then 
  8.  do
  9.   address 'DOPUS.1'
  10.   toptext 'No Eagleplayer found'
  11.   exit
  12.  end
  13. address 'rexx_EP'
  14. CX_POPUP YES
  15. AHA=result
  16. address 'DOPUS.1'
  17. toptext 'Eagleplayer: '||AHA
  18. exit
  19.