| 1 | LOGICAL FUNCTION YES(X,Y,Z)\r |
| 2 | C\r |
| 3 | C PRINT MESSAGE X, WAIT FOR YES/NO ANSWER. IF YES, PRINT Y AND LEAVE YEA\r |
| 4 | C TRUE; IF NO, PRINT Z AND LEAVE YEA FALSE. SPK IS EITHER RSPEAK OR MSPEAK.\r |
| 5 | C\r |
| 6 | INTEGER REPLY,X,Y,Z\r |
| 7 | C\r |
| 8 | 1 IF(X.NE.0)CALL RSPEAK(X)\r |
| 9 | CALL GETIN(REPLY,JUNK1,JUNK2,JUNK3)\r |
| 10 | IF(REPLY.EQ.'YES'.OR.REPLY.EQ.'YE'.OR.REPLY.EQ.'Y')GOTO 10\r |
| 11 | IF(REPLY.EQ.'NO' .OR. REPLY.EQ.'N')GOTO 20\r |
| 12 | C WRITE(4,9)\r |
| 13 | C9 FORMAT(/' PLEASE ANSWER THE QUESTION.')\r |
| 14 | CALL SIXOUT('P]LEASE ANSWER THE QUESTION.',15,0)\r |
| 15 | GOTO 1\r |
| 16 | 10 YES=. TRUE.\r |
| 17 | IF(Y.NE.0)CALL RSPEAK(Y)\r |
| 18 | RETURN\r |
| 19 | 20 YES=.FALSE.\r |
| 20 | IF(Z.NE.0)CALL RSPEAK(Z)\r |
| 21 | RETURN\r |
| 22 | END\r |