home *** CD-ROM | disk | FTP | other *** search
/ YPA: Your Privacy Assured / YPA.ISO / other_goodies / music / ep154b_1.dms / ep154b_1.adf / Rexx / EP_getmodname.dopus < prev    next >
Text File  |  1995-01-17  |  566b  |  32 lines
  1. /* Eagleplayersteuerung ⁿber Diropus (Modulname)
  2.    (c) 1992 Henryk Richter
  3. */
  4. options results
  5.  
  6. if pos('rexx_EP',SHOW('Ports')) = 0 then do
  7.  address 'DOPUS.1'
  8.  toptext 'Eagleplayer-Port not found'
  9.  exit 0
  10.  end
  11.  
  12. address 'rexx_EP'
  13. status g ply
  14. aha = result
  15. if aha="yes" then
  16.   do
  17.    status m fil
  18.    name = result
  19.    status m pnr
  20.    num = result
  21.    'status p 'num' nam'
  22.    player = result
  23.    address 'DOPUS.1'
  24.    toptext 'Eagleplayer:  Player: '||player||'  Module: '||name
  25.   end
  26.  else
  27.   do
  28.    address 'DOPUS.1'
  29.    toptext 'Eagleplayer: No Module playing !'
  30.   end
  31. exit
  32.