home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / mrmidi / save.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  1.0 KB  |  33 lines
  1. /* Save.rexx */
  2.  
  3. options results; parse arg mode; address MrMIDI
  4.  
  5. MUIA_Cycle_Active    = 0x80421788
  6.  
  7. if mode = 1 then filename = 'ENVARC:MrMIDI.prefs'
  8. else filename = 'ENV:MrMIDI.prefs'
  9. if open(1, filename, 'w') = 1 then do
  10.   popasl ID PATH; writeln(1, result)
  11.   popasl ID FPATH; writeln(1, result)
  12.   knob ID VOLM; writeln(1, result)
  13.   check ID LIST; writeln(1, result)
  14.   check ID ADVC; writeln(1, result)
  15.   check ID MONO; writeln(1, result)
  16.   check ID FILT; writeln(1, result)
  17.   check ID RAND; writeln(1, result)
  18.   cycle ID REPT ATTRS MUIA_Cycle_Active; writeln(1, result)
  19.   
  20.   cycle ID FREQ ATTRS MUIA_Cycle_Active; writeln(1, result)
  21.   slider ID POLY; writeln(1, result)
  22.   slider ID PRIO; writeln(1, result)
  23.   check ID TOFI; writeln(1, result)
  24.   string ID TOMP; writeln(1, result)
  25.   check ID DRFI; writeln(1, result)
  26.   string ID DRMP; writeln(1, result)
  27.   slider ID BUFF; writeln(1, result)
  28.   cycle ID VEMP ATTRS MUIA_Cycle_Active; writeln(1, result)
  29.   cycle ID VOMP ATTRS MUIA_Cycle_Active; writeln(1, result)
  30.   call close(1)
  31. end
  32. return
  33.