SUBROUTINE SCR_UNDC(D_CHR)
C	---- UNDELETE CHARACTER
	CHARACTER*1 D_CHR,DUMLIN*80
	INCLUDE 'SCREEN.FOR'
C
	DO I=0,79
		IF(ICOL+I.EQ.80)GOTO 10
		IF(LOGSCREEN(ILIN,ICOL+I))THEN
		  DUMLIN(I+1:I+1)=CHRSCREEN(ILIN)(ICOL+I:ICOL+I)
		ELSE
		  GOTO 10
		ENDIF
	ENDDO
C
10	CHRSCREEN(ILIN)(ICOL:ICOL)=D_CHR(1:1)
	CHRSCREEN(ILIN)(ICOL+1:ICOL+I)=DUMLIN(1:I)
	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