A large commit.

[pdp8.git] / sw / adventure / work / YES.FT

	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