! CD_NEXT.SCP

!	This procedure gets the next CD Item Item from the selection list
! and makes it the current item

.LABEL GET_NEXT
	NEXT_LIST CDLIST.SEL
	.IF $NEXT_LIST_ITEM EQS "" THEN .GOTO END_OF_LIST

	.IF CD_entry.%KEY[$NEXT_LIST_ITEM] EQS "" THEN .GOTO GET_NEXT

	GET $CD_KEY = $NEXT_LIST_ITEM
	for first CD_entry with .%key == $CD_KEY do -
		GET $CD_COMPOSER = .COMPOSER -
		\\GET $CD_TITLE = .TITLE -
		\\GET $CD_SERIAL_NO = .SERIAL_NO -
		\\GET $CD_TTIME = .TTIME 
	DISPLAY Next list item selected
	.EXIT

.LABEL END_OF_LIST
	DISPLAY You have reached the end of the selection list

.LABEL EXIT_PROCEDURE
	.EXIT