! CD_DOWN.SCP

!	Allows user to go down through CD Item file listings by 
! using down arrow key.

	GET $CD_KEY = CD_entry.%NEXT[$CD_KEY]
	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

	.if $CD_KEY = CD_entry.%NEXT[""] then -
		display Top of Log
	.exit