home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Player / MSR-EP20.LHA / Eagleplayer2.00 / Rexx / EP_PubscreenARG.dopus < prev    next >
Encoding:
Text File  |  1997-08-05  |  782 b   |  35 lines
  1. /* Eagleplayer control using Diropus4
  2.    (c) 1993-1997 DEFECT Softworks
  3.    makes Eagleplayer open on a different public screen
  4.  
  5.    ------------------------------------------------------------------------
  6.    Call as:
  7.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  8.    [ARexx]  Eagleplayer2:Rexx/EP_PubScreenARG.dopus {p} --arg--
  9.    
  10.     where '--arg--' is the name of the public screen to open on
  11.  
  12.    Flags:   none required
  13.  
  14.    Example: Eagleplayer2:Rexx/EP_PubScreenARG.dopus {p} DOPUS.1
  15. */
  16. options results
  17.  
  18. parse arg opusport aha
  19.  
  20. if (pos('rexx_EP',SHOW('Ports')) = 0) then 
  21.  do
  22.   address value opusport
  23.   toptext 'No Eagleplayer found !'
  24.   exit
  25.  end
  26.  
  27. address 'rexx_EP'
  28. pubscreen aha
  29. aha=result
  30.  
  31. address value opusport
  32. toptext 'Eagleplayer: '||aha
  33.  
  34. exit
  35.