home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / +system+ / tools / sound / eagleplayer2.00 / rexx / ep_loadeagleplayer.dopus < prev    next >
Text File  |  1998-02-26  |  773b  |  41 lines
  1. /* Eagleplayer control using DOPUS 4
  2.    (c) 1992-97 DEFECT Softworks
  3.  
  4.    starts Eagleplayer if not active yet
  5.  
  6.    usage:
  7.    [Arexx] Eagleplayer2:rexx/EP_LoadEagleplayer.dopus {p}
  8. */
  9. options results
  10.  
  11. parse arg opusport
  12.  
  13. Waittime = 60                        /* 1 min wait */
  14.  
  15. if pos('rexx_EP',SHOW('Ports')) ~= 0 then
  16.  do
  17.   address value opusport
  18.   toptext 'Eagleplayer already in Memory!'
  19.  exit
  20.  end
  21.  
  22.  /* Eagleplayer laden */
  23.  
  24.  address COMMAND 'run >nil: Eagleplayer2:Eagleplayer'
  25.  
  26. testflag=0
  27. time ('R')
  28.  
  29. address value opusport
  30. toptext 'Waiting for Eagleplayer'
  31.  
  32. do while (testflag=0) & (time('E') < Waittime)
  33.  if (pos('rexx_EP',SHOW('Ports')) ~= 0) then testflag =1
  34. end
  35.  
  36. if pos('rexx_EP',SHOW('Ports')) ~= 0 then
  37.  toptext 'Eagleplayer ready'
  38.  else
  39.  toptext 'Couldn`t load Eagleplayer!'
  40. exit
  41.