/*
	Name		:	tracklist.rexx
	Created		:	25/06/96
	Last change	:	27/06/96

	Programmer	:	Urban Lindeskog
	Organization	:	ProNotion SWDG


	List the tracks on the CD.
*/
options RESULTS
address REXXCD

GETATTR DISC STEM DISC
Say left('', 80, '_')
str='Album title: 'DISC.TITLE'  Total length: 'DISC.LENGTH
Say '| 'left(str, 76)' |'
Say '|'left('', 78)'|'
GETATTR TRACK STEM TRACK

numlyr=0
Say '| No._Artist/Group______________Title________________________________Length____|'
do i=1 to TRACK.COUNT
	'GETATTR TRACK NAME 'i' STEM TRACK'
	if i = TRACK.CURRENT then str='*'; else str=' '
	if TRACK.LYRICS = 1 then do
		 lyr='L'
		numlyr=numlyr+1
		end
	else lyr=' '

	Say '| 'str''RIGHT(i, 2, '0')':'LEFT(TRACK.ARTIST, 25)' 'LEFT(TRACK.TITLE, 36)' ('TRACK.LENGTH') 'lyr' |'
	end

Say '|'left('', 78)'|'
if numlyr>1 then str='s '; else str=' '
if numlyr>0 then do
	str=''numlyr' track'str'have lyrics.'
	say '| 'left(str, 76)' |'
	end
Say left('', 80, '¯')