SUBROUTINE SCR_DELL(D_LINE,DL_LEN)
C	---- DELETE A LINE, D_LINE SAVES THE DELETED LINE FOR A 
C	----	POSSIBLE UN-DELETE LINE
	CHARACTER*80 D_LINE
	INTEGER DL_LEN
	INCLUDE 'SCREEN.FOR'
C
	DO I=0,79
	  IF(ICOL+I.GT.80)GOTO 10
		IF(LOGSCREEN(ILIN,ICOL+I))THEN
		  D_LINE(I+1:I+1)=CHRSCREEN(ILIN)(ICOL+I:ICOL+I)
		  CHRSCREEN(ILIN)(ICOL+I:ICOL+I)=' '
		ELSE
		  GOTO 10
		ENDIF
	ENDDO
C
10	DL_LEN=I+1
	ISTAT=LIB$PUT_SCREEN(CHRSCREEN(ILIN)(ICOL:ICOL+I),
     &		ILIN,ICOL,IBOLD)
		IF(.NOT.ISTAT)CALL LIB$STOP(%VAL(ISTAT))
	ISTAT=LIB$SET_CURSOR(ILIN,ICOL)
		IF(.NOT.ISTAT)CALL LIB$STOP(%VAL(ISTAT))

	RETURN
	END