home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / amigalib / d994 / jukebox.lha / JukeBox / status.jb < prev    next >
Encoding:
Text File  |  1994-04-05  |  436 b   |  22 lines
  1. /* display current playing status */
  2. /* (c) copyright 1992,93 by F.J. Reichert */
  3.  
  4. options results;
  5. inquiry;
  6. say substr(result,9,27);
  7. current status;
  8. play = 'status is "'||result||'",'
  9. current track;
  10. play = play 'track #'||result
  11. current index;
  12. play = play 'index' result
  13. current reltime;
  14. rel = result;
  15. play = play 'since' result
  16. current trktime;
  17. abs = result;
  18. subtime abs rel
  19. rem = result;
  20. say play||', remaining' rem 'of' abs
  21. exit 0;
  22.