A large commit.

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

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