SUBROUTINE SCR_RESETSCR
C	---- SETS VALUES TO ZERO AND CLEARS BOTH SCREEN ARRAYS
	INCLUDE 'SCREEN.FOR'
C
	DO I=1,24
		DO J=1,80
		  CHRSCREEN(I)(J:J)=' '
		  LOGSCREEN(I,J)=.FALSE.
		END DO
	END DO
C
	DO I=1,50
		IXY(I,1)=0
		IXY(I,2)=0
		TYPE(I:I)=' '
		IFRACT(I)=0
		LENGTH(I)=0
	END DO
C
	RETURN
	END