LOGICAL FUNCTION YESM(X,Y,Z)
C 
C  CALL YESX (BELOW) WITH MESSAGES FROM SECTION 12.
C 
      IMPLICIT INTEGER*4 (A-Z)
        EXTERNAL MSPEAK
        LOGICAL YESX
C 
        YESM=YESX(X,Y,Z,MSPEAK)
        RETURN
        END