LOGICAL FUNCTION YES(X,Y,Z) C C PRINT MESSAGE X, WAIT FOR YES/NO ANSWER. IF YES, PRINT Y AND LEAVE YEA C TRUE; IF NO, PRINT Z AND LEAVE YEA FALSE. SPK IS EITHER RSPEAK OR MSPEAK. C INTEGER REPLY,X,Y,Z C 1 IF(X.NE.0)CALL RSPEAK(X) CALL GETIN(REPLY,JUNK1,JUNK2,JUNK3,JUNK4,JUNK5) IF(REPLY.EQ.'YES' .OR. REPLY.EQ.'Y')GOTO 10 IF(REPLY.EQ.'NO' .OR. REPLY.EQ.'N')GOTO 20 WRITE(4,9) 9 FORMAT(/' PLEASE ANSWER THE QUESTION.') GOTO 1 10 YES=.TRUE. IF(Y.NE.0)CALL RSPEAK(Y) RETURN 20 YES=.FALSE. IF(Z.NE.0)CALL RSPEAK(Z) RETURN END