/* Timer.rexx */ options results; address MrMPEG MUIA_NoNotify = 0x804237f9; MUIA_Slider_Level = 0x8042ae3a MUIA_Slider_Max = 0x8042d78a call setclip('MrMPEG_FLAG', 0) getvar song_time; temp_song_time = result getvar current_time; temp_current_time = result init_time = left(temp_current_time, 2) * 60 + right(temp_current_time, 2) finish = left(temp_song_time, 2) * 60 + right(temp_song_time, 2) call time('R') do until (counter >= finish) | getclip('MrMPEG_FLAG') call delay(60) getvar stopped if result = 1 then leave counter = init_time + trunc(time('E')) temp_current_time = right(counter % 60, 2, 0)":"right(counter // 60, 2, 0) setvar current_time temp_current_time /* text ID CURNT LABEL "\033b\033r"temp_current_time */ slider ID PROG ATTRS MUIA_NoNotify 1 MUIA_Slider_Level counter end exit