home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / sound / mrmpeg / save.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-07  |  1.0 KB  |  31 lines
  1. /* Save.rexx */
  2.  
  3. options results; parse arg mode; address MrMPEG
  4.  
  5. MUIA_Cycle_Active    = 0x80421788
  6.  
  7. if mode = 1 then filename = 'ENVARC:MrMPEG.prefs'
  8. else filename = 'ENV:MrMPEG.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.   check ID MONO; writeln(1, result)
  13.   check ID FILT; writeln(1, result)
  14.   knob ID VOLM; writeln(1, result)
  15.   cycle ID DIVS ATTRS MUIA_Cycle_Active; writeln(1, result)
  16.   cycle ID QUAL ATTRS MUIA_Cycle_Active; writeln(1, result)
  17.   slider ID PRIO; writeln(1, result)
  18.   cycle ID MAXF ATTRS MUIA_Cycle_Active; writeln(1, result)
  19.   cycle ID MIXF ATTRS MUIA_Cycle_Active; writeln(1, result)
  20.   cycle ID REPT ATTRS MUIA_Cycle_Active; writeln(1, result)
  21.   check ID LIST; writeln(1, result)
  22.   check ID ADVC; writeln(1, result)
  23.   check ID RAND; writeln(1, result)
  24.   cycle ID ABUF ATTRS MUIA_Cycle_Active; writeln(1, result)
  25.   cycle ID IBUF ATTRS MUIA_Cycle_Active; writeln(1, result)
  26.   check ID UAHI; writeln(1, result)
  27.   text ID AHID; writeln(1, result)
  28.   call close(1)
  29. end
  30. return
  31.