C..  PROMPT.FTN   BOHDEN K. CMAYLO   MAY 81
C..
C..  ROUTINE DOES TYPE THEN ACCEPT ON SAME LINE
C..
	SUBROUTINE PROMPT(MSG,IQ,INPUT)
	BYTE MSG(80),INPUT(80)
	DATA INTTY/5/
	DO 1 I=1,80
	IF(MSG(I).EQ.'='.OR.MSG(I).EQ.'?') GO TO 2
1	CONTINUE
	I=20
2	WRITE(INTTY,3)(MSG(J),J=1,I)
3	FORMAT('$',80A1)
	CALL DOBYTE(INPUT,INPUT(80),' ')
	READ(INTTY,4,END=5,ERR=6)IQ,(INPUT(J),J=1,IQ)
4	FORMAT(Q,80A1)
	RETURN
C..
C..	EOF
C..
5	IQ=-1
	RETURN
C.. ERROR
6	IQ=0
	RETURN
	END