SUB N. (N%)
	IF N%>0% THEN SUBEXIT
	PRINT "INVALID NUMBER OF ELEMENTS =";N%
	CALL FCSDIE
	SUBEND