home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / +system+ / tools / sound / eagleplayer2.00 / rexx / ep_iconify.dopus < prev    next >
Text File  |  1998-02-26  |  685b  |  33 lines
  1. /* Eagleplayer control for DOPUS 4
  2.    (c) 1993-97 DEFECT Softworks
  3.    (de)activates Iconify mode
  4.  
  5.    ------------------------------------------------------------------------
  6.    Call as:
  7.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  8.    [ARexx]  Eagleplayer2:Rexx/EP_Iconify.dopus {p} --arg--
  9.  
  10.    where --arg-- maybe "Yes" or "No"
  11.  
  12.    Flags:   none required
  13.  
  14. */
  15.  
  16. parse arg opusport Zustand
  17.  
  18. if zustand="" then zustand=-1
  19.  
  20. options results
  21. if (pos('rexx_EP',SHOW('Ports')) = 0) then 
  22.  do
  23.   address value opusport
  24.   toptext 'No Eagleplayer found'
  25.   exit
  26.  end
  27. address 'rexx_EP'
  28. iconify zustand
  29. AHA=result
  30. address value opusport
  31. toptext 'Eagleplayer: '||AHA
  32. exit
  33.