/* Save.rexx */

options results; parse arg mode; address MrMPEG

MUIA_Cycle_Active	= 0x80421788

if mode = 1 then filename = 'ENVARC:MrMPEG.prefs'
else filename = 'ENV:MrMPEG.prefs'
if open('SaveFile', filename, 'w') = 1 then do
  popasl ID PATH; writeln('SaveFile', result)
  popasl ID FPATH; writeln('SaveFile', result)
  check ID MONO; writeln('SaveFile', result)
  check ID FILT; writeln('SaveFile', result)
  knob ID VOLM; writeln('SaveFile', result)
  cycle ID DIVS ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  cycle ID QUAL ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  slider ID PRIO; writeln('SaveFile', result)
  cycle ID MAXF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  cycle ID MIXF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  cycle ID REPT ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  check ID EJCT; writeln('SaveFile', result)
  check ID ADVC; writeln('SaveFile', result)
  check ID RAND; writeln('SaveFile', result)
  cycle ID ABUF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  cycle ID IBUF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
  check ID UAHI; writeln('SaveFile', result)
  text ID AHID; writeln('SaveFile', result)
  call close('SaveFile')
end
return