/* Eagleplayeransteuerung über Diropus
   (c) 1993 DEFECT
   schließt Eagleplayer PlayerWindow
*/
if (pos('rexx_EP',SHOW('Ports')) = 0) then 
 do
  address 'DOPUS.1'
  toptext 'No Eagleplayer found'
  exit
 end
address 'rexx_EP'
Closeplwindow
address 'DOPUS.1'
toptext 'Eagleplayer: Playerwindow closed'
exit