home *** CD-ROM | disk | FTP | other *** search
/ YPA: Your Privacy Assured / YPA.ISO / other_goodies / music / ep154b_1.dms / ep154b_1.adf / Rexx / EP_Loadmodules.dopus < prev    next >
Text File  |  1995-01-17  |  2KB  |  76 lines
  1. /* Eagleplayer-DOpus-Steuerung
  2.    (c) 1993 DEFECT
  3.  
  4.  - spielt ⁿbergebene Song(s) und testet darauf,ob wirklich was ⁿbergeben wurde
  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_Loadmodule.dopus {s}
  10.  
  11. */
  12.  
  13. options results
  14.  
  15. if pos('rexx_EP',SHOW('Ports')) = 0 then
  16.  do
  17.  
  18.   Waittime = 60        /* 1 min Wartezeit, bei Bedarf Σndern */
  19.  
  20.             /* Eagle laden , Pfad bei Bedarf Σndern !!!!!! */
  21.   address COMMAND 'sys:Eagleplayer'
  22.  
  23.   testflag=0
  24.   time ('R')
  25.  
  26.   address 'DOPUS.1'        /* address 'DOPUS.1' */
  27.   toptext 'Attempting to Load Eagleplayer'
  28.  
  29.   do while (testflag=0) & (time('E') < Waittime)
  30.    if (pos('rexx_EP',SHOW('Ports')) ~= 0) then testflag =1
  31.   end
  32.  
  33.   if pos('rexx_EP',SHOW('Ports')) ~= 0 then
  34.     toptext 'Eagleplayer loaded'
  35.    else
  36.     do
  37.      toptext 'Couldn`t load Eagleplayer'
  38.      exit
  39.     end
  40. end
  41.  
  42. address 'DOPUS.1'        /* address 'DOPUS.1' */
  43. status 3
  44. ac=result
  45. status 13 ac
  46. dirname=result
  47. sels='"'||dirname||'" '
  48.  
  49. getselectedall '/'
  50. selected = RESULT
  51. if selected~="RESULT" then do
  52.  
  53.  DO WHILE selected~=""
  54.   PARSE VAR selected name '/' selected
  55.   sels=sels||'"'||name||'" '
  56.  END
  57.  
  58.  if sels~= "" then do
  59.     address 'DOPUS.1'        /* address 'DOPUS.1' */
  60.     toptext 'Eagleplayer: Attempting to Load Song(s)'
  61.     address 'rexx_EP'
  62.     Loadmodule sels
  63.     aha=result
  64.     address 'DOPUS.1'        /* address 'DOPUS.1' */
  65.     toptext 'Eagleplayer: '||aha
  66.  end
  67. end
  68.  
  69. else
  70.   do
  71.     address 'DOPUS.1'        /* address 'DOPUS.1' */
  72.     toptext 'Eagleplayer: No Module selected'
  73.   end
  74.  
  75. exit
  76.