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.0005C00040048	SUBROUTINE GETSTR( LUN, AREA, MAXLEN, ERR )0027	LOGICAL*1 AREA (1),ERR0043	ERR = .FALSE.			!INITIALIZE ERROR FLAG0054	READ(LUN,9,END=1,ERR=2) ITMP,(AREA(I),I=1,MAXLEN)0040	AREA(MAXLEN+1)=0		!TERMINATE STRING0050	CALL TRIM(AREA)			!GET RID OF TRAILING BLANKS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^0061	IF (ITMP.GT.MAXLEN) ERR=-3	!LOOK FOR RECORD LENGTH ERROR0011	GOTO 300291	ERR = -1			!END-OF-FILE0011	GOTO 300322	ERR = -2			!HARDWARE ERROR00123	RETURN00269	FORMAT(Q,250(250A1))0008	END^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^