home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 9 / amigaformatcd09.iso / coverdisks / octamed6 / rexx / convtomix.omed < prev    next >
Encoding:
Text File  |  1978-01-13  |  391 b   |  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.