SUBROUTINE SCR_UNDL(D_LINE,DL_LEN)
C	---- UNDELETE LINE
	CHARACTER*80 D_LINE
	INTEGER DL_LEN
	INCLUDE 'SCREEN.FOR'
C
	DO I=0,79
		IF((ICOL+I).EQ.81)GOTO 10
		IF(LOGSCREEN(ILIN,ICOL+I))THEN
		  CHRSCREEN(ILIN)(ICOL+I:ICOL+I)=D_LINE(I+1:I+1)
		ELSE
		  GOTO 10
		ENDIF
	ENDDO
C
10	ISTAT=LIB$PUT_SCREEN(CHRSCREEN(ILIN)(ICOL:ICOL+I-1),
     &			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