home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Player / DC-EP20B.LZX / eagleplayer_beta / rexx / EP_GetModuleName.dopus < prev    next >
Encoding:
Text File  |  1997-04-04  |  591 b   |  34 lines
  1. /* Eagleplayersteuerung über Diropus
  2.    (c) 1992-96 DEFECT Inc.
  3.  
  4.    Gibt aktuellen Modulenamen zurück
  5. */
  6. options results
  7.  
  8. if pos('rexx_EP',SHOW('Ports')) = 0 then do
  9.  address 'DOPUS.1'
  10.  toptext 'Eagleplayerport not found!'
  11.  exit 0
  12.  end
  13.  
  14. address 'rexx_EP'
  15. status g ply
  16. aha = result
  17. if aha="yes" then
  18.   do
  19.    status m fil
  20.    name = result
  21.    status m pnr
  22.    num = result
  23.    'status p 'num' nam'
  24.    player = result
  25.    address 'DOPUS.1'
  26.    toptext 'Eagleplayer:  Player: '||player||'  Module: '||name
  27.   end
  28.  else
  29.   do
  30.    address 'DOPUS.1'
  31.    toptext 'Eagleplayer: No Module playing!'
  32.   end
  33. exit
  34.