home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fatal Distractions!
/
fataldistractions.bin
/
chap01
/
adventur
/
yesx.for
< prev
Wrap
Text File
|
1990-11-11
|
652b
|
23 lines
LOGICAL FUNCTION YESX(X,Y,Z,SPK)
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 REPEAK OR MSPEAK.
IMPLICIT INTEGER*4 (A-Z)
C INTEGER*2 ASCVAR
1 IF(X.NE.0) CALL SPK(X)
CALL GETIN(REPLY,JUNK1,JUNK2,JUNK3)
IF(REPLY.EQ.'YES'.OR.REPLY.EQ.'Y') GOTO 10
IF(REPLY.EQ.'NO'.OR.REPLY.EQ.'N') GOTO 20
WRITE(*,9)
9 FORMAT(/' PLEASE ANSWER THE QUESTION.')
GOTO 1
10 YESX=.TRUE.
IF(Y.NE.0) CALL SPK(Y)
RETURN
20 YESX=.FALSE.
IF(Z.NE.0) CALL SPK(Z)
RETURN
END