home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / startup-menu-1.5.lha / Startup-Menu-1.5 / My_S / sminit_omp.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-09-02  |  1.1 KB  |  32 lines
  1. /* Start up ocamedplayer with a random module */
  2.  
  3. Modules.1 = 'Apps:Data/GoodModsMeds/ACTONE.MED'
  4. Modules.2 = 'Apps:Data/GoodModsMeds/ACTTWO.MED'
  5. Modules.3 = 'Apps:Data/GoodModsMeds/LEGEND.med'
  6. Modules.4 = 'Apps:Data/GoodModsMeds/LIFE.med'
  7. Modules.5 = 'Apps:Data/GoodModsMeds/Lorraine.med'
  8. Modules.6 = 'Apps:Data/GoodModsMeds/Promise.med'
  9. Modules.7 = 'Apps:Data/GoodModsMeds/RavenTheme.med'
  10. Modules.8 = 'Apps:Data/GoodModsMeds/Say.med'
  11. Modules.9 = 'Apps:Data/GoodModsMeds/Song24.med'
  12. Modules.10 = 'Apps:Data/GoodModsMeds/TheBorder.med'
  13. Modules.11 = 'Apps:Data/GoodModsMeds/THISMUSTBEHEAVEN.med'
  14. Modules.12 = 'Apps:Data/GoodModsMeds/VisionOfLove.med'
  15. Modules.13 = 'Apps:Data/GoodModsMeds/WildAndLonely.med'
  16.  
  17. ADDRESS Command "C:GetRnd >Ram:rnd"
  18. if OPEN(rndfile, 'ram:rnd', 'r') then
  19.    rndnum = Readln(rndfile)
  20. call CLOSE rndfile
  21.  
  22. ADDRESS Command "delete >NIL: ram:rnd"
  23. Randnum = random(1,13,rndnum);
  24. if OPEN(outfile, 'AT:RndOut', 'w') then
  25.    Writeln(outfile, RandNum)
  26. call CLOSE outfile
  27.  
  28. Selected = Modules.Randnum;
  29. CmdLine = 'Run >NIL: C:OctaMEDPlayer ' Selected
  30.  
  31. ADDRESS COMMAND CmdLine;
  32.