+++ /dev/null
- LOGICAL FUNCTION YES(X,Y,Z)\r
-C\r
-C PRINT MESSAGE X, WAIT FOR YES/NO ANSWER. IF YES, PRINT Y AND LEAVE YEA\r
-C TRUE; IF NO, PRINT Z AND LEAVE YEA FALSE. SPK IS EITHER RSPEAK OR MSPEAK.\r
-C\r
- INTEGER REPLY,X,Y,Z\r
-C\r
-1 IF(X.NE.0)CALL RSPEAK(X)\r
- CALL GETIN(REPLY,JUNK1,JUNK2,JUNK3)\r
- IF(REPLY.EQ.'YES'.OR.REPLY.EQ.'YE'.OR.REPLY.EQ.'Y')GOTO 10\r
- IF(REPLY.EQ.'NO' .OR. REPLY.EQ.'N')GOTO 20\r
-C WRITE(4,9)\r
-C9 FORMAT(/' PLEASE ANSWER THE QUESTION.')\r
- CALL SIXOUT('P]LEASE ANSWER THE QUESTION.',15,0)\r
- GOTO 1\r
-10 YES=. TRUE.\r
- IF(Y.NE.0)CALL RSPEAK(Y)\r
- RETURN\r
-20 YES=.FALSE.\r
- IF(Z.NE.0)CALL RSPEAK(Z)\r
- RETURN\r
- END\r