Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/nanswr.f4
There are no other files named nanswr.f4 in the archive.
C	TITLE  N A N S W R
C		SAME AS ANSWER BUT RETURNS WITH INTEGER WORD
	 FUNCTION NANSWR(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,NANSWR
101	FORMAT(I)
	RETURN
	END