home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Player / DC-EP20B.LZX / eagleplayer_beta / rexx / EP_Load_One_Module.dopus < prev    next >
Encoding:
Text File  |  1997-04-04  |  1.2 KB  |  52 lines
  1. /* Eagleplayer-DOpus-Steuerung
  2.    (c) 1993 DEFECT
  3.  
  4.  - spielt übergebenen Song (Anwendung z.B. Doppelclick,siehe Filetypes bei Dopus)
  5.  
  6.  - lädt gegebenenfalls Eagleplayer (Pfad richtig anpassen,siehe unten !)
  7.  
  8.  - in Opus als "Executable" ("AmigaDOS") einbinden, asynchron starten ! (siehe
  9.    Handbuch), folgende Kommandozeile:  rx rexx:EP_Load_One_Module.dopus {f}
  10.  
  11. */
  12. parse arg filename
  13.  
  14. options results
  15.  
  16. if pos('rexx_EP',SHOW('Ports')) = 0 then
  17.  do
  18.  
  19.   Waittime = 60        /* 1 min Wartezeit, bei Bedarf ändern */
  20.  
  21.             /* Eagle laden , Pfad bei Bedarf ändern !!!!!! */
  22.   address COMMAND 'cd EP:'
  23.   address COMMAND 'run >nil: EP:Eagleplayer loadmodule Skip_Config_Item randomstart no loadlist Skip_Config_Item loaddir no'
  24.  
  25.   testflag=0
  26.   time ('R')
  27.  
  28.   address 'DOPUS.1'        /* address 'DOPUS.1' */
  29.   toptext 'Attempting to Load Eagleplayer'
  30.  
  31.   do while (testflag=0) & (time('E') < Waittime)
  32.    if (pos('rexx_EP',SHOW('Ports')) ~= 0) then testflag =1
  33.   end
  34.  
  35.   if pos('rexx_EP',SHOW('Ports')) ~= 0 then
  36.     toptext 'Eagleplayer loaded'
  37.    else
  38.     do
  39.      toptext 'Couldn`t load Eagleplayer'
  40.      exit
  41.     end
  42. end
  43.  
  44. address 'rexx_EP'
  45.  
  46. LoadModule filename
  47. aha=result
  48. LoadDir yes
  49. address 'DOPUS.1'
  50. toptext 'Eagleplayer: '||aha
  51. exit
  52.