home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / RxCD / Examples / toc.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  2001-09-23  |  871 b   |  36 lines
  1. /* */
  2.  
  3. l="rxcd.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  4.  
  5. res = CDTOC('cd0','debug','toc')
  6. if res~=0 then do
  7.     say res debug.sensekey debug.deverr d2x(debug.asc) d2x(debug.ascq)
  8.     exit
  9. end
  10.  
  11. say "FirstTrack:" toc.FirstTrack
  12. say "LastTrack: " toc.LastTrack
  13. say "StartAddr: " toc.StartAddr
  14. say "EndAddr:   " toc.EndAddr
  15. say "Frames:    " toc.Frame
  16. say "Min:       " toc.Min
  17. say "Sec:       " toc.Sec
  18. say "ID:        " toc.ID
  19. say "Num:       " toc.Num
  20. say
  21.  
  22. do i=0 to toc.num-1
  23.     say i "Track:     " toc.i.Track
  24.     say i "StartAddr: " toc.i.StartAddr
  25.     say i "Frames:    " toc.i.Frames
  26.     say i "StartMin:  " toc.i.StartMin
  27.     say i "StartSec:  " toc.i.StartSec
  28.     say i "StartFrame:" toc.i.StartFrame
  29.     say i "Min:       " toc.i.Min
  30.     say i "Sec:       " toc.i.Sec
  31.     say i "Frame:     " toc.i.Frame
  32.     say i "ADR:       " toc.i.ADR
  33.     say i "Audio:     " toc.i.Audio
  34.     say
  35. end
  36.