journey/prison.zabstr

<BEGIN-SEGMENT DWARVES> 
<ROOM OUTSIDE-PRISON (TRAVEL-COMMANDS PROCEED-COMMAND BACK-COMMAND NUL-COMMAND)
(GRAPHIC G-PRISON-RUNES) (ENTER FSET-SEEN) (FLAGS UNDERGROUND DONT-SCOUT) (
ACTION <ACOND () (<EQUAL? ,ACTION ,BACK-COMMAND> <MOVE-TO ,STAIR-BOTTOM #
ZLOCAL!-IZILCH STR?461>) (<EQUAL? ,ACTION ,PROCEED-COMMAND> <PRINTI
"We continued our march through the long passage. "> <COND (<FSET? ,HURTH ,
IN-PARTY> <PRINTI
"\"We have come nearly to the eastern extent of the Reth a-Zar, where the
Bern i-Fen leads to the Old Forest,\" Hurth said."> <CRLF> <CRLF>) (T <PRINTI
"\"My sense is that we are nearing the Forest Gate,\" Praxix said."> <CRLF> <
CRLF>)> <MOVE-TO ,DARK-EVIL-CAVERN #ZLOCAL!-IZILCH STR?462>) (<EQUAL? ,ACTION ,
ENTER-COMMAND> <COND (<FSET? ,HERE ,TRAPPED> <REMOVE-TRAVEL-COMMAND> <PRINTI
"I suggested returning to the prison, but we decided against it.
\""> <COND (,KIDNAPPED <WPRINTD ,KIDNAPPED>) (T <PRINTI "My kinsman">)> <PRINTI
" is dead,\" Hurth said, gently. \"The orcs do not keep
prisoners, except for the sport of torture. In any event, they
will expect our return, and lie in wait for us. Let us continue,
that his death will not have been in vain.\"">) (T <MOVE-TO ,PRISON>)>)>)> 
<DEFINE-ROUTINE ANONF-151> 
<GLOBAL DARK-EVIL-LOC 0> 
<ROOM DARK-EVIL-CAVERN (TRAVEL-COMMANDS BACK-COMMAND PROCEED-COMMAND
NUL-COMMAND) (FLAGS UNDERGROUND DANGEROUS ADVISE) (CAST-LIMIT INF) (GRAPHIC
G-DARK-CAVERN) (ENTER <EXECUTE () <FSET ,DARK-EVIL-CAVERN ,SEEN> <TELL CR CR
"Bergon laughed, as did Praxix, but there was another sound also, cold and
rumbling, like distant thunder; and it came from before us."> <COND (<FSET? ,
HURTH ,IN-PARTY> <CRLF> <CRLF> <PRINTI
"\"I know not what lies before us,\" Hurth said, \"yet I know
that many evils, having long inhabited the deepest places of the earth,
now boldly tread even on the Dwarves' hallowed halls.\"">)>>) (TEMP 0) (ACTION
<ACOND ("AUX" TMP) (<EQUAL? ,ACTION ,GET-ADVICE-COMMAND> <UPDATE-FCLEAR ,HERE ,
ADVISE> <PRINTI "Bergon sought the group's advice, and the consensus was clearly to turn back.
Praxix, however, was uncertain, torn between his desire for further exploration
and the danger he felt certain was ahead.">) (<OR <EQUAL? ,ACTION ,
PROCEED-COMMAND> <EQUAL? ,ACTION ,BACK-COMMAND>> <PUTP ,HERE ,P?TEMP #
ZLOCAL!-IZILCH TMP> <COND (<EQUAL? ,ACTION ,PROCEED-COMMAND> <SETG
DARK-EVIL-LOC <ADD ,DARK-EVIL-LOC 1>>) (T <SETG DARK-EVIL-LOC <SUB ,
DARK-EVIL-LOC 1>>)> <COND (<EQUAL? .TMP 1> <PRINTI
"A cold wind chilled us to the bone as we inched our way "> <COND (<EQUAL? ,
ACTION ,BACK-COMMAND> <PRINTI "back ">)> <PRINTI "through the cavern."> <COND (
<FSET? ,PRAXIX ,LIT> <CRLF> <CRLF> <PRINTI
"\"Praxix! Look!\" I cried, pointing at the Wizard's staff. The staff
still glowed a pale red, but the light it cast was different; duller, perhaps,
or less potent.">)> <RTRUE>) (<EQUAL? .TMP 2> <COND (<EQUAL? ,ACTION ,
BACK-COMMAND> <PRINTI "Back">) (T <PRINTI "On">)> <PRINTI
" we went, as the now frigid air grew colder still with each tentative
step."> <COND (<FSET? ,PRAXIX ,LIT> <PRINTI
" Praxix' staff was now glowing a dim, dull red, and its light was barely
enough to see by.">)> <CRLF> <CRLF> <PRINTI
"\"Something's here,\" I whispered, as the air grew stale, then acrid. I
stumbled backward, tripped, and fell against the ground."> <
REMOVE-PARTY-COMMAND ,PROCEED-COMMAND> <COND (<FSET? ,HURTH ,IN-PARTY> <CRLF> <
CRLF> <PRINTI "\"This is an evil day,\" said Hurth. \"I hope there is time yet for us to
make our escape.\"">)> <RTRUE>) (T <REMOVE-PARTY-COMMAND ,BACK-COMMAND> <PRINTI
"As we moved ever more slowly through the blackness, the evil presence drew
closer still. But Praxix stood his ground, saying, \"We must not allow
this evil to endanger the other Dwarves. Run now, while I teach this
thing a lesson!\" It was sheer bravado, but Praxix was insistent.
\"Fly,\" he shouted. \"I shall join you soon!\""> <CRLF> <CRLF> <PRINTI
"Bergon agreed that there was nothing we could do but get ourselves
into more trouble, so we retreated to the stairs to await Praxix'
return."> <SCENE ,PRAXIX-VS-EVIL>)>) (<AND <EQUAL? ,ACTION ,CAST-COMMAND> <
EQUAL? ,ACTION-OBJECT ,LIGHT-SPELL> <EQUAL? ,ACTION-PRSI ,STAFF>> <PRINTI
"Praxix applied some fire and earth essences to the end of his staff, but the
light grew dimmer, not brighter. \"Most peculiar,\" he said.">) (<AND <EQUAL? ,
ACTION ,CAST-COMMAND> <EQUAL? ,ACTION-OBJECT ,TREMOR-SPELL>> <UNUSE-ESSENCES> <
PRINTI "The thought crossed Praxix' mind to cast a tremor spell, isolating
this dark presence. But the tremor spell was always unpredictable,
and the entire party might be placed in jeopardy.">) (<AND <EQUAL? ,ACTION ,
CAST-COMMAND> <EQUAL? ,ACTION-OBJECT ,FAR-VISION-SPELL>> <CAST-FAR-VISION #
ZLOCAL!-IZILCH FALSE-VALUE> <PRINTI
" But the ball of flame, rather than expelling the darkness before it, was wholly
enveloped by it. \"I fear to think what evil can consume the very light,\" Praxix
said.">)>)> 
<DEFINE-ROUTINE ANONF-152> 
<DEFINE-ROUTINE ANONF-153> 
<OBJECT PRAXIX-VS-EVIL (TEMP 0) (GRAPHIC G-MINER-PASSAGE) (ACTION <ACOND ("AUX"
TMP) (<EQUAL? ,ACTION ,SCENE-START-COMMAND> <FSET ,PRAXIX-VS-EVIL ,SEEN> <
TRAVEL-COMMANDS ,PRAXIX ,CAST-COMMAND ,EXAMINE-COMMAND> <MAKE-SUBGROUP ,PRAXIX>
<NEW-DEFAULT #ZLOCAL!-IZILCH STACK 1>) (<EQUAL? ,ACTION ,SCENE-END-COMMAND> <
TRAVEL-COMMANDS ,PRAXIX ,CAST-COMMAND #ZLOCAL!-IZILCH STACK ,EXAMINE-COMMAND> <
CLEAR-SUBGROUP>) (<EQUAL? ,ACTION ,CAST-COMMAND> <PUTP ,PRAXIX-VS-EVIL ,P?TEMP
#ZLOCAL!-IZILCH TMP> <COND (<OR <EQUAL? .TMP 3> <AND <EQUAL? ,ACTION-OBJECT ,
TREMOR-SPELL> <NOT <EQUAL? .TMP 1>>>> <PRINTI "Finally, ">) (<EQUAL? .TMP 1> <
COND (<NOT <EQUAL? ,ACTION-OBJECT ,TREMOR-SPELL>> <PRINTI "First, ">)>) (T <
PRINTI "Then, ">)> <COND (<EQUAL? ,ACTION-OBJECT ,FIRE-SPELL ,LIGHT-SPELL ,
FAR-VISION-SPELL> <PRINTI
"Praxix pulled out some magic essences and prepared to cast
his enchantment. But it was no use! The dark presence negated the
spell even as it was cast.">) (<EQUAL? ,ACTION-OBJECT ,RAIN-SPELL ,
LIGHTNING-SPELL> <UNDERGROUND-CHECK>) (<EQUAL? ,ACTION-OBJECT ,WIND-SPELL> <
PRINTI "pulling out some air essence, he cast that spell toward the
unseen evil, but this barely slowed its inexorable approach.">) (<OR <EQUAL? ,
ACTION-OBJECT ,LEVITATE-SPELL> <EQUAL? ,ACTION-OBJECT ,MUD-SPELL>> <
PRAXIX-NO-CAST>) (<EQUAL? ,ACTION-OBJECT ,TREMOR-SPELL> <PRINTI
"Praxix removed some earth essence and
cast it upon the stone before his feet. At once,
the earth began to shake, and Praxix slowly backed away. An instant
later, the roof of the cavern collapsed before him, knocking him off
his feet. "> <COND (<EQUAL? ,DARK-EVIL-LOC 1> <FIND-ESSENCE ,ESSENCE-WATER 2> <
FSET ,ESSENCE-WATER ,SCOUTED> <FSET ,DARK-EVIL-CAVERN ,SOLVED> <PRINTI
"Exhausted, he started to return when he noticed a strange rock-like substance
coursing through the cavern walls. \"Well, well,\" he said, pleased at his discovery,
\"Water essence!\" The cavern continued to shake, and he carefully removed as much of
the magical rock as he could before it became to dangerous to delay any further. "
>)> <PRINTI "Carefully, he retreated to the "> <COND (<NOT ,PART-TWO> <PRINTI
"bottom of the ">)> <PRINTI
"stairs, where we
were anxiously awaiting his return."> <COND (<NOT ,PART-TWO> <CRLF> <CRLF> <
PRINTI "\"I believe we are safe, at least for the moment. "> <COND (<FSET? ,
MINAR ,DONT-DROP> <PRINTI "Minar was right;
we are beset by dangers. ">)> <PRINTI
"And now, I must rest.\" And with that, Praxix
lowered himself to the floor, and fell into a deep sleep.">)> <COND (<AND <
FSET? ,ESHER ,IN-PARTY> <NOT ,PART-TWO>> <CRLF> <CRLF> <PRINTI
"\"He is a fine Wizard,\" Esher admitted, \"though he knows more than
he speaks.\"">)> <COND (<NOT ,PART-TWO> <CRLF> <CRLF> <PRINTI
"It was now late, and we were all hungry and tired. I took out some
provisions and we ate a small meal before retiring for the night. We
woke early the next morning, well rested for another day in the
caverns."> <NEXT-DAY>)> <SCENE #ZLOCAL!-IZILCH FALSE-VALUE> <FSET ,HERE ,
ENCHANTED> <COND (,PART-TWO <TRAVEL-COMMANDS ,MINE-STAIR ,DOWN-COMMAND> <
MOVE-TO ,MINE-STAIR>) (T <TRAVEL-COMMANDS ,OUTSIDE-PRISON ,BACK-COMMAND #
ZLOCAL!-IZILCH STACK> <MOVE-TO ,STAIR-BOTTOM>)> <FSET ,HERE ,DANGEROUS> <RTRUE>
)> <COND (<EQUAL? .TMP 3> <CRLF> <CRLF> <PRINTI
"The core of the evil itself was upon Praxix, and it took all of
his strength to escape it. He fled back to the stairs, where he joined
with the rest of the party."> <CRLF> <CRLF> <PRINTI
"\"I cannot stop this thing,\" he said, breathlessly. \"We must flee
these halls!\""> <CRLF> <CRLF> <SCENE #ZLOCAL!-IZILCH FALSE-VALUE> <COND (<
FSET? ,HURTH ,IN-PARTY> <PRINTI "Hurth">) (T <PRINTI "Bergon">)> <PRINTI
" shepherded us "> <COND (,PART-TWO <PRINTI
"down the stairs. \"It may be safer below, though
I fear we there is no safety in these halls anymore.\""> <CRLF> <CRLF> <
MOVE-TO-2-W>) (T <PRINTI "up the stairs"> <COND (<FSET? ,HURTH ,IN-PARTY> <
PRINTI ". \"I did not say so before, but
there is Dwarvish door here.\" And then, speaking a word of command,
an unseen door sealed off the stairs. \"We have long dreaded this day,
but we are not unprepared. The lower chambers are now sealed; I fear that
we shall never see them again.\" He held back tears as he guided us up
the stairs to a nearby landing.">) (T <HINT ,HINT-DARK-PRESENCE> <PRINTI
" and to a nearby landing."> <CRLF> <CRLF> <PRINTI
"\"We will not be safe at the lower levels,\" he said. \"Our best hope is
to leave these caverns through the High Gate. I pray the Dwarves are safe
from whatever it is that pursues us!\"">)> <CRLF> <CRLF> <PRINTI
"From the landing, it was another four or five hours to the junction
of two stairs"> <COND (<NOT <FSET? ,STAIR-JUNCTION ,SEEN>> <COND (<FSET? ,HURTH
,IN-PARTY> <PRINTI
". \"The stair to the left leads to the Tower of the Sunset;
the stair to the right leads to the High Gate,\" Hurth said. \"If
we intend to reach the Tower, we should start now. It is a much
longer climb.\"">) (T <PRINTI "; neither was marked.">)>)> <
REMOVE-TRAVEL-COMMAND ,STAIR-JUNCTION ,DOWN-COMMAND> <MOVE-TO ,STAIR-JUNCTION>)
>)> <RTRUE>)>)> 
<DEFINE-ROUTINE ANONF-154> 
<OBJECT PRISON-RUNES (SDESC "runes") (KBD 82) (LOC OUTSIDE-PRISON) (FLAGS
DONT-TAKE) (EXBITS <+ ,PRAXIXBIT ,HURTHBIT>) (ACTION <ACOND () (<EQUAL? ,ACTION
,EXAMINE-COMMAND> <CLEAR-EXBIT> <FSET ,ACTION-OBJECT ,EXAMINED> <COND (<EQUAL?
,ACTOR ,PRAXIX> <WPRINTD ,ACTOR> <PRINTI
" examined the runes, but found he had no memory of such symbols.">) (T <
UPDATE-REMOVE ,PRISON-RUNES> <ADD-TRAVEL-COMMAND ,HERE ,ENTER-COMMAND> <WPRINTD
,ACTOR> <PRINTI " glanced at the runes and said, \"The runes say 'prison'. And
now that I look more closely, I can see a door here as well.\" We tried
to find the door, but Hurth interrupted. \"It is a Dwarvish door;
you will not find it.\"">)>)>)> 
<DEFINE-ROUTINE ANONF-155> 
<ROOM PRISON (TRAVEL-COMMANDS LEFT-COMMAND RIGHT-COMMAND NUL-COMMAND) (GRAPHIC
G-PRISON) (CAST-LIMIT INF) (FLAGS UNDERGROUND ADVISE DANGEROUS) (TEMP 0) (ENTER
<EXECUTE () <FSET ,HERE ,SEEN> <TELL
"Hurth approached the door and spoke a Dwarvish command of opening.
The massive door obliged without a sound, and we entered a large
vestibule; the door closed behind us, becoming invisible." CR CR> <TELL
"\"These Dwarvish doors take some getting used to!\" I said,
thinking of the gate through which we entered these caverns." CR CR> <TELL
"\"Do not be alarmed,\" said Hurth. \"Watch!\" Hurth called out a
command, but no door appeared. He laughed nervously, then called
out a few dozen more foreign words the last few of which sounded rather
more like expletives than commands." CR CR> <COND (<FSET? ,ESHER ,IN-PARTY> <
PRINTI "\"Well?\" Esher prompted, but Hurth was deep in thought. ">)> <TELL
"Bergon,
trying his best to control his temper, paced to the center of the
vestibule, and looked down the dark corridors which led off to our
left and right.">>) (ACTION <ACOND ("AUX" TMP F) (<AND <EQUAL? ,ACTION ,
CAST-COMMAND> <EQUAL? ,ACTION-OBJECT ,FAR-VISION-SPELL>> <CAST-FAR-VISION #
ZLOCAL!-IZILCH FALSE-VALUE> <PRISON-SOLVED> <FSET ,HERE ,BLACK-MIX> <GRAPHIC ,
G-PRISON-FV> <COND (<FSET? ,ESHER ,IN-PARTY> <CRLF> <CRLF> <PRINTI
"\"Well, that was useful!\" Esher said, in his most sarcastic voice.
I was sure that Praxix would respond with some clever retort">) (T <CRLF> <CRLF
> <PRINTI "The ball of flame was soon out of sight, and nothing had been learned.
Praxix was about to make another suggestion">)> <PRINTI
", when his
face became contorted with fear. \"Down!\" he shouted, pushing us to
the ground."> <CRLF> <CRLF> <PRINTI
"\"What the...?\" started Bergon, catching sight of the ball of flame
that raced toward us. As it continued down the far corridor, we pulled
ourselves to our feet. \"It would seem,\" Praxix said blankly, wiping
the "> <TELL-COLOR ,ESSENCE-FIRE ,ESSENCE-AIR> <PRINTI
" residue from his fingers, \"that following these corridors will be a
tiring proposition!\""> <CRLF> <CRLF> <PRINTI
"Then, casting his gaze upward, he saw, in the dim afterglow of the
fireball, a narrow ledge not two dozen feet above us. \"I suggest we march
that way!\", he said, and raised his crooked forefinger toward the darkening
image.">) (<AND <EQUAL? ,ACTION ,SCOUT-COMMAND> <NOT <FSET? ,HERE ,SOLVED>>> <
WPRINTD ,ACTOR> <PRINTI
" walked down the passage, turning a corner. A few minutes later, he
returned, reporting only that the passage did quite a lot of twisting
and turning. \"As to where it leads,\" he said, \"your guess is as good
as mine.\""> <UPDATE-FSET ,HERE ,DONT-SCOUT>) (<EQUAL? ,ACTION ,
GET-ADVICE-COMMAND> <UPDATE-FCLEAR ,HERE ,ADVISE> <COND (<LESS? #ZLOCAL!-IZILCH
STACK 2> <PRINTI
"We huddled among ourselves and agreed that it would be best to "> <COND (<
ZERO? .TMP> <PRINTI "explore">) (T <PRINTI "continue exploring">)> <PRINTI
" the caverns.">) (<NOT <QSET? ,HERE ,EXAMINED>> <PRINTI
"\"I don't think we're making much progress.\" I said, looking
at our familiar surroundings.">)>) (<AND <EQUAL? ,ACTION ,DROP-COMMAND> <NOT <
FSET? ,HERE ,SOLVED>>> <UPDATE-MOVE ,ACTION-OBJECT ,HERE> <FSET ,HERE ,
DONT-DROP> <PRINTI
"The caverns looked suspiciously like a maze of some kind to me,
so I surreptitiously dropped the "> <WPRINTD ,ACTION-OBJECT> <PRINTI
" on the ground to help
mark our location.">) (<EQUAL? ,ACTION ,PICK-UP-COMMAND> <PRINTI
"Reconsidering my decision to leave the "> <WPRINTD ,ACTION-OBJECT> <PRINTI
" on the ground, I bent
down and picked it up again, putting it back in my pack for safekeeping."> <
FCLEAR ,HERE ,DONT-DROP> <UPDATE-MOVE ,ACTION-OBJECT ,INVENTORY>) (<EQUAL? ,
ACTION ,UP-COMMAND> <REMOVE-TRAVEL-COMMAND> <PRINTI
"We looked up into the darkness, but could discern nothing. 'Up'
may have been our only alternative, as Praxix said, but getting there
would be another matter."> <COND (<NOT <CHECK-ESSENCES ,LEVITATE-SPELL>> <
PRINTI " Praxix pulled his pouch from inside of his cloak, and spoke dejectedly.
\"I haven't the essences to prepare an elevation spell. It would seem that we shall
be staying here indefinitely."> <FORCE-PRISON-EXIT>)> <RTRUE>) (<AND <EQUAL? ,
ACTION ,CAST-COMMAND> <EQUAL? ,ACTION-OBJECT ,LEVITATE-SPELL>> <COND (<NOT <
FSET? ,HERE ,SOLVED>> <PRINTI
"It may be that Praxix knew something we didn't, because he reached into
his cloak and started to put together one of his magical preparations.
Next thing I knew, "> <WPRINTD ,ACTION-PRSI> <PRINTI
" was rising into the air! His ascent, exhilarating
as it was, was cut short as he bumped his head into the rock that lay
above us. A few moments later, he descended to the ground.">) (<NOT <FSET? ,
HERE ,BLACK-MIX>> <PRINTI
"Praxix now drew some air and earth essences from his pouch and tried to levitate "
> <WPRINTD ,ACTION-PRSI> <PRINTI
" to whatever lay above. But, sadly, we had no indication of where to
attempt this, and "> <WPRINTD ,ACTION-PRSI> <PRINTI
" merely bumped his head into the prison's upper
regions and descended back to the ground. \"This will never work,\" Praxix said, \"I
haven't enough of my powders to map out the upper galleries this way.\""> <CRLF
> <CRLF> <PRINTI "\"And a good thing, too,\" "> <WPRINTD ,ACTION-PRSI> <PRINTI
" said, rubbing the bruise on his head."> <FORCE-PRISON-EXIT>) (T <PRINTI
"Praxix now drew some magical powder from his cloak, motioned "> <WPRINTD ,
ACTION-PRSI> <PRINTI
" a few steps to his left, then cast the preparation onto him. He climbed into
the air, coming finally to a landing which he grabbed tightly onto
(for fear of going even higher!) Once the elevation spell had worn off, he released
his grip on the rock slab and pulled himself to his feet. Lowering the rope which
I had thrown up to him, "> <COND (<IN? ,ROPE ,HERE> <UPDATE-MOVE ,ROPE ,
INVENTORY>)> <WPRINTD ,ACTION-PRSI> <PRINTI
" brought the others up to the
landing where he stood."> <CRLF> <CRLF> <MOVE-TO ,ORC-FORK #ZLOCAL!-IZILCH
STR?464>)>) (<OR <EQUAL? ,ACTION ,PROCEED-COMMAND> <EQUAL? ,ACTION ,
BACK-COMMAND> <EQUAL? ,ACTION ,LEFT-COMMAND> <EQUAL? ,ACTION ,RIGHT-COMMAND>> <
PUTP ,HERE ,P?TEMP #ZLOCAL!-IZILCH STACK> <COND (<ZERO? .TMP> <PRINTI
"It was pointless to remain here, so we started down the long and
winding corridor. I felt almost dizzy from the turning by the time
we arrived at another vestibule about five minutes later. It looked
much the same as the previous one; and the passage continued farther
into the darkness."> <TRAVEL-COMMANDS ,HERE ,PROCEED-COMMAND ,BACK-COMMAND>) (<
EQUAL? .TMP 1> <PRINTI
"Again, we marched down the corridor, twisting and turning, turning
and twisting, and again coming to a vestibule, beyond which the
passage continued."> <COND (<FSET? ,ESHER ,IN-PARTY> <PRINTI
" \"Brother Hurth, do you think we are making any
progress?\" Esher asked. Hurth, embarrassed, did not respond.">)>) (T <PRINTI
"Once again, we marched through the passage, and once again we
arrived at a similar vestibule.">)> <COND (<SET F <FIRST? ,HERE>> <CRLF> <CRLF>
<PRINTI "Just then, I noticed that the "> <WPRINTD .F> <PRINTI
" I had dropped earlier was sitting on the
ground beside my feet! Excitedly, I replaced it in my pack and told the others
of my discovery."> <UPDATE-MOVE .F ,INVENTORY> <CRLF> <CRLF> <PRINTI
"Praxix shook his head slowly. \"As I had suspected - we are in a prison
after all."> <COND (<CHECK-ESSENCES ,FAR-VISION-SPELL> <PRINTI
" Perhaps this will shed more light on our predicament!\""> <CRLF> <PERFORM ,
CAST-COMMAND ,FAR-VISION-SPELL>) (T <PRISON-SOLVED> <PRINTI
" And it would appear that the only way to go is up!\"">)>)> <RTRUE>)>)> 
<DEFINE-ROUTINE ANONF-156> 
<DEFINE-ROUTINE ANONF-157> 
<DEFINE-ROUTINE FORCE-PRISON-EXIT> 
<DEFINE-ROUTINE PRISON-SOLVED>