/* Eagleplayersteuerung über Diropus (Modulname)
   (c) 1992 Henryk Richter
*/
options results

if pos('rexx_EP',SHOW('Ports')) = 0 then do
 address 'DOPUS.1'
 toptext 'Eagleplayer-Port not found'
 exit 0
 end

address 'rexx_EP'
status g ply
aha = result
if aha="yes" then
  do
   status m fil
   name = result
   status m pnr
   num = result
   'status p 'num' nam'
   player = result
   address 'DOPUS.1'
   toptext 'Eagleplayer:  Player: '||player||'  Module: '||name
  end
 else
  do
   address 'DOPUS.1'
   toptext 'Eagleplayer: No Module playing !'
  end
exit