! APPL_DOWN.SCP

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

	GET $THEKEY = appl_entry.%NEXT[$THEKEY]
	for first appl_entry with .%key == $thekey do -
		GET $APPL_FLD1 = .FLD1 -
		\\GET $APPL_FLD2 = .FLD2 -
		\\GET $APPL_FLD3 = .FLD3 -
		\\GET $APPL_FLD4 = .FLD4

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