home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / mrmidi / prev.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-08  |  1.0 KB  |  37 lines
  1. /* Prev.rexx */
  2.  
  3. options results; address MrMIDI
  4.  
  5. MUIA_Selected        = 0x8042654b;    MUIA_List_Active    = 0x8042391c
  6. MUIA_List_Entries    = 0x80421654;    MUIV_List_Active_Bottom    = -3
  7. MUIV_List_Active_Up    = -4
  8.  
  9. list ID SLIST ATTRS MUIA_List_Entries; max = result
  10. list ID SLIST ATTRS MUIA_List_Active; current = result
  11. if max > 1 then do
  12.   check ID RAND; rnd = result
  13.   if rnd = 1 then do
  14.     flag = 0
  15.     do while flag = 0
  16.     temp = random(0, max - 1, time('S'))
  17.       if temp ~= current then do
  18.         list ID SLIST ATTRS MUIA_List_Active temp
  19.         flag = 1
  20.       end
  21.     end /* of while flag */
  22.   end /* of if rnd */
  23.   else if current ~= 0 then list ID SLIST ATTRS MUIA_List_Active MUIV_List_Active_Up
  24.   else list ID SLIST ATTRS MUIA_List_Active MUIV_List_Active_Bottom
  25.   list ID SLIST ATTRS MUIA_List_Active; temp_active = result
  26.   setvar active temp_active
  27.   check ID PLAY
  28.   if result = 1 then do
  29.     call Stop()
  30.     delay(20)
  31.     check ID PLAY ATTRS MUIA_Selected 1
  32.   end
  33.   text ID ACTIV LABEL "\033b\033r"right(temp_active + 1, 3)
  34.   call GetInfo()
  35. end
  36. return
  37.