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

diff --git a/sw/adventure/YES.FT b/sw/adventure/YES.FT
deleted file mode 100644
index c53606d..0000000
--- a/sw/adventure/YES.FT
+++ /dev/null
@@ -1,22 +0,0 @@
-	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