home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / amigalib / d994 / jukebox.lha / JukeBox / fwd.jb < prev    next >
Encoding:
Text File  |  1994-04-05  |  483 b   |  23 lines
  1. /* skip to next track */
  2. /* (c) copyright 1992,93 by F.J. Reichert */
  3.  
  4. options results;
  5. options failat 11;
  6. toc stem a.;
  7. if rc = 0 then do;
  8.     current track;
  9.     toset = result + 1;
  10.     /* if there are tracks, skip to next */
  11.     if toset < a.0 then do;
  12.         set track toset;
  13.     end;
  14.     /* else move to last logical block */
  15.     else do;    
  16.         current cdtime;
  17.         parse value result with mins':'secs':'frames;
  18.         endblock = (mins * 60 + secs) * 75 + frames - 150 - 1;
  19.         set block endblock;
  20.     end;    
  21. end;
  22. exit(0);
  23.