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