home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / GAMES / ADV350.ZIP / RSPEAK.FOR < prev    next >
Encoding:
Text File  |  1990-11-11  |  290 b   |  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.