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