/*	Here's a little program which puts the revised GETSYS.PRG through
*	it's paces.
*/

PROCEDURE SONG()
	LOCAL DATE2
	STATIC GETLIST := {}
	FIELD DATE,LINE
	SET SCOREBOARD OFF
	FILLSCRN(Chr(178))		// These functions are in LM.LIB
	SHADOBOX(2,2,5,61,Chr(176))
	@3,5 say "While editing these dates, try using the + and - keys."
	@4,5 say "Hold down the +/- key to accelerate to amazing speeds."
	SHADOBOX(9,10,17,69,Chr(176))
	Use song
	do while .not. eof()
		DATE2=date()
		@11,15 say "Today's Date: " get DATE2
		@13,15 say "    Dateline: " get DATE
		@15,15 say "   Song Line: " get LINE
		read
		if lastkey() = 12
			exit
		end
		skip
	end
	RETURN