Block of 18 lines in the section place descriptor .
Variables STEXT, ABB, LTEXT, LLINE, COND.
Subroutines SPEAK.
C PLACE DESCRIPTOR 71 KK=STEXT(L) IF(ABB(L).EQ.0.OR.KK.EQ.0)KK=LTEXT(L) IF(KK.EQ.0) GOTO 7 4 TYPE 5,(LLINE(KK,JJ),JJ=3,LLINE(KK,2)) 5 FORMAT(20A5) KK=KK+1 IF(LLINE(KK-1,1).NE.0) GOTO 4 TYPE 6 6 FORMAT(/) 7 IF(COND(L).EQ.2)GOTO 8 IF(LOC.EQ.33.AND.RAN(QZ).LT.0.25)CALL SPEAK(8) J=L GOTO 2000
speak
8: A hollow voice says 'plugh'
from
Unconditional from block s2.
GOTO 71
Conditional from block s60.
IF(RAN(QZ).GT.0.05) GOTO 71
Unconditional from block s60.
GOTO 71
Conditional from block s63.
IF(DTOT.EQ.0) GOTO 71
Conditional from block s75.
77 IF(ATTACK.EQ.0)GOTO 71
Computed from block s79.
GOTO(71,83)(STICK+1)
Unconditional from block s82.
GOTO 71
Unconditional from block s69.
GOTO 71
to
Conditional to block s8.
7 IF(COND(L).EQ.2)GOTO 8
Unconditional to block s2000.
GOTO 2000