home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
ADV350.ZIP
/
pspeak.for
< prev
next >
Wrap
Text File
|
1990-11-12
|
721b
|
27 lines
SUBROUTINE PSPEAK(MSG,SKIP)
C FIND THE SKIP+1ST MESSAGE FROM MSG AND PRINT IT. MSG SHOULD BE THE INDEX OF
C THE INVENTORY MESSAGE FOR OBJECT. (INVEN+N+1 MESSAGE IS PROP=N MESSAGE).
IMPLICIT INTEGER*4 (A-Z)
C INTEGER*2 RTEXT,PTEXT,ASCVAR
COMMON /TXTCOM/ RTEXT,LINES,ASCVAR
COMMON /PTXCOM/ PTEXT
DIMENSION RTEXT(205),LINES(18),PTEXT(100)
M=PTEXT(MSG)
IF(SKIP.LT.0) GOTO 9
ASCVAR=M
DO 3 I=1,SKIP+1
1 READ(2,REC=ASCVAR) LOC,LINES
OLDLOC=LOC
ASCVAR=ASCVAR+1
M=ASCVAR
READ(2,REC=M) LOC,LINES
ASCVAR=M
IF(LOC.EQ.OLDLOC) GOTO 1
3 CONTINUE
9 CALL SPEAK(M)
RETURN
END