C.MODULE PUTSTR,VERSION=02,COMMENT=<FORTRAN Put String>,LIB=YES
C
C THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY  BE  USED
C OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
C
C     COPYRIGHT (c) 1984,1985 BY DIGITAL EQUIPMENT CORPORATION.
C			ALL RIGHTS RESERVED.
C
	SUBROUTINE PUTSTR ( LUN, AREA, CC, ERR )
	LOGICAL*1 AREA(1), CC, ERR
	ERR = .FALSE.			!INITIALIZE ERROR FLAG
	IF (CC.NE.0) GOTO 1		!BRANCH IF CC NON-0
	WRITE (LUN,9,END=2,ERR=3) (AREA(I),I=1,LEN(AREA))
	GOTO 4
1	WRITE (LUN,9,END=2,ERR=3) CC,(AREA(I),I=1,LEN(AREA))
	GOTO 4
2	ERR = -1			!END-OF-FILE
	GOTO 4
3	ERR = -2			!HARDWARE ERROR
4	RETURN
9	FORMAT (250(250A1))
	END
