/* Eagleplayer-DOpus-Steuerung
   (c) 1993 DEFECT

 - spielt übergebenes Module

 - lädt gegebenenfalls Eagleplayer (Pfad richtig anpassen,siehe unten !)

 - in Opus als "Executable" ("AmigaDos") einbinden, asynchron starten ! (siehe
   Handbuch), folgende Kommandozeile: rx rexx:ep_Loadmodule.dopus {f}

*/

parse arg filename

options results

if pos('rexx_EP',SHOW('Ports')) = 0 then
 do

  Waittime = 60		/* 1 min Wartezeit, bei Bedarf ändern */

			/* Eagle laden , Pfad bei Bedarf ändern !!!!!! */
  address COMMAND 'sys:Eagleplayer'

  testflag=0
  time ('R')

  address 'DOPUS.1'		/* address 'DOPUS.1' */
  toptext 'Attempting to Load Eagleplayer.'

  do while (testflag=0) & (time('E') < Waittime)
   if (pos('rexx_EP',SHOW('Ports')) ~= 0) then testflag =1
  end

  if pos('rexx_EP',SHOW('Ports')) ~= 0 then
    toptext 'Eagleplayer loaded'
   else
    do
     toptext 'Couldn`t load Eagleplayer !'
     exit
    end
end

    address 'DOPUS.1'		/* address 'DOPUS.1' */
    toptext 'Eagleplayer: Attempting to Load Module !'
    address 'rexx_EP'
    Loadmodule filename
    aha=result
    address 'DOPUS.1'		/* address 'DOPUS.1' */
    toptext 'Eagleplayer: '||aha