anjiro.zap

	.SEGMENT "ANJIRO"


	.FUNCT	MURA-HOUSE-EXIT:ANY:0:2,RARG,STRICT?
	EQUAL?	RARG,M-ENTER \?CCL3
	RETURN	MURA-HOUSE
?CCL3:	FSET?	BOOTS,WEARBIT \?CCL5
	ICALL2	CTHE-PRINT,ONNA
	PRINTI	" runs up to you, very agitated.As politely as she can, she points to your boots, bowing and shaking her head."
	CRLF	
	RFALSE	
?CCL5:	RETURN	MURA-HOUSE


	.FUNCT	GARDEN-F:ANY:1:1,RARG
	EQUAL?	RARG,M-ENTER \?CCL3
	EQUAL?	SCENE,S-ANJIRO \TRUE
	ICALL	QUEUE,I-SEBASTIO,-1
	IN?	ONNA,MURA-HOUSE \TRUE
	MOVE	ONNA,GARDEN
	RTRUE	
?CCL3:	EQUAL?	RARG,M-BEG \FALSE
	EQUAL?	PRSA,V?LISTEN \?CCL12
	EQUAL?	PRSO,FALSE-VALUE,NOISE \?CCL12
	PRINT	STR?371
	PRINTR	"You can't be sure, but one seems to be speaking Portuguese!"
?CCL12:	EQUAL?	PRSA,V?EXAMINE \?CCL16
	EQUAL?	PRSO,NOISE \?CCL16
	PRINTR	"You'll have to go out to do that."
?CCL16:	EQUAL?	PRSA,V?LISTEN \?CCL20
	EQUAL?	PRSO,PORTUGUESE \?CCL20
	PRINTR	"It definitely sounds like Portuguese, but you're too far away to be sure."
?CCL20:	EQUAL?	SCENE,S-ANJIRO \FALSE
	EQUAL?	PRSA,V?WALK,V?WALK-TO \FALSE
	CALL1	HENCHMEN-RESTRAIN
	ZERO?	STACK \TRUE
	RFALSE	


	.FUNCT	HIGH-WALL-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"The wall is made of small stones mortared together with great precision.It is at first completely a wall and at then suggests a high mountain cliff with the garden plants growing up to the base."
?CCL3:	EQUAL?	PRSA,V?CLIMB-UP,V?CLIMB-FOO \FALSE
	PRINTR	"You're too weak to climb the wall."


	.FUNCT	WATERFALL-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"A fall of sweet, clear water drops from one level of the garden to the other.The gentle tinkling sound is very soothing."
?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL5
	PRINTR	"The little pool at the base of waterfall is filled with carp."
?CCL5:	EQUAL?	PRSA,V?DRINK \FALSE
	PRINTR	"The water is cool and tasty."


	.FUNCT	PATHS-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"The paths lead in neat, seemingly chance-laid loops throughout the garden."
?CCL3:	EQUAL?	PRSA,V?FOLLOW \FALSE
	PRINTR	"You walk about for a while, following the paths.The garden is so neat, so orderly.Just walking in it is calming.You haven't seen a living plant during all your long voyage, and here there are so many."


	.FUNCT	SMALL-BRIDGE-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"It's a small, decorative footbridge that crosses the little stream."
?CCL3:	EQUAL?	PRSA,V?CROSS \FALSE
	PRINTR	"You cross the little bridge, standing in the center looking at the slowly flowing stream for a while.The garden is very peaceful.You cross back."


	.FUNCT	STREAM-F:ANY:0:0
	EQUAL?	PRSA,V?BOARD,V?STEP-ON,V?CLIMB-DOWN \FALSE
	PRINTR	"You content yourself with splashing a little water on your face."


	.FUNCT	PLANTS-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"The garden is planted with flowers, shrubs, and odd small trees.It looks like a small patch of orderly wilderness."
?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL5
	PRINTR	"You think better of disturbing the harmony of the garden."
?CCL5:	EQUAL?	PRSA,V?SMELL \FALSE
	PRINTR	"The flowers smell very nice.Your nose has had little to smell of comparable fragrance for years."

	.SEGMENT "RODRIGUES"


	.FUNCT	ANJIRO-WATERFRONT-F:ANY:1:1,RARG
	EQUAL?	RARG,M-SCENE-SETUP \?CCL3
	ICALL2	DRESS-BLACKTHORNE,TRUE-VALUE
	ICALL	NEW-SDESC,HIRO-MATSU,STR?373
	FCLEAR	HIRO-MATSU,NOABIT
	FCLEAR	HIRO-MATSU,NOTHEBIT
	FSET	HIRO-MATSU,AN
	ICALL	NEW-SDESC,OMI,OMI-NAME
	ICALL2	MOVE-CREW,PIT
	REMOVE	HENCHMAN-BODY
	REMOVE	HENCHMAN-HEAD
	MOVE	SECRET-RUTTER,GENERIC-OBJECTS
	MOVE	RUTTER,GENERIC-OBJECTS
	MOVE	SEA-CHEST,PILOTS-CABIN
	FSET	SEA-CHEST,OPENBIT
	MOVE	SMALL-BOAT,ANJIRO-WATERFRONT
	MOVE	BOAT-OAR,SMALL-BOAT
	MOVE	SLAVER,ANJIRO-WATERFRONT
	MOVE	MURA,ANJIRO-WATERFRONT
	MOVE	OMI,ANJIRO-WATERFRONT
	MOVE	YABU,ANJIRO-WATERFRONT
	MOVE	HIRO-MATSU,ANJIRO-WATERFRONT
	MOVE	TORANAGA,GENERIC-OBJECTS
	MOVE	ARCHERS,ANJIRO-WATERFRONT
	FCLEAR	ARCHERS,INVISIBLE
	CALL	QUEUE,I-MEET-RODRIGUES,-1
	RSTACK	
?CCL3:	EQUAL?	RARG,M-LOOK \?CCL5
	PRINTI	"This is the waterfront of the village.The ground is cobbled and a stone launching ramp goes from the shore into the sea.There are men and women cleaning fish.Small islands are visible to the east and south.At anchor, to the east, is the "
	ICALL2	PRINTUNDER,STR?7
	PRINTR	"."
?CCL5:	EQUAL?	RARG,M-ENTER \?CCL7
	EQUAL?	SCENE,S-ANJIRO \TRUE
	IN?	WINNER,SMALL-BOAT \?CCL12
	PRINTI	"You row the boat up onto the beach."
	CRLF	
	CRLF	
	RTRUE	
?CCL12:	FSET?	RUTTER,RMUNGBIT /TRUE
	ICALL	QUEUE,I-RUTTER-CLUE,1
	RTRUE	
?CCL7:	EQUAL?	RARG,M-BEG \?CCL15
	EQUAL?	SCENE,S-RODRIGUES \?CCL18
	EQUAL?	PRSA,V?POINT,V?EXAMINE \?PRD22
	EQUAL?	PRSO,LG-ERASMUS /?CTR17
?PRD22:	EQUAL?	PRSA,V?SHOW \?CCL18
	EQUAL?	PRSO,LG-ERASMUS \?CCL18
	EQUAL?	PRSI,RODRIGUES \?CCL18
?CTR17:	PRINTI	"You look out at the "
	ICALL2	PRINTUNDER,STR?7
	PRINTI	", and "
	ICALL2	THE-PRINT,RODRIGUES
	PRINTI	" watches you."
	FSET?	LIZARD,SCOREBIT /?CND28
	ICALL2	THIS-IS-IT,LG-ERASMUS
	SET	'QCONTEXT,RODRIGUES
	PRINTR	"She's moored a hundred yards away.""Tell me about her, Ingeles,"" asks the Portuguese.""She looks like a pisscutter!"""
?CND28:	CRLF	
	RTRUE	
?CCL18:	EQUAL?	SCENE,S-RODRIGUES \?CCL31
	EQUAL?	PRSA,V?WALK,V?WALK-TO \?CCL31
	EQUAL?	PRSO,P?WEST,P?NORTH,P?SOUTH \?CCL31
	PRINTR	"Mura restrains you with iron gentleness."
?CCL31:	EQUAL?	SCENE,S-ANJIRO \?CCL36
	EQUAL?	PRSA,V?WALK,V?WALK-TO \?CCL36
	CALL1	HENCHMEN-RESTRAIN
	ZERO?	STACK \TRUE
?CCL36:	EQUAL?	PRSA,V?SWIM /?PRD43
	EQUAL?	PRSA,V?THROUGH \?PRD46
	EQUAL?	PRSO,LG-SEA,LG-BAY /?PRD43
?PRD46:	EQUAL?	PRSA,V?WALK \?PRD49
	EQUAL?	P-WALK-DIR,P?EAST,P?OUT /?PRD43
?PRD49:	EQUAL?	PRSA,V?WALK-TO \?CCL41
	EQUAL?	PRSO,LG-ERASMUS \?CCL41
?PRD43:	IN?	WINNER,SMALL-BOAT /?CCL41
	PRINTR	"You wade into the water, striding deeper and deeper, until you realize that you haven't regained enough strength to swim.You return to the beach."
?CCL41:	EQUAL?	PRSA,V?WALK \FALSE
	EQUAL?	P-WALK-DIR,P?NORTH,P?SOUTH \FALSE
	FCLEAR	OMI,RMUNGBIT
	PRINTR	"You wander through the village, but the villagers are apparently unwilling to let you go too far, and you are gently guided back to the pebbled beach of the waterfront."
?CCL15:	EQUAL?	RARG,M-END \FALSE
	CALL1	VILLAGERS-STARE
	RSTACK	


	.FUNCT	VILLAGERS-STARE:ANY:0:0
	EQUAL?	SCENE,S-ANJIRO \FALSE
	FSET?	CLOTHES,WEARBIT /FALSE
	ZERO?	STATIONARY? /?CCL3
	RANDOM	100
	LESS?	33,STACK /FALSE
?CCL3:	CRLF	
	PRINT	STR?374
	CRLF	
	RTRUE	


	.FUNCT	ARCHERS-F:ANY:0:1,RARG
	EQUAL?	RARG,M-WINNER \?CCL3
	CALL1	WAKARIMASEN
	RSTACK	
?CCL3:	EQUAL?	RARG,FALSE-VALUE \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL8
	FSET?	ARCHERS,RMUNGBIT \?CCL11
	PRINTR	"One of the archers has drawn out an arrow, and is putting it in his bow."
?CCL11:	PRINTI	"These are archers from the galley, all dressed in the same uniform as "
	ICALL2	THE-PRINT,HIRO-MATSU
	PRINTR	"."
?CCL8:	EQUAL?	PRSA,V?WARN,V?TELL-ABOUT \?PRD15
	EQUAL?	PRSO,RODRIGUES \?PRD15
	EQUAL?	PRSI,ARCHERS /?CTR12
?PRD15:	EQUAL?	PRSA,V?POINT \?CCL13
	EQUAL?	PRSO,ARCHERS \?CCL13
?CTR12:	IN?	WINNER,SMALL-BOAT \FALSE
	PRINTI	"Rodrigues stops rowing immediately, and turns toward shore"
	FSET?	ARCHERS,RMUNGBIT \?CCL26
	PRINTI	", waving and babbling in pidgin Japanese, reassuring the captain samurai, who says something to the man with the arrow.Now the man puts it away."
	CRLF	
	FCLEAR	ARCHERS,RMUNGBIT
	CALL2	SCORE-OBJECT,ARCHERS
	RSTACK	
?CCL26:	PRINTR	", where nothing is happening.""No games, Ingeles,"" he warns."
?CCL13:	EQUAL?	PRSA,V?TELL \FALSE
	PRINTI	"They aren't allowed to talk to you."
	CRLF	
	ICALL1	END-QUOTE
	RETURN	M-FATAL

	.ENDSEG

	.SEGMENT "ANJIRO"


	.FUNCT	I-RUTTER-CLUE:ANY:0:0
	FSET?	RUTTER,RMUNGBIT /FALSE
	FSET	RUTTER,RMUNGBIT
	CRLF	
	PRINTI	"It comes suddenly to mind that since you awoke, you haven't seen your rutters or the rest of the crew."
	EQUAL?	HERE,ON-DECK \?CCL6
	PRINTI	"Could they be aboard"
	JUMP	?CND4
?CCL6:	PRINTI	"Can they still be on the "
	ICALL2	PRINTUNDER,STR?7
?CND4:	PRINTR	", you wonder?"

	.SEGMENT "RODRIGUES"


	.FUNCT	SMALL-BOAT-F:ANY:1:1,RARG
	EQUAL?	RARG,M-BEG \?CCL3
	EQUAL?	PRSA,V?LAUNCH \?CCL6
	ICALL2	DO-WALK,P?EAST
	RTRUE	
?CCL6:	EQUAL?	PRSA,V?WALK-TO,V?WALK \?CCL8
	EQUAL?	PRSA,V?WALK \?PRD13
	EQUAL?	P-WALK-DIR,P?OUT /?CTR10
?PRD13:	EQUAL?	PRSA,V?WALK \?CCL11
	EQUAL?	P-WALK-DIR,P?UP \?CCL11
	EQUAL?	HERE,AT-ERASMUS \?CCL11
?CTR10:	ICALL2	PERFORM,V?DISEMBARK
	RTRUE	
?CCL11:	CALL2	HELD?,BOAT-OAR
	ZERO?	STACK \?CCL20
	PRINTR	"You need an oar to row."
?CCL20:	EQUAL?	PRSA,V?WALK-TO \?PRD24
	EQUAL?	PRSO,LG-ERASMUS /?CTR21
?PRD24:	EQUAL?	PRSA,V?WALK \?CCL22
	EQUAL?	P-WALK-DIR,P?EAST,P?OUT \?CCL22
?CTR21:	EQUAL?	HERE,ANJIRO-WATERFRONT \?CCL31
	PRINTI	"You launch the boat and row out into the harbor towards the "
	ICALL2	PRINTUNDER,STR?7
	PRINTC	46
	CRLF	
	CRLF	
	CALL2	GOTO,ANJIRO-HARBOR
	RSTACK	
?CCL31:	EQUAL?	HERE,ANJIRO-HARBOR \FALSE
	PRINTI	"You row up to the side of the "
	ICALL2	PRINTUNDER,STR?7
	PRINTI	".The samurai aboard eye you curiously."
	CRLF	
	CRLF	
	CALL2	GOTO,AT-ERASMUS
	RSTACK	
?CCL22:	EQUAL?	PRSA,V?WALK-TO \?CCL35
	EQUAL?	PRSO,LG-LAND \?CCL35
	CALL2	DO-WALK,P?WEST
	RSTACK	
?CCL35:	EQUAL?	PRSA,V?WALK \?CCL39
	EQUAL?	P-WALK-DIR,P?WEST \?CCL39
	EQUAL?	HERE,ANJIRO-WATERFRONT \FALSE
	PRINTR	"You can't row the boat over land!"
?CCL39:	EQUAL?	PRSO,P?UP,P?DOWN \?CCL46
	PRINTR	"If you can row a boat that way, you're a better seaman than Drake himself!"
?CCL46:	PRINTR	"You row that way for a while, but there is nothing interesting in that direction."
?CCL8:	EQUAL?	PRSA,V?SWIM,V?SWIM-TO \?CCL48
	PRINTR	"Why swim when you're in a nice dry boat?"
?CCL48:	EQUAL?	PRSA,V?BOARD,V?THROUGH \?CCL50
	EQUAL?	PRSO,LG-ERASMUS \?CCL50
	ICALL2	PERFORM,V?DISEMBARK
	RTRUE	
?CCL50:	EQUAL?	PRSA,V?DISEMBARK \?CCL54
	EQUAL?	HERE,AT-ERASMUS \?CCL57
	PRINTI	"You clamber up the gangway onto the deck.One samurai, more elaborately dressed than the others, comes over to you and bows."
	CRLF	
	CRLF	
	MOVE	WINNER,HERE
	CALL2	GOTO,ON-DECK
	RSTACK	
?CCL57:	EQUAL?	HERE,ANJIRO-HARBOR \?CCL59
	ICALL	PERFORM,V?LEAP,LG-SEA
	RTRUE	
?CCL59:	EQUAL?	HERE,ANJIRO-WATERFRONT \FALSE
	MOVE	WINNER,HERE
	PRINTR	"You disembark from the boat."
?CCL54:	EQUAL?	PRSA,V?ENTER,V?BOARD,V?THROUGH \FALSE
	EQUAL?	PRSO,LG-SEA \FALSE
	EQUAL?	HERE,ANJIRO-HARBOR,AT-ERASMUS \?CCL68
	IN?	RODRIGUES,SMALL-BOAT \?CCL71
	PRINTR	"Rodrigues grabs you.""Not so fast, Ingeles!"""
?CCL71:	CALL	JIGS-UP?,J-PLUNGE,STR?375
	ZERO?	STACK /TRUE
	MOVE	WINNER,HERE
	CALL2	JIGS-UP,STR?376
	RSTACK	
?CCL68:	EQUAL?	HERE,ANJIRO-WATERFRONT \FALSE
	PRINTR	"The boat is on dry land here."
?CCL3:	EQUAL?	RARG,FALSE-VALUE \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL80
	PRINTI	"It's just a small wooden rowboat."
	FSET?	RUTTER,RMUNGBIT /?CND81
	FSET	RUTTER,RMUNGBIT
	PRINTI	"It reminds you that you haven't seen your rutters anywhere, and you glance out at the "
	ICALL2	PRINTUNDER,STR?7
	PRINTR	"."
?CND81:	CRLF	
	RTRUE	
?CCL80:	EQUAL?	PRSA,V?BOARD \?CCL84
	EQUAL?	SCENE,S-ANJIRO \?CCL87
	CALL1	HENCHMEN-RESTRAIN
	RSTACK	
?CCL87:	EQUAL?	SCENE,S-RODRIGUES \FALSE
	IN?	RODRIGUES,SMALL-BOAT /FALSE
	IN?	RODRIGUES,HERE \?CCL95
	FSET?	LIZARD,SCOREBIT \?CCL98
	PRINTI	"""I'm not done with you yet"
	JUMP	?CND96
?CCL98:	PRINTI	"""Me first"
?CND96:	PRINTI	", Ingeles!"" says "
	ICALL2	THE-PRINT,RODRIGUES
	PRINTR	"."
?CCL95:	PRINTR	"Mura stops you and points to the galley.""No, Anjin-san.So sorry, go there."""
?CCL84:	EQUAL?	PRSA,V?LAUNCH \FALSE
	EQUAL?	SCENE,S-ANJIRO \?CCL103
	CALL1	HENCHMEN-RESTRAIN
	ZERO?	STACK \TRUE
	MOVE	WINNER,PRSO
	PRINTI	"You launch the boat, pushing it into the water, and although you are still weak, you manage to haul yourself into it."
	CRLF	
	CRLF	
	ICALL2	DO-WALK,P?EAST
	RTRUE	
?CCL103:	EQUAL?	SCENE,S-RODRIGUES \FALSE
	ICALL	PERFORM,V?BOARD,SMALL-BOAT
	RTRUE	


	.FUNCT	LG-SMALL-BOAT-F:ANY:0:0
	EQUAL?	SCENE,S-ANJIRO \?CTR2
	IN?	SMALL-BOAT,AT-ERASMUS /?CCL3
?CTR2:	PRINTI	"There's no "
	ICALL2	DPRINT,SMALL-BOAT
	PRINTR	" to be found here."
?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL7
	PRINTR	"You sneak a quick glance over the side.Yes, the boat's still there, bobbing in the light waves."
?CCL7:	EQUAL?	PRSA,V?BOARD \FALSE
	CALL2	DO-WALK,P?DOWN
	RSTACK	

	.ENDSEG

	.SEGMENT "ANJIRO"


	.FUNCT	HENCHMEN-RESTRAIN:ANY:0:0
	FSET?	SEBASTIO-HENCHMEN,RMUNGBIT /FALSE
	IN?	OMI,HERE \?CCL5
	ICALL2	CTHE-PRINT,SEBASTIO
	PRINTI	" points to you, saying something in Japanese to "
	ICALL2	THE-PRINT,OMI
	PRINTR	", who nods.The priest's companions restrain you."
?CCL5:	IN?	SEBASTIO,HERE \FALSE
	ICALL2	CTHE-PRINT,SEBASTIO
	PRINTR	" motions to his companions, who restrain you."

	.SEGMENT "RODRIGUES"


	.FUNCT	ANJIRO-HARBOR-F:ANY:1:1,RARG
	EQUAL?	RARG,M-LOOK \?CCL3
	PRINTI	"This is the middle of the harbor.The "
	ICALL2	PRINTUNDER,STR?7
	PRINTR	" is to the east, the waterfront to the west.Small islands lie distantly toward the eastern and southern horizons."
?CCL3:	EQUAL?	RARG,M-BEG \FALSE
	EQUAL?	PRSA,V?WALK \FALSE
	EQUAL?	P-WALK-DIR,P?EAST,P?OUT \FALSE
	IN?	WINNER,SMALL-BOAT /FALSE
	PRINTR	"You are too weak to swim that far."


	.FUNCT	AT-ERASMUS-F:ANY:1:1,RARG
	EQUAL?	RARG,M-LOOK \?CCL3
	PRINTI	"The "
	ICALL2	PRINTUNDER,STR?7
	PRINTR	" rides at anchor here, held by three bow cables."
?CCL3:	EQUAL?	RARG,M-ENTER \FALSE
	EQUAL?	OHERE,ON-DECK \FALSE
	EQUAL?	SCENE,S-ANJIRO \FALSE
	PRINTI	"As you climb down the gangway you can still feel the sweat trickling down your spine.You hate everything about the Japans and wish yourself and your crew back aboard, armed, and out to sea."
	CRLF	
	MOVE	BLACKTHORNE,HERE
	ICALL1	NEXT-SCENE
	RETURN	M-FATAL

	.ENDSEG

	.SEGMENT "ANJIRO"


	.FUNCT	ANJIRO-F:ANY:0:1,RARG
	EQUAL?	RARG,M-LOOK \?CCL3
	PRINTI	"The village is set around a crescent harbor that faces east, perhaps two hundred houses unlike any you've ever seen nestling at the beginning of the mountain which spills down to the shore.Above are terraced fields to the west and dirt roads that lead north and south.Below to the east is the waterfront.In the harbor you can see the "
	ICALL2	PRINTUNDER,STR?7
	PRINTR	" riding at anchor."
?CCL3:	EQUAL?	RARG,M-BEG \?CCL5
	EQUAL?	SCENE,S-ANJIRO \?CCL8
	EQUAL?	PRSA,V?WALK,V?WALK-TO \?CCL8
	CALL1	HENCHMEN-RESTRAIN
	ZERO?	STACK \TRUE
?CCL8:	EQUAL?	PRSA,V?WALK \?CCL13
	EQUAL?	P-WALK-DIR,P?NORTH,P?SOUTH \?CCL13
	FCLEAR	OMI,RMUNGBIT
	PRINTR	"You follow the dirt road through the village, conscious of many people watching you.When they see you have noticed them, they bow to you.They pass to and fro, like so many multicolored butterflies.After a while you find you've returned to the house you left."
?CCL13:	EQUAL?	PRSA,V?WALK \FALSE
	EQUAL?	P-WALK-DIR,P?UP \FALSE
	FCLEAR	OMI,RMUNGBIT
	PRINTR	"You walk up the dirt path that leads to the fields, watched by curious eyes every second.In the terraced fields are farmers up to the their knees in water, planting and weeding.How can anything grow in such wetness, you wonder, and how can the fields have been built on such steep hillsides?Confused, you walk back to the house you left."
?CCL5:	EQUAL?	RARG,M-END \?CCL21
	CALL1	VILLAGERS-STARE
	RSTACK	
?CCL21:	EQUAL?	RARG,FALSE-VALUE \FALSE
	EQUAL?	PRSA,V?FIND \FALSE
	GRTR?	SCENE,S-ERASMUS \?CCL29
	PRINTR	"Anjiro is a small fishing village in the province of Izu."
?CCL29:	PRINTR	"You've never heard of any place called Anjiro."

	.SEGMENT "RODRIGUES"

	.SEGMENT "YABU"


	.FUNCT	VILLAGERS-F:ANY:0:1,RARG
	EQUAL?	RARG,M-WINNER \?CCL3
	PRINTI	"They don't understand you."
	CRLF	
	CALL1	END-QUOTE
	RSTACK	
?CCL3:	EQUAL?	RARG,FALSE-VALUE \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL8
	EQUAL?	HERE,VILLAGE-SQUARE \?CCL11
	PRINTR	"They are watching everything that's going on with great interest."
?CCL11:	PRINTR	"They go about their daily activities, pretending not to be interested in you."
?CCL8:	EQUAL?	PRSA,V?BOW \FALSE
	PRINTR	"They return your bow with amusement.You are obviously a new and amazing sight for them."

	.ENDSEG

	.SEGMENT "ANJIRO"


	.FUNCT	SEBASTIO-HENCHMEN-F:ANY:0:1,RARG
	EQUAL?	RARG,M-SUBJ /FALSE
	EQUAL?	RARG,M-WINNER \?CCL5
	ICALL2	CTHE-PRINT,SEBASTIO
	PRINTR	" interrupts.""None of these men understand Portuguese, heretic."""
?CCL5:	EQUAL?	PRSA,V?EXAMINE \?CCL7
	PRINTI	"There are ten of them, all natives, black-haired and black-eyed, one dressed like "
	ICALL2	THE-PRINT,SEBASTIO
	PRINTR	" except that he has thong slippers.The rest are in varicolored robes, loose trousers, or loincloths."
?CCL7:	CALL1	HOSTILE-VERB?
	ZERO?	STACK \?CCL9
	EQUAL?	PRSA,V?PARRY,V?STOP /?CCL9
	EQUAL?	PRSA,V?HELP \FALSE
	EQUAL?	PRSO,ME \FALSE
?CCL9:	IN?	OMI,HERE \?CCL17
	ICALL2	CTHE-PRINT,OMI
	PRINTR	" barks an order, and they quickly and efficiently pin you in place.You are so weak you can hardly struggle."
?CCL17:	FSET?	SEBASTIO-HENCHMEN,SCOREBIT \?CCL19
	PRINTI	"You are outnumbered and weak, but you manage to smash the nose of one.The noise of his scream slows the rest down a little."
	CRLF	
	CALL2	SCORE-OBJECT,SEBASTIO-HENCHMEN
	RSTACK	
?CCL19:	PRINTR	"You try your best to fend them off."


	.FUNCT	HENCHMAN-BODY-F:ANY:0:1,RARG
	EQUAL?	RARG,M-SUBJ /FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL5
	PRINTR	"He looks like a typical villager, but he's quite dead."
?CCL5:	IN?	OMI,HERE \FALSE
	EQUAL?	PRSA,V?TAKE /?CCL7
	CALL1	HOSTILE-VERB?
	ZERO?	STACK /FALSE
?CCL7:	PRINT	STR?377
	ICALL2	PRINTUNDER,STR?378
	PRINTR	"!"" he repeats."


	.FUNCT	HENCHMAN-HEAD-F:ANY:0:1,RARG
	EQUAL?	RARG,M-SUBJ /FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL5
	PRINTR	"Its expression is frozen in a grimace of death."
?CCL5:	EQUAL?	PRSA,V?GIVE \?CCL7
	EQUAL?	PRSO,HENCHMAN-HEAD \?CCL7
	FSET?	PRSI,PERSON \?CCL7
	FSET?	PRSI,DEAD /?CCL7
	ICALL1	CTHE-PRINT-PRSI
	PRINTR	" doesn't seem interested."
?CCL7:	EQUAL?	PRSA,V?TAKE /?PRD15
	CALL1	HOSTILE-VERB?
	ZERO?	STACK /FALSE
?PRD15:	IN?	OMI,HERE \FALSE
	PRINT	STR?377
	EQUAL?	PRSA,V?KICK \?CCL20
	ICALL2	PRINTUNDER,STR?379
	PRINTR	""" he exclaims."
?CCL20:	ICALL2	PRINTUNDER,STR?380
	PRINTR	""" he repeats."


	.FUNCT	I-SEBASTIO:ANY:0:0
	INC	'DELAY-CNT
	ZERO?	SEBASTIO-CNT \?CCL5
	EQUAL?	HERE,ANJIRO,ANJIRO-WATERFRONT /?CND3
	GRTR?	DELAY-CNT,5 \?CCL9
	CRLF	
	PRINTI	"Your curiosity gets the better of you and you go out into the street."
	CRLF	
	CRLF	
	ICALL2	GOTO,ANJIRO
	JUMP	?CND3
?CCL9:	GRTR?	DELAY-CNT,2 \FALSE
	EQUAL?	HERE,MURA-HOUSE,GARDEN \FALSE
	CRLF	
	PRINTR	"You hear a commotion outside."
?CCL5:	EQUAL?	SEBASTIO-CNT,4 \?CND3
	FSET?	SEBASTIO-HENCHMEN,SCOREBIT \?CND3
	EQUAL?	DELAY-CNT,1 \?CCL19
	CRLF	
	PRINTR	"You can feel the life being choked out of you!"
?CCL19:	CRLF	
	ICALL2	JIGS-UP,STR?381
	RETURN	M-FATAL
?CND3:	SET	'DELAY-CNT,0
	INC	'SEBASTIO-CNT
	EQUAL?	SEBASTIO-CNT,1 \?CCL22
	MOVE	SEBASTIO,HERE
	SET	'QCONTEXT,SEBASTIO
	ICALL2	THIS-IS-IT,SEBASTIO
	ICALL2	THIS-IS-IT,SEBASTIO-HENCHMEN
	MOVE	SEBASTIO-HENCHMEN,HERE
	CRLF	
	PRINTR	"You see a tonsured man approaching and fear sweeps sickeningly from your testicles into your stomach.He is obviously a Portuguese or Spanish priest, and though his flowing robe is orange, there is no mistaking the crucifix and rosary at his belt, or the cold hostility on his face.Priests here!A world away in Europe, England and Holland are fighting for their freedom from the priests.Is there no place not infested by these idolators and their Inquisition?Your fear begins to give way to rage.

Behind him are several Japanese."
?CCL22:	EQUAL?	SEBASTIO-CNT,2 \?CCL24
	CRLF	
	PRINTI	"""Who are you?"" the priest says in Portuguese."
	FSET?	CLOTHES,WEARBIT /?CND25
	PRINTI	"""You're as naked as a savage!You have no shame, just like the pagans here!Put on some clothes and hide your shame!"""
?CND25:	PRINTR	"He points to the harbor.""That's a Netherlander privateer.You're a heretic Dutchman.You're pirates.You're an enemy of the church!"""
?CCL24:	EQUAL?	SEBASTIO-CNT,3 \?CCL28
	CRLF	
	PRINTI	"""They crucify criminals here.You're going to die.The "
	ICALL2	PRINTUNDER,STR?268
	PRINTR	" coming with his samurai.God have mercy on you!"""
?CCL28:	EQUAL?	SEBASTIO-CNT,4 \?CCL30
	ICALL2	THIS-IS-IT,SEBASTIO-HENCHMEN
	SET	'OPPONENT,SEBASTIO-HENCHMEN
	CRLF	
	PRINTR	"The priest lifts his crucifix and holds it between you as a shield.""Oh, God, protect us from this evil!May God have mercy on your soul.""

He snaps something in Japanese and the men surge toward you, grabbing and pinioning your arms.You feel yourself choking!"
?CCL30:	EQUAL?	SEBASTIO-CNT,5 \FALSE
	ICALL	QUEUE,I-OMI,-1
	CALL2	DEQUEUE,I-SEBASTIO
	RSTACK	


	.FUNCT	I-OMI:ANY:0:0,TMP
	INC	'DELAY-CNT
	EQUAL?	OMI-CNT,2 \?CCL5
	ZERO?	OMI-QUESTION /?CND3
	GRTR?	DELAY-CNT,2 \?CND8
	ICALL1	OMI-KILLS-YOU
	RETURN	M-FATAL
?CND8:	ICALL2	SETUP-ANSWER,STR?254
	ICALL2	TELL-ANSWER-OR-DIE,STR?382
	RTRUE	
?CCL5:	EQUAL?	OMI-CNT,3 \?CCL11
	ZERO?	OMI-QUESTION /?CND3
	GRTR?	DELAY-CNT,2 \?CND14
	ICALL1	OMI-KILLS-YOU
	RETURN	M-FATAL
?CND14:	ICALL2	SETUP-ANSWER,STR?383
	ICALL2	TELL-ANSWER-OR-DIE,STR?384
	RTRUE	
?CCL11:	EQUAL?	OMI-CNT,4 \?CND3
	ZERO?	OMI-QUESTION /?CND3
	GRTR?	DELAY-CNT,2 \?CND19
	ICALL1	OMI-KILLS-YOU
	RETURN	M-FATAL
?CND19:	ICALL2	SETUP-ANSWER,STR?254
	ICALL2	TELL-ANSWER-OR-DIE,STR?385
	RTRUE	
?CND3:	SET	'DELAY-CNT,0
	INC	'OMI-CNT
	EQUAL?	OMI-CNT,1 \?CCL23
	SET	'OPPONENT,FALSE-VALUE
	MOVE	OMI,HERE
	ICALL2	THIS-IS-IT,OMI
	CRLF	
	PRINTI	"Suddenly the attack ceases.A young man is ten paces away.He wears two scabbarded swords in his belt.His right hand is casually on the hilt of the longer one."""
	ICALL2	PRINTUNDER,STR?386
	PRINTI	""" he asks harshly."""
	ICALL2	PRINTUNDER,STR?387
	PRINTR	""" The Japanese fall to their knees."
?CCL23:	EQUAL?	OMI-CNT,2 \?CCL25
	SET	'QCONTEXT,SEBASTIO
	SET	'OMI-QUESTION,1
	ICALL2	SETUP-ANSWER,STR?254
	CRLF	
	ICALL2	CTHE-PRINT,OMI
	PRINTI	" says, """
	ICALL2	PRINTUNDER,STR?388
	PRINTR	""" The priest translates, ""Kasigi Omi-san says, 'What's your nationality?'"""
?CCL25:	EQUAL?	OMI-CNT,3 \?CCL27
	SET	'QCONTEXT,SEBASTIO
	SET	'OMI-QUESTION,2
	ICALL	NEW-SDESC,OMI,STR?253
	ICALL2	SETUP-ANSWER,STR?383
	CRLF	
	ICALL2	CTHE-PRINT,OMI
	PRINTI	" says, """
	ICALL2	PRINTUNDER,STR?389
	PRINTR	"""The priest says nervously, ""Kasigi Omi-san says, 'Where did you sail from?'"""
?CCL27:	EQUAL?	OMI-CNT,4 \?CCL29
	SET	'QCONTEXT,SEBASTIO
	SET	'OMI-QUESTION,3
	ICALL2	SETUP-ANSWER,STR?254
	CRLF	
	PRINTR	"Another flurry of words from Omi.""Omi-san asks if you're the leader.The headman says there are only a few of you heretics alive and most are sick."""
?CCL29:	EQUAL?	OMI-CNT,5 \?CCL31
	SET	'QCONTEXT,OMI
	CRLF	
	PRINTR	"Another spate of words from the samurai.""Omi-san says because you are the leader you will be allowed to walk around the village freely, until his master comes."""
?CCL31:	EQUAL?	OMI-CNT,6 \?CCL33
	FSET	SEBASTIO-HENCHMEN,RMUNGBIT
	MOVE	HENCHMAN-BODY,HERE
	MOVE	HENCHMAN-HEAD,HERE
	CRLF	
	PRINTI	"Omi speaks contemptuously to the priest and his men, then waves them away.They all bow low, except for one man who rises deliberately, without bowing.With blinding speed Omi's killing sword hisses in a silver arc and the man's head topples off his shoulders.No one else moves a muscle."""
	ICALL2	PRINTUNDER,STR?380
	PRINTR	""" he says, motioning everyone away."
?CCL33:	EQUAL?	OMI-CNT,7 \?CCL35
	IN?	SEBASTIO,HERE \FALSE
	CRLF	
	ICALL2	CTHE-PRINT,SEBASTIO
	PRINTI	" gravely makes the sign of the cross over the body.""In nomine Patris et Filii et Spiritus Sancti.""He stares at the samurai, who again says """
	ICALL2	PRINTUNDER,STR?380
	PRINTR	""""
?CCL35:	EQUAL?	OMI-CNT,8 \?CCL40
	LOC	SEBASTIO >TMP
	REMOVE	SEBASTIO
	REMOVE	SEBASTIO-HENCHMEN
	FSET	OMI,RMUNGBIT
	EQUAL?	TMP,HERE \FALSE
	CRLF	
	PRINTR	"The priest turns and walks away.His remaining supporters follow."
?CCL40:	EQUAL?	OMI-CNT,9 \FALSE
	SET	'QCONTEXT,FALSE-VALUE
	IN?	OMI,HERE \?CTR47
	FSET?	OMI,RMUNGBIT /?CCL48
?CTR47:	MOVE	OMI,GENERIC-OBJECTS
	ICALL2	DEQUEUE,I-OMI
	CRLF	
	PRINTR	"In the distance, you can hear Omi laughing uproariously."
?CCL48:	CRLF	
	CALL2	JIGS-UP,STR?390
	RSTACK	


	.FUNCT	TELL-ANSWER-OR-DIE:ANY:1:1,STR
	CRLF	
	ICALL2	CTHE-PRINT,OMI
	PRINTI	" scowls, fingering the sword in his scabbard.The priest looks nervously at him and then at you."""
	PRINT	STR
	PRINTR	"?Answer!"" rasps the priest.""Answer or die, heretic!"""


	.FUNCT	OMI-KILLS-YOU:ANY:0:0
	CRLF	
	ICALL2	CTHE-PRINT,OMI
	PRINTI	" barks a few impatient words to "
	ICALL2	THE-PRINT,SEBASTIO
	PRINTI	", who nods eagerly.Moments later, "
	ICALL2	THE-PRINT,OMI
	PRINTI	"'s sword separates your head from your body."
	CRLF	
	CALL1	JIGS-UP
	RSTACK	


	.FUNCT	MURA-HOUSE-F:ANY:1:1,RARG,H
	EQUAL?	RARG,M-SCENE-SETUP \?CCL3
	FCLEAR	ON-DECK,TOUCHBIT
	MOVE	BLACKTHORNE,QUILT
	ICALL1	B-SIT
	REMOVE	BOOTS
	FCLEAR	BOOTS,WEARBIT
	REMOVE	CLOTHES
	FCLEAR	CLOTHES,WEARBIT
	PUTP	BLACKTHORNE,P?HEALTH,1
	MOVE	SMALL-BOAT,ANJIRO-WATERFRONT
	MOVE	BOAT-OAR,SMALL-BOAT
	FCLEAR	PASSAGE-DOOR,OPENBIT
	FCLEAR	FOCSLE-DOOR,OPENBIT
	ICALL2	MOVE-CREW,FALSE-VALUE
	MOVE	SAMURAI-GUARDS,ON-DECK
	REMOVE	ERASMUS-ANCHOR
	MOVE	RIBBON,ON-DECK
	SET	'COLLAPSE-CNT,0
	CALL	QUEUE,I-COLLAPSE,-1
	RSTACK	
?CCL3:	EQUAL?	RARG,M-BEG \FALSE
	GETP	WINNER,P?HEALTH >H
	EQUAL?	PRSA,V?LOOK-OUT \?CCL8
	EQUAL?	PRSO,ROOMS \?CCL8
	FSET?	MURA-DOOR,OPENBIT \?CCL8
	PRINTR	"You see a beautiful, neat garden."
?CCL8:	EQUAL?	PRSA,V?SLEEP \?CCL13
	PRINTR	"You have just awakened.Don't be a sleepy-head."
?CCL13:	EQUAL?	PRSA,V?LISTEN \?CCL15
	EQUAL?	PRSO,FALSE-VALUE,NOISE \?CCL15
	PRINT	STR?371
	PRINTR	"One of them is speaking Portuguese!"
?CCL15:	EQUAL?	PRSA,V?DRESS \?CCL19
	IN?	CLOTHES,HERE \?CCL19
	ICALL	PERFORM,V?WEAR,CLOTHES
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?STAND \?CCL23
	FSET?	BLACKTHORNE,SITTING \?CCL23
	LESS?	H,3 \?CCL28
	SET	'COLLAPSE-CNT,4
	ICALL	QUEUE,I-COLLAPSE,-1
	PRINTR	"You try to stand but you're still too weak."
?CCL28:	ICALL1	B-STAND
	PRINTR	"You stand shakily."
?CCL23:	EQUAL?	PRSA,V?DANCE \?CCL30
	PRINTR	"You don't have the strength."
?CCL30:	EQUAL?	PRSA,V?MAKE \FALSE
	EQUAL?	PRSO,SIGN-OF-CROSS \FALSE
	IN?	ONNA,HERE \FALSE
	PRINTR	"She smiles at you and nods."


	.FUNCT	I-COLLAPSE:ANY:0:0,H
	GETP	BLACKTHORNE,P?HEALTH >H
	EQUAL?	H,3 \?PRG4
	CALL2	DEQUEUE,I-COLLAPSE
	RSTACK	
?PRG4:	INC	'COLLAPSE-CNT
	EQUAL?	COLLAPSE-CNT,4 /TRUE
	EQUAL?	COLLAPSE-CNT,5 \?CCL9
	EQUAL?	H,1 \?CCL12
	CRLF	
	PRINTR	"You are still extremely weak and hungry."
?CCL12:	EQUAL?	H,2 \FALSE
	CRLF	
	PRINTR	"You are feeling better, but still on the verge of collapse."
?CCL9:	EQUAL?	COLLAPSE-CNT,8 /TRUE
	EQUAL?	COLLAPSE-CNT,9 \?CCL17
	EQUAL?	H,1,2 \FALSE
	CRLF	
	PRINTR	"You are on the verge of collapsing from weakness and hunger."
?CCL17:	EQUAL?	COLLAPSE-CNT,10 \FALSE
	EQUAL?	H,1,2 \FALSE
	CRLF	
	CALL2	JIGS-UP,STR?393
	RSTACK	


	.FUNCT	MURA-DOOR-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	FSET?	MURA-DOOR,RMUNGBIT \?CCL6
	PRINTR	"The door has been broken by your clumsiness."
?CCL6:	PRINTR	"The door is made of square wood laths and covered with paper.It looks translucent, shadows from the outside mottling the light and flimsy structure."
?CCL3:	EQUAL?	PRSA,V?OPEN,V?MUNG,V?TEAR /?CTR7
	EQUAL?	PRSA,V?RUB \?CCL8
?CTR7:	FSET?	MURA-DOOR,RMUNGBIT \?CCL13
	EQUAL?	PRSA,V?OPEN \?CCL16
	FSET?	PRSO,OPENBIT /?CCL19
	FSET	MURA-DOOR,OPENBIT
	PRINTR	"You gingerly slide open the broken door."
?CCL19:	CALL2	ITS-ALREADY-X,STR?62
	RSTACK	
?CCL16:	PRINTR	"You've already broken it."
?CCL13:	EQUAL?	HERE,MURA-HOUSE \FALSE
	FSET?	MURA-DOOR,RMUNGBIT /FALSE
	FSET?	BLACKTHORNE,SITTING \?CCL26
	PRINT	YOU-HAVE-TO
	PRINTR	"stand up to reach the door."
?CCL26:	EQUAL?	PRSA,V?MUNG,V?TEAR \?CND24
	PRINTR	"That wouldn't be very nice, even if the door is flimsy-looking."
?CND24:	FSET	MURA-DOOR,OPENBIT
	FSET	MURA-DOOR,RMUNGBIT
	MOVE	ONNA,HERE
	ICALL2	MARGINAL-PIC,P-GARDEN
	PRINTI	"You reach to open the door, reeling slightly as you are still very weak, and put out a hand to steady yourself but the light, square wood laths can't bear your weight and they shatter, paper ripping apart."
	IN?	FOOD,WINNER \?CND28
	MOVE	FOOD,HERE
	PRINTI	"You drop the food."
?CND28:	IN?	CHOPSTICKS,WINNER \?CND30
	MOVE	CHOPSTICKS,HERE
	PRINTI	"You drop the sticks."
?CND30:	IN?	TRAY,WINNER \?CND32
	MOVE	TRAY,HERE
	ICALL	MOVE-ALL,TRAY,HERE
	PRINTI	"You drop the tray."
?CND32:	PRINTI	" You marvel at how flimsy it is, not at all like the sturdy wooden doors of England.Are there no thieves here?

You right yourself and manage to open the door."
	CALL2	QUEUED?,I-ONNA-RETURNS
	ZERO?	STACK /?CCL36
	MOVE	FOOD,TRAY
	MOVE	TRAY,HERE
	MOVE	CLOTHES,HERE
	MOVE	BOOTS,GARDEN
	ICALL2	DEQUEUE,I-ONNA-RETURNS
	PRINTI	"Behind the door, carrying a tray of food and a bundle of your clothes, is a shocked "
	ICALL2	DPRINT,ONNA
	PRINTR	".She places the tray on the floor and retreats with as much calm as she can muster."
?CCL36:	PRINTR	"The shocked woman in the corridor is staring at you."
?CCL8:	EQUAL?	PRSA,V?REPAIR \FALSE
	FSET?	PRSO,RMUNGBIT \FALSE
	PRINTR	"You try to fix the door, but it's futile."


	.FUNCT	QUILT-F:ANY:0:1,RARG
	EQUAL?	RARG,FALSE-VALUE \?CCL3
	EQUAL?	PRSA,V?EXAMINE \FALSE
	PRINTR	"It's a thick padded cotton quilt."
?CCL3:	EQUAL?	RARG,M-BEG \FALSE
	CALL1	MOTION-VERB?
	ZERO?	STACK /FALSE
	GETP	WINNER,P?HEALTH
	LESS?	STACK,3 \?CCL14
	PRINTR	"You're still too weak."
?CCL14:	MOVE	WINNER,HERE
	RFALSE	


	.FUNCT	MURA-CRUCIFIX-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"This is the sort of crucifix you would expect to find in a Catholic country.You cannot help but look at it with anger and dread, as Spain and Portugal, the Catholic powers, have been at war with England for decades.

All your life you have heard rumors of Portugal's secret empire in the East, how they had by now converted the heathens to Catholicism and so held them in bondage.Can these rumors have been true?If so, what about the other rumors, that gold here is as cheap as pig iron, and emeralds and diamonds are as plentiful as pebbles on the beach?"
?CCL3:	EQUAL?	PRSA,V?TAKE,V?MOVE,V?LOWER \?CCL5
	PRINTR	"It's fixed to the wall."
?CCL5:	EQUAL?	PRSA,V?MUNG \FALSE
	PRINTR	"Much as you might like to break it, idolatrous symbol of the hated enemy that it is, you can't get to it."


	.FUNCT	CHOPSTICKS-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"These are two short sticks of polished wood, slightly pointed at one end.You have no idea what they are for."
?CCL3:	CALL1	HOSTILE-VERB?
	ZERO?	STACK /?CCL5
	EQUAL?	PRSI,CHOPSTICKS \?CCL5
	PRINTR	"A pair of chopsticks makes a poor substitute for a weapon."
?CCL5:	EQUAL?	PRSA,V?EAT \?PRD11
	EQUAL?	PRSO,FOOD /?CCL9
?PRD11:	EQUAL?	PRSA,V?USE \?PRD14
	EQUAL?	PRSO,CHOPSTICKS /?CCL9
?PRD14:	EQUAL?	PRSA,V?PICK-UP \FALSE
	EQUAL?	PRSO,FOOD \FALSE
?CCL9:	IN?	FOOD,TRAY /?CTR20
	CALL2	HELD?,FOOD
	ZERO?	STACK /?CCL21
?CTR20:	PRINTR	"You try to scoop the food with the sticks, but it doesn't work.Why there is no knife or spoon here, you cannot understand."
?CCL21:	PRINTR	"You can't understand how to use the sticks."


	.FUNCT	FOOD-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"The food consists of cold cooked vegetables, fish soup, and a thick porridge of wheat or barley."
?CCL3:	EQUAL?	PRSA,V?WAIT-FOR \?CCL5
	CALL2	QUEUED?,I-ONNA-RETURNS
	ZERO?	STACK /FALSE
	PRINTR	"Your stomach rumbles as you wait for more food; perhaps there'll be grog or a good roast capon this time!"
?CCL5:	EQUAL?	PRSA,V?SMELL \?CCL10
	PRINTR	"It smells very strange.Oh for a loaf of fresh crunchy bread, or a roast with gravy!Nonetheless, it's all you've got."
?CCL10:	EQUAL?	PRSA,V?EAT \FALSE
	EQUAL?	PRSO,FOOD \FALSE
	EQUAL?	PRSI,FALSE-VALUE,FINGERS,HANDS /?CCL12
	EQUAL?	PRSI,MOUTH \FALSE
?CCL12:	REMOVE	FOOD
	GETP	BLACKTHORNE,P?HEALTH
	LESS?	STACK,2 \?CCL20
	ICALL	QUEUE,I-REMEMBER,1
	ICALL	QUEUE,I-ONNA,2
	PRINTI	"You wolf down the vegetables, which have a piquant taste.You drain the bowl of soup.You eat the porridge with your fingers, as there appear to be no utensils, just some sticks of wood.

You are still ravenously hungry."
	CRLF	
	PUTP	BLACKTHORNE,P?HEALTH,2
	RTRUE	
?CCL20:	PUTP	BLACKTHORNE,P?HEALTH,3
	PRINTI	"This tray of food is the same as the first.There is no meat and no grog or brandy.You can eat more slowly now, and you try to savor the unfamiliar fare, but you can't convince yourself it's more than just filling.Your stomach is pleasantly full when you finish, though."
	CRLF	
	CALL2	SCORE-OBJECT,FOOD
	RSTACK	


	.FUNCT	I-REMEMBER:ANY:0:0
	CRLF	
	PRINTR	"With an effort you try to collect yourself.You remember getting the anchor out.With Vinck.At least you think it was Vinck.There were lights ashore.Then there were lights and strange voices.One of the natives talked a little Portuguese.They must have carried you ashore and put you here."


	.FUNCT	I-ONNA:ANY:0:0
	MOVE	ONNA,MURA-HOUSE
	FSET	MURA-DOOR,OPENBIT
	ICALL2	THIS-IS-IT,ONNA
	SET	'QCONTEXT,ONNA
	CRLF	
	PRINTI	"A panel in the wall slides open.A middle-aged, heavy-set, round-faced woman drops to her knees beside the door and bows and smiles at you."""
	ICALL2	PRINTUNDER,STR?395
	PRINTR	""" she asks."

	.SEGMENT "PIT"


	.FUNCT	ONNA-F:ANY:0:1,RARG
	EQUAL?	RARG,M-SUBJ /FALSE
	EQUAL?	RARG,M-WINNER \?CCL5
	EQUAL?	PRSA,V?BE? \?PRD10
	EQUAL?	PRSO,THIS \?PRD10
	EQUAL?	PRSI,JAPAN /?CTR7
?PRD10:	EQUAL?	PRSA,V?FIND \?CCL8
	EQUAL?	PRSO,ME \?CCL8
?CTR7:	PRINT	STR?397
	PRINTR	"."
?CCL8:	EQUAL?	PRSA,V?WHO \?CCL17
	ICALL	NEW-SDESC,ONNA,STR?256
	PRINTR	"She doesn't understand you, so you point to yourself and say ""Blackthorne"" several times, very deliberately.She frowns, and then with a flood of understanding points at herself and says, ""Onna!Onna!"""
?CCL17:	EQUAL?	PRSA,V?SORRY /?PRD21
	EQUAL?	PRSA,V?BE \?CCL19
	EQUAL?	PRSO,ME,BLACKTHORNE \?CCL19
	EQUAL?	PRSI,INTADJ \?CCL19
	GET	PARSE-RESULT,11
	EQUAL?	STACK,W?SORRY \?CCL19
?PRD21:	FSET?	MURA-DOOR,RMUNGBIT \?CCL19
	PRINTR	"""I'm sorry,"" you say, gesturing toward the broken door.The woman finally understands, and smiles as if to indicate that she forgives you."
?CCL19:	PRINT	STR?397
	PRINTR	" and says something you cannot understand."
?CCL5:	EQUAL?	PRSA,V?EXAMINE \?CCL29
	PRINTR	"She is a middle-aged, heavy-set, round-faced woman."
?CCL29:	EQUAL?	PRSA,V?FIND,V?WHERE \?CCL31
	IN?	MURA,HERE \FALSE
	SET	'WINNER,MURA
	ICALL	PERFORM,V?FIND,PRSO
	SET	'WINNER,BLACKTHORNE
	RTRUE	
?CCL31:	EQUAL?	PRSA,V?ASK-FOR \?CCL36
	EQUAL?	PRSO,ONNA \?CCL36
	PRINTR	"She doesn't understand you."
?CCL36:	EQUAL?	PRSA,V?RUB \?CCL40
	EQUAL?	PRSO,STOMACH,TRAY \?CCL40
	ICALL	PERFORM,V?SHOW,PRSO,ONNA
	RTRUE	
?CCL40:	EQUAL?	PRSA,V?SHOW,V?GIVE \?CCL44
	EQUAL?	PRSI,ONNA \?CCL44
	EQUAL?	PRSO,ME \?CCL49
	SET	'WINNER,ONNA
	ICALL2	PERFORM,V?WHO
	SET	'WINNER,PLAYER
	RTRUE	
?CCL49:	EQUAL?	PRSO,HENCHMAN-HEAD /?CTR50
	LOC	HENCHMAN-HEAD
	EQUAL?	PRSO,STACK \?CCL51
?CTR50:	PRINTR	"She screams and crosses herself."
?CCL51:	EQUAL?	HERE,MURA-HOUSE,GARDEN \FALSE
	EQUAL?	PRSA,V?SHOW \?CCL58
	PRINTI	"You point to "
	JUMP	?CND56
?CCL58:	FSET?	PRSO,TAKEBIT \?CND59
	FCLEAR	PRSO,WEARBIT
	MOVE	PRSO,ONNA
?CND59:	PRINTI	"You give her "
?CND56:	EQUAL?	PRSO,GLOBAL-FOOD \?CCL63
	IN?	TRAY,HERE \?CCL63
	PRINTI	"the empty tray"
	JUMP	?CND61
?CCL63:	ICALL1	THE-PRINT-PRSO
?CND61:	PRINTI	", and the woman looks at "
	ICALL2	PRINT-HIM/HER,PRSO
	PRINTI	" and "
	EQUAL?	PRSO,MURA-CRUCIFIX \?CCL68
	PRINTR	"makes the sign of the cross."
?CCL68:	EQUAL?	PRSO,TRAY,FOOD,MOUTH /?PRD72
	EQUAL?	PRSO,STOMACH,GLOBAL-FOOD \?CCL70
?PRD72:	LOC	CLOTHES
	ZERO?	STACK \?CCL70
	MOVE	ONNA,GARDEN
	FSET?	MURA-DOOR,RMUNGBIT /?CND75
	FCLEAR	MURA-DOOR,OPENBIT
?CND75:	MOVE	TRAY,ONNA
	ICALL	QUEUE,I-ONNA-RETURNS,2
	PRINTI	"nods.She smiles, politely takes the tray, and "
	FSET?	MURA-DOOR,RMUNGBIT \?CCL79
	PRINTR	"then glances ruefully at the door."
?CCL79:	PRINTR	"slides the door shut."
?CCL70:	PRINTR	"says something incomprehensible."
?CCL44:	EQUAL?	PRSA,V?RUB,V?RAISE,V?FUCK \FALSE
	ICALL2	CTHE-PRINT,ONNA
	PRINTR	" seems surprised, but not unwilling."

	.ENDSEG

	.SEGMENT "ANJIRO"


	.FUNCT	I-ONNA-RETURNS:ANY:0:0
	MOVE	FOOD,TRAY
	MOVE	CLOTHES,HERE
	MOVE	TRAY,HERE
	MOVE	BOOTS,GARDEN
	CRLF	
	PRINTI	"The "
	EQUAL?	HERE,MURA-HOUSE \?CND1
	PRINTI	"door slides open again, and the "
?CND1:	PRINTR	"small woman reappears with more food, and your clothes which she places in a neat pile.She bows again and departs."

	.SEGMENT "RODRIGUES"


	.FUNCT	RIBBON-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"The wide band of red silk is pasted across the doorway.It is covered with queer, squiggly writing."
?CCL3:	EQUAL?	PRSA,V?READ \?CCL5
	PRINTR	"The ribbon is covered with queer, squiggled writing.You can't read it, though."
?CCL5:	EQUAL?	PRSA,V?POINT \?CCL7
	PRINTI	"The leader says, politely, """
	ICALL2	PRINTUNDER,STR?399
	PRINTI	""" "
	ZERO?	RIBBON-CNT \?CCL10
	PRINTR	"He smiles politely."
?CCL10:	PRINTR	"His expression is very serious."
?CCL7:	CALL1	PASSIVE-VERB?
	ZERO?	STACK \FALSE
	PRINTC	34
	ICALL2	PRINTUNDER,STR?400
	PRINTI	"""The samurai on guard shakes his head to make the point clear."
	EQUAL?	SCENE,S-ANJIRO \?CCL15
	PRINTI	"He is no longer smiling.

You try again."""
	ICALL2	PRINTUNDER,STR?401
	PRINTI	""" the guards say emphatically.

When you still don't seem to be listening, the guard yells, """
	ICALL2	PRINTUNDER,STR?402
	PRINTI	""" You are jerked around to face the samurai.Their swords are half out of the scabbards.They wait for you to make up your mind.

You realize they are not going to let you retrieve your rutters, and begin to retreat.You remember to bow and at once all hostility vanishes, but the guards are still watchful."
	CRLF	
	ICALL2	SCORE-OBJECT,SAMURAI-GUARDS
	CRLF	
	CALL2	GOTO,AT-ERASMUS
	RSTACK	
?CCL15:	IN?	RODRIGUES,HERE \?CCL18
	CRLF	
	PRINTR	"""Leave this to me, Ingeles!"" blusters Rodrigues."
?CCL18:	CRLF	
	RTRUE	


	.FUNCT	I-RIBBON:ANY:0:0
	EQUAL?	HERE,ON-DECK,BRIDGE-OF-ERASMUS \FALSE
	FSET?	SAMURAI-GUARDS,RMUNGBIT /FALSE
	INC	'RIBBON-CNT
	LESS?	RIBBON-CNT,3 /?CCL8
	CRLF	
	CALL2	JIGS-UP,STR?403
	RSTACK	
?CCL8:	ICALL	QUEUE,I-RIBBON,4
	CRLF	
	PRINTR	"The samurai leader makes a long speech part of which emphatically seems to indicate you are expected to leave immediately. But what of your rutters?How can you retrieve them?"


	.FUNCT	SAMURAI-GUARDS-DESC:ANY:2:2,RARG,OBJ
	EQUAL?	RARG,M-OBJDESC? /TRUE
	EQUAL?	RARG,M-OBJDESC \FALSE
	PRINTI	"Several samurai are at posts on the main deck.They "
	ZERO?	RIBBON-CNT /?CCL8
	PRINTI	"watch you warily."
	RTRUE	
?CCL8:	FSET?	SAMURAI-GUARDS,RMUNGBIT \?CCL10
	PRINTI	"seem relaxed."
	RTRUE	
?CCL10:	PRINTI	"seem a little nervous."
	RTRUE	


	.FUNCT	SAMURAI-GUARDS-F:ANY:0:1,RARG
	EQUAL?	RARG,M-SUBJ /FALSE
	EQUAL?	RARG,M-WINNER \?CCL5
	PRINTR	"None of the guards appear to understand you."
?CCL5:	EQUAL?	PRSA,V?EXAMINE \?CCL7
	EQUAL?	SCENE,S-ESCAPE \?CCL10
	PRINTR	"They are at attention, alert, and rigidly correct in their bearing."
?CCL10:	EQUAL?	HERE,ON-DECK,AT-ERASMUS,BRIDGE-OF-ERASMUS \?CCL12
	PRINTR	"These men are all samurai.Some have steel breastplates but most wear simple kimonos, and the two swords.All wear their hair the same way: the top of the head shaved and the hair at the back and sides gathered into a queue, oiled, then doubled over the crown and tied neatly."
?CCL12:	PRINTI	"You can't see the "
	ICALL2	PRINTUNDER,STR?7
	PRINTR	" well enough from here to tell much about who's crewing it."
?CCL7:	EQUAL?	PRSA,V?WHO \?CCL14
	EQUAL?	SCENE,S-ANJIRO \?CCL17
	PRINTI	"They are all dressed alike, so perhaps they are soldiers put here by the "
	ICALL2	PRINTUNDER,STR?82
	PRINTR	"."
?CCL17:	EQUAL?	SCENE,S-RODRIGUES \FALSE
	PRINTI	"They are samurai of Kasigi Yabu, the "
	ICALL2	PRINTUNDER,STR?82
	PRINTR	" of this province."
?CCL14:	CALL1	HOSTILE-VERB?
	ZERO?	STACK /?CCL21
	EQUAL?	HERE,ON-DECK /?CTR23
	EQUAL?	SCENE,S-ESCAPE \?CCL24
?CTR23:	CALL2	JIGS-UP?,J-GUARDS
	ZERO?	STACK /TRUE
	CALL2	JIGS-UP,STR?404
	RSTACK	
?CCL24:	PRINTR	"Luckily for you, you aren't close enough to attack the guards."
?CCL21:	EQUAL?	HERE,ANJIRO-WATERFRONT \?CCL31
	CALL1	ABSTRACT-VERB?
	ZERO?	STACK \?CCL31
	PRINTI	"The crewmen on the "
	ICALL2	PRINTUNDER,STR?7
	PRINTI	" aren't here."
	CRLF	
	EQUAL?	PRSA,V?TELL \TRUE
	ICALL1	END-QUOTE
	RETURN	M-FATAL
?CCL31:	EQUAL?	PRSA,V?GIVE,V?SHOW \?CCL38
	EQUAL?	PRSO,HENCHMAN-HEAD \?CCL41
	PRINTR	"They discuss it among themselves.They don't seem upset or disgusted by it."
?CCL41:	PRINTR	"They don't seem interested."
?CCL38:	EQUAL?	PRSA,V?BOW \?CCL43
	EQUAL?	SCENE,S-ESCAPE \?CCL46
	PRINTR	"They return your bow with perfect military correctness."
?CCL46:	FSET?	PRSO,RMUNGBIT /?CCL48
	FSET	PRSO,RMUNGBIT
	EQUAL?	RIBBON-CNT,3 \?CCL51
	PRINTR	"You bow politely.At once all the hostility vanishes and they all bow and smile again."
?CCL51:	PRINTR	"All the guards relax slightly and begin to smile."
?CCL48:	PRINTI	"The leader returns your bow."
	ZERO?	RIBBON-CNT /?CND52
	PRINTR	"The guards seem more relaxed now."
?CND52:	CRLF	
	RTRUE	
?CCL43:	EQUAL?	PRSA,V?TELL-ABOUT \FALSE
	PRINTR	"They don't appear to understand you."

	.ENDSEG

	.SEGMENT "YABU"


	.FUNCT	VILLAGE-SQUARE-F:ANY:1:1,RARG
	EQUAL?	RARG,M-SCENE-SETUP \?CCL3
	EQUAL?	SCENE,S-YABU \FALSE
	ICALL2	DRESS-BLACKTHORNE,TRUE-VALUE
	ICALL1	B-KNEEL
	ICALL	MOVE-CREW,HERE,TRUE-VALUE
	MOVE	MURA,HERE
	MOVE	SEBASTIO,HERE
	ICALL	NEW-SDESC,SEBASTIO,STR?248
	MOVE	OMI,HERE
	ICALL	NEW-SDESC,OMI,STR?253
	MOVE	YABU,HERE
	SET	'YABU-CNT,0
	CALL	QUEUE,I-YABU-AUDIENCE,-1
	RSTACK	
?CCL3:	EQUAL?	RARG,M-LOOK \?CCL8
	PRINTI	"This is the village square of Anjiro.The day is clear and warm."
	EQUAL?	SCENE,S-YABU \?CND9
	PRINTI	"You are "
	CALL1	B-KNEELING?
	ZERO?	STACK /?CCL13
	PRINTI	"kneeling"
	JUMP	?CND11
?CCL13:	PRINTI	"standing"
?CND11:	PRINTI	" in front of the platform."
?CND9:	ZERO?	BATH-FLAG /?CND14
	PRINTR	"A narrow path leads north between two wooden fences."
?CND14:	CRLF	
	RTRUE	
?CCL8:	EQUAL?	RARG,M-BEG \FALSE
	EQUAL?	SCENE,S-YABU,S-PIT \?CCL20
	EQUAL?	PRSA,V?BOW \?CCL20
	EQUAL?	PRSO,FALSE-VALUE,OMI,YABU \?CCL20
	ZERO?	PRSO \?CND24
	SET	'PRSO,YABU
?CND24:	PRINTI	"You bow"
	FSET?	BLACKTHORNE,SITTING \?CND26
	PRINTI	", bending forward from your "
	CALL1	B-KNEELING?
	ZERO?	STACK /?CCL30
	PRINTI	"kneeling"
	JUMP	?CND28
?CCL30:	PRINTI	"sitting"
?CND28:	PRINTI	" position"
?CND26:	PRINTI	"."
	CALL2	QUEUED?,I-BOW?
	ZERO?	STACK /?CCL33
	ICALL2	DEQUEUE,I-BOW?
	EQUAL?	SCENE,S-YABU \?CCL36
	ICALL2	DEQUEUE,I-YABU-AUDIENCE
	PRINTI	"Yabu motions the guards forward, giving them curt orders.""You have insulted the Lord Yabu with your bad manners and incredible impertinence,"" explains Father Sebastio smugly.Yabu turns to confer with Omi."
	CRLF	
	FSET?	SEBASTIO-CRUCIFIX,SCOREBIT \?CCL39
	CRLF	
	PRINTI	"""You are to be put to death for being a pirate and a heretic,"" says Sebastio, but for some reason you think he is lying.Yabu looks pleased and Omi unhappy about the outcome.Why, you wonder?As the guards lead you away, you can't help believing you were close to convincing them to let you live."
	CRLF	
	ICALL1	JIGS-UP
	RETURN	M-FATAL
?CCL39:	CRLF	
	PRINTI	"After a while, Yabu and Omi finish their polite discussion.Yabu speaks to the guards again, and Father Sebastio explodes with indignation.""They are sparing you and your crew precisely because you are heretics who hate the true Church!Surely this land is in the power of Satan!""

Yabu smiles happily at you and your crewmen, then points to you and barks an additional order to Omi, who bows.You shudder, wondering what fate could be in store for you, and afraid you are about to find out."
	CRLF	
	CALL1	NEXT-SCENE
	RSTACK	
?CCL36:	ICALL1	CTHE-PRINT-PRSO
	PRINTR	" returns your bow, and relaxes."
?CCL33:	EQUAL?	SCENE,S-YABU \?CCL41
	ICALL1	CTHE-PRINT-PRSO
	PRINTR	" returns your bow.He seems at once astonished and amused by your behavior, but it's clear he has no love for the priest."
?CCL41:	ICALL1	CTHE-PRINT-PRSO
	PRINTR	" seems pleased by this display of manners."
?CCL20:	EQUAL?	SCENE,S-YABU \?CCL43
	EQUAL?	PRSA,V?STAND \?CCL46
	FSET?	BLACKTHORNE,SITTING \?CCL46
	PRINTR	"You stand up.The Japanese seem surprised by your audacity."
?CCL46:	CALL1	ACT-CRAZY?
	ZERO?	STACK /?CCL50
	PRINTR	"Yabu stares at you in surprise.You must be insane!"
?CCL50:	EQUAL?	PRSA,V?TELL,V?SEND \FALSE
	EQUAL?	PRSO,YABU,SEBASTIO /FALSE
	ICALL1	SPEAK-ONLY-TO-YABU
	EQUAL?	PRSA,V?TELL \TRUE
	ICALL1	END-QUOTE
	RETURN	M-FATAL
?CCL43:	EQUAL?	SCENE,S-PIT \FALSE
	EQUAL?	PRSA,V?THROUGH \?CCL62
	EQUAL?	PRSO,PIT \?CCL62
	CALL2	DO-WALK,P?DOWN
	RSTACK	
?CCL62:	EQUAL?	PRSA,V?WALK \?CCL66
	EQUAL?	P-WALK-DIR,P?DOWN \?CCL66
	IN?	LADDER,HERE \?CCL66
	ICALL	PERFORM,V?CLIMB-DOWN,LADDER
	RTRUE	
?CCL66:	EQUAL?	PRSA,V?LIE-DOWN,V?BOARD,V?LOWER \FALSE
	ZERO?	ANSWER-HAI? /FALSE
	FSET?	CROOCQ,SCOREBIT \FALSE
	CALL1	B-LYING?
	ZERO?	STACK \FALSE
	ICALL1	B-LIE-DOWN
	PRINTI	"You do as you were ordered."
	CRLF	
	CALL2	SCORE-OBJECT,CROOCQ
	RSTACK	


	.FUNCT	YABU-TALK-TO-YABU:ANY:0:0
	EQUAL?	PRSA,V?BE \?CCL3
	EQUAL?	PRSO,BLACKTHORNE,ME \?CCL3
	EQUAL?	YABU-QUESTION,1 \?CCL3
	EQUAL?	PRSI,BLACKTHORNE,ME /?CCL9
	PRINTR	"""This is no time for foolishness, heretic!"" roars the priest."
?CCL9:	CALL	NOUN-USED?,PRSI,W?BLACKTHORNE
	ZERO?	STACK /?CCL11
	CALL	ADJ-USED?,PRSI,W?JOHN
	ZERO?	STACK /?CCL11
	CALL1	P-NEGATIVE?
	ZERO?	STACK \?CCL11
	SET	'QCONTEXT,FALSE-VALUE
	SET	'YABU-QUESTION,0
	PRINT	STR?406
	PRINTR	"He seems very deferential to Yabu, and very sweaty."
?CCL11:	PRINTI	"""No, no!What is your "
	CALL	NOUN-USED?,PRSI,W?BLACKTHORNE
	ZERO?	STACK \?CCL16
	CALL	ADJ-USED?,PRSI,W?JOHN
	ZERO?	STACK /?CND15
?CCL16:	PRINTI	"full "
?CND15:	PRINTR	"name, pirate?"" storms the priest, annoyed in spite of himself."
?CCL3:	EQUAL?	YABU-QUESTION,2 \?CCL20
	EQUAL?	PRSA,V?BE \?PRD25
	EQUAL?	PRSO,BLACKTHORNE,ME \?PRD25
	EQUAL?	PRSI,INTPP \?PRD25
	CALL	PP?,W?FROM,HOLLAND
	ZERO?	STACK \?PRD23
?PRD25:	EQUAL?	PRSA,V?COME-FROM \?CCL20
	EQUAL?	PRSO,HOLLAND \?CCL20
?PRD23:	CALL1	P-NEGATIVE?
	ZERO?	STACK \?CCL20
	SET	'QCONTEXT,FALSE-VALUE
	SET	'YABU-QUESTION,0
	PRINT	STR?406
	PRINTR	"Yabu is showing irritation and impatience.Perhaps the Jesuit's Japanese isn't fluent?"
?CCL20:	EQUAL?	YABU-QUESTION,3 \?CCL33
	EQUAL?	PRSA,V?BE \?CCL33
	EQUAL?	PRSO,BLACKTHORNE,ME \?CCL33
	EQUAL?	PRSI,BLACKTHORNE,RODRIGUES,LEADER \?CCL33
	CALL	NOUN-USED?,PRSI,W?PILOT
	ZERO?	STACK \?PRD39
	CALL	NOUN-USED?,PRSI,W?PILOT-MAJOR
	ZERO?	STACK /?CCL33
?PRD39:	CALL1	P-NEGATIVE?
	ZERO?	STACK \?CCL33
	SET	'QCONTEXT,YABU
	SET	'YABU-QUESTION,4
	PRINTR	"Father Sebastio doesn't translate what you said.Instead he asks, ""Why is an Englishman the pilot of a Dutch ship?Answer!""Yabu looks annoyed at the priest.Perhaps they aren't allies after all."
?CCL33:	EQUAL?	YABU-QUESTION,4 \?CCL43
	EQUAL?	PRSS,ME,BLACKTHORNE \?CCL43
	EQUAL?	PRSA,V?WALK,V?WALK-TO,V?WALK-AROUND /?PRD47
	EQUAL?	PRSA,V?COME-FROM,V?COME-TO-FROM \?CCL43
?PRD47:	EQUAL?	PRSO,FALSE-VALUE,ENGLAND,STRAIT-OF-MAGELLAN /?PRD50
	EQUAL?	PRSO,JAPAN,PACIFIC,GLOBAL-HERE /?PRD50
	EQUAL?	PRSO,LG-SEA,LG-ERASMUS,BLACK-SHIP /?PRD50
	EQUAL?	PRSO,NOT-HERE-OBJECT \?CCL43
?PRD50:	EQUAL?	PRSI,FALSE-VALUE,ENGLAND,STRAIT-OF-MAGELLAN /?PRD55
	EQUAL?	PRSI,PACIFIC,LG-SEA,LG-ERASMUS /?PRD55
	EQUAL?	PRSI,BLACK-SHIP \?CCL43
?PRD55:	CALL1	PAST-TENSE?
	ZERO?	STACK /?CCL43
	CALL1	P-NEGATIVE?
	ZERO?	STACK \?CCL43
	EQUAL?	PRSO,NOT-HERE-OBJECT \?CCL62
	PRINTI	"""Liar! You came around Africa and India!"""
	PRINT	STR?407
	CRLF	
	RTRUE	
?CCL62:	EQUAL?	PRSO,FALSE-VALUE,LG-SEA,LG-ERASMUS /?PRD66
	EQUAL?	PRSO,BLACK-SHIP \?CCL64
?PRD66:	EQUAL?	PRSI,FALSE-VALUE,LG-SEA,LG-ERASMUS /?CTR63
	EQUAL?	PRSI,BLACK-SHIP \?CCL64
?CTR63:	PRINTI	"""Of course you did!You didn't fly!"""
	PRINT	STR?407
	CRLF	
	RTRUE	
?CCL64:	SET	'YABU-QUESTION,0
	SET	'QCONTEXT,FALSE-VALUE
	PRINTI	"You describe your voyage.""We came through Magellan's Pass.This is the one hundred and thirty-sixth day from there.""

""You're lying!Magellan's Pass is secret.You came via Africa and India.You'll have to tell the truth eventually.They use torture here."""
	CRLF	
	CALL2	SCORE-OBJECT,STRAIT-OF-MAGELLAN
	RSTACK	
?CCL43:	EQUAL?	PRSA,V?BE \?CCL72
	EQUAL?	PRSO,BLACKTHORNE,ME \?CCL72
	CALL1	P-NEGATIVE?
	ZERO?	STACK /?CCL72
	EQUAL?	PRSI,CHURCH \?CCL78
	PRINTI	"""I've already told the "
	ICALL2	PRINTUNDER,STR?82
	PRINTR	" that you're a heretic!"""
?CCL78:	EQUAL?	PRSI,PORTUGUESE \?CCL80
	PRINTR	"""That's right, heretic, dig your own grave!Only we Portuguese and the damnable Spanish are allowed to trade here!"""
?CCL80:	EQUAL?	PRSI,PIRATE \?CCL82
	EQUAL?	YABU-QUESTION,4 \?CCL82
	SET	'QCONTEXT,FALSE-VALUE
	SET	'YABU-QUESTION,0
	PRINTR	"""You liar!You filthy heretics are all pirates!""The priest speaks haltingly to Yabu, who answers brusquely.He is apparently losing interest in the interrogation, and looks out into the harbor, toward the ship."
?CCL82:	ICALL2	CTHE-PRINT,SEBASTIO
	PRINTR	" translates what you have said.Yabu doesn't seem terribly interested, but only annoyed at the priest's poor Japanese."
?CCL72:	ZERO?	YABU-QUESTION /?CCL86
	EQUAL?	PRSA,V?SAY,V?REPLY \?CCL86
	EQUAL?	YABU-QUESTION,1,3 \?CCL91
	ICALL	PERFORM,V?BE,ME,PRSO
	RTRUE	
?CCL91:	ICALL2	PERFORM,V?COME-FROM
	RTRUE	
?CCL86:	ICALL2	CTHE-PRINT,SEBASTIO
	PRINTR	" haltingly translates what you have said.Yabu appears increasingly impatient."


	.FUNCT	SPEAK-ONLY-TO-YABU:ANY:0:0
	PRINTR	"Yabu says something sharply, and the priest warns, ""Speak only to the Lord Yabu!You are endangering your miserable life, heretic!"""


	.FUNCT	SEBASTIO-CRUCIFIX-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTI	"It's wooden, beautifully carved"
	IN?	PRSO,SEBASTIO \?CCL6
	PRINTR	", and hangs on a long chain from the priest's belt."
?CCL6:	PRINTR	"."
?CCL3:	EQUAL?	PRSA,V?MUNG,V?THROW \?CCL8
	ZERO?	PRSI /?CCL11
	FSET?	PRSI,PERSON \?CCL11
	EQUAL?	PRSI,SEBASTIO \FALSE
?CCL11:	IN?	PRSO,PLAYER \?CCL16
	IN?	OMI,HERE \?CND17
	IN?	YABU,HERE \?CND17
	ICALL	QUEUE,I-BOW?,2
?CND17:	ICALL	QUEUE,I-SEBASTIO-PRAYS,1
	MOVE	SEBASTIO-CRUCIFIX,HERE
	EQUAL?	PRSA,V?MUNG \?CCL23
	PRINTI	"You break the crucifix in two, and hurl the pieces "
	JUMP	?CND21
?CCL23:	PRINTI	"You throw the crucifix "
?CND21:	EQUAL?	PRSI,SEBASTIO \?CCL26
	PRINTI	"at "
	ICALL2	THE-PRINT,SEBASTIO
	PRINTC	46
	JUMP	?CND24
?CCL26:	PRINTI	"on the ground."
?CND24:	IN?	OMI,HERE \?CND27
	IN?	YABU,HERE \?CND27
	PRINTI	"The samurai watch.Omi, in particular, seems interested and excited."
?CND27:	CRLF	
	CALL2	SCORE-OBJECT,SEBASTIO-CRUCIFIX
	RSTACK	
?CCL16:	PRINTR	"You don't have it."
?CCL8:	EQUAL?	PRSA,V?PISS \?CCL32
	PRINTR	"You are so nervous that you can't."
?CCL32:	EQUAL?	PRSA,V?SPIT \?CCL34
	PRINTR	"Your mouth is so dry from tension and fear that you can't muster any spit."
?CCL34:	EQUAL?	PRSA,V?GIVE \?CCL36
	EQUAL?	PRSO,SEBASTIO-CRUCIFIX \?CCL36
	EQUAL?	PRSI,SEBASTIO \?CCL41
	MOVE	SEBASTIO-CRUCIFIX,SEBASTIO
	PRINTR	"He snatches it back, snarling."
?CCL41:	EQUAL?	PRSI,YABU,OMI \FALSE
	PRINTR	"He refuses, looking rather surprised."
?CCL36:	EQUAL?	PRSA,V?TAKE \FALSE
	FSET?	PRSO,SCOREBIT /?CCL48
	PRINTR	"You pick up the broken pieces of the crucifix.Sebastio watches you with contempt and hatred."
?CCL48:	IN?	PRSO,SEBASTIO \FALSE
	FSET?	SEBASTIO-CRUCIFIX,RMUNGBIT \?CCL52
	ICALL	QUEUE,I-BOW?,2
	FCLEAR	PRSO,DONT-ALL
	MOVE	PRSO,PLAYER
	FSET	PRSO,TOUCHBIT
	PRINTI	"You snatch the crucifix from "
	ICALL2	THE-PRINT,SEBASTIO
	PRINTR	"'s hand.He stares at you, shocked and astonished.Yabu watches your incredible behavior with disgust, Omi with increasing interest.You can almost see his curiosity: what will the barbarian do next?"
?CCL52:	PRINTI	"You grab for the crucifix, but Sebastio snatches it away, holding it up as if to ward you off.""Demon!Heretic!"" he screams.""You'd love to defile this holy cross to prove to these pagans you're also a satan worshipper and an enemy of the church!You'll die first!"""
	CRLF	
	CALL1	JAPANESE-INTERESTED?
	RSTACK	


	.FUNCT	JAPANESE-INTERESTED?:ANY:0:0
	IN?	OMI,HERE \TRUE
	IN?	YABU,HERE \?CCL5
	CRLF	
	PRINTR	"Yabu appears a little less bored, and Omi somewhat interested by your behavior."
?CCL5:	CRLF	
	ICALL2	CTHE-PRINT,OMI
	PRINTR	" watches this exchange with interest.He seems very excited by your apparent hatred of the priest."


	.FUNCT	I-SEBASTIO-PRAYS:ANY:0:0
	CRLF	
	ICALL2	CTHE-PRINT,SEBASTIO
	PRINTR	" kneels, staring fixedly at the pieces of the cross.He picks up the violated wood.He turns to you, and says quietly, ""I will pray for you, heretic."""


	.FUNCT	I-BOW?:ANY:0:0
	CRLF	
	PRINTI	"Yabu seems to have taken your treatment of the priest as a personal insult.Amazed by your lack of manners, he orders you put to death."
	CRLF	
	ICALL1	JIGS-UP
	RETURN	M-FATAL


	.FUNCT	I-YABU-AUDIENCE:ANY:0:0
	INC	'DELAY-CNT
	EQUAL?	YABU-CNT,1 \?CCL5
	EQUAL?	YABU-QUESTION,1 \?CND3
	ICALL2	THIS-IS-IT,SEBASTIO
	GRTR?	DELAY-CNT,3 \?CCL10
	ICALL2	YABU-SAYS,STR?408
	RETURN	M-FATAL
?CCL10:	ICALL2	SETUP-ANSWER,STR?254
	CRLF	
	PRINTI	"""Answer the "
	ICALL2	PRINTUNDER,STR?82
	PRINTR	", heretic!Who are you?"""
?CCL5:	EQUAL?	YABU-CNT,2 \?CCL12
	EQUAL?	YABU-QUESTION,2 \?CND3
	ICALL2	THIS-IS-IT,SEBASTIO
	GRTR?	DELAY-CNT,3 \?CCL17
	ICALL2	YABU-SAYS,STR?409
	RETURN	M-FATAL
?CCL17:	ICALL2	SETUP-ANSWER,STR?383
	CRLF	
	PRINTI	"""Answer the "
	ICALL2	PRINTUNDER,STR?82
	PRINTR	", heretic!Where did your pirate ship sail from?"""
?CCL12:	EQUAL?	YABU-CNT,3 \?CCL19
	EQUAL?	YABU-QUESTION,3 \?CND3
	ICALL2	THIS-IS-IT,SEBASTIO
	GRTR?	DELAY-CNT,3 \?CCL24
	CRLF	
	ICALL2	YABU-SAYS,STR?410
	RETURN	M-FATAL
?CCL24:	ICALL2	SETUP-ANSWER,STR?254
	CRLF	
	PRINTI	"""Answer the "
	ICALL2	PRINTUNDER,STR?82
	PRINTR	", heretic!What are you?You're obviously an officer!"""
?CCL19:	EQUAL?	YABU-CNT,4 \?CND3
	EQUAL?	YABU-QUESTION,4 \?CND3
	ICALL2	THIS-IS-IT,SEBASTIO
	GRTR?	DELAY-CNT,2 \?CCL30
	SET	'YABU-QUESTION,0
	CRLF	
	PRINT	STR?411
	PRINTI	"it is unimportant.We will find out these facts in due time."""
	CRLF	
	RETURN	M-FATAL
?CCL30:	ICALL2	SETUP-ANSWER,STR?412
	CRLF	
	PRINTI	"""Answer the "
	ICALL2	PRINTUNDER,STR?82
	PRINTR	"!How did you get here?"""
?CND3:	SET	'DELAY-CNT,0
	INC	'YABU-CNT
	EQUAL?	YABU-CNT,1 \?CCL33
	ICALL2	SETUP-ANSWER,STR?254
	ICALL2	THIS-IS-IT,SEBASTIO
	SET	'QCONTEXT,YABU
	SET	'YABU-QUESTION,1
	CRLF	
	PRINTI	"Father Sebastio comes forward.""I will translate for you,"" he says.""The "
	ICALL2	PRINTUNDER,STR?82
	PRINTR	", Kasigi Yabu, Lord of Izu, wants to know who you are, where you come from, how you got here, and what acts of piracy you have committed."""
?CCL33:	EQUAL?	YABU-CNT,2 \?CCL35
	ICALL2	SETUP-ANSWER,STR?383
	ICALL2	THIS-IS-IT,SEBASTIO
	SET	'QCONTEXT,YABU
	SET	'YABU-QUESTION,2
	CRLF	
	PRINTR	"Father Sebastio asks, ""Where did you sail from?"""
?CCL35:	EQUAL?	YABU-CNT,3 \?CCL37
	SET	'YABU-QUESTION,3
	ICALL2	THIS-IS-IT,SEBASTIO
	SET	'QCONTEXT,YABU
	ICALL2	SETUP-ANSWER,STR?254
	CRLF	
	PRINTR	"The Jesuit asks, ""What are you?You're not the Captain!"""
?CCL37:	EQUAL?	YABU-CNT,4 \?CCL39
	SET	'YABU-QUESTION,4
	ICALL2	THIS-IS-IT,SEBASTIO
	SET	'QCONTEXT,YABU
	ICALL2	SETUP-ANSWER,STR?412
	CRLF	
	PRINTR	"Father Sebastio asks, trying to control his anger, ""How did you get here?"""
?CCL39:	EQUAL?	YABU-CNT,5 \?CCL41
	SET	'YABU-QUESTION,0
	ICALL2	THIS-IS-IT,SEBASTIO
	SET	'QCONTEXT,FALSE-VALUE
	ICALL2	SETUP-ANSWER,FALSE-VALUE
	FSET	SEBASTIO-CRUCIFIX,RMUNGBIT
	ICALL2	THIS-IS-IT,SEBASTIO-CRUCIFIX
	CRLF	
	PRINTI	"Now, "
	ICALL2	THE-PRINT,SEBASTIO
	PRINTR	" is barely listening to you.""You're a lying heretic pirate!"" screams the priest, spittle flying from his mouth as he whirls toward you, shaking his fist.His crucifix on its long chain waves mockingly near your face."
?CCL41:	EQUAL?	YABU-CNT,6 \?CCL43
	ICALL2	THIS-IS-IT,YABU
	CRLF	
	PRINTC	34
	ICALL2	PRINTUNDER,STR?413
	PRINTI	""" the "
	ICALL2	PRINTUNDER,STR?82
	PRINTR	" snaps impatiently."
?CCL43:	EQUAL?	YABU-CNT,8 \?CCL45
	ICALL2	THIS-IS-IT,YABU
	CRLF	
	PRINTR	"Yabu is becoming bored and impatient.He turns his back to the priest, obvious detestation all over his face."
?CCL45:	EQUAL?	YABU-CNT,11 \FALSE
	CRLF	
	ICALL2	CTHE-PRINT,SEBASTIO
	PRINTI	" translates Yabu's sentence. ""This ship, alien, non-Portuguese, and pirate, is confiscated with all it contains.All pirates are sentenced to immediate crucifixion."""
	CRLF	
	ICALL2	DEQUEUE,I-YABU-AUDIENCE
	CALL1	JIGS-UP
	RSTACK	


	.FUNCT	YABU-SAYS:ANY:1:1,STR
	CRLF	
	PRINT	STR?411
	PRINTI	"you are a "
	PRINT	STR
	PRINTI	", and you are condemned to death."""
	CALL1	JIGS-UP
	RSTACK	

	.ENDSEG

	.SEGMENT "PIT"


	.FUNCT	PIT-F:ANY:1:1,RARG
	EQUAL?	RARG,M-SCENE-SETUP \?CCL3
	ICALL2	DRESS-BLACKTHORNE,TRUE-VALUE
	PUTP	VILLAGE-SQUARE,P?FDESC,FALSE-VALUE
	ICALL	NEW-SDESC,ONNA,STR?256
	ICALL	NEW-SDESC,SEBASTIO,STR?248
	REMOVE	SEBASTIO-CRUCIFIX
	ICALL	NEW-SDESC,OMI,STR?253
	MOVE	CAULDRON,VILLAGE-SQUARE
	ICALL2	MOVE-CREW,PIT
	REMOVE	CREWMEN
	MOVE	ROPER,HERE
	MOVE	SONK,HERE
	CALL	QUEUE,I-PIT,-1
	RSTACK	
?CCL3:	EQUAL?	RARG,M-LOOK \?CCL5
	PRINTI	"You are crammed into a deep cellar, one of the many that the fishermen use to store sun-dried fish.The cellar is five paces long and five wide and four deep, with an earthen floor and walls."
	IN?	OFFAL,HERE \?CND6
	PRINTI	"The floor is awash with rotting fish offal and seawater."
?CND6:	CALL1	TELL-CEILING
	RSTACK	
?CCL5:	EQUAL?	RARG,M-BEG \FALSE
	EQUAL?	PRSA,V?DISEMBARK \?CCL12
	EQUAL?	PRSO,ROOMS \?CCL12
	CALL2	DO-WALK,P?UP
	RSTACK	
?CCL12:	EQUAL?	PRSA,V?BOARD \?CCL16
	EQUAL?	PRSO,GLOBAL-HERE \?CCL16
	PRINT	STR?181
	CRLF	
	RTRUE	
?CCL16:	EQUAL?	PRSA,V?PICK \?CCL20
	FSET?	PRSO,PERSON \?CCL20
	ZERO?	MUST-CHOOSE? /?CCL20
	PRINTR	"""The only fair thing is to draw straws!"" says Vinck."
?CCL20:	CALL1	HOSTILE-VERB?
	ZERO?	STACK /?CCL25
	EQUAL?	PRSO,OMI,MURA,SEBASTIO \?CCL25
	PRINT	STR?178
	PRINTR	"him."
?CCL25:	EQUAL?	PRSA,V?PISS \?CCL29
	ZERO?	PRSO /?CCL29
	FSET?	PRSO,PERSON \?CCL29
	PRINTI	"The crewmen are appalled at your behavior."
	ICALL1	CTHE-PRINT-PRSO
	PRINTR	" squirms away, trying to clean himself off."
?CCL29:	EQUAL?	PRSA,V?SIT \?CCL34
	EQUAL?	PRSO,ROOMS,GROUND \?CCL34
	FSET?	BLACKTHORNE,SITTING /?CCL34
	IN?	OFFAL,HERE \?CCL34
	ICALL1	B-SIT
	PRINTR	"You find a relatively dry spot and sit down.The others complain but they finally rearrange themselves and quiet down."
?CCL34:	EQUAL?	PRSA,V?LIE-DOWN \?CCL40
	IN?	OFFAL,HERE \?CCL40
	PRINTR	"You want to lie down in old fish heads?You must be a barbarian!"
?CCL40:	EQUAL?	PRSA,V?YELL,V?YELL-AT \?CCL44
	FSET?	TRAPDOOR,OPENBIT /?CCL47
	PRINTR	"You begin yelling, and everyone else joins in.""Water!And food, by God!Let us out of here!"""
?CCL47:	PRINTR	"The Japanese look at you with contempt."
?CCL44:	EQUAL?	PRSA,V?LOOK-UP \?CCL49
	CALL1	TELL-CEILING
	RSTACK	
?CCL49:	EQUAL?	PRSA,V?WALK \?CCL51
	EQUAL?	P-WALK-DIR,P?UP,P?OUT \?CCL51
	IN?	LADDER,HERE \?CCL56
	ICALL	PERFORM,V?CLIMB-FOO,LADDER
	RTRUE	
?CCL56:	PRINTR	"You can't climb out without a ladder.The pit is too deep."
?CCL51:	EQUAL?	PRSA,V?PARRY,V?STOP \?CCL58
	EQUAL?	PRSO,FALSE-VALUE \?CCL58
	IN?	OMI-SAMURAI,LADDER /?CCL63
	IN?	OMI-SAMURAI,PIT \FALSE
?CCL63:	ICALL	PERFORM,V?ATTACK,OMI-SAMURAI
	RTRUE	
?CCL58:	EQUAL?	PRSA,V?HELP,V?TAKE,V?STOP /?PRD71
	EQUAL?	PRSA,V?PUSH-DOWN,V?SIT \?PRD69
?PRD71:	EQUAL?	PRSO,VINCK,PIETERZOON /?CTR66
?PRD69:	EQUAL?	PRSA,V?HELP,V?STOP \?CCL67
	EQUAL?	PRSO,ME \?CCL67
?CTR66:	EQUAL?	PRSO,VINCK,ME \?CCL78
	ICALL	PERFORM,V?STOP,LADDER
	RTRUE	
?CCL78:	EQUAL?	PRSO,PIETERZOON \FALSE
	IN?	PIETERZOON,CAULDRON \FALSE
	PRINTC	34
	ZERO?	VINCK-PICKED? /?CCL85
	PRINTI	"Vinck"
	JUMP	?CND83
?CCL85:	PRINTI	"The Pilot"
?CND83:	PRINTR	" should have gone.He was the lamb of God.And now his soul's forfeit, he'll burn for all eternity."""
?CCL67:	EQUAL?	PRSA,V?LISTEN \FALSE
	EQUAL?	PRSO,FALSE-VALUE,PIETERZOON,VINCK \FALSE
	IN?	PIETERZOON,CAULDRON /?CCL87
	IN?	VINCK,CAULDRON \FALSE
?CCL87:	PRINTR	"There is no longer any sound.The silence, you fear, is that of death."


	.FUNCT	TELL-CEILING:ANY:0:0
	PRINTI	"The ceiling is made of planks with a foot of earth above and a single "
	FSET?	TRAPDOOR,OPENBIT \?CCL3
	PRINTI	"open "
	JUMP	?CND1
?CCL3:	PRINTI	"closed "
?CND1:	ICALL2	DPRINT,TRAPDOOR
	PRINTR	" set into it."


	.FUNCT	SEAWATER-F:ANY:0:0
	EQUAL?	PRSA,V?DRINK \FALSE
	PRINTR	"You'll go mad from drinking seawater!"


	.FUNCT	OFFAL-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"It's rotting fish heads and entrails."
?CCL3:	EQUAL?	PRSA,V?SMELL \?CCL5
	PRINTR	"It smells offal."
?CCL5:	EQUAL?	PRSA,V?EAT \FALSE
	PRINTR	"You'd be crazy to eat that!"


	.FUNCT	I-PIT:ANY:0:0
	INC	'DELAY-CNT
	EQUAL?	PIT-CNT,4 \?CND3
	IN?	SHORT-STRAW,BLACKTHORNE /?CND3
	IN?	LONG-STRAW,BLACKTHORNE /?CND3
	GRTR?	DELAY-CNT,5 \?CCL11
	CRLF	
	PRINTI	"One of the men hits you over the head, you fight back, and in no time it's a melee.You are knocked unconscious, and drown, unnoticed as the rest of the crew squabbles."
	CRLF	
	ICALL1	JIGS-UP
	RETURN	M-FATAL
?CCL11:	CRLF	
	PRINTI	"""Pick, curse you!"" yells Maetsukker.""Yes, pick!"" the other crewmen take up the cry."
	CRLF	
	EQUAL?	DELAY-CNT,5 \TRUE
	CRLF	
	PRINTR	"You realize you'd better pick now, or you'll be forced to."
?CND3:	SET	'DELAY-CNT,0
	INC	'PIT-CNT
	EQUAL?	PIT-CNT,1 \?CCL16
	CRLF	
	PRINTI	"Captain-General Spillbergen, half-awake and querulous, says ""Pass the water."""
	CRLF	
	CRLF	
	PRINTI	"""There isn't any, Paulus"" Van Nekk answers gloomily, ""We haven't even got a pot to piss in!"""
	CRLF	
	CRLF	
	PRINTI	"Spillbergen points at Vinck.""Ask for water!"" he orders."
	CRLF	
	CRLF	
	PRINTI	"Vinck stands under the opening and shouts, ""Hey!You up there!Give us God-cursed water!We want food and water!"""
	CRLF	
	CRLF	
	PRINTR	"There is no answer."
?CCL16:	EQUAL?	PIT-CNT,2 \?CCL18
	FSET	TRAPDOOR,OPENBIT
	MOVE	OMI,TRAPDOOR
	MOVE	SEBASTIO,TRAPDOOR
	MOVE	MURA,TRAPDOOR
	ICALL2	MARGINAL-PIC,P-PIT
	CRLF	
	PRINTI	"The trapdoor opens.Omi looks down at you.Beside him are Mura and the priest."
	EQUAL?	PRSA,V?YELL,V?YELL-AT \?CCL21
	PRINTI	"Everyone but you begins yelling.""Water!And food, by God!Let us out of here!"""
	JUMP	?CND19
?CCL21:	PRINTI	"Everyone is still yelling."
?CND19:	MOVE	OFFAL,PIT
	MOVE	SEAWATER,PIT
	PRINTI	"Omi motions to Mura, who nods and leaves."
	CRLF	
	CRLF	
	PRINTR	"Mura returns with another fisherman, carrying a large barrel.They empty the contents, rotting fish offal and seawater, onto your heads."
?CCL18:	EQUAL?	PIT-CNT,3 \?CCL23
	SET	'MUST-CHOOSE?,TRUE-VALUE
	FCLEAR	TRAPDOOR,OPENBIT
	MOVE	SEBASTIO,VILLAGE-SQUARE
	MOVE	MURA,VILLAGE-SQUARE
	MOVE	OMI,VILLAGE-SQUARE
	CRLF	
	PRINTI	"Omi begins talking.When he finishes, the priest nervously translates.""These are Kasigi Omi's orders: You will begin to act like decent human beings.You will make no more noise.When you have learned to behave, you will be allowed up into the world of men.Lord Yabu has spared all your lives, providing you serve him loyally.All except one.One of you is to die.At dusk.You are to choose who it will be."""
	CRLF	
	CRLF	
	PRINTR	"The trapdoor slams into place."
?CCL23:	EQUAL?	PIT-CNT,4 \?CCL25
	MOVE	VINCKS-STRAW,HERE
	SET	'VINCK-PICKED?,FALSE-VALUE
	RANDOM	100
	LESS?	50,STACK /?CND26
	SET	'VINCK-PICKED?,TRUE-VALUE
?CND26:	MOVE	STRAW,SPILLBERGEN
	CRLF	
	PRINTI	"It's now very near dusk."
	CRLF	
	CRLF	
	PRINTR	"Spillbergen collects a bundle of rice straw stalks from the litter in the pit.Slowly, reluctantly, the crewmen draw straws.Sonk first, then Pieterzoon, then Jan Roper, Salomon, and Croocq.Then Ginsel is safe.Five left.Maetsukker, weeping openly, pushes Vinck aside and takes a straw.He can't believe it's not the one.Van Nekk picks and the straw is not short!

Vinck watches his fingers select a straw and it falls to the ground but everyone sees it's the shortest straw yet.

Now it's your turn.Spillbergen holds out his trembling hand toward you.There are only two straws left; one for you and one for the Captain."
?CCL25:	EQUAL?	PIT-CNT,5 \FALSE
	CRLF	
	PRINTI	"Spillbergen, last to pick, unclenches his hand and you see that his straw is long.Everyone stares at "
	SET	'PIT-CNT,0
	SET	'MUST-CHOOSE?,FALSE-VALUE
	ICALL2	DEQUEUE,I-PIT
	ZERO?	VINCK-PICKED? /?CCL32
	ICALL	QUEUE,I-TAKE-VINCK,-1
	PRINTR	"Vinck.""I'm dead!"" he laughs, unnerving you all."
?CCL32:	ICALL	QUEUE,I-TAKE-YOU,-1
	PRINTR	"you.The men ease away from you."


	.FUNCT	TRAPDOOR-OPENS:ANY:0:0
	CRLF	
	PRINTI	"The trapdoor opens.Omi stands etched against the sky, his kimono blooded by the dying sun.The ladder is lowered, and Omi motions for the one man to come up."""
	ICALL2	PRINTUNDER,STR?415
	PRINTI	"!"" he barks.Hurry up."
	RTRUE	


	.FUNCT	I-TAKE-VINCK:ANY:0:0
	INC	'DELAY-CNT
	EQUAL?	PIT-CNT,3 \?CCL5
	FSET?	LADDER,RMUNGBIT \?CCL8
	LESS?	DELAY-CNT,2 \?CCL8
	FCLEAR	LADDER,RMUNGBIT
	RFALSE	
?CCL8:	IN?	LOSING-SAMURAI,PIT \?CND3
	FSET?	LOSING-SAMURAI,SCOREBIT \?CND3
	LESS?	DELAY-CNT,5 \?CND3
	RFALSE	
?CCL5:	EQUAL?	PIT-CNT,4 \?CND3
	FSET?	LADDER,RMUNGBIT \?CCL18
	FCLEAR	LADDER,RMUNGBIT
	RFALSE	
?CCL18:	IN?	LOSING-SAMURAI,PIT \?CND3
	FSET?	LOSING-SAMURAI,SCOREBIT \?CND3
	LESS?	DELAY-CNT,5 /FALSE
?CND3:	SET	'DELAY-CNT,0
	INC	'PIT-CNT
	EQUAL?	PIT-CNT,1 \?CCL25
	FSET	TRAPDOOR,OPENBIT
	MOVE	OMI,TRAPDOOR
	MOVE	LADDER,HERE
	ICALL1	TRAPDOOR-OPENS
	PRINTR	"Vinck tries to stand, but his legs fail him.Pieterzoon bends down to help him to his feet."
?CCL25:	EQUAL?	PIT-CNT,2 \?CCL27
	FSET?	VINCK,RMUNGBIT /?CCL30
	CALL2	THEY-TAKE-VICTIM,VINCK
	RSTACK	
?CCL30:	FSET?	LADDER,SCOREBIT \?CCL32
	CRLF	
	PRINTR	"""Get away from the ladder, Pilot!You're ordered away!""Spillbergen shakily keeps to his corner, as far from the ladder as possible."
?CCL32:	CRLF	
	PRINTR	"Vinck comes out of his cataleptic state and throws himself at one of the samurai, berserk.He intercepts a blow that would have sliced your wrist off."
?CCL27:	EQUAL?	PIT-CNT,3 \?CCL34
	FSET?	LADDER,SCOREBIT \?CCL37
	CRLF	
	PRINTR	"Vinck begins to climb the ladder, almost in a trance."
?CCL37:	FSET?	OMI-SAMURAI,RMUNGBIT \?CCL39
	FCLEAR	OMI-SAMURAI,RMUNGBIT
	RFALSE	
?CCL39:	CALL1	OMI-BARKS
	RSTACK	
?CCL34:	EQUAL?	PIT-CNT,4 \?CCL41
	FSET?	LADDER,SCOREBIT \?CCL44
	FCLEAR	LADDER,SCOREBIT
	CRLF	
	PRINT	STR?416
	CRLF	
	RTRUE	
?CCL44:	CALL2	THEY-TAKE-VICTIM,PIETERZOON
	RSTACK	
?CCL41:	EQUAL?	PIT-CNT,5 \FALSE
	FSET?	LADDER,SCOREBIT /FALSE
	CALL2	THEY-TAKE-VICTIM,PIETERZOON
	RSTACK	


	.FUNCT	OMI-BARKS:ANY:0:0
	CRLF	
	PRINTI	"Omi barks an order, and several "
	IN?	OMI-SAMURAI,LADDER \?CCL3
	PRINTI	"more "
	JUMP	?CND1
?CCL3:	FSET	OMI-SAMURAI,RMUNGBIT
	MOVE	OMI-SAMURAI,LADDER
?CND1:	ICALL2	THIS-IS-IT,OMI-SAMURAI
	PRINTI	"samurai start to descend the ladder."
	CRLF	
	ICALL2	SCORE-OBJECT,LADDER
	RTRUE	


	.FUNCT	I-TAKE-YOU:ANY:0:0
	IN?	BLACKTHORNE,VILLAGE-SQUARE \?PRG3
	ICALL2	DEQUEUE,I-TAKE-YOU
	CRLF	
	ICALL2	JIGS-UP,STR?417
	RETURN	M-FATAL
?PRG3:	INC	'DELAY-CNT
	EQUAL?	PIT-CNT,3 \?CND5
	IN?	LOSING-SAMURAI,PIT \?CCL9
	FSET?	LOSING-SAMURAI,SCOREBIT /FALSE
?CCL9:	FSET?	LADDER,SCOREBIT \?CND5
	GRTR?	DELAY-CNT,4 \FALSE
	FCLEAR	LADDER,SCOREBIT
	RFALSE	
?CND5:	SET	'DELAY-CNT,0
	INC	'PIT-CNT
	EQUAL?	PIT-CNT,1 \?CCL17
	FSET	TRAPDOOR,OPENBIT
	MOVE	OMI,TRAPDOOR
	MOVE	LADDER,HERE
	ICALL1	TRAPDOOR-OPENS
	PRINTR	"Roper says, ""Don't be afraid, Pilot.You're the anointed of God.You're in God's hands."""
?CCL17:	EQUAL?	PIT-CNT,2 \?CCL19
	FSET?	OMI-SAMURAI,RMUNGBIT \?CCL22
	FCLEAR	OMI-SAMURAI,RMUNGBIT
	RFALSE	
?CCL22:	ICALL1	OMI-BARKS
	RTRUE	
?CCL19:	EQUAL?	PIT-CNT,3 \?CCL24
	CRLF	
	PRINT	STR?416
	CRLF	
	RTRUE	
?CCL24:	EQUAL?	PIT-CNT,4 \?CCL26
	FSET?	LADDER,SCOREBIT /FALSE
	CALL2	THEY-TAKE-VICTIM,PIETERZOON
	RSTACK	
?CCL26:	EQUAL?	PIT-CNT,5 \FALSE
	ICALL2	DEQUEUE,I-TAKE-YOU
	RFALSE	


	.FUNCT	GENERIC-STRAW-F:ANY:2:2,R,F
	LOC	LONG-STRAW
	ZERO?	STACK /?CCL3
	LOC	SHORT-STRAW
	ZERO?	STACK \FALSE
?CCL3:	RETURN	STRAW


	.FUNCT	STRAW-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"There are two straws in Spillbergen's hand.You stare at them intently, but you can discern no difference between them."
?CCL3:	EQUAL?	PRSA,V?TAKE,V?PICK,V?DRAW \FALSE
	REMOVE	STRAW
	ZERO?	VINCK-PICKED? /?CCL8
	LOC	VINCKS-STRAW
	MOVE	SHORT-STRAW,STACK
	REMOVE	VINCKS-STRAW
	PUTP	SHORT-STRAW,P?OWNER,VINCK
	MOVE	LONG-STRAW,BLACKTHORNE
	PRINTR	"You pick a straw, drawing your life out of Spillbergen's hand.It's long!"
?CCL8:	LOC	VINCKS-STRAW
	MOVE	LONG-STRAW,STACK
	REMOVE	VINCKS-STRAW
	PUTP	LONG-STRAW,P?OWNER,VINCK
	MOVE	SHORT-STRAW,BLACKTHORNE
	PRINTR	"You take a straw, and as you see it emerge, you realize that it's short, very short!Shorter than Vinck's.Vinck laughs a short, barking laugh, then is quiet."


	.FUNCT	VINCKS-STRAW-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"It's the shortest drawn yet."
?CCL3:	EQUAL?	PRSA,V?TAKE \FALSE
	PRINTR	"""No, Pilot, draw your own straw!"""


	.FUNCT	SHORT-STRAW-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"It's very short."
?CCL3:	EQUAL?	PRSA,V?TRADE,V?GIVE \?CCL5
	PRINTR	"No one wants the short straw."
?CCL5:	EQUAL?	PRSA,V?ASK-FOR \FALSE
	EQUAL?	PRSO,VINCK \FALSE
	EQUAL?	PRSI,SHORT-STRAW \FALSE
	ICALL	PERFORM,V?TRADE,LONG-STRAW,VINCK
	RTRUE	


	.FUNCT	LONG-STRAW-F:ANY:0:0
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"It's blessedly long."
?CCL3:	EQUAL?	PRSA,V?ASK-FOR \?CCL5
	ICALL	PERFORM,V?TRADE,SHORT-STRAW
	RTRUE	
?CCL5:	EQUAL?	PRSA,V?TRADE,V?GIVE \FALSE
	EQUAL?	PRSO,LONG-STRAW \FALSE
	EQUAL?	PRSI,FALSE-VALUE,VINCK,SHORT-STRAW \FALSE
	CALL2	HELD?,LONG-STRAW
	ZERO?	STACK /FALSE
	REMOVE	LONG-STRAW
	ICALL2	DEQUEUE,I-TAKE-VINCK
	ICALL	QUEUE,I-TAKE-YOU,-1
	PRINTI	"""Bless you, Pilot!"" babbles Vinck"
	IN?	SHORT-STRAW,VINCK \?CCL14
	MOVE	SHORT-STRAW,PLAYER
	PRINTR	", thrusting the death straw into your hands."
?CCL14:	PRINTR	"."


	.FUNCT	THEY-TAKE-VICTIM:ANY:1:1,WHO
	MOVE	OMI,VILLAGE-SQUARE
	MOVE	OMI-SAMURAI,VILLAGE-SQUARE
	ICALL	NEW-SDESC,OMI-SAMURAI,STR?418,TRUE-VALUE
	FSET	OMI-SAMURAI,NOABIT
	MOVE	BLACKTHORNE,HERE
	REMOVE	LADDER
	MOVE	WHO,CAULDRON
	FCLEAR	TRAPDOOR,OPENBIT
	FCLEAR	LADDER,SCOREBIT
	EQUAL?	WHO,VINCK \?CCL3
	CRLF	
	PRINTI	"Vinck, in an almost cataleptic state, climbs onto the ladder, pulling himself painfully upward.Van Nekk and Jan Roper are praying silently, their eyes closed.Pieterzoon cannot watch.You stare ashamedly at Vinck, hating yourself for letting him go."
	CRLF	
	CRLF	
	PRINTI	"As he reaches the top of the ladder, three samurai grab him.The ladder is quickly pulled up and the trapdoor slams shut like the sound of doom."
	CRLF	
	ICALL1	FAILED-SCENE
	RTRUE	
?CCL3:	EQUAL?	WHO,PIETERZOON \?CND1
	MOVE	VINCK,HERE
	CRLF	
	PRINTI	"Three more samurai, carrying knives and wearing only loincloths, leap nimbly into the cellar.The first two crash into you, carrying you helpless to the floor."
	IN?	DAGGER,BLACKTHORNE \?CND5
	MOVE	DAGGER,HERE
	PRINTI	"The dagger falls from your grip."
?CND5:	PRINTI	"They attack viciously, and the crewmen retreat."
	IN?	DAGGER,HERE \?CND7
	REMOVE	DAGGER
	PRINTI	"One samurai retrieves the dagger."
?CND7:	PRINTI	"

Omi comes arrogantly into the pit and grabs the nearest man, who is Pieterzoon.He jerks him toward the ladder.""Christ help me, it's not me that's to go -- ""Pieterzoon is being driven up the ladder."
	CRLF	
	CRLF	
	PRINTI	"Omi follows without hurrying.The samurai retreat"
	IN?	LOSING-SAMURAI,HERE \?CCL11
	FSET?	LOSING-SAMURAI,SCOREBIT \?CCL14
	REMOVE	LOSING-SAMURAI
	PRINTI	", including the one you knocked off of the ladder, though he appears wary and even embarrassed."
	JUMP	?CND9
?CCL14:	PRINTI	" stepping contemptuously over the prostrate body of their unconscious comrade."
	JUMP	?CND9
?CCL11:	PRINTC	46
?CND9:	PRINTI	"The ladder is jerked aloft.Air and sky and light vanish.Bolts crash into place."
	CRLF	
?CND1:	ICALL2	DEQUEUE,I-TAKE-VINCK
	ICALL2	DEQUEUE,I-TAKE-YOU
	SET	'PIT-CNT,0
	ICALL	QUEUE,I-TAKE-CROOCQ,-1
	RTRUE	


	.FUNCT	TRAPDOOR-DESC:ANY:2:2,RARG,OBJ
	EQUAL?	RARG,M-OBJDESC? \?CCL3
	FSET?	OBJ,OPENBIT /TRUE
	RETURN	M-FATAL
?CCL3:	PRINTI	"Through the open trapdoor you can see Omi"
	IN?	MURA,TRAPDOOR \?CND7
	PRINTI	", Father Sebastio and Mura"
?CND7:	PRINTI	" silhouetted against the sky."
	RTRUE	


	.FUNCT	TRAPDOOR-F:ANY:0:1,RARG
	ZERO?	RARG \FALSE
	EQUAL?	PRSA,V?OPEN,V?CLOSE \?CCL5
	IN?	WINNER,LADDER \?CCL8
	PRINTR	"The weapons of the samurai prevent you from climbing high enough."
?CCL8:	PRINT	STR?178
	PRINTR	"it."
?CCL5:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL10
	FSET?	TRAPDOOR,OPENBIT /?CCL13
	PRINTR	"It's closed."
?CCL13:	IN?	OMI,TRAPDOOR \FALSE
	ICALL	TRAPDOOR-DESC,M-OBJDESC,TRAPDOOR
	CRLF	
	RTRUE	
?CCL10:	EQUAL?	PRSA,V?KNOCK \FALSE
	PRINT	STR?178
	PRINTR	"it."


	.FUNCT	LADDER-DESC:ANY:2:2,RARG,OBJ
	EQUAL?	RARG,M-OBJDESC? /TRUE
	PRINTI	"A ladder leads "
	EQUAL?	HERE,PIT \?CCL6
	PRINTI	"up through the open trap door."
	RTRUE	
?CCL6:	PRINTI	"down into the pit."
	RTRUE	


	.FUNCT	LADDER-F:ANY:0:1,RARG
	EQUAL?	RARG,FALSE-VALUE \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL6
	IN?	OMI-SAMURAI,LADDER \?CCL9
	PRINTR	"There are samurai on the ladder."
?CCL9:	PRINTR	"It's a rickety wooden ladder."
?CCL6:	EQUAL?	PRSA,V?STOP,V?KINJIRU \?CCL11
	IN?	OMI-SAMURAI,LADDER \?CCL14
	PRINTR	"Swords swinging, the samurai continue down the ladder."
?CCL14:	IN?	OMI-SAMURAI,PIT \?CCL16
	PRINTR	"There's nothing to block or stop."
?CCL16:	IN?	LADDER,HERE /?CCL18
	FSET?	LADDER,SCOREBIT \?CCL21
	PRINTI	"You hold "
	ZERO?	VINCK-PICKED? /?CND22
	PRINTI	"him "
?CND22:	PRINTR	"back.The others grumble, but Roper says ""Aye, no need to go until they come for you."""
?CCL21:	ZERO?	VINCK-PICKED? /?CCL25
	PRINTR	"You grab Vinck, but he pulls away."
?CCL25:	PRINTR	"You hold back."
?CCL18:	ZERO?	VINCK-PICKED? /?CCL27
	FSET?	VINCK,RMUNGBIT /?CCL27
	FSET	VINCK,RMUNGBIT
	PRINTI	"You move between Vinck and the ladder."""
	ICALL2	PRINTUNDER,STR?419
	PRINT	STR?420
	PRINTR	"  He steps to the foot of the ladder."
?CCL27:	FSET?	LADDER,SCOREBIT \FALSE
	PRINTI	"You stand implacably "
	ZERO?	VINCK-PICKED? /?CCL34
	PRINTI	"in the way."
	JUMP	?CND32
?CCL34:	PRINTI	"at the foot of the ladder.The watchers can see no one is coming up."
?CND32:	CALL1	SAMURAI-ON-LADDER
	RSTACK	
?CCL11:	EQUAL?	PRSA,V?TAKE,V?SHAKE,V?MOVE /?CTR35
	EQUAL?	PRSA,V?LOWER,V?KICK /?CTR35
	EQUAL?	PRSA,V?PUSH-DOWN \?CCL36
	EQUAL?	PRSO,FALSE-VALUE \?CCL36
	EQUAL?	PRSI,LADDER \?CCL36
?CTR35:	EQUAL?	HERE,VILLAGE-SQUARE \?CCL45
	PRINT	STR?421
	CRLF	
	RTRUE	
?CCL45:	PRINTI	"You shake the ladder."
	FSET	LADDER,RMUNGBIT
	CALL2	QUEUED?,I-TAKE-CROOCQ
	ZERO?	STACK /?CCL48
	PRINTR	"There is no reaction from those above.They wait patiently."
?CCL48:	IN?	OMI-SAMURAI,LADDER \?CCL50
	PRINTI	"The samurai hold tightly onto the ladder, but one swings a sword at you!"
	CRLF	
	CALL2	SCORE-OBJECT,LADDER
	RSTACK	
?CCL50:	PRINTI	"A gasp goes through the cellar."
	ICALL1	SAMURAI-ON-LADDER
	RTRUE	
?CCL36:	EQUAL?	PRSA,V?CLIMB-FOO,V?CLIMB-ON,V?CLIMB-UP /?CCL52
	EQUAL?	PRSA,V?CLIMB-DOWN,V?BOARD \FALSE
?CCL52:	EQUAL?	HERE,VILLAGE-SQUARE \?CCL57
	PRINT	STR?421
	CRLF	
	RTRUE	
?CCL57:	CALL2	QUEUED?,I-TAKE-CROOCQ
	ZERO?	STACK \?CTR58
	CALL2	QUEUED?,I-TAKE-YOU
	ZERO?	STACK /?CCL59
?CTR58:	MOVE	LADDER,VILLAGE-SQUARE
	MOVE	OMI-SAMURAI,VILLAGE-SQUARE
	ICALL	NEW-SDESC,OMI-SAMURAI,STR?418,TRUE-VALUE
	FSET	OMI-SAMURAI,NOABIT
	MOVE	SEBASTIO,VILLAGE-SQUARE
	MOVE	OMI,VILLAGE-SQUARE
	PRINTI	"You climb up the ladder into the sunlight, blinking in the brightness."
	CALL2	HELD?,DAGGER
	ZERO?	STACK /?CND62
	REMOVE	DAGGER
	PRINTI	"As you reach the top of the ladder, strong hands grab you and force you to drop the dagger."
?CND62:	CRLF	
	CRLF	
	CALL2	GOTO,VILLAGE-SQUARE
	RSTACK	
?CCL59:	MOVE	PLAYER,LADDER
	IN?	OMI,TRAPDOOR \?CCL66
	FSET	OMI-SAMURAI,RMUNGBIT
	MOVE	OMI-SAMURAI,LADDER
	ICALL2	THIS-IS-IT,OMI-SAMURAI
	PRINTI	"You begin to climb onto the ladder, but Omi orders two samurai forward, and they climb down, swords unsheathed."
	CRLF	
	CALL2	SCORE-OBJECT,LADDER
	RSTACK	
?CCL66:	IN?	OMI-SAMURAI,LADDER \?CCL68
	PRINTR	"Swords swinging, the samurai block your progress and then continue down the ladder."
?CCL68:	ZERO?	VINCK-PICKED? /?CCL70
	FSET?	VINCK,RMUNGBIT /?CCL70
	FSET	VINCK,RMUNGBIT
	PRINTI	"You block Vinck from the ladder."""
	ICALL2	PRINTUNDER,STR?419
	PRINT	STR?420
	PRINTR	"  He continues toward the ladder."
?CCL70:	FSET?	LADDER,SCOREBIT \FALSE
	PRINTI	"You climb onto the lower rungs of the ladder, "
	ZERO?	VINCK-PICKED? /?CCL77
	PRINTI	"blocking it."
	JUMP	?CND75
?CCL77:	PRINTI	"then stop.The watchers can see you are coming no higher."
?CND75:	CALL1	SAMURAI-ON-LADDER
	RSTACK	


	.FUNCT	SAMURAI-ON-LADDER:ANY:0:0
	FSET	OMI-SAMURAI,RMUNGBIT
	MOVE	OMI-SAMURAI,LADDER
	ICALL2	THIS-IS-IT,OMI-SAMURAI
	PRINT	STR?422
	CRLF	
	CALL2	SCORE-OBJECT,LADDER
	RSTACK	


	.FUNCT	LOSING-SAMURAI-F:ANY:0:1,RARG
	EQUAL?	RARG,M-SUBJ /FALSE
	EQUAL?	RARG,M-CONTAINER \?CCL5
	CALL1	PASSIVE-VERB?
	ZERO?	STACK \?CCL5
	ICALL	PERFORM,V?ATTACK,LOSING-SAMURAI
	RTRUE	
?CCL5:	EQUAL?	RARG,M-WINNER \?CCL9
	FSET?	LOSING-SAMURAI,SCOREBIT /?CCL12
	PRINT	STR?423
	CRLF	
	RTRUE	
?CCL12:	PRINT	STR?424
	CRLF	
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?EXAMINE \?CCL14
	FSET?	LOSING-SAMURAI,SCOREBIT /?CCL17
	PRINT	STR?423
	CRLF	
	RTRUE	
?CCL17:	PRINTR	"He's fighting, kicking and punching, trying to get away."
?CCL14:	EQUAL?	PRSA,V?WAKE \?CCL19
	FSET?	LOSING-SAMURAI,SCOREBIT /FALSE
	PRINTR	"He's alive, but he doesn't wake up."
?CCL19:	EQUAL?	PRSA,V?SEARCH \?CCL24
	FSET?	LOSING-SAMURAI,SCOREBIT /FALSE
	PRINTR	"You don't find anything of interest."
?CCL24:	EQUAL?	PRSA,V?TAKE,V?MOVE /?CCL29
	CALL1	HOSTILE-VERB?
	ZERO?	STACK /FALSE
?CCL29:	FSET?	LOSING-SAMURAI,SCOREBIT \?CCL34
	CALL1	DROPS-DAGGER
	RSTACK	
?CCL34:	EQUAL?	PRSA,V?KILL \?CCL36
	FSET?	LOSING-SAMURAI,DEAD \?CCL39
	PRINTR	"He's already dead."
?CCL39:	EQUAL?	PRSI,DAGGER \?CCL41
	FSET	LOSING-SAMURAI,DEAD
	PRINTR	"You stab him in the heart.He's dead."
?CCL41:	FSET	LOSING-SAMURAI,DEAD
	PRINTR	"You hold his face under the water until he stops breathing.He's dead."
?CCL36:	EQUAL?	PRSA,V?TAKE,V?MOVE \?CCL43
	PRINTR	"You move him up against the wall where he won't drown.The others are saying ""Kill him, Pilot!"" or ""Use him as a hostage!"""
?CCL43:	PRINTR	"He's already unconscious."


	.FUNCT	OMI-SAMURAI-DESC:ANY:2:2,RARG,OBJ
	EQUAL?	RARG,M-OBJDESC? \?CCL3
	IN?	OMI-SAMURAI,LADDER /TRUE
	RFALSE	
?CCL3:	EQUAL?	RARG,M-OBJDESC \FALSE
	PRINTI	"Advancing down the ladder are "
	IN?	LOSING-SAMURAI,PIT \?CCL11
	PRINTI	"two"
	JUMP	?CND9
?CCL11:	PRINTI	"three"
?CND9:	PRINTI	" samurai."
	RTRUE	


	.FUNCT	OMI-SAMURAI-F:ANY:0:1,RARG
	EQUAL?	RARG,M-SUBJ /FALSE
	EQUAL?	RARG,M-WINNER \?CCL5
	PRINTI	"They seem uninterested in conversing with barbarians."
	CRLF	
	CALL1	END-QUOTE
	RSTACK	
?CCL5:	EQUAL?	PRSA,V?TAKE,V?MOVE,V?PARRY /?CCL7
	EQUAL?	PRSA,V?STOP /?CCL7
	CALL1	HOSTILE-VERB?
	ZERO?	STACK /FALSE
?CCL7:	EQUAL?	HERE,VILLAGE-SQUARE \?CCL13
	PRINTR	"You are easily subdued by Omi's guards."
?CCL13:	IN?	OMI-SAMURAI,LADDER \?CCL15
	SET	'OPPONENT,OMI-SAMURAI
	IN?	LOSING-SAMURAI,HERE /?CCL18
	MOVE	LOSING-SAMURAI,HERE
	SET	'OPPONENT,LOSING-SAMURAI
	ICALL2	THIS-IS-IT,LOSING-SAMURAI
	ICALL	QUEUE,I-LOSING-SAMURAI,-1
	PRINTR	"You grapple with one of the samurai, who kicks viciously.The entire crew hurls themselves at the ladder.The man manages to throw his sword out of the pit, but tumbles heavily into the mud."
?CCL18:	PRINTR	"The remaining samurai are more wary this time.Oddly, they make no effort to rescue their comrade."
?CCL15:	FSET?	LOSING-SAMURAI,SCOREBIT \FALSE
	CALL1	DROPS-DAGGER
	RSTACK	


	.FUNCT	I-LOSING-SAMURAI:ANY:0:0
	EQUAL?	HERE,PIT \?CCL3
	IN?	LOSING-SAMURAI,HERE \?CCL3
	FSET?	LOSING-SAMURAI,SCOREBIT \?CCL3
	ICALL2	THIS-IS-IT,LOSING-SAMURAI
	FSET?	LOSING-SAMURAI,RMUNGBIT /?CCL9
	FSET	LOSING-SAMURAI,RMUNGBIT
	CRLF	
	PRINTR	"The samurai you knocked off of the ladder gropes his way to his feet.The fall obviously hurt him."
?CCL9:	FSET?	LOSING-SAMURAI,SURFACEBIT /?CCL11
	FSET	LOSING-SAMURAI,SURFACEBIT
	CRLF	
	PRINTR	"The muddy samurai draws a dagger and slashes at you.He is like a cornered rat."
?CCL11:	CRLF	
	PRINTI	"The samurai charges, and almost as much by blind ferocity as skill, he shoves his dagger into your chest, ending your life."
	CRLF	
	CALL1	JIGS-UP
	RSTACK	
?CCL3:	ICALL2	DEQUEUE,I-LOSING-SAMURAI
	RFALSE	


	.FUNCT	DROPS-DAGGER:ANY:0:0
	MOVE	DAGGER,HERE
	PRINTI	"You attempt to subdue the samurai, and Vinck helps, pounding again and again.""Don't kill him -- we can use him as a hostage!"" you warn.Finally, Vinck kicks him in the back of the neck and he goes limp, dropping his dagger."
	CRLF	
	CALL2	SCORE-OBJECT,LOSING-SAMURAI
	RSTACK	


	.FUNCT	CAULDRON-F:ANY:0:1,RARG
	EQUAL?	PRSA,V?THROUGH,V?BOARD \?CCL3
	EQUAL?	PRSO,CAULDRON \?CCL3
	PRINTR	"They'll put you in soon enough!"
?CCL3:	CALL1	PASSIVE-VERB?
	ZERO?	STACK \FALSE
	PRINTR	"The guards prevent you from getting close to the cauldron."


	.FUNCT	CAULDRON-DESC:ANY:2:2,RARG,OBJ
	EQUAL?	RARG,M-OBJDESC? /TRUE
	EQUAL?	RARG,M-OBJDESC \FALSE
	PRINTI	"A huge black-iron cauldron stands in the square."
	IN?	CROOCQ,CAULDRON /?CCL7
	RETURN	M-FATAL
?CCL7:	PRINTI	"The boy Croocq, trussed like a chicken, is inside."
	RETURN	M-FATAL


	.FUNCT	I-TAKE-CROOCQ:ANY:0:0,TMP
	INC	'DELAY-CNT
	EQUAL?	PIT-CNT,2 \?CCL5
	IN?	BLACKTHORNE,PIT \?CND3
	GRTR?	DELAY-CNT,2 \?CCL10
	MOVE	OMI,VILLAGE-SQUARE
	MOVE	SEBASTIO,VILLAGE-SQUARE
	CRLF	
	PRINTI	"A samurai points at you and beckons you up.Another samurai shoves a long barbed staff into the cellar and hooks you out."
	CRLF	
	CRLF	
	ICALL2	GOTO,VILLAGE-SQUARE
	RTRUE	
?CCL10:	CRLF	
	PRINTR	"""I don't know what they want,"" Father Sebastio says gravely.""But you must come up at once."""
?CCL5:	EQUAL?	PIT-CNT,3 \?CND3
	ZERO?	ANSWER-HAI? \?CCL14
	CALL1	CROOCQ-IN-CAULDRON
	EQUAL?	STACK,TRUE-VALUE /?CCL16
	RETURN	M-FATAL
?CCL16:	EQUAL?	DELAY-CNT,1,2 /?CCL18
	RETURN	M-FATAL
?CCL18:	ICALL1	OMI-SAYS-LIE-DOWN
	RETURN	M-FATAL
?CCL14:	CALL1	B-LYING?
	ZERO?	STACK \?CND3
	EQUAL?	DELAY-CNT,1 \?CCL22
	CRLF	
	PRINTR	"Omi watches you with great curiousity."
?CCL22:	CALL1	CROOCQ-IN-CAULDRON
	EQUAL?	STACK,TRUE-VALUE \?CND3
	EQUAL?	DELAY-CNT,2,3 \?CCL26
	ICALL1	OMI-SAYS-LIE-DOWN
	RTRUE	
?CCL26:	CRLF	
	PRINTI	"""Omi-san says, to make an agreement and then not keep it is stupid.""Omi then removes your head."
	CRLF	
	ICALL1	JIGS-UP
	RETURN	M-FATAL
?CND3:	SET	'DELAY-CNT,0
	INC	'PIT-CNT
	EQUAL?	PIT-CNT,1 \?CCL29
	FIRST?	CAULDRON >TMP \?CND30
	FSET	TMP,DEAD
?CND30:	CRLF	
	PRINTR	"The screams begin when the moon is high, and cease just before first light."
?CCL29:	EQUAL?	PIT-CNT,2 \?CCL33
	REMOVE	SHORT-STRAW
	REMOVE	LONG-STRAW
	MOVE	OMI,TRAPDOOR
	MOVE	SEBASTIO,TRAPDOOR
	FSET	TRAPDOOR,OPENBIT
	MOVE	LADDER,PIT
	CRLF	
	PRINTR	"Finally, it is high noon.Everyone is nervous, tired and scared from listening to the screams.

There are footsteps above.The trapdoor opens and the ladder is lowered again.The priest stands there flanked by samurai.

""Pilot.You are to come up.You are to come up alone,"" he says."
?CCL33:	EQUAL?	PIT-CNT,3 \?CCL35
	SET	'ANSWER-HAI?,FALSE-VALUE
	FSET	CROOCQ,SCOREBIT
	SET	'QCONTEXT,OMI
	CRLF	
	PRINTI	"The priest says, ""Omi-san says that you will be given a bath.And food and drink.If you behave, you will not be put back into the pit.Your men will stay below.If you do not behave, another of your men will be taken up.There is plenty of firewood.""He pauses while Omi speaks to him at length.""Omi-san says you must obey.Do what you are told.Eat dung if need be.The Japanese for 'yes' is '"
	ICALL2	PRINTUNDER,STR?426
	PRINTR	".'  If you agree, say it directly to him."""
?CCL35:	EQUAL?	PIT-CNT,4 \?CCL37
	SET	'QCONTEXT,OMI
	CRLF	
	PRINTI	"""Omi-san says that "
	ZERO?	PISS-FLAG /?CCL40
	PRINTI	"he did not insult you personally, neither was there any cause for you to insult him.B"
	JUMP	?CND38
?CCL40:	PRINTC	98
?CND38:	PRINTI	"ecause you are a barbarian and know no better yet, you will not be killed.But you will be taught manners.""You see Omi hitch up his kimono.He pisses on your back."
	ZERO?	PISS-FLAG /?CND41
	PRINTI	"""Omi-san says, it is very bad manners to say you will piss on anyone.It is bad manners and very stupid to say you will piss on anyone when you are unarmed.It is very bad manners and even more stupid to say you will piss on anyone when you are unarmed, powerless, and not prepared to allow your friends or family or whomever to perish first."""
?CND41:	ICALL	REPLACE-SYNONYM,BLACKTHORNE,W?PILOT,W?ANJIN
	ICALL	REPLACE-SYNONYM,BLACKTHORNE,W?PILOT-MAJOR,W?ANJIN-SAN
	CRLF	
	CRLF	
	IN?	CROOCQ,CAULDRON \?CND43
	MOVE	CROOCQ,HERE
	PRINTI	"You watch the samurai remove the unconscious boy from the cauldron."
?CND43:	PRINTR	"By the Lord God, you swear, I will remember this day and somehow, somewhere, Omi will pay.

Omi adjusts his kimono and continues to speak in a casual way.The priest translates, ""Omi-san says that because no one can say the barbarous sounds of your name, you are to be called Anjin -- Pilot.He asks me to impress upon you that this is not intended as an insult.If you continue to behave, you will be called Anjin-san -- Mr. Pilot -- when you merit it."""
?CCL37:	EQUAL?	PIT-CNT,5 \FALSE
	SET	'QCONTEXT,OMI
	SET	'BATH-FLAG,TRUE-VALUE
	CRLF	
	PRINTI	"The priest translates.""Omi-san suggests that you take a bath.""He smirks contemptuously.""A barbarous custom.Once when you're born and once when you're laid out is good enough for us, but here they bathe constantly.Mura says there is a bath house over there.""He points to the north."
	CRLF	
	CALL2	DEQUEUE,I-TAKE-CROOCQ
	RSTACK	


	.FUNCT	CROOCQ-IN-CAULDRON:ANY:0:0
	INC	'CROOCQ-CNT
	EQUAL?	CROOCQ-CNT,1 \?CCL3
	MOVE	CROOCQ,CAULDRON
	CRLF	
	PRINTR	"Omi gives a quiet order.Instantly two samurai go down into the pit and bring out Croocq, the boy.They drag him over to the cauldron, truss him while others bring firewood and water.They put the petrified boy into the brimming cauldron and ignite the wood."
?CCL3:	EQUAL?	CROOCQ-CNT,2 \?CCL5
	CRLF	
	PRINTR	"The fire is beginning to warm the water, and a nauseating groan breaks from Croocq's mouth."
?CCL5:	EQUAL?	CROOCQ-CNT,3 \?CCL7
	CRLF	
	PRINTR	"Flames from the wooden fire set in the bricks below the grate lick the metal of the cauldron.More wood is put on."
?CCL7:	EQUAL?	CROOCQ-CNT,4 \?CCL9
	CRLF	
	PRINTR	"Croocq screams a thin, wailing scream, and then faints.A man with a pole pokes him until he revives."
?CCL9:	EQUAL?	CROOCQ-CNT,5 \?CCL11
	CRLF	
	PRINTR	"The boy begins begging, shouting, ""Pilot, don't let them boil me alive, Pilot!"""
?CCL11:	CRLF	
	PRINTI	"""Omi-san says he will train someone else,"" a nauseated-looking Sebastio tells you.You have only a moment to ruminate on that before he removes your head."
	CRLF	
	ICALL1	JIGS-UP
	RETURN	M-FATAL


	.FUNCT	OMI-SAYS-LIE-DOWN:ANY:0:0
	ICALL2	THIS-IS-IT,ORDERS
	CRLF	
	PRINTI	"""Omi-san says, "
	ZERO?	ANSWER-HAI? /?CCL3
	PRINTR	"lie down immediately!"""
?CCL3:	PRINTR	"you agree to behave?"""


	.FUNCT	CURSE-OMI:ANY:0:0
	ZERO?	PISS-FLAG \?CCL3
	SET	'PISS-FLAG,TRUE-VALUE
	PRINTR	"You lose your composure.""Tell him to go to hell.Tell him I piss on him and his whole country.Tell him exactly what I said!Exactly, by God!"" you yell at the priest.Omi listens, then the knuckles on his sword hand whiten.You can see he is trying not to give way to his emotions."
?CCL3:	PRINTR	"You continue to scream abuse at Omi."


	.FUNCT	BATH-HOUSE-F:ANY:0:1,RARG
	EQUAL?	RARG,M-LOOK \?CCL3
	PRINTR	"The bath house is dominated by a huge wooden tub, steaming with scalding water.You are reminded of the torture you have just seen, and shiver with fear."
?CCL3:	EQUAL?	RARG,M-ENTER \?CCL5
	IN?	MURA,BATH-HOUSE /TRUE
	MOVE	CROWD,BATH-HOUSE
	MOVE	ONNA,BATH-HOUSE
	MOVE	MURA,BATH-HOUSE
	ICALL	QUEUE,I-BATH,-1
	PRINTI	"You enter the bath house, followed by Mura, who keeps a close eye on you."
	CRLF	
	CRLF	
	RTRUE	
?CCL5:	EQUAL?	RARG,M-BEG \?CCL9
	EQUAL?	PRSA,V?WALK \?PRD16
	EQUAL?	P-WALK-DIR,P?SOUTH /?PRD14
?PRD16:	CALL1	HOSTILE-VERB?
	ZERO?	STACK /?CCL12
?PRD14:	IN?	BLACKTHORNE,BATHTUB /?CCL12
	PRINTR	"Mura moves to stop you, and you are thinking, ""How can this little man stop me?"", when, like a flash he seems to pull you toward him and over his shoulder in one fluid movement and you are sprawled gasping on the floor, out of breath.""So sorry, Captain-san,"" he says, in very bad Portuguese."
?CCL12:	IN?	PLAYER,HERE \?CCL20
	CALL1	TAKE-A-BATH?
	ZERO?	STACK /?CCL20
	ICALL	PERFORM,V?BOARD,BATHTUB
	RTRUE	
?CCL20:	EQUAL?	PRSA,V?BATHE \?CCL24
	ZERO?	PRSO /?CCL24
	FSET?	PRSO,PERSON \?CCL29
	FSET?	PRSO,PLURAL \?CCL32
	PRINT	STR?427
	CRLF	
	RTRUE	
?CCL32:	ICALL1	CTHE-PRINT-PRSO
	PRINT	STR?428
	ICALL2	PRINT-HIS/HER,PRSO
	PRINTR	" head."
?CCL29:	ICALL1	CTHE-PRINT-PRSO
	PRINT	STR?429
	CRLF	
	RTRUE	
?CCL24:	EQUAL?	PRSA,V?STRIP \?CCL34
	SET	'DELAY-CNT,0
	FSET?	BOOTS,WEARBIT /?CTR36
	FSET?	CLOTHES,WEARBIT \?CCL37
?CTR36:	FSET?	BOOTS,WEARBIT \?CND40
	ICALL	PERFORM,V?TAKE-OFF,BOOTS
	FSET?	CLOTHES,WEARBIT \?CND40
	CRLF	
?CND40:	FSET?	CLOTHES,WEARBIT \TRUE
	ICALL	PERFORM,V?TAKE-OFF,CLOTHES
	RTRUE	
?CCL37:	PRINTR	"You're naked."
?CCL34:	EQUAL?	PRSA,V?TAKE-OFF \?CCL47
	EQUAL?	PRSO,BOOTS \?CCL47
	FSET?	BOOTS,WEARBIT \?CCL47
	SET	'DELAY-CNT,0
	MOVE	BOOTS,WINNER
	FCLEAR	BOOTS,WEARBIT
	PRINTR	"You remove your boots.The old women watching cackle and nudge each other in the ribs."
?CCL47:	EQUAL?	PRSA,V?TAKE-OFF \?CCL52
	EQUAL?	PRSO,CLOTHES \?CCL52
	SET	'DELAY-CNT,0
	FSET?	BOOTS,WEARBIT \?CCL57
	PRINT	YOU-HAVE-TO
	PRINT	STR?161
	PRINTR	"your boots first.Your pants won't go over the boots."
?CCL57:	MOVE	CLOTHES,WINNER
	FCLEAR	CLOTHES,WEARBIT
	PRINTR	"You slowly remove your clothes, embarrassed by the audience.They don't even have the courtesy of looking the other way.The old women laugh and joke with each other.Finally, you are naked, covering yourself as best you can.One old crone claps her hands, and Mura says to you, with enormous gravity, ""Captain-san, Mother-san thank you, best she's ever seen, now die happy!"""
?CCL52:	EQUAL?	PRSA,V?BATHE \FALSE
	EQUAL?	PRSO,BOOTS,CLOTHES \FALSE
	PRINTR	"You should leave that to your hosts."
?CCL9:	EQUAL?	RARG,M-END \FALSE
	FSET?	BATHTUB,SCOREBIT /FALSE
	FSET	PIT,INVISIBLE
	CALL1	NEXT-SCENE
	RSTACK	


	.FUNCT	I-BATH:ANY:0:0
	INC	'DELAY-CNT
	ZERO?	BATH-CNT \?CND3
	FSET?	BOOTS,WEARBIT /?CTR6
	FSET?	CLOTHES,WEARBIT \?CCL7
?CTR6:	GRTR?	DELAY-CNT,5 \?CCL12
	SET	'DELAY-CNT,0
	FCLEAR	CLOTHES,WEARBIT
	FCLEAR	BOOTS,WEARBIT
	MOVE	CLOTHES,MURA
	MOVE	BOOTS,MURA
	CRLF	
	PRINTR	"Mura signals to some of the onlookers, and you are surrounded, overpowered, and stripped before you can even react.""So sorry, Anjin,"" says Mura."
?CCL12:	CRLF	
	PRINTI	"Mura pantomimes removing your clothes, saying """
	ICALL2	PRINTUNDER,STR?430
	PRINTR	""""
?CCL7:	CALL2	HELD?,CLOTHES
	ZERO?	STACK \?CTR13
	CALL2	HELD?,BOOTS
	ZERO?	STACK /?CCL14
?CTR13:	CRLF	
	PRINTI	"Mura points to your "
	CALL2	HELD?,CLOTHES
	ZERO?	STACK /?CCL19
	PRINTR	"clothes."
?CCL19:	PRINTR	"boots."
?CCL14:	IN?	BLACKTHORNE,BATHTUB /?CND3
	GRTR?	DELAY-CNT,3 \?CCL23
	CRLF	
	PRINTI	"Mura looks extremely annoyed.""Bath, please.Stinku.Bad.Like all Portuguese.""He chops you in the forearm, then calmly touches a nerve in your neck.There is blinding pain.""Please excuse me, Anjin,"" he says, bowing very low.""Bath very good.""Then they lower you into the scalding water."
	CRLF	
	ICALL1	NEXT-SCENE
	RTRUE	
?CCL23:	CRLF	
	PRINTR	"Mura points to the bathtub.""Please go there,"" he says in halting Portuguese."
?CND3:	SET	'DELAY-CNT,0
	INC	'BATH-CNT
	EQUAL?	BATH-CNT,1 \FALSE
	ICALL2	DEQUEUE,I-BATH
	RFALSE	


	.FUNCT	CROWD-F:ANY:0:1,RARG
	EQUAL?	RARG,M-WINNER \FALSE
	PRINTI	"They just giggle."
	CRLF	
	CALL1	END-QUOTE
	RSTACK	


	.FUNCT	CROWD-DESC:ANY:2:2,RARG,OBJ
	EQUAL?	RARG,M-OBJDESC? /TRUE
	PRINTI	"A crowd of villagers, old women and men, are sitting and standing around the tub.They seem intensely interested in the proceedings."
	RTRUE	


	.FUNCT	BATHTUB-F:ANY:0:1,RARG,RUIN
	EQUAL?	RARG,M-BEG \?CCL3
	EQUAL?	PRSA,V?WALK \?CCL6
	CALL2	YOULL-HAVE-TO,STR?431
	RSTACK	
?CCL6:	EQUAL?	PRSA,V?WEAR \?CCL8
	IN?	PRSO,BATHTUB /?CCL8
	PRINT	STR?432
	CRLF	
	RTRUE	
?CCL8:	EQUAL?	PRSA,V?LIE-DOWN,V?KNEEL \?CCL12
	PRINT	STR?433
	CRLF	
	RTRUE	
?CCL12:	EQUAL?	PRSA,V?LEAP,V?DIVE /?CTR13
	CALL1	TAKE-A-BATH?
	ZERO?	STACK /?CCL14
?CTR13:	PRINTI	"You splash some of the scalding water half-heartedly over yourself.The water is soapy and scented, and it washes away the filth.Three times you make them scour your back with the roughest stone and with pumice.You begin to feel cleaner, but your back still burns with shame.

Before long, even your hatred of Omi becomes a banked fire as the heat of the bath burns into you, relaxing every muscle and dissolving your fatigue."
	CRLF	
	CALL2	SCORE-OBJECT,BATHTUB
	RSTACK	
?CCL14:	EQUAL?	PRSA,V?EXIT \?CCL18
	EQUAL?	PRSO,GLOBAL-HERE \?CCL18
	ICALL2	PERFORM,V?DISEMBARK
	RTRUE	
?CCL18:	CALL2	OUTSIDE-TUB?,BATHTUB
	ZERO?	STACK /FALSE
	ICALL1	CTHE-PRINT-PRSO
	ICALL2	PRINT-IS/ARE,PRSO
	PRINT	STR?434
	CRLF	
	RTRUE	
?CCL3:	EQUAL?	RARG,FALSE-VALUE \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL27
	CALL	NOUN-USED?,PRSO,W?WATER
	ZERO?	STACK /?CCL30
	PRINTR	"It's very hot, and very clean."
?CCL30:	PRINT	STR?435
	CRLF	
	RTRUE	
?CCL27:	EQUAL?	PRSA,V?TAKE,V?MOVE \?CCL32
	EQUAL?	PRSO,BATHTUB \?CCL32
	EQUAL?	P-PRSA-WORD,W?TAKE \?CCL37
	CALL	NOUN-USED?,PRSO,W?BATH
	ZERO?	STACK /?CCL37
	ICALL	PERFORM,V?BATHE,ME
	RTRUE	
?CCL37:	PRINT	STR?436
	CRLF	
	RTRUE	
?CCL32:	EQUAL?	PRSA,V?POUR \?CCL41
	PRINT	STR?437
	CRLF	
	RTRUE	
?CCL41:	EQUAL?	PRSA,V?CLIMB-FOO,V?BOARD,V?ENTER \?CCL43
	CALL2	RUINABLE?,WINNER >RUIN
	ZERO?	RUIN /?CCL46
	ICALL2	MURA-STOPS-YOU,RUIN
	FSET?	RUIN,WEARBIT \?CCL49
	PRINTR	"He pantomimes removing them, and the old women giggle and make loud remarks to him."
?CCL49:	CRLF	
	RTRUE	
?CCL46:	MOVE	WINNER,BATHTUB
	PRINT	STR?438
	CRLF	
	RTRUE	
?CCL43:	EQUAL?	PRSA,V?PUT,V?THROW \?CCL51
	EQUAL?	PRSI,BATHTUB \?CCL51
	CALL2	HELD?,PRSO
	ZERO?	STACK /?CCL51
	FSET?	PRSO,WEARABLE \?CCL51
	ICALL2	MURA-STOPS-YOU,PRSO
	CRLF	
	RTRUE	
?CCL51:	EQUAL?	PRSA,V?DRINK,V?TASTE \FALSE
	PRINT	STR?439
	CRLF	
	RTRUE	


	.FUNCT	TAKE-A-BATH?:ANY:0:0
	EQUAL?	PRSA,V?BATHE \?PRD3
	EQUAL?	PRSO,FALSE-VALUE,ME /TRUE
?PRD3:	EQUAL?	PRSA,V?TAKE \FALSE
	EQUAL?	PRSO,BATHTUB,YOKOSE-BATHTUB \FALSE
	CALL	NOUN-USED?,PRSO,W?BATH
	RSTACK	


	.FUNCT	RUINABLE?:ANY:1:1,WHO,WEAR
	IN?	BOOTS,WHO \?CCL3
	FSET?	BOOTS,WEARBIT \?CCL3
	RETURN	BOOTS
?CCL3:	IN?	CLOTHES,WHO \?CCL7
	FSET?	CLOTHES,WEARBIT \?CCL7
	RETURN	CLOTHES
?CCL7:	FIRST?	WHO >WEAR /?PRG11
?PRG11:	ZERO?	WEAR /FALSE
	EQUAL?	WEAR,LONG-STRAW,SHORT-STRAW /?CCL17
	RETURN	WEAR
?CCL17:	NEXT?	WEAR >WEAR /?PRG11
	JUMP	?PRG11


	.FUNCT	MURA-STOPS-YOU:ANY:1:1,OBJ
	PRINTD	MURA
	ICALL2	THIS-IS-IT,MURA
	FSET?	OBJ,WEARBIT /?CCL3
	PRINTI	" offers to take "
	JUMP	?CND1
?CCL3:	PRINTI	", whose grip is surprisingly strong, stops you before you ruin "
?CND1:	ICALL2	DPRINT,OBJ
	PRINTC	46
	RTRUE	


	.FUNCT	PIT-AFTER-F:ANY:0:0
	PRINTI	"Yabu and Omi are sitting sipping "
	ICALL2	PRINTUNDER,STR?440
	PRINTR	" -- tea -- with all the ceremony Omi's mother can command.""Where did you learn so much about the barbarian mind?"" he asks Omi.

""When I was fourteen I had a teacher who had been a Christian priest.He said that Christians were vulnerable because they were taught that all people should 'love' one another, and that life was sacred.These new barbarians are just a different sect.I thought we could control the leader by taking the life or threatening to take the life of one of his men.""Omi avoids mentioning the torture death, the befouled death, reining in his disgust.

""Is the barbarian broken for good?"" asks Yabu.""Is it temporary or permanent?""

""Temporary,"" Omi answers hesitantly.""Only temporary, Lord."""

	.ENDSEG

	.SEGMENT "RODRIGUES"


	.FUNCT	SLAVER-DESC:ANY:2:2,RARG,OBJ
	EQUAL?	RARG,M-OBJDESC? /TRUE
	PRINTI	"A sixty-oared galley is anchored off of one of the jetties."
	RTRUE	


	.FUNCT	SLAVER-F:ANY:0:1,RARG
	EQUAL?	PRSA,V?EXAMINE \?CCL3
	PRINTR	"This is a sixty-oared galley, thirty oars a side, neat and trim, the oars stacked with care, ready for instant departure."
?CCL3:	EQUAL?	PRSA,V?BOARD,V?WALK-TO \FALSE
	IN?	RODRIGUES,HERE \?CCL8
	PRINTR	"""No need, Ingeles, the galley isn't ready to leave.There's time.""You are startled.Minutes ago they were herding you aboard.What does this man want from you?"
?CCL8:	PRINTR	"You move to board the galley, but you can't give yourself up to slavery.What of the promise they made, that if you behaved they would treat you well?Are they betraying it now?"


	.FUNCT	I-MEET-RODRIGUES:ANY:0:0
	INC	'DELAY-CNT
	EQUAL?	MEET-CNT,4 \?CCL5
	EQUAL?	RODRIGUES-QUESTION,1 \?CND3
	GRTR?	DELAY-CNT,3 \?CCL10
	ICALL1	DIE-IN-STORM
	RETURN	M-FATAL
?CCL10:	CRLF	
	PRINTR	"""Well, are you the pilot or no?I'm trying to help you, you fool!"""
?CCL5:	EQUAL?	MEET-CNT,5 \?CCL12
	EQUAL?	RODRIGUES-QUESTION,2 \?CND3
	GRTR?	DELAY-CNT,3 \?CCL17
	ICALL1	DIE-IN-STORM
	RETURN	M-FATAL
?CCL17:	CRLF	
	PRINTR	"""All you Ingeles pilots come out of the same nest of pirates!If you're really one, you'll know, so tell!Where did you train?"""
?CCL12:	EQUAL?	MEET-CNT,6 \?CCL19
	EQUAL?	RODRIGUES-QUESTION,3 \?CND3
	GRTR?	DELAY-CNT,3 \?CCL24
	ICALL1	DIE-IN-STORM
	RETURN	M-FATAL
?CCL24:	CRLF	
	PRINTR	"""Well, are you a pilot or no?I'm trying to help you, you fool!What's the latitude of The Lizard?"""
?CCL19:	EQUAL?	MEET-CNT,7 \?CCL26
	FSET?	LG-ERASMUS,SCOREBIT \?CND3
	GRTR?	DELAY-CNT,3 \FALSE
	CRLF	
	ICALL2	LETS-GO-ABOARD,FALSE-VALUE
	FCLEAR	LG-ERASMUS,SCOREBIT
	RTRUE	
?CCL26:	EQUAL?	MEET-CNT,8 \?CCL33
	IN?	BLACKTHORNE,SMALL-BOAT /?CND3
	GRTR?	DELAY-CNT,3 \?CCL38
	ICALL1	DIE-IN-STORM
	RTRUE	
?CCL38:	CRLF	
	PRINTI	"""Hurry, hurry!Get in the boat!Hurry up!"""
	ICALL2	CTHE-PRINT,RODRIGUES
	PRINTR	" continues his dominating abuse of the astonished samurai."
?CCL33:	EQUAL?	MEET-CNT,13 \?CCL40
	EQUAL?	HERE,ON-DECK /?CND3
	GRTR?	DELAY-CNT,3 \?CCL45
	ICALL2	JIGS-UP,STR?441
	RETURN	M-FATAL
?CCL45:	IN?	PLAYER,SMALL-BOAT \?CCL47
	CRLF	
	PRINTI	"""Come on, Ingeles!Hurry!"""
	ICALL2	CTHE-PRINT,RODRIGUES
	PRINTR	" continues his half-obsequious, half-insulting banter with the suspicious samurai.""I can't keep this up, we can't give them time to think!"""
?CCL47:	CRLF	
	PRINTI	"The last you hear from "
	ICALL2	CTHE-PRINT,RODRIGUES
	PRINTR	" is a volley of blistering curses."
?CCL40:	EQUAL?	MEET-CNT,14 \?CCL49
	EQUAL?	HERE,PASSAGEWAY /?CND3
	GRTR?	DELAY-CNT,3 \?CCL54
	ICALL1	DIE-IN-STORM
	RETURN	M-FATAL
?CCL54:	EQUAL?	HERE,ON-DECK,CAPTAINS-CABIN,MATES-CABIN \?CCL56
	CRLF	
	PRINTR	"Rodrigues yells back to you, ""If you value your life, Ingeles, follow me!"""
?CCL56:	ICALL1	HEAR-RODRIGUES
	RTRUE	
?CCL49:	EQUAL?	MEET-CNT,15 \?CND3
	EQUAL?	HERE,PILOTS-CABIN /?CND3
	GRTR?	DELAY-CNT,3 \?CCL62
	ICALL1	DIE-IN-STORM
	RETURN	M-FATAL
?CCL62:	EQUAL?	HERE,PASSAGEWAY,MATES-CABIN,CAPTAINS-CABIN \?CCL64
	ICALL1	DONT-BE-STUPID
	RTRUE	
?CCL64:	ICALL1	HEAR-RODRIGUES
	RTRUE	
?CND3:	SET	'DELAY-CNT,0
	INC	'MEET-CNT
	EQUAL?	MEET-CNT,1 \?CCL67
	FCLEAR	BRIDGE-OF-ERASMUS,TOUCHBIT
	FCLEAR	ON-DECK,TOUCHBIT
	FCLEAR	PASSAGEWAY,TOUCHBIT
	FCLEAR	PILOTS-CABIN,TOUCHBIT
	CRLF	
	PRINTR	"You can see that even Omi and Yabu are deferring to the old man.He has evidently come from the slave galley.

You shiver involuntarily.The last time you saw a slave galley was two years ago when the fleet was outward bound off the Gold Coast.You've always had a mortal fear of being taken alive and made a galley slave -- not an unusual fate for a captured seaman."
?CCL67:	EQUAL?	MEET-CNT,2 \?CCL69
	SET	'QCONTEXT,MURA
	SET	'OPPONENT,MURA
	CRLF	
	PRINTR	"Omi kneels before the old man, and you do the same, bowing exactly as low as Omi.Now there is a discussion among Omi, the old man and Yabu.Yabu speaks to Mura.

Mura points at the galley.""Anjin-san.Please go there."""
?CCL69:	EQUAL?	MEET-CNT,3 \?CCL71
	SET	'QCONTEXT,OMI
	MOVE	MURA-ROPE,MURA
	ICALL2	THIS-IS-IT,ARCHERS
	CRLF	
	PRINTC	34
	ICALL2	PRINTUNDER,STR?442
	PRINTR	""" Omi commands, waving you toward the galley.

When you still don't move, there is an immediate order from Omi and four samurai fall on you and pinion your arms.Mura produces a rope and begins to bind your hands."
?CCL71:	EQUAL?	MEET-CNT,4 \?CCL73
	MOVE	RODRIGUES,ANJIRO-WATERFRONT
	SET	'QCONTEXT,RODRIGUES
	SET	'RODRIGUES-QUESTION,1
	CRLF	
	PRINTI	"""Madonna!Leave him alone!Hey, let that bastard alone!"
	ICALL2	PRINTUNDER,STR?443
	PRINTR	"  Is he the pilot?The Anjin?""

You can scarcely believe your ears.The boisterous abuse in Portuguese comes from the deck of the galley.Then you see a man start down the gangway, a Portuguese seaman!

""Are you the pilot?The pilot of the Dutchman?"""
?CCL73:	EQUAL?	MEET-CNT,5 \?CCL75
	SET	'RODRIGUES-QUESTION,2
	SET	'QCONTEXT,RODRIGUES
	ICALL2	SETUP-ANSWER,STR?444
	CRLF	
	PRINTR	"""Now tell me where you trained as a pilot?"""
?CCL75:	EQUAL?	MEET-CNT,6 \?CCL77
	SET	'RODRIGUES-QUESTION,3
	SET	'QCONTEXT,RODRIGUES
	ICALL2	SETUP-ANSWER,STR?445
	CRLF	
	PRINTR	"""Maybe you are a pilot!Now, what's the latitude of The Lizard?"""
?CCL77:	EQUAL?	MEET-CNT,7 \?CCL79
	CRLF	
	PRINTI	"""All right, Ingeles!"""
	ICALL2	THE-PRINT,RODRIGUES
	PRINTR	" looks out into the harbor.""She's got good lines, your ship.Madonna, she'd be fast, very fast.Very rough to deal with."""
?CCL79:	EQUAL?	MEET-CNT,8 \?CCL81
	CRLF	
	PRINTI	"Rodrigues yells to the surprised samurai, ""You don't have to worry about him, Captain-san, I'm responsible.Me, Rodrigu-san, "
	ICALL2	PRINTUNDER,STR?446
	PRINTI	" Anjin-san, by the Virgin!"
	ICALL2	PRINTUNDER,STR?447
	PRINTR	""""
?CCL81:	EQUAL?	MEET-CNT,9 \?CCL83
	MOVE	BOAT-OAR,RODRIGUES
	SET	'OPPONENT,ARCHERS
	CRLF	
	ICALL2	CTHE-PRINT,RODRIGUES
	PRINTI	" grabs the oars and shoves off with great skill.The captain samurai calls out, unmistakably beckoning you to come back."
	ICALL2	CTHE-PRINT,RODRIGUES
	PRINTI	" points to the "
	ICALL2	PRINTUNDER,STR?448
	PRINTI	"  ""Just go there,"" he shouts.""Tell me if the archers put arrows in their bows, Ingeles!"""
	CRLF	
	CRLF	
	CALL2	GOTO,ANJIRO-HARBOR
	RSTACK	
?CCL83:	EQUAL?	MEET-CNT,10 \?CCL85
	FSET	ARCHERS,RMUNGBIT
	CRLF	
	ICALL2	CTHE-PRINT,RODRIGUES
	PRINTI	" rows toward the "
	ICALL2	PRINTUNDER,STR?7
	PRINTR	", pushing against the oars in Japanese fashion while standing amidships."
?CCL85:	EQUAL?	MEET-CNT,11 \?CCL87
	CRLF	
	ICALL2	CTHE-PRINT,RODRIGUES
	PRINTI	" continues to row toward the "
	ICALL2	PRINTUNDER,STR?7
	PRINTR	"."
?CCL87:	EQUAL?	MEET-CNT,12 \?CCL89
	FSET?	ARCHERS,SCOREBIT \?CCL92
	CRLF	
	ICALL2	JIGS-UP,STR?449
	RETURN	M-FATAL
?CCL92:	CRLF	
	PRINTI	"You are at the "
	ICALL2	PRINTUNDER,STR?7
	PRINTI	"."
	ICALL2	CTHE-PRINT,RODRIGUES
	PRINTI	" ships the oars under the watchful eyes of the samurai on board."
	CRLF	
	CRLF	
	CALL2	GOTO,AT-ERASMUS
	RSTACK	
?CCL89:	EQUAL?	MEET-CNT,13 \?CCL94
	MOVE	BOAT-OAR,SMALL-BOAT
	MOVE	RODRIGUES,ON-DECK
	CRLF	
	ICALL2	CTHE-PRINT,RODRIGUES
	PRINTI	" vaults onto the deck."""
	ICALL2	PRINTUNDER,STR?450
	PRINTI	" to all sod-eating samas!"" he bellows, bowing like a courtier."
	EQUAL?	HERE,ON-DECK \?CCL97
	PRINTC	11
	CALL1	SEALED-PASSAGE
	RSTACK	
?CCL97:	CRLF	
	RTRUE	
?CCL94:	EQUAL?	MEET-CNT,14 \?CCL99
	MOVE	RODRIGUES,PASSAGEWAY
	EQUAL?	HERE,ON-DECK,PASSAGEWAY \FALSE
	FSET	PASSAGE-DOOR,OPENBIT
	ICALL	NEW-SDESC,HIRO-MATSU,STR?279
	FCLEAR	HIRO-MATSU,AN
	CRLF	
	PRINTC	34
	ICALL2	PRINTUNDER,STR?451
	PRINTI	" eh?"" Rodrigues says, unimpressed.""I'm from Toda Hiro-matsu-sama, who's a bigger king than your bugger and Toady-sama's from Toranaga-sama, who's the biggest bugger-sama in this whole world."
	ICALL2	PRINTUNDER,STR?273
	PRINTI	"""He rips the seal off the door, and drops a hand to one of his pistols.

""Toranaga-sama!"" he yells."""
	ICALL2	PRINTUNDER,STR?447
	PRINTI	"""The samurai hesitate, swords ready."
	ICALL2	CTHE-PRINT,RODRIGUES
	PRINTI	" crashes his foot against the door, the latch snaps, and the door bursts open."""
	ICALL2	PRINTUNDER,STR?452
	PRINTI	"""

""Wakarimasu, Anjin-san."" The samurai quickly put their swords away, and "
	ICALL2	THE-PRINT,RODRIGUES
	PRINTR	" says hoarsely, ""That's better,"" and leads the way aft."
?CCL99:	EQUAL?	MEET-CNT,15 \?CCL104
	MOVE	RODRIGUES,PILOTS-CABIN
	FSET	PILOTS-CABIN-DOOR,OPENBIT
	EQUAL?	HERE,PILOTS-CABIN \?CCL107
	CRLF	
	PRINTR	"""This must be your cabin, eh?"" says Rodrigues and follows you inside."
?CCL107:	EQUAL?	HERE,PASSAGEWAY \?CCL109
	CRLF	
	PRINTI	"""Which is your cabin?"" asks "
	ICALL2	THE-PRINT,RODRIGUES
	PRINTR	", and when you point it out he enters.The door was unlocked."
?CCL109:	EQUAL?	HERE,ON-DECK,MATES-CABIN,CAPTAINS-CABIN /?CCL111
	EQUAL?	HERE,BELOW-DECKS \FALSE
?CCL111:	CALL1	DONT-BE-STUPID
	RSTACK	
?CCL104:	EQUAL?	MEET-CNT,16 \FALSE
	SET	'QCONTEXT,RODRIGUES
	CRLF	
	PRINTI	"""Where are they?"" "
	ICALL2	THE-PRINT,RODRIGUES
	PRINTI	" asks.""Your rutters.Where are your rutters?No pilot would worry about clothes, you came for the rutters, didn't you?Why do you think I came aboard?I was here two or three hours ago, and searched for them, but found nothing!The Portuguese rutter -- it had to be Portuguese!Where is it?""

""Stolen.They're stolen!""It's all you can say."
	CRLF	
	CRLF	
	SET	'QCONTEXT,FALSE-VALUE
	CALL1	NEXT-SCENE
	RSTACK	


	.FUNCT	LETS-GO-ABOARD:ANY:1:1,YOU?
	PRINTI	"""Ah, Ingeles, let's go aboard.I'd like see what she's like.Come on, get in the boat."""
	CRLF	
	ZERO?	YOU? \?CND1
	CRLF	
	PRINTI	"""Good idea. I'd like to retrieve my clothes,"" you say, trying to not mention your rutters."
	CRLF	
?CND1:	MOVE	RODRIGUES,SMALL-BOAT
	CRLF	
	PRINTR	"He points to a small boat pulled up on the beach, and jumps in."


	.FUNCT	HEAR-RODRIGUES:ANY:0:0
	CRLF	
	PRINTR	"You hear Rodrigues calling for you, scorching the air with invective."


	.FUNCT	DIE-IN-STORM:ANY:0:0
	CRLF	
	ICALL2	JIGS-UP,STR?453
	RETURN	M-FATAL


	.FUNCT	SEALED-PASSAGE:ANY:0:0
	PRINTI	"Rodrigues heads immediately for the sealed passage."""
	ICALL2	PRINTUNDER,STR?454
	PRINTR	""" says one of the samurai."


	.FUNCT	DONT-BE-STUPID:ANY:0:0
	CRLF	
	PRINTR	"""Get in here, we haven't much time!These buggers are going to start wondering what we're doing!"" says Rodrigues."


	.FUNCT	LEAVE-ANJIRO-AFTER-F:ANY:0:0
	PRINTR	"Omi and the others waited on the jetty until the galley rounded the headland and vanished.He then returned to the pit, summoning the priest.

""Priest, tell the barbarians they are to come up, one by one.Lord Yabu has said they may live again in the world of men.But the smallest breaking of a rule, and two will be put back into the pit.They are to behave and obey all orders."""

	.ENDSEG

	.ENDI