home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Player / DC-EP20B.LZX / eagleplayer_beta / rexx / EP_LoadEagleplayer.dopus < prev    next >
Encoding:
Text File  |  1997-04-16  |  720 b   |  36 lines
  1. /* Eagleplayeransteuerung über Diropus
  2.    (c) 1992-96 DEFECT Inc.r
  3.    ' = (alt)(ä)
  4.    Lädt Eagleplayer, falls nicht schon aktiv
  5. */
  6.  
  7. Waittime = 60                        /* 1 min Wartezeit */
  8.  
  9. options results
  10. if pos('rexx_EP',SHOW('Ports')) ~= 0 then
  11.  do
  12.   address 'DOPUS.1'
  13.   toptext 'Eagleplayer already in Memory!'
  14.  exit
  15.  end
  16.  
  17.  /* Eagleplayer laden , nötigenfalls Pfad ändern !!!!! */
  18.  
  19.  address COMMAND 'run >nil: EP:Eagleplayer'
  20.  
  21. testflag=0
  22. time ('R')
  23.  
  24. address 'DOPUS.1'
  25. toptext 'Waiting for Eagleplayer'
  26.  
  27. do while (testflag=0) & (time('E') < Waittime)
  28.  if (pos('rexx_EP',SHOW('Ports')) ~= 0) then testflag =1
  29. end
  30.  
  31. if pos('rexx_EP',SHOW('Ports')) ~= 0 then
  32.  toptext 'Eagleplayer ready'
  33.  else
  34.  toptext 'Couldn`t load Eagleplayer!'
  35. exit
  36.