SUBROUTINE RSPEAK(I)
C 
C  PRINT THE I-TH "RANDOM" MESSAGE (SECTION 6 OF DATABASE).
C 
      IMPLICIT INTEGER*4 (A-Z)
      COMMON /TXTCOM/ RTEXT
      DIMENSION RTEXT(205)
C 
      IF(I.NE.0)CALL SPEAK(RTEXT(I))
      RETURN
      END