SUBROUTINE PUTSCRN (STRING, LINE, ICOL)

	CHARACTER*(*)	STRING

	CHARACTER*2000	SCRBUF

	CALL IFERR ( LIB$SET_BUFFER (SCRBUF, IOLD),
	1	'SET_BUFFER error.')

C	CALL IFERR ( LIB$ERASE_LINE (LINE, ICOL),
C	1	'ERASE_LINE error.')
 
	CALL IFERR ( LIB$PUT_SCREEN ( STRING, LINE, ICOL),
	1	'PUT_SCREEN error.')

	CALL IFERR ( LIB$PUT_BUFFER (IOLD),
	1	'PUT_BUFFER error.')

	RETURN

	END