SUBROUTINE SCR_WRTVALUE
C	----	PUT VALUES ON SCREEN
	INCLUDE 'SCREEN.FOR'
C
	DO I=1,INUM_FIELDS
		IROW = IXY(I,1)
		ISTART = IXY(I,2)
		IEND = ISTART + LENGTH(I) - 1
		ISTAT=LIB$PUT_SCREEN(CHRSCREEN(IROW)(ISTART:IEND),
     &			IROW,ISTART,IBOLD)
		IF(.NOT.ISTAT)CALL LIB$STOP(%VAL(ISTAT))
	END DO
C
	ISTAT=LIB$SET_CURSOR(ILIN,ICOL)
		IF(.NOT.ISTAT)CALL LIB$STOP(%VAL(ISTAT))

	RETURN
	END