home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / amigalib / d994 / jukebox.lha / JukeBox / rem.jb < prev    next >
Encoding:
Text File  |  1994-04-05  |  473 b   |  22 lines
  1. /* calculate remaining time */
  2. /* (c) copyright 1992,93 by F.J. Reichert */
  3.  
  4. numeric digits 4
  5. options results;
  6. current time
  7. relative = result;
  8. current cdtime
  9. absolute = result;
  10. subtime absolute relative
  11. remain = result;
  12. percent = ticks(remain) * 100 / ticks(absolute);
  13. say 'remaining play time' remain 'of' absolute '('||percent||'%)'
  14. exit 0;
  15.  
  16. ticks:
  17. parse arg tstr
  18. parse value tstr with time.0 ':' time.1 ':' time.2;
  19. abs = (time.0 * 60 + time.1) * 75 + time.2
  20. return abs
  21.  
  22.