0069C THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED0061C OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.0005C0055C COPYRIGHT (C) 1978 DIGITAL EQUIPMENT CORPORATION.0005C0045	SUBROUTINE PUTSTR ( LUN, AREA, CC, ERR )0031	LOGICAL*1 AREA(1), CC, ERR0043	ERR = .FALSE.			!INITIALIZE ERROR FLAG0041	IF (CC) GOTO 1			!BRANCH IF CC NON-00054	WRITE (LUN,9,END=2,ERR=3) (AREA(I),I=1,LEN(AREA))0011	GOTO 400581	WRITE (LUN,9,END=2,ERR=3) CC,(AREA(I),I=1,LEN(AREA))0011	GOTO 4^^^^^^^^^^^^^^^^^^^^^^^00292	ERR = -1			!END-OF-FILE0011	GOTO 400323	ERR = -2			!HARDWARE ERROR00124	RETURN00259	FORMAT (250(250A1))0008	END^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^