DELETE TEST_LOV;
REDEFINE PROCEDURE TEST_LOV
DECLARE OUTSTR	PIC X(75).
DECLARE OVR	LONG.
DECLARE DWN	LONG.
DECLARE CLRBEF	LONG.
DECLARE CLRAFT	LONG.
PRINT "This is a test of the new user added function LOV "
DWN = *."number of lines from top of screen"
OVR = *."number of cols from right of screen"
CLRBEF = *."'0' to clear screen before function. '1' to save screen. "
CLRAFT = *."'0' to clear screen after function.  '1' to save screen. "
!
OUTSTR = FN$LOV("TEST.TXT","Press ENTER",DWN,OVR,20,3,CLRBEF,CLRAFT)
PRINT OUTSTR(-)
END_PROCEDURE