journey/prison.zap

439 lines
19 KiB
Plaintext

.SEGMENT "DWARVES"
.FUNCT ANONF-151:ANY:0:0
EQUAL? ACTION,BACK-COMMAND \?CCL3
CALL MOVE-TO,STAIR-BOTTOM,STR?461
RSTACK
?CCL3: EQUAL? ACTION,PROCEED-COMMAND \?CCL5
PRINTI "We continued our march through the long passage. "
FSET? HURTH,IN-PARTY \?CCL8
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
JUMP ?CND6
?CCL8: PRINTI """My sense is that we are nearing the Forest Gate,"" Praxix said."
CRLF
CRLF
?CND6: CALL MOVE-TO,DARK-EVIL-CAVERN,STR?462
RSTACK
?CCL5: EQUAL? ACTION,ENTER-COMMAND \FALSE
FSET? HERE,TRAPPED \?CCL13
ICALL1 REMOVE-TRAVEL-COMMAND
PRINTI "I suggested returning to the prison, but we decided against it. """
ZERO? KIDNAPPED /?CCL16
ICALL2 WPRINTD,KIDNAPPED
JUMP ?CND14
?CCL16: PRINTI "My kinsman"
?CND14: 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."""
RTRUE
?CCL13: CALL2 MOVE-TO,PRISON
RSTACK
.FUNCT ANONF-152:ANY:0:0
FSET DARK-EVIL-CAVERN,SEEN
CRLF
CRLF
PRINTI "Bergon laughed, as did Praxix, but there was another sound also, cold and rumbling, like distant thunder; and it came from before us."
FSET? HURTH,IN-PARTY \FALSE
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."""
RTRUE
.FUNCT ANONF-153:ANY:0:0,TMP
EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL3
ICALL 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."
RTRUE
?CCL3: EQUAL? ACTION,PROCEED-COMMAND /?CTR4
EQUAL? ACTION,BACK-COMMAND \?CCL5
?CTR4: GETP HERE,P?TEMP
ADD STACK,1 >TMP
PUTP HERE,P?TEMP,TMP
EQUAL? ACTION,PROCEED-COMMAND \?CCL10
INC 'DARK-EVIL-LOC
JUMP ?CND8
?CCL10: DEC 'DARK-EVIL-LOC
?CND8: EQUAL? TMP,1 \?CCL13
PRINTI "A cold wind chilled us to the bone as we inched our way "
EQUAL? ACTION,BACK-COMMAND \?CND14
PRINTI "back "
?CND14: PRINTI "through the cavern."
FSET? PRAXIX,LIT \TRUE
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
?CCL13: EQUAL? TMP,2 \?CCL19
EQUAL? ACTION,BACK-COMMAND \?CCL22
PRINTI "Back"
JUMP ?CND20
?CCL22: PRINTI "On"
?CND20: PRINTI " we went, as the now frigid air grew colder still with each tentative step."
FSET? PRAXIX,LIT \?CND23
PRINTI " Praxix' staff was now glowing a dim, dull red, and its light was barely enough to see by."
?CND23: CRLF
CRLF
PRINTI """Something's here,"" I whispered, as the air grew stale, then acrid. I stumbled backward, tripped, and fell against the ground."
ICALL2 REMOVE-PARTY-COMMAND,PROCEED-COMMAND
FSET? HURTH,IN-PARTY \TRUE
CRLF
CRLF
PRINTI """This is an evil day,"" said Hurth. ""I hope there is time yet for us to make our escape."""
RTRUE
?CCL19: ICALL2 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."
CALL2 SCENE,PRAXIX-VS-EVIL
RSTACK
?CCL5: EQUAL? ACTION,CAST-COMMAND \?CCL28
EQUAL? ACTION-OBJECT,LIGHT-SPELL \?CCL28
EQUAL? ACTION-PRSI,STAFF \?CCL28
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."
RTRUE
?CCL28: EQUAL? ACTION,CAST-COMMAND \?CCL33
EQUAL? ACTION-OBJECT,TREMOR-SPELL \?CCL33
ICALL1 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."
RTRUE
?CCL33: EQUAL? ACTION,CAST-COMMAND \FALSE
EQUAL? ACTION-OBJECT,FAR-VISION-SPELL \FALSE
ICALL2 CAST-FAR-VISION,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."
RTRUE
.FUNCT ANONF-154:ANY:0:0,TMP
EQUAL? ACTION,SCENE-START-COMMAND \?CCL3
FSET PRAXIX-VS-EVIL,SEEN
ICALL TRAVEL-COMMANDS,PRAXIX,CAST-COMMAND,EXAMINE-COMMAND
ICALL2 MAKE-SUBGROUP,PRAXIX
CALL2 PARTY-PCM,PRAXIX
CALL NEW-DEFAULT,STACK,1
RSTACK
?CCL3: EQUAL? ACTION,SCENE-END-COMMAND \?CCL5
ZERO? PART-TWO \?CCL8
PUSH TELL-LEGEND-COMMAND
JUMP ?CND6
?CCL8: ZERO? MIX-DONE /?CCL10
PUSH USE-MIX-COMMAND
JUMP ?CND6
?CCL10: FSET? REAGENT,SOLVED /?CCL12
PUSH NUL-COMMAND
JUMP ?CND6
?CCL12: PUSH MIX-COMMAND
?CND6: ICALL TRAVEL-COMMANDS,PRAXIX,CAST-COMMAND,STACK,EXAMINE-COMMAND
CALL1 CLEAR-SUBGROUP
RSTACK
?CCL5: EQUAL? ACTION,CAST-COMMAND \FALSE
GETP PRAXIX-VS-EVIL,P?TEMP
ADD STACK,1 >TMP
PUTP PRAXIX-VS-EVIL,P?TEMP,TMP
EQUAL? TMP,3 /?CTR16
EQUAL? ACTION-OBJECT,TREMOR-SPELL \?CCL17
EQUAL? TMP,1 /?CCL17
?CTR16: PRINTI "Finally, "
JUMP ?CND15
?CCL17: EQUAL? TMP,1 \?CCL23
EQUAL? ACTION-OBJECT,TREMOR-SPELL /?CND15
PRINTI "First, "
JUMP ?CND15
?CCL23: PRINTI "Then, "
?CND15: EQUAL? ACTION-OBJECT,FIRE-SPELL,LIGHT-SPELL,FAR-VISION-SPELL \?CCL28
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."
JUMP ?CND26
?CCL28: EQUAL? ACTION-OBJECT,RAIN-SPELL,LIGHTNING-SPELL \?CCL30
ICALL1 UNDERGROUND-CHECK
JUMP ?CND26
?CCL30: EQUAL? ACTION-OBJECT,WIND-SPELL \?CCL32
PRINTI "pulling out some air essence, he cast that spell toward the unseen evil, but this barely slowed its inexorable approach."
JUMP ?CND26
?CCL32: EQUAL? ACTION-OBJECT,LEVITATE-SPELL /?CTR33
EQUAL? ACTION-OBJECT,MUD-SPELL \?CCL34
?CTR33: ICALL1 PRAXIX-NO-CAST
?CND26: EQUAL? TMP,3 \TRUE
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
ICALL2 SCENE,FALSE-VALUE
FSET? HURTH,IN-PARTY \?CCL64
PRINTI "Hurth"
JUMP ?CND62
?CCL34: EQUAL? ACTION-OBJECT,TREMOR-SPELL \?CND26
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. "
EQUAL? DARK-EVIL-LOC,1 \?CND38
ICALL 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. "
?CND38: PRINTI "Carefully, he retreated to the "
ZERO? PART-TWO \?CND40
PRINTI "bottom of the "
?CND40: PRINTI "stairs, where we were anxiously awaiting his return."
ZERO? PART-TWO \?CND42
CRLF
CRLF
PRINTI """I believe we are safe, at least for the moment. "
FSET? MINAR,DONT-DROP \?CND44
PRINTI "Minar was right; we are beset by dangers. "
?CND44: PRINTI "And now, I must rest."" And with that, Praxix lowered himself to the floor, and fell into a deep sleep."
?CND42: FSET? ESHER,IN-PARTY \?CND46
ZERO? PART-TWO \?CND46
CRLF
CRLF
PRINTI """He is a fine Wizard,"" Esher admitted, ""though he knows more than he speaks."""
?CND46: ZERO? PART-TWO \?CND50
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."
ICALL1 NEXT-DAY
?CND50: ICALL2 SCENE,FALSE-VALUE
FSET HERE,ENCHANTED
ZERO? PART-TWO /?CCL54
ICALL TRAVEL-COMMANDS,MINE-STAIR,DOWN-COMMAND
ICALL2 MOVE-TO,MINE-STAIR
JUMP ?CND52
?CCL54: FSET? PRISON-RUNES,EXAMINED \?CCL57
FSET? PRISON,SEEN /?CCL57
PUSH ENTER-COMMAND
JUMP ?CND55
?CCL57: PUSH NUL-COMMAND
?CND55: ICALL TRAVEL-COMMANDS,OUTSIDE-PRISON,BACK-COMMAND,STACK
ICALL2 MOVE-TO,STAIR-BOTTOM
?CND52: FSET HERE,DANGEROUS
RTRUE
?CCL64: PRINTI "Bergon"
?CND62: PRINTI " shepherded us "
ZERO? PART-TWO /?CCL67
PRINTI "down the stairs. ""It may be safer below, though I fear we there is no safety in these halls anymore."""
CRLF
CRLF
ICALL1 MOVE-TO-2-W
RTRUE
?CCL67: PRINTI "up the stairs"
FSET? HURTH,IN-PARTY \?CCL70
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."
JUMP ?CND68
?CCL70: ICALL2 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!"""
?CND68: CRLF
CRLF
PRINTI "From the landing, it was another four or five hours to the junction of two stairs"
FSET? STAIR-JUNCTION,SEEN /?CND71
FSET? HURTH,IN-PARTY \?CCL75
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."""
JUMP ?CND71
?CCL75: PRINTI "; neither was marked."
?CND71: ICALL REMOVE-TRAVEL-COMMAND,STAIR-JUNCTION,DOWN-COMMAND
ICALL2 MOVE-TO,STAIR-JUNCTION
RTRUE
.FUNCT ANONF-155:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 CLEAR-EXBIT
FSET ACTION-OBJECT,EXAMINED
EQUAL? ACTOR,PRAXIX \?CCL6
ICALL2 WPRINTD,ACTOR
PRINTI " examined the runes, but found he had no memory of such symbols."
RTRUE
?CCL6: ICALL2 UPDATE-REMOVE,PRISON-RUNES
ICALL ADD-TRAVEL-COMMAND,HERE,ENTER-COMMAND
ICALL2 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."""
RTRUE
.FUNCT ANONF-156:ANY:0:0
FSET HERE,SEEN
PRINTI "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."
CRLF
CRLF
PRINTI """These Dwarvish doors take some getting used to!"" I said, thinking of the gate through which we entered these caverns."
CRLF
CRLF
PRINTI """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."
CRLF
CRLF
FSET? ESHER,IN-PARTY \?CND1
PRINTI """Well?"" Esher prompted, but Hurth was deep in thought. "
?CND1: PRINTI "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."
RTRUE
.FUNCT ANONF-157:ANY:0:0,TMP,F
EQUAL? ACTION,CAST-COMMAND \?CCL3
EQUAL? ACTION-OBJECT,FAR-VISION-SPELL \?CCL3
ICALL2 CAST-FAR-VISION,FALSE-VALUE
ICALL1 PRISON-SOLVED
FSET HERE,BLACK-MIX
ICALL2 GRAPHIC,G-PRISON-FV
FSET? ESHER,IN-PARTY \?CCL8
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"
JUMP ?CND6
?CCL8: CRLF
CRLF
PRINTI "The ball of flame was soon out of sight, and nothing had been learned. Praxix was about to make another suggestion"
?CND6: 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 "
ICALL 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."
RTRUE
?CCL3: EQUAL? ACTION,SCOUT-COMMAND \?CCL10
FSET? HERE,SOLVED /?CCL10
ICALL2 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."""
CALL UPDATE-FSET,HERE,DONT-SCOUT
RSTACK
?CCL10: EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL14
ICALL UPDATE-FCLEAR,HERE,ADVISE
GETP HERE,P?TEMP
LESS? STACK,2 \?CCL17
PRINTI "We huddled among ourselves and agreed that it would be best to "
ZERO? TMP \?CCL20
PRINTI "explore"
JUMP ?CND18
?CCL20: PRINTI "continue exploring"
?CND18: PRINTI " the caverns."
RTRUE
?CCL17: CALL QSET?,HERE,EXAMINED
ZERO? STACK \FALSE
PRINTI """I don't think we're making much progress."" I said, looking at our familiar surroundings."
RTRUE
?CCL14: EQUAL? ACTION,DROP-COMMAND \?CCL24
FSET? HERE,SOLVED /?CCL24
ICALL 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 "
ICALL2 WPRINTD,ACTION-OBJECT
PRINTI " on the ground to help mark our location."
RTRUE
?CCL24: EQUAL? ACTION,PICK-UP-COMMAND \?CCL28
PRINTI "Reconsidering my decision to leave the "
ICALL2 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
CALL UPDATE-MOVE,ACTION-OBJECT,INVENTORY
RSTACK
?CCL28: EQUAL? ACTION,UP-COMMAND \?CCL30
ICALL1 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."
CALL2 CHECK-ESSENCES,LEVITATE-SPELL
ZERO? STACK \TRUE
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."
ICALL1 FORCE-PRISON-EXIT
RTRUE
?CCL30: EQUAL? ACTION,CAST-COMMAND \?CCL34
EQUAL? ACTION-OBJECT,LEVITATE-SPELL \?CCL34
FSET? HERE,SOLVED /?CCL39
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, "
ICALL2 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."
RTRUE
?CCL39: FSET? HERE,BLACK-MIX /?CCL41
PRINTI "Praxix now drew some air and earth essences from his pouch and tried to levitate "
ICALL2 WPRINTD,ACTION-PRSI
PRINTI " to whatever lay above. But, sadly, we had no indication of where to attempt this, and "
ICALL2 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,"" "
ICALL2 WPRINTD,ACTION-PRSI
PRINTI " said, rubbing the bruise on his head."
CALL1 FORCE-PRISON-EXIT
RSTACK
?CCL41: PRINTI "Praxix now drew some magical powder from his cloak, motioned "
ICALL2 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, "
IN? ROPE,HERE \?CND42
ICALL UPDATE-MOVE,ROPE,INVENTORY
?CND42: ICALL2 WPRINTD,ACTION-PRSI
PRINTI " brought the others up to the landing where he stood."
CRLF
CRLF
CALL MOVE-TO,ORC-FORK,STR?464
RSTACK
?CCL34: EQUAL? ACTION,PROCEED-COMMAND /?CCL45
EQUAL? ACTION,BACK-COMMAND /?CCL45
EQUAL? ACTION,LEFT-COMMAND /?CCL45
EQUAL? ACTION,RIGHT-COMMAND \FALSE
?CCL45: GETP HERE,P?TEMP >TMP
ADD TMP,1
PUTP HERE,P?TEMP,STACK
ZERO? TMP \?CCL52
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."
ICALL TRAVEL-COMMANDS,HERE,PROCEED-COMMAND,BACK-COMMAND
JUMP ?CND50
?CCL52: EQUAL? TMP,1 \?CCL54
PRINTI "Again, we marched down the corridor, twisting and turning, turning and twisting, and again coming to a vestibule, beyond which the passage continued."
FSET? ESHER,IN-PARTY \?CND50
PRINTI " ""Brother Hurth, do you think we are making any progress?"" Esher asked. Hurth, embarrassed, did not respond."
JUMP ?CND50
?CCL54: PRINTI "Once again, we marched through the passage, and once again we arrived at a similar vestibule."
?CND50: FIRST? HERE >F \TRUE
CRLF
CRLF
PRINTI "Just then, I noticed that the "
ICALL2 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."
ICALL UPDATE-MOVE,F,INVENTORY
CRLF
CRLF
PRINTI "Praxix shook his head slowly. ""As I had suspected - we are in a prison after all."
CALL2 CHECK-ESSENCES,FAR-VISION-SPELL
ZERO? STACK /?CCL61
PRINTI " Perhaps this will shed more light on our predicament!"""
CRLF
ICALL PERFORM,CAST-COMMAND,FAR-VISION-SPELL
RTRUE
?CCL61: ICALL1 PRISON-SOLVED
PRINTI " And it would appear that the only way to go is up!"""
RTRUE
.FUNCT FORCE-PRISON-EXIT:ANY:0:0
CRLF
CRLF
PRINTI "An hour or so later, hope of finding a way out fading, Hurth announced a rather belated discovery. ""It is strange that I did not discover the runes earlier,"" he said, ""but I believe I have found the exit mechanism. Stand back!"""
CRLF
CRLF
PRINTI "Indeed he had, and a moment later the invisible prison door winked open and we hurried back outside."
ICALL2 UPDATE-REMOVE,PRISON-RUNES
ICALL REMOVE-TRAVEL-COMMAND,OUTSIDE-PRISON,ENTER-COMMAND
FSET OUTSIDE-PRISON,TRAPPED
CALL2 MOVE-TO,OUTSIDE-PRISON
RSTACK
.FUNCT PRISON-SOLVED:ANY:0:0
ICALL UPDATE-FCLEAR,HERE,ADVISE
FSET HERE,SOLVED
CALL TRAVEL-COMMANDS,HERE,UP-COMMAND
RSTACK
.ENDSEG
.ENDI