/* 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('SaveFile', filename, 'w') = 1 then do
  popasl ID PATH; writeln('SaveFile', result)
  popasl ID FPATH; writeln('SaveFile', result)
  knob ID VOLM; writeln('SaveFile', result)
  check ID EJCT; writeln('SaveFile', result)
  check ID ADVC; writeln('SaveFile', result)
  check ID MONO; writeln('SaveFile', result)
  check ID FILT; writeln('SaveFile', result)
  check ID RAND; writeln('SaveFile', result)
  cycle ID REPT ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)

  cycle ID FREQ ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  slider ID POLY; writeln('SaveFile', result)
  slider ID PRIO; writeln('SaveFile', result)
  check ID TOFI; writeln('SaveFile', result)
  string ID TOMP; writeln('SaveFile', result)
  check ID DRFI; writeln('SaveFile', result)
  string ID DRMP; writeln('SaveFile', result)
  slider ID BUFF; writeln('SaveFile', result)
  cycle ID VEMP ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  cycle ID VOMP ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  call close('SaveFile')
end
return