PDP-10 Archive: 43,50212/answer.f4 from decuslib10-01

Google Enter your search terms Submit search form

Web pdp-10.trailing-edge.com

---

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/answer.f4

---

There are no other files named answer.f4 in the archive.

---

C	TITLE A N S W E R
C		NQ IS A ALPHA STRING ENDING WITH A ?
C		FUNCTION RETURNS WITH AN ALPHA WORD
C		ENTERED FROM THE TTY
	FUNCTION ANSWER(NQ)
	DIMENSION NQ(14)
	DO 1 I=1,14
	DO 1 J=1,5
	IF(LUNPAK(J-1,5-J,NQ(I)).EQ.'?')GO TO 2
1	CONTINUE
	NW=14
	GO TO 3
2	NW=I
3	TYPE 100,(NQ(I),I=1,NW)
100	FORMAT(1X,14A5)
	TYPE 103
103	FORMAT(1X)
	ACCEPT 101,ANSWER
101	FORMAT(A5)
	RETURN
	END