home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Games 2 the Maxx
/
pcgames.zip
/
pcgames
/
ADVENTUR
/
ADV350.ZIP
/
RSPEAK.FOR
< prev
next >
Wrap
Text File
|
1990-11-11
|
290b
|
13 lines
SUBROUTINE RSPEAK(I)
C PRINT THE I-TH "RANDOM" MESSAGE (SECTION 6 OF DATABASE).
IMPLICIT INTEGER*4 (A-Z)
C INTEGER*2 RTEXT,ASCVAR
COMMON /TXTCOM/ RTEXT
DIMENSION RTEXT(205)
IF(I.NE.0) CALL SPEAK(RTEXT(I))
RETURN
END