SUBROUTINE NEWPAG
C
C****** SUBROUTINE NEWPAG CLEARS SCREEN PAGE ******
C
	USE IFQWIN
	CALL CLEARSCREEN($GCLEARSCREEN)
	RETURN
	END