INTEGER FUNCTION GETSTR(ISTR)
C
C C	DISPLAY PROMPT AND ACCEPT INPUT
C
	INCLUDE '[214,10]INPCOM.COM'
	LOGICAL*1 CMD(1), ISTR(1)
C
	INCNT = 0			! SINCE READ NOT EXECUTED AFTER CNTL-Z
	TTYEOF = .FALSE.
	TYPE 9000,(ISTR(I),I=1,LEN(ISTR))
9000	FORMAT($1H ,80A1)
	READ(5,9001,ERR=20,END=30) INCNT,(INPUT(I),I=1,INCNT)
9001	FORMAT(Q,80A1)
	GOTO	40
20	GETSTR = 0				! FLAG AS NO INPUT FOR ERRORS
	GOTO	9999				!---EXIT
30	TTYEOF = .TRUE.				! SET EOF ON TTY INPUT
40	INPUT(INCNT+1) = 0			! PLANT END OF STRING MARKER
	INPTR = 0				! SET UP PTR FOR ARG SNARFER
C
	GETSTR = INCNT				! RETURN CHAR CNT (0=NO INPUT)
9999	CONTINUE
	END