File: YES.LS of Disk: V50/Source/Source-Listing-FORTRAN-2

(Source file text) 

---

        FORTRAN IV  V50-A (A6)  24-JUL-20 

0002	        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
0003	        INTEGER REPLY,X,Y,Z
	C
0004	1       IF(X.NE.0)CALL RSPEAK(X)
0005	        CALL GETIN(REPLY,JUNK1,JUNK2,JUNK3)
0006	        IF(REPLY.EQ.'YES'.OR.REPLY.EQ.'YE'.OR.REPLY.EQ.'Y')GOTO 10
0007	        IF(REPLY.EQ.'NO' .OR. REPLY.EQ.'N')GOTO 20
	C       WRITE(4,9)
	C9      FORMAT(/' PLEASE ANSWER THE QUESTION.')
0010	        CALL SIXOUT('P]LEASE ANSWER THE QUESTION.',15,0)
0011	        GOTO 1
0012	10      YES=. TRUE.
0013	        IF(Y.NE.0)CALL RSPEAK(Y)
0014	        RETURN
0015	20      YES=.FALSE.
0016	        IF(Z.NE.0)CALL RSPEAK(Z)
0017	        RETURN
0020	        END

---