home *** CD-ROM | disk | FTP | other *** search
/ PC Games 2 the Maxx / pcgames.zip / pcgames / ADVENTUR / ADV350.ZIP / RSPEAK.FOR < prev    next >
Text File  |  1990-11-11  |  290b  |  13 lines

  1.       SUBROUTINE RSPEAK(I)
  2.       
  3. C  PRINT THE I-TH "RANDOM" MESSAGE (SECTION 6 OF DATABASE).
  4.  
  5.       IMPLICIT INTEGER*4 (A-Z)
  6. C     INTEGER*2 RTEXT,ASCVAR
  7.       COMMON /TXTCOM/ RTEXT
  8.       DIMENSION RTEXT(205)
  9.       
  10.       IF(I.NE.0) CALL SPEAK(RTEXT(I))
  11.       RETURN
  12.       END
  13.