/* Next.rexx */

options results; address MrMPEG

MUIA_Selected		= 0x8042654b;	MUIA_List_Active	= 0x8042391c
MUIA_List_Entries	= 0x80421654;	MUIV_List_Active_Down	= -5
MUIV_List_Active_Top	= -2

list ID SLIST ATTRS MUIA_List_Entries; max = result
list ID SLIST ATTRS MUIA_List_Active; current = result
check ID RAND; rnd = result
if rnd = 1 then do
  flag = 0
  do while flag = 0
  temp = random(0, max - 1, time('S'))
    if temp ~= current then do
      list ID SLIST ATTRS MUIA_List_Active temp
      flag = 1
    end
  end /* of while flag */
end /* of if rnd */
else if current ~= max - 1 then list ID SLIST ATTRS MUIA_List_Active MUIV_List_Active_Down
else list ID SLIST ATTRS MUIA_List_Active MUIV_List_Active_Top
list ID SLIST ATTRS MUIA_List_Active; temp_active = result
setvar active temp_active
check ID PLAY
if result = 1 then do
  call Stop()
  delay(20)
  check ID PLAY ATTRS MUIA_Selected 1
end
setvar current_time '00:00'
text ID ACTIV LABEL "\033b\033r"right(temp_active + 1, 3)
call GetInfo()
return