X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fadventure%2Fwork%2FYES.FT;fp=sw%2Fadventure%2Fwork%2FYES.FT;h=c53606d8db5947e6c4dac566f51dcab11be84552;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/adventure/work/YES.FT b/sw/adventure/work/YES.FT
new file mode 100644
index 0000000..c53606d
--- /dev/null
+++ b/sw/adventure/work/YES.FT
@@ -0,0 +1,22 @@
+	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)
+	IF(REPLY.EQ.'YES'.OR.REPLY.EQ.'YE'.OR.REPLY.EQ.'Y')GOTO 10
+	IF(REPLY.EQ.'NO' .OR. REPLY.EQ.'N')GOTO 20
+C	WRITE(4,9)
+C9	FORMAT(/' PLEASE ANSWER THE QUESTION.')
+	CALL SIXOUT('P]LEASE ANSWER THE QUESTION.',15,0)
+	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