/* Save.rexx */

options results; parse arg mode; address MrMIDI

MUIA_Cycle_Active	= 0x80421788

if mode = 1 then filename = 'ENVARC:MrMIDI.prefs'
else filename = 'ENV:MrMIDI.prefs'
if open(1, filename, 'w') = 1 then do
  popasl ID PATH; writeln(1, result)
  popasl ID FPATH; writeln(1, result)
  knob ID VOLM; writeln(1, result)
  check ID LIST; writeln(1, result)
  check ID ADVC; writeln(1, result)
  check ID MONO; writeln(1, result)
  check ID FILT; writeln(1, result)
  check ID RAND; writeln(1, result)
  cycle ID REPT ATTRS MUIA_Cycle_Active; writeln(1, result)
  
  cycle ID FREQ ATTRS MUIA_Cycle_Active; writeln(1, result)
  slider ID POLY; writeln(1, result)
  slider ID PRIO; writeln(1, result)
  check ID TOFI; writeln(1, result)
  string ID TOMP; writeln(1, result)
  check ID DRFI; writeln(1, result)
  string ID DRMP; writeln(1, result)
  slider ID BUFF; writeln(1, result)
  cycle ID VEMP ATTRS MUIA_Cycle_Active; writeln(1, result)
  cycle ID VOMP ATTRS MUIA_Cycle_Active; writeln(1, result)
  call close(1)
end
return