SUB L. (L%)
	IF L%>0% THEN SUBEXIT
	PRINT "INVALID ELEMENT# =";L%
	CALL FCSDIE
	SUBEND