home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
ADV350.ZIP
/
mspeak.for
< prev
next >
Wrap
Text File
|
1990-11-11
|
289b
|
13 lines
SUBROUTINE MSPEAK(I)
C PRINT THE I-TH "MAGIC" MESSAGE (SECTION 12 OF DATABASE).
IMPLICIT INTEGER*4 (A-Z)
C INTEGER*2 MTEXT,ASCVAR
COMMON /MTXCOM/ MTEXT
DIMENSION MTEXT(35)
IF(I.NE.0) CALL SPEAK(MTEXT(I))
RETURN
END