SUBROUTINE SCR_GETLOGSCR
C	---- FILL LOGICAL SCREEN ARRAY WITH TRUE IF THERE ARE DATA
C	----	VALUES AT THE SCREEN POSITION
	INCLUDE 'SCREEN.FOR'
	ICNT=0
C
	DO 30 I=1,24
		IPOS=1
10		J=INDEX(CHRSCREEN(I)(IPOS:80),'_')
		IF(J.EQ.0)GOTO 30
		J=J+IPOS-1
		ICNT=ICNT+1
		IXY(ICNT,1)=I	!SAVE SCREEN LINE NUMBER
		IXY(ICNT,2)=J	!SAVE THIS FIELD'S STARTING POSITION
		CALL SCR_ICLEN(J,I,LEN)
		LENGTH(ICNT)=LEN	!SAVE THIS FIELD'S LENGTH
		IPOS=J+LEN
		GOTO 10
30	CONTINUE
	IF (ICNT .GT. INUM_FIELDS) THEN
		TYPE 40, ICNT, INUM_FIELDS
40		FORMAT(1X,'ERROR: ',I3,' FIELDS FOUND IN THIS SCREEN',
     &		' ONLY ',I3,' WERE DEFINED',
     &		/1X,'		PLEASE CHECK YOUR FIELD DEFINITIONS')
		CALL EXIT
	ENDIF
	RETURN
	END