/* GetInfo.rexx */

options results; address MrMPEG

MUIA_List_Active	= 0x8042391c;	MUIA_List_Entries	= 0x80421654
MUIA_Slider_Level	= 0x8042ae3a;	MUIA_Slider_Max		= 0x8042d78a

list ID SLIST ATTRS MUIA_List_Active; temp_active = result
list ID SLIST POS temp_active
parse var result filename','temp_song_time','detail
if filename ~= 'RESULT' then do		/* Check if there's any selected song */
  getvar current_song
  if filename ~= result then setvar current_time '00:00'
  list ID SLIST ATTRS MUIA_List_Entries; temp_max = result
  setvar active temp_active
  setvar max temp_max
  setvar song_time temp_song_time
  getvar total_time; temp_total_time = result
  getvar current_time; temp_current_time = result
  string ID FNAME CONTENT filename
  text ID LCD LABEL strip(detail)
  text ID ACTIV LABEL "\033b\033r"right(temp_active + 1, 3)
  text ID MAX LABEL "\033b\033r"right(temp_max, 3)
  text ID CURNT LABEL "\033b\033r"temp_song_time
  text ID TOTAL LABEL "\033b\033r"temp_total_time
  slider ID PROG ATTRS,
    MUIA_Slider_Max left(temp_song_time, 2) * 60 + right(temp_song_time, 2),
    MUIA_Slider_Level left(temp_current_time, 2) * 60 + right(temp_current_time, 2)
end
return