home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fatal Distractions!
/
fataldistractions.bin
/
chap01
/
adventur
/
yesm.for
< prev
next >
Wrap
Text File
|
1990-11-11
|
262b
|
13 lines
LOGICAL FUNCTION YESM(X,Y,Z)
C CALL YESX (BELOW) WITH MESSAGES FROM SECTION 12.
IMPLICIT INTEGER*4 (A-Z)
C INTEGER*2 ASCVAR
EXTERNAL MSPEAK
LOGICAL YESX
YESM=YESX(X,Y,Z,MSPEAK)
RETURN
END