home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / mrmidi / sort.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  498 b   |  22 lines
  1. /* Sort.rexx */
  2.  
  3. options results; address MrMIDI
  4.  
  5. MUIA_List_Active    = 0x8042391c;    MUIA_List_Entries    = 0x80421654
  6. MUIM_List_Sort        = 0x80422275
  7.  
  8. list ID SLIST ATTRS MUIA_List_Entries; max = result
  9. list ID SLIST ATTRS MUIA_List_Active
  10. list ID SLIST POS result; current = result
  11. if current ~= 'RESULT' then do
  12.   method ID SLIST MUIM_List_Sort
  13.   do i = 0 to max - 1
  14.     list ID SLIST POS i
  15.     if result = current then do
  16.       list ID SLIST ATTRS MUIA_List_Active i
  17.       leave
  18.     end
  19.   end
  20. end
  21. return
  22.