home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3197b.dms / 3197b.adf / ArexxExamples.lha / EP_Loadeagle.dopus < prev    next >
Encoding:
Text File  |  1993-10-05  |  709 b   |  35 lines
  1. /* Eagleplayeransteuerung über Diropus
  2.    (c) 1992 Henryk Richter
  3.    ' = (alt)(ä)
  4.    Lädt Eagleplayer, falls nicht schon aktiv
  5. */
  6. Waittime = 60                        /* 1 min Wartezeit */
  7.  
  8. options results
  9. if pos('rexx_EP',SHOW('Ports')) ~= 0 then
  10.  do
  11.   address 'DOPUS.1'
  12.   toptext 'Eagleplayer already in Memory !'
  13.  exit
  14.  end
  15.  
  16.  /* Eagleplayer laden , nötigenfalls Pfad ändern !!!!! */
  17.  
  18.  address COMMAND 'sys:Eagleplayer'
  19.  
  20. testflag=0
  21. time ('R')
  22.  
  23. address 'DOPUS.1'
  24. toptext 'Waiting for Eagleplayer'
  25.  
  26. do while (testflag=0) & (time('E') < Waittime)
  27.  if (pos('rexx_EP',SHOW('Ports')) ~= 0) then testflag =1
  28. end
  29.  
  30. if pos('rexx_EP',SHOW('Ports')) ~= 0 then
  31.  toptext 'Eagleplayer ready'
  32.  else
  33.  toptext 'Couldn`t load Eagleplayer'
  34. exit
  35.