home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / sound / mrmpeg / timer.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1997-12-16  |  822 b   |  25 lines
  1. /* Timer.rexx */
  2.  
  3. options results; address MrMPEG
  4.  
  5. MUIA_NoNotify        = 0x804237f9;    MUIA_Slider_Level    = 0x8042ae3a
  6. MUIA_Slider_Max        = 0x8042d78a
  7.  
  8. call setclip('MrMPEG_FLAG', 0)
  9. getvar song_time; temp_song_time = result
  10. getvar current_time; temp_current_time = result
  11. init_time = left(temp_current_time, 2) * 60 + right(temp_current_time, 2)
  12. finish = left(temp_song_time, 2) * 60 + right(temp_song_time, 2)
  13. call time('R')
  14. do until (counter >= finish) | getclip('MrMPEG_FLAG')
  15.   call delay(60)
  16.   getvar stopped
  17.   if result = 1 then leave
  18.   counter = init_time + trunc(time('E'))
  19.   temp_current_time = right(counter % 60, 2, 0)":"right(counter // 60, 2, 0)
  20.   setvar current_time temp_current_time
  21.   /* text ID CURNT LABEL "\033b\033r"temp_current_time */
  22.   slider ID PROG ATTRS MUIA_NoNotify 1 MUIA_Slider_Level counter
  23. end
  24. exit
  25.