! CD_UP.SCP
!	Allows the user to go to the top entry of his current data.

	GET $CD_KEY = CD_entry.%NEXT[""]
	.if $CD_KEY eqs "" then .goto file_empty

	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 Top of Log

	.exit

.label file_empty

	get $CD_KEY = $CD_COMPOSER = $CD_TITLE = $CD_SERIAL_NO = $CD_TTIME = ""
	display File is empty
	.exit