C..  IREADP.FTN (COPY OF FCCC)   BOHDEN K. CMAYLO   MAR 82
C..
C..  ROUTINE DOES TYPE THEN ACCEPT ON SAME LINE
C..
	FUNCTION IREADP(M,INPUT)
	BYTE BLANK,IZERO,M(80),INPUT(80)
	DATA INTTY,BLANK,IZERO/5,' ','0'/
	DO 1 I=1,80
	IF(M(I).EQ.'='.OR.M(I).EQ.'?'.OR.M(I).EQ.'.'.OR.M(I).EQ.'/')
     1 GO TO 2
1	CONTINUE
	I=20
C..
C..	CHECK FOR SKIPS PRIOR TO PROMPT
C..
2	IF(M(I).EQ.'/') I=I-1
	K=-1
	DO 20 KK=1,10
	IF(M(1).NE.IZERO+KK-1) GO TO 20
	K=KK-1
	GO TO 21
20	CONTINUE
21	CONTINUE
	IF(K.EQ.0) WRITE(INTTY,31)
31	FORMAT('1')
	IF(K.GT.0) WRITE(INTTY,32)(IBLANK,KK=1,K)
32	FORMAT(10(/A1))
	IF(K.GE.0) K=2
	IF(K.LT.0) K=1
	WRITE(INTTY,3)(M(J),J=K,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)
	IREADP=IQ
	RETURN
C..
C..	EOF
C..
5	IREADP=-1
	RETURN
C.. ERROR
6	IREADP=0
	RETURN
	END