home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 93 / af093a.adf / archives / af2.lzx / Extras / Rexx / ConvtoMix.omed < prev    next >
Text File  |  1984-03-11  |  391b  |  17 lines
  1. /* convtomix */
  2. /* converts old OctaMED/tracker modules to play right under */
  3. /* the new mixing routine (transposes samples two octaves up */
  4. address 'OCTAMED_REXX'
  5. options results
  6. do cnt = 1 to 63
  7.     in_select ins cnt
  8.     in_gettype
  9.     instype = result
  10.     if (instype = "SAMPLE" | instype = "HYBRID") then do
  11.         in_gettranspose
  12.         transp = result
  13.         in_settranspose transp+24
  14.     end
  15. end
  16. in_select ins 1
  17.