SUBROUTINE CLEAR
	LOGICAL*1 CL(4)
	CL(1)=27+128			!Output<esc>H<esc>J
	CL(2)='H'
	CL(3)=27+128			!	To clear screen
	CL(4)='J'
	WRITE(5,10) CL
	RETURN
10	FORMAT(1H$,4A1)
	END