home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / mrmidi / listsave.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  1.0 KB  |  36 lines
  1. /* ListSave.rexx */
  2.  
  3. options results; address MrMIDI; parse arg mode
  4.  
  5. ASLFR_DoPatterns    = 0x8008002E;    ASLFR_InitialDrawer    = 0x80080009
  6. ASLFR_InitialFile    = 0x80080008;    ASLFR_InitialPattern    = 0x8008000A
  7. MUIA_List_Entries    = 0x80421654;    MUIA_Window_Sleep    = 0x8042e7db
  8.  
  9. window ID WIND1 ATTRS MUIA_Window_Sleep 1
  10. window ID WIND2 ATTRS MUIA_Window_Sleep 1
  11. RC = 0
  12. if mode = 1 then do
  13.   aslrequest ATTRS ASLFR_InitialDrawer '"ENVARC:"' ASLFR_InitialFile,
  14.     '"MrMIDI.list"' ASLFR_InitialPattern '"#?.list"' ASLFR_DoPatterns 1,
  15.     TITLE '"Save the list"'
  16.   temp_list = result
  17.   end
  18. else temp_list = "ENV:MrMIDI.list"
  19. if RC = 0 then do
  20.   if open(1, temp_list, 'w') then do
  21.     list ID SLIST ATTRS MUIA_List_Entries; max = result
  22.     do i = 0 to max - 1
  23.       list ID SLIST POS i
  24.       writeln(1, result)
  25.     end
  26.     call close(1)
  27.   end /* of if open */
  28.   else do
  29.     temp_string = "Could not open the file '"temp_list"'."
  30.     request ID WARN GADGETS '"OK"' temp_string
  31.   end
  32. end /* of if RC */
  33. window ID WIND2 ATTRS MUIA_Window_Sleep 0
  34. window ID WIND1 ATTRS MUIA_Window_Sleep 0
  35. return
  36.