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