things.zap

	.FUNCT	HANDLE-SIGNS?,X
	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	PRINTR	"Signs are for reading."


	.FUNCT	BILLBOARD-PSEUDO
	FSET	PSEUDO-OBJECT,TRYTAKE
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?READ,V?LOOK-ON \?CCL5
	PRINT	STR?744
	ICALL1	FROTZEN-SIGN
	RTRUE	
?CCL5:	CALL1	HANDLE-SIGNS?
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	FROTZEN-SIGN
	PRINTI	" says,"
	CRLF	
	CRLF	
	HLIGHT	H-MONO
	EQUAL?	HOST,MACINTOSH /?CND1
	HLIGHT	H-BOLD
?CND1:	PRINTI	"WELCOME TO THE FIELDS OF FROTZEN"
	CRLF	
	HLIGHT	H-NORMAL
	HLIGHT	H-MONO
	PRINTI	" Last sign for next 120 bloits."
	CRLF	
	HLIGHT	H-NORMAL
	RTRUE	


	.FUNCT	SUN-F,X
	FSET?	HERE,INDOORS /?CTR2
	CALL1	PLAIN-ROOM?
	ZERO?	STACK \?CTR2
	EQUAL?	HERE,NE-WALL \?CCL3
?CTR2:	ICALL2	NOT-VISIBLE,SUN
	RETURN	2
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE \?CCL10
	ICALL1	CTHE-PRINT
	PRINTI	" is as bright as ever"
	EQUAL?	HERE,XROADS,ON-PIKE \?CND11
	PRINTI	", except to the "
	EQUAL?	HERE,ON-PIKE \?CCL15
	PRINTB	W?WEST
	JUMP	?CND11
?CCL15:	PRINTB	W?EAST
?CND11:	PRINT	PERIOD
	RTRUE	
?CCL10:	EQUAL?	PRSA,V?FOLLOW \?CCL17
	ICALL2	DO-WALK,P?SOUTH
	RTRUE	
?CCL17:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X /?CTR18
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X /?CTR18
	EQUAL?	PRSA,V?LOOK-BEHIND \FALSE
?CTR18:	ICALL1	IMPOSSIBLE
	RTRUE	


	.FUNCT	NOT-VISIBLE,OBJ
	ICALL1	PCLEAR
	ICALL2	CTHE-PRINT,OBJ
	PRINTI	" isn't visible"
	PRINT	AT-MOMENT
	RTRUE	


	.FUNCT	SKY-F,X
	FSET?	HERE,INDOORS \?CCL3
	ICALL2	NOT-VISIBLE,SKY
	RETURN	2
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE,V?LOOK-UP /?CTR6
	EQUAL?	PRSA,V?SEARCH \?CCL7
?CTR6:	EQUAL?	HERE,IN-SKY \?CND10
	ICALL1	V-LOOK
	RTRUE	
?CND10:	ICALL	PERFORM,V?EXAMINE,SUN
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?FLY-UP,V?WALK-TO,V?ENTER /?CTR12
	EQUAL?	PRSA,V?THROUGH,V?CLIMB-ON,V?CLIMB-UP \?CCL13
?CTR12:	ICALL1	V-FLY
	RTRUE	
?CCL13:	EQUAL?	PRSA,V?EXIT,V?FLY-DOWN,V?CLIMB-DOWN /?CTR16
	EQUAL?	PRSA,V?LEAVE,V?CLIMB-DOWN \?CCL17
?CTR16:	ICALL1	V-LAND
	RTRUE	
?CCL17:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X /?CTR20
	EQUAL?	PRSA,V?LOOK-BEHIND,V?LAND-ON \FALSE
?CTR20:	ICALL1	IMPOSSIBLE
	RTRUE	


	.FUNCT	BREEZE-F,X
	FSET	BREEZE,SEEN
	FSET?	HERE,INDOORS /?CTR2
	EQUAL?	HERE,APLANE,IN-GARDEN,IN-FROON /?CTR2
	EQUAL?	HERE,IN-SPLENDOR \?CCL3
?CTR2:	PRINTI	"There's no wind here to speak of."
	CRLF	
	RETURN	2
?CCL3:	INTBL?	PRSA,SEEVERBS,NSVERBS >X \?CCL10
	PRINTR	"Wind is transparent."
?CCL10:	EQUAL?	PRSA,V?TOUCH \?CCL12
	ICALL2	CTHE-PRINT,BREEZE
	PRINTR	" feels cool and fresh."
?CCL12:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X /?CTR13
	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL14
?CTR13:	ICALL1	V-WALK-AROUND
	RTRUE	
?CCL14:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL1	IMPOSSIBLE
	RTRUE	


	.FUNCT	PACK-F
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?PUT,V?EMPTY-INTO \FALSE
	EQUAL?	PRSO,RUG \?CCL8
	ICALL1	NEVER-FIT
	RTRUE	
?CCL8:	EQUAL?	PRSO,PARASOL \FALSE
	FSET?	PRSO,OPENED \FALSE
	ICALL2	YOUD-HAVE-TO,STR?536
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH \?CCL13
	ICALL2	ITS-ALREADY,STR?518
	RTRUE	
?CCL13:	EQUAL?	PRSA,V?CLOSE \FALSE
	PRINTR	"It's not that type of pack."


	.FUNCT	CELLAR-DOOR-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?LOOK-BEHIND \?CCL5
	FSET?	PRSO,MUNGED \?CCL5
	ICALL2	ITS-MUNGED,W?DOOR
	RTRUE	
?CCL5:	EQUAL?	PRSA,V?CLOSE \?CCL9
	FSET?	PRSO,MUNGED \?CCL12
	ICALL2	ITS-MUNGED,W?DOOR
	RTRUE	
?CCL12:	FSET?	PRSO,OPENED \FALSE
	ICALL1	ICLOSE
	PRINTI	"You pull "
	ICALL1	THE-PRINT
	PRINTI	" shut."
	CRLF	
	EQUAL?	HERE,AT-BOTTOM \TRUE
	FCLEAR	HERE,LIGHTED
	ICALL1	SAY-IF-HERE-LIT
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH \?CCL17
	FSET?	PRSO,MUNGED \?CCL20
	ICALL2	ITS-MUNGED,W?DOOR
	RTRUE	
?CCL20:	FSET?	PRSO,OPENED /FALSE
	EQUAL?	HERE,AT-BOTTOM \?CCL24
	FSET?	PRSO,LOCKED /?CCL24
	ICALL1	LOCK-CELLAR-DOOR
	RTRUE	
?CCL24:	ZERO?	PRSI /FALSE
	EQUAL?	PRSA,V?OPEN-WITH \FALSE
	ICALL2	CRASH-CELLAR-DOOR,PRSI
	RTRUE	
?CCL17:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X /?CTR30
	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL31
?CTR30:	EQUAL?	HERE,AT-BOTTOM \?CND34
	ICALL2	DO-WALK,P?UP
	RTRUE	
?CND34:	ICALL2	DO-WALK,P?DOWN
	RTRUE	
?CCL31:	EQUAL?	PRSA,V?KICK,V?HIT,V?MUNG /?CTR36
	EQUAL?	PRSA,V?LOOSEN,V?PUSH,V?SHAKE /?CTR36
	EQUAL?	PRSA,V?CUT,V?KNOCK \FALSE
?CTR36:	FSET?	PRSO,MUNGED \?CCL43
	ICALL2	ITS-ALREADY,STR?745
	RTRUE	
?CCL43:	FSET?	PRSO,OPENED \?CCL45
	ICALL2	ITS-ALREADY,STR?518
	RTRUE	
?CCL45:	EQUAL?	PRSA,V?KNOCK \?CND41
	EQUAL?	HERE,AT-BOTTOM \?CND47
	PRINT	YOU-HEAR
	PRINTR	"a muffled ""Har!"""
?CND47:	PRINTI	"""Nobody down there,"" snickers "
	ICALL2	THE-PRINT,COOK
	PRINT	PERIOD
	RTRUE	
?CND41:	SET	'X,PRSI
	EQUAL?	PRSA,V?KICK \?CND49
	SET	'X,FEET
?CND49:	ICALL2	CRASH-CELLAR-DOOR,X
	RTRUE	


	.FUNCT	ITS-MUNGED,WRD
	PRINTI	"Little remains of the "
	PRINTB	WRD
	PRINT	PERIOD
	RTRUE	


	.FUNCT	CRASH-CELLAR-DOOR,OBJ,TBL
	ASSIGNED?	'OBJ /?CND1
	SET	'OBJ,HANDS
?CND1:	ICALL2	ITALICIZE,STR?746
	PRINTI	"! Your "
	EQUAL?	OBJ,FALSE-VALUE,HANDS,ME \?CCL5
	PRINTB	W?FIST
	JUMP	?CND3
?CCL5:	EQUAL?	OBJ,FEET \?CCL7
	PRINTB	W?FOOT
	JUMP	?CND3
?CCL7:	ICALL2	DPRINT,OBJ
?CND3:	PRINTI	" deals "
	ICALL2	THE-PRINT,CELLAR-DOOR
	PRINTI	" a mighty blow"
	GET	STATS,STRENGTH
	LESS?	STACK,50 \?CND8
	ICALL1	NOTE-NOISE
	RTRUE	
?CND8:	FSET	CELLAR-DOOR,OPENED
	FCLEAR	CELLAR-DOOR,LOCKED
	FSET	CELLAR-DOOR,MUNGED
	FSET	AT-BOTTOM,LIGHTED
	GETPT	CELLAR-DOOR,P?SYNONYM >TBL
	PUT	TBL,2,W?HOLE
	PUT	TBL,3,W?OPENING
	GETP	AT-BOTTOM,P?UP >TBL
	PUT	TBL,XTYPE,513
	PUT	TBL,XROOM,IN-KITCHEN
	GETP	IN-KITCHEN,P?DOWN >TBL
	PUT	TBL,XTYPE,513
	PUT	TBL,XROOM,AT-BOTTOM
	GETP	IN-KITCHEN,P?IN >TBL
	PUT	TBL,XTYPE,513
	PUT	TBL,XROOM,AT-BOTTOM
	PRINTI	", shattering it and much of "
	ICALL2	THE-PRINT,KITCHEN
	PRINTI	" wall into splinters"
	ICALL1	RELOOK
	PRINT	TAB
	PRINTI	"""Yow,"" murmurs "
	EQUAL?	HERE,AT-BOTTOM \?CND10
	PRINTR	"an admiring voice upstairs."
?CND10:	FSET	COOK,SEEN
	ICALL2	THE-PRINT,COOK
	PRINTR	", gawking at you admiringly."


	.FUNCT	NOTE-NOISE
	PRINTR	", with little effect except for the noise."


	.FUNCT	CELLAR-STAIR-F,X
	FSET?	CELLAR-DOOR,OPENED /?CCL3
	EQUAL?	HERE,IN-KITCHEN \?CCL3
	ICALL1	CANT-SEE-ANY
	RETURN	2
?CCL3:	EQUAL?	HERE,IN-KITCHEN /?CND1
	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CND1
	FSET?	CELLAR-DOOR,OPENED \?CND10
	ICALL2	DO-WALK,P?UP
	RTRUE	
?CND10:	SET	'P-IT-OBJECT,CELLAR-DOOR
	ICALL2	CTHE-PRINT,CELLAR-DOOR
	PRINTR	" at the top is closed."
?CND1:	CALL2	HANDLE-STAIRS?,IN-KITCHEN
	RSTACK	


	.FUNCT	MIGHT-TRIP?
	EQUAL?	PRSA,V?PUT,V?PUT-ON,V?EMPTY-INTO /?CCL2
	EQUAL?	PRSA,V?THROW,V?THROW-OVER \FALSE
?CCL2:	PRINTI	"Better not. You might trip on "
	FSET?	PRSO,PLURAL \?CCL7
	PRINTI	"them"
	JUMP	?CND5
?CCL7:	PRINTI	"it"
?CND5:	PRINTR	" later."


	.FUNCT	HANDLE-STAIRS?,TOP,X
	EQUAL?	HERE,TOP /?CND1
	SET	'TOP,FALSE-VALUE
?CND1:	ZERO?	NOW-PRSI? /?CCL5
	CALL1	MIGHT-TRIP?
	ZERO?	STACK /FALSE
	RTRUE	
?CCL5:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL9
	ICALL1	CTHE-PRINT
	PRINTI	" leads "
	ZERO?	TOP /?CCL12
	PRINTI	"down"
	JUMP	?CND10
?CCL12:	PRINTI	"up"
?CND10:	PRINTR	"ward."
?CCL9:	EQUAL?	PRSA,V?LOOK-UP \?CCL14
	ZERO?	TOP /?CND15
	ICALL1	ALREADY-AT-TOP
	RTRUE	
?CND15:	ICALL1	CANT-SEE-MUCH
	RTRUE	
?CCL14:	EQUAL?	PRSA,V?LOOK-DOWN \?CCL18
	ZERO?	TOP /?CND19
	ICALL1	CANT-SEE-MUCH
	RTRUE	
?CND19:	ICALL1	ALREADY-AT-BOTTOM
	RTRUE	
?CCL18:	EQUAL?	PRSA,V?FOLLOW,V?USE \?CCL22
	ZERO?	TOP /?CND23
	ICALL2	DO-WALK,P?DOWN
	RTRUE	
?CND23:	ICALL2	DO-WALK,P?UP
	RTRUE	
?CCL22:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL26
	ZERO?	TOP /?CND27
	ICALL1	ALREADY-AT-TOP
	RTRUE	
?CND27:	ICALL2	DO-WALK,P?UP
	RTRUE	
?CCL26:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \FALSE
	ZERO?	TOP /?CND31
	ICALL2	DO-WALK,P?DOWN
	RTRUE	
?CND31:	ICALL1	ALREADY-AT-BOTTOM
	RTRUE	


	.FUNCT	PUB-F,X
	EQUAL?	HERE,IN-PUB \?CCL3
	CALL1	HERE-F
	ZERO?	STACK \TRUE
?CCL3:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL7
	ICALL2	DO-WALK,P?IN
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?EXAMINE \?CCL9
	EQUAL?	HERE,OUTSIDE-PUB \?CND10
	ICALL1	DESCRIBE-PUB-SIGN
	RTRUE	
?CND10:	ICALL1	V-LOOK
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?SMELL \?CCL13
	PRINTR	"Mouthwatering aromas hang in the air."
?CCL13:	EQUAL?	PRSA,V?LISTEN \FALSE
	PRINTI	"Raucous laughter"
	PRINT	STR?596
	PRINT	PERIOD
	RTRUE	


	.FUNCT	PUB-SIGN-F,X
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?PUT-ON,V?HANG-ON,V?EMPTY-INTO \?CCL6
	EQUAL?	PRSO,LANTERN,PARASOL \?CCL9
	FIRST?	PRSI >X \?CCL12
	ICALL	YOUD-HAVE-TO,STR?541,X
	RTRUE	
?CCL12:	EQUAL?	PRSO,PARASOL \?CND10
	FSET?	PRSO,OPENED \?CND10
	ICALL2	YOUD-HAVE-TO,STR?536
	RTRUE	
?CND10:	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	MOVE	PRSO,PRSI
	PRINTI	"You carefully hang "
	ICALL1	THE-PRINT
	EQUAL?	PRSO,LANTERN \?CND16
	PRINTI	" back"
?CND16:	PRINT	SON
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?HANG-ON /FALSE
	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL6:	EQUAL?	PRSA,V?PUT-UNDER \FALSE
	ICALL	PERFORM,V?DROP,PRSO
	RTRUE	
?CCL3:	CALL2	NOUN-USED?,W?HOOK
	ZERO?	STACK /?CND1
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL23
	FIRST?	PUB-SIGN >X \?CND24
	ICALL2	PRINTCA,X
	PRINTR	" hangs from it."
?CND24:	PRINT	XTHE
	PRINTR	"hook is empty."
?CCL23:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND1
	ICALL	FIRMLY-ATTACHED,STR?747,PRSO,TRUE-VALUE
	RTRUE	
?CND1:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \?CCL29
	ICALL1	DESCRIBE-PUB-SIGN
	RTRUE	
?CCL29:	EQUAL?	PRSA,V?PUSH,V?TOUCH,V?SWING /?CTR30
	EQUAL?	PRSA,V?SHAKE,V?PULL,V?LOOK-BEHIND \?CCL31
?CTR30:	ICALL1	CTHE-PRINT
	PRINTR	" swings back and forth for a moment."
?CCL31:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL	FIRMLY-ATTACHED,PRSO,PUB
	RTRUE	


	.FUNCT	LANTERN-F,TBL,X
	ZERO?	NOW-PRSI? /?CCL3
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL2	ITS-SEALED,LANTERN
	RTRUE	
?CCL3:	CALL2	NOUN-USED?,W?BATTERY
	ZERO?	STACK /?CCL7
	INTBL?	PRSA,SEEVERBS,NSVERBS >TBL /?CCL9
	INTBL?	PRSA,MOVEVERBS,NMVERBS >TBL /?CCL9
	EQUAL?	PRSA,V?REPAIR,V?REPLACE \?CND1
?CCL9:	ICALL2	ITS-SEALED,LANTERN
	RTRUE	
?CCL7:	CALL2	NOUN-USED?,W?SWITCH
	ZERO?	STACK /?CND1
	INTBL?	PRSA,MOVEVERBS,NMVERBS >TBL \?CCL16
	ICALL	FIRMLY-ATTACHED,STR?748,PRSO,TRUE-VALUE
	RTRUE	
?CCL16:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CND1
	ICALL1	CTHE-PRINT
	PRINTI	"'s switch is o"
	FSET?	PRSO,OPENED \?CND18
	PRINTR	"ff."
?CND18:	PRINTR	"n."
?CND1:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE \?CCL22
	ICALL1	CTHE-PRINT
	FSET?	PRSO,MUNGED \?CND23
	PRINTR	" is broken beyond repair."
?CND23:	PRINTI	" looks "
	FSET?	PRSO,MAPPED \?CCL27
	PRINTI	"good as new"
	JUMP	?CND25
?CCL27:	PRINTI	"much as you'd expect it to after years of hanging outdoors"
?CND25:	FSET?	PRSO,LIGHTED \?CND28
	PRINTI	". Its glow is "
	GRTR?	LAMP-LIFE,20 \?CCL32
	PRINTR	"bright and strong."
?CCL32:	GRTR?	LAMP-LIFE,10 \?CND30
	PRINTR	"a bit dim."
?CND30:	PRINTI	"fading rapidly"
?CND28:	PRINT	PERIOD
	RTRUE	
?CCL22:	EQUAL?	PRSA,V?LOOK-INSIDE,V?OPEN,V?UNPLUG \?CCL35
	ICALL2	ITS-SEALED,LANTERN
	RTRUE	
?CCL35:	EQUAL?	PRSA,V?LAMP-ON,V?USE \?CCL37
	FSET?	PRSO,OPENED /?CCL40
	ICALL2	ITS-SWITCHED,W?ON
	RTRUE	
?CCL40:	CALL1	CANT-REACH-LANTERN?
	ZERO?	STACK \TRUE
	FCLEAR	PRSO,OPENED
	ICALL2	ITALICIZE,STR?749
	PRINTI	". "
	FSET?	PRSO,MUNGED /?CCL43
	ZERO?	LAMP-LIFE \?CND42
?CCL43:	PRINTR	"Nothing happens."
?CND42:	ICALL1	CTHE-PRINT
	PRINTI	" emits a "
	GRTR?	LAMP-LIFE,20 \?CCL48
	PRINTI	"brilliant"
	JUMP	?CND46
?CCL48:	PRINTI	"feeble"
?CND46:	PRINTI	" glow."
	CRLF	
	ICALL1	LIGHT-LANTERN
	RTRUE	
?CCL37:	EQUAL?	PRSA,V?LIGHT-WITH \?CCL50
	EQUAL?	PRSI,FALSE-VALUE,HANDS \?CND51
	ICALL	PERFORM,V?LAMP-ON,PRSO
	RTRUE	
?CND51:	PRINT	CANT
	PRINTI	"light "
	ICALL1	THE-PRINT
	PRINT	WITH
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL50:	EQUAL?	PRSA,V?LAMP-OFF \?CCL54
	FSET?	PRSO,OPENED \?CCL57
	ICALL2	ITS-SWITCHED,W?OFF
	RTRUE	
?CCL57:	CALL1	CANT-REACH-LANTERN?
	ZERO?	STACK \TRUE
	FSET	PRSO,OPENED
	ICALL2	ITALICIZE,STR?749
	PRINTI	". "
	FSET?	PRSO,LIGHTED \?CND59
	ICALL1	CTHE-PRINT
	PRINTI	" goes out."
	CRLF	
	ICALL1	LANTERN-OUT
	RTRUE	
?CND59:	PRINTI	"You switch off "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL54:	EQUAL?	PRSA,V?MUNG,V?HIT,V?KICK \?CCL62
	FSET?	PRSO,MUNGED \?CND63
	PRINTR	"It's already broken enough."
?CND63:	ICALL2	ITALICIZE,STR?605
	PRINTI	"! You smash "
	ICALL1	THE-PRINT
	PRINT	WITH
	EQUAL?	PRSA,V?KICK /?CTR66
	EQUAL?	PRSI,FEET \?CCL67
?CTR66:	ICALL2	DPRINT,FEET
	JUMP	?CND65
?CCL67:	EQUAL?	PRSI,FALSE-VALUE,HANDS \?CCL71
	PRINTI	"your fist"
	JUMP	?CND65
?CCL71:	ICALL1	THEI-PRINT
?CND65:	PRINT	PERIOD
	ICALL1	BREAK-LANTERN
	RTRUE	
?CCL62:	EQUAL?	PRSA,V?THROW \?CCL73
	FSET?	PRSO,MUNGED /?CCL73
	ICALL2	ITALICIZE,STR?750
	PRINTC	33
	CRLF	
	ICALL1	BREAK-LANTERN
	RTRUE	
?CCL73:	EQUAL?	PRSA,V?REPAIR \FALSE
	FSET?	PRSO,MUNGED \FALSE
	PRINTR	"You're not a member of the Guild of Lanternmakers."


	.FUNCT	ITS-SWITCHED,WRD
	PRINTI	"It's already switched "
	PRINTB	WRD
	PRINT	PERIOD
	RTRUE	


	.FUNCT	CANT-REACH-LANTERN?,L
	LOC	LANTERN >L
	LOC	PLAYER
	EQUAL?	L,PLAYER,STACK /FALSE
	FSET?	L,SURFACE /FALSE
	ICALL	TAKE-FIRST,LANTERN,L
	RTRUE	


	.FUNCT	LIGHT-LANTERN
	BOR	NEW-DBOX,3 >NEW-DBOX
	CALL1	NO-LANTERN-HERE?
	ZERO?	STACK \TRUE
	ICALL2	QUEUE,I-LANTERN
	ICALL	REPLACE-ADJ?,LANTERN,W?DARK,W?LIGHTED
	ICALL2	LIGHT-ROOM-WITH,LANTERN
	RTRUE	


	.FUNCT	NO-LANTERN-HERE?,LEN
	FSET?	URGRUE,LIVING \FALSE
	IN?	GRUE,HERE \?CND1
	ICALL2	EXUENT-MONSTER,GRUE
?CND1:	CALL1	GRUE-ROOM?
	ZERO?	STACK /FALSE
	ICALL2	VANISH,LANTERN
	PRINT	TAB
	ICALL1	KERBLAM
	PRINTI	"A bolt of lightning "
	EQUAL?	HERE,IN-LAIR /?CND8
	PRINTI	"zigzags down the passageways, "
?CND8:	PRINTI	"strikes your lantern and blows it into little, tiny bits."
	CRLF	
	FSET?	LANTERN,LIGHTED \?CND10
	ICALL1	LANTERN-OUT
?CND10:	ICALL1	CHUCKLE
	RTRUE	


	.FUNCT	LANTERN-OUT
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	FCLEAR	LANTERN,LIGHTED
	ICALL2	DEQUEUE,I-LANTERN
	ICALL	REPLACE-ADJ?,LANTERN,W?LIGHTED,W?DARK
	ICALL1	SAY-IF-HERE-LIT
	RTRUE	


	.FUNCT	BREAK-LANTERN
	FCLEAR	PRSO,SEEN
	FSET	LANTERN,MUNGED
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL	REPLACE-ADJ?,LANTERN,W?ZZZP,W?BROKEN
	FSET?	LANTERN,LIGHTED \TRUE
	ICALL1	LANTERN-OUT
	RTRUE	


	.FUNCT	GRUBBO-F,X
	EQUAL?	HERE,HILLTOP,N-MOOR,AT-LEDGE /?CCL3
	CALL1	HERE-F
	RSTACK	
?CCL3:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL5
	SET	'X,P?EAST
	EQUAL?	HERE,N-MOOR \?CCL8
	SET	'X,P?NORTH
	JUMP	?CND6
?CCL8:	EQUAL?	HERE,AT-LEDGE \?CND6
	SET	'X,P?SW
?CND6:	ICALL2	DO-WALK,X
	RTRUE	
?CCL5:	INTBL?	PRSA,SEEVERBS,NSVERBS >X \FALSE
	ICALL1	CANT-SEE-MUCH
	RTRUE	


	.FUNCT	SHILL-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?TOUCH,V?SWING,V?SHAKE \?CCL5
	PRINTR	"Feels hefty."
?CCL5:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	PRINTR	"Years of drifting on the open sea have toughened this stout club into a formidable skull-basher."
?CCL7:	EQUAL?	PRSA,V?WHAT \?CCL9
	CALL2	NOUN-USED?,W?SHILLELAGH
	ZERO?	STACK /?CCL9
	PRINTR	"It's a club."
?CCL9:	EQUAL?	PRSA,V?TAKE \FALSE
	FSET?	PRSO,TOUCHED /FALSE
	CALL1	ITAKE
	ZERO?	STACK /TRUE
	PRINT	XTHE
	PRINTB	W?DRIFTWOOD
	PRINTI	" begins to float out of reach as you bend over the side of the wharf. You strain your arm lower towards the water, lower... got it!"
	CRLF	
	ICALL1	GET-SHILL
	RTRUE	


	.FUNCT	GET-SHILL
	FSET	SHILL,TOUCHED
	ICALL2	DEQUEUE,I-SHILL
	FSET	SALT,SEEN
	PRINT	TAB
	PRINTI	"""Found yerself a genu-ine "
	ICALL2	DPRINT,SHILL
	PRINTI	" there, "
	ICALL1	BOY-GIRL
	PRINTI	","" remarks the artist"
	IN?	SHILL,PLAYER \?CND1
	PRINTI	" as you shake off the seawater"
?CND1:	PRINTR	". ""Come in handy nowadays."""


	.FUNCT	SWORD-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \FALSE
	PRINTR	"It's of elvish workmanship."


	.FUNCT	AXE-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \FALSE
	PRINTR	"Just the thing for cleaving briskets, and other inconveniences."


	.FUNCT	DAGGER-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \FALSE
	PRINTI	"It's a very basic "
	PRINTD	PRSO
	PRINTI	" with a "
	FSET?	PRSO,MUNGED \?CCL8
	PRINTB	W?RUSTY
	JUMP	?CND6
?CCL8:	PRINTI	"razor-sharp"
?CND6:	PRINTR	" blade."


	.FUNCT	PUBWALL-F,X
	EQUAL?	PRSA,V?EMPTY,V?TAKE /FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?LOOK-INSIDE /?CCL4
	EQUAL?	PRSA,V?SEARCH \?CND1
?CCL4:	FIRST?	PRSO >X \FALSE
	ICALL2	PRINTCA,X
	PRINTR	" is imbedded there."
?CND1:	CALL1	HANDLE-WALLS?
	RSTACK	


	.FUNCT	BOTTLE-F,C
	CALL2	NOUN-USED?,W?MAILBOX
	ZERO?	STACK /?CCL3
	ZERO?	LIT? /?CND4
	ZERO?	NOW-PRSI? \?CND4
	EQUAL?	PRSA,V?OPEN \?CND4
	FSET?	PRSO,SEEN /?CND8
	FSET	PRSO,SEEN
	PRINTI	"Opening the small mailbox reveals a leaflet"
	PRINT	PTAB
	ICALL1	KERBLAM
	PRINTI	"An Implementor appears in a dazzling flash! He slams the mailbox on "
	ICALL2	THE-PRINT,BOTTLE
	PRINTR	" shut, wags a disapproving finger and disappears before you can speak or move."
?CND8:	PRINT	CANT
	PRINTI	"open the "
	PRINT	STR?751
	PRINT	PERIOD
	RETURN	2
?CND4:	ICALL	USELESS,STR?751,TRUE-VALUE
	RETURN	2
?CCL3:	CALL1	SEE-COLOR?
	ZERO?	STACK /?CND1
	INC	'C
	CALL	ADJ-USED?,W?GRAY,W?GREY,W?WHITE
	ZERO?	STACK /?CND1
	CALL2	NOUN-USED?,W?HOUSE
	ZERO?	STACK \?CND1
	PRINT	XTHE
	PRINTI	"wine in "
	ICALL2	THE-PRINT,BOTTLE
	PRINTI	" is red, not gray."
	CRLF	
	RETURN	2
?CND1:	ZERO?	NOW-PRSI? /?CCL23
	EQUAL?	PRSA,V?LOOK-THRU \FALSE
	EQUAL?	PRSO,PRSI,ME,HEAD \?CND26
	ICALL1	IMPOSSIBLE
	RTRUE	
?CND26:	PRINTI	"When viewed through "
	ICALL1	THEI-PRINT
	PRINTI	", "
	EQUAL?	PRSO,AMULET \?CND28
	ZERO?	AMULET-WORD \?CND30
	ICALL1	SETUP-AMULET
?CND30:	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINTI	"the word """
	GETP	AMULET,P?NAME-TABLE
	ICALL2	PRINT-TABLE,STACK
	PRINTI	""" stands out clearly against the swirls and flourishes of the "
	PRINTD	AMULET
	PRINT	PERIOD
	RTRUE	
?CND28:	ICALL1	THE-PRINT
	PRINTI	" appears "
	ZERO?	C /?CND32
	PRINTR	"pale and ruddy."
?CND32:	PRINTR	"gray and muddy."
?CCL23:	EQUAL?	PRSA,V?EXAMINE,V?READ,V?LOOK-INSIDE /?CTR34
	EQUAL?	PRSA,V?SEARCH \?CCL35
?CTR34:	EQUAL?	PRSA,V?EXAMINE,V?READ \?CND38
	PRINT	XTHE
	PRINTI	"words """
	ICALL2	ITALICIZE,STR?752
	PRINTI	", bottled by "
	ICALL2	FROBOZZ,STR?753
	PRINTI	", Ltd"" appear on "
	ICALL1	THE-PRINT
	PRINTI	"'s label, above a picture of a white house with a small mailbox."
	EQUAL?	PRSA,V?READ \?CND40
	CRLF	
	RTRUE	
?CND40:	PRINTC	SP
?CND38:	PRINTI	"A pale "
	ZERO?	C /?CCL44
	PRINTB	W?RED
	JUMP	?CND42
?CCL44:	PRINTB	W?GRAY
?CND42:	PRINTR	" liquid swishes around inside. You can see right through it."
?CCL35:	EQUAL?	PRSA,V?SHAKE,V?SPIN \?CCL46
	PRINT	XTHE
	ZERO?	C /?CCL49
	PRINTB	W?RED
	JUMP	?CND47
?CCL49:	PRINTB	W?GRAY
?CND47:	PRINTI	" liquid in "
	ICALL1	THE-PRINT
	PRINTR	" swishes around."
?CCL46:	EQUAL?	PRSA,V?OPEN,V?DRINK,V?DRINK-FROM \?CCL51
	ICALL1	CTHE-PRINT
	PRINTR	" is tightly corked."
?CCL51:	EQUAL?	PRSA,V?OPEN-WITH \?CCL53
	PRINTI	"You'll never open "
	ICALL1	THE-PRINT
	PRINT	WITH
	ICALL1	THEI-PRINT
	PRINTR	". Only a corkscrew will do."
?CCL53:	EQUAL?	PRSA,V?HIT,V?MUNG,V?KICK \?CCL55
	ICALL1	PRSO-SHATTER
	PRINTI	", and wine "
	PRINT	STR?754
	RTRUE	
?CCL55:	EQUAL?	PRSA,V?SPIN \FALSE
	EQUAL?	P-PRSA-WORD,W?SPIN \FALSE
	PRINTR	"Lonely?"


	.FUNCT	CRATES-F
	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH,V?OPEN /?CTR2
	EQUAL?	PRSA,V?OPEN-WITH \?CCL3
?CTR2:	PRINTR	"They're all empty."
?CCL3:	EQUAL?	PRSA,V?SHAKE,V?KICK,V?PUSH \?CCL7
	ICALL1	CTHE-PRINT
	PRINTR	" sways dangerously back and forth."
?CCL7:	CALL2	HANDLE-STAIRS?,BARRELTOP
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	SETUP-AMULET,TBL
	CALL2	PICK-ONE,MAGIC-WORDS >TBL
	PUT	TBL,2,1
	GET	TBL,0 >AMULET-WORD
	GET	TBL,1
	PUTP	AMULET,P?NAME-TABLE,STACK
	GETPT	AMULET,P?SYNONYM
	PUT	STACK,0,AMULET-WORD
	GETPT	AMULET,P?ADJECTIVE
	PUT	STACK,0,AMULET-WORD
	FSET	AMULET,NAMED
	FSET	AMULET,IDENTIFIED
	FSET	AMULET,PROPER
	RFALSE	


	.FUNCT	AMULET-F,X
	ZERO?	NOW-PRSI? \FALSE
	CALL	NOUN-USED?,W?STARS,W?STAR
	ZERO?	STACK \?CTR4
	CALL2	ADJ-USED?,W?SILVER
	ZERO?	STACK /?CCL5
?CTR4:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \?CCL10
	ZERO?	AMULET-TIMER /?CND11
	GRTR?	AMULET-STARS,1 \?CCL15
	PRINT	STR?755
	JUMP	?CND13
?CCL15:	PRINT	STR?756
?CND13:	PRINT	STR?757
	PRINTR	"is glowing."
?CND11:	PRINT	STR?756
	EQUAL?	AMULET-STARS,1 /?CND16
	PRINTC	115
?CND16:	PRINT	STR?757
	PRINTI	"twinkle"
	EQUAL?	AMULET-STARS,1 \?CND18
	PRINTC	115
?CND18:	PRINTR	" with hidden power."
?CCL10:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND1
	PRINT	STR?756
	GRTR?	AMULET-STARS,1 \?CCL23
	PRINTI	"s are "
	JUMP	?CND21
?CCL23:	PRINT	SIS
?CND21:	ICALL1	ETCHED
	RTRUE	
?CCL5:	CALL	NOUN-USED?,W?SWIRLS,W?FLOURISHES
	ZERO?	STACK \?CTR24
	CALL2	ADJ-USED?,W?RED
	ZERO?	STACK /?CCL25
?CTR24:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \?CCL30
	PRINT	XTHE
	ICALL1	SAY-RED
	PRINT	STR?758
	PRINTR	" are skillfully wrought."
?CCL30:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND1
	PRINT	XTHE
	PRINTI	"swirls are "
	ICALL1	ETCHED
	RTRUE	
?CCL25:	CALL	NOUN-USED?,W?RUNES,W?RUNE
	ZERO?	STACK \?CCL32
	CALL2	ADJ-USED?,W?GREEN
	ZERO?	STACK /?CND1
?CCL32:	EQUAL?	PRSA,V?READ,V?EXAMINE,V?LOOK-ON \?CCL37
	ICALL1	READ-RUNES
	RTRUE	
?CCL37:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND1
	PRINT	XTHE
	PRINTI	"runes are "
	ICALL1	ETCHED
	RTRUE	
?CND1:	CALL2	STRANGLE?,AMULET
	ZERO?	STACK /?CCL41
	RETURN	2
?CCL41:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL45
	ICALL1	CTHE-PRINT
	PRINTI	" is inscribed with "
	ICALL1	SAY-GREEN
	PRINTI	" runes, "
	PRINT	STR?759
	ICALL1	SAY-RED
	PRINT	STR?758
	GRTR?	AMULET-STARS,0 \?CND46
	PRINT	AND
	EQUAL?	AMULET-STARS,1 \?CCL50
	PRINTR	"a shiny star."
?CCL50:	EQUAL?	AMULET-STARS,2 \?CCL52
	PRINTB	W?TWO
	JUMP	?CND48
?CCL52:	PRINTB	W?THREE
?CND48:	PRINTI	" shiny stars"
?CND46:	PRINT	PERIOD
	RTRUE	
?CCL45:	EQUAL?	PRSA,V?READ \?CCL54
	ICALL1	READ-RUNES
	RTRUE	
?CCL54:	EQUAL?	PRSA,V?SAY,V?YELL \?CCL56
	ZERO?	AMULET-WORD /?CCL56
	CALL2	NOUN-USED?,AMULET-WORD
	ZERO?	STACK /?CCL56
	ICALL1	SAY-AMULET-WORD
	RTRUE	
?CCL56:	EQUAL?	PRSA,V?WEAR \?CCL61
	ZERO?	AMULET-TIMER /?CCL61
	FSET?	PRSO,WORN /?CCL61
	ICALL1	PUTON
	ICALL1	MEGA-STRENGTH
	RTRUE	
?CCL61:	EQUAL?	PRSA,V?TAKE-OFF \FALSE
	ZERO?	AMULET-TIMER /FALSE
	IN?	PRSO,PLAYER \FALSE
	FSET?	PRSO,WORN \FALSE
	ICALL1	TAKEOFF
	ICALL1	NORMAL-STRENGTH
	RTRUE	


	.FUNCT	STRANGLE?,OBJ,X
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	FSET?	SKELETON,SEEN /FALSE
	FSET	SKELETON,SEEN
	GET	STATS,ENDURANCE
	MUL	20,STACK
	DIV	STACK,100 >CHOKE
	ZERO?	CHOKE \?CND6
	INC	'CHOKE
?CND6:	ICALL2	QUEUE,I-STRANGLE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'LAST-MONSTER,SKELETON
	SET	'LAST-MONSTER-DIR,FALSE-VALUE
	SET	'P-IT-OBJECT,SKELETON
	SET	'P-HIM-OBJECT,SKELETON
	PRINTI	"You reach down to touch "
	ICALL2	THE-PRINT,OBJ
	PRINTI	".."
	PRINT	PTAB
	ICALL1	CLAMP
	ICALL1	BMODE-ON
	SUB	0,CHOKE
	ICALL2	UPDATE-STAT,STACK
	RTRUE	


	.FUNCT	CLAMP
	ICALL2	ITALICIZE,STR?521
	PRINTR	"! Ten bony fingers clamp around your throat!"


	.FUNCT	ETCHED
	PRINTI	"permanently etched onto the "
	PRINTD	PRSO
	PRINT	PERIOD
	RTRUE	


	.FUNCT	READ-RUNES
	PRINT	XTHE
	ICALL1	SAY-GREEN
	PRINTI	" runes are hard to see. They're "
	PRINT	STR?759
	PRINT	LTHE
	ICALL1	SAY-RED
	PRINT	STR?758
	PRINTI	" on the "
	PRINTD	PRSO
	PRINT	PERIOD
	RTRUE	


	.FUNCT	SAY-RED
	CALL1	SEE-COLOR?
	ZERO?	STACK /?CND1
	PRINTB	W?RED
	RFALSE	
?CND1:	PRINTB	W?GRAY
	RFALSE	


	.FUNCT	SAY-GREEN
	CALL1	SEE-COLOR?
	ZERO?	STACK /?CND1
	PRINTB	W?GREEN
	RFALSE	
?CND1:	PRINTB	W?GRAY
	RFALSE	


	.FUNCT	SAY-AMULET-WORD
	ZERO?	AMULET-STARS /?CND1
	FSET?	AMULET,NEUTRALIZED /?CND1
	CALL2	NO-MAGIC-HERE?,AMULET
	ZERO?	STACK \TRUE
	CALL2	VISIBLE?,AMULET
	ZERO?	STACK /?CND1
	ZERO?	AMULET-TIMER /?CCL9
	ICALL2	STAR-FADES,TRUE-VALUE
	ICALL1	STOP-AMULET
	CALL2	WEARING-MAGIC?,AMULET
	ZERO?	STACK /TRUE
	ICALL1	NORMAL-STRENGTH
	RTRUE	
?CCL9:	GRTR?	AMULET-STARS,1 \?CCL13
	PRINT	STR?755
	JUMP	?CND7
?CCL13:	PRINT	STR?756
?CND7:	PRINT	STR?757
	PRINTI	"begins to glow."
	CRLF	
	GETP	AMULET,P?VALUE
	SUB	STACK,3
	PUTP	AMULET,P?VALUE,STACK
	CALL2	WEARING-MAGIC?,AMULET
	ZERO?	STACK /?CND14
	ICALL1	MEGA-STRENGTH
?CND14:	ICALL2	LIGHT-ROOM-WITH,AMULET
	SET	'AMULET-TIMER,3
	ICALL2	QUEUE,I-AMULET
	RTRUE	
?CND1:	ICALL2	NOTHING-HAPPENS,FALSE-VALUE
	RTRUE	


	.FUNCT	MEGA-STRENGTH,S
	GET	STATS,STRENGTH >S
	LESS?	S,2 \?CCL3
	SET	'S,9
	JUMP	?CND1
?CCL3:	MUL	9,S >S
?CND1:	PRINT	TAB
	PRINTI	"A pulse of energy surges through your muscles!"
	CRLF	
	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	


	.FUNCT	NORMAL-STRENGTH,S,MAX
	PRINT	TAB
	PRINTI	"The tension in your muscles subsides."
	CRLF	
	GET	STATS,STRENGTH >S
	GET	MAXSTATS,STRENGTH >MAX
	GRTR?	S,MAX \TRUE
	SUB	S,MAX
	SUB	0,STACK
	ICALL	UPDATE-STAT,STACK,STRENGTH
	RTRUE	


	.FUNCT	STOP-AMULET
	ICALL2	DEQUEUE,I-AMULET
	SET	'AMULET-TIMER,0
	FCLEAR	AMULET,LIGHTED
	DLESS?	'AMULET-STARS,1 \?CND1
	SET	'AMULET-STARS,0
	ICALL	REPLACE-SYN?,AMULET,W?STAR,W?ZZZP
	ICALL	REPLACE-SYN?,AMULET,W?STARS,W?ZZZP
	ICALL	REPLACE-ADJ?,AMULET,W?SILVER,W?ZZZP
?CND1:	CALL2	VISIBLE?,AMULET
	ZERO?	STACK /FALSE
	ICALL1	SAY-IF-HERE-LIT
	RFALSE	


	.FUNCT	KITCHEN-F,X
	EQUAL?	HERE,IN-KITCHEN \?CCL3
	CALL1	HERE-F
	RSTACK	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \FALSE
	ICALL2	DO-WALK,P?WEST
	RTRUE	


	.FUNCT	TEARS-PARASOL,WRD1,WRD2
	SET	'WRD1,W?OPENED
	SET	'WRD2,W?OPEN
	FSET?	PARASOL,OPENED /?CND1
	SET	'WRD1,W?CLOSED
?CND1:	ICALL	REPLACE-ADJ?,PARASOL,WRD1,W?BROKEN
	FSET	PARASOL,MUNGED
	FCLEAR	PARASOL,OPENED
	FCLEAR	PARASOL,VOWEL
	FCLEAR	PARASOL,BUOYANT
	PUTP	PARASOL,P?VALUE,0
	PRINTI	" tears "
	ICALL2	THE-PRINT,PARASOL
	PRINTI	" from your grasp a little too soon"
	RFALSE	


	.FUNCT	CROWN-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL5
	PRINTI	"The tiny crown "
	IN?	PRSO,CRAB \?CND6
	PRINTI	"on the crab's head "
?CND6:	PRINTR	"is exquisitely wrought in what appears to be solid gold."
?CCL5:	EQUAL?	PRSA,V?WEAR,V?USE \FALSE
	PRINTR	"Your head is too fat."


	.FUNCT	GREAT-SEA-F,X
	ZERO?	NOW-PRSI? /?CCL3
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	WATER-VANISH
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	ICALL1	CTHE-PRINT
	PRINTI	" stretches east"
	PRINT	STR?725
	PRINT	PERIOD
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?LOOK-INSIDE,V?LOOK-UNDER,V?SEARCH \?CCL9
	PRINT	STR?760
	PRINTR	"in the foamy waters."
?CCL9:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL11
	ICALL2	DO-WALK,P?EAST
	RTRUE	
?CCL11:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL13
	ICALL1	NOT-IN
	RTRUE	
?CCL13:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	PRINT	CANT
	PRINTR	"reach the water from here."


	.FUNCT	ACCARDI-F,X
	EQUAL?	HERE,IN-ACCARDI \?CCL3
	CALL1	HERE-F
	RSTACK	
?CCL3:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \FALSE
	SET	'X,P?WEST
	EQUAL?	HERE,IN-HALL \?CCL8
	SET	'X,P?SOUTH
	JUMP	?CND6
?CCL8:	EQUAL?	HERE,AT-BRINE \?CND6
	SET	'X,P?NE
?CND6:	ICALL2	DO-WALK,X
	RTRUE	


	.FUNCT	TOWER-F,X
	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL3
	ICALL2	DO-WALK,P?UP
	RTRUE	
?CCL3:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \?CCL5
	ICALL2	DO-WALK,P?DOWN
	RTRUE	
?CCL5:	CALL1	HERE-F
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	TOWER-STEPS-F
	ZERO?	NOW-PRSI? /?CCL3
	CALL1	MIGHT-TRIP?
	ZERO?	STACK /FALSE
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?CLIMB-ON,V?CLIMB-UP,V?CLIMB-OVER \?CCL7
	ICALL2	DO-WALK,P?UP
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?CLIMB-DOWN \?CCL9
	ICALL2	DO-WALK,P?DOWN
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?COUNT \?CCL11
	PRINTR	"There are fewer than 69,105 steps."
?CCL11:	EQUAL?	PRSA,V?LOOK-UP,V?LOOK-DOWN \FALSE
	ICALL1	CANT-SEE-MUCH
	RTRUE	


	.FUNCT	BOUTIQUE-F,X
	EQUAL?	HERE,IN-BOUTIQUE \?CCL3
	CALL1	HERE-F
	RSTACK	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \FALSE
	ICALL2	DO-WALK,P?NORTH
	RTRUE	


	.FUNCT	GONDOLA-F,CONTEXT,OBJ,X
	ZERO?	CONTEXT /?CCL3
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND4
	SET	'OBJ,PRSI
?CND4:	EQUAL?	CONTEXT,M-BEG \?CCL8
	CALL	CANT-REACH-WHILE-IN?,OBJ,GONDOLA
	RSTACK	
?CCL8:	EQUAL?	CONTEXT,M-CONT \FALSE
	IN?	PLAYER,GONDOLA /FALSE
	ZERO?	OBJ /FALSE
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL	YOUD-HAVE-TO,STR?761,GONDOLA
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL19
	IN?	PLAYER,PRSO /?CCL19
	EQUAL?	HERE,AT-DOCK \?CND22
	EQUAL?	GON,0,1,14 \?CND22
	PRINTI	"""Wait yer turn, "
	FSET?	PLAYER,FEMALE \?CCL28
	PRINTB	W?LADY
	JUMP	?CND26
?CCL28:	PRINTI	"buddy"
?CND26:	PRINTR	","" growls a passenger in front of you."
?CND22:	SET	'OLD-HERE,FALSE-VALUE
	SET	'P-WALK-DIR,FALSE-VALUE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	MOVE	WINNER,PRSO
	FCLEAR	PRSO,NODESC
	EQUAL?	HERE,AT-DOCK \?CCL31
	PRINTI	"You shove your way "
	JUMP	?CND29
?CCL31:	PRINT	STR?762
?CND29:	PRINTI	"into "
	ICALL1	THE-PRINT
	ICALL1	RELOOK
	RTRUE	
?CCL19:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL33
	IN?	PLAYER,PRSO \?CCL33
	FSET	PRSO,NODESC
	EQUAL?	HERE,OVER-JUNGLE \?CND36
	ICALL1	JUNGLE-JUMP
	RTRUE	
?CND36:	SET	'OLD-HERE,FALSE-VALUE
	SET	'P-WALK-DIR,FALSE-VALUE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	MOVE	WINNER,HERE
	EQUAL?	HERE,AT-DOCK \?CND38
	PRINT	STR?763
	PRINTI	"out of "
	ICALL1	THE-PRINT
	ICALL1	RELOOK
	RTRUE	
?CND38:	PRINT	STR?762
	PRINT	STR?764
	ICALL1	RELOOK
	PRINT	TAB
	PRINTI	"""Passengers will please remain seated,"" drones "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINT	PERIOD
	RTRUE	
?CCL33:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE \FALSE
	PRINTI	"A decal on the side says, """
	ICALL2	FROBOZZ,STR?765
	PRINT	PERQ
	RTRUE	


	.FUNCT	JUNGLE-JUMP
	PRINT	STR?762
	PRINT	STR?764
	PRINTI	", and plummet to your death in the jungle far below"
	ICALL1	JIGS-UP
	RFALSE	


	.FUNCT	DGONDOLA-F,X
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X /?CTR2
	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL3
?CTR2:	ICALL2	CTHE-PRINT,DGONDOLA
	PRINTR	" is too far away now."
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	INTBL?	PRSA,SEEVERBS,NSVERBS >X \FALSE
	ICALL1	CANT-SEE-MUCH
	RTRUE	


	.FUNCT	SUPPORT-F,X
	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL3
	EQUAL?	HERE,OVER-JUNGLE \?CCL6
	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL6:	IN?	PLAYER,GONDOLA \?CND4
	ICALL	PERFORM,V?EXIT,GONDOLA
	RTRUE	
?CND4:	ICALL2	DO-WALK,P?UP
	RTRUE	
?CCL3:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \?CCL9
	EQUAL?	HERE,OVER-JUNGLE \?CCL12
	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL12:	IN?	PLAYER,GONDOLA \?CND10
	ICALL2	NOT-ON,SUPPORT
	RTRUE	
?CND10:	ICALL2	DO-WALK,P?DOWN
	RTRUE	
?CCL9:	EQUAL?	HERE,OVER-JUNGLE \FALSE
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL18
	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL18:	INTBL?	PRSA,SEEVERBS,NSVERBS >X \FALSE
	ICALL1	CANT-SEE-MUCH
	RTRUE	


	.FUNCT	DOCK-F,X
	EQUAL?	HERE,AT-DOCK \?CCL3
	CALL1	HERE-F
	RSTACK	
?CCL3:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL5
	CALL1	CANT-FROM-HERE
	RSTACK	
?CCL5:	INTBL?	PRSA,SEEVERBS,NSVERBS >X \FALSE
	ICALL1	CANT-SEE-MUCH
	RTRUE	


	.FUNCT	ZBRIDGE-F,X
	ZERO?	NOW-PRSI? /?CCL3
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X /?CCL5
	EQUAL?	PRSA,V?HANG-ON \FALSE
?CCL5:	ICALL1	VANISH
	ICALL1	CTHE-PRINT
	EQUAL?	PRSO,PARASOL,LANTERN \?CND8
	PRINTI	" dangles uncertainly for a moment,"
?CND8:	PRINTR	" falls off the slippery ropes and plummets into the roaring water."
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL11
	PRINTI	"The long, narrow "
	ICALL2	DPRINT,PRSO
	PRINTI	" leads "
	EQUAL?	HERE,ON-BRIDGE,SFORD \?CCL14
	PRINTB	W?NORTH
	EQUAL?	HERE,ON-BRIDGE \?CND12
	PRINT	AND
	PRINTB	W?SOUTH
	JUMP	?CND12
?CCL14:	PRINTB	W?SOUTH
?CND12:	PRINTR	" across the roaring water."
?CCL11:	EQUAL?	PRSA,V?ENTER,V?STAND-ON,V?WALK-TO \?CCL18
	EQUAL?	HERE,ON-BRIDGE \?CCL21
	ICALL1	ALREADY-ON
	RTRUE	
?CCL21:	EQUAL?	HERE,SFORD \?CND19
	ICALL2	DO-WALK,P?NORTH
	RTRUE	
?CND19:	ICALL2	DO-WALK,P?SOUTH
	RTRUE	
?CCL18:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL24
	SET	'X,P?NORTH
	EQUAL?	HERE,SFORD /?CND25
	EQUAL?	HERE,ON-BRIDGE \?CCL27
	GETP	HERE,P?DNUM
	EQUAL?	STACK,STR?733 /?CND25
?CCL27:	SET	'X,P?SOUTH
?CND25:	ICALL2	DO-WALK,X
	RTRUE	
?CCL24:	CALL1	JUMPING-OFF?
	ZERO?	STACK \?CTR30
	EQUAL?	PRSA,V?STAND-UNDER \?CCL31
?CTR30:	ICALL2	DO-WALK,P?DOWN
	RTRUE	
?CCL31:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \FALSE
	EQUAL?	HERE,ON-BRIDGE /?CND36
	ICALL1	NOT-ON
	RTRUE	
?CND36:	ICALL1	V-WALK-AROUND
	RTRUE	


	.FUNCT	SWALL-F,X
	CALL	NOUN-USED?,W?OPENING,W?HOLE
	ZERO?	STACK /?CCL3
	FSET?	SWALL,OPENED /?CCL3
	ICALL2	NONE-HERE,W?OPENING
	RETURN	2
?CCL3:	FSET?	SWALL,SEEN /?CCL9
	CALL	NOUN-USED?,W?DOOR,W?DOORWAY
	ZERO?	STACK /?CCL9
	ICALL2	NONE-HERE,W?DOOR
	RETURN	2
?CCL9:	CALL2	NOUN-USED?,W?OUTLINE
	ZERO?	STACK /?CND1
	FSET?	SWALL,OPENED \?CCL17
	PRINT	XTHE
	PRINTB	W?OUTLINE
	PRINTI	" is now an "
	PRINTB	W?OPENING
	PRINT	PERIOD
	RETURN	2
?CCL17:	FSET?	SWALL,SEEN /?CND1
	ICALL2	NONE-HERE,W?OUTLINE
	RETURN	2
?CND1:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?SAY,V?YELL \?CCL27
	ZERO?	WALL-WORD /?CCL27
	CALL2	NOUN-USED?,WALL-WORD
	ZERO?	STACK \?CTR26
	CALL2	ADJ-USED?,WALL-WORD
	ZERO?	STACK /?CCL27
?CTR26:	ICALL1	SAY-WALL-WORD
	RTRUE	
?CCL27:	EQUAL?	PRSA,V?EXAMINE,V?SEARCH,V?LOOK-ON /?CTR33
	EQUAL?	PRSA,V?LOOK-INSIDE,V?LOOK-BEHIND,V?LOOK-UNDER \?CCL34
?CTR33:	FSET?	PRSO,SEEN \?CND37
	ICALL2	SEE-DOORLIKE,PRSO
	EQUAL?	HERE,SE-CAVE \?CND39
	PRINTB	W?SOUTHEAST
	PRINTC	SP
?CND39:	PRINTB	W?WALL
	PRINT	PERIOD
	RTRUE	
?CND37:	ICALL1	SEAMLESS-WALL
	RTRUE	
?CCL34:	EQUAL?	PRSA,V?ENTER,V?WALK-TO,V?THROUGH /?CTR41
	EQUAL?	PRSA,V?WALK-AROUND,V?FOLLOW \?CCL42
?CTR41:	SET	'X,P?SW
	EQUAL?	HERE,NE-CAVE \?CND45
	SET	'X,P?NE
?CND45:	ICALL2	DO-WALK,X
	RTRUE	
?CCL42:	EQUAL?	PRSA,V?OPEN,V?PUSH,V?MOVE \?CCL48
	FSET?	PRSO,OPENED \?CCL51
	ICALL2	ITS-ALREADY,STR?518
	RTRUE	
?CCL51:	FSET?	SWALL,SEEN /?CND49
	ICALL1	SHOVE-STRAIN
	RTRUE	
?CND49:	ICALL1	OPEN-SWALL
	ICALL1	WALLPUSH
	RTRUE	
?CCL48:	EQUAL?	PRSA,V?CLOSE,V?PULL \FALSE
	FSET?	PRSO,OPENED /?CND55
	FSET?	SWALL,SEEN /?CND57
	ICALL2	NONE-HERE,W?OPENING
	RTRUE	
?CND57:	ICALL2	ITS-ALREADY,STR?531
	RTRUE	
?CND55:	ICALL1	CLOSE-SWALL
	ICALL1	WALLCLOSE
	RTRUE	


	.FUNCT	WALLCLOSE
	PRINTR	"You slowly pull the secret door shut."


	.FUNCT	WALLPUSH
	PRINTR	"You push against the outline on the wall with all your might, and an opening appears."


	.FUNCT	NONE-HERE,WRD
	PRINT	DONT
	PRINTI	"see any "
	PRINTB	WRD
	PRINTR	"s here."


	.FUNCT	CLOSE-SWALL
	FCLEAR	SWALL,OPENED
	ICALL	NEW-EXIT?,SE-WALL,P?NW,FCONNECT,CANT-ENTER-WALL
	ICALL	NEW-EXIT?,SE-WALL,P?IN,FCONNECT,CANT-ENTER-WALL
	ICALL	NEW-EXIT?,SE-CAVE,P?SE,FCONNECT,CANT-ENTER-WALL
	ICALL	NEW-EXIT?,SE-CAVE,P?OUT,FCONNECT,CANT-ENTER-WALL
	FCLEAR	SE-CAVE,LIGHTED
	PUTP	SE-CAVE,P?BEAM-DIR,NO-MIRROR
	ICALL1	REFLECTIONS
	ICALL1	REFRESH-MAP
	RTRUE	


	.FUNCT	OPEN-SWALL,X
	FSET	SWALL,OPENED
	ICALL	NEW-EXIT?,SE-WALL,P?NW,641,SE-CAVE
	ICALL	NEW-EXIT?,SE-WALL,P?IN,641,SE-CAVE
	ICALL	NEW-EXIT?,SE-CAVE,P?SE,641,SE-WALL
	ICALL	NEW-EXIT?,SE-CAVE,P?OUT,641,SE-WALL
	FSET	SE-CAVE,LIGHTED
	PUTP	SE-CAVE,P?BEAM-DIR,I-SE
	EQUAL?	HERE,SE-CAVE \?CND1
	SET	'LIT?,TRUE-VALUE
?CND1:	ICALL1	REFLECTIONS
	EQUAL?	HERE,SE-CAVE /TRUE
	ICALL1	REFRESH-MAP
	RTRUE	


	.FUNCT	NWALL-F,X
	CALL	NOUN-USED?,W?OPENING,W?HOLE
	ZERO?	STACK /?CCL3
	FSET?	NWALL,OPENED /?CCL3
	ICALL2	NONE-HERE,W?OPENING
	RETURN	2
?CCL3:	FSET?	NWALL,SEEN /?CCL9
	CALL	NOUN-USED?,W?DOOR,W?DOORWAY
	ZERO?	STACK /?CCL9
	ICALL2	NONE-HERE,W?DOOR
	RETURN	2
?CCL9:	CALL2	NOUN-USED?,W?OUTLINE
	ZERO?	STACK /?CND1
	FSET?	NWALL,OPENED \?CCL17
	PRINT	XTHE
	PRINTB	W?OUTLINE
	PRINTI	" is now an "
	PRINTB	W?OPENING
	PRINT	PERIOD
	RETURN	2
?CCL17:	FSET?	NWALL,SEEN /?CND1
	ICALL2	NONE-HERE,W?OUTLINE
	RETURN	2
?CND1:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?SAY,V?YELL \?CCL27
	ZERO?	WALL-WORD /?CCL27
	CALL2	NOUN-USED?,WALL-WORD
	ZERO?	STACK \?CTR26
	CALL2	ADJ-USED?,WALL-WORD
	ZERO?	STACK /?CCL27
?CTR26:	ICALL1	SAY-WALL-WORD
	RTRUE	
?CCL27:	EQUAL?	PRSA,V?EXAMINE,V?SEARCH,V?LOOK-ON /?CTR33
	EQUAL?	PRSA,V?LOOK-INSIDE,V?LOOK-BEHIND,V?LOOK-UNDER \?CCL34
?CTR33:	FSET?	NWALL,SEEN \?CND37
	ICALL2	SEE-DOORLIKE,PRSO
	EQUAL?	HERE,NE-CAVE \?CND39
	PRINTB	W?NORTHWEST
	PRINTC	SP
?CND39:	PRINTB	W?WALL
	PRINT	PERIOD
	RTRUE	
?CND37:	ICALL1	SEAMLESS-WALL
	RTRUE	
?CCL34:	EQUAL?	PRSA,V?ENTER,V?WALK-TO,V?THROUGH /?CTR41
	EQUAL?	PRSA,V?WALK-AROUND,V?FOLLOW \?CCL42
?CTR41:	SET	'X,P?SE
	EQUAL?	HERE,NE-CAVE \?CND45
	SET	'X,P?NW
?CND45:	ICALL2	DO-WALK,X
	RTRUE	
?CCL42:	EQUAL?	PRSA,V?OPEN,V?PUSH,V?MOVE \?CCL48
	FSET?	PRSO,OPENED \?CCL51
	ICALL2	ITS-ALREADY,STR?518
	RTRUE	
?CCL51:	FSET?	NWALL,SEEN /?CND49
	ICALL1	SHOVE-STRAIN
	RTRUE	
?CND49:	ICALL1	OPEN-NWALL
	ICALL1	WALLPUSH
	RTRUE	
?CCL48:	EQUAL?	PRSA,V?CLOSE,V?PULL \FALSE
	FSET?	PRSO,OPENED /?CND55
	FSET?	NWALL,SEEN \?CND57
	ICALL2	NONE-HERE,W?OPENING
	RTRUE	
?CND57:	ICALL2	ITS-ALREADY,STR?531
	RTRUE	
?CND55:	ICALL1	CLOSE-NWALL
	ICALL1	WALLCLOSE
	RTRUE	


	.FUNCT	SEE-DOORLIKE,OBJ
	PRINT	STR?723
	FSET?	OBJ,OPENED \?CCL3
	PRINTB	W?OPENING
	JUMP	?CND1
?CCL3:	PRINTB	W?OUTLINE
?CND1:	PRINT	STR?495
	RFALSE	


	.FUNCT	SHOVE-STRAIN
	PRINTI	"You shove and strain against "
	ICALL1	THE-PRINT
	PRINTR	", but to no avail."


	.FUNCT	SEAMLESS-WALL
	PRINTR	"All you see is a seamless wall of stone."


	.FUNCT	CLOSE-NWALL
	FCLEAR	NWALL,OPENED
	ICALL	NEW-EXIT?,NE-WALL,P?SE,FCONNECT,CANT-ENTER-WALL
	ICALL	NEW-EXIT?,NE-WALL,P?IN,FCONNECT,CANT-ENTER-WALL
	ICALL	NEW-EXIT?,NE-CAVE,P?NW,FCONNECT,CANT-ENTER-WALL
	ICALL	NEW-EXIT?,NE-CAVE,P?OUT,FCONNECT,CANT-ENTER-WALL
	FCLEAR	NE-CAVE,LIGHTED
	ICALL1	REFRESH-MAP
	RTRUE	


	.FUNCT	OPEN-NWALL,X
	FSET	NWALL,OPENED
	ICALL	NEW-EXIT?,NE-WALL,P?SE,641,NE-CAVE
	ICALL	NEW-EXIT?,NE-WALL,P?IN,641,NE-CAVE
	ICALL	NEW-EXIT?,NE-CAVE,P?NW,641,NE-WALL
	ICALL	NEW-EXIT?,NE-CAVE,P?OUT,641,NE-WALL
	FSET	NE-CAVE,LIGHTED
	EQUAL?	HERE,NE-CAVE \?CND1
	SET	'LIT?,TRUE-VALUE
?CND1:	ICALL1	REFRESH-MAP
	RTRUE	


	.FUNCT	WEAPON-SHOP-F,X
	EQUAL?	HERE,IN-WEAPON \?CCL3
	CALL1	HERE-F
	RSTACK	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \FALSE
	ICALL2	DO-WALK,P?WEST
	RTRUE	


	.FUNCT	MSHOPPE-F,X
	EQUAL?	HERE,IN-MAGICK \?CCL3
	CALL1	HERE-F
	RSTACK	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \FALSE
	ICALL2	DO-WALK,P?WEST
	RTRUE	


	.FUNCT	MAGICK-DOOR-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?OPEN \?CCL5
	FSET?	PRSO,OPENED /?CCL5
	ICALL2	TINKLES,W?OPEN
	ICALL1	IOPEN
	RTRUE	
?CCL5:	EQUAL?	PRSA,V?CLOSE \FALSE
	FSET?	PRSO,OPENED \FALSE
	ICALL2	TINKLES,W?CLOSE
	ICALL1	ICLOSE
	RTRUE	


	.FUNCT	TINKLES,WRD
	PRINTI	"As you "
	PRINTB	WRD
	PRINTC	SP
	ICALL1	THE-PRINT
	PRINTR	", a concealed bell tinkles merrily."


	.FUNCT	LAMPHOUSE-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL5
	ICALL1	GET-SEXTANT
	ICALL1	CTHE-PRINT
	PRINTI	" is shattered beyond all usefulness"
	FIRST?	PRSO >X \?CND6
	PRINT	STR?766
	PRINTI	"lying upon the debris within"
?CND6:	PRINT	PERIOD
	RTRUE	
?CCL5:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL9
	ICALL1	GET-SEXTANT
	FIRST?	PRSO >X \?CCL12
	SET	'X,W?YOU
	PRINTI	"Sifting"
	JUMP	?CND10
?CCL12:	SET	'X,W?BUT
	PRINTI	"You sift"
?CND10:	PRINTI	" through the debris, "
	PRINTB	X
	PRINTI	" discover "
	ICALL1	CONTENTS
	PRINT	PERIOD
	SET	'P-IT-OBJECT,LAMPHOUSE
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?LAMP-ON \?CCL14
	PRINTR	"Not a chance."
?CCL14:	EQUAL?	PRSA,V?LAMP-OFF \?CCL16
	PRINTR	"It's been off for a long time."
?CCL16:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	PRINTI	"The remains of "
	ICALL1	THE-PRINT
	PRINT	STR?767
	RTRUE	


	.FUNCT	GET-SEXTANT
	FSET?	SEXTANT,NODESC \FALSE
	FCLEAR	SEXTANT,NODESC
	MOVE	SEXTANT,PRSO
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	RFALSE	


	.FUNCT	SEXTANT-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL5
	PRINTI	"A quaint but obsolete instrument, long since replaced by Kaluzniacki's "
	ICALL2	ITALICIZE,STR?768
	PRINTR	" spell. Nevertheless, even he would have hesitated to throw this sextant away, as it appears to be wrought of solid platinum."
?CCL5:	EQUAL?	PRSA,V?POINT-AT,V?TURN-TO,V?ADJUST /?CTR6
	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH,V?CLOSE \FALSE
?CTR6:	PRINTR	"You have no idea how to operate this arcane instrument."


	.FUNCT	CHEST-F,CONTEXT,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	PRINTI	"An old "
	PRINTD	CHEST
	PRINTI	" lies half-buried in debris."
	RTRUE	
?CCL3:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CND1
	EQUAL?	HERE,TOWER-TOP \?CCL9
	FSET?	DORN,LIVING \?CCL9
	FSET?	DORN,NODESC \?CCL9
	FCLEAR	DORN,NODESC
	ICALL2	QUEUE,I-DORN
	MOVE	DORN,TOWER-TOP
	ICALL2	SEE-CHARACTER,DORN
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	STR?769
	PRINTI	"hear a loud ""Hurumph!"" immediately behind you."
	CRLF	
	ZERO?	DMODE /?CCL14
	EQUAL?	PRIOR,0,SHOWING-ROOM /TRUE
?CCL14:	ICALL2	RELOOK,TRUE-VALUE
	RTRUE	
?CCL9:	CALL2	VISIBLE?,DORN
	ZERO?	STACK /?CND1
	FSET?	DORN,MUNGED /?CND1
	ICALL2	CTHE-PRINT,DORN
	PRINTI	" won't let you near "
	ICALL2	THE-PRINT,CHEST
	PRINT	PERIOD
	RTRUE	
?CND1:	CALL	NOUN-USED?,W?LID,W?COVER
	ZERO?	STACK /?CCL22
	EQUAL?	PRSA,V?LOOK-UNDER,V?LOOK-BEHIND \?CCL25
	ICALL	PERFORM,V?LOOK-INSIDE,CHEST
	RTRUE	
?CCL25:	EQUAL?	PRSA,V?OPEN,V?RAISE \?CND20
	ICALL1	OPEN-CHEST
	RTRUE	
?CCL22:	CALL2	NOUN-USED?,W?PLATE
	ZERO?	STACK \?CCL27
	CALL	ADJ-USED?,W?BRASS,W?METAL
	ZERO?	STACK /?CND20
?CCL27:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \?CCL32
	ICALL1	READ-PLATE
	RTRUE	
?CCL32:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND20
	ICALL	FIRMLY-ATTACHED,STR?770,CHEST,TRUE-VALUE
	RTRUE	
?CND20:	ZERO?	NOW-PRSI? /?CCL36
	EQUAL?	PRSA,V?PUT,V?EMPTY-INTO \?CCL39
	FSET?	PRSI,OPENED /?CCL42
	ICALL	YOUD-HAVE-TO,STR?518,PRSI
	RTRUE	
?CCL42:	EQUAL?	PRSO,PARASOL \FALSE
	FSET?	PRSO,OPENED \FALSE
	ICALL2	YOUD-HAVE-TO,STR?536
	RTRUE	
?CCL39:	EQUAL?	PRSA,V?PUT-ON \FALSE
	FSET?	PRSI,OPENED \?CND47
	ICALL	YOUD-HAVE-TO,STR?536,PRSI
	RTRUE	
?CND47:	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL36:	EQUAL?	PRSA,V?TAKE \?CCL50
	FSET?	PRSO,OPENED \?CCL53
	ICALL2	YOUD-HAVE-TO,STR?536
	RTRUE	
?CCL53:	CALL1	ITAKE
	ZERO?	STACK /TRUE
	PUTP	PRSO,P?DESCFCN,0
	PRINTR	"Taken."
?CCL50:	EQUAL?	PRSA,V?READ \?CCL56
	ICALL1	READ-PLATE
	RTRUE	
?CCL56:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL58
	PRINTI	"The oak chest is compact and sturdy, probably the craft of Antharian dwarves. No latch or keyhole is visible, but a brass plate is affixed to the top of the "
	FSET?	PRSO,OPENED \?CCL61
	PRINTB	W?OPEN
	JUMP	?CND59
?CCL61:	PRINTB	W?CLOSED
?CND59:	PRINTR	" lid."
?CCL58:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH \FALSE
	ICALL1	OPEN-CHEST
	RTRUE	


	.FUNCT	READ-PLATE
	FSET	CHEST,SEEN
	PRINTI	"The brass plate on "
	ICALL1	THE-PRINT
	PRINTI	"'s lid is engraved with a simple warning in many languages, including yours: "
	PRINT	STR?771
	RTRUE	


	.FUNCT	OPEN-CHEST,L
	LOC	CHEST >L
	LOC	PLAYER
	EQUAL?	L,STACK /?CCL3
	ICALL	YOUD-HAVE-TO,STR?519,CHEST
	RTRUE	
?CCL3:	FSET?	CHEST,OPENED \?CCL5
	ICALL2	ITS-ALREADY,STR?518
	RTRUE	
?CCL5:	FSET?	IN-SPLENDOR,TOUCHED /?CND1
	FSET?	CHEST,SEEN /?CND1
	FSET	CHEST,SEEN
	PRINT	STR?769
	PRINTI	"notice a brass plate inscribed with the words "
	PRINT	STR?771
	RTRUE	
?CND1:	IN?	PLAYER,ARCH /?CTR9
	EQUAL?	ATIME,PRESENT /?CCL10
?CTR9:	PRINTR	"The arch's presence keeps the chest tightly shut."
?CCL10:	EQUAL?	HERE,APLANE \?CND8
	EQUAL?	ABOVE,OPLAIN \?CND8
	ICALL1	PERMISSION
	RTRUE	
?CND8:	ICALL1	TO-SPLENDOR
	RTRUE	


	.FUNCT	TO-SPLENDOR,WHO,DIR,X,Y
	GETP	HERE,P?FNUM
	PUTP	IN-SPLENDOR,P?FNUM,STACK
	SET	'DIR,P?NW
?PRG1:	SET	'X,SORRY-EXIT
	SET	'Y,STR?743
	RANDOM	100
	LESS?	50,STACK /?CND3
	SET	'X,649
	SET	'Y,IN-SPLENDOR
?CND3:	ICALL	NEW-EXIT?,IN-SPLENDOR,DIR,X,Y
	IGRTR?	'DIR,P?NORTH \?PRG1
	ICALL1	SAFE-VEHICLE-EXIT
	MOVE	HERD,IN-SPLENDOR
	ICALL	QUEUE,I-MARE-SEES,3
	ICALL1	DESCRIBE-GATE
	ICALL1	CARRIAGE-RETURNS
	ICALL2	GOTO,IN-SPLENDOR
	RTRUE	


	.FUNCT	DESCRIBE-GATE,WHO
	ICALL1	PCLEAR
	FSET	CHEST,OPENED
	FSET?	PHASE,NOALL \?CND1
	FCLEAR	PHASE,NOALL
	ICALL2	QUEUE,I-PHASE
?CND1:	PRINTI	"Rays of golden light burst from "
	ICALL2	THE-PRINT,CHEST
	PRINTI	"'s interior as the lid creaks open. "
	ASSIGNED?	'WHO \?CCL5
	ICALL2	CTHE-PRINT,WHO
	PRINTI	" is"
	JUMP	?CND3
?CCL5:	PRINTI	"You're"
?CND3:	PRINTI	" bathed in a chorus of radiant ecstasy that almost drowns out the telltale "
	HLIGHT	H-ITALIC
	PRINTI	"snap"
	HLIGHT	H-NORMAL
	PRINTI	" of an opening Gate."
	CRLF	
	ASSIGNED?	'WHO \TRUE
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINT	TAB
	PRINTI	"When your head clears, "
	ICALL2	THE-PRINT,WHO
	PRINTR	" is gone without a trace."


	.FUNCT	HERD-F,CONTEXT,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	ICALL2	PRINTCA,HERD
	PRINTI	" grazes peacefully among the trees."
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE \?CCL7
	PRINTR	"This herd is mostly mares and colts, who rub their horns affectionately against their mothers' flanks. Oddly, every unicorn is wearing a gold key on a chain around its neck."
?CCL7:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X /?CTR8
	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \FALSE
?CTR8:	ICALL1	UNICORNS-FLEE
	RTRUE	


	.FUNCT	UNICORNS-FLEE,STR
	ICALL1	PCLEAR
	ICALL2	DEQUEUE,I-MARE-SEES
	ICALL	QUEUE,I-ARREST,2
	REMOVE	HERD
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINTI	"One of the mares glances up "
	ASSIGNED?	'STR \?CCL3
	PRINT	STR
	JUMP	?CND1
?CCL3:	PRINTI	"as you draw closer"
?CND1:	PRINTI	". Her nostrils flare with surprise, and a high-pitched voice in your head cries, """
	FSET?	HERD,SEEN \?CCL6
	PRINTI	"Another i"
	JUMP	?CND4
?CCL6:	PRINTC	73
?CND4:	PRINTR	"ntruder!""
  The herd springs to full alert. Mothers nudge their frightened colts out of sight, then gallop away between the trees. Within moments, the glade is completely deserted."


	.FUNCT	HARD-PHASE-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \?CCL5
	PRINTI	"The sharp blade blazes in a rainbow of anticipation."
	CRLF	
	ICALL1	SHAPESEE
	RTRUE	
?CCL5:	EQUAL?	PRSA,V?SWING \FALSE
	ICALL1	HUMS
	PRINTI	"swings, a blazing streak of color in its wake."
	CRLF	
	ICALL1	SHAPESEE
	RTRUE	


	.FUNCT	SHAPESEE
	IN?	SHAPE,HERE \TRUE
	PRINT	TAB
	ICALL2	CTHE-PRINT,SHAPE
	PRINTR	" quivers nervously."


	.FUNCT	HUMS
	ICALL1	WHOOSH
	ICALL2	CTHE-PRINT,PHASE
	PRINTI	" hums with Magick as it "
	RTRUE	


	.FUNCT	SOFT-PHASE-F,X
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?TOUCH-TO \?CCL6
	EQUAL?	PRSO,HANDS \?CND7
	ICALL1	FEEL-PHASE
	RTRUE	
?CND7:	ICALL	PASS-THRU,PRSO,PRSI
	RTRUE	
?CCL6:	EQUAL?	PRSA,V?HIT,V?MUNG,V?CUT \FALSE
	ICALL1	PHASE-WHOOSH
	RTRUE	
?CCL3:	INTBL?	PRSA,SEEVERBS,NSVERBS >X \?CCL11
	FSET?	PRSO,NODESC \?CND12
	PRINTI	"You still can't see "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CND12:	FSET	PHASE,NODESC
	FSET	PHASE,SEEN
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL1	CTHE-PRINT
	PRINTR	" disappears the moment you set eyes on it."
?CCL11:	EQUAL?	PRSA,V?TOUCH-TO \?CCL15
	EQUAL?	PRSI,FALSE-VALUE,HANDS \?CND16
	ICALL1	FEEL-PHASE
	RTRUE	
?CND16:	ICALL	PASS-THRU,PRSO,PRSI
	RTRUE	
?CCL15:	EQUAL?	PRSA,V?TOUCH,V?HIT,V?SQUEEZE \FALSE
	EQUAL?	PRSI,FALSE-VALUE,HANDS \?CND20
	ICALL1	FEEL-PHASE
	RTRUE	
?CND20:	ICALL	PASS-THRU,PRSI,PRSO
	RTRUE	


	.FUNCT	PHASE-WHOOSH
	ICALL1	WHOOSH
	PRINTI	"You swing "
	ICALL1	THEI-PRINT
	PRINTI	", but it"
	ICALL1	RIGHT-THRU
	RFALSE	


	.FUNCT	PASS-THRU,OBJ1,OBJ2
	PRINTI	"Oddly enough, "
	ICALL2	THE-PRINT,OBJ1
	ICALL2	RIGHT-THRU,OBJ2
	RTRUE	


	.FUNCT	PASSES-THROUGH,WITH,OBJ
	ICALL2	YOUR-OBJ,WITH
	ICALL	RIGHT-THRU,OBJ,TRUE-VALUE
	PRINTR	" as if it weren't there!"


	.FUNCT	RIGHT-THRU,OBJ,NOCR
	ASSIGNED?	'OBJ /?CND1
	SET	'OBJ,PRSO
?CND1:	PRINTI	" passes right through "
	ICALL2	THE-PRINT,OBJ
	ASSIGNED?	'NOCR /TRUE
	PRINT	PERIOD
	RTRUE	


	.FUNCT	FEEL-PHASE
	PRINTI	"You feel a cool, sharp sensation, like brushing against the edge of a knife. But "
	ICALL2	THE-PRINT,PHASE
	PRINTI	" seems"
	PRINT	STR?772
	RTRUE	


	.FUNCT	SETUP-PHASE,TBL
	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	ICALL2	DEQUEUE,I-PHASE
	FCLEAR	PHASE,NODESC
	PUTP	PHASE,P?ACTION,HARD-PHASE-F
	PUTP	PHASE,P?SIZE,7
	PUTP	PHASE,P?EFFECT,75
	FSET	PHASE,WEAPON
	GETPT	PHASE,P?SYNONYM >TBL
	PUT	TBL,0,W?SWORD
	PUT	TBL,2,W?BLADE
	PUT	TBL,3,W?WEAPON
	ICALL	REPLACE-ADJ?,PHASE,W?VAGUE,W?PHASE
	RFALSE	


	.FUNCT	MUNG-PHASE,TBL
	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	ICALL2	QUEUE,I-PHASE
	FCLEAR	PHASE,NODESC
	FCLEAR	PHASE,SEEN
	PUTP	PHASE,P?ACTION,SOFT-PHASE-F
	PUTP	PHASE,P?SIZE,0
	PUTP	PHASE,P?EFFECT,0
	FCLEAR	PHASE,WEAPON
	GETPT	PHASE,P?SYNONYM >TBL
	PUT	TBL,0,W?OUTLINE
	PUT	TBL,2,W?SHAPE
	PUT	TBL,3,W?ZZZP
	ICALL	REPLACE-ADJ?,PHASE,W?PHASE,W?VAGUE
	RFALSE	


	.FUNCT	THRONE-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL5
	ICALL1	GET-DOUBLOON?
	PRINTI	"The material is heaped into a crude throne"
	FIRST?	PRSO >X \?CND6
	PRINT	STR?773
	ICALL1	CONTENTS
?CND6:	PRINT	PERIOD
	SET	'P-IT-OBJECT,PRSO
	RTRUE	
?CCL5:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL9
	ICALL1	GET-DOUBLOON?
	FIRST?	PRSO >X \?CCL12
	SET	'X,W?YOU
	PRINTI	"Sifting"
	JUMP	?CND10
?CCL12:	SET	'X,W?BUT
	PRINTI	"You sift"
?CND10:	PRINTI	" through the material in "
	ICALL1	THE-PRINT
	PRINTI	", "
	PRINTB	X
	PRINTI	" discover "
	ICALL1	CONTENTS
	PRINT	PERIOD
	SET	'P-IT-OBJECT,PRSO
	RTRUE	
?CCL9:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	PRINTI	"None of it seems worth moving"
	CALL1	GET-DOUBLOON?
	ZERO?	STACK /?CND15
	SET	'P-IT-OBJECT,DOUBLOON
	PRINTI	", except for "
	ICALL2	THE-PRINT,DOUBLOON
	PRINTI	" you just noticed"
?CND15:	PRINT	PERIOD
	RTRUE	


	.FUNCT	GET-DOUBLOON?
	FSET?	DOUBLOON,NODESC \FALSE
	FCLEAR	DOUBLOON,NODESC
	MOVE	DOUBLOON,PRSO
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	RTRUE	


	.FUNCT	DOUBLOON-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \FALSE
	PRINTR	"Obviously of significant value."


	.FUNCT	TELE-WAND-F
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?ZAP-WITH \FALSE
	ICALL	DO-TELE,PRSO,PRSI
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?POINT-AT,V?TOUCH-TO,V?FIRE-AT \?CCL7
	ICALL	DO-TELE,PRSI,PRSO
	RTRUE	
?CCL7:	CALL1	HANDLE-WANDS?
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	DO-TELE,OBJ,W,S,L,LEN,RM
	CALL	DONT-HAVE-WAND?,OBJ,W
	ZERO?	STACK \TRUE
	CALL	NOT-LIVING?,OBJ,W
	ZERO?	STACK \TRUE
	CALL2	OUT-OF-GAS?,W
	ZERO?	STACK \TRUE
	CALL2	WAND-STRENGTH?,W >S
	LOC	OBJ >L
	PRINTI	"A ray of hard blue "
	ICALL2	EXPLODES,W
	EQUAL?	OBJ,ME,HANDS,FEET /?CTR8
	EQUAL?	OBJ,GRINDER /?CTR8
	EQUAL?	L,PLAYER /?CTR8
	IN?	L,PLAYER \?CCL9
?CTR8:	EQUAL?	OBJ,GRINDER \?CND14
	ICALL1	QUICKER
	PRINTI	" and uses the lid to reflect the ray back into your face"
?CND14:	GETB	TELEROOMS,0 >LEN
?PRG16:	RANDOM	LEN
	GETB	TELEROOMS,STACK >RM
	EQUAL?	RM,HERE /?PRG16
	PRINTI	"! You're engulfed"
	PRINT	STR?774
	PRINTI	"..."
	CRLF	
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	ICALL1	SAFE-VEHICLE-EXIT
	ICALL1	CARRIAGE-RETURNS
	ICALL2	GOTO,RM
	PRINT	TAB
	PRINT	XTHE
	PRINTB	W?LANDSCAPE
	PRINTI	" stops reeling"
	JUMP	?CND7
?CCL9:	FSET?	OBJ,MONSTER \?CCL21
	EQUAL?	OBJ,DUST,WIGHT /?CND22
	FSET	OBJ,SLEEPING
	FSET	OBJ,NEUTRALIZED
	ICALL2	TELEPORT-MONSTER,OBJ
?CND22:	PRINTI	", engulfing "
	ICALL2	THE-PRINT,OBJ
	PRINT	STR?774
	PRINT	PERIOD
	EQUAL?	OBJ,DUST \?CND24
	FSET?	OBJ,TOUCHED /?CND26
	ICALL1	START-DUST
?CND26:	FCLEAR	OBJ,SEEN
	GETP	W,P?STRENGTH
	SUB	0,STACK
	ICALL	UPDATE-STAT,STACK,STRENGTH
	RTRUE	
?CND24:	PRINT	TAB
	ICALL2	ITALICIZE,STR?615
	PRINTI	". "
	ICALL2	CTHE-PRINT,OBJ
	EQUAL?	OBJ,WIGHT \?CCL30
	PRINT	STR?578
	PRINTI	", rematerializing ten feet beyond the edge of the cliff. It"
	PRINT	STR?624
	PRINTI	", looks down, looks back up at you, waves goodbye and plummets out of sight"
	JUMP	?CND7
?CCL30:	PRINTI	" is nowhere to be seen"
	JUMP	?CND7
?CCL21:	PRINT	STR?775
?CND7:	PRINT	PERIOD
	GETP	W,P?STRENGTH
	SUB	0,STACK
	ICALL	UPDATE-STAT,STACK,STRENGTH
	EQUAL?	OBJ,WIGHT \?CND31
	ICALL2	KILL-MONSTER,WIGHT
?CND31:	ICALL	STARTLE,OBJ,W
	RTRUE	


	.FUNCT	EXPLODES,W
	PRINTI	"Magick explodes from the tip of "
	ICALL2	THE-PRINT,W
	RTRUE	


	.FUNCT	TELEPORT-MONSTER,OBJ,TBL,LEN,RM
	GETP	OBJ,P?HABITAT >TBL
	GETB	TBL,0 >LEN
?PRG1:	RANDOM	LEN
	GETB	TBL,STACK >RM
	EQUAL?	RM,HERE /?PRG1
	ICALL2	EXUENT-MONSTER,OBJ
	MOVE	OBJ,RM
	RFALSE	


	.FUNCT	SLEEP-WAND-F
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?ZAP-WITH \FALSE
	ICALL	DO-SLEEP,PRSO,PRSI
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?POINT-AT,V?TOUCH-TO,V?FIRE-AT \?CCL7
	ICALL	DO-SLEEP,PRSI,PRSO
	RTRUE	
?CCL7:	CALL1	HANDLE-WANDS?
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	DO-SLEEP,OBJ,W,S,LEN
	CALL	DONT-HAVE-WAND?,OBJ,W
	ZERO?	STACK \TRUE
	CALL	NOT-LIVING?,OBJ,W
	ZERO?	STACK \TRUE
	CALL2	OUT-OF-GAS?,W
	ZERO?	STACK \TRUE
	CALL2	WAND-STRENGTH?,W >S
	PRINTI	"A beam of soothing amber radiance "
	EQUAL?	OBJ,ME \?CND7
	SET	'ATTACK-MODE,THRUSTING
	PRINTI	"forces you to stifle a yawn."
	CRLF	
	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	
?CND7:	PRINTI	"envelops "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" as you train "
	ICALL2	THE-PRINT,W
	PRINTI	" upon "
	ICALL	PRONOUN,OBJ,TRUE-VALUE
	GET	NO-SLEEPS,0 >LEN
	EQUAL?	OBJ,DACT \?CCL11
	ZERO?	DACT-SLEEP /?CND12
	EQUAL?	DACT-SLEEP,3 /?CND14
	INC	'DACT-SLEEP
?CND14:	PRINTI	", and he snuggles deeper into his nap."
	CRLF	
	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	
?CND12:	PRINT	PTAB
	ICALL2	CTHE-PRINT,OBJ
	ICALL1	DACT-TO-SLEEP
	JUMP	?CND9
?CCL11:	EQUAL?	OBJ,DORN \?CCL17
	PRINTI	". Two or three of its 69 eyes flutter drowsily."
	CRLF	
	JUMP	?CND9
?CCL17:	EQUAL?	OBJ,OWOMAN \?CCL19
	PRINT	PTAB
	PRINTI	"""Stop it!"" she laughs, brushing aside the beam with a wave. ""That tickles."""
	CRLF	
	JUMP	?CND9
?CCL19:	EQUAL?	OBJ,CORBIES \?CCL21
	PRINTI	". A few seem to hesitate in their flight; but they recover quickly."
	CRLF	
	JUMP	?CND9
?CCL21:	EQUAL?	OBJ,PUPP \?CCL23
	PRINT	PTAB
	ICALL2	CTHE-PRINT,OBJ
	PRINTI	" promptly mimics your action, using its third finger to represent your "
	ICALL2	DPRINT,W
	PRINT	PERIOD
	JUMP	?CND9
?CCL23:	INTBL?	OBJ,NO-SLEEPS+2,LEN >LEN /?CTR24
	EQUAL?	OBJ,WORM \?CCL25
	FSET?	OBJ,MONSTER /?CCL25
?CTR24:	PRINTI	". But "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" appears to be completely unaffected."
	CRLF	
	JUMP	?CND9
?CCL25:	EQUAL?	OBJ,GRINDER /?CTR30
	FSET?	OBJ,MONSTER /?CCL31
?CTR30:	PRINTI	"; but aside from a brief fit of yawning, "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" seems unaffected."
	CRLF	
	JUMP	?CND9
?CCL31:	FSET?	OBJ,SLEEPING \?CCL35
	PRINTI	". Nothing further seems to happen."
	CRLF	
	JUMP	?CND9
?CCL35:	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	ICALL	REPLACE-ADJ?,OBJ,W?AWAKE,W?STUNNED
	FSET	OBJ,SLEEPING
	FSET	OBJ,NEUTRALIZED
	PRINT	PERIOD
?CND9:	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	


	.FUNCT	DACT-TO-SLEEP,G
	PRINTI	" closes his eyes, swaying his skinny head back and forth with drowsy reminiscences"
	ZERO?	G /?CND1
	PRINTI	". Soon his snore drowns out the fading song"
?CND1:	EQUAL?	HERE,IN-SKY \?CND3
	PRINT	PTAB
	PRINTI	"You tumble into a nose dive as "
	ICALL2	THE-PRINT,DACT
	PRINTI	"'s wings go limp. Desperate screams of terror do not wake him in time to avoid a crash"
	ICALL1	JIGS-UP
	RFALSE	
?CND3:	PRINT	PERIOD
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL	REPLACE-ADJ?,DACT,W?AWAKE,W?SLEEPING
	FSET	DACT,SLEEPING
	SET	'DACT-SLEEP,4
	RFALSE	


	.FUNCT	IO-WAND-F
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?ZAP-WITH \FALSE
	ICALL	DO-IO,PRSO,PRSI
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?POINT-AT,V?TOUCH-TO,V?FIRE-AT \?CCL7
	ICALL	DO-IO,PRSI,PRSO
	RTRUE	
?CCL7:	CALL1	HANDLE-WANDS?
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	DO-IO,OBJ,W,S,NXT,X
	CALL	DONT-HAVE-WAND?,OBJ,W
	ZERO?	STACK \TRUE
	CALL2	OUT-OF-GAS?,W
	ZERO?	STACK \TRUE
	CALL2	WAND-STRENGTH?,W >S
	ICALL2	ITALICIZE,STR?776
	PRINTI	"! A zone of negative geometry forms in the space around "
	EQUAL?	OBJ,ME,HANDS,FEET \?CCL7
	SET	'ATTACK-MODE,THRUSTING
	PRINTI	"your body"
	JUMP	?CND5
?CCL7:	ICALL2	THE-PRINT,OBJ
	PRINTI	", effectively turning "
	ICALL	PRONOUN,OBJ,TRUE-VALUE
	PRINTI	" inside out"
?CND5:	PRINTI	". This disconcerting effect lasts only for a moment"
	EQUAL?	OBJ,ME,HANDS,FEET /?CND8
	EQUAL?	OBJ,IDOL-ROOM \?CCL11
	EQUAL?	HERE,INNARDS \?CCL11
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	LOC	MAW >HERE
	FCLEAR	HERE,TOUCHED
	MOVE	PLAYER,HERE
	ICALL	MOVE-ALL,INNARDS,HERE,NODESC
	JUMP	?CND8
?CCL11:	EQUAL?	OBJ,OWOMAN \?CCL15
	PRINT	PTAB
	PRINTI	"""Very funny,"" she remarks, regaining her composure"
	JUMP	?CND8
?CCL15:	EQUAL?	OBJ,BOTTLE \?CCL17
	PRINTI	"; very little of "
	ICALL2	THE-PRINT,OBJ
	PRINTI	"'s contents escapes."
	CRLF	
	JUMP	?CND8
?CCL17:	EQUAL?	OBJ,MAMA \?CCL19
	FIRST?	OBJ >NXT \?CCL19
	SET	'OBJ,NXT
?PRG22:	NEXT?	OBJ >NXT /?BOGUS24
?BOGUS24:	FCLEAR	OBJ,NODESC
	LOC	MAMA
	MOVE	OBJ,STACK
	SET	'OBJ,NXT
	ZERO?	OBJ \?PRG22
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINTI	"; but long enough for the undigested contents of "
	ICALL2	THE-PRINT,MAMA
	PRINTI	"'s stomach to fall "
	SET	'OBJ,GROUND
	IN?	MAMA,HERE /?CND27
	PRINTI	"on"
	LOC	MAMA >OBJ
?CND27:	PRINTI	"to "
	ICALL2	THE-PRINT,OBJ
	JUMP	?CND8
?CCL19:	FSET?	OBJ,LIVING \?CCL30
	PRINTI	", and leaves "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" looking "
	FSET?	OBJ,MONSTER \?CCL33
	FSET?	OBJ,SLEEPING /?CCL33
	SET	'ATTACK-MODE,THRUSTING
	PRINTI	"madder than ever"
	JUMP	?CND8
?CCL33:	PRINTI	"rather upset"
	JUMP	?CND8
?CCL30:	FSET?	OBJ,CONTAINER \?CND8
	FIRST?	OBJ >OBJ \?CND8
	SET	'X,0
?PRG39:	FSET?	OBJ,NODESC /?CND41
	FSET?	OBJ,TAKEABLE \?CND41
	INC	'X
?CND41:	NEXT?	OBJ >OBJ /?PRG39
	ZERO?	X /?CND8
	PRINTI	"; but you catch a glimpse of some"
	EQUAL?	X,1 \?CCL50
	PRINTB	W?THING
	JUMP	?CND48
?CCL50:	PRINTI	" things"
?CND48:	PRINTI	" inside"
?CND8:	PRINT	PERIOD
	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	


	.FUNCT	LEV-WAND-F
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?ZAP-WITH \FALSE
	ICALL	DO-LEV,PRSO,PRSI
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?POINT-AT,V?TOUCH-TO,V?FIRE-AT \?CCL7
	ICALL	DO-LEV,PRSI,PRSO
	RTRUE	
?CCL7:	CALL1	HANDLE-WANDS?
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	DO-LEV,OBJ,W,M,L,X,S
	GET	STATS,STRENGTH >S
	GRTR?	S,24 \?CCL3
	SET	'S,-24
	JUMP	?CND1
?CCL3:	SUB	S,1
	SUB	0,STACK >S
?CND1:	CALL	DONT-HAVE-WAND?,OBJ,W
	ZERO?	STACK \TRUE
	EQUAL?	OBJ,W \?CCL8
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL8:	CALL2	OUT-OF-GAS?,W
	ZERO?	STACK \TRUE
	LOC	PLAYER
	EQUAL?	OBJ,ME,STACK \?CCL12
	ICALL	WAND-STRUGGLE,S,W
	RTRUE	
?CCL12:	EQUAL?	OBJ,UNICORN \?CCL14
	ICALL2	CTHE-PRINT,UNICORN
	PRINTI	" whinnies with fear as her hooves leave the floor! "
	PRINT	STR?777
	PRINT	STR?778
	PRINTI	"tall gate"
	PRINT	STR?779
	ICALL	UPDATE-STAT,S,STRENGTH
	IN?	CHEST,HERE \?CND15
	ICALL1	UNICORN-OPENS-CHEST
	RTRUE	
?CND15:	PRINT	TAB
	ICALL2	CTHE-PRINT,UNICORN
	PRINTC	SP
	ICALL1	BYE-UNICORN
	RTRUE	
?CCL14:	EQUAL?	OBJ,BABY \?CND4
	ICALL2	VANISH,BABY
	ICALL2	DEQUEUE,I-BABY
	ICALL2	VANISH,MAMA
	ICALL2	DEQUEUE,I-MAMA
	ICALL2	CTHE-PRINT,OBJ
	PRINTI	" bellows with surprise as he rises out of "
	ICALL2	THE-PRINT,QUICKSAND
	PRINTI	"! "
	PRINT	STR?777
	PRINT	STR?778
	PRINTB	W?MUD
	PRINT	STR?779
	ICALL	UPDATE-STAT,S,STRENGTH
	PRINT	TAB
	PRINTI	"The ungainly creature nuzzles you with his muddy snout, and bats his eyelashes with joy and gratitude. Then he "
	IN?	MAMA,HERE \?CCL20
	PRINTI	"and his mother amble"
	JUMP	?CND18
?CCL20:	PRINTI	"ambles"
?CND18:	PRINTI	" away into the jungle to"
	IN?	MAMA,HERE \?CCL23
	PRINTI	"gether"
	JUMP	?CND21
?CCL23:	PRINTI	" find his mother"
?CND21:	PRINTI	", pausing for a final bellow of farewell."
	CRLF	
	ICALL	UPDATE-STAT,15,COMPASSION,TRUE-VALUE
	RTRUE	
?CND4:	EQUAL?	OBJ,ARROW \?CCL26
	IN?	OBJ,DACT \?CCL26
	FSET?	OBJ,NODESC \?CCL26
	ICALL2	CTHE-PRINT,DACT
	FSET?	DACT,SLEEPING \?CCL32
	PRINTI	" stirs restlessly"
	JUMP	?CND30
?CCL32:	PRINTI	" screeches with pain"
?CND30:	PRINTI	" as "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" tugs against his wound."
	CRLF	
	LESS?	S,-3 \?CND33
	SET	'S,-3
?CND33:	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	
?CCL26:	EQUAL?	OBJ,XTREES \?CCL36
	PRINTI	"Ornaments and tinsel disappear into the sky."
	CRLF	
	LESS?	S,-3 \?CND37
	SET	'S,-3
?CND37:	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	
?CCL36:	EQUAL?	OBJ,DUST \?CCL40
	PRINTI	"Dust bunnies scatter all over the room."
	CRLF	
	LESS?	S,-3 \?CND41
	SET	'S,-3
?CND41:	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	
?CCL40:	IN?	OBJ,GRINDER \?CCL44
	ICALL2	CTHE-PRINT,GRINDER
	PRINTI	" retrieves the rising "
	ICALL2	DPRINT,OBJ
	PRINTI	" with a chuckle. ""Cute."""
	CRLF	
	LESS?	S,-3 \?CND45
	SET	'S,-3
?CND45:	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	
?CCL44:	FSET?	OBJ,TAKEABLE \?CCL48
	LOC	OBJ >L
	ICALL2	CTHE-PRINT,OBJ
	EQUAL?	L,PLAYER \?CCL51
	FSET?	OBJ,WORN \?CCL51
	PRINTI	" tugs vainly against your body for a few moments."
	CRLF	
	JUMP	?CND49
?CCL51:	EQUAL?	OBJ,RELIQUARY \?CCL55
	EQUAL?	L,ALTAR \?CCL55
	PRINTI	" begins to float"
	ICALL2	OUT-OF-LOC,L
	FSET	CLERIC,SEEN
	PRINT	PTAB
	PRINTI	"""A sign!"" cries "
	ICALL2	THE-PRINT,CLERIC
	PRINTI	", snatching "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" out of the air and gently replacing it. ""A sign from the gods!"""
	CRLF	
	PRINT	TAB
	ICALL2	CTHE-PRINT,CONGREG
	PRINTI	" grovels in fear and wonder."
	CRLF	
	JUMP	?CND49
?CCL55:	EQUAL?	L,MCASE,BCASE,WCASE \?CCL59
	PRINTI	" begins to float off its shelf in "
	ICALL2	THE-PRINT,L
	PRINT	PTAB
	PRINTI	"""No shoplifting!"" snaps "
	ICALL2	THE-PRINT,OWOMAN
	PRINT	COMMA-AND
	ICALL2	THE-PRINT,OBJ
	PRINTI	" drops back into place."
	CRLF	
	JUMP	?CND49
?CCL59:	PRINTI	" rises"
	EQUAL?	L,PLAYER \?CCL62
	PRINTI	" out of your grasp"
	JUMP	?CND60
?CCL62:	ICALL2	OUT-OF-LOC,L
?CND60:	PRINTI	", hovers for a moment and "
	ICALL	FALLS,OBJ,FALSE-VALUE
?CND49:	GETP	OBJ,P?SIZE >X
	GET	STATS,STRENGTH
	SUB	STACK,1 >S
	LESS?	X,1 \?CCL65
	SET	'X,1
	JUMP	?CND63
?CCL65:	GRTR?	X,S \?CND63
	SET	'X,S
?CND63:	SUB	0,X
	ICALL	UPDATE-STAT,STACK,STRENGTH
	EQUAL?	OBJ,SHILL \TRUE
	FSET?	SHILL,TOUCHED /TRUE
	ICALL1	GET-SHILL
	RTRUE	
?CCL48:	FSET?	OBJ,LIVING \?CND24
	ICALL2	CTHE-PRINT,OBJ
	EQUAL?	OBJ,DACT \?CND72
	EQUAL?	HERE,IN-SKY \?CND72
	PRINTI	" spins out of control and crashes, killing you both instantly"
	ICALL1	JIGS-UP
	RTRUE	
?CND72:	PRINTI	" begins to rise off the "
	ICALL1	GROUND-WORD
	PRINTI	", but "
	EQUAL?	OBJ,OWOMAN \?CCL78
	PRINTI	"her glare of annoyance prompt"
	JUMP	?CND76
?CCL78:	FSET?	OBJ,FEMALE \?CCL81
	PRINTB	W?HER
	JUMP	?CND79
?CCL81:	FSET?	OBJ,MONSTER \?CCL83
	PRINTI	"its"
	JUMP	?CND79
?CCL83:	PRINTI	"his"
?CND79:	FSET?	OBJ,MONSTER /?CTR85
	FSET?	OBJ,SLEEPING \?CCL86
?CTR85:	PRINTI	" wild thrashing force"
	JUMP	?CND76
?CCL86:	PRINTI	" obvious distress prompt"
?CND76:	PRINTI	"s you to set "
	FSET?	OBJ,FEMALE \?CCL91
	PRINTB	W?HER
	JUMP	?CND89
?CCL91:	FSET?	OBJ,MONSTER \?CCL93
	PRINTB	W?IT
	JUMP	?CND89
?CCL93:	PRINTB	W?HIM
?CND89:	PRINTI	" down at once."
	CRLF	
	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	
?CND24:	ICALL	WAND-STRUGGLE,S,W,OBJ
	RTRUE	


	.FUNCT	WAND-STRUGGLE,S,W,OBJ
	PRINTI	"Your strength wanes sharply as "
	ICALL2	THE-PRINT,W
	PRINTI	" struggles for influence"
	ASSIGNED?	'OBJ \?CND1
	PRINTI	"over "
	ICALL2	THE-PRINT,OBJ
?CND1:	PRINT	PERIOD
	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	


	.FUNCT	BLAST-WAND-F
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?ZAP-WITH \FALSE
	ICALL	DO-BLAST,PRSO,PRSI
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?POINT-AT,V?TOUCH-TO,V?FIRE-AT \?CCL7
	ICALL	DO-BLAST,PRSI,PRSO
	RTRUE	
?CCL7:	CALL1	HANDLE-WANDS?
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	DO-BLAST,OBJ,W,B,S,L
	CALL	DONT-HAVE-WAND?,OBJ,W
	ZERO?	STACK \TRUE
	CALL	NOT-LIVING?,OBJ,W
	ZERO?	STACK \TRUE
	CALL2	OUT-OF-GAS?,W
	ZERO?	STACK \TRUE
	CALL2	WAND-STRENGTH?,W >S
	LOC	OBJ >L
	ICALL1	KERBLAM
	PRINTI	"A searing bolt of "
	ICALL2	EXPLODES,W
	EQUAL?	OBJ,ME,HANDS,FEET /?CTR8
	EQUAL?	L,PLAYER /?CTR8
	IN?	L,PLAYER \?CCL9
?CTR8:	PRINTI	", instantly consuming "
	EQUAL?	OBJ,ME \?CCL15
	PRINTI	"you in flames"
	JUMP	?CND13
?CCL15:	ICALL2	THE-PRINT,OBJ
	PRINTI	" in flames, and you with it"
?CND13:	ICALL1	JIGS-UP
	RTRUE	
?CCL9:	EQUAL?	OBJ,GRINDER \?CCL17
	ICALL1	QUICKER
	PRINTI	", whirls the crank and sucks the deadly plasma under the lid."
	CRLF	
	JUMP	?CND7
?CCL17:	EQUAL?	OBJ,DUST \?CCL19
	FSET?	OBJ,TOUCHED /?PRG22
	ICALL1	START-DUST
?PRG22:	ICALL1	MORE-BUNNIES
	IGRTR?	'B,2 \?PRG22
	PRINTI	", scattering dust bunnies all over the room."
	CRLF	
	JUMP	?CND7
?CCL19:	FSET?	OBJ,MONSTER \?CCL27
	PUTP	OBJ,P?ENDURANCE,0
	PUTP	OBJ,P?STRENGTH,0
	PRINTI	", striking "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" squarely in the face!"
	CRLF	
	JUMP	?CND7
?CCL27:	PRINTI	", barely missing "
	EQUAL?	OBJ,WORM \?CCL30
	FSET?	OBJ,MONSTER /?CCL30
	ICALL2	THE-PRINT,OBJ
	JUMP	?CND28
?CCL30:	PRINTI	"its wide-eyed target"
?CND28:	PRINT	PERIOD
?CND7:	ICALL	UPDATE-STAT,S,STRENGTH
	ICALL	STARTLE,OBJ,W
	RTRUE	


	.FUNCT	QUICKER
	PRINTI	", but "
	ICALL2	THE-PRINT,GRINDER
	PRINTI	" is quicker. He throws open his "
	PRINTD	GURDY
	RTRUE	


	.FUNCT	DISPEL-WAND-F
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?ZAP-WITH \FALSE
	ICALL	DO-DISPEL,PRSO,PRSI
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?POINT-AT,V?TOUCH-TO,V?FIRE-AT \?CCL7
	ICALL	DO-DISPEL,PRSI,PRSO
	RTRUE	
?CCL7:	CALL1	HANDLE-WANDS?
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	DO-DISPEL,OBJ,W,NAC,H,S,X,Y
	CALL2	WAND-STRENGTH?,W >S
	CALL	DONT-HAVE-WAND?,OBJ,W
	ZERO?	STACK \TRUE
	EQUAL?	OBJ,W \?CCL5
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL5:	CALL2	OUT-OF-GAS?,W
	ZERO?	STACK \TRUE
	LOC	PLAYER
	EQUAL?	OBJ,ME,STACK \?CND1
	ICALL	WAND-STRUGGLE,S,W
	RTRUE	
?CND1:	PRINTI	"A vortex of energy forms at the tip of "
	ICALL2	THE-PRINT,W
	PRINTI	", reaches outward and "
	EQUAL?	OBJ,DOME /?CTR10
	EQUAL?	OBJ,CRATER,PLUME \?CCL11
	IN?	DOME,ON-PEAK \?CCL11
?CTR10:	SET	'LAVA-TIMER,4
	ICALL2	QUEUE,I-LAVA
	REMOVE	DOME
	MOVE	LAVA,ON-PEAK
	PUTP	CRATER,P?ACTION,CRATER-F
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	ICALL2	HAZE-ENVELOPS,DOME
	PRINTI	"You watch as it spreads across the perimeter, patiently undoing the mystic forces that define its structure"
	PRINT	PTAB
	ICALL1	KERBLAM
	PRINTI	"The mountain roars with volcanic triumph as a thousand years of pent-up fury breaches the bonds of Time. A plume of white-hot lava swells up from the heart of the mountain, only seconds away from where you stand!"
	CRLF	
	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	
?CCL11:	EQUAL?	OBJ,ASUCKER,BSUCKER,CSUCKER \?CCL17
	ICALL2	HAZE-ENVELOPS,OBJ
	PRINT	STR?780
	ICALL2	THE-PRINT,OBJ
	ICALL2	BLAST-SUCKER,OBJ
	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	
?CCL17:	EQUAL?	OBJ,BCASE,MCASE,WCASE /?CTR18
	LOC	OBJ
	EQUAL?	STACK,BCASE,MCASE,WCASE \?CCL19
?CTR18:	FSET	OWOMAN,SEEN
	PRINTI	"reflects harmlessly off "
	ICALL2	THE-PRINT,MCASE
	PRINT	PTAB
	PRINT	CTHELADY
	PRINTI	" conceals a smirk."
	CRLF	
	ICALL	UPDATE-STAT,S,STRENGTH
	RTRUE	
?CCL19:	GET	MAGIC-ITEMS,0 >X
	ZERO?	X /?CCL23
	INTBL?	OBJ,MAGIC-ITEMS+2,X >X \?CCL23
	ICALL2	HAZE-ENVELOPS,OBJ
	FSET?	OBJ,NEUTRALIZED \?CCL28
	PRINT	STR?781
	JUMP	?CND9
?CCL28:	EQUAL?	OBJ,HELM \?CND29
	CALL2	WEARING-MAGIC?,HELM
	ZERO?	STACK /?CND29
	INC	'H
?CND29:	FSET	OBJ,NEUTRALIZED
	PRINT	STR?780
	JUMP	?CND9
?CCL23:	GET	ARMOR-ITEMS,0 >X
	ZERO?	X /?CCL34
	INTBL?	OBJ,ARMOR-ITEMS+2,X >X \?CCL34
	ICALL2	HAZE-ENVELOPS,OBJ
	GETP	OBJ,P?EMAX >X
	GETP	OBJ,P?EFFECT >Y
	EQUAL?	0,X,Y /?CCL39
	GRTR?	Y,X \?CCL39
	PUTP	OBJ,P?EFFECT,X
	SUB	Y,X >NAC
	PRINT	STR?780
	JUMP	?CND9
?CCL39:	PRINT	STR?781
	JUMP	?CND9
?CCL34:	GET	WEAPON-ITEMS,0 >X
	ZERO?	X /?CCL43
	INTBL?	OBJ,WEAPON-ITEMS+2,X >X \?CCL43
	ICALL2	HAZE-ENVELOPS,OBJ
	GETP	OBJ,P?EMAX >X
	GETP	OBJ,P?EFFECT >Y
	EQUAL?	0,X,Y /?CCL48
	GRTR?	Y,X \?CCL48
	PUTP	OBJ,P?EFFECT,X
	PRINT	STR?780
	JUMP	?CND9
?CCL48:	PRINT	STR?781
	JUMP	?CND9
?CCL43:	PRINTI	"explores "
	ICALL2	THE-PRINT,OBJ
	PRINTI	". "
	EQUAL?	OBJ,OWOMAN \?CCL53
	PRINTI	"""How rude,"" she sniffs as "
	JUMP	?CND9
?CCL53:	PRINT	STR?781
?CND9:	PRINTI	"the aura abruptly collapses."
	CRLF	
	ICALL	UPDATE-STAT,S,STRENGTH
	ZERO?	H /?CND54
	ICALL1	NORMAL-IQ
?CND54:	EQUAL?	OBJ,GLASS \?CND56
	ICALL1	ARCH-OFF
?CND56:	ZERO?	NAC /TRUE
	SUB	0,NAC
	ICALL	UPDATE-STAT,STACK,ARMOR-CLASS
	RTRUE	


	.FUNCT	HAZE-ENVELOPS,OBJ
	PRINTI	"envelops "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" in a swirling haze. "
	RTRUE	


	.FUNCT	WAND-STRENGTH?,OBJ,S,X
	GETP	OBJ,P?STRENGTH >S
	GET	STATS,ENDURANCE
	SUB	STACK,1 >X
	LESS?	S,1 \?CCL3
	SET	'S,1
	JUMP	?CND1
?CCL3:	GRTR?	S,X \?CND1
	SET	'S,X
?CND1:	SUB	0,S
	RSTACK	


	.FUNCT	OUT-OF-GAS?,W,GAS
	FSET	W,USED
	GETP	W,P?ENDURANCE >GAS
	ZERO?	GAS /?CCL2
	FSET?	W,NEUTRALIZED \?CND1
?CCL2:	ICALL2	CTHE-PRINT,W
	CALL2	PICK-NEXT,EMPTY-WANDS
	PRINT	STACK
	PRINTI	". Its virtue"
	ZERO?	GAS \?CND5
	PRINTR	" seems to be exhausted."
?CND5:	PRINT	STR?647
	PRINT	PERIOD
	RTRUE	
?CND1:	SUB	GAS,1
	PUTP	W,P?ENDURANCE,STACK
	RFALSE	


	.FUNCT	NOT-LIVING?,OBJ,W
	FSET?	OBJ,LIVING /FALSE
	ICALL2	CTHE-PRINT,W
	PRINTI	" crackles lifelessly as you direct it at "
	ICALL2	THE-PRINT,OBJ
	PRINTR	". Perhaps its Magick works only on living things."


	.FUNCT	STARTLE,OBJ,W
	EQUAL?	OBJ,OWOMAN \?CCL3
	ICALL2	VANISH,W
	PRINT	TAB
	ICALL2	CTHE-PRINT,OBJ
	PRINTI	" snatches "
	ICALL2	THE-PRINT,W
	PRINTI	" away from you, snaps it in two and discards it angrily. ""That is "
	ICALL2	ITALICIZE,STR?782
	PRINTR	" a toy."""
?CCL3:	EQUAL?	OBJ,SALT,COOK /?CTR4
	EQUAL?	OBJ,CLERIC \?CCL5
?CTR4:	PRINT	TAB
	PRINTI	"""Hey! Careful with that,"" growls "
	ICALL2	THE-PRINT,OBJ
	PRINT	PERIOD
	RTRUE	
?CCL5:	EQUAL?	OBJ,MINX,DACT \FALSE
	FSET?	OBJ,SLEEPING /FALSE
	PRINT	TAB
	ICALL2	CTHE-PRINT,OBJ
	PRINTR	" gives you a reproachful look."


	.FUNCT	NEXT-WAND?,FCN,RM,OBJ,X
	CALL2	PICK-ONE,WAND-LIST >OBJ
	FSET?	OBJ,NODESC \FALSE
	FCLEAR	OBJ,NODESC
	CALL2	PICK-ONE,WAND-FUNCTIONS >X
	GET	X,0
	PUTP	OBJ,P?ACTION,STACK
	GET	X,1
	PUTP	OBJ,P?SDESC,STACK
	GET	X,2 >X
	GETPT	OBJ,P?SYNONYM
	PUT	STACK,0,X
	GETPT	OBJ,P?ADJECTIVE
	PUT	STACK,0,X
	ASSIGNED?	'FCN \?CND4
	PUTP	OBJ,P?DESCFCN,FCN
?CND4:	ASSIGNED?	'RM /?CCL7
	RETURN	OBJ
?CCL7:	MOVE	OBJ,RM
	RETURN	OBJ


	.FUNCT	HANDLE-WANDS?
	CALL1	FIRST-TAKE?
	ZERO?	STACK \TRUE
	EQUAL?	PRSA,V?SWING \FALSE
	PRINTI	"You feel potential swell in "
	ICALL1	THE-PRINT
	PRINTR	", eager for release."


	.FUNCT	CURTAIN-F,CONTEXT,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	PRINTI	"A closed curtain hangs suspended in midair."
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?CLOSE \?CCL9
	ICALL2	ITS-ALREADY,STR?531
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?LOOK-BEHIND,V?LOOK-UNDER /?CTR10
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X /?CTR10
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
?CTR10:	EQUAL?	HERE,APLANE /?CND15
	ICALL1	ENTER-CURTAIN
	RTRUE	
?CND15:	CALL2	HELD?,PHASE
	ZERO?	STACK /?CND17
	ICALL1	MUNG-PHASE
?CND17:	ICALL1	AS-YOU-APPROACH
	PRINTI	"your eyes momentarily lose their focus."
	CRLF	
	ZERO?	VERBOSITY /?CND19
	CRLF	
?CND19:	SET	'X,IN-MAGICK
	EQUAL?	ABOVE,OACCARDI \?CCL23
	FCLEAR	WEAPON-DOOR,OPENED
	SET	'X,IN-WEAPON
	JUMP	?CND21
?CCL23:	EQUAL?	ABOVE,OMIZNIA \?CND21
	FCLEAR	BOUTIQUE-DOOR,OPENED
	SET	'X,IN-BOUTIQUE
?CND21:	ICALL2	GOTO,X
	PRINT	TAB
	PRINT	CTHELADY
	PRINTI	" glances up as you appear. """
	RANDOM	100 >X
	LESS?	X,33 \?CCL27
	PRINTI	"Hello"
	JUMP	?CND25
?CCL27:	LESS?	X,67 \?CCL29
	PRINTI	"Welcome"
	JUMP	?CND25
?CCL29:	PRINTI	"Greetings"
?CND25:	PRINTI	","" she says, "
	EQUAL?	ABOVE,OCITY \?CND30
	PRINTI	"glaring at the"
	ICALL2	OPEN-CLOSED,MAGICK-DOOR
	PRINTR	". ""Gotta fix that bell."""
?CND30:	PRINTR	"frowning at the closed door."


	.FUNCT	ENTER-CURTAIN
	SET	'P-WALK-DIR,FALSE-VALUE
	ICALL2	AS-YOU-APPROACH,CURTAIN
	PRINTI	"the shop subtly rearranges itself until you find yourself facing the other way"
	IN?	OWOMAN,HERE \?CND1
	PRINTI	". "
	PRINT	CTHELADY
	PRINTI	" watches you with wry amusement"
?CND1:	PRINT	PERIOD
	RFALSE	


	.FUNCT	MIRROR0-F,CONTEXT
	CALL	HANDLE-MIRRORS?,MIRROR0,CONTEXT
	RSTACK	


	.FUNCT	MIRROR1-F,CONTEXT
	CALL	HANDLE-MIRRORS?,MIRROR1,CONTEXT
	RSTACK	


	.FUNCT	MIRROR2-F,CONTEXT
	CALL	HANDLE-MIRRORS?,MIRROR2,CONTEXT
	RSTACK	


	.FUNCT	MIRROR3-F,CONTEXT
	CALL	HANDLE-MIRRORS?,MIRROR3,CONTEXT
	RSTACK	


	.FUNCT	MIRROR4-F,CONTEXT
	CALL	HANDLE-MIRRORS?,MIRROR4,CONTEXT
	RSTACK	


	.FUNCT	MIRROR5-F,CONTEXT
	CALL	HANDLE-MIRRORS?,MIRROR5,CONTEXT
	RSTACK	


	.FUNCT	MIRROR6-F,CONTEXT
	CALL	HANDLE-MIRRORS?,MIRROR6,CONTEXT
	RSTACK	


	.FUNCT	NOTE-MIRROR,OBJ,WRD
	PRINTI	" is suspended in midair"
	IN?	QUEEN,HERE /FALSE
	PRINTI	", facing "
	PRINTB	WRD
	ICALL2	BEAM-DETAILS,OBJ
	RFALSE	


	.FUNCT	BEAM-DETAILS,OBJ,DIR,SDIR,X1,X2,X3
	GETP	HERE,P?MIRROR-OBJ
	EQUAL?	STACK,OBJ \FALSE
	GETP	HERE,P?BEAM-DIR >SDIR
	EQUAL?	SDIR,NO-MIRROR /FALSE
	GETP	OBJ,P?MIRROR-DIR >DIR
	PRINTI	". Sunlight from the "
	GET	DIR-NAMES,SDIR
	PRINTB	STACK
	PRINTI	" exit is "
	EQUAL?	SDIR,DIR \?CND5
	PRINTI	"shining directly onto the mirror's face"
	RTRUE	
?CND5:	ADD	SDIR,1 >X1
	GRTR?	X1,I-NW \?CND7
	SET	'X1,I-NORTH
?CND7:	EQUAL?	DIR,X1 \?CND9
	IGRTR?	'X1,I-NW \?CND11
	SET	'X1,I-NORTH
?CND11:	ICALL2	REFLECT-TO,X1
	RTRUE	
?CND9:	SUB	SDIR,1 >X1
	LESS?	X1,I-NORTH \?CND13
	SET	'X1,I-NW
?CND13:	EQUAL?	DIR,X1 \?CND15
	DLESS?	'X1,I-NORTH \?CND17
	SET	'X1,I-NW
?CND17:	ICALL2	REFLECT-TO,X1
	RTRUE	
?CND15:	SUB	SDIR,2 >X1
	LESS?	X1,I-NORTH \?CND19
	ADD	X1,8 >X1
?CND19:	ADD	SDIR,2 >X2
	GRTR?	X2,I-NW \?CND21
	SUB	X2,8 >X2
?CND21:	EQUAL?	DIR,X1,X2 \?CND23
	PRINTI	"glinting on the mirror's edge"
	RTRUE	
?CND23:	ADD	SDIR,4 >X1
	GRTR?	X1,I-NW \?CND25
	SUB	X1,8 >X1
?CND25:	ADD	SDIR,3 >X2
	GRTR?	X2,I-NW \?CND27
	SUB	X2,8 >X2
?CND27:	SUB	SDIR,3 >X3
	LESS?	X3,I-NORTH \?CND29
	ADD	X3,8 >X3
?CND29:	EQUAL?	DIR,X1,X2,X3 \TRUE
	PRINTI	"illuminating the back of the mirror"
	RTRUE	


	.FUNCT	REFLECT-TO,DIR
	PRINTI	"reflected "
	GET	DIR-NAMES,DIR
	PRINTB	STACK
	GETB	PDIR-LIST,DIR
	GETP	HERE,STACK >DIR
	ZERO?	DIR /?CND1
	GET	DIR,XTYPE
	BAND	STACK,65280
	EQUAL?	STACK,CONNECT /FALSE
?CND1:	PRINTI	", onto the wall"
	RTRUE	


	.FUNCT	HANDLE-MIRRORS?,OBJ,CONTEXT,DIR,WRD,X
	GETP	OBJ,P?MIRROR-DIR >DIR
	GET	DIR-NAMES,DIR >WRD
	EQUAL?	CONTEXT,M-OBJDESC \?CCL3
	ICALL2	PRINTCA,OBJ
	ICALL	NOTE-MIRROR,OBJ,WRD
	PRINTC	PER
	RTRUE	
?CCL3:	ZERO?	CONTEXT \FALSE
	CALL2	NOUN-USED?,W?BUBBLES
	ZERO?	STACK /?CCL7
	PRINTI	"There's only one "
	PRINTB	W?BUBBLE
	PRINTI	" here."
	CRLF	
	RETURN	2
?CCL7:	ZERO?	NOW-PRSI? \FALSE
	INTBL?	PRSA,TALKVERBS,NTVERBS >X \?CCL13
	ICALL1	MIRROR-REFLECTS
	RETURN	2
?CCL13:	EQUAL?	PRSA,V?EXAMINE \?CCL17
	ICALL1	CTHE-PRINT
	ICALL	NOTE-MIRROR,OBJ,WRD
	PRINT	PERIOD
	RTRUE	
?CCL17:	EQUAL?	PRSA,V?POINT-AT,V?PUSH-TO \?CCL19
	ZERO?	LIT? \?CCL22
	ICALL1	TOO-DARK
	RTRUE	
?CCL22:	EQUAL?	PRSI,URGRUE \?CCL24
	GETP	PRSI,P?DNUM >X
	EQUAL?	X,DIR \?CND25
	ICALL1	ALREADY-FACING
	RTRUE	
?CND25:	ICALL2	NEW-MIRROR-DIR,X
	RTRUE	
?CCL24:	EQUAL?	PRSI,INTDIR \?CND20
	EQUAL?	P-DIRECTION,P?UP,P?DOWN /?CTR29
	EQUAL?	P-DIRECTION,P?IN,P?OUT \?CCL30
?CTR29:	ICALL1	CTHE-PRINT
	PRINT	STR?783
	RTRUE	
?CCL30:	GETB	PDIR-LIST,DIR
	EQUAL?	STACK,P-DIRECTION \?CND28
	ICALL1	ALREADY-FACING
	RTRUE	
?CND28:	SUB	P-DIRECTION,P?NORTH
	SUB	0,STACK
	ICALL2	NEW-MIRROR-DIR,STACK
	RTRUE	
?CND20:	ICALL1	NYMPH-APPEARS
	PRINTI	"To direct the mirror, simply specify a "
	PRINTD	INTDIR
	PRINTI	"; for example, TURN THE MIRROR TO THE NORTH or AIM MIRROR SW"
	PRINT	STR?515
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?SPIN,V?SWING,V?TURN /?PRG38
	EQUAL?	PRSA,V?PUSH,V?MOVE \?CCL35
?PRG38:	RANDOM	7
	BOR	STACK,1 >X
	EQUAL?	X,DIR /?PRG38
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PUTP	PRSO,P?MIRROR-DIR,X
	ICALL1	CTHE-PRINT
	PRINTI	" spins randomly around, slows and stops. It's now facing "
	GET	DIR-NAMES,X
	PRINTB	STACK
	PRINT	PERIOD
	GETP	HERE,P?MIRROR-OBJ
	EQUAL?	STACK,OBJ \TRUE
	ICALL1	REFLECTIONS
	RTRUE	
?CCL35:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL45
	PRINT	YOU-SEE
	IN?	QUEEN,HERE \?CCL48
	ICALL2	THE-PRINT,QUEEN
	JUMP	?CND46
?CCL48:	PRINTD	ME
?CND46:	PRINTI	" reflected in "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL45:	EQUAL?	PRSA,V?HIT,V?SQUEEZE,V?KICK /?CTR49
	EQUAL?	PRSA,V?REACH-IN,V?POP,V?MUNG \?CCL50
?CTR49:	ICALL2	DESTROY-MIRROR,OBJ
	ICALL2	SAY-MIRROR-POPS,OBJ
	RTRUE	
?CCL50:	EQUAL?	PRSA,V?THROW \?CCL54
	MOVE	PRSI,HERE
	ICALL1	CTHEI-PRINT
	PRINTI	" strikes "
	ICALL1	THE-PRINT
	PRINTI	", "
	GETP	PRSI,P?SIZE
	LESS?	STACK,1 \?CND55
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINTR	"slides off and lands at your feet."
?CND55:	PRINTI	"which explodes with a flabby "
	ICALL2	ITALICIZE,STR?583
	PRINT	PERIOD
	ICALL2	DESTROY-MIRROR,OBJ
	RTRUE	
?CCL54:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \FALSE
	PRINTR	"Wrong fantasy."


	.FUNCT	ALREADY-FACING
	ICALL1	CTHE-PRINT
	PRINTR	" is already facing that way."


	.FUNCT	NEW-MIRROR-DIR,DIR
	PUTP	PRSO,P?MIRROR-DIR,DIR
	PRINTI	"You carefully rotate "
	ICALL1	THE-PRINT
	PRINTI	" until it faces "
	GET	DIR-NAMES,DIR
	PRINTB	STACK
	PRINT	PERIOD
	GETP	HERE,P?MIRROR-OBJ
	EQUAL?	STACK,PRSO \?CND1
	ICALL1	REFLECTIONS
	RTRUE	
?CND1:	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	RTRUE	


	.FUNCT	MIRROR-REFLECTS
	ICALL1	PCLEAR
	ICALL2	CTHE-PRINT,MIRROR0
	PRINTR	" reflects on your words in silence."


	.FUNCT	SUNBEAM-F,DIR
	GETP	HERE,P?BEAM-DIR >DIR
	EQUAL?	DIR,NO-MIRROR \?CND1
	EQUAL?	HERE,SE-CAVE \?CCL5
	FSET?	SWALL,OPENED \?CCL5
	SET	'DIR,I-SE
?CND1:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL14
	ICALL1	CTHE-PRINT
	PRINTI	" is coming from the "
	GET	DIR-NAMES,DIR
	PRINTB	STACK
	PRINT	PERIOD
	RTRUE	
?CCL5:	PRINT	CANT
	PRINTI	"see that here."
	CRLF	
	RETURN	2
?CCL14:	EQUAL?	PRSA,V?WALK-TO,V?FOLLOW \FALSE
	GETB	PDIR-LIST,DIR
	ICALL2	DO-WALK,STACK
	RTRUE	


	.FUNCT	JAR-F,CONTEXT,X
	EQUAL?	CONTEXT,M-OBJDESC \?CCL3
	PRINT	XA
	PRINTD	JAR
	PRINTI	" glitters in the "
	CALL1	LIGHT-SOURCE? >X
	ZERO?	X \?CCL6
	PRINTI	"dim "
	JUMP	?CND4
?CCL6:	EQUAL?	X,SUN \?CCL8
	PRINTD	SUN
	JUMP	?CND4
?CCL8:	PRINTD	X
	PRINTI	"'s "
?CND4:	PRINTI	"light."
	RTRUE	
?CCL3:	EQUAL?	CONTEXT,M-CONT \?CCL10
	FSET?	JAR,OPENED /FALSE
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL	YOUD-HAVE-TO,STR?518,JAR
	RTRUE	
?CCL10:	CALL	NOUN-USED?,W?LID,W?TOP
	ZERO?	STACK /?CCL15
	EQUAL?	PRSA,V?CLOSE,V?PLUG-IN /?CND1
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL19
	PRINTI	"The jar's lid is "
	FSET?	PRSO,OPENED \?CND20
	PRINTR	"open."
?CND20:	PRINTR	"closed."
?CCL19:	EQUAL?	PRSA,V?LOOK-UNDER \?CCL23
	ICALL1	V-OPEN
	RTRUE	
?CCL23:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND1
	PRINTI	"The jar's lid"
	PRINT	STR?783
	RTRUE	
?CCL15:	CALL	NOUN-USED?,W?LIQUID,W?SOAP,W?CONTENTS
	ZERO?	STACK /?CND1
	ZERO?	NOW-PRSI? \?CND1
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE,V?SEARCH \?CCL29
	PRINTI	"The rich, pearly liquid "
	ICALL1	SAY-LIQUID
	RTRUE	
?CCL29:	EQUAL?	PRSA,V?TOUCH,V?SQUEEZE,V?PUSH \?CCL31
	ICALL1	TOUCH-LIQUID
	RTRUE	
?CCL31:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH,V?CLOSE /?CCL32
	EQUAL?	PRSA,V?UNPLUG \?CND1
?CCL32:	ICALL1	IMPOSSIBLE
	RTRUE	
?CND1:	ZERO?	NOW-PRSI? /?CCL37
	EQUAL?	PRSA,V?POUR-FROM \?CCL40
	EQUAL?	PRSO,PRSI \?CCL40
	GET	P-NAMW,0
	EQUAL?	STACK,W?LIQUID,W?SOAP,W?CONTENTS /?CND43
	GET	P-OFW,0
	EQUAL?	STACK,W?LIQUID,W?SOAP,W?CONTENTS \FALSE
?CND43:	GET	P-NAMW,1
	EQUAL?	STACK,W?LIQUID,W?SOAP,W?CONTENTS /FALSE
	GET	P-OFW,1
	EQUAL?	STACK,W?LIQUID,W?SOAP,W?CONTENTS /FALSE
	FSET?	PRSI,OPENED /?CND50
	ICALL2	ITS-CLOSED,PRSI
	RTRUE	
?CND50:	ICALL1	EMPTY-JAR
	RTRUE	
?CCL40:	EQUAL?	PRSA,V?PUT,V?PUT-UNDER,V?EMPTY-INTO \FALSE
	EQUAL?	PRSA,V?PUT-UNDER \?CCL55
	EQUAL?	P-PRSA-WORD,W?DIP,W?SUBMERGE \FALSE
?CCL55:	FSET?	PRSI,OPENED /?CCL59
	ICALL	YOUD-HAVE-TO,STR?518,PRSI
	RTRUE	
?CCL59:	EQUAL?	PRSO,CIRCLET \?CCL61
	EQUAL?	PRSA,V?PUT-UNDER \?CCL64
	ICALL1	DIP-CIRCLET
	RTRUE	
?CCL64:	FSET?	PRSO,SEEN /FALSE
	ICALL1	RENEW-FILM
	RFALSE	
?CCL61:	IN?	CIRCLET,PRSI \?CCL67
	ICALL	YOUD-HAVE-TO,STR?784,CIRCLET
	RTRUE	
?CCL67:	GETP	P?SIZE,PRSO
	GRTR?	STACK,1 \?CND53
	ICALL1	CTHE-PRINT
	PRINTI	" is too big to fit in "
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CND53:	ICALL1	VANISH
	PRINTI	"As you drop "
	ICALL2	O-INTO-I,0
	PRINTR	", it melts into the pearly liquid and disappears."
?CCL37:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL70
	PRINT	XTHE
	FSET?	PRSO,OPENED \?CCL73
	PRINTB	W?OPEN
	JUMP	?CND71
?CCL73:	PRINTB	W?CLOSED
?CND71:	PRINTR	" jar appears to have been carved from a solid block of crystal."
?CCL70:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL75
	ICALL1	CTHE-PRINT
	PRINTI	" is filled with a rich, pearly liquid that "
	ICALL1	SAY-LIQUID
	RTRUE	
?CCL75:	EQUAL?	PRSA,V?EMPTY,V?EMPTY-INTO,V?POUR \?CCL77
	FSET?	PRSO,OPENED /?CND78
	ICALL1	ITS-CLOSED
	RTRUE	
?CND78:	ICALL1	EMPTY-JAR
	RTRUE	
?CCL77:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH,V?UNPLUG \?CCL81
	ICALL1	V-OPEN
	RTRUE	
?CCL81:	EQUAL?	PRSA,V?DRINK,V?TASTE,V?KISS /?CTR82
	EQUAL?	PRSA,V?SMELL \?CCL83
?CTR82:	CALL	NOUN-USED?,W?LIQUID,W?SOAP,W?CONTENTS
	ZERO?	STACK \?CND86
	PRINTI	"[the "
	PRINTB	W?LIQUID
	PRINT	BRACKET
?CND86:	FSET?	PRSO,OPENED /?CND88
	ICALL1	ITS-CLOSED
	RTRUE	
?CND88:	PRINTI	"Its sharp, metallic odor "
	EQUAL?	PRSA,V?SMELL \?CND90
	PRINTR	"makes your nostrils burn."
?CND90:	PRINTR	"changes your mind."
?CCL83:	EQUAL?	PRSA,V?SHAKE \?CCL93
	FSET?	PRSO,OPENED \?CND94
	ICALL1	EMPTY-JAR
	RTRUE	
?CND94:	PRINTI	"The liquid in "
	ICALL1	THE-PRINT
	PRINTR	" swirls around."
?CCL93:	EQUAL?	PRSA,V?REACH-IN \FALSE
	ICALL1	TOUCH-LIQUID
	RTRUE	


	.FUNCT	EMPTY-JAR
	PRINTR	"The liquid seems quite content in its little jar, and refuses to come out despite vigorous turning and shaking."


	.FUNCT	TOUCH-LIQUID
	FSET?	PRSO,OPENED /?CND1
	ICALL1	ITS-CLOSED
	RTRUE	
?CND1:	PRINTR	"You feel a sharp, metallic sensation."


	.FUNCT	SAY-LIQUID
	PRINTI	"swirls and shimmers with a life all its own"
	IN?	CIRCLET,JAR \?CND1
	PRINTI	". A "
	PRINTD	CIRCLET
	PRINTI	" is suspended within"
?CND1:	PRINT	PERIOD
	RTRUE	


	.FUNCT	GENERIC-BUBBLE-F,TBL,LEN,X
	ASSIGNED?	'LEN /?CND1
	GET	TBL,0 >LEN
?CND1:	ADD	TBL,2 >TBL
	EQUAL?	PRSA,V?BLOW-INTO \?CCL5
	INTBL?	CIRCLET,TBL,LEN >X \?CCL5
	RETURN	CIRCLET
?CCL5:	GRTR?	LEN,2 /FALSE
	GET	TBL,0 >X
	EQUAL?	X,CIRCLET /?CCL10
	RETURN	X
?CCL10:	GET	TBL,1
	RSTACK	


	.FUNCT	CIRCLET-F,X,B
	CALL	NOUN-USED?,W?BUBBLE,W?BUBBLES >B
	FSET?	CIRCLET,SEEN /?CND1
	CALL2	NOUN-USED?,W?FILM
	ZERO?	STACK \?CCL3
	CALL2	ADJ-USED?,W?SWIRLING
	ZERO?	STACK /?CND1
?CCL3:	ICALL1	PCLEAR
	PRINT	CANT
	PRINTI	"see any"
	PRINT	AT-MOMENT
	RETURN	2
?CND1:	EQUAL?	PRSA,V?BLOW-INTO \?CCL10
	IN?	PRSO,PLAYER /?CND11
	ICALL2	YOUD-HAVE-TO,STR?680
	RTRUE	
?CND11:	PRINT	CYOU
	FSET?	PRSO,SEEN /?CND13
	ZERO?	B /?CND13
	CALL2	VISIBLE?,JAR
	ZERO?	STACK /?CND13
	PRINTI	"dip "
	ICALL1	THE-PRINT
	PRINT	SIN
	ICALL2	THE-PRINT,JAR
	PRINTI	", draw it out and blow into the swirling film."
	CRLF	
	ICALL1	START-MIRROR
	RTRUE	
?CND13:	PRINTI	"blow gently into the "
	CALL1	EMPTY-CIRCLET?
	ZERO?	STACK \TRUE
	PRINTD	PRSO
	PRINTI	"'s swirling film."
	CRLF	
	ICALL1	START-MIRROR
	RTRUE	
?CCL10:	ZERO?	B /?CND8
	ICALL1	PCLEAR
	PRINT	CANT
	PRINTI	"see any "
	PRINTB	W?BUBBLES
	PRINTI	" here."
	CRLF	
	RETURN	2
?CND8:	ZERO?	NOW-PRSI? /?CCL25
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	CTHEI-PRINT
	PRINTR	" is much too small."
?CCL25:	EQUAL?	PRSA,V?SWING \?CCL29
	PRINT	CYOU
	PRINTB	P-PRSA-WORD
	PRINT	STHE
	CALL1	EMPTY-CIRCLET?
	ZERO?	STACK \TRUE
	PRINTD	PRSO
	PRINTI	" through the air."
	CRLF	
	ICALL1	START-MIRROR
	RTRUE	
?CCL29:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \FALSE
	PRINTI	"The flat, hollow "
	PRINTD	PRSO
	IN?	PRSO,JAR \?CND34
	PRINT	SIN
	ICALL2	THE-PRINT,JAR
?CND34:	PRINTI	" is attached to a short handle"
	FSET?	PRSO,SEEN \?CND36
	PRINTI	", and is filled with a swirling film"
?CND36:	PRINT	PERIOD
	RTRUE	


	.FUNCT	DIP-CIRCLET
	PRINTI	"You dip "
	ICALL2	THE-PRINT,CIRCLET
	PRINT	SINTO
	ICALL2	THE-PRINT,JAR
	PRINT	PERIOD
	FSET?	CIRCLET,SEEN /FALSE
	ICALL1	RENEW-FILM
	RFALSE	


	.FUNCT	EMPTY-CIRCLET?
	FSET?	CIRCLET,SEEN \?CND1
	ICALL1	KILL-FILM
	RFALSE	
?CND1:	PRINTI	"empty "
	PRINTD	CIRCLET
	ICALL1	BUT-NOTHING-HAPPENS
	RTRUE	


	.FUNCT	KILL-FILM
	FCLEAR	CIRCLET,SEEN
	ICALL	REPLACE-SYN?,W?CIRCLET,W?FILM,W?ZZZP
	ICALL	REPLACE-ADJ?,W?CIRCLET,W?SWIRLING,W?ZZZP
	RFALSE	


	.FUNCT	RENEW-FILM
	FSET	CIRCLET,SEEN
	ICALL	REPLACE-SYN?,W?CIRCLET,W?ZZZP,W?FILM
	ICALL	REPLACE-ADJ?,W?CIRCLET,W?ZZZP,W?SWIRLING
	RFALSE	


	.FUNCT	START-MIRROR,LEN,OBJ,X
	ZERO?	LIT? \?CND1
	PRINT	TAB
	PRINTI	"Moments later, you hear a flabby "
	ICALL2	ITALICIZE,STR?583
	PRINT	PERIOD
	RTRUE	
?CND1:	CALL1	PLAIN-ROOM? >X
	ZERO?	X \?CCL4
	EQUAL?	HERE,ON-BRIDGE,APLANE,IN-SKY /?CCL4
	EQUAL?	HERE,IN-SPLENDOR \?CND3
?CCL4:	ICALL1	SAY-BUBBLE
	PRINTI	", but "
	ZERO?	X /?CCL10
	FSET	CORBIES,SEEN
	PRINTR	"a corbie instantly swoops down to pop it."
?CCL10:	EQUAL?	HERE,ON-BRIDGE \?CCL12
	PRINTR	"river mist instantly dissolves it."
?CCL12:	EQUAL?	HERE,APLANE,IN-SPLENDOR \?CND8
	PRINTI	"it"
	PRINT	STR?578
	PRINT	PERIOD
	RTRUE	
?CND8:	PRINTR	"upper air currents soon blow it out of sight."
?CND3:	GET	MIRROR-LIST,0 >LEN
?PRG14:	GET	MIRROR-LIST,LEN >OBJ
	LOC	OBJ >X
	ZERO?	X /?REP15
	EQUAL?	X,HERE \?CCL20
	ICALL2	DESTROY-MIRROR,OBJ
	ICALL1	SAY-BUBBLE
	PRINTI	" and bounces into the other bubble hovering nearby. Both disappear with a flabby "
	ICALL2	ITALICIZE,STR?583
	PRINT	PERIOD
	RTRUE	
?CCL20:	DLESS?	'LEN,1 \?PRG14
	ICALL1	SAY-BUBBLE
	PRINTI	", but it pops almost immediately."
	CRLF	
?REP15:	ICALL1	SAY-BUBBLE
	PRINTI	"! You watch as it flattens into a perfectly circular mirror, rotating more and more slowly until it faces "
	CALL2	CREATE-MIRROR?,OBJ
	GET	DIR-NAMES,STACK
	PRINTB	STACK
	PRINT	PERIOD
	IN?	URGRUE,HERE \?CND22
	PRINT	TAB
	PRINTI	"""How droll,"" remarks "
	ICALL2	THE-PRINT,URGRUE
	PRINT	PERIOD
?CND22:	GETP	HERE,P?MIRROR-OBJ
	EQUAL?	STACK,NO-MIRROR \TRUE
	PUTP	HERE,P?MIRROR-OBJ,OBJ
	ICALL1	REFLECTIONS
	RTRUE	


	.FUNCT	SAY-BUBBLE
	PRINT	TAB
	PRINTI	"A silvery bubble blows out of "
	ICALL2	THE-PRINT,CIRCLET
	RTRUE	


	.FUNCT	REFLECTIONS,ALERT,POPIT,RM,TBL,X,OBJ,ANGLE,DIR,XDIR
	GETB	GRUE-ROOMS,0 >X
?PRG1:	GETB	GRUE-ROOMS,X >RM
	EQUAL?	HERE,RM \?CND3
	INC	'ALERT
?CND3:	FCLEAR	RM,LIGHTED
	PUTP	RM,P?BEAM-DIR,NO-MIRROR
	DLESS?	'X,1 \?PRG1
	FSET?	NWALL,OPENED \?CND7
	FSET	NE-CAVE,LIGHTED
?CND7:	FSET?	SWALL,OPENED \?CND9
	FSET	SE-CAVE,LIGHTED
?CND9:	GETP	SE-CAVE,P?MIRROR-OBJ >OBJ
	EQUAL?	OBJ,FALSE-VALUE,NO-MIRROR /?CND11
	FSET?	SWALL,OPENED \?CND11
	GETP	OBJ,P?MIRROR-DIR
	EQUAL?	STACK,I-SOUTH \?CND11
	PUTP	SE-CAVE,P?BEAM-DIR,I-SE
	FSET	SE-CAVE,LIGHTED
	SET	'RM,SE-CAVE
	SET	'DIR,I-SW
?PRG16:	GETB	PDIR-LIST,DIR
	GETP	RM,STACK >TBL
	ZERO?	TBL /?CND11
	GET	TBL,XTYPE
	BAND	STACK,65280
	EQUAL?	STACK,CONNECT,SCONNECT \?CND11
	ADD	DIR,4 >XDIR
	GRTR?	XDIR,I-NW \?CND22
	SUB	XDIR,8 >XDIR
?CND22:	GET	TBL,XROOM >RM
	GETP	RM,P?MIRROR-OBJ >OBJ
	ZERO?	OBJ /?CND11
	FSET?	RM,LIGHTED \?CND24
	INC	'POPIT
?CND24:	PUTP	RM,P?BEAM-DIR,XDIR
	FSET	RM,LIGHTED
	EQUAL?	OBJ,NO-MIRROR /?PRG16
	GETP	OBJ,P?MIRROR-DIR >ANGLE
	EQUAL?	ANGLE,DIR \?CCL32
	EQUAL?	HERE,RM \?CND11
	PRINT	TAB
	PRINTI	"The back of "
	ICALL2	THE-PRINT,MIRROR0
	PRINTI	" is illuminated by a sunbeam."
	CRLF	
	JUMP	?CND11
?CCL32:	EQUAL?	ANGLE,XDIR \?CND30
	EQUAL?	HERE,RM \?CND11
	PRINT	TAB
	PRINTI	"A sunbeam is reflected "
	GET	DIR-NAMES,XDIR
	PRINTB	STACK
	PRINT	PERIOD
?CND11:	ZERO?	ALERT /?CND66
	ICALL1	SAY-IF-HERE-LIT
?CND66:	ICALL1	REFRESH-MAP
	ZERO?	POPIT /FALSE
	GETP	SE-CAVE,P?MIRROR-OBJ
	PUTP	STACK,P?SIZE,1
	RFALSE	
?CND30:	ADD	DIR,2 >X
	GRTR?	X,I-NW \?CND38
	SUB	X,8 >X
?CND38:	EQUAL?	ANGLE,X \?CND40
	EQUAL?	HERE,RM \?PRG16
	ICALL2	MENTION-GLIMMER,XDIR
	JUMP	?PRG16
?CND40:	SUB	DIR,2 >X
	LESS?	X,I-NORTH \?CND44
	ADD	X,8 >X
?CND44:	EQUAL?	ANGLE,X \?CND46
	EQUAL?	HERE,RM \?PRG16
	ICALL2	MENTION-GLIMMER,XDIR
	JUMP	?PRG16
?CND46:	ADD	DIR,3 >X
	GRTR?	X,I-NW \?CND50
	SUB	X,8 >X
?CND50:	EQUAL?	ANGLE,X \?CND52
	ADD	DIR,2 >DIR
	GRTR?	DIR,I-NW \?CND54
	SUB	DIR,8 >DIR
?CND54:	EQUAL?	HERE,RM \?PRG16
	ICALL	SAY-BEAM,XDIR,DIR
	JUMP	?PRG16
?CND52:	ADD	DIR,5 >X
	GRTR?	X,I-NW \?CND58
	SUB	X,8 >X
?CND58:	EQUAL?	ANGLE,X \?CND11
	SUB	DIR,2 >DIR
	LESS?	DIR,I-NORTH \?CND62
	ADD	DIR,8 >DIR
?CND62:	EQUAL?	HERE,RM \?PRG16
	ICALL	SAY-BEAM,XDIR,DIR
	JUMP	?PRG16


	.FUNCT	SAY-BEAM,FROM,TO
	PRINT	STR?724
	PRINTI	"is reflected "
	GET	DIR-NAMES,FROM
	PRINTB	STACK
	PRINT	STO
	GET	DIR-NAMES,TO
	PRINTB	STACK
	EQUAL?	HERE,IN-LAIR \?CND1
	EQUAL?	TO,I-SE \?CND1
	IN?	URGRUE,IN-LAIR \?CND1
	ICALL1	KILL-URGRUE
	RTRUE	
?CND1:	PRINT	PERIOD
	RTRUE	


	.FUNCT	MENTION-GLIMMER,DIR
	PRINT	TAB
	PRINT	XTHE
	GET	DIR-NAMES,DIR
	PRINTB	STACK
	PRINTR	" edge of the mirror gleams."


	.FUNCT	URGRUE-GETS-COCO,I
	ICALL2	DEQUEUE,I-IMPS-TAKE
	SET	'IMPSAY,4
	ICALL2	QUEUE,I-IMPQUEST
	REMOVE	COCO
	FSET	COCO,NODESC
	FSET	COCO,SEEN
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINTI	"As "
	ZERO?	I \?CCL3
	PRINTI	"you reach"
	JUMP	?CND1
?CCL3:	PRINTI	"the Implementor reaches"
?CND1:	PRINTI	" towards "
	ICALL2	THE-PRINT,COCO
	PRINTI	", a vortex of laughing darkness boils up from underfoot!
  ""More company,"" sighs the "
	PRINT	STR?607
	PRINT	PTAB
	PRINTI	"You back away from the zone of darkness as it spreads across the Plane, reaching out with long black fingers, searching, searching.."
	PRINT	PTAB
	ICALL2	ITALICIZE,STR?785
	PRINTI	"! "
	ICALL2	CTHE-PRINT,COCO
	PRINTR	" falls into the eye of the vortex and disappears, along with a stack of lunch meat and bits of cutlery from the Implementors' table. Then, with a final chortle, the vortex draws itself together, turns sideways and flickers out of existence.
  ""Ur-grue?"" asks the only woman Implementor.
  ""Ur-grue,"" nods another."


	.FUNCT	ARCH-F,CONTEXT,TIME,OBJ,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \?CCL6
	PRINTI	"A crumbling stone arch stands "
	EQUAL?	ATIME,PRESENT \?CCL9
	PRINTI	"at the exact center of "
	ICALL2	THE-PRINT,PLAZA
	JUMP	?CND7
?CCL9:	PRINTI	"nearby"
?CND7:	CALL2	SEE-ANYTHING-IN?,ARCH
	ZERO?	STACK /?CND10
	PRINTI	". Beneath it you see "
	ICALL2	CONTENTS,ARCH
?CND10:	PRINTC	PER
	SET	'P-IT-OBJECT,ARCH
	RTRUE	
?CCL6:	EQUAL?	CONTEXT,M-BEG \FALSE
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND13
	SET	'OBJ,PRSI
?CND13:	CALL	CANT-REACH-WHILE-IN?,OBJ,ARCH
	ZERO?	STACK \TRUE
	CALL2	HANDLE-ARCH-ROOMS?,CONTEXT
	RSTACK	
?CCL3:	ZERO?	NOW-PRSI? /?CCL18
	EQUAL?	PRSA,V?PUT-ON \?CCL21
	PRINTI	"The top of "
	ICALL1	THEI-PRINT
	PRINTR	" is high out of reach."
?CCL21:	EQUAL?	PRSA,V?THROW-OVER \?CCL23
	ICALL1	WASTE-OF-TIME
	RTRUE	
?CCL23:	EQUAL?	PRSA,V?PUT-UNDER \FALSE
	IN?	PLAYER,PRSI \?CND25
	ICALL	PERFORM,V?DROP,PRSO
	RTRUE	
?CND25:	ICALL	PERFORM,V?PUT,PRSO,PRSI
	RTRUE	
?CCL18:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL28
	ICALL1	CTHE-PRINT
	PRINTR	" is tall and narrow. The opening beneath is shaped like an hourglass."
?CCL28:	EQUAL?	PRSA,V?LOOK-INSIDE,V?LOOK-UNDER,V?SEARCH \?CCL30
	IN?	PLAYER,PRSO \?CCL33
	ICALL1	ASIDE-FROM
	JUMP	?CND31
?CCL33:	PRINT	YOU-SEE
?CND31:	ICALL1	CONTENTS
	PRINTI	" under "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	SET	'P-IT-OBJECT,PRSO
	RTRUE	
?CCL30:	EQUAL?	PRSA,V?ENTER,V?THROUGH,V?WALK-TO /?CTR34
	EQUAL?	PRSA,V?STAND-UNDER,V?FOLLOW \?CCL35
?CTR34:	ICALL1	ENTER-ARCH
	RTRUE	
?CCL35:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL39
	ICALL1	EXIT-ARCH
	RETURN	2
?CCL39:	EQUAL?	PRSA,V?WALK-AROUND,V?LOOK-BEHIND \?CCL43
	IN?	PLAYER,PRSO \?CND44
	ICALL2	YOUD-HAVE-TO,STR?786
	RTRUE	
?CND44:	PRINTI	"You walk slowly around "
	ICALL1	THE-PRINT
	PRINTI	", but find nothing "
	CALL2	PICK-NEXT,YAWNS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CCL43:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL47
	PRINTI	"The sides of "
	ICALL1	THE-PRINT
	PRINTR	" are too steep to climb."
?CCL47:	EQUAL?	PRSA,V?CLOSE \FALSE
	ICALL1	IMPOSSIBLE
	RTRUE	


	.FUNCT	ENTER-ARCH
	IN?	PLAYER,ARCH \?CCL3
	PRINT	ALREADY
	PRINTI	"under "
	ICALL2	THE-PRINT,ARCH
	PRINT	PERIOD
	RFALSE	
?CCL3:	CALL1	DROP-ONION-FIRST?
	ZERO?	STACK \FALSE
	SET	'OLD-HERE,FALSE-VALUE
	SET	'P-WALK-DIR,FALSE-VALUE
	MOVE	PLAYER,ARCH
	PRINTI	"You step beneath the shadow of "
	ICALL2	THE-PRINT,ARCH
	PRINT	PERIOD
	IN?	MINX,HERE \?CND5
	FSET?	MINX,LIVING \?CND5
	ICALL1	I-MINX
?CND5:	IN?	DACT,HERE \?CND9
	FSET?	DACT,LIVING \?CND9
	FSET?	DACT,SLEEPING /?CND9
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	REMOVE	DACT
	PRINT	TAB
	ICALL2	CTHE-PRINT,DACT
	PRINTI	" spreads its wings and soars out of sight."
	CRLF	
?CND9:	ZERO?	DMODE \?CND14
	CRLF	
?CND14:	ZERO?	GLASS-TOP /FALSE
	ICALL1	ARCH-ON
	RFALSE	


	.FUNCT	EXIT-ARCH
	IN?	PLAYER,ARCH /?CCL3
	PRINTI	"You're not under "
	ICALL2	THE-PRINT,ARCH
	PRINT	PERIOD
	RFALSE	
?CCL3:	FSET?	ARCH,SEEN \?CND1
	PRINT	STR?787
	CRLF	
	RFALSE	
?CND1:	SET	'OLD-HERE,FALSE-VALUE
	MOVE	PLAYER,HERE
	PRINTI	"You step out from under "
	ICALL2	THE-PRINT,ARCH
	PRINT	PERIOD
	ZERO?	DMODE \FALSE
	CRLF	
	RFALSE	


	.FUNCT	ARCH-ON
	IN?	PLAYER,ARCH \FALSE
	FSET?	GLASS,NEUTRALIZED /FALSE
	ICALL1	TURN-ON-ARCH
	RFALSE	


	.FUNCT	TURN-ON-ARCH,DIR,TBL,X
	FSET	ARCH,SEEN
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	PUTP	HERE,P?EXIT-STR,STR?787
	EQUAL?	HERE,ARCH-VOID /?CND1
	ICALL	NEW-EXIT?,HERE,P?OUT,NO-EXIT
?CND1:	ICALL	NEW-EXIT?,HERE,P?NORTH,1161,TIMESHIFT
	ICALL	NEW-EXIT?,HERE,P?SOUTH,1161,TIMESHIFT
	EQUAL?	ATIME,PRESENT \?CND3
	SET	'DIR,P?NW
?PRG5:	EQUAL?	DIR,P?SOUTH /?CND7
	GETP	HERE,DIR >TBL
	ZERO?	TBL /?CND7
	GET	TBL,XTYPE
	BAND	STACK,255 >X
	ADD	X,NO-EXIT
	PUT	TBL,XTYPE,STACK
?CND7:	IGRTR?	'DIR,P?NE \?PRG5
?CND3:	MOVE	LIGHTSHOW,ARCH
	PRINT	TAB
	FSET?	ARCH,IDENTIFIED \?CCL15
	PRINTI	"The nightmare sensation returns"
	JUMP	?CND13
?CCL15:	FSET	ARCH,IDENTIFIED
	PRINTI	"A nightmare sensation grips your senses! Your field of vision warps into a narrow "
	PRINTD	LIGHTSHOW
	PRINTI	", stretching "
	PRINT	STR?788
?CND13:	PRINT	PERIOD
	ZERO?	DMODE \FALSE
	CRLF	
	RFALSE	


	.FUNCT	ARCH-OFF,X
	LOC	PLAYER >X
	LOC	ARCH
	EQUAL?	X,ARCH,STACK \FALSE
	FSET?	ARCH,SEEN \FALSE
	ICALL1	TURN-OFF-ARCH
	RFALSE	


	.FUNCT	TURN-OFF-ARCH,DIR,TBL,X,STR
	FCLEAR	ARCH,SEEN
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	ICALL	NEW-EXIT?,HERE,P?NORTH,NO-EXIT
	ICALL	NEW-EXIT?,HERE,P?SOUTH,NO-EXIT
	SET	'STR,STR?789
	EQUAL?	HERE,ARCH-VOID \?CCL3
	SET	'STR,STR?790
	JUMP	?CND1
?CCL3:	ICALL	NEW-EXIT?,HERE,P?OUT,1152
	EQUAL?	ATIME,PRESENT \?CND1
	SET	'STR,STR?742
	SET	'DIR,P?NW
?PRG6:	EQUAL?	DIR,P?SOUTH /?CND8
	GETP	HERE,DIR >TBL
	ZERO?	TBL /?CND8
	GET	TBL,XTYPE
	BAND	STACK,255 >X
	ADD	X,CONNECT
	PUT	TBL,XTYPE,STACK
?CND8:	IGRTR?	'DIR,P?NE \?PRG6
?CND1:	PUTP	HERE,P?EXIT-STR,STR
	REMOVE	LIGHTSHOW
	PRINT	TAB
	FSET?	PLAZA,IDENTIFIED \?CCL16
	PRINTC	89
	JUMP	?CND14
?CCL16:	FSET	PLAZA,IDENTIFIED
	PRINTI	"The infinite "
	PRINTD	LIGHTSHOW
	PRINTI	" abruptly collapses, and y"
?CND14:	PRINTI	"our field of view snaps back to normal."
	CRLF	
	ZERO?	DMODE \FALSE
	CRLF	
	RFALSE	


	.FUNCT	LIGHTSHOW-F,X
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?LOOK-INSIDE /?CTR2
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X /?CTR2
	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL3
?CTR2:	ICALL1	CTHE-PRINT
	PRINTI	" seems to extend "
	PRINT	STR?788
	PRINT	PERIOD
	RTRUE	
?CCL3:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL8
	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL8:	INTBL?	PRSA,SEEVERBS,NSVERBS >X \?CND1
	ICALL1	CANT-SEE-MUCH
	RTRUE	
?CND1:	ICALL2	USELESS,LIGHTSHOW
	RETURN	2


	.FUNCT	HELM-F,FX
	GETP	HELM,P?EFFECT >FX
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL5
	PRINTR	"This dazzling treasure is so heavily crusted with jewels, it's hard to see the precious metals underneath."
?CCL5:	EQUAL?	PRSA,V?WEAR \?CCL7
	FSET?	PRSO,WORN /?CCL7
	CALL1	DONT-HAVE?
	ZERO?	STACK \TRUE
	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	FSET	PRSO,WORN
	PRINTI	"You lower "
	ICALL1	THE-PRINT
	PRINTI	" onto "
	PRINTD	HEAD
	IN?	GRUE,HERE \?CND12
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	COMMA-AND
	ICALL2	PRINTA,GRUE
	PRINTI	" takes shape in the darkness nearby"
?CND12:	PRINT	PERIOD
	ICALL	UPDATE-STAT,FX,ARMOR-CLASS
	FSET?	PRSO,NEUTRALIZED /TRUE
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL	UPDATE-STAT,30,INTELLIGENCE
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?TAKE-OFF \FALSE
	FSET?	PRSO,WORN \FALSE
	IN?	PRSO,PLAYER \FALSE
	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	FCLEAR	PRSO,WORN
	PRINTI	"You lift "
	ICALL1	THE-PRINT
	PRINTI	" off "
	PRINTD	HEAD
	IN?	GRUE,HERE \?CND21
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	COMMA-AND
	ICALL2	THE-PRINT,GRUE
	PRINTI	" merges into the darkness"
?CND21:	PRINT	PERIOD
	SUB	0,FX
	ICALL	UPDATE-STAT,STACK,ARMOR-CLASS
	FSET?	PRSO,NEUTRALIZED /TRUE
	ICALL1	NORMAL-IQ
	RTRUE	


	.FUNCT	NORMAL-IQ,X,MAX
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	GET	STATS,INTELLIGENCE >X
	GET	MAXSTATS,INTELLIGENCE >MAX
	GRTR?	X,MAX \FALSE
	SUB	X,MAX
	SUB	0,STACK
	ICALL	UPDATE-STAT,STACK,INTELLIGENCE
	RFALSE	


	.FUNCT	BHORSE-F,CONTEXT,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	PRINTI	"A black horse"
	PRINT	STR?791
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? /?CCL7
	EQUAL?	PRSA,V?THROW,V?THROW-OVER \?CCL10
	ICALL1	BATTLE-MISS
	RTRUE	
?CCL10:	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL13
	ICALL1	CTHE-PRINT
	PRINT	STR?791
	CRLF	
	RTRUE	
?CCL13:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL15
	ICALL2	NOT-LONELY,KNIGHT
	RTRUE	
?CCL15:	INTBL?	PRSA,TALKVERBS,NTVERBS >X \?CCL17
	ICALL1	NOT-LIKELY
	PRINT	STR?509
	RTRUE	
?CCL17:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL1	ZING
	RTRUE	


	.FUNCT	SLAY-HORSE
	MOVE	DEAD-HORSE,HERE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	FCLEAR	PRINCE,NODESC
	MOVE	HORSE,TRENCH
	FCLEAR	TRENCH,OPENED
	FSET	HORSE,NODESC
	FCLEAR	HORSE,LIVING
	PRINTI	"stray arrow strikes the prince's stallion in the flank. The luckless beast shrieks piteously, stumbles into "
	ICALL2	THE-PRINT,TRENCH
	PRINTR	" and lies still."


	.FUNCT	HORSE-F,CONTEXT,X,OBJ
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \?CCL6
	IN?	PRINCE,HORSE \?CND7
	PRINTI	"A prince sits on a "
	ICALL2	DPRINT,HORSE
	PRINTC	PER
	RTRUE	
?CND7:	ICALL2	PRINTCA,HORSE
	PRINTI	" stands beside the headless body of a prince."
	RTRUE	
?CCL6:	EQUAL?	CONTEXT,M-CONT \FALSE
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND10
	SET	'OBJ,PRSI
?CND10:	ZERO?	OBJ /FALSE
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	PRINT	CANT
	PRINTI	"reach "
	ICALL2	THE-PRINT,OBJ
	PRINT	AT-MOMENT
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? /?CCL16
	EQUAL?	PRSA,V?THROW,V?THROW-OVER \?CCL19
	ICALL1	BATTLE-MISS
	RTRUE	
?CCL19:	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL16:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL22
	ICALL1	CTHE-PRINT
	PRINT	SIS
	IN?	PRINCE,PRSO \?CND23
	PRINTI	"bearing "
	ICALL2	THE-PRINT,PRINCE
	PRINT	PERIOD
	RTRUE	
?CND23:	PRINTR	"riderless."
?CCL22:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL26
	IN?	PRINCE,PRSO \?CND27
	ICALL2	NOT-LONELY,PRINCE
	RTRUE	
?CND27:	ICALL1	ZING
	RTRUE	
?CCL26:	EQUAL?	PRSA,V?TELL,V?ASK-ABOUT,V?ASK-FOR /?CTR29
	EQUAL?	PRSA,V?TELL-ABOUT,V?YELL \?CCL30
?CTR29:	ICALL2	CTHE-PRINT,HORSE
	PRINTR	" pays no attention."
?CCL30:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL1	ZING
	RTRUE	


	.FUNCT	NOT-LONELY,WHO
	ICALL2	CTHE-PRINT,WHO
	PRINTR	" doesn't seem lonely."


	.FUNCT	BATTLE-MISS
	MOVE	PRSO,HERE
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL1	CTHE-PRINT
	PRINTI	" narrowly misses "
	ICALL1	THEI-PRINT
	PRINTI	" and tumbles to "
	ICALL2	THE-PRINT,GROUND
	PRINT	PERIOD
	RTRUE	


	.FUNCT	DEAD-HORSE-F,X
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?THROW,V?THROW-OVER \?CCL6
	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL6:	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL9
	ICALL1	CTHE-PRINT
	PRINT	STR?792
	ICALL2	THE-PRINT,TRENCH
	PRINT	PERIOD
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?TELL,V?ASK-ABOUT,V?ASK-FOR /?CTR10
	EQUAL?	PRSA,V?TELL-ABOUT,V?YELL \?CCL11
?CTR10:	ICALL1	NOT-LIKELY
	PRINTR	" will respond."
?CCL11:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CCL15
	ICALL1	CTHE-PRINT
	PRINTR	" is much too heavy."
?CCL15:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \FALSE
	ICALL1	ZING
	RTRUE	


	.FUNCT	TRENCH-F,CONTEXT,X,OBJ
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \?CCL6
	ICALL2	PRINTCA,TRENCH
	PRINTI	" is visible on "
	ICALL2	THE-PRINT,GROUND
	CALL2	SEE-ANYTHING-IN?,TRENCH
	ZERO?	STACK /?CND7
	PRINTI	". Inside it you see "
	ICALL2	CONTENTS,TRENCH
	SET	'P-IT-OBJECT,TRENCH
?CND7:	PRINTC	PER
	RTRUE	
?CCL6:	EQUAL?	CONTEXT,M-CONT \FALSE
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND10
	SET	'OBJ,PRSI
?CND10:	EQUAL?	OBJ,FALSE-VALUE,HORSE /FALSE
	IN?	HORSE,TRENCH /?CND12
	EQUAL?	HERE,ARCH4 \FALSE
	IN?	HELM,TRENCH \FALSE
	ICALL1	SAY-SLAY
	RETURN	2
?CND12:	PRINT	CANT
	INTBL?	PRSA,SEEVERBS,NSVERBS >X \?CCL24
	PRINTB	W?SEE
	JUMP	?CND22
?CCL24:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL26
	PRINTB	W?REACH
	JUMP	?CND22
?CCL26:	PRINTI	"do that to"
?CND22:	PRINTC	SP
	ICALL2	THE-PRINT,OBJ
	PRINTI	". "
	ICALL2	CTHE-PRINT,HORSE
	PRINTI	" is blocking "
	ICALL2	THE-PRINT,TRENCH
	PRINT	PERIOD
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? /?CCL28
	EQUAL?	PRSA,V?PUT,V?EMPTY-INTO,V?THROW \FALSE
	MOVE	PRSO,PRSI
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL1	CTHE-PRINT
	PRINTI	" rolls deep into "
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL28:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE,V?SEARCH \?CCL32
	ICALL1	CTHE-PRINT
	EQUAL?	HERE,ARCH4 \?CCL35
	PRINTI	" forms an unsightly gash in the plaza"
	JUMP	?CND33
?CCL35:	PRINTI	" looks much like any other"
?CND33:	IN?	HORSE,PRSO \?CCL38
	PRINTI	". "
	ICALL2	PRINTCA,HORSE
	PRINT	STR?792
	PRINTB	W?IT
	JUMP	?CND36
?CCL38:	CALL1	SEE-ANYTHING-IN?
	ZERO?	STACK /?CND36
	PRINTI	". "
	PRINT	STR?530
	ICALL1	CONTENTS
	SET	'P-IT-OBJECT,PRSO
?CND36:	PRINT	PERIOD
	RTRUE	
?CCL32:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH,V?CLOSE \?CCL41
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL41:	EQUAL?	PRSA,V?REACH-IN /?CTR42
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL43
?CTR42:	IN?	HORSE,TRENCH \?CCL48
	ICALL2	CTHE-PRINT,HORSE
	PRINTI	" is blocking "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL48:	EQUAL?	PRSA,V?REACH-IN \?CND46
	PRINTI	"You grope around in "
	ICALL1	THE-PRINT
	CALL1	SEE-ANYTHING-IN?
	ZERO?	STACK /?CND50
	PRINTR	", and feel something."
?CND50:	PRINTI	", but feel nothing "
	CALL2	PICK-NEXT,YAWNS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND46:	ICALL1	CTHE-PRINT
	PRINTR	"'s sides begin to crumble, so you hastily scramble out again."
?CCL43:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \FALSE
	ICALL1	NOT-IN
	RTRUE	


	.FUNCT	ZING
	ICALL1	AS-YOU-APPROACH
	PRINTR	"an arrow zings across your path."


	.FUNCT	AS-YOU-APPROACH,OBJ
	ASSIGNED?	'OBJ /?CND1
	SET	'OBJ,PRSO
?CND1:	PRINTI	"As you approach "
	ICALL2	THE-PRINT,OBJ
	PRINTI	", "
	RTRUE	


	.FUNCT	MAW-F,CONTEXT,OBJ,X
	ZERO?	CONTEXT /?CCL3
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND4
	SET	'OBJ,PRSI
?CND4:	EQUAL?	CONTEXT,M-BEG \?CCL8
	CALL	CANT-REACH-WHILE-IN?,OBJ,MAW
	RSTACK	
?CCL8:	EQUAL?	CONTEXT,M-CONT \FALSE
	IN?	PLAYER,MAW \?CCL12
	EQUAL?	OBJ,TEAR \FALSE
	FSET?	OBJ,TAKEABLE /FALSE
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL1	TOUCH-TEAR
	RETURN	2
?CCL12:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL	YOUD-HAVE-TO,STR?793,MAW
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CND1
	ICALL1	SEE-MAW
	RTRUE	
?CND1:	CALL1	HANDLE-MAW?
	RSTACK	


	.FUNCT	SEE-MAW
	PRINTI	"The maw hangs wide open, its lower jaw touching "
	ICALL2	THE-PRINT,GROUND
	PRINTR	" to form an inclined walkway lined with rows of stone teeth."


	.FUNCT	HANDLE-MAW?,X
	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL3
	IN?	PLAYER,MAW \?CCL6
	ICALL1	ASIDE-FROM
	JUMP	?CND4
?CCL6:	PRINT	YOU-SEE
?CND4:	ICALL2	CONTENTS,MAW
	PRINTI	" lying in "
	ICALL2	THE-PRINT,MAW
	PRINT	PERIOD
	SET	'P-IT-OBJECT,PRSO
	RTRUE	
?CCL3:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL8
	ICALL1	ENTER-CROCO
	IN?	PLAYER,MAW /TRUE
	RETURN	2
?CCL8:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \FALSE
	ICALL1	EXIT-CROCO
	RETURN	2


	.FUNCT	CROCO-F,X
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?PUT-ON,V?EMPTY-INTO \FALSE
	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	PRINTI	"This monstrous idol is approximately the size and shape of a subway train, not counting the limbs and tail. "
	ICALL1	SEE-MAW
	IN?	TEAR,MAW \TRUE
	PRINT	TAB
	ICALL2	PRINTCA,TEAR
	PRINTR	" adorns the idol's face, just below one eye."
?CCL7:	CALL1	HANDLE-MAW?
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	EXIT-CROCO
	IN?	PLAYER,MAW /?CCL3
	ICALL2	NOT-IN,MAW
	RFALSE	
?CCL3:	IN?	MAMA,MAW \?CND1
	ICALL2	CTHE-PRINT,MAMA
	PRINTI	" is blocking the way."
	CRLF	
	RFALSE	
?CND1:	ICALL1	CLEAR-MAW-EXITS
	LOC	MAW
	MOVE	PLAYER,STACK
	SET	'P-WALK-DIR,FALSE-VALUE
	ICALL2	CTHE-PRINT,MAW
	PRINTI	" steadies itself as you descend"
	ICALL1	RELOOK
	RFALSE	


	.FUNCT	ENTER-CROCO,TBL
	IN?	PLAYER,MAW \?CND1
	PRINT	CYOU
	IN?	MAMA,MAW \?CND3
	PRINTI	"squeeze "
	PRINTD	ME
	PRINTI	" up as far as you can go."
	CRLF	
	RFALSE	
?CND3:	PRINTI	"edge a bit further into the open maw."
	CRLF	
	ICALL1	INTO-INNARDS
	RFALSE	
?CND1:	PUTP	HERE,P?BELOW,MAW
	ICALL	NEW-EXIT?,HERE,P?DOWN,1153,EXIT-CROCO
	MOVE	PLAYER,MAW
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'P-WALK-DIR,FALSE-VALUE
	PRINTI	"You climb up into "
	ICALL2	THE-PRINT,MAW
	ICALL1	RELOOK
	PRINT	TAB
	PRINTI	"The stone jaw lurches underfoot, and you struggle to keep your balance. It's like standing on a seesaw."
	CRLF	
	RFALSE	


	.FUNCT	INTO-INNARDS,OBJ,NXT
	ICALL1	CLEAR-MAW-EXITS
	ICALL1	GOOD-MAMA
	PRINT	TAB
	ICALL2	ITALICIZE,STR?794
	PRINTI	"! The bottom of the jaw tilts backward, pitching you helplessly forward..."
	ICALL1	CARRIAGE-RETURNS
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	FCLEAR	INNARDS,SEEN
	SET	'HERE,INNARDS
	MOVE	PLAYER,INNARDS
	FIRST?	MAW >OBJ \FALSE
?PRG3:	NEXT?	OBJ >NXT /?BOGUS5
?BOGUS5:	FSET?	OBJ,TAKEABLE \?CND6
	MOVE	OBJ,INNARDS
?CND6:	SET	'OBJ,NXT
	ZERO?	OBJ \?PRG3
	RFALSE	


	.FUNCT	TOUCH-TEAR,M
	ICALL2	CTHE-PRINT,MAW
	PRINTI	" tilts dangerously as you reach upward"
	IN?	MAMA,MAW /?CCL2
	FSET?	TEAR,MUNGED \?CND1
?CCL2:	PRINTI	", standing on tiptoe to grasp the sparkling treasure.."
	PRINT	PERIOD
	IN?	MAMA,MAW \?CND5
	FSET	TEAR,MUNGED
	FCLEAR	TEAR,TRYTAKE
	FCLEAR	TEAR,NOALL
	FSET	TEAR,TAKEABLE
	MOVE	TEAR,MAMA
	ICALL1	GOOD-MAMA
	PRINT	TAB
	PRINTI	"Got it! The jewel pops off the idol's face, slips from your grasp and rolls down to "
	ICALL2	THE-PRINT,MAMA
	PRINTI	"'s feet, where she promptly eats it, turns and lumbers off the jaw."
	CRLF	
?CND5:	ICALL1	INTO-INNARDS
	RTRUE	
?CND1:	FSET	TEAR,MUNGED
	PRINTI	"!
  Slowly, slowly, you draw your hand away from "
	ICALL2	THE-PRINT,TEAR
	PRINTR	", and the jaw settles back to the ground."


	.FUNCT	TEAR-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE,V?LOOK-ON \FALSE
	PRINTI	"Its pale "
	CALL1	SEE-COLOR?
	ZERO?	STACK /?CCL8
	PRINTI	"blue"
	JUMP	?CND6
?CCL8:	PRINTI	"gray"
?CND6:	PRINTR	" facets sparkle with obvious value."


	.FUNCT	JUNGLE-F,LEN,X
	GETB	JUNGLE-ROOMS,0 >LEN
	EQUAL?	PRSA,V?LISTEN \?CCL3
	PRINT	YOU-HEAR
	PRINTR	"the cries of exotic birds."
?CCL3:	EQUAL?	PRSA,V?SMELL \?CCL5
	PRINTR	"The air is warm and humid."
?CCL5:	INTBL?	HERE,JUNGLE-ROOMS+1,LEN,1 >LEN \?CCL7
	CALL1	HERE-F
	RSTACK	
?CCL7:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE,V?SEARCH \?CCL11
	EQUAL?	HERE,AT-FALLS \?CCL14
	ICALL1	CANT-SEE-MUCH
	RTRUE	
?CCL14:	EQUAL?	HERE,OVER-JUNGLE,NW-SUPPORT,SW-SUPPORT /?CCL15
	EQUAL?	HERE,SE-SUPPORT \?CND12
?CCL15:	ICALL1	CTHE-PRINT
	PRINTI	" stretches off in every "
	PRINTD	INTDIR
	PRINT	PERIOD
	RTRUE	
?CND12:	ICALL1	V-LOOK
	RTRUE	
?CCL11:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL19
	EQUAL?	HERE,NW-UNDER \?CCL22
	ICALL2	DO-WALK,P?SE
	RTRUE	
?CCL22:	EQUAL?	HERE,SW-UNDER \?CCL24
	ICALL2	DO-WALK,P?NE
	RTRUE	
?CCL24:	EQUAL?	HERE,SE-UNDER \?CCL26
	ICALL2	DO-WALK,P?NW
	RTRUE	
?CCL26:	EQUAL?	HERE,AT-FALLS \?CND20
	ICALL2	DO-WALK,P?NORTH
	RTRUE	
?CND20:	PRINTR	"It's a long way down."
?CCL19:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \FALSE
	EQUAL?	HERE,SW-UNDER,NW-UNDER,SE-UNDER \?CND30
	ICALL2	DO-WALK,P?UP
	RTRUE	
?CND30:	ICALL1	NOT-IN
	RTRUE	


	.FUNCT	PRAIRIE-F,X
	CALL	ADJ-USED?,W?GRAY,W?GREY
	ZERO?	STACK /?CCL3
	FSET?	HERE,SEEN \?CCL3
	ICALL2	NOTE-COLOR,PRAIRIE
	RETURN	2
?CCL3:	CALL1	PLAIN-ROOM?
	ZERO?	STACK /?CCL9
	CALL1	HERE-F
	ZERO?	STACK /FALSE
	RTRUE	
?CCL9:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL13
	SET	'X,P?EAST
	EQUAL?	HERE,ON-PIKE \?CND14
	SET	'X,P?WEST
?CND14:	ICALL2	DO-WALK,X
	RTRUE	
?CCL13:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \FALSE
	ICALL1	NOT-ON
	RTRUE	


	.FUNCT	NOTE-COLOR,OBJ
	PRINTI	"Look again. "
	ICALL2	CTHE-PRINT,OBJ
	ICALL2	ISNT-ARENT,OBJ
	PRINTR	" gray anymore."


	.FUNCT	FARM-DOOR-F
	EQUAL?	HERE,IN-FARM \FALSE
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH,V?HIT /?PRD9
	EQUAL?	PRSA,V?MUNG,V?KICK \FALSE
?PRD9:	IN?	TWISTER,HERE \FALSE
	FSET?	PRSO,OPENED /FALSE
	PRINTI	"No use. The wind is holding "
	ICALL1	THE-PRINT
	PRINTR	" tightly shut."


	.FUNCT	FARM-WINDOW-F
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?PUT,V?THROW,V?THROW-OVER /?CCL5
	EQUAL?	PRSA,V?EMPTY-INTO \FALSE
?CCL5:	FSET?	PRSI,OPENED /?CND8
	ICALL	YOUD-HAVE-TO,STR?518,PRSI
	RTRUE	
?CND8:	ICALL1	VANISH
	ICALL1	CTHE-PRINT
	PRINTI	" falls "
	EQUAL?	HERE,FARM-ROOM,IN-FROON \?CCL12
	MOVE	PRSO,IN-FARM
	PRINTI	"in"
	JUMP	?CND10
?CCL12:	ZERO?	STORM-TIMER \?CND13
	MOVE	PRSO,FARM-ROOM
?CND13:	PRINTI	"out"
?CND10:	PRINTI	"side "
	ICALL1	THEI-PRINT
	PRINT	STR?592
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL16
	ICALL1	CTHE-PRINT
	PRINT	SIS
	FSET?	PRSO,OPENED \?CND17
	PRINTR	"wide open."
?CND17:	PRINTR	"closed."
?CCL16:	EQUAL?	PRSA,V?LOOK-INSIDE,V?LOOK-OUTSIDE \?CCL20
	EQUAL?	HERE,FARM-ROOM,IN-FROON \?CCL23
	EQUAL?	PRSA,V?LOOK-OUTSIDE \?CND24
	PRINT	ALREADY
	PRINTI	"outside "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CND24:	ICALL1	CANT-SEE-MUCH
	RTRUE	
?CCL23:	LOC	TWISTER
	ZERO?	STACK \?CND21
	PRINTR	"It seems to be getting darker."
?CND21:	PRINTR	"Whirling clouds of dust obscure the view."
?CCL20:	EQUAL?	PRSA,V?HIT,V?MUNG,V?KICK \?CCL28
	ICALL1	WASTE-OF-TIME
	RTRUE	
?CCL28:	EQUAL?	PRSA,V?LEAP,V?ENTER,V?THROUGH /?CTR29
	EQUAL?	PRSA,V?CLIMB-OVER,V?ESCAPE,V?DIVE \FALSE
?CTR29:	FSET?	PRSO,OPENED /?CCL35
	ICALL2	YOUD-HAVE-TO,STR?518
	RTRUE	
?CCL35:	EQUAL?	HERE,FARM-ROOM,IN-FROON \?CCL37
	ICALL2	WINDOW-SQUEEZE,IN-FARM
	RTRUE	
?CCL37:	FSET?	FARMHOUSE,SEEN /?CND33
	GETP	IN-FARM,P?NORTH
	GET	STACK,XROOM
	ICALL2	WINDOW-SQUEEZE,STACK
	RTRUE	
?CND33:	PRINTI	"You leap recklessly out the open "
	PRINTD	PRSO
	PRINTI	" into a maelstrom of wind and dust, then plummet to a painful death"
	ICALL1	JIGS-UP
	RTRUE	


	.FUNCT	WINDOW-SQUEEZE,DEST
	PRINTI	"You squeeze through "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	ZERO?	VERBOSITY /?CND1
	CRLF	
?CND1:	ICALL2	GOTO,DEST
	RTRUE	


	.FUNCT	FARMHOUSE-F,CONTEXT,DIR,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	PRINTI	"A little gray "
	PRINTD	FARM
	PRINTI	" stands nearby. The front door is "
	FSET?	FARM-DOOR,OPENED \?CND6
	PRINTI	"wide open."
	RTRUE	
?CND6:	PRINTB	W?CLOSED
	PRINTC	PER
	RTRUE	
?CCL3:	FSET?	FARMHOUSE,SEEN \?CCL9
	EQUAL?	HERE,FARM-ROOM \?CCL9
	ICALL2	GONE-NOW,FARMHOUSE
	RETURN	2
?CCL9:	CALL	ADJ-USED?,W?GRAY,W?GREY
	ZERO?	STACK /?CCL15
	FSET?	HERE,SEEN \?CCL15
	ICALL2	NOTE-COLOR,FARMHOUSE
	RETURN	2
?CCL15:	EQUAL?	HERE,IN-FARM \?CCL21
	CALL1	HERE-F
	RSTACK	
?CCL21:	EQUAL?	HERE,FARM-ROOM,IN-FROON /?CCL23
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL23
	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL23:	ZERO?	NOW-PRSI? \FALSE
	INTBL?	PRSA,SEEVERBS,NSVERBS >X \?CCL29
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL32
	PRINT	XTHE
	CALL1	PLAIN-ROOM?
	ZERO?	STACK /?CCL35
	PRINTI	"distant "
	JUMP	?CND33
?CCL35:	FSET?	HERE,SEEN \?CCL37
	PRINTI	"red "
	JUMP	?CND33
?CCL37:	PRINTI	"gray "
?CND33:	PRINTD	PRSO
	PRINTR	" isn't much to look at."
?CCL32:	EQUAL?	PRSA,V?LOOK-UNDER,V?LOOK-BEHIND \?CND30
	EQUAL?	HERE,IN-FROON \?CND30
	SET	'P-IT-OBJECT,BOOT
	ICALL2	PRINTCA,BOOT
	PRINT	STR?795
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CND30:	ICALL1	CANT-SEE-MUCH
	RTRUE	
?CCL29:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL42
	EQUAL?	HERE,FARM-ROOM,IN-FROON \?CND43
	ICALL2	DO-WALK,P?IN
	RTRUE	
?CND43:	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL42:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \FALSE
	ICALL1	NOT-IN
	RTRUE	


	.FUNCT	SCARE1-F,CONTEXT,WRD
	ZERO?	CONTEXT /?CND1
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	SET	'WRD,W?GRAY
	FSET?	HERE,SEEN \?CND5
	CALL2	RAG-COLOR-WORD?,SCARE1 >WRD
?CND5:	PRINTI	"A weatherbeaten "
	PRINTD	SCARE1
	PRINTI	" stands in a patch of dead corn, its "
	PRINTB	WRD
	PRINTI	" rags flapping in the wind."
	RTRUE	
?CND1:	CALL2	HANDLE-SCARES?,SCARE1
	RSTACK	


	.FUNCT	SCARE2-F,CONTEXT,WRD
	ZERO?	CONTEXT /?CND1
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	SET	'WRD,W?GRAY
	FSET?	HERE,SEEN \?CND5
	CALL2	RAG-COLOR-WORD?,SCARE2 >WRD
?CND5:	PRINT	XTHE
	PRINTB	WRD
	PRINTI	" rags of another "
	PRINTD	SCARE2
	PRINTI	" flap uselessly in a dead patch of corn."
	RTRUE	
?CND1:	CALL2	HANDLE-SCARES?,SCARE2
	RSTACK	


	.FUNCT	SCARE3-F,CONTEXT,WRD
	ZERO?	CONTEXT /?CND1
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	SET	'WRD,W?GRAY
	FSET?	HERE,SEEN \?CND5
	CALL2	RAG-COLOR-WORD?,SCARE3 >WRD
?CND5:	PRINTI	"A patch of corn is flourishing nearby, presided over by a third "
	PRINTD	SCARE3
	PRINT	SIN
	PRINTB	WRD
	PRINTI	" rags."
	RTRUE	
?CND1:	CALL2	HANDLE-SCARES?,SCARE3
	RSTACK	


	.FUNCT	HANDLE-SCARES?,OBJ,S3,WRD,X
	EQUAL?	OBJ,SCARE3 \?CND1
	INC	'S3
?CND1:	SET	'WRD,W?GRAY
	FSET?	HERE,SEEN \?CND3
	FSET?	OBJ,SEEN \?CND3
	GETPT	OBJ,P?ADJECTIVE
	GET	STACK,0 >WRD
?CND3:	FSET?	HERE,SEEN \?CND7
	CALL	ADJ-USED?,W?GRAY,W?GREY
	ZERO?	STACK /?CND7
	ICALL2	NOTE-COLOR,OBJ
	RETURN	2
?CND7:	CALL	NOUN-USED?,W?RAGS,W?CLOTH
	ZERO?	STACK \?CTR14
	CALL	ADJ-USED?,WRD,W?GRAY,W?GREY
	ZERO?	STACK /?CCL15
?CTR14:	ZERO?	NOW-PRSI? /?CCL20
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	WASTE-OF-TIME
	RTRUE	
?CCL20:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?WEAR \?CCL24
	FSET?	OBJ,SEEN /?CND25
	FSET?	HERE,SEEN \?CND25
	CALL2	RAG-COLOR-WORD?,OBJ >WRD
?CND25:	PRINT	XTHE
	PRINTB	WRD
	PRINTI	" rags on "
	ICALL1	THE-PRINT
	PRINTR	" are tattered and useless."
?CCL24:	EQUAL?	PRSA,V?SEARCH,V?LOOK-INSIDE,V?LOOK-UNDER \?CCL30
	PRINTI	"You find nothing "
	CALL2	PICK-NEXT,YAWNS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CCL30:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	PRINTR	"Your grasp only shreds the rags worse than before."
?CCL15:	CALL	NOUN-USED?,W?CORN,W?PATCH,W?HUSKS
	ZERO?	STACK /?CCL33
	ZERO?	NOW-PRSI? /?CCL36
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL	PERFORM,V?DROP,PRSO
	RTRUE	
?CCL36:	EQUAL?	PRSA,V?TAKE \?CCL40
	EQUAL?	HERE,FARM-ROOM \?CND41
	PRINTR	"Whoever owns the corn might not like that."
?CND41:	PRINTR	"There's none left worth taking."
?CCL40:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL44
	PRINTI	"The corn around "
	ICALL1	THE-PRINT
	PRINT	SIS
	ZERO?	S3 /?CND45
	PRINTR	"almost ready for harvest."
?CND45:	PRINTR	"dead; only withered husks remain."
?CCL44:	EQUAL?	PRSA,V?LOOK-INSIDE,V?LOOK-UNDER,V?SEARCH \?CCL48
	ICALL2	ASIDE-FROM,PRSO
	PRINTI	"nothing "
	CALL2	PICK-NEXT,YAWNS
	PRINT	STACK
	PRINTR	" in the corn."
?CCL48:	EQUAL?	PRSA,V?EAT,V?TASTE \?CCL50
	ZERO?	S3 /?CND51
	PRINTR	"It's not quite ripe enough."
?CND51:	PRINT	NOTHING
	PRINTR	"left to eat."
?CCL50:	EQUAL?	PRSA,V?SMELL \?CCL54
	PRINTI	"The corn smells "
	ZERO?	S3 /?CND55
	PRINTR	"almost ripe."
?CND55:	PRINTR	"rotten."
?CCL54:	EQUAL?	PRSA,V?DRINK \?CCL58
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL58:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL60
	ZERO?	S3 /?CND61
	PRINTR	"Thick husks block your path."
?CND61:	PRINTR	"Dead husks crunch underfoot."
?CCL60:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL64
	PRINTR	"Which way?"
?CCL64:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL1	WASTE-OF-TIME
	RTRUE	
?CCL33:	ZERO?	NOW-PRSI? /?CCL67
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL67:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL71
	FSET?	OBJ,SEEN /?CND72
	FSET?	HERE,SEEN \?CND72
	CALL2	RAG-COLOR-WORD?,OBJ >WRD
?CND72:	PRINTI	"Considering the stormy climate hereabouts, it's remarkable that this "
	PRINTD	PRSO
	PRINTI	" is still standing. Threadbare "
	PRINTB	WRD
	PRINTI	" rags hang from the wooden limbs, flapping"
	PRINT	STR?796
	RTRUE	
?CCL71:	EQUAL?	PRSA,V?LISTEN \?CCL77
	PRINTI	"Its limp rags flap"
	PRINT	STR?796
	RTRUE	
?CCL77:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL2	ROOTED,OBJ
	RTRUE	


	.FUNCT	ROOTED,OBJ
	ICALL2	CTHE-PRINT,OBJ
	PRINTR	" is firmly rooted in the ground."


	.FUNCT	RAG-COLOR-WORD?,OBJ,WRD,BAD
	FSET?	OBJ,SEEN \?CND1
	GETPT	OBJ,P?ADJECTIVE
	GET	STACK,0
	RSTACK	
?CND1:	CALL2	SET-RAG-COLOR,OBJ >WRD
	EQUAL?	OBJ,SCARE3 \?CCL5
	SET	'SCARES-SEEN,3
?CND3:	FSET?	FARMHOUSE,NODESC \?CND7
	FSET?	FARM,NODESC \?CND7
	ICALL2	QUEUE,I-HOUSEFALL
?CND7:	FSET?	SCARE1,SEEN /?CND11
	ICALL2	SET-RAG-COLOR,SCARE1
?CND11:	FSET?	SCARE2,SEEN /?CND13
	ICALL2	SET-RAG-COLOR,SCARE2
?CND13:	FSET?	SCARE3,SEEN /?CCL17
	CALL2	SET-RAG-COLOR,SCARE3 >BAD
	JUMP	?CND15
?CCL5:	IGRTR?	'SCARES-SEEN,1 /?CND3
	RETURN	WRD
?CCL17:	GETPT	SCARE3,P?ADJECTIVE
	GET	STACK,0 >BAD
?CND15:	SET	'BADKEY,KEY1
	EQUAL?	BAD,W?MAUVE \?CCL20
	SET	'BADKEY,KEY2
	RETURN	WRD
?CCL20:	EQUAL?	BAD,W?LAVENDER /?CCL21
	RETURN	WRD
?CCL21:	SET	'BADKEY,KEY3
	RETURN	WRD


	.FUNCT	SET-RAG-COLOR,OBJ,WRD
	FSET	OBJ,SEEN
	CALL2	PICK-ONE,SCARE-COLORS >WRD
	GETPT	OBJ,P?ADJECTIVE
	PUT	STACK,0,WRD
	RETURN	WRD


	.FUNCT	JBOX-F,X
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL2	CTHE-PRINT,MAYOR
	PRINTI	" backs way from you. ""Please, "
	ICALL1	HONORED-ONE
	PRINTR	"! Not so hasty."""


	.FUNCT	GENERIC-KEYS-F,TBL,LEN
	ASSIGNED?	'LEN /?CND1
	GET	TBL,0 >LEN
?CND1:	EQUAL?	HERE,IN-SPLENDOR \?CCL5
	RETURN	HERD
?CCL5:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \FALSE
	GET	TBL,1
	RSTACK	


	.FUNCT	KEY1-F
	CALL2	HANDLE-KEYS?,KEY1
	RSTACK	


	.FUNCT	KEY2-F
	CALL2	HANDLE-KEYS?,KEY2
	RSTACK	


	.FUNCT	KEY3-F
	CALL2	HANDLE-KEYS?,KEY3
	RSTACK	


	.FUNCT	HANDLE-KEYS?,OBJ,WORD,K1,K2,K3
	GETPT	OBJ,P?ADJECTIVE
	GET	STACK,0 >WORD
	CALL1	SEE-COLOR?
	ZERO?	STACK \?CND1
	SET	'WORD,W?GRAY
?CND1:	CALL2	NOUN-USED?,W?KEYS
	ZERO?	STACK /?CND3
	CALL2	VISIBLE?,KEY1 >K1
	CALL2	VISIBLE?,KEY2 >K2
	CALL2	VISIBLE?,KEY3 >K3
	EQUAL?	OBJ,KEY1 \?PRD9
	ZERO?	K2 \?PRD9
	ZERO?	K3 /?CTR6
?PRD9:	EQUAL?	OBJ,KEY2 \?PRD13
	ZERO?	K1 \?PRD13
	ZERO?	K3 /?CTR6
?PRD13:	EQUAL?	OBJ,KEY3 \?CCL7
	ZERO?	K2 \?CCL7
	ZERO?	K1 \?CCL7
?CTR6:	ICALL1	ONLY-ONE
	RETURN	2
?CCL7:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CND3
	PRINTR	"There are three keys, colored mauve, puce and lavender."
?CND3:	ZERO?	NOW-PRSI? /?CCL25
	EQUAL?	PRSA,V?OPEN,V?UNLOCK \FALSE
	PRINTI	"Forget it. That phoney "
	ICALL2	DPRINT,PRSI
	PRINTR	" couldn't open anything."
?CCL25:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \?CCL29
	EQUAL?	PRSA,V?READ /?CND30
	PRINTI	"This is actually a cheap piece of styrofoam, cut into the shape of a giant key, spray painted "
	PRINTB	WORD
	PRINTI	" and sprinkled with bits of glitter. "
?CND30:	PRINTI	"The words "
	ICALL2	ITALICIZE,STR?797
	PRINTR	" are scrawled in crayon across the front."
?CCL29:	EQUAL?	PRSA,V?SMELL \?CCL33
	PRINTI	"It smells like "
	PRINTB	WORD
	PRINTR	" paint."
?CCL33:	FSET?	PRSO,TOUCHED /FALSE
	EQUAL?	PRSA,V?POINT \?CCL37
	ICALL2	AWARD-KEY,PRSO
	RTRUE	
?CCL37:	EQUAL?	PRSA,V?TAKE \FALSE
	CALL1	ITAKE
	ZERO?	STACK /TRUE
	PRINTI	"You ceremoniously lift "
	ICALL1	THE-PRINT
	ICALL2	OUT-OF-LOC,JBOX
	PRINT	PERIOD
	ICALL2	EXIT-FROON,PRSO
	RTRUE	


	.FUNCT	AWARD-KEY,OBJ
	FSET	OBJ,TOUCHED
	MOVE	OBJ,PLAYER
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	SET	'P-IT-OBJECT,OBJ
	PRINTI	"With a gracious bow, "
	ICALL2	THE-PRINT,MAYOR
	PRINTI	" sets "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" onto your outstretched palm."
	CRLF	
	ICALL2	EXIT-FROON,OBJ
	RTRUE	


	.FUNCT	EXIT-FROON,OBJ,WRD,S1,S2,S3
	ZERO?	BADKEY \?CND1
	GETPT	OBJ,P?ADJECTIVE
	GET	STACK,0 >WRD
	GETPT	SCARE1,P?ADJECTIVE
	GET	STACK,0 >S1
	GETPT	SCARE2,P?ADJECTIVE
	GET	STACK,0 >S2
	GETPT	SCARE3,P?ADJECTIVE
	GET	STACK,0 >S3
	FSET?	SCARE3,SEEN /?CND3
?PRG5:	CALL2	PICK-ONE,SCARE-COLORS >S3
	EQUAL?	S3,WRD,S2,S1 /?PRG5
	FSET	SCARE3,SEEN
	GETPT	SCARE3,P?ADJECTIVE
	PUT	STACK,0,S3
?CND3:	FSET?	SCARE2,SEEN /?CND9
?PRG11:	CALL2	PICK-ONE,SCARE-COLORS >S2
	EQUAL?	S2,S3,S1 /?PRG11
	FSET	SCARE2,SEEN
	GETPT	SCARE2,P?ADJECTIVE
	PUT	STACK,0,S2
?CND9:	FSET?	SCARE1,SEEN /?CND1
?PRG17:	CALL2	PICK-ONE,SCARE-COLORS >S1
	EQUAL?	S1,S3,S2 /?PRG17
	FSET	SCARE1,SEEN
	GETPT	SCARE1,P?ADJECTIVE
	PUT	STACK,0,S1
?CND1:	ICALL2	DEQUEUE,I-FROON
	ICALL2	QUEUE,I-CORBIES
	REMOVE	FARM
	ICALL	REPLACE-GLOBAL?,FARM-ROOM,FARM-DOOR,NULL
	ICALL	REPLACE-GLOBAL?,FARM-ROOM,FARM-WINDOW,NULL
	ICALL	NEW-EXIT?,FARM-ROOM,P?SOUTH,SORRY-EXIT,STR?728
	ICALL	NEW-EXIT?,FARM-ROOM,P?IN,NO-EXIT,0,0
	PRINTI	"  ""An excellent choice,"" remarks "
	ICALL2	THE-PRINT,MAYOR
	PRINTI	". ""Bye!"""
	CRLF	
	ICALL1	REGAIN-SENSES
	ICALL2	GOTO,FARM-ROOM
	RTRUE	


	.FUNCT	FROON-F
	EQUAL?	HERE,IN-FROON \?CCL3
	CALL1	HERE-F
	RSTACK	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?WHAT,V?WHO,V?WHERE /?CTR6
	EQUAL?	PRSA,V?FIND,V?WALK-TO \FALSE
?CTR6:	ICALL1	REFER-TO-PACKAGE
	RETURN	2


	.FUNCT	GURDY-F,X
	CALL	NOUN-USED?,W?LID,W?TOP
	ZERO?	STACK /?CCL3
	ZERO?	NOW-PRSI? \?CND1
	EQUAL?	PRSA,V?EXAMINE \?CCL7
	PRINTI	"The lid of "
	ICALL1	THE-PRINT
	PRINT	SIS
	FSET?	PRSO,OPENED \?CND8
	PRINTR	"open."
?CND8:	PRINTR	"closed."
?CCL7:	EQUAL?	PRSA,V?LOOK-UNDER,V?LOOK-BEHIND \?CCL11
	ICALL1	LOOK-IN-GURDY
	RTRUE	
?CCL11:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH,V?CLOSE /?CND1
	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND1
	ICALL	FIRMLY-ATTACHED,STR?798,PRSO,TRUE-VALUE
	RTRUE	
?CCL3:	CALL	NOUN-USED?,W?DIAL,W?KNOB,W?POINTER
	ZERO?	STACK \?CTR14
	CALL	NOUN-USED?,W?PAINTINGS,W?PICTURES
	ZERO?	STACK /?CCL15
?CTR14:	CALL1	GDIAL-F
	RSTACK	
?CCL15:	CALL	NOUN-USED?,W?CRANK,W?HANDLE,W?TURNER
	ZERO?	STACK /?CND1
	CALL1	CRANK-F
	RSTACK	
?CND1:	ZERO?	NOW-PRSI? /?CCL21
	EQUAL?	PRSA,V?PUT,V?EMPTY-INTO \?CCL24
	FSET?	PRSI,OPENED /?CCL24
	ICALL2	ITS-CLOSED,PRSI
	RTRUE	
?CCL24:	EQUAL?	PRSA,V?PUT-ON \FALSE
	FSET?	PRSI,OPENED \?CND28
	ICALL	YOUD-HAVE-TO,STR?536,PRSI
	RTRUE	
?CND28:	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL21:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL31
	ICALL1	LOOK-IN-GURDY
	RTRUE	
?CCL31:	EQUAL?	PRSA,V?REACH-IN \?CCL33
	FSET?	PRSO,OPENED /?CND34
	ICALL1	ITS-CLOSED
	RTRUE	
?CND34:	PRINTR	"Your hand tingles."
?CCL33:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH \?CCL37
	EQUAL?	PRSA,V?OPEN-WITH \?CCL40
	EQUAL?	PRSI,HANDS /?CCL40
	ICALL1	WASTE-OF-TIME
	RTRUE	
?CCL40:	FSET?	PRSO,OPENED \?CND38
	ICALL2	ITS-ALREADY,STR?518
	RTRUE	
?CND38:	ICALL	MOVE-ALL,INGURDY,GURDY
	FSET	PRSO,OPENED
	ICALL1	MENTION-PUFF
	PRINTR	" as you open it."
?CCL37:	EQUAL?	PRSA,V?CLOSE \?CCL45
	FSET?	PRSO,OPENED /?CND46
	ICALL2	ITS-ALREADY,STR?531
	RTRUE	
?CND46:	FCLEAR	PRSO,OPENED
	ICALL	MOVE-ALL,GURDY,INGURDY,NODESC
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL1	CTHE-PRINT
	PRINTR	" creaks shut."
?CCL45:	EQUAL?	PRSA,V?TURN,V?CRANK,V?USE /?CTR48
	EQUAL?	PRSA,V?TOUCH \?CCL49
	EQUAL?	P-PRSA-WORD,W?PLAY \?CCL49
?CTR48:	SET	'LAST-CRANK-DIR,FALSE-VALUE
	ICALL1	TURN-GURDY
	RTRUE	
?CCL49:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL55
	PRINTI	"This squat contraption is about the size of a "
	ICALL2	FROBOZZ,STR?799
	PRINTI	" breadbox, and made of brightly painted wood. There's a big dial up front, and a crank jutting from the side, just below the "
	FSET?	PRSO,OPENED \?CCL58
	PRINTB	W?OPEN
	JUMP	?CND56
?CCL58:	PRINTB	W?CLOSED
?CND56:	PRINTR	" lid."
?CCL55:	EQUAL?	PRSA,V?TURN-TO,V?POINT-AT,V?PUSH-TO \FALSE
	EQUAL?	PRSI,PRSO \?CCL63
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL63:	EQUAL?	PRSI,LEFT,RIGHT \?CCL65
	ICALL2	OOPS-THE,CRANK
	EQUAL?	PRSI,RIGHT \?CND66
	ICALL1	TURN-GURDY-RIGHT
	RTRUE	
?CND66:	ICALL1	TURN-GURDY-LEFT
	RTRUE	
?CCL65:	INTBL?	PRSI,PICT-LIST,6 >X \?CND61
	ICALL2	OOPS-THE,GDIAL
	ICALL1	TURN-DIAL
	RTRUE	
?CND61:	ICALL1	WASTE-OF-TIME
	RTRUE	


	.FUNCT	MENTION-PUFF
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINT	XA
	GET	GURDY-EFFECTS,DPOINTER
	PRINT	STACK
	PRINTI	" seeps out"
	RTRUE	


	.FUNCT	OOPS-THE,OBJ
	SET	'P-IT-OBJECT,OBJ
	PRINTC	91
	ICALL2	THE-PRINT,OBJ
	PRINT	BRACKET
	RTRUE	


	.FUNCT	LOOK-IN-GURDY
	FSET?	GURDY,OPENED /?CND1
	ICALL	YOUD-HAVE-TO,STR?518,GURDY
	RTRUE	
?CND1:	PRINTI	"Looking inside "
	ICALL1	THE-PRINT
	PRINTI	" makes your "
	GET	GURDY-PEEKS,DPOINTER
	PRINT	STACK
	CALL2	SEE-ANYTHING-IN?,GURDY
	ZERO?	STACK /?CND3
	PRINTI	". But you can glimpse "
	ICALL2	CONTENTS,GURDY
	PRINTI	" within"
	SET	'P-IT-OBJECT,GURDY
?CND3:	PRINT	PERIOD
	RTRUE	


	.FUNCT	CRANK-F,X
	ZERO?	NOW-PRSI? /?CCL3
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	PRINTI	"It juts from the side of "
	ICALL2	THE-PRINT,GURDY
	PRINT	PERIOD
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?TURN-TO,V?POINT-AT,V?PUSH-TO \?CCL9
	EQUAL?	PRSO,PRSI \?CCL12
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL12:	EQUAL?	PRSI,RIGHT \?CCL14
	ICALL1	TURN-GURDY-RIGHT
	RTRUE	
?CCL14:	EQUAL?	PRSI,LEFT \?CND10
	ICALL1	TURN-GURDY-LEFT
	RTRUE	
?CND10:	ICALL1	CTHE-PRINT
	EQUAL?	PRSI,INTDIR \?CND16
	PRINTR	" turns only to the left or right."
?CND16:	PRINT	STR?800
	INTBL?	PRSI,PICT-LIST,6 >X \?CND18
	SET	'P-IT-OBJECT,GDIAL
	PRINTI	". But "
	ICALL2	THE-PRINT,GDIAL
	PRINTI	" will"
?CND18:	PRINT	PERIOD
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?TURN,V?CRANK,V?SPIN /?CTR20
	EQUAL?	PRSA,V?PUSH,V?MOVE,V?USE \?CCL21
?CTR20:	SET	'LAST-CRANK-DIR,FALSE-VALUE
	ICALL1	TURN-GURDY
	RTRUE	
?CCL21:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL	FIRMLY-ATTACHED,STR?801,GURDY,TRUE-VALUE
	RTRUE	


	.FUNCT	G-EYE-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL5
	PRINTI	"The eye on "
	ICALL2	THE-PRINT,GURDY
	PRINTR	" stares back at you."
?CCL5:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL1	IMPOSSIBLE
	RTRUE	


	.FUNCT	G-EAR-F,X
	ZERO?	NOW-PRSI? \FALSE
	INTBL?	PRSA,TALKVERBS,NTVERBS >X \?CCL5
	ICALL1	CTHE-PRINT
	PRINTI	" listens intently."
	CRLF	
	RETURN	2
?CCL5:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL9
	PRINTI	"The ear on "
	ICALL2	THE-PRINT,GURDY
	PRINTR	" perks up."
?CCL9:	EQUAL?	PRSA,V?LISTEN \?CCL11
	PRINTR	"It listens back."
?CCL11:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL1	IMPOSSIBLE
	RTRUE	


	.FUNCT	G-NOSE-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?SMELL /?CTR4
	EQUAL?	PRSA,V?LISTEN \?CCL5
?CTR4:	PRINTI	"The nose on "
	ICALL2	THE-PRINT,GURDY
	PRINTR	" sniffs you curiously."
?CCL5:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL1	IMPOSSIBLE
	RTRUE	


	.FUNCT	G-MOUTH-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON /?CTR4
	INTBL?	PRSA,TALKVERBS,NTVERBS >X \?CCL5
?CTR4:	PRINTI	"The mouth on "
	ICALL2	THE-PRINT,GURDY
	PRINTR	" sticks out its tongue at you."
?CCL5:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL1	IMPOSSIBLE
	RTRUE	


	.FUNCT	G-HAND-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL5
	PRINTI	"The hand on "
	ICALL2	THE-PRINT,GURDY
	PRINTR	" waves at you."
?CCL5:	EQUAL?	PRSA,V?WAVE-AT,V?HELLO,V?BOW \?CCL7
	ICALL1	CTHE-PRINT
	PRINTR	" waves back."
?CCL7:	EQUAL?	PRSA,V?SHAKE \?CCL9
	EQUAL?	P-PRSA-WORD,W?SHAKE \?CCL9
	ICALL1	CTHE-PRINT
	PRINTI	" isn't "
	ICALL2	ITALICIZE,STR?802
	PRINTR	" friendly."
?CCL9:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL1	IMPOSSIBLE
	RTRUE	


	.FUNCT	G-CLOCK-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL5
	PRINTI	"The clock on "
	ICALL2	THE-PRINT,GURDY
	PRINTR	" is quite old-fashioned."
?CCL5:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL1	IMPOSSIBLE
	RTRUE	


	.FUNCT	GENERIC-PICTURE-F,TBL,LEN,OBJ,X
	ASSIGNED?	'LEN /?CND1
	GET	TBL,0 >LEN
?CND1:	ADD	TBL,2 >TBL
	INTBL?	P-IT-OBJECT,TBL,LEN >X \?CCL5
	RETURN	P-IT-OBJECT
?CCL5:	EQUAL?	PRSA,V?TURN-TO,V?POINT-AT,V?PUSH-TO /FALSE
	GET	PICT-LIST,DPOINTER >OBJ
	INTBL?	OBJ,TBL,LEN >X \FALSE
	RETURN	OBJ


	.FUNCT	GENERIC-DIAL-F,TBL,LEN,X,Y
	GET	TBL,1 >X
	GET	TBL,2 >Y
	EQUAL?	X,GURDY \?CCL3
	RETURN	Y
?CCL3:	EQUAL?	Y,GURDY \FALSE
	RETURN	X


	.FUNCT	GDIAL-F,X
	CALL	NOUN-USED?,W?PAINTINGS,W?PICTURES
	ZERO?	STACK \?CCL2
	CALL2	ADJ-USED?,W?SIX
	ZERO?	STACK /?CND1
?CCL2:	ZERO?	NOW-PRSI? /?CCL7
	EQUAL?	PRSA,V?TURN-TO,V?POINT-AT,V?PUSH-TO \?CND1
	ICALL1	HOW-TO-CLICK
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \?CCL11
	PRINT	YOU-SEE
	PRINTI	"a circle of "
	PRINT	STR?803
	PRINTR	", with a dial in the center."
?CCL11:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND1
	ICALL1	IMPOSSIBLE
	RTRUE	
?CND1:	ZERO?	NOW-PRSI? /?CCL15
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL15:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL19
	ICALL1	CTHE-PRINT
	PRINT	SON
	ICALL2	THE-PRINT,GURDY
	PRINTI	" is encircled by "
	PRINT	STR?803
	PRINTI	". At the moment, the dial points to "
	GET	PICT-LIST,DPOINTER
	ICALL2	THE-PRINT,STACK
	PRINT	PERIOD
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?TURN-TO,V?POINT-AT,V?PUSH-TO \?CCL21
	EQUAL?	PRSI,LEFT \?CCL24
	DLESS?	'DPOINTER,0 \?CND25
	SET	'DPOINTER,5
?CND25:	ICALL2	CLICK-DIAL,STR?804
	RTRUE	
?CCL24:	EQUAL?	PRSI,RIGHT \?CCL28
	IGRTR?	'DPOINTER,5 \?CND29
	SET	'DPOINTER,0
?CND29:	ICALL2	CLICK-DIAL,STR?805
	RTRUE	
?CCL28:	EQUAL?	PRSI,INTDIR \?CND22
	ICALL1	CTHE-PRINT
	PRINTR	" only turns left or right."
?CND22:	ICALL1	TURN-DIAL
	RTRUE	
?CCL21:	EQUAL?	PRSA,V?SPIN,V?ADJUST,V?WIND /?PRG36
	EQUAL?	PRSA,V?TOUCH \?CCL33
?PRG36:	RANDOM	6 >X
	DEC	'X
	EQUAL?	X,DPOINTER /?PRG36
	SET	'DPOINTER,X
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL1	PRSO-FIDDLE
	RTRUE	
?CCL33:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL	FIRMLY-ATTACHED,PRSO,GURDY
	RTRUE	


	.FUNCT	CLICK-DIAL,STR
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL2	ITALICIZE,STR?749
	PRINTI	". You turn "
	ICALL2	THE-PRINT,GDIAL
	ZERO?	STR /?CCL3
	PRINTI	" once to the "
	PRINT	STR
	PRINTI	". It now "
	JUMP	?CND1
?CCL3:	PRINTI	" until it "
?CND1:	PRINTI	"points to "
	GET	PICT-LIST,DPOINTER
	ICALL2	THE-PRINT,STACK
	PRINT	PERIOD
	FSET?	GURDY,OPENED \TRUE
	PRINT	TAB
	ICALL1	MENTION-PUFF
	PRINT	PERIOD
	RTRUE	


	.FUNCT	TURN-DIAL,X
	EQUAL?	PRSI,PRSO \?CCL3
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL3:	INTBL?	PRSI,PICT-LIST,6 >X \?CCL5
	GETP	PRSI,P?DNUM >X
	EQUAL?	X,DPOINTER \?CND6
	ICALL2	CTHE-PRINT,GDIAL
	PRINTI	" already points to "
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CND6:	SET	'DPOINTER,X
	ICALL1	CLICK-DIAL
	RTRUE	
?CCL5:	EQUAL?	PRSI,INTNUM \?CND1
	LESS?	P-NUMBER,1 \?CCL11
	ICALL1	HOW-TO-CLICK
	RTRUE	
?CCL11:	GRTR?	P-NUMBER,6 \?CND9
	PRINTI	"There are only six "
	PRINTB	W?PAINTINGS
	PRINT	SON
	ICALL2	THE-PRINT,GURDY
	PRINT	PERIOD
	RTRUE	
?CND9:	SUB	P-NUMBER,1 >DPOINTER
	ICALL1	CLICK-DIAL
	RTRUE	
?CND1:	ICALL2	CTHE-PRINT,GDIAL
	PRINT	SON
	ICALL2	THE-PRINT,GURDY
	PRINT	STR?800
	PRINT	PERIOD
	RTRUE	


	.FUNCT	HOW-TO-CLICK
	ICALL1	PCLEAR
	ICALL1	NYMPH-APPEARS
	PRINTI	"You must specify one of the six paintings; for example, TURN THE DIAL TO THE PAINTING OF THE EAR or POINT ARROW AT MOUTH"
	PRINT	STR?515
	RTRUE	


	.FUNCT	FHILLS-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL5
	ICALL1	CTHE-PRINT
	PRINTR	" are discouragingly steep and rugged."
?CCL5:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL7
	ICALL2	DO-WALK,P?UP
	RTRUE	
?CCL7:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \FALSE
	ICALL1	NOT-IN
	RTRUE	


	.FUNCT	WHARF-F,ON,X
	EQUAL?	HERE,ON-WHARF \?CND1
	INC	'ON
?CND1:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL5
	ZERO?	ON /?CND6
	ICALL1	ALREADY-ON
	RTRUE	
?CND6:	ICALL2	DO-WALK,P?EAST
	RTRUE	
?CCL5:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL9
	ZERO?	ON /?CND10
	ICALL2	DO-WALK,P?WEST
	RTRUE	
?CND10:	ICALL1	NOT-ON
	RTRUE	
?CCL9:	ZERO?	ON /?CCL13
	EQUAL?	PRSA,V?SMELL \?CND14
	PRINT	STR?686
	CRLF	
	RTRUE	
?CND14:	CALL1	HERE-F
	RSTACK	
?CCL13:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL17
	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL17:	INTBL?	PRSA,SEEVERBS,NSVERBS >X \FALSE
	ICALL1	CANT-SEE-MUCH
	RTRUE	


	.FUNCT	FBEDS-F,STR,X
	ZERO?	FSCRIPT \?CCL3
	SET	'STR,STR?806
	INTBL?	PRSA,SEEVERBS,NSVERBS >X \?CND4
	SET	'STR,STR?807
?CND4:	ICALL2	START-FROON,STR
	RTRUE	
?CCL3:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL7
	PRINTR	"The flowers deftly shift themselves away from your touch."
?CCL7:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL11
	PRINTR	"They are exceptionally beautiful."
?CCL11:	EQUAL?	PRSA,V?SMELL \FALSE
	PRINTR	"So sweet and delicate!"


	.FUNCT	START-FROON,STR
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	ICALL2	QUEUE,I-FROON
	MOVE	LADY,IN-FROON
	ICALL2	SEE-CHARACTER,LADY
	PUTP	IN-FROON,P?HEAR,LADY
	PRINTI	"One of the flowers "
	PRINT	STR
	PRINTI	" you!"
	CRLF	
	PRINT	TAB
	PRINTR	"You leap back in alarm as a tiny figure emerges from the flower beds. It's a woman, garbed in bright clothes, and standing less than two feet high."


	.FUNCT	COVE-F,CONTEXT,X
	ZERO?	CONTEXT \FALSE
	ZERO?	NOW-PRSI? /?CCL5
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	VANISH
	ICALL2	ITALICIZE,STR?808
	PRINTI	"! "
	ICALL1	CTHE-PRINT
	FSET?	PRSO,BUOYANT \?CND8
	PRINTR	" hits the water and floats out of sight."
?CND8:	PRINTR	" disappears beneath the water."
?CCL5:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE,V?SEARCH \?CCL11
	CALL1	SEE-ANYTHING-IN?
	ZERO?	STACK /?CCL14
	PRINT	YOU-SEE
	ICALL1	CONTENTS
	SET	'P-IT-OBJECT,PRSO
	PRINTI	" floating "
	JUMP	?CND12
?CCL14:	PRINTI	"Sunlight sparkles "
?CND12:	PRINTI	"on the surface of "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL11:	EQUAL?	PRSA,V?LOOK-UNDER,V?LOOK-BEHIND \?CCL16
	PRINT	STR?760
	PRINTR	"in the sparkling water."
?CCL16:	EQUAL?	PRSA,V?LEAP /?CTR17
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL18
?CTR17:	ICALL2	DO-WALK,P?DOWN
	RTRUE	
?CCL18:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL22
	ICALL1	NOT-IN
	RTRUE	
?CCL22:	EQUAL?	PRSA,V?LISTEN \?CCL24
	PRINT	CYOU
	PRINT	STR?687
	PRINT	PERIOD
	RTRUE	
?CCL24:	EQUAL?	PRSA,V?EAT \?CCL26
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL26:	EQUAL?	PRSA,V?DRINK,V?TASTE,V?DRINK-FROM /?CTR27
	EQUAL?	PRSA,V?KISS \?CCL28
?CTR27:	PRINTR	"Ugh! Salty."
?CCL28:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL1	WASTE-OF-TIME
	RTRUE	


	.FUNCT	ENTER-POOL
	SET	'P-PRSA-WORD,W?ENTER
	ICALL	PERFORM,V?ENTER,POOL
	RFALSE	


	.FUNCT	EXIT-POOL
	SET	'P-PRSA-WORD,W?EXIT
	ICALL	PERFORM,V?EXIT,POOL
	RFALSE	


	.FUNCT	INTO-POOL,OBJ
	ASSIGNED?	'OBJ /?CND1
	SET	'OBJ,PRSO
?CND1:	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	MOVE	OBJ,POOL
	EQUAL?	OBJ,TRUFFLE /?CTR4
	IN?	TRUFFLE,OBJ \FALSE
?CTR4:	ICALL1	MUNG-TRUFFLE
	RTRUE	


	.FUNCT	MUNG-TRUFFLE
	FSET?	TRUFFLE,MUNGED /FALSE
	FSET	TRUFFLE,MUNGED
	SET	'TRUFFLE-TIMER,0
	ICALL2	DEQUEUE,I-TRUFFLE
	CALL2	VISIBLE?,TRUFFLE
	ZERO?	STACK /TRUE
	PRINT	TAB
	ICALL2	CTHE-PRINT,TRUFFLE
	PRINTR	"'s color darkens to a rich, mouthwatering brown."


	.FUNCT	POOL-F,CONTEXT,OBJ,X
	ZERO?	CONTEXT /?CCL3
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND4
	SET	'OBJ,PRSI
?CND4:	EQUAL?	CONTEXT,M-BEG \?CCL8
	CALL	CANT-REACH-WHILE-IN?,OBJ,POOL
	RSTACK	
?CCL8:	EQUAL?	CONTEXT,M-CONT \FALSE
	IN?	PLAYER,POOL /FALSE
	ZERO?	OBJ /FALSE
	INTBL?	PRSA,SEEVERBS,NSVERBS >X \?CCL16
	PRINT	CANT
	PRINTI	"see "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" very well"
	JUMP	?CND10
?CCL16:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL2	CANT-REACH,OBJ
?CND10:	PRINTR	" from the edge of the pool."
?CCL3:	ZERO?	NOW-PRSI? /?CCL20
	EQUAL?	PRSA,V?PUT,V?PUT-UNDER \?CCL23
	PRINTI	"You lower "
	ICALL1	O-INTO-I
	ICALL1	INTO-POOL
	RTRUE	
?CCL23:	EQUAL?	PRSA,V?THROW,V?THROW-OVER \?CCL25
	PRINTI	"With a silent splash of light, "
	ICALL1	THE-PRINT
	PRINTI	" tumbles into the pool."
	CRLF	
	ICALL1	INTO-POOL
	RTRUE	
?CCL25:	EQUAL?	PRSA,V?FILL-FROM \FALSE
	EQUAL?	PRSO,GOBLET,VIAL \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" seems unable to contain the golden radiance."
?CCL20:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH,V?CLOSE \?CCL30
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL30:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X /?CTR31
	EQUAL?	PRSA,V?SWIM,V?CROSS,V?CLIMB-DOWN \?CCL32
?CTR31:	IN?	PLAYER,PRSO /FALSE
	CALL1	DROP-ONION-FIRST?
	ZERO?	STACK \TRUE
	ICALL	NEW-EXIT?,HERE,P?IN,SORRY-EXIT,STR?699
	ICALL	NEW-EXIT?,HERE,P?OUT,1153,EXIT-POOL
	MOVE	PLAYER,PRSO
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	PRINT	CYOU
	FSET?	PRSO,TOUCHED /?CND39
	FSET	PRSO,TOUCHED
	PRINTI	"test the shifting radiance with a timid foot, then "
?CND39:	PRINTI	"slowly wade into the middle of the pool"
	ICALL1	RELOOK
	LOC	TRUFFLE >X
	ZERO?	X /TRUE
	EQUAL?	X,PLAYER /?CCL43
	IN?	X,PLAYER \TRUE
?CCL43:	ICALL1	MUNG-TRUFFLE
	RTRUE	
?CCL32:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X /?CTR46
	EQUAL?	PRSA,V?CLIMB-UP \?CCL47
?CTR46:	IN?	PLAYER,PRSO /?CND50
	ICALL1	NOT-IN
	RTRUE	
?CND50:	ICALL1	SETUP-POND-EXITS
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	LOC	PRSO
	MOVE	PLAYER,STACK
	PRINTI	"You slowly wade"
	ICALL2	OUT-OF-LOC,PRSO
	ICALL1	RELOOK
	RTRUE	
?CCL47:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH,V?LOOK-UNDER \?CCL53
	CALL1	SEE-ANYTHING-IN?
	ZERO?	STACK /?CCL56
	PRINT	YOU-SEE
	ICALL1	CONTENTS
	SET	'P-IT-OBJECT,PRSO
	PRINTI	" enveloped"
	JUMP	?CND54
?CCL56:	PRINTI	"Nothing can be seen"
?CND54:	PRINTR	" within."
?CCL53:	EQUAL?	PRSA,V?EXAMINE \?CCL58
	PRINTI	"The circular "
	PRINTD	POOL
	PRINTR	" shimmers and ripples like the surface of a pond."
?CCL58:	EQUAL?	PRSA,V?COUNT \?CCL60
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL60:	EQUAL?	PRSA,V?TASTE,V?DRINK,V?DRINK-FROM \?CCL62
	PRINT	STR?809
	RTRUE	
?CCL62:	EQUAL?	PRSA,V?TOUCH,V?KISS \?CCL64
	PRINTR	"You feel a refreshing tingle."
?CCL64:	EQUAL?	PRSA,V?EAT \FALSE
	ICALL1	IMPOSSIBLE
	RTRUE	


	.FUNCT	VIAL-F,X
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?PUT,V?EMPTY-INTO,V?FILL-FROM /?CCL5
	EQUAL?	PRSA,V?POUR-FROM,V?TAKE \FALSE
?CCL5:	ICALL1	VIAL-SEALED
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL9
	ICALL1	CTHE-PRINT
	PRINTR	" is filled with water."
?CCL9:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \?CCL11
	EQUAL?	PRSA,V?READ /?CND12
	PRINTI	"This delicate vial was blown from fine glass of extraordinary clarity. "
?CND12:	PRINTI	"Looking closely, you see the legend """
	ICALL2	FROBOZZ,STR?810
	PRINTR	""" inscribed on the bottom."
?CCL11:	EQUAL?	PRSA,V?HIT,V?MUNG,V?KICK \?CCL15
	ICALL1	PRSO-SHATTER
	PRINT	PERIOD
	RTRUE	
?CCL15:	EQUAL?	PRSA,V?SHAKE \?CCL17
	PRINTR	"Water slooshes around inside."
?CCL17:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH,V?CLOSE /?CTR18
	EQUAL?	PRSA,V?POUR,V?EMPTY,V?REACH-IN /?CTR18
	EQUAL?	PRSA,V?EMPTY-INTO,V?TASTE,V?DRINK /?CTR18
	EQUAL?	PRSA,V?DRINK-FROM \FALSE
?CTR18:	ICALL1	VIAL-SEALED
	RTRUE	


	.FUNCT	VIAL-SEALED
	ICALL2	CTHE-PRINT,VIAL
	PRINTR	" appears to be permanently sealed."


	.FUNCT	PRSO-SHATTER
	ICALL1	VANISH
	ICALL2	ITALICIZE,STR?602
	PRINTI	"! "
	ICALL1	CTHE-PRINT
	PRINTI	" shatters into useless fragments"
	RTRUE	


	.FUNCT	SADDLE-F,CONTEXT,OBJ,L,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-BEG \FALSE
	IN?	SADDLE,DACT \FALSE
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND8
	SET	'OBJ,PRSI
?CND8:	EQUAL?	OBJ,FALSE-VALUE,SADDLE,DACT /FALSE
	CALL	CANT-REACH-WHILE-IN?,OBJ,DACT
	RSTACK	
?CCL3:	ZERO?	NOW-PRSI? /?CCL13
	EQUAL?	PRSA,V?PUT-ON,V?EMPTY-INTO,V?THROW /?CTR15
	EQUAL?	PRSA,V?PUT \?CCL16
?CTR15:	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL16:	EQUAL?	PRSA,V?PUT-UNDER,V?PUT-BEHIND \FALSE
	ICALL1	WASTE-OF-TIME
	RTRUE	
?CCL13:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL21
	LOC	PRSO >L
	ZERO?	L \?CCL24
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL24:	EQUAL?	L,PLAYER /?CTR25
	IN?	L,PLAYER \?CCL26
?CTR25:	ICALL2	YOUD-HAVE-TO,STR?519
	RTRUE	
?CCL26:	EQUAL?	PRSA,V?LIE-DOWN \?CCL30
	ICALL1	CTHE-PRINT
	PRINTR	" isn't big enough."
?CCL30:	IN?	PLAYER,PRSO \?CCL32
	EQUAL?	PRSA,V?STAND-ON \?CND33
	LOC	PRSO
	MOVE	PLAYER,STACK
	PRINTI	"You rise shakily to your feet"
	ICALL1	LOSE-BALANCE
	CRLF	
	ICALL1	V-LOOK
	RTRUE	
?CND33:	PRINT	ALREADY
	PRINTI	"sitting on "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL32:	CALL1	DROP-ONION-FIRST?
	ZERO?	STACK \TRUE
	LOC	PLAYER
	EQUAL?	L,STACK \?CCL38
	EQUAL?	PRSA,V?STAND-ON \?CND39
	PRINTI	"You climb shakily onto "
	ICALL1	THE-PRINT
	ICALL1	LOSE-BALANCE
	RTRUE	
?CND39:	MOVE	PLAYER,PRSO
	PRINTI	"You lower "
	PRINTD	ME
	PRINT	SINTO
	ICALL1	THE-PRINT
	ICALL1	RELOOK
	RTRUE	
?CCL38:	EQUAL?	L,DACT \?CND22
	ICALL1	MOUNT-DACT
	RTRUE	
?CND22:	PRINT	STR?811
	ICALL1	THE-PRINT
	ICALL2	OUT-OF-LOC,L
	PRINT	SFIRST
	RTRUE	
?CCL21:	EQUAL?	PRSA,V?EXIT,V?CLIMB-DOWN,V?LEAVE /?CTR42
	EQUAL?	PRSA,V?LEAP,V?DIVE,V?ESCAPE /?CTR42
	EQUAL?	PRSA,V?EMPTY \?CCL43
	IN?	PLAYER,PRSO \?CCL43
?CTR42:	IN?	PLAYER,PRSO /?CCL51
	PRINTI	"You're not sitting on "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL51:	IN?	SADDLE,DACT \?CND49
	ICALL1	DISMOUNT-DACT
	RTRUE	
?CND49:	LOC	PRSO
	MOVE	PLAYER,STACK
	PRINTI	"You clamber off "
	ICALL1	THE-PRINT
	ICALL1	RELOOK
	RTRUE	
?CCL43:	EQUAL?	PRSA,V?STAND-ON,V?LIE-DOWN \?CCL54
	PRINTR	"Saddles are for sitting."
?CCL54:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \FALSE
	PRINTI	"A small label on it says, """
	ICALL2	FROBOZZ,STR?812
	PRINT	PERQ
	RTRUE	


	.FUNCT	LOSE-BALANCE
	PRINTR	", lose your balance and slide off."


	.FUNCT	SHY-DACT?,X
	ZERO?	DACT-SLEEP \FALSE
	FSET?	DACT,MUNGED \FALSE
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X /?CCL2
	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \FALSE
?CCL2:	PRINTI	"The wounded "
	PRINTD	DACT
	CALL2	PICK-NEXT,SHYNESS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	


	.FUNCT	DACT-F,CONTEXT,HURT,W,X
	SET	'P-IT-OBJECT,DACT
	CALL2	NOUN-USED?,W?BIRD
	ZERO?	STACK /?CCL3
	PRINTI	"Pterodactyls are not birds."
	CRLF	
	RETURN	2
?CCL3:	FSET?	DACT,MUNGED \?CCL7
	INC	'HURT
?CND1:	EQUAL?	CONTEXT,M-OBJDESC \?CCL15
	ICALL2	PRINTCA,DACT
	ZERO?	DACT-SLEEP /?CCL18
	PRINTI	" lies nearby, snoring fitfully"
	JUMP	?CND16
?CCL7:	CALL2	NOUN-USED?,W?WOUND
	ZERO?	STACK \?CCL8
	CALL	ADJ-USED?,W?WOUNDED,W?HURT
	ZERO?	STACK /?CND1
?CCL8:	ICALL2	CTHE-PRINT,DACT
	PRINTI	"'s wound is gone now."
	CRLF	
	RETURN	2
?CCL18:	ZERO?	HURT /?CCL20
	PRINTI	" is hobbling around in slow, painful circles"
	JUMP	?CND16
?CCL20:	PRINTI	" is"
	CALL2	PICK-NEXT,DACT-WAITS
	PRINT	STACK
?CND16:	IN?	ARROW,DACT \?CND21
	FSET?	ARROW,NODESC \?CND21
	PRINTI	". One of its wings is pierced by "
	ICALL2	PRINTA,ARROW
?CND21:	IN?	SADDLE,DACT \?CND25
	ZERO?	HURT /?CCL29
	PRINTI	"; and a "
	JUMP	?CND27
?CCL29:	PRINTI	". A "
?CND27:	PRINTD	SADDLE
	PRINTI	" rests upon its back"
?CND25:	IN?	WHISTLE,DACT \?CND30
	PRINTI	". "
	ICALL2	PRINTCA,WHISTLE
	PRINTI	" hangs on a chain around its skinny neck"
?CND30:	PRINTC	PER
	RTRUE	
?CCL15:	EQUAL?	CONTEXT,M-CONT \?CCL33
	CALL1	SHY-DACT?
	ZERO?	STACK /FALSE
	RTRUE	
?CCL33:	EQUAL?	CONTEXT,M-WINNER \?CCL37
	FSET	DACT,SEEN
	EQUAL?	PRSA,V?WALK,V?FLY,V?BANK /?PRD44
	EQUAL?	PRSA,V?TURN,V?TURN-TO,V?SPOINT-AT \?PRD42
?PRD44:	EQUAL?	PRSO,INTDIR /?CTR39
?PRD42:	EQUAL?	PRSA,V?POINT-AT \?CCL40
	EQUAL?	PRSI,INTDIR \?CCL40
?CTR39:	SET	'P-WALK-DIR,P-DIRECTION
	ICALL1	NEXT-SKY
	RETURN	2
?CCL40:	EQUAL?	PRSA,V?FLY,V?FLY-UP,V?CLIMB-UP \?CCL52
	EQUAL?	PRSO,FALSE-VALUE,ROOMS,SKY \?CCL52
	ICALL2	DO-WALK,P?UP
	RETURN	2
?CCL52:	EQUAL?	PRSA,V?LAND /?CTR57
	EQUAL?	PRSA,V?CLIMB-DOWN \?PRD61
	EQUAL?	PRSO,ROOMS \?PRD61
	EQUAL?	P-PRSA-WORD,W?DESCEND /?CTR57
?PRD61:	EQUAL?	PRSA,V?LAND-ON \?CCL58
	EQUAL?	PRSO,GROUND,FLOOR \?CCL58
?CTR57:	ICALL2	DO-WALK,P?DOWN
	RETURN	2
?CCL58:	EQUAL?	PRSA,V?HELLO \?CND38
	EQUAL?	PRSO,ROOMS,DACT \?CND38
	ICALL1	HELLO-DACT
	RETURN	2
?CND38:	ICALL1	PUZZLED-DACT
	RETURN	2
?CCL37:	ZERO?	CONTEXT \FALSE
	CALL	NOUN-USED?,W?WING,W?WINGS,W?WOUND
	ZERO?	STACK /?CND13
	CALL1	SHY-DACT?
	ZERO?	STACK \TRUE
	ZERO?	NOW-PRSI? /?CCL83
	EQUAL?	PRSA,V?TOUCH-TO /?CTR85
	EQUAL?	PRSA,V?PUT-ON,V?PUT \?CCL86
	EQUAL?	PRSO,SPENSE \?CCL86
?CTR85:	ICALL2	TOUCH-DACT-WITH,PRSO
	RTRUE	
?CCL86:	EQUAL?	PRSA,V?PUT-UNDER,V?PUT-BEHIND \?CCL92
	ICALL1	WASTE-OF-TIME
	RTRUE	
?CCL92:	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL83:	EQUAL?	PRSA,V?STOUCH-TO \?CCL95
	ICALL2	TOUCH-DACT-WITH,PRSI
	RTRUE	
?CCL95:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL97
	IN?	ARROW,DACT \?CND98
	SET	'P-IT-OBJECT,ARROW
	ICALL2	PRINTCA,ARROW
	PRINTI	" has pierced one of "
	ICALL1	THE-PRINT
	PRINTR	"'s wings."
?CND98:	ICALL1	CTHE-PRINT
	PRINTI	"'s wing"
	FSET?	PRSO,MUNGED \?CND100
	PRINTR	" has a nasty wound."
?CND100:	PRINTI	"s "
	EQUAL?	HERE,IN-SKY \?CND102
	PRINTR	"beat slowly up and down."
?CND102:	PRINTR	"appear healthy and strong."
?CCL97:	EQUAL?	PRSA,V?TELL \?CCL105
	PRINT	CANT
	PRINTI	"talk to a wing."
	CRLF	
	RETURN	2
?CCL105:	EQUAL?	PRSA,V?REPAIR,V?DRESS \?CCL109
	FSET?	PRSO,MUNGED \?CND110
	ICALL1	HOW?
	RTRUE	
?CND110:	ICALL1	CTHE-PRINT
	PRINTR	"'s wing is fine now."
?CCL109:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL113
	ICALL2	NO-GOOD-SURFACE,PRSO
	RTRUE	
?CCL113:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \?CND13
	ICALL1	NOT-ON
	RTRUE	
?CND13:	ZERO?	NOW-PRSI? /?CCL117
	EQUAL?	PRSA,V?PUT-ON,V?THROW-OVER,V?PUT \?CCL120
	FSET	DACT,SEEN
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINT	CYOU
	PRINTB	P-PRSA-WORD
	PRINTC	SP
	ICALL1	THE-PRINT
	PRINTI	" onto "
	ICALL1	THEI-PRINT
	PRINTI	"'s back"
	ZERO?	DACT-SLEEP \?CCL123
	FSET?	PRSI,MUNGED \?CCL123
	LOC	PLAYER
	MOVE	PRSO,STACK
	PRINTR	", but the wounded creature shakes it loose and throws it to your feet."
?CCL123:	EQUAL?	PRSO,SADDLE /?CND121
	PRINTI	", but "
	FSET?	PRSO,PLURAL \?CCL129
	PRINTI	"they slide"
	JUMP	?CND127
?CCL129:	PRINTI	"it slides"
?CND127:	PRINTI	" off and "
	ICALL1	FALLS
	RTRUE	
?CND121:	MOVE	PRSO,PRSI
	PRINTR	", where it settles comfortably."
?CCL120:	CALL1	SHY-DACT?
	ZERO?	STACK \TRUE
	EQUAL?	PRSA,V?TOUCH-TO \?CCL133
	EQUAL?	PRSO,SPENSE \?CCL133
	PRINTC	91
	ICALL1	THEI-PRINT
	PRINTI	"'s wing"
	PRINT	BRACKET
	ICALL2	TOUCH-DACT-WITH,PRSO
	RTRUE	
?CCL133:	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL117:	EQUAL?	PRSA,V?TELL \?CCL138
	ZERO?	DACT-SLEEP /FALSE
	PRINTI	"The snoring "
	PRINTD	DACT
	PRINTI	" doesn't respond."
	CRLF	
	RETURN	2
?CCL138:	EQUAL?	PRSA,V?HELLO,V?WAVE-AT \?CCL144
	ICALL1	HELLO-DACT
	RTRUE	
?CCL144:	EQUAL?	PRSA,V?ASK-ABOUT,V?ASK-FOR,V?TELL-ABOUT \?CCL146
	ICALL1	PUZZLED-DACT
	RTRUE	
?CCL146:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL148
	ICALL1	CTHE-PRINT
	PRINTI	" appears to be "
	FSET?	PRSO,SLEEPING \?CCL151
	PRINTB	W?SLEEPING
	JUMP	?CND149
?CCL151:	FSET?	PRSO,MUNGED \?CCL153
	PRINTB	W?WOUNDED
	JUMP	?CND149
?CCL153:	PRINTI	"watching you"
?CND149:	IN?	WHISTLE,DACT \?CND154
	REMOVE	WHISTLE
	INC	'W
	PRINTI	". There's "
	ICALL2	PRINTA,WHISTLE
	PRINTI	" hung around his neck"
?CND154:	CALL1	SEE-ANYTHING-IN?
	ZERO?	STACK /?CND156
	PRINTI	". On his back you see "
	ICALL1	CONTENTS
?CND156:	PRINT	PERIOD
	ZERO?	W /?CND158
	MOVE	WHISTLE,DACT
?CND158:	SET	'P-IT-OBJECT,DACT
	RTRUE	
?CCL148:	EQUAL?	PRSA,V?RESCUE \?CCL161
	FSET?	PRSO,MUNGED \FALSE
	PRINTR	"Medical aid might help."
?CCL161:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \?CCL165
	ICALL1	DISMOUNT-DACT
	RTRUE	
?CCL165:	EQUAL?	PRSA,V?ALARM \?CCL167
	ZERO?	DACT-SLEEP \?CND168
	ICALL1	CTHE-PRINT
	PRINTI	" isn't asleep"
	PRINT	AT-MOMENT
	RTRUE	
?CND168:	ICALL1	WAKE-DACT
	RTRUE	
?CCL167:	CALL1	SHY-DACT?
	ZERO?	STACK \TRUE
	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL173
	ICALL1	MOUNT-DACT
	RTRUE	
?CCL173:	EQUAL?	PRSA,V?STOUCH-TO \?CCL175
	EQUAL?	PRSI,SPENSE \?CCL175
	PRINTC	91
	ICALL1	THE-PRINT
	PRINTI	"'s wing"
	PRINT	BRACKET
	ICALL2	TOUCH-DACT-WITH,PRSI
	RTRUE	
?CCL175:	EQUAL?	PRSA,V?TOUCH \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" caws appreciatively."


	.FUNCT	MOUNT-DACT
	FSET	DACT,SEEN
	IN?	PLAYER,SADDLE \?CCL3
	IN?	SADDLE,DACT \?CCL3
	PRINT	ALREADY
	PRINTI	"riding "
	ICALL2	THE-PRINT,DACT
	PRINT	PERIOD
	RTRUE	
?CCL3:	CALL1	DROP-ONION-FIRST?
	ZERO?	STACK \TRUE
	IN?	SADDLE,DACT /?CND1
	ZERO?	DACT-SLEEP \?CCL11
	ICALL2	CTHE-PRINT,DACT
	PRINTI	" does its best to oblige"
	JUMP	?CND9
?CCL11:	PRINTI	"The sleeping "
	PRINTD	DACT
	PRINTI	" does nothing to hinder you"
?CND9:	PRINTR	", but you keep sliding off its skinny back."
?CND1:	FSET	DACT,NODESC
	MOVE	PLAYER,SADDLE
	PRINTI	"You climb up onto "
	ICALL2	THE-PRINT,DACT
	PRINTI	"'s back, and settle into "
	ICALL2	THE-PRINT,SADDLE
	ICALL1	RELOOK
	RTRUE	


	.FUNCT	DISMOUNT-DACT
	IN?	PLAYER,SADDLE \?CTR2
	IN?	SADDLE,DACT /?CCL3
?CTR2:	ICALL2	NOT-ON,DACT
	RTRUE	
?CCL3:	IN?	DACT,IN-SKY \?CND1
	PRINTI	"You slide confidently"
	ICALL2	OUT-OF-LOC,SADDLE
	PRINTI	", and plummet hundreds of bloits to a senseless death"
	ICALL1	JIGS-UP
	RTRUE	
?CND1:	FCLEAR	DACT,NODESC
	LOC	DACT
	MOVE	PLAYER,STACK
	PRINTI	"You clamber"
	ICALL2	OUT-OF-LOC,SADDLE
	PRINTI	", and slip off "
	ICALL2	THE-PRINT,DACT
	PRINTI	"'s back"
	ICALL1	RELOOK
	RTRUE	


	.FUNCT	TOUCH-DACT-WITH,OBJ
	IN?	OBJ,PLAYER /?CCL3
	ICALL	YOUD-HAVE-TO,STR?680,OBJ
	RTRUE	
?CCL3:	EQUAL?	OBJ,SPENSE /?CND1
	ICALL2	CTHE-PRINT,DACT
	PRINTI	"'s "
	FSET?	DACT,MUNGED \?CND5
	PRINTI	"wounded "
?CND5:	PRINTR	"wing is unaffected."
?CND1:	PRINTI	"You gently press "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" against the wounded wing"
	PRINT	PTAB
	ICALL2	CTHE-PRINT,DACT
	PRINTI	"'s sleep seems to deepen, and the tension in its limbs relaxes"
	IN?	ARROW,DACT \?CND7
	PRINTR	" a bit. But its flesh remains torn by the piercing arrow."
?CND7:	ICALL2	VANISH,OBJ
	FCLEAR	DACT,MUNGED
	PRINTR	". You watch in astonishment as the weed begins to flow and congeal, blending itself into the torn flesh until no trace of the wound remains."


	.FUNCT	HELLO-DACT
	CALL1	DACT-SLEEPING?
	ZERO?	STACK \TRUE
	ICALL2	CTHE-PRINT,DACT
	PRINTR	" eyes you silently."


	.FUNCT	PUZZLED-DACT
	CALL1	DACT-SLEEPING?
	ZERO?	STACK \TRUE
	ICALL2	CTHE-PRINT,DACT
	PRINT	STR?624
	PRINT	PERIOD
	RTRUE	


	.FUNCT	DACT-SLEEPING?
	FSET	DACT,SEEN
	ZERO?	DACT-SLEEP /FALSE
	ICALL2	CTHE-PRINT,DACT
	PRINTR	" responds with a fitful snore."


	.FUNCT	ARROW-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL5
	PRINTI	"A crude design. Looks like "
	PRINTB	W?SOMETHING
	PRINTR	" you'd find in a museum."
?CCL5:	EQUAL?	PRSA,V?FIRE-AT \FALSE
	PRINT	DONT
	PRINTR	"have a bow."


	.FUNCT	BAD-ARROW-F,X
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?TOUCH-TO \FALSE
	ICALL2	TOUCH-BAD-ARROW,PRSO
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL7
	ICALL1	CTHE-PRINT
	PRINTI	" is piercing one of "
	ICALL2	THE-PRINT,DACT
	PRINTR	"'s wings."
?CCL7:	EQUAL?	PRSA,V?TAKE,V?PULL \?CCL9
	EQUAL?	PRSI,FALSE-VALUE,HANDS /?CCL12
	ICALL1	TWIST-ARROW
	RTRUE	
?CCL12:	CALL1	ITAKE
	ZERO?	STACK /TRUE
	PUTP	PRSO,P?ACTION,ARROW-F
	ICALL1	TOUCH-BAD-ARROW
	PRINTI	"  Gritting your teeth, you grasp the shaft firmly, close your eyes and give it a quick, determined yank"
	PRINT	PTAB
	ICALL2	ITALICIZE,STR?736
	PRINTI	". "
	ICALL1	CTHE-PRINT
	PRINTR	" pulls free, and dark blood trickles from the wound."
?CCL9:	EQUAL?	PRSA,V?TOUCH,V?SQUEEZE \?CCL15
	ICALL1	TOUCH-BAD-ARROW
	RTRUE	
?CCL15:	EQUAL?	PRSA,V?HIT,V?PUSH,V?KICK \?CCL17
	ICALL1	YOUR-OBJ
	PRINTI	" strikes "
	ICALL1	THE-PRINT
	PRINTI	" edgewise, driving it"
	ICALL1	DRIVE-DEEPER
	RTRUE	
?CCL17:	EQUAL?	PRSA,V?TURN,V?LOOSEN,V?MOVE /?CTR18
	EQUAL?	PRSA,V?LOWER,V?RAISE,V?SPIN \FALSE
?CTR18:	EQUAL?	PRSI,FALSE-VALUE,HANDS \?CND22
	ICALL1	TOUCH-BAD-ARROW
	RTRUE	
?CND22:	ICALL1	TWIST-ARROW
	RTRUE	


	.FUNCT	TWIST-ARROW
	PRINTI	"You fumble uncertainly with "
	ICALL1	THEI-PRINT
	PRINTI	", driving "
	ICALL1	THE-PRINT
	ICALL1	DRIVE-DEEPER
	RTRUE	


	.FUNCT	DRIVE-DEEPER
	PRINTI	" deeper into "
	ICALL2	THE-PRINT,DACT
	PRINTI	"'s wing"
	PRINT	PTAB
	PRINTR	"The luckless creature moans softly in its sleep."


	.FUNCT	TOUCH-BAD-ARROW,OBJ
	PRINTI	"You gently touch the end of "
	ICALL2	THE-PRINT,ARROW
	EQUAL?	OBJ,FALSE-VALUE,HANDS,ME \?CCL3
	PRINTI	", probing with your fingers"
	JUMP	?CND1
?CCL3:	PRINT	WITH
	ICALL2	THE-PRINT,OBJ
?CND1:	PRINTR	". It barely gives at all."


	.FUNCT	WEEDS-F,X
	ZERO?	NOW-PRSI? /?CCL3
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	MOVE	PRSO,PRSI
	ICALL1	CTHE-PRINT
	PRINTI	" fall"
	FSET?	PRSO,PLURAL /?CND6
	PRINTC	115
?CND6:	PRINTR	" into the weeds."
?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH,V?LOOK-UNDER \?CCL9
	PRINTI	"Aside from the "
	PRINTB	W?BILLBOARD
	PRINT	LYOU-SEE
	ICALL1	CONTENTS
	SET	'P-IT-OBJECT,PRSO
	PRINTR	" among the weeds."
?CCL9:	EQUAL?	PRSA,V?EXAMINE \?CCL11
	PRINTR	"The weeds remind you of your garden back home."
?CCL11:	EQUAL?	PRSA,V?TAKE,V?PICK,V?UPROOT /?CTR12
	EQUAL?	PRSA,V?LOOSEN,V?PULL \FALSE
?CTR12:	SET	'X,SPENSE
	EQUAL?	PRSO,WEEDS2 \?CND16
	SET	'X,SPENSE2
?CND16:	CALL2	PICK-WEED?,X
	ZERO?	STACK \TRUE
	PRINTR	"None of the other weeds catches your eye."


	.FUNCT	GENERIC-WEED-F,TBL,LEN
	ASSIGNED?	'LEN /?CND1
	GET	TBL,0 >LEN
?CND1:	RETURN	SPENSE


	.FUNCT	SPENSE-F,X,MAX
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?TAKE,V?PICK,V?UPROOT /?PRD7
	EQUAL?	PRSA,V?PULL,V?LOOSEN \?CCL5
?PRD7:	CALL1	PICK-WEED?
	ZERO?	STACK \TRUE
?CCL5:	EQUAL?	PRSA,V?TASTE \?CCL11
	PRINTI	"A little taste finds "
	ICALL1	THE-PRINT
	PRINT	STR?813
	RTRUE	
?CCL11:	EQUAL?	PRSA,V?EAT \?CCL13
	ICALL1	VANISH
	PRINTI	"You cram "
	ICALL1	THE-PRINT
	PRINT	SINTO
	PRINTD	MOUTH
	PRINTI	" and swallow it whole, enjoying its sweet, wholesome taste."
	CRLF	
	GET	STATS,ENDURANCE >X
	GET	MAXSTATS,ENDURANCE >MAX
	LESS?	X,MAX \?CND14
	SUB	MAX,X
	ICALL2	UPDATE-STAT,STACK
?CND14:	GET	STATS,STRENGTH >X
	GET	MAXSTATS,STRENGTH >MAX
	LESS?	X,MAX \TRUE
	SUB	MAX,X
	ICALL	UPDATE-STAT,STACK,STRENGTH
	RTRUE	
?CCL13:	EQUAL?	PRSA,V?DRINK,V?DRINK-FROM \?CCL19
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?SMELL \?CCL21
	ICALL1	CTHE-PRINT
	PRINTI	"'s scent is"
	PRINT	STR?813
	RTRUE	
?CCL21:	EQUAL?	PRSA,V?EXAMINE,V?WHAT \?CCL23
	ICALL1	REFER-TO-PACKAGE
	RETURN	2
?CCL23:	EQUAL?	PRSA,V?PLANT \FALSE
	ICALL1	DO-PLANT
	RTRUE	


	.FUNCT	DO-PLANT
	FSET?	PRSO,TOUCHED \?CND1
	PRINTR	"You left your trowel at home."
?CND1:	PRINT	ALREADY
	PRINTR	"planted."


	.FUNCT	PICK-WEED?,OBJ
	ASSIGNED?	'OBJ /?CND1
	SET	'OBJ,PRSO
?CND1:	FSET?	OBJ,TOUCHED /FALSE
	EQUAL?	PRSI,FALSE-VALUE,HANDS /?CND3
	ICALL2	PRSI-FUMBLE,WEEDS2
	RTRUE	
?CND3:	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	SET	'P-IT-OBJECT,OBJ
	MOVE	OBJ,PLAYER
	FCLEAR	OBJ,NODESC
	FSET	OBJ,TOUCHED
	PRINTI	"With a modest tug, "
	ICALL2	PRINTA,OBJ
	PRINTI	" pops out of "
	ICALL2	THE-PRINT,GROUND
	PRINT	PERIOD
	RTRUE	


	.FUNCT	PRSI-FUMBLE,OBJ
	PRINTI	"You poke around with "
	ICALL1	THEI-PRINT
	PRINTI	", noting little effect on "
	ICALL2	THE-PRINT,OBJ
	PRINT	PERIOD
	RTRUE	


	.FUNCT	GENERIC-SALT-F,TBL,LEN
	RETURN	CUBE


	.FUNCT	BRINE-F,CONTEXT,S,X
	ZERO?	CONTEXT /?CND1
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	PRINTI	"A white "
	PRINTD	BRINE
	PRINTI	" is drying in the sun"
	CALL2	SEE-ANYTHING-IN?,BRINE
	ZERO?	STACK /?CND5
	PRINT	STR?773
	ICALL2	CONTENTS,BRINE
	SET	'P-IT-OBJECT,BRINE
?CND5:	PRINTC	PER
	RTRUE	
?CND1:	IN?	CUBE,BRINE \?CND7
	FSET?	CUBE,NODESC \?CND7
	INC	'S
?CND7:	ZERO?	NOW-PRSI? /?CCL13
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	EQUAL?	PRSO,CUBE \?CND16
	FSET	PRSO,NODESC
?CND16:	MOVE	PRSO,PRSI
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINTI	"You deposit "
	ICALL1	THE-PRINT
	PRINT	SON
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL13:	EQUAL?	PRSA,V?EXAMINE \?CCL19
	PRINTI	"A shallow pool of seawater must have evaporated here"
	CALL1	SEE-ANYTHING-IN?
	ZERO?	STACK /?CND20
	PRINTI	". Upon "
	ICALL1	THE-PRINT
	PRINTI	" you see "
	ICALL1	CONTENTS
	SET	'P-IT-OBJECT,PRSO
?CND20:	PRINT	PERIOD
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?TAKE,V?PICK,V?UPROOT /?CTR22
	EQUAL?	PRSA,V?LOOSEN,V?PULL \?CCL23
?CTR22:	ZERO?	S /?CND26
	ICALL1	SNARF-CUBE
	RTRUE	
?CND26:	PRINTR	"You've taken the only loose bit already."
?CCL23:	EQUAL?	PRSA,V?TOUCH,V?KICK,V?HIT \?CCL29
	ICALL1	CTHE-PRINT
	PRINTI	" is hard as a rock"
	ZERO?	S /?CND30
	PRINTI	". One bit seems a bit loose, though"
?CND30:	PRINT	PERIOD
	RTRUE	
?CCL29:	EQUAL?	PRSA,V?TASTE \?CCL33
	PRINTR	"Ugh! Convincingly salty."
?CCL33:	EQUAL?	PRSA,V?SMELL \?CCL35
	PRINT	STR?705
	PRINT	PERIOD
	RTRUE	
?CCL35:	EQUAL?	PRSA,V?DRINK,V?DRINK-FROM \?CCL37
	PRINTR	"Sorry. All evaporated."
?CCL37:	EQUAL?	PRSA,V?EAT \FALSE
	ICALL2	YOUD-HAVE-TO,STR?814
	RTRUE	


	.FUNCT	SNARF-CUBE
	EQUAL?	PRSI,FALSE-VALUE,HANDS /?CND1
	ICALL2	PRSI-FUMBLE,BRINE
	RTRUE	
?CND1:	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	SET	'P-IT-OBJECT,CUBE
	MOVE	CUBE,PLAYER
	FCLEAR	CUBE,NODESC
	FSET	CUBE,TOUCHED
	PRINTI	"You scrape a loose "
	PRINTD	CUBE
	ICALL2	OUT-OF-LOC,BRINE
	PRINT	PERIOD
	RTRUE	


	.FUNCT	CUBE-F
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?HIT,V?MUNG,V?CUT \FALSE
	EQUAL?	PRSO,SLUG \FALSE
	ICALL2	TOUCH-SLUG-WITH,CUBE
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL9
	PRINTR	"It's no bigger than a die."
?CCL9:	EQUAL?	PRSA,V?EAT \?CCL11
	ICALL1	VANISH
	PRINTI	"You pop "
	ICALL1	THE-PRINT
	PRINTI	" into your mouth, and manage to swallow it without gagging."
	CRLF	
	ICALL2	UPDATE-STAT,-5
	RTRUE	
?CCL11:	EQUAL?	PRSA,V?TASTE \?CCL13
	PRINTI	"A quick taste confirms "
	ICALL1	THE-PRINT
	PRINTR	"'s identity."
?CCL13:	EQUAL?	PRSA,V?DRINK,V?DRINK-FROM \?CCL15
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL15:	EQUAL?	PRSA,V?SMELL \FALSE
	PRINT	STR?705
	PRINT	PERIOD
	RTRUE	


	.FUNCT	ROSES-F,CONTEXT,R,X
	IN?	ROSE,ROSES \?CND1
	FSET?	ROSE,NODESC \?CND1
	INC	'R
?CND1:	EQUAL?	CONTEXT,M-OBJDESC \?CCL7
	PRINTI	"A lone "
	PRINTD	ROSES
	PRINTI	" has somehow managed to survive the stormy climate."
	RTRUE	
?CCL7:	ZERO?	CONTEXT \FALSE
	ZERO?	NOW-PRSI? /?CCL11
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL11:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH,V?LOOK-UNDER \?CCL15
	PRINT	YOU-SEE
	ICALL1	CONTENTS
	SET	'P-IT-OBJECT,PRSO
	PRINTI	" among "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL15:	EQUAL?	PRSA,V?EXAMINE \?CCL17
	PRINTI	"Aside from a few thorns, "
	ZERO?	R /?CND18
	PRINTR	"a solitary rose is the bush's only adornment."
?CND18:	ICALL1	THE-PRINT
	PRINTR	" is barren."
?CCL17:	EQUAL?	PRSA,V?TAKE,V?PICK,V?UPROOT /?CTR20
	EQUAL?	PRSA,V?LOOSEN,V?PULL,V?RAISE \FALSE
?CTR20:	ZERO?	R /?CND24
	ICALL1	PICK-ROSE
	RTRUE	
?CND24:	ICALL1	CTHE-PRINT
	PRINTR	" is barren of flowers."


	.FUNCT	GENERIC-ROSE-F,TBL,LEN
	ASSIGNED?	'LEN /?CND1
	GET	TBL,0 >LEN
?CND1:	RETURN	ROSE


	.FUNCT	ROSE-F,NODROOP,WRD
	FSET?	HERE,INDOORS /?CCL2
	EQUAL?	HERE,IN-GARDEN,APLANE,IN-FROON /?CCL2
	EQUAL?	HERE,IN-SPLENDOR \?CND1
?CCL2:	INC	'NODROOP
?CND1:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL10
	ICALL1	CTHE-PRINT
	PRINTI	"'s delicate stem "
	ZERO?	NODROOP /?CCL13
	PRINTR	"is standing straight and tall."
?CCL13:	CALL1	PLAIN-ROOM?
	ZERO?	STACK /?CND11
	PRINTR	"blows wildly back and forth in the stormy winds."
?CND11:	FSET	BREEZE,SEEN
	PRINTI	"is tilted to the "
	GET	DIR-NAMES,WINDIR
	PRINTB	STACK
	PRINT	PERIOD
	FSET?	PRSO,IDENTIFIED /TRUE
	FSET	PRSO,IDENTIFIED
	PRINT	TAB
	ICALL1	REFER-TO-PACKAGE
	RTRUE	
?CCL10:	EQUAL?	PRSA,V?TAKE,V?PICK,V?UPROOT /?PRD20
	EQUAL?	PRSA,V?PULL,V?LOOSEN,V?RAISE \?CCL18
?PRD20:	FSET?	PRSO,TOUCHED /?CCL18
	ICALL1	PICK-ROSE
	RTRUE	
?CCL18:	EQUAL?	PRSA,V?TURN-TO,V?POINT-AT,V?PUSH-TO \?CCL24
	IN?	PRSO,PLAYER /?CCL27
	ICALL2	YOUD-HAVE-TO,STR?680
	RTRUE	
?CCL27:	EQUAL?	PRSI,LEFT \?CCL29
	DLESS?	'WINDIR,I-NORTH \?CND30
	SET	'WINDIR,I-NW
?CND30:	SET	'WRD,W?LEFT
	JUMP	?CND25
?CCL29:	EQUAL?	PRSI,RIGHT \?CCL33
	IGRTR?	'WINDIR,I-NW \?CND34
	SET	'WINDIR,I-NORTH
?CND34:	SET	'WRD,W?RIGHT
	JUMP	?CND25
?CCL33:	EQUAL?	PRSI,INTDIR \?CCL38
	SUB	P?NW,1
	GRTR?	P-DIRECTION,STACK \?CCL41
	ADD	P?NORTH,1
	LESS?	P-DIRECTION,STACK \?CCL41
	SUB	P-DIRECTION,P?NORTH
	SUB	0,STACK >WINDIR
	GET	DIR-NAMES,WINDIR >WRD
?CND25:	PRINT	CYOU
	PRINTB	P-PRSA-WORD
	PRINTC	SP
	ICALL1	THE-PRINT
	PRINTI	"'s stem to the "
	PRINTB	WRD
	ZERO?	NODROOP /?CCL51
	PRINTR	", but it springs upright again."
?CCL41:	EQUAL?	P-DIRECTION,P?UP,P?DOWN \?CND25
	ICALL1	CTHE-PRINT
	CALL1	PLAIN-ROOM?
	ZERO?	STACK /?CCL47
	PRINTR	" blows back and forth."
?CCL47:	ZERO?	NODROOP /?CND45
	PRINTR	" springs up again."
?CND45:	PRINTI	" droops back to the "
	GET	DIR-NAMES,WINDIR
	PRINTB	STACK
	PRINT	PERIOD
	RTRUE	
?CCL38:	PRINT	CANT
	PRINTB	P-PRSA-WORD
	PRINTC	SP
	ICALL1	THE-PRINT
	PRINTR	" that way."
?CCL51:	CALL1	PLAIN-ROOM?
	ZERO?	STACK /?CND49
	PRINTR	", but the wind blows it wildly around."
?CND49:	PRINT	PERIOD
	ICALL1	NEW-WINDIR?
	RTRUE	
?CCL24:	EQUAL?	PRSA,V?SPIN,V?ADJUST,V?WIND /?CTR53
	EQUAL?	PRSA,V?TOUCH \?CCL54
?CTR53:	ICALL1	PRSO-FIDDLE
	CALL1	NEXT-WINDIR?
	ICALL2	NEW-WINDIR?,STACK
	RTRUE	
?CCL54:	EQUAL?	PRSA,V?EAT,V?TASTE \?CCL58
	PRINTI	"You hurt your mouth on a thorn. Ouch!"
	CRLF	
	ICALL2	UPDATE-STAT,-2
	RTRUE	
?CCL58:	EQUAL?	PRSA,V?DRINK,V?DRINK-FROM \?CCL60
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL60:	EQUAL?	PRSA,V?SMELL \?CCL62
	ICALL1	CTHE-PRINT
	PRINTR	"'s scent is unusually delicate."
?CCL62:	EQUAL?	PRSA,V?WHAT \FALSE
	ICALL1	REFER-TO-PACKAGE
	RETURN	2


	.FUNCT	PRSO-FIDDLE
	PRINTI	"You fiddle aimlessly with "
	ICALL1	THE-PRINT
	PRINTR	" for a while."


	.FUNCT	PICK-ROSE
	EQUAL?	PRSI,FALSE-VALUE,HANDS /?CND1
	ICALL2	PRSI-FUMBLE,BUSH
	RTRUE	
?CND1:	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	SET	'P-IT-OBJECT,ROSE
	MOVE	ROSE,PLAYER
	FCLEAR	ROSE,NODESC
	FSET	ROSE,TOUCHED
	PRINTI	"You pluck the flower off "
	ICALL2	THE-PRINT,ROSES
	PRINT	PERIOD
	RTRUE	


	.FUNCT	GUILD-HALL-F,X
	EQUAL?	PRSA,V?WALK-TO,V?ENTER,V?THROUGH /?CTR2
	EQUAL?	PRSA,V?STAND-UNDER \?CCL3
?CTR2:	SET	'X,P?NORTH
	EQUAL?	HERE,IN-ACCARDI \?CND6
	SET	'X,P?EAST
?CND6:	ICALL2	DO-WALK,X
	RTRUE	
?CCL3:	EQUAL?	HERE,IN-ACCARDI \?CCL9
	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL9:	ZERO?	NOW-PRSI? \FALSE
	CALL2	NOUN-USED?,W?GATE
	ZERO?	STACK /?CND11
	EQUAL?	PRSA,V?EXAMINE \?CCL15
	ICALL1	MENTION-REZROV
	RTRUE	
?CCL15:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND11
	ICALL1	IMPOSSIBLE
	RTRUE	
?CND11:	EQUAL?	PRSA,V?EXAMINE \?CCL19
	ICALL1	CTHE-PRINT
	PRINTI	" is as vast and majestic as you always imagined it. "
	ICALL1	MENTION-REZROV
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH,V?LOOK-BEHIND \?CCL21
	PRINTR	"The lobby beyond the open gate looks deserted."
?CCL21:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH \?CCL23
	ICALL2	ITS-ALREADY,STR?518
	RTRUE	
?CCL23:	EQUAL?	PRSA,V?CLOSE \?CCL25
	ICALL1	MENTION-REZROV
	RTRUE	
?CCL25:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \FALSE
	ICALL1	NOT-IN
	RTRUE	


	.FUNCT	MENTION-REZROV
	PRINTR	"A permanent REZROV spell holds the front gate wide open."


	.FUNCT	THRIFF-F
	EQUAL?	PRSA,V?RESCUE \?CCL3
	ICALL1	HOW?
	RTRUE	
?CCL3:	EQUAL?	HERE,IN-THRIFF \FALSE
	CALL1	HERE-F
	RSTACK	


	.FUNCT	NYMPH-F
	ICALL1	PCLEAR
	FSET?	GUILD-HALL,TOUCHED /?CND1
	ICALL1	NONE-TO-BE-SEEN
	RETURN	2
?CND1:	ICALL2	GONE-NOW,NYMPH
	RETURN	2


	.FUNCT	DROP-ONION-FIRST?
	IN?	ONION,PLAYER \FALSE
	PRINTI	"You'll have to put down that "
	PRINTD	ONION
	PRINT	SFIRST
	RTRUE	


	.FUNCT	ONION-F,X,LEN
	ZERO?	NOW-PRSI? /?CCL3
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	PRINTI	"This onion is about twice the diameter of a "
	ICALL2	FROBOZZ,STR?815
	PRINTI	" beachball"
	FSET?	PRSO,MUNGED \?CND8
	PRINTI	", and sports a large gash in its surface"
?CND8:	PRINT	PERIOD
	FSET?	ONION,TOUCHED /TRUE
	PRINT	TAB
	ICALL1	COOK-MENTIONS-ONION
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?TAKE \?CCL13
	ICALL1	PICK-UP-ONION
	RTRUE	
?CCL13:	EQUAL?	PRSA,V?RAISE \?CCL15
	EQUAL?	P-PRSA-WORD,W?RAISE,W?LIFT,W?HOIST /?CND16
	EQUAL?	P-PRSA-WORD,W?TAKE,W?HOLD,W?ELEVATE /?CND16
	EQUAL?	P-PRSA-WORD,W?PULL /?CND16
	GETP	HERE,P?UP
	ZERO?	STACK /?CND16
	ICALL2	ROLL-ONION,P?UP
	RTRUE	
?CND16:	ICALL1	PICK-UP-ONION
	RTRUE	
?CCL15:	EQUAL?	PRSA,V?PUSH-TO \?CCL22
	EQUAL?	PRSI,PRSO \?CCL25
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL25:	EQUAL?	PRSI,INTDIR \?CCL27
	ICALL2	ROLL-ONION,P-DIRECTION
	RTRUE	
?CCL27:	CALL1	WATER?
	ZERO?	STACK /?CCL29
	ICALL1	VANISH
	ICALL2	ITALICIZE,STR?816
	PRINTI	"! "
	ICALL1	CTHE-PRINT
	PRINTI	" disappears in "
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL29:	FSET?	PRSI,VEHICLE /?CND23
	EQUAL?	PRSI,FALSE-VALUE,LEFT,RIGHT /?CCL31
	FSET?	PRSI,PLACE \?CND23
?CCL31:	ICALL1	HOW-TO-MOVE-ONION
	RTRUE	
?CND23:	PRINTI	"You'd have a hard time "
	PRINTB	P-PRSA-WORD
	PRINTI	"ing that "
	PRINTD	ONION
	ICALL2	ON-IN,PRSI
	PRINT	PERIOD
	RTRUE	
?CCL22:	EQUAL?	PRSA,V?LOWER \?CCL35
	EQUAL?	P-PRSA-WORD,W?LOWER,W?HOLD /?CND36
	GETP	HERE,P?DOWN
	ZERO?	STACK /?CND36
	ICALL2	ROLL-ONION,P?DOWN
	RTRUE	
?CND36:	ICALL1	ONION-ROLLS
	RTRUE	
?CCL35:	EQUAL?	PRSA,V?PUSH-UP,V?PUSH-DOWN \?CCL40
	EQUAL?	PRSO,PRSI \?CCL43
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL43:	CALL	GLOBAL-IN?,HERE,PRSI
	ZERO?	STACK /?CND41
	EQUAL?	PRSA,V?PUSH-UP \?CCL46
	GETP	HERE,P?UP
	ZERO?	STACK /?CCL46
	ICALL2	ROLL-ONION,P?UP
	RTRUE	
?CCL46:	EQUAL?	PRSA,V?PUSH-DOWN \?CND41
	GETP	HERE,P?DOWN
	ZERO?	STACK /?CND41
	ICALL2	ROLL-ONION,P?DOWN
	RTRUE	
?CND41:	ICALL2	YOUD-HAVE-TO,STR?817
	RTRUE	
?CCL40:	EQUAL?	PRSA,V?BUY \?CCL53
	FSET?	PRSO,SEEN \?CCL56
	PRINTR	"You already did that."
?CCL56:	CALL2	VISIBLE?,PRSO
	ZERO?	STACK /FALSE
	ICALL	PERFORM,V?GIVE,PRSI,COOK
	RTRUE	
?CCL53:	EQUAL?	PRSA,V?PUSH,V?MOVE,V?ADJUST /?CTR58
	EQUAL?	PRSA,V?SPIN,V?KICK \?CCL59
?CTR58:	ICALL1	ONION-ROLLS
	RTRUE	
?CCL59:	EQUAL?	PRSA,V?SIT,V?STAND-ON,V?LIE-DOWN /?CTR62
	EQUAL?	PRSA,V?CLIMB-UP,V?CLIMB-ON,V?CLIMB-OVER \?CCL63
?CTR62:	PRINTR	"You slide off the smooth, oniony surface."
?CCL63:	EQUAL?	PRSA,V?CUT,V?HIT,V?MUNG /?CTR66
	EQUAL?	PRSA,V?PEEL,V?KICK \FALSE
?CTR66:	EQUAL?	PRSI,FALSE-VALUE,HANDS,FEET \?CCL72
	PRINTR	"Ouch! It's tough as leather."
?CCL72:	EQUAL?	PRSI,SWORD,AXE,DAGGER /?CCL73
	EQUAL?	PRSI,ARROW \?CND70
?CCL73:	GET	NOPEELS,0 >LEN
?PRG76:	GET	NOPEELS,LEN >X
	CALL2	VISIBLE?,X
	ZERO?	STACK /?CND78
	PRINTI	"""Not in front of "
	ICALL2	ITALICIZE,STR?818
	PRINTI	" you don't,"" growls "
	ICALL2	THE-PRINT,X
	PRINT	PERIOD
	RTRUE	
?CND78:	DLESS?	'LEN,1 \?PRG76
	FSET?	PRSO,MUNGED \?CCL84
	ZERO?	ONION-TIMER \?CND85
	ICALL2	QUEUE,I-ONION
?CND85:	ICALL1	CTHEI-PRINT
	PRINTI	" slightly widens the slash in "
	JUMP	?CND82
?CCL84:	FSET	PRSO,MUNGED
	ICALL2	QUEUE,I-ONION
	PRINTI	"Your two-week stint as a short-order cook in Borphee stands you in good stead as you slash "
?CND82:	SET	'ONION-TIMER,4
	ICALL1	THE-PRINT
	PRINTR	"'s surface."
?CND70:	PRINTI	"Thump! "
	ICALL2	YOUR-OBJ,PRSI
	PRINTI	" has little effect on "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	


	.FUNCT	ROLL-ONION,DIR,X,OHERE
	CALL	SPARK?,FALSE-VALUE,ONION
	ZERO?	STACK /?CND1
	PRINT	TAB
?CND1:	EQUAL?	HERE,NE-WALL \?PRD7
	EQUAL?	DIR,P?SE,P?IN \?PRD7
	FSET?	NE-WALL,OPENED /?CTR4
?PRD7:	EQUAL?	HERE,SE-WALL \?CCL5
	EQUAL?	DIR,P?SW,P?IN \?CCL5
	FSET?	SE-WALL,OPENED \?CCL5
?CTR4:	ICALL2	CTHE-PRINT,ONION
	PRINTI	" won't fit through the "
	PRINTB	W?OPENING
	PRINT	PERIOD
	RTRUE	
?CCL5:	EQUAL?	HERE,IN-KITCHEN \?CND3
	EQUAL?	DIR,P?DOWN,P?IN \?CCL17
	PRINT	XTHE
	FSET?	CELLAR-DOOR,MUNGED \?CCL20
	PRINTI	"hole in the wall"
	JUMP	?CND18
?CCL20:	PRINTD	CELLAR-DOOR
?CND18:	PRINTI	" isn't wide enough to fit "
	ICALL2	THE-PRINT,ONION
	FSET?	CELLAR-DOOR,OPENED /?CND21
	PRINTI	". Besides, it's closed"
?CND21:	PRINT	PERIOD
	RTRUE	
?CCL17:	EQUAL?	DIR,P?EAST,P?OUT \?CND3
	FSET?	ONION,SEEN /?CND3
	PRINTI	"As you roll "
	ICALL2	THE-PRINT,ONION
	PRINTI	" towards the exit, "
	ICALL2	THE-PRINT,COOK
	PRINTI	" jumps into your path. """
	FSET?	ONION,TOUCHED /?CCL28
	PRINTI	"This ain't no free soup kitchen"
	PRINT	STR?819
	PRINT	TAB
	ICALL1	COOK-MENTIONS-ONION
	RTRUE	
?CCL28:	FSET?	BOTTLE,IDENTIFIED /?CCL30
	PRINTI	"Leave it alone"
	JUMP	?CND26
?CCL30:	FSET	COOK,SEEN
	PRINTI	"No bottle, no onion"
?CND26:	PRINT	STR?819
	RTRUE	
?CND3:	SET	'OHERE,HERE
	ICALL2	DO-WALK,DIR
	EQUAL?	HERE,OHERE,DEATH /FALSE
	MOVE	ONION,HERE
	SET	'P-IT-OBJECT,ONION
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	CTHE-PRINT,ONION
	PRINTI	" rolls to a stop."
	CRLF	
	RFALSE	


	.FUNCT	ONION-ROLLS
	ICALL2	CTHE-PRINT,ONION
	PRINTI	" rolls freely across the "
	FSET?	HERE,INDOORS \?CCL3
	PRINTD	FLOOR
	JUMP	?CND1
?CCL3:	PRINTD	GROUND
?CND1:	PRINTI	". You could probably push it in any "
	PRINTD	INTDIR
	PRINTR	" you want."


	.FUNCT	PICK-UP-ONION,H,OBJ
	FIRST?	PLAYER >OBJ \?CND1
?PRG3:	FSET?	OBJ,NODESC /?CND5
	FSET?	OBJ,WORN /?CND5
	FSET?	OBJ,TAKEABLE \?CND5
	PRINTI	"You'd have to drop everything to get your arms around that "
	PRINTD	PRSO
	PRINT	PERIOD
	RTRUE	
?CND5:	NEXT?	OBJ >OBJ /?PRG3
?CND1:	PRINT	STR?777
	GET	STATS,STRENGTH
	LESS?	STACK,25 \?CND11
	SET	'H,TRUE-VALUE
	PRINTI	"try to "
?CND11:	PRINTI	"heft "
	ICALL1	THE-PRINT
	PRINTI	". But it's "
	ZERO?	H \?CCL15
	PRINTI	"too awkward for you"
	JUMP	?CND13
?CCL15:	PRINTI	"beyond your strength"
?CND13:	PRINTI	" to carry it"
	PRINT	PTAB
	ICALL2	ITALICIZE,STR?820
	PRINT	PERIOD
	RTRUE	


	.FUNCT	HOW-TO-MOVE-ONION
	ICALL1	NYMPH-APPEARS
	PRINTI	"To move "
	ICALL2	THE-PRINT,ONION
	PRINTI	", just indicate a "
	PRINTD	INTDIR
	PRINTI	"; for example, ROLL THE GIANT ONION TO THE NORTH or PUSH ONION WEST"
	PRINT	STR?515
	RTRUE	


	.FUNCT	MOSS-F,X
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?TOUCH-TO \FALSE
	PRINT	STR?821
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	ICALL1	CTHE-PRINT
	PRINTR	" is sickly gray, glistening with moisture."
?CCL7:	EQUAL?	PRSA,V?EAT,V?TASTE \?CCL9
	PRINT	CANT
	PRINTR	"eat it off the wall."
?CCL9:	EQUAL?	PRSA,V?DRINK,V?DRINK-FROM \?CCL11
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL11:	EQUAL?	PRSA,V?SMELL \?CCL13
	ICALL1	CTHE-PRINT
	PRINTR	" smells like a diet-control capsule."
?CCL13:	EQUAL?	PRSA,V?SQUEEZE \?CCL15
	ZERO?	LIT? \?CCL18
	ICALL1	TOO-DARK
	RETURN	2
?CCL18:	FSET?	PRSO,TOUCHED /?CND16
	FSET	PRSO,TOUCHED
	SET	'THIS-MOSS,PRSO
	INC	'MOSSES
	ICALL2	QUEUE,I-MOSS
?CND16:	PRINT	STR?821
	RTRUE	
?CCL15:	EQUAL?	PRSA,V?TOUCH,V?HIT,V?PUSH /?CTR22
	EQUAL?	PRSA,V?REACH-IN,V?KICK \?CCL23
?CTR22:	EQUAL?	PRSA,V?KICK /?CND26
	EQUAL?	PRSI,FALSE-VALUE,HANDS \?CND26
	ICALL1	CTHE-PRINT
	PRINTR	" feels moist and spongy."
?CND26:	PRINT	STR?821
	RTRUE	
?CCL23:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	PRINTI	"Despite your best efforts, "
	ICALL1	THE-PRINT
	PRINTR	" stays firmly stuck on the wall."


	.FUNCT	UNICORN-F,CONTEXT,X
	ZERO?	CONTEXT \FALSE
	CALL2	NOUN-USED?,W?HORN
	ZERO?	STACK /?CND1
	ZERO?	NOW-PRSI? \?CND1
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL8
	PRINTR	"Her horn is slender, the color of fine ivory, with a deep spiral groove."
?CCL8:	EQUAL?	PRSA,V?KISS \?CND1
	CALL2	SPARK?,FALSE-VALUE
	ZERO?	STACK \TRUE
	ICALL1	CTHE-PRINT
	PRINTI	" backs away"
	FSET?	PRSO,TOUCHED /?CND12
	FSET	PRSO,TOUCHED
	PRINTI	"; but not before you touch her horn with your lips."
	CRLF	
	ICALL	UPDATE-STAT,15,LUCK,TRUE-VALUE
	RTRUE	
?CND12:	PRINT	PERIOD
	RTRUE	
?CND1:	ZERO?	NOW-PRSI? /?CCL16
	EQUAL?	PRSA,V?THROW,V?THROW-OVER \?CCL19
	ICALL2	HARMLESS,PRSI
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?GIVE,V?FEED \?CCL21
	ICALL	PERFORM,V?PUT,PRSO,STALL
	RTRUE	
?CCL21:	EQUAL?	PRSA,V?SHOW \?CCL23
	EQUAL?	PRSO,CHEST \?CCL23
	FSET	PRSI,SEEN
	ICALL1	CTHEI-PRINT
	PRINTR	" pricks up her ears."
?CCL23:	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	FSET	PRSI,SEEN
	MOVE	PRSO,STALL
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL1	CTHEI-PRINT
	PRINTI	" shakes off "
	ICALL1	THE-PRINT
	PRINTR	" and gives you a black look."
?CCL16:	EQUAL?	PRSA,V?RELEASE,V?RESCUE \?CCL28
	EQUAL?	PRSI,FALSE-VALUE,HANDS \?CCL28
	ICALL	PERFORM,V?OPEN,STALL
	RTRUE	
?CCL28:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL32
	PRINTR	"She's just a pony."
?CCL32:	INTBL?	PRSA,TALKVERBS,NTVERBS >X \?CCL34
	ICALL1	CTHE-PRINT
	PRINTI	" is too melancholy to respond."
	CRLF	
	RETURN	2
?CCL34:	EQUAL?	PRSA,V?WHAT,V?WHO \?CCL38
	ICALL1	REFER-TO-PACKAGE
	RETURN	2
?CCL38:	INTBL?	PRSA,HURTVERBS,NHVERBS >X \?CCL42
	ICALL1	HARMLESS
	RTRUE	
?CCL42:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL2	CTHE-PRINT,UNICORN
	PRINTR	" backs shyly away."


	.FUNCT	STALL-F,CONTEXT,OBJ,X
	ZERO?	CONTEXT /?CCL3
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND4
	SET	'OBJ,PRSI
?CND4:	EQUAL?	CONTEXT,M-BEG \?CCL8
	CALL	CANT-REACH-WHILE-IN?,OBJ,STALL
	RSTACK	
?CCL8:	EQUAL?	CONTEXT,M-CONT \FALSE
	IN?	WINNER,STALL /FALSE
	EQUAL?	OBJ,FALSE-VALUE,UNICORN /FALSE
	CALL	GLOBAL-IN?,HERE,OBJ
	ZERO?	STACK \FALSE
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL2	CANT-REACH,OBJ
	PRINTI	" while you're outside "
	ICALL2	THE-PRINT,STALL
	PRINT	PERIOD
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? /?CCL19
	EQUAL?	PRSA,V?PUT,V?THROW,V?PUT-BEHIND /?CCL21
	EQUAL?	PRSA,V?EMPTY-INTO \FALSE
?CCL21:	FSET?	PRSI,OPENED /FALSE
	IN?	PLAYER,PRSI /FALSE
	MOVE	PRSO,PRSI
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINTI	"You drop "
	ICALL1	THE-PRINT
	PRINTI	" over the side of "
	ICALL1	THEI-PRINT
	EQUAL?	PRSO,CHEST \?CND28
	PRINTI	", where it falls with a heavy "
	ICALL2	ITALICIZE,STR?822
	PRINT	PERIOD
	IN?	UNICORN,PRSI \TRUE
	ICALL1	UNICORN-OPENS-CHEST
	RTRUE	
?CND28:	PRINT	PERIOD
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?EXAMINE \?CCL33
	CALL2	NOUN-USED?,W?STALL
	ZERO?	STACK \?CCL36
	PRINTI	"The stall's "
	JUMP	?CND34
?CCL36:	ICALL1	CTHE-PRINT
	PRINTI	"'s sides are tall enough to discourage escape. Its "
?CND34:	PRINTI	"gate is "
	FSET?	PRSO,MUNGED \?CCL39
	PRINTR	"utterly demolished."
?CCL39:	FSET?	PRSO,OPENED \?CND37
	PRINTR	"wide open."
?CND37:	PRINTB	W?CLOSED
	FSET?	PRSO,LOCKED \?CND41
	PRINTI	" and locked"
?CND41:	PRINT	PERIOD
	RTRUE	
?CCL33:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH,V?LOOK-BEHIND \?CCL44
	IN?	PLAYER,PRSO \?CCL47
	ICALL1	ASIDE-FROM
	JUMP	?CND45
?CCL47:	IN?	UNICORN,PRSO \?CCL49
	ICALL2	ASIDE-FROM,UNICORN
	JUMP	?CND45
?CCL49:	PRINT	YOU-SEE
?CND45:	ICALL1	CONTENTS
	SET	'P-IT-OBJECT,PRSO
	PRINT	PERIOD
	RTRUE	
?CCL44:	EQUAL?	PRSA,V?REACH-IN \?CCL51
	IN?	PLAYER,PRSO /?CCL51
	PRINT	CANT
	PRINTR	"reach very far."
?CCL51:	EQUAL?	PRSA,V?CLIMB-ON,V?CLIMB-UP,V?CLIMB-OVER /?CTR54
	EQUAL?	PRSA,V?SIT,V?RIDE,V?STAND-ON /?CTR54
	EQUAL?	PRSA,V?LIE-DOWN \?CCL55
?CTR54:	PRINTI	"The sides of "
	ICALL1	THE-PRINT
	PRINTR	" are too tall."
?CCL55:	EQUAL?	PRSA,V?CLOSE \?CCL60
	FSET?	PRSO,MUNGED \?CCL60
	ICALL2	ITS-MUNGED,W?GATE
	RTRUE	
?CCL60:	EQUAL?	PRSA,V?ENTER,V?THROUGH,V?WALK-TO \?CCL64
	IN?	PLAYER,PRSO \?CCL67
	ICALL1	ALREADY-IN
	RTRUE	
?CCL67:	FSET?	PRSO,OPENED /FALSE
	ICALL1	ITS-CLOSED
	RTRUE	
?CCL64:	EQUAL?	PRSA,V?EXIT,V?LEAVE,V?ESCAPE \?CCL70
	IN?	PLAYER,PRSO /?CCL73
	ICALL1	NOT-IN
	RTRUE	
?CCL73:	FSET?	PRSO,OPENED /FALSE
	ICALL1	ITS-CLOSED
	RTRUE	
?CCL70:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH \?CCL76
	FSET?	PRSO,MUNGED \?CCL79
	ICALL2	ITS-MUNGED,W?GATE
	RTRUE	
?CCL79:	FSET?	PRSO,OPENED /FALSE
	ZERO?	PRSI /FALSE
	EQUAL?	PRSA,V?OPEN-WITH \FALSE
	ICALL1	MUNG-STALL
	RTRUE	
?CCL76:	EQUAL?	PRSA,V?KICK,V?HIT,V?MUNG /?CTR85
	EQUAL?	PRSA,V?LOOSEN,V?PUSH,V?SHAKE /?CTR85
	EQUAL?	PRSA,V?CUT \FALSE
?CTR85:	FSET?	PRSO,MUNGED \?CCL92
	ICALL2	ITS-ALREADY,STR?745
	RTRUE	
?CCL92:	FSET?	PRSO,OPENED \?CND90
	ICALL2	ITS-ALREADY,STR?823
	RTRUE	
?CND90:	EQUAL?	PRSA,V?KICK \?CND94
	SET	'PRSI,FEET
?CND94:	ICALL1	MUNG-STALL
	RTRUE	


	.FUNCT	MUNG-STALL,OBJ,TBL
	ASSIGNED?	'OBJ /?CND1
	SET	'OBJ,PRSI
?CND1:	ICALL2	ITALICIZE,STR?746
	PRINTI	"! "
	ICALL2	YOUR-OBJ,OBJ
	PRINTI	" deals the gate a mighty blow"
	GET	STATS,STRENGTH
	LESS?	STACK,50 \?CND3
	ICALL1	NOTE-NOISE
	IN?	UNICORN,STALL \TRUE
	FSET	UNICORN,SEEN
	PRINT	TAB
	ICALL2	CTHE-PRINT,UNICORN
	PRINTR	" slowly shakes her head."
?CND3:	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	FSET	STALL,OPENED
	FCLEAR	STALL,LOCKED
	FSET	STALL,MUNGED
	FCLEAR	UNICORN,SEEN
	PRINTR	", shattering it into splinters."


	.FUNCT	UNICORN-OPENS-CHEST
	PRINT	TAB
	ICALL2	CTHE-PRINT,UNICORN
	PRINTI	" cranes her neck towards "
	ICALL2	THE-PRINT,CHEST
	PRINTI	" and snuffles the lid curiously. She "
	ICALL1	HAPPY-UNICORN
	PRINTI	"prods the lid of the chest with her nose."
	CRLF	
	PRINT	TAB
	ICALL2	DESCRIBE-GATE,UNICORN
	ICALL	UPDATE-STAT,15,COMPASSION,TRUE-VALUE
	RTRUE	


	.FUNCT	HAPPY-UNICORN
	ICALL1	EXIT-UNICORN
	PRINTI	"whinnies with joy and nuzzles your face with shy gratitude. Then, eyes bright with anticipation, the lovely creature "
	RTRUE	


	.FUNCT	BYE-UNICORN
	ICALL1	HAPPY-UNICORN
	PRINTI	"shakes her mane and races out of "
	ICALL2	THE-PRINT,STABLE
	PRINTI	", where her hoofbeats quickly fade into the distance."
	CRLF	
	ICALL	UPDATE-STAT,15,COMPASSION,TRUE-VALUE
	RFALSE	


	.FUNCT	EXIT-UNICORN
	ICALL2	VANISH,UNICORN
	ICALL2	DEQUEUE,I-UNICORN
	RFALSE	


	.FUNCT	STABLE-F,X
	EQUAL?	HERE,IN-STABLE \?CCL3
	CALL1	HERE-F
	RSTACK	
?CCL3:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \FALSE
	ICALL2	DO-WALK,P?NORTH
	RTRUE	


	.FUNCT	STORM-F,X
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X /?CTR2
	EQUAL?	PRSA,V?LOOK-BEHIND \?CCL3
?CTR2:	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" boil with dark energy."


	.FUNCT	TWISTER-F,CONTEXT,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	PRINTI	"A roaring funnel of wind is bearing down upon the farm!"
	RTRUE	
?CCL3:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL7
	PRINTI	"Luckily, "
	ICALL2	THE-PRINT,TWISTER
	PRINTR	" isn't close enough."
?CCL7:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL11
	PRINTI	"It looks just like the one in "
	ICALL2	ITALICIZE,STR?824
	PRINT	PERIOD
	RTRUE	
?CCL11:	EQUAL?	PRSA,V?LISTEN \FALSE
	PRINT	YOU-HEAR
	ICALL2	PRINTA,SOUND
	PRINTR	" like a raging locomotive amid the thunder."


	.FUNCT	MCASE-F,CONTEXT
	CALL	HANDLE-CASE?,MCASE,ON-MCASE,CONTEXT
	RSTACK	


	.FUNCT	BCASE-F,CONTEXT
	CALL	HANDLE-CASE?,BCASE,ON-BCASE,CONTEXT
	RSTACK	


	.FUNCT	WCASE-F,CONTEXT
	CALL	HANDLE-CASE?,WCASE,ON-WCASE,CONTEXT
	RSTACK	


	.FUNCT	HANDLE-CASE?,OBJ,TOP,CONTEXT,ANY,ANYTOP,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-CONT \FALSE
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL8
	ICALL2	CANT-REACH-IN,OBJ
	RTRUE	
?CCL8:	EQUAL?	PRSA,V?SMELL,V?TASTE,V?EAT \FALSE
	ICALL	YOUD-HAVE-TO,STR?518,OBJ
	RTRUE	
?CCL3:	CALL	NOUN-USED?,W?SHELVES,W?SHELF
	ZERO?	STACK /?CND1
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL13
	ICALL2	CANT-REACH-IN,OBJ
	RTRUE	
?CCL13:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?LOOK-ON,V?EXAMINE \?CND1
	ICALL2	LOOK-IN-CASE,OBJ
	RTRUE	
?CND1:	CALL2	SEE-ANYTHING-IN?,TOP >ANYTOP
	ZERO?	NOW-PRSI? /?CCL19
	EQUAL?	PRSA,V?PUT,V?PUT-UNDER,V?PUT-BEHIND /?CTR21
	EQUAL?	PRSA,V?EMPTY-INTO \?CCL22
?CTR21:	ICALL2	ITS-CLOSED,PRSI
	RTRUE	
?CCL22:	EQUAL?	PRSA,V?PUT-ON \?CCL26
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	MOVE	PRSO,TOP
	PRINTI	"You put "
	ICALL1	THE-PRINT
	PRINT	SON
	ICALL2	THE-PRINT,OBJ
	PRINT	PERIOD
	FSET?	PRSO,IDENTIFIED /TRUE
	PRINT	TAB
	ICALL2	ASK-OWOMAN-ABOUT,PRSO
	RTRUE	
?CCL26:	EQUAL?	PRSA,V?THROW,V?THROW-OVER \FALSE
	ICALL2	MUNG-CASE-WITH,PRSO
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?EXAMINE \?CCL31
	PRINTI	"The interior of the glass "
	PRINTD	PRSO
	PRINTI	" is lined with "
	CALL1	SEE-ANYTHING-IN?
	ZERO?	STACK /?CCL34
	INC	'ANY
	PRINTI	"shelves, upon which you see "
	ICALL1	CONTENTS
	SET	'P-IT-OBJECT,PRSO
	JUMP	?CND32
?CCL34:	PRINTI	"empty shelves"
?CND32:	ZERO?	ANYTOP /?CND35
	PRINTI	". "
	ZERO?	ANY /?CCL39
	PRINTI	"You also"
	JUMP	?CND37
?CCL39:	PRINTI	"On top of the case you"
?CND37:	PRINTI	" see "
	ICALL2	CONTENTS,TOP
	SET	'P-IT-OBJECT,PRSO
	ZERO?	ANY /?CND35
	PRINTI	" on top of the case"
?CND35:	PRINT	PERIOD
	RTRUE	
?CCL31:	EQUAL?	PRSA,V?LOOK-ON \?CCL43
	PRINT	YOU-SEE
	ICALL2	CONTENTS,TOP
	SET	'P-IT-OBJECT,PRSO
	PRINT	SON
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL43:	EQUAL?	PRSA,V?SEARCH,V?LOOK-INSIDE,V?LOOK-UNDER /?CTR44
	EQUAL?	PRSA,V?LOOK-BEHIND \?CCL45
?CTR44:	ICALL2	LOOK-IN-CASE,PRSO
	RTRUE	
?CCL45:	EQUAL?	PRSA,V?OPEN,V?REACH-IN,V?EMPTY \?CCL49
	ZERO?	ANYTOP /?CND50
	EQUAL?	PRSA,V?EMPTY \?CND50
	SET	'PRSO,TOP
	ICALL1	V-EMPTY
	SET	'PRSO,OBJ
	RTRUE	
?CND50:	PRINT	CTHELADY
	PRINTI	" slaps "
	PRINTD	HANDS
	PRINTR	" away. ""Ask."""
?CCL49:	EQUAL?	PRSA,V?HIT,V?MUNG,V?OPEN-WITH \?CCL55
	ICALL2	MUNG-CASE-WITH,PRSI
	RTRUE	
?CCL55:	EQUAL?	PRSA,V?KICK \?CCL57
	ICALL2	MUNG-CASE-WITH,FEET
	RTRUE	
?CCL57:	EQUAL?	PRSA,V?CLOSE \?CCL59
	ICALL2	ITS-ALREADY,STR?531
	RTRUE	
?CCL59:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL61
	ICALL2	MUNG-CASE-WITH,HANDS
	RTRUE	
?CCL61:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \FALSE
	ICALL1	NOT-ON
	RTRUE	


	.FUNCT	LOOK-IN-CASE,OBJ
	CALL2	SEE-ANYTHING-IN?,OBJ
	ZERO?	STACK \?CND1
	PRINTI	"The shelves in "
	ICALL2	THE-PRINT,OBJ
	PRINTR	" are empty."
?CND1:	PRINTI	"Peering under the glass"
	PRINT	LYOU-SEE
	ICALL2	CONTENTS,OBJ
	SET	'P-IT-OBJECT,OBJ
	PRINT	PERIOD
	RTRUE	


	.FUNCT	CANT-REACH-IN,OBJ
	PRINT	CANT
	PRINTI	"reach into "
	ICALL2	THE-PRINT,OBJ
	PRINT	PERIOD
	RTRUE	


	.FUNCT	MUNG-CASE-WITH,OBJ
	FSET	OWOMAN,SEEN
	EQUAL?	OBJ,HANDS,FEET \?CCL3
	PRINTI	"""Stop that"
	JUMP	?CND1
?CCL3:	PRINTI	"""Put th"
	FSET?	OBJ,PLURAL \?CCL6
	PRINTI	"ose "
	JUMP	?CND4
?CCL6:	PRINTI	"at "
?CND4:	ICALL2	DPRINT,OBJ
	PRINTI	" down"
?CND1:	PRINTI	","" demands "
	ICALL2	THE-PRINT,OWOMAN
	PRINT	PERIOD
	RTRUE	


	.FUNCT	PLATE-F,X
	CALL2	HANDLE-ARMOR?,PLATE
	ZERO?	STACK \TRUE
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	PRINTI	"The bulky "
	ICALL2	DPRINT,PRSO
	PRINTR	" looks as if it could turn aside any blade you could wield."
?CCL7:	EQUAL?	PRSA,V?TOUCH,V?SQUEEZE \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" feels as sturdy as it looks."


	.FUNCT	CHAIN-F,X
	CALL2	HANDLE-ARMOR?,CHAIN
	ZERO?	STACK \TRUE
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	PRINTR	"The intricate silver mesh sparkles as you gaze upon it."
?CCL7:	EQUAL?	PRSA,V?TOUCH,V?SQUEEZE \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" feels remarkably light and supple."


	.FUNCT	SCALE-F,X
	CALL2	HANDLE-ARMOR?,SCALE
	ZERO?	STACK \TRUE
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	ICALL1	LEATHER
	PRINTR	"overcoat, with metal scales sewn on the outside."
?CCL7:	EQUAL?	PRSA,V?SMELL \?CCL9
	ICALL1	OILY
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?TOUCH,V?SQUEEZE \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" feels sturdy enough."


	.FUNCT	TUNIC-F,X
	CALL2	HANDLE-ARMOR?,TUNIC
	ZERO?	STACK \TRUE
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	ICALL1	CTHE-PRINT
	PRINTR	" wouldn't stop a hellhound, or even an arrow. But it looks comfortable."
?CCL7:	EQUAL?	PRSA,V?SMELL \?CCL9
	ICALL1	OILY
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?TOUCH,V?SQUEEZE \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" feels soft and supple."


	.FUNCT	OILY
	ICALL1	CTHE-PRINT
	PRINTR	" smells rich and oily."


	.FUNCT	CLOAK-F,W,EFX,X
	GETP	CLOAK,P?EFFECT >EFX
	IN?	CLOAK,PLAYER \?CND1
	FSET?	CLOAK,WORN \?CND1
	INC	'W
?CND1:	CALL2	HANDLE-ARMOR?,CLOAK
	ZERO?	STACK \TRUE
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \?CCL11
	ICALL1	O-WEARING
	PRINTR	" is so utterly unremarkable in color (dull gray), style (utilitarian) and cut (shapeless), that your eyes feel compelled to look elsewhere."
?CCL11:	EQUAL?	PRSA,V?WEAR,V?USE \?CCL13
	ZERO?	W \FALSE
	IN?	PRSO,PLAYER /?CND14
	ICALL2	YOUD-HAVE-TO,STR?817
	RTRUE	
?CND14:	FSET	PRSO,WORN
	PRINTI	"You slip "
	ICALL1	THE-PRINT
	PRINTI	" over "
	ICALL2	DO-CLOAK,EFX
	RTRUE	
?CCL13:	EQUAL?	PRSA,V?TAKE-OFF \?CCL19
	ZERO?	W /FALSE
	FCLEAR	PRSO,WORN
	PRINTI	"You slip "
	ICALL1	THE-PRINT
	PRINTI	" off "
	SUB	0,EFX
	ICALL2	DO-CLOAK,STACK
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?TOUCH,V?SQUEEZE \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" feels surprisingly soft and lightweight."


	.FUNCT	O-WEARING
	ICALL1	CTHE-PRINT
	FSET?	PRSO,WORN \FALSE
	PRINT	STR?825
	RFALSE	


	.FUNCT	DO-CLOAK,EFX
	PRINTI	"your shoulders."
	CRLF	
	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	ICALL	UPDATE-STAT,EFX,ARMOR-CLASS
	RFALSE	


	.FUNCT	HANDLE-ARMOR?,OBJ,W,C,EFX,X
	ZERO?	NOW-PRSI? /?CND1
	EQUAL?	PRSA,V?PUT,V?EMPTY-INTO,V?PUT-UNDER /?CTR4
	EQUAL?	PRSA,V?PUT-BEHIND \?CCL5
?CTR4:	ICALL1	CTHEI-PRINT
	PRINTI	" has no pockets in which to "
	PRINTB	P-PRSA-WORD
	PRINTR	" things."
?CCL5:	EQUAL?	PRSA,V?PUT-ON,V?THROW,V?THROW-OVER \FALSE
	ICALL1	NO-GOOD-SURFACE
	RTRUE	
?CND1:	IN?	OBJ,PLAYER \?CND9
	FSET?	OBJ,WORN \?CND9
	INC	'W
?CND9:	EQUAL?	PRSA,V?REACH-IN,V?EMPTY,V?LOOK-INSIDE /?CTR14
	EQUAL?	PRSA,V?SEARCH,V?LOOK-UNDER,V?LOOK-BEHIND /?CTR14
	EQUAL?	PRSA,V?SHAKE \?CCL15
?CTR14:	ZERO?	W /?CCL21
	PRINTI	"Except for "
	PRINTD	ME
	PRINTI	", the "
	JUMP	?CND19
?CCL21:	PRINT	XTHE
?CND19:	ICALL2	DPRINT,PRSO
	PRINTR	" is empty."
?CCL15:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH,V?CLOSE \?CCL23
	PRINT	DONT
	PRINTI	"need to do that with this "
	PRINTD	PRSO
	PRINT	PERIOD
	RTRUE	
?CCL23:	EQUAL?	OBJ,CLOAK /FALSE
	GETP	OBJ,P?EFFECT >EFX
	IN?	CLOAK,PLAYER \?CND25
	FSET?	CLOAK,WORN \?CND25
	INC	'C
?CND25:	EQUAL?	PRSA,V?WEAR,V?USE \?CCL31
	ZERO?	W \FALSE
	FIRST?	PLAYER >X \?CND32
?PRG36:	EQUAL?	X,CLOAK,HELM /?CND38
	FSET?	X,CLOTHING \?CND38
	FSET?	X,WORN \?CND38
	GETP	X,P?EFFECT
	ZERO?	STACK \?CND32
?CND38:	NEXT?	X >X /?PRG36
?CND32:	ZERO?	X /?CCL48
	ICALL	YOUD-HAVE-TO,STR?520,X
	RTRUE	
?CCL48:	IN?	OBJ,PLAYER /?CND46
	ICALL2	YOUD-HAVE-TO,STR?817
	RTRUE	
?CND46:	FSET	PRSO,WORN
	PRINT	CYOU
	ZERO?	C /?CND50
	PRINTI	"slip off your "
	ICALL2	DPRINT,CLOAK
	PRINTI	", "
?CND50:	PRINTI	"put on "
	ICALL1	THE-PRINT
	ZERO?	C /?CND52
	PRINTI	" and throw the cloak back over it"
?CND52:	ICALL2	DO-WEAR,EFX
	RTRUE	
?CCL31:	EQUAL?	PRSA,V?TAKE-OFF \FALSE
	ZERO?	W /FALSE
	FCLEAR	PRSO,WORN
	PRINT	CYOU
	ZERO?	C /?CND58
	PRINTI	"remove your "
	ICALL2	DPRINT,CLOAK
	PRINTI	", "
?CND58:	PRINTI	"take off "
	ICALL1	THE-PRINT
	ZERO?	C /?CND60
	PRINTI	" and slip the cloak back on"
?CND60:	SUB	0,EFX
	ICALL2	DO-WEAR,STACK
	RTRUE	


	.FUNCT	DO-WEAR,EFX
	PRINT	PERIOD
	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	ICALL	UPDATE-STAT,EFX,ARMOR-CLASS
	RFALSE	


	.FUNCT	QUICKSAND-F,CONTEXT,OBJ,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-CONT \FALSE
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND6
	SET	'OBJ,PRSI
?CND6:	ZERO?	OBJ /FALSE
	EQUAL?	PRSA,V?THROW,V?THROW-OVER \?CCL12
	ICALL	HIT-SANDED-OBJ-WITH,PRSI,PRSO
	RTRUE	
?CCL12:	EQUAL?	PRSA,V?KICK \?CCL14
	ICALL	HIT-SANDED-OBJ-WITH,PRSO,FEET
	RTRUE	
?CCL14:	EQUAL?	PRSA,V?HIT,V?KICK,V?MUNG \?CCL16
	ICALL	HIT-SANDED-OBJ-WITH,PRSO,PRSI
	RTRUE	
?CCL16:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL2	CANT-REACH,OBJ
	ICALL1	STANDING
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? /?CCL19
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \?CCL22
	ICALL2	ITALICIZE,STR?826
	PRINTI	"! "
	ICALL1	CTHE-PRINT
	PRINTI	" lands on "
	ICALL1	THEI-PRINT
	PRINT	AND
	EQUAL?	PRSO,PARASOL \?CCL24
	FSET?	PRSO,OPENED /?CND23
?CCL24:	GETP	PRSO,P?SIZE
	GRTR?	STACK,2 \?CND23
	ICALL1	VANISH
	PRINTR	"slowly sinks out of sight."
?CND23:	MOVE	PRSO,PRSI
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINTR	"floats uncertainly."
?CCL22:	EQUAL?	PRSA,V?TOUCH-TO \FALSE
	ICALL2	HIT-SAND-WITH,PRSO
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?LOOK-ON,V?EXAMINE,V?LOOK-INSIDE /?CTR29
	EQUAL?	PRSA,V?SEARCH \?CCL30
?CTR29:	PRINT	YOU-SEE
	ICALL1	CONTENTS
	SET	'P-IT-OBJECT,PRSO
	PRINTI	" floating on "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL30:	EQUAL?	PRSA,V?LOOK-UNDER,V?LOOK-BEHIND,V?OPEN /?CTR33
	EQUAL?	PRSA,V?CLOSE \?CCL34
?CTR33:	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL34:	EQUAL?	PRSA,V?TOUCH,V?REACH-IN,V?SQUEEZE /?CTR37
	EQUAL?	PRSA,V?EMPTY \?CCL38
?CTR37:	ICALL2	HIT-SAND-WITH,HANDS
	RTRUE	
?CCL38:	EQUAL?	PRSA,V?KICK \?CCL42
	ICALL2	HIT-SAND-WITH,FEET
	RTRUE	
?CCL42:	EQUAL?	PRSA,V?HIT,V?MUNG \?CCL44
	ICALL2	HIT-SAND-WITH,PRSI
	RTRUE	
?CCL44:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X /?CTR45
	EQUAL?	PRSA,V?SWIM,V?DIVE,V?CLIMB-DOWN \?CCL46
?CTR45:	ICALL1	ENTER-QUICKSAND
	RTRUE	
?CCL46:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL50
	ICALL1	NOT-IN
	RTRUE	
?CCL50:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL2	ITALICIZE,STR?827
	PRINTI	". It seems that "
	ICALL1	GRITTY
	PRINTR	" is virtually impossible to move."


	.FUNCT	HIT-SANDED-OBJ-WITH,OBJ,WITH
	ICALL2	YOUR-OBJ,WITH
	PRINTI	" misses "
	ICALL2	THE-PRINT,OBJ
	EQUAL?	PRSA,V?THROW,V?THROW-OVER \?CCL3
	EQUAL?	WITH,FALSE-VALUE,HANDS,FEET /?CCL3
	PRINTI	", lands with a "
	ICALL2	ITALICIZE,STR?828
	PRINT	SIN
	ICALL2	THE-PRINT,QUICKSAND
	PRINT	AND
	FSET?	OBJ,BUOYANT /?CTR7
	GETP	OBJ,P?SIZE
	LESS?	STACK,3 /?CTR7
	EQUAL?	OBJ,PARASOL \?CCL8
	FSET?	OBJ,OPENED \?CCL8
?CTR7:	MOVE	WITH,QUICKSAND
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINTI	"floats there uncertainly"
	JUMP	?CND1
?CCL8:	ICALL2	VANISH,WITH
	PRINTI	"sinks out of sight"
	JUMP	?CND1
?CCL3:	PRINTI	". It's just beyond your reach"
?CND1:	PRINT	PERIOD
	EQUAL?	OBJ,BABY \TRUE
	FSET?	MAMA,MONSTER /TRUE
	CALL2	VISIBLE?,MAMA
	ZERO?	STACK /TRUE
	SET	'LAST-MONSTER,MAMA
	ICALL1	MAMA-TO-MONSTER
	PRINT	TAB
	PRINTI	"A sound like a snorting bull turns your attention to "
	ICALL2	THE-PRINT,MAMA
	PRINTR	". It looks as if she's about to attack!"


	.FUNCT	MAMA-TO-MONSTER
	FSET	MAMA,MONSTER
	ICALL	REPLACE-SYN?,MAMA,W?ZZZP,W?MONSTER
	PUTP	MAMA,P?GENERIC,GENERIC-MONSTER-F
	RFALSE	


	.FUNCT	HIT-SAND-WITH,OBJ
	PRINTI	"Ick! "
	ICALL2	YOUR-OBJ,OBJ
	PRINTI	" pulls away from "
	ICALL1	GRITTY
	PRINTI	" with a sickening "
	ICALL2	ITALICIZE,STR?829
	PRINT	PERIOD
	RTRUE	


	.FUNCT	GRITTY
	PRINTI	"the wet, gritty "
	PRINTD	QUICKSAND
	RTRUE	


	.FUNCT	ENTER-QUICKSAND
	PRINTI	"You step boldly into the pool, and thrash helplessly for a while in "
	ICALL1	GRITTY
	PRINTI	" until your mouth fills"
	ICALL1	JIGS-UP
	RFALSE	


	.FUNCT	GOOD-MAMA
	IN?	BABY,QUICKSAND \?CND1
	FCLEAR	MAMA,MONSTER
	ICALL	REPLACE-SYN?,MAMA,W?MONSTER,W?ZZZP
	PUTP	MAMA,P?GENERIC,0
?CND1:	PUTP	MAMA,P?LAST-LOC,JUN0
	MOVE	MAMA,JUN0
	RFALSE	


	.FUNCT	MAMA-F,CONTEXT,OBJ,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \?CCL6
	ICALL2	PRINTCA,MAMA
	PRINTI	" is standing nearby"
	CALL2	VISIBLE?,BABY
	ZERO?	STACK /?CND7
	PRINTI	", gazing anxiously at her baby"
?CND7:	PRINTC	PER
	RTRUE	
?CCL6:	EQUAL?	CONTEXT,M-CONT \FALSE
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND10
	SET	'OBJ,PRSI
?CND10:	ZERO?	OBJ /FALSE
	PRINT	CANT
	INTBL?	PRSA,SEEVERBS,NSVERBS >X \?CCL16
	PRINTI	"see "
	JUMP	?CND14
?CCL16:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL18
	PRINTI	"reach "
	JUMP	?CND14
?CCL18:	PRINTI	"do that with "
?CND14:	ICALL2	THE-PRINT,OBJ
	PRINTI	" while it's inside "
	ICALL2	THE-PRINT,MAMA
	PRINT	PERIOD
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	CALL1	TALK-TO-MUNGI?
	ZERO?	STACK /?CCL22
	RETURN	2
?CCL22:	EQUAL?	PRSA,V?EXAMINE \?CCL26
	ICALL1	GAZEBACK
	PRINTR	"suspiciously."
?CCL26:	EQUAL?	PRSA,V?HIT,V?MUNG,V?KICK \?CCL28
	ICALL1	CTHE-PRINT
	PRINTI	" avoids your "
	EQUAL?	PRSI,FALSE-VALUE,HANDS \?CCL31
	PRINTI	"blow"
	JUMP	?CND29
?CCL31:	EQUAL?	PRSA,V?KICK /?CTR32
	EQUAL?	PRSI,FEET \?CCL33
?CTR32:	PRINTI	"foot"
	JUMP	?CND29
?CCL33:	ICALL2	DPRINT,PRSI
?CND29:	PRINTR	", and bellows a warning."
?CCL28:	EQUAL?	PRSA,V?WHAT,V?WHO \FALSE
	ICALL1	REFER-TO-PACKAGE
	RETURN	2


	.FUNCT	TALK-TO-MUNGI?,X
	INTBL?	PRSA,TALKVERBS,NTVERBS >X \FALSE
	PRINTR	"Hunguses (hungi?) aren't smart enough to understand."


	.FUNCT	BABY-F,CONTEXT,X
	ZERO?	CONTEXT \FALSE
	ZERO?	NOW-PRSI? \FALSE
	CALL1	TALK-TO-MUNGI?
	ZERO?	STACK /?CCL7
	RETURN	2
?CCL7:	EQUAL?	PRSA,V?EXAMINE \?CCL11
	ICALL1	GAZEBACK
	PRINTR	"helplessly."
?CCL11:	EQUAL?	PRSA,V?RESCUE,V?RELEASE \?CCL13
	PRINTR	"Easier said than done."
?CCL13:	EQUAL?	PRSA,V?WHAT,V?WHO \FALSE
	ICALL1	REFER-TO-PACKAGE
	RETURN	2


	.FUNCT	GAZEBACK
	ICALL1	CTHE-PRINT
	PRINTI	" gazes back at you "
	RFALSE	


	.FUNCT	PARASOL-F,CONTEXT,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	ICALL2	PRINTCA,PARASOL
	PRINTI	" dangles uncertainly from one of the ropes."
	RTRUE	
?CCL3:	CALL	NOUN-USED?,W?HANDLE,W?PARROT,W?HEAD
	ZERO?	STACK \?CTR6
	CALL2	ADJ-USED?,W?PARROT'S
	ZERO?	STACK /?CCL7
?CTR6:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL12
	PRINTR	"The parrot's head stares back at you."
?CCL12:	EQUAL?	PRSA,V?TAKE,V?MOVE,V?PULL \?CND10
	PRINTI	"The handle is firmly attached to the "
	PRINTD	PRSO
	PRINT	PERIOD
	RTRUE	
?CND10:	ICALL	USELESS,STR?830,TRUE-VALUE
	RETURN	2
?CCL7:	ZERO?	NOW-PRSI? /?CCL17
	EQUAL?	PRSA,V?THROW,V?THROW-OVER \?CCL20
	ICALL1	CTHE-PRINT
	PRINTI	" glances off the "
	ICALL2	DPRINT,PRSI
	PRINT	AND
	ICALL1	FALLS
	RTRUE	
?CCL20:	EQUAL?	PRSA,V?PUT,V?PUT-ON,V?EMPTY-INTO \FALSE
	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL17:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE \?CCL23
	ICALL1	CTHE-PRINT
	PRINTR	"'s handle is carved in the shape of a parrot's head."
?CCL23:	EQUAL?	PRSA,V?READ,V?LOOK-ON \?CCL25
	FSET?	PRSO,OPENED \?CND26
	PRINTI	"Nothing is legible on the "
	PRINTD	PRSO
	PRINT	PERIOD
	RTRUE	
?CND26:	ICALL2	YOUD-HAVE-TO,STR?518
	RTRUE	
?CCL25:	CALL1	FIRST-TAKE?
	ZERO?	STACK \TRUE
	EQUAL?	PRSA,V?STAND-UNDER \?CCL31
	IN?	PRSO,PLAYER /?CCL34
	ICALL2	YOUD-HAVE-TO,STR?680
	RTRUE	
?CCL34:	FSET?	PRSO,OPENED /?CND32
	ICALL1	ITS-CLOSED
	RTRUE	
?CND32:	PRINT	ALREADY
	PRINTR	"doing that."
?CCL31:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH \?CCL37
	EQUAL?	PRSI,FALSE-VALUE,HANDS \?CCL37
	FSET?	PRSO,MUNGED \?CCL42
	PRINT	CANT
	PRINTI	"open "
	ICALL1	THE-PRINT
	PRINTR	" anymore."
?CCL42:	IN?	PARASOL,PLAYER /?CCL44
	ICALL2	YOUD-HAVE-TO,STR?680
	RTRUE	
?CCL44:	FSET?	PRSO,OPENED \?CND40
	ICALL2	ITS-ALREADY,STR?518
	RTRUE	
?CND40:	FSET	PRSO,OPENED
	FSET	PRSO,SURFACE
	FSET	PRSO,VOWEL
	FSET	PRSO,BUOYANT
	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	ICALL	REPLACE-ADJ?,PRSO,W?CLOSED,W?OPEN
	PRINTI	"You snap open the "
	PRINTD	PRSO
	PRINT	PERIOD
	FSET?	HERE,INDOORS \?CCL48
	CALL1	NOLUCK?
	ZERO?	STACK /?CCL48
	ICALL	UPDATE-STAT,-1,LUCK,TRUE-VALUE
	RTRUE	
?CCL48:	EQUAL?	HERE,IN-SKY \TRUE
	SET	'P-WALK-DIR,FALSE-VALUE
	PRINT	TAB
	PRINTI	"Before you can think or move, a gust of wind pulls you"
	ICALL2	OUT-OF-LOC,SADDLE
	PRINTI	", and you float down to a "
	CALL1	DOWN-TO? >X
	ZERO?	X \?CND52
	EQUAL?	ABOVE,OTHRIFF \TRUE
	PRINTI	"hideous death among "
	ICALL2	THE-PRINT,XTREES
	PRINTI	" of Thriff"
	ICALL1	JIGS-UP
	RTRUE	
?CND52:	SET	'OLD-HERE,FALSE-VALUE
	SET	'P-WALK-DIR,FALSE-VALUE
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	MOVE	PLAYER,X
	PRINTI	"reasonably soft landing"
	ICALL1	RELOOK
	RTRUE	
?CCL37:	EQUAL?	PRSA,V?CLOSE,V?FOLD \?CCL57
	FSET?	PRSO,MUNGED \?CCL60
	PRINT	CANT
	PRINTI	"close "
	ICALL1	THE-PRINT
	PRINTR	" anymore."
?CCL60:	IN?	PARASOL,PLAYER /?CCL62
	ICALL2	YOUD-HAVE-TO,STR?680
	RTRUE	
?CCL62:	FSET?	PRSO,OPENED /?CND58
	ICALL2	ITS-ALREADY,STR?531
	RTRUE	
?CND58:	FCLEAR	PRSO,OPENED
	FCLEAR	PRSO,SURFACE
	FCLEAR	PRSO,VOWEL
	FCLEAR	PRSO,BUOYANT
	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	ICALL	REPLACE-ADJ?,PRSO,W?OPEN,W?CLOSED
	PRINTI	"You snap the "
	PRINTD	PRSO
	PRINTR	" shut."
?CCL57:	EQUAL?	PRSA,V?FILL-FROM \FALSE
	CALL1	WATER?
	ZERO?	STACK /?CCL68
	PRINTI	"Water "
	PRINT	STR?754
	RTRUE	
?CCL68:	EQUAL?	PRSI,POOL \FALSE
	PRINTI	"Radiance leaks through "
	ICALL1	THE-PRINT
	PRINTR	" and dissipates in the air."


	.FUNCT	ZSIGN-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?READ,V?LOOK-ON \?CCL5
	ICALL1	CTHE-PRINT
	PRINTI	" says,

"
	HLIGHT	H-MONO
	PRINTI	"    ZENO'S BRIDGE
Cross at thy Own Risk"
	CRLF	
	HLIGHT	H-NORMAL
	RTRUE	
?CCL5:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL2	ROOTED,PRSO
	RTRUE	


	.FUNCT	WHISTLE-F,ITAL,X
	ZERO?	NOW-PRSI? \FALSE
	CALL2	NOUN-USED?,W?CHAIN
	ZERO?	STACK /?CND1
	EQUAL?	PRSA,V?BLOW-INTO \?CCL7
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON /?CCL8
	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND1
?CCL8:	ICALL	FIRMLY-ATTACHED,STR?831,PRSO,TRUE-VALUE
	RTRUE	
?CND1:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \?CCL13
	ICALL1	CTHE-PRINT
	PRINTI	" has a picture of a "
	PRINTD	DACT
	PRINTR	" etched on it, and has a chain for wearing."
?CCL13:	EQUAL?	PRSA,V?BLOW-INTO,V?USE \FALSE
	IN?	PRSO,PLAYER /?CCL18
	ICALL2	YOUD-HAVE-TO,STR?680
	RTRUE	
?CCL18:	EQUAL?	HOST,APPLE-2E,APPLE-2C /?CND16
	INC	'ITAL
?CND16:	ICALL1	CTHE-PRINT
	PRINTI	" emits a long, harsh wail"
	CALL1	PLAIN-ROOM?
	ZERO?	STACK /?CND20
	PRINTI	" that is swallowed in a clap of thunder"
?CND20:	PRINT	PTAB
	FSET?	PRSO,NEUTRALIZED /?CND22
	CALL2	VISIBLE?,DACT
	ZERO?	STACK /?CND22
	FSET?	DACT,SLEEPING \?CND25
	ICALL1	WAKE-DACT
	RTRUE	
?CND25:	ICALL2	CTHE-PRINT,DACT
	PRINT	STR?553
	ZERO?	ITAL /?CCL29
	HLIGHT	H-ITALIC
	JUMP	?CND27
?CCL29:	PRINTC	QUOTATION
?CND27:	PRINTI	"I await your pleasure"
	ZERO?	ITAL /?CND30
	HLIGHT	H-NORMAL
?CND30:	PRINTC	44
	ZERO?	ITAL \?CND32
	PRINTC	QUOTATION
?CND32:	PRINTI	" whispers a voice in "
	PRINTD	HEAD
	PRINT	PERIOD
	RTRUE	
?CND22:	EQUAL?	HERE,IN-GARDEN \?CND34
	IN?	QUEEN,HERE \?CND34
	ICALL2	QUEEN-SEES-YOU,STR?832
	RTRUE	
?CND34:	PRINTI	"Nothing happens"
	FSET?	PRSO,NEUTRALIZED /?CCL39
	EQUAL?	HERE,IN-FROON,APLANE,IN-SPLENDOR /?CCL39
	CALL1	PLAIN-ROOM?
	ZERO?	STACK \?CCL39
	EQUAL?	ATIME,PRESENT \?CCL39
	IN?	PLAYER,ARCH /?CCL39
	FSET?	HERE,INDOORS /?CCL39
	FSET?	DACT,SLEEPING /?CCL39
	FSET?	DACT,MUNGED /?CCL39
	FSET?	DACT,LIVING \?CCL39
	IGRTR?	'HOOTS,3 \?CND38
?CCL39:	PRINT	PERIOD
	RTRUE	
?CND38:	PRINTI	" for a moment. Then, with a raucous cry and a great beating of wings, "
	ICALL2	THE-PRINT,DACT
	ZERO?	LAST-MONSTER \?CCL51
	CALL	FIND-IN?,HERE,MONSTER
	ZERO?	STACK \?CCL51
	IN?	PLAYER,GONDOLA /?CCL51
	EQUAL?	HERE,NW-SUPPORT,SW-SUPPORT,SE-SUPPORT /?CCL51
	EQUAL?	0,LAVA-TIMER,MAGMA-TIMER /?CND50
	EQUAL?	HERE,FOREST-EDGE,ON-TRAIL,ON-PEAK \?CND50
?CCL51:	PRINTR	" swoops overhead. Finding no safe place to land, he soars away again."
?CND50:	PRINTI	" lands by your side"
	PRINT	PTAB
	MOVE	DACT,HERE
	FCLEAR	DACT,NODESC
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	ZERO?	ITAL /?CCL61
	HLIGHT	H-ITALIC
	JUMP	?CND59
?CCL61:	PRINTC	QUOTATION
?CND59:	PRINTI	"This is the "
	EQUAL?	HOOTS,3 \?CCL64
	PRINTI	"last time I shall answer"
	JUMP	?CND62
?CCL64:	EQUAL?	HOOTS,1 \?CCL67
	PRINTI	"first"
	JUMP	?CND65
?CCL67:	PRINTI	"second"
?CND65:	PRINTI	" time I have answered"
?CND62:	PRINTI	" the whistle's call"
	ZERO?	ITAL /?CND68
	HLIGHT	H-NORMAL
?CND68:	PRINTC	44
	ZERO?	ITAL \?CND70
	PRINTC	QUOTATION
?CND70:	PRINTI	" observes a voice in "
	PRINTD	HEAD
	EQUAL?	HOOTS,3 \?CND72
	ICALL1	VANISH
	PRINTI	"; and as it speaks, "
	ICALL1	THE-PRINT
	PRINTI	" melts away into nothingness"
?CND72:	PRINTI	". "
	ZERO?	ITAL /?CCL76
	HLIGHT	H-ITALIC
	JUMP	?CND74
?CCL76:	PRINTC	QUOTATION
?CND74:	LESS?	HOOTS,3 \?CND77
	EQUAL?	HOOTS,1 \?CCL81
	PRINTI	"Twice"
	JUMP	?CND79
?CCL81:	PRINTI	"Once"
?CND79:	PRINTI	" more you may use it to summon me"
	ZERO?	ITAL /?CND82
	HLIGHT	H-NORMAL
?CND82:	PRINTI	". "
	ZERO?	ITAL /?CND77
	HLIGHT	H-ITALIC
?CND77:	PRINTI	"I wait at your disposal"
	ZERO?	ITAL /?CND86
	HLIGHT	H-NORMAL
?CND86:	PRINTC	PER
	ZERO?	ITAL \?CND88
	PRINTC	QUOTATION
?CND88:	CRLF	
	RTRUE	


	.FUNCT	CHAPEL-F,X
	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL3
	EQUAL?	HERE,IN-CHAPEL \?CND4
	ICALL2	DO-WALK,P?EAST
	RTRUE	
?CND4:	ICALL1	NOT-IN
	RTRUE	
?CCL3:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL7
	ICALL2	DO-WALK,P?WEST
	RTRUE	
?CCL7:	EQUAL?	HERE,IN-CHAPEL \FALSE
	CALL1	HERE-F
	RSTACK	


	.FUNCT	PEW-F,CONTEXT,OBJ,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \?CCL6
	CALL2	SEE-ANYTHING-IN?,PEW >X
	PRINTI	"There's a"
	ZERO?	X \?CND7
	PRINTI	"n empty"
?CND7:	PRINTI	" pew just inside "
	ICALL2	THE-PRINT,CHAPEL-DOOR
	ZERO?	X /?CND9
	PRINT	STR?773
	ICALL2	CONTENTS,PEW
	SET	'P-IT-OBJECT,PEW
?CND9:	PRINTC	PER
	RTRUE	
?CCL6:	EQUAL?	CONTEXT,M-BEG \FALSE
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND12
	SET	'OBJ,PRSI
?CND12:	EQUAL?	OBJ,FALSE-VALUE,PEW,UNDERPEW /FALSE
	IN?	OBJ,UNDERPEW /FALSE
	CALL	GLOBAL-IN?,HERE,OBJ
	ZERO?	STACK \FALSE
	IN?	OBJ,HERE \FALSE
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL2	CANT-REACH,OBJ
	PRINTI	" while you're sitting on "
	ICALL2	THE-PRINT,PEW
	PRINT	PERIOD
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? /?CCL25
	EQUAL?	PRSA,V?PUT-UNDER,V?PUT-BEHIND \FALSE
	GETP	PRSO,P?SIZE
	GRTR?	STACK,6 \?CND28
	ICALL1	CTHE-PRINT
	PRINTI	" won't fit under "
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CND28:	ICALL2	STASH,UNDERPEW
	RTRUE	
?CCL25:	EQUAL?	PRSA,V?ENTER,V?SIT \?CCL31
	ICALL1	ENTER-PEW
	RTRUE	
?CCL31:	EQUAL?	PRSA,V?STAND-ON,V?LEAP,V?LIE-DOWN \?CCL33
	PRINTR	"Pews are for sitting."
?CCL33:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL35
	ICALL1	CTHE-PRINT
	PRINTI	" looks "
	IN?	PLAYER,PRSO \?CND36
	PRINTI	"and feels "
?CND36:	PRINTI	"uncomfortably hard"
	CALL1	SEE-ANYTHING-IN?
	ZERO?	STACK /?CCL40
	PRINTI	". Upon it you see "
	ICALL2	CONTENTS,PRSO
	SET	'P-IT-OBJECT,PRSO
	FIRST?	UNDERPEW >X \?CND38
	PRINTI	". There also "
	PRINT	STR?833
	JUMP	?CND38
?CCL40:	FIRST?	UNDERPEW >X \?CND38
	PRINTI	". There "
	PRINT	STR?833
?CND38:	PRINT	PERIOD
	RTRUE	
?CCL35:	EQUAL?	PRSA,V?LOOK-UNDER,V?SEARCH,V?LOOK-BEHIND \FALSE
	FIRST?	UNDERPEW >X \?CCL48
	PRINTI	"Peering under "
	ICALL1	THE-PRINT
	PRINT	LYOU-SEE
	ICALL2	CONTENTS,UNDERPEW
	SET	'P-IT-OBJECT,PRSO
	JUMP	?CND46
?CCL48:	PRINT	NOTHING
	PRINTI	"under "
	ICALL1	THE-PRINT
?CND46:	PRINT	PERIOD
	RTRUE	


	.FUNCT	STASH,OBJ
	MOVE	PRSO,OBJ
	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	PRINTI	"You stash "
	ICALL1	THE-PRINT
	PRINTI	" out of sight beneath "
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	


	.FUNCT	ENTER-PEW
	IN?	PLAYER,PEW \?CND1
	ICALL2	ALREADY-ON,PEW
	RFALSE	
?CND1:	MOVE	PLAYER,PEW
	ICALL1	PEWSLIDE
	RFALSE	


	.FUNCT	EXIT-PEW
	IN?	PLAYER,PEW /?CND1
	ICALL1	NOT-ON
	RFALSE	
?CND1:	MOVE	PLAYER,IN-CHAPEL
	ICALL2	PEWSLIDE,TRUE-VALUE
	RFALSE	


	.FUNCT	PEWSLIDE,X
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'OLD-HERE,FALSE-VALUE
	SET	'P-WALK-DIR,FALSE-VALUE
	FSET?	VIAL,TOUCHED /?CND1
	FSET	VIAL,TOUCHED
	SET	'P-IT-OBJECT,VIAL
	PRINTI	"As you slide into the pew, "
	PRINTD	FEET
	PRINTR	" nudges something underneath."
?CND1:	PRINTI	"You slide quietly "
	ASSIGNED?	'X \?CCL5
	PRINTB	W?OFF
	JUMP	?CND3
?CCL5:	PRINTB	W?INTO
?CND3:	PRINTC	SP
	ICALL2	THE-PRINT,PEW
	PRINT	PERIOD
	RTRUE	


	.FUNCT	BFLY-F,CONTEXT,ALIVE,CAT,X
	SET	'P-IT-OBJECT,BFLY
	FSET?	BFLY,LIVING \?CND1
	INC	'ALIVE
?CND1:	FSET?	BFLY,MUNGED \?CND3
	INC	'CAT
?CND3:	EQUAL?	CONTEXT,M-OBJDESC \?CCL7
	FSET	BFLY,IDENTIFIED
	ICALL2	PRINTCA,BFLY
	PRINT	SIS
	ZERO?	ALIVE \?CCL10
	PRINTI	"lying on"
	JUMP	?CND8
?CCL10:	ZERO?	CAT /?CCL12
	PRINTI	"crawling around"
?CND8:	PRINT	STHE
	ICALL1	GROUND-WORD
	PRINTC	PER
	RTRUE	
?CCL12:	PRINTI	"fluttering around "
	PRINTD	HEAD
	PRINTC	PER
	RTRUE	
?CCL7:	ZERO?	CONTEXT \FALSE
	ZERO?	NOW-PRSI? \FALSE
	INTBL?	PRSA,TALKVERBS,NTVERBS >X \?CCL18
	ZERO?	ALIVE \?CND19
	ICALL1	NOT-LIKELY
	PRINT	STR?509
	RETURN	2
?CND19:	ICALL2	CTHE-PRINT,BFLY
	PRINTI	" pretends not to understand you."
	CRLF	
	RETURN	2
?CCL18:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL26
	FSET	BFLY,IDENTIFIED
	ZERO?	ALIVE \?CND27
	PRINTR	"She's dead."
?CND27:	ICALL1	CTHE-PRINT
	ZERO?	CAT \?CND29
	PRINTI	" is almost as big as your hand, and dappled with splotches of "
	CALL1	SEE-COLOR?
	ZERO?	STACK /?CND31
	PRINTR	"bright color."
?CND31:	PRINTR	"gray."
?CND29:	PRINTR	" assigns one of her eyes to stare back at you."
?CCL26:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ZERO?	ALIVE /FALSE
	ZERO?	CAT \FALSE
	FCLEAR	PRSO,SEEN
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	LOC	PRSO >X
	ICALL1	CTHE-PRINT
	EQUAL?	X,HERE /?CND39
	MOVE	PRSO,HERE
	PRINTI	" flutters"
	ICALL2	OUT-OF-LOC,X
	PRINTI	" and"
?CND39:	PRINTR	" darts out of reach."


	.FUNCT	GOBLET-F,CONTEXT,B,X
	IN?	BFLY,GOBLET \?CND1
	FSET?	BFLY,LIVING \?CND1
	INC	'B
?CND1:	ZERO?	CONTEXT \FALSE
	ZERO?	NOW-PRSI? \FALSE
	CALL	NOUN-USED?,W?COATING,W?LIQUID,W?NECTAR
	ZERO?	STACK /?CND9
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?LOOK-INSIDE \?CCL13
	PRINTI	"The coating on the inside of "
	ICALL1	THE-PRINT
	PRINTR	" is thin and transparent."
?CCL13:	EQUAL?	PRSA,V?TOUCH /?CTR14
	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CCL15
?CTR14:	PRINTI	"You succeed only in getting your fingers sticky, so you lick them clean"
	PRINT	PTAB
	ICALL1	TASTE-NECTAR
	RTRUE	
?CCL15:	EQUAL?	PRSA,V?DRINK,V?TASTE \?CND9
	ICALL1	TASTE-NECTAR
	RTRUE	
?CND9:	EQUAL?	PRSA,V?EXAMINE \?CCL21
	PRINTI	"Despite a sticky coating on the inside, "
	ICALL1	THE-PRINT
	PRINTI	" gleams with the lustre of pure gold"
	ZERO?	B /?CND22
	PRINTI	". There's "
	ICALL2	PRINTA,BFLY
	PRINT	STR?493
?CND22:	PRINT	PERIOD
	RTRUE	
?CCL21:	EQUAL?	PRSA,V?TAKE \?CCL25
	FSET?	PRSO,TOUCHED /?CCL25
	CALL1	ITAKE
	ZERO?	STACK \?CND28
	INC	'IMPSAY
	RTRUE	
?CND28:	PRINTI	"The Implementor smiles kindly as you take "
	ICALL1	THE-PRINT
	PRINTI	". ""And now you will excuse us. My fellow Implementors and I must prepare for something too awesome to reveal to one as insignificant as you."""
	CRLF	
	ICALL1	ATRII-KICK
	RTRUE	
?CCL25:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL31
	ZERO?	B /?CND32
	REMOVE	BFLY
?CND32:	PRINTI	"Aside from a sticky coating, "
	CALL1	SEE-ANYTHING-IN?
	ZERO?	STACK /?CCL36
	PRINTI	"you see "
	ICALL1	CONTENTS
	SET	'P-IT-OBJECT,PRSO
	PRINT	SIN
	ICALL1	THE-PRINT
	ZERO?	B /?CND34
	PRINTI	". There's also "
	JUMP	?CND34
?CCL36:	ICALL1	THE-PRINT
	PRINTI	" is empty"
	ZERO?	B /?CND34
	PRINTI	". But there's "
?CND34:	ZERO?	B /?CND41
	MOVE	BFLY,PRSO
	ICALL2	PRINTA,BFLY
	PRINT	STR?493
?CND41:	PRINT	PERIOD
	RTRUE	
?CCL31:	EQUAL?	PRSA,V?TASTE,V?DRINK \?CCL44
	PRINTI	"[the sticky coating"
	PRINT	BRACKET
	ICALL1	TASTE-NECTAR
	RTRUE	
?CCL44:	EQUAL?	PRSA,V?SAY,V?YELL \FALSE
	ZERO?	GOBLET-WORD /FALSE
	CALL2	NOUN-USED?,GOBLET-WORD
	ZERO?	STACK /FALSE
	CALL1	SAY-GOBLET-WORD?
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	TASTE-NECTAR
	PRINTI	"Few indeed are those lucky enough to taste the nectar of the Implementors"
	FSET?	GOBLET,MUNGED /?CND1
	FSET	GOBLET,MUNGED
	PRINT	PERIOD
	ICALL	UPDATE-STAT,15,LUCK,TRUE-VALUE
	RTRUE	
?CND1:	PRINT	STR?597
	PRINTR	"very little remains."


	.FUNCT	SETUP-GOBLET,TBL
	CALL2	PICK-ONE,MAGIC-WORDS >TBL
	PUT	TBL,2,1
	GET	TBL,0 >GOBLET-WORD
	GET	TBL,1
	PUTP	GOBLET,P?NAME-TABLE,STACK
	GETPT	GOBLET,P?SYNONYM
	PUT	STACK,0,GOBLET-WORD
	GETPT	GOBLET,P?ADJECTIVE
	PUT	STACK,0,GOBLET-WORD
	FSET	GOBLET,PROPER
	FSET	GOBLET,NAMED
	FSET	GOBLET,IDENTIFIED
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	RFALSE	


	.FUNCT	SAY-GOBLET-WORD?
	EQUAL?	HERE,APLANE \?CCL3
	EQUAL?	ABOVE,OPLAIN \?CCL3
	PRINTR	"""Speak not that Name!"" growls an Implementor, polishing a thunderbolt."
?CCL3:	FSET?	GOBLET,NEUTRALIZED /FALSE
	EQUAL?	HERE,IN-SPLENDOR,IN-FROON,IN-GARDEN /?CTR8
	EQUAL?	HERE,APLANE /?CTR8
	FSET?	HERE,INDOORS \?CCL9
?CTR8:	PRINT	YOU-HEAR
	PRINTR	"a distant rumble of thunder."
?CCL9:	ICALL1	KERBLAM
	PRINTR	"Lightning forks across the sky."


	.FUNCT	IMPTAB-F,CONTEXT,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-CONT \FALSE
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL2	CTHE-PRINT,IMPS
	PRINTR	" growl at your approach."
?CCL3:	ZERO?	NOW-PRSI? /?CCL9
	EQUAL?	PRSA,V?PUT-UNDER,V?PUT-BEHIND \FALSE
	PRINTI	"There's no room under "
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL9:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL13
	PRINTR	"""Stop that,"" growls an Implementor."
?CCL13:	EQUAL?	PRSA,V?LOOK-UNDER,V?LOOK-BEHIND \FALSE
	PRINTR	"The Implementors' legs are there."


	.FUNCT	ALTAR-F,CONTEXT,OBJ,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-CONT \FALSE
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND6
	SET	'OBJ,PRSI
?CND6:	ZERO?	OBJ /FALSE
	IN?	CLERIC,IN-CHAPEL \FALSE
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	FSET	CLERIC,SEEN
	PRINTI	"""Touch not the sacred "
	ICALL2	DPRINT,OBJ
	PRINTI	"!"" growls "
	ICALL2	THE-PRINT,CLERIC
	PRINTI	", standing between you and "
	ICALL2	THE-PRINT,ALTAR
	PRINT	PERIOD
	ICALL1	CROWD-AGREES
	RTRUE	
?CCL3:	IN?	CLERIC,IN-CHAPEL \?CCL15
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL15
	FSET	CLERIC,SEEN
	PRINTI	"""Approach not the sacred altar!"" growls "
	ICALL2	THE-PRINT,CLERIC
	PRINT	PERIOD
	ICALL1	CROWD-AGREES
	RTRUE	
?CCL15:	ZERO?	NOW-PRSI? /FALSE
	EQUAL?	PRSA,V?PUT-UNDER,V?PUT-BEHIND \FALSE
	PRINTR	"There's no room there."


	.FUNCT	RELIQUARY-F,CONTEXT
	ZERO?	CONTEXT \FALSE
	ZERO?	NOW-PRSI? /?CCL5
	EQUAL?	PRSA,V?PUT-ON \FALSE
	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL5:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \FALSE
	ICALL1	LEATHER
	PRINTB	W?FOLDER
	FSET?	PRSO,OPENED \?CND10
	PRINTR	". Its metal clasp is open."
?CND10:	PRINTR	", closed with a metal clasp."


	.FUNCT	LEATHER
	ICALL1	CTHE-PRINT
	PRINTI	" looks like a leather "
	RFALSE	


	.FUNCT	OAK-F,CONTEXT
	ZERO?	CONTEXT /?CND1
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	PRINTI	"A barren "
	PRINTD	OAK2
	PRINTI	" looms over your path"
	ICALL2	LOOK-UNDER-OAK,OAK
	RTRUE	
?CND1:	CALL1	HANDLE-OAKS?
	RSTACK	


	.FUNCT	OAK2-F,CONTEXT
	ZERO?	CONTEXT /?CND1
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	PRINTI	"A stunted "
	PRINTD	OAK2
	PRINTI	" shades the inland road"
	ICALL2	LOOK-UNDER-OAK,OAK2
	RTRUE	
?CND1:	CALL1	HANDLE-OAKS?
	RSTACK	


	.FUNCT	HANDLE-OAKS?,X
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?PUT-UNDER \?CCL6
	ICALL	PERFORM,V?DROP,PRSO
	RTRUE	
?CCL6:	EQUAL?	PRSA,V?PUT-BEHIND \?CCL8
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	MOVE	PRSO,PRSI
	PRINTI	"You drop "
	ICALL1	THE-PRINT
	PRINTI	" behind "
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL8:	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	CTHE-PRINT
	PRINTI	" tumbles out of "
	ICALL1	THEI-PRINT
	PRINT	AND
	ICALL1	FALLS
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH,V?CLOSE /?CTR10
	EQUAL?	PRSA,V?REACH-IN,V?EMPTY \?CCL11
?CTR10:	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL11:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL15
	PRINTI	"Its gnarled roots cover "
	ICALL2	THE-PRINT,GROUND
	PRINTI	" at your feet"
	ICALL2	LOOK-UNDER-OAK,PRSO
	CRLF	
	RTRUE	
?CCL15:	EQUAL?	PRSA,V?LOOK-BEHIND,V?LOOK,V?LOOK-UNDER /?CTR16
	EQUAL?	PRSA,V?SEARCH,V?LOOK-INSIDE \?CCL17
?CTR16:	FIRST?	PRSO >X \?CND20
	ICALL1	PEERING-BEHIND
	RTRUE	
?CND20:	PRINT	YOU-SEE
	PRINTI	"nothing "
	CALL2	PICK-NEXT,YAWNS
	PRINT	STACK
	PRINTI	" anywhere under "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL17:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL23
	ICALL1	CLIMB-A-TREE
	RTRUE	
?CCL23:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \?CCL25
	ICALL1	EXIT-A-TREE
	RTRUE	
?CCL25:	EQUAL?	PRSA,V?STAND-UNDER \?CCL27
	PRINT	ALREADY
	PRINTI	"under "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL27:	EQUAL?	PRSA,V?DIG-UNDER \FALSE
	PRINTI	"You poke around under "
	ICALL1	THE-PRINT
	FSET?	PRSO,TOUCHED \?CCL32
	PRINTI	" a bit more"
	PRINT	STR?834
	RTRUE	
?CCL32:	EQUAL?	PRSI,SPADE /?CCL34
	PRINTI	", but "
	ICALL1	THEI-PRINT
	PRINTR	" makes a poor digging tool amid the tangled roots."
?CCL34:	LOC	TRUFFLE
	ZERO?	STACK /?CND30
	PRINT	WITH
	ICALL1	THEI-PRINT
	PRINT	STR?834
	RTRUE	
?CND30:	ICALL2	OAK-FIND,PRSO
	PRINTI	", and soon turn up "
	ICALL2	PRINTA,TRUFFLE
	PRINT	PERIOD
	RTRUE	


	.FUNCT	LOOK-UNDER-OAK,OBJ
	SET	'P-IT-OBJECT,OBJ
	FIRST?	OBJ >OBJ \?CND1
	PRINT	STR?766
	PRINTI	"behind it"
?CND1:	PRINTC	PER
	RFALSE	


	.FUNCT	EXIT-A-TREE
	PRINTI	"You're not in the tree."
	CRLF	
	RFALSE	


	.FUNCT	CLIMB-A-TREE
	EQUAL?	HERE,IN-PASTURE \?CND1
	PRINTI	"The windswept oak"
	PRINT	STR?835
	RFALSE	
?CND1:	PRINTI	"You clamber onto a convenient branch, but an ominous creak sends you scurrying back down."
	CRLF	
	RFALSE	


	.FUNCT	OAK-FIND,OBJ
	FSET	OBJ,TOUCHED
	LOC	OBJ
	MOVE	TRUFFLE,STACK
	FCLEAR	TRUFFLE,MUNGED
	SET	'TRUFFLE-TIMER,INIT-TRUFFLE
	ICALL2	QUEUE,I-TRUFFLE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'P-IT-OBJECT,TRUFFLE
	FCLEAR	MINX,SEEN
	RFALSE	


	.FUNCT	TRUFFLE-F,FRESH,X,WRD
	FSET?	TRUFFLE,MUNGED /?CCL2
	GRTR?	TRUFFLE-TIMER,40 \?CND1
?CCL2:	INC	'FRESH
?CND1:	SET	'WRD,W?GRAY
	CALL1	SEE-COLOR?
	ZERO?	STACK /?CND5
	SET	'WRD,W?BROWN
	CALL	ADJ-USED?,W?GRAY,W?GREY
	ZERO?	STACK /?CND5
	ICALL2	CTHE-PRINT,TRUFFLE
	PRINTI	" is brown, not gray."
	CRLF	
	RETURN	2
?CND5:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL15
	ICALL1	CTHE-PRINT
	PRINT	SIS
	ZERO?	FRESH \?CND16
	LESS?	TRUFFLE-TIMER,11 \?CCL19
	PRINTR	"almost too runny to be edible."
?CCL19:	LESS?	TRUFFLE-TIMER,31 \?CND16
	PRINTR	"getting a bit runny. Still edible, though."
?CND16:	PRINTI	"dark "
	PRINTB	WRD
	PRINTI	" in color, "
	ZERO?	FRESH /?CND21
	PRINTR	"and looks fresh from the harvest."
?CND21:	PRINTR	"with only a trace of runniness."
?CCL15:	EQUAL?	PRSA,V?EAT,V?TASTE \?CCL24
	ICALL1	VANISH
	PRINTI	"Gulp! Sure was yummy"
	ZERO?	FRESH /?CND25
	PRINTI	". Fresh-tasting, too"
?CND25:	PRINT	PERIOD
	FSET?	MINX,LIVING \TRUE
	CALL2	VISIBLE?,MINX
	ZERO?	STACK /TRUE
	FSET	MINX,SEEN
	PRINT	TAB
	ICALL2	CTHE-PRINT,MINX
	PRINTI	" mews with disappointment."
	CRLF	
	ICALL	UPDATE-STAT,-1,COMPASSION,TRUE-VALUE
	RTRUE	
?CCL24:	EQUAL?	PRSA,V?DRINK,V?DRINK-FROM \?CCL32
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL32:	EQUAL?	PRSA,V?SMELL \?CCL34
	PRINTI	"Mmm! Smells "
	ZERO?	FRESH /?CND35
	PRINTI	"delightfully fresh and "
?CND35:	PRINTR	"yummy."
?CCL34:	EQUAL?	PRSA,V?WHAT,V?WHERE,V?FIND \FALSE
	ICALL1	REFER-TO-PACKAGE
	RETURN	2


	.FUNCT	CASTLE-F,X
	EQUAL?	HERE,IN-GARDEN \?CCL3
	CALL1	HERE-F
	RSTACK	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-BEHIND \?CCL5
	PRINTI	"The distant "
	PRINTD	PRSO
	PRINTR	" is shrouded in mountain mist."
?CCL5:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH /?CTR6
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X /?CTR6
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL7
?CTR6:	ICALL1	CTHE-PRINT
	PRINTR	" is quite inaccessible from here."
?CCL7:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \FALSE
	ICALL1	NOT-IN
	RTRUE	


	.FUNCT	BUSH-F,CONTEXT,OBJ,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-BEG \?CCL6
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND7
	SET	'OBJ,PRSI
?CND7:	CALL	CANT-REACH-WHILE-IN?,OBJ,BUSH
	ZERO?	STACK /?CCL11
	RETURN	2
?CCL11:	IN?	QUEEN,IN-GARDEN \FALSE
	INTBL?	PRSA,TALKVERBS,NTVERBS >X \FALSE
	ICALL2	APPROACH-QUEEN,STR?656
	RETURN	2
?CCL6:	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	PRINTI	"The air is filled with the fragrance of a nearby "
	PRINTD	BUSH
	PRINTC	PER
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? /?CCL21
	EQUAL?	PRSA,V?PUT,V?PUT-UNDER,V?PUT-BEHIND \FALSE
	IN?	PLAYER,PRSI \?CCL26
	ICALL	PERFORM,V?DROP,PRSO
	RTRUE	
?CCL26:	EQUAL?	PRSO,ROOT \?CND24
	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CND24:	MOVE	PRSO,PRSI
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL1	CTHE-PRINT
	PRINTI	" disappears behind "
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL21:	EQUAL?	PRSA,V?EXAMINE \?CCL29
	IN?	PLAYER,PRSO \?CND30
	ICALL1	V-LOOK
	RTRUE	
?CND30:	PRINTI	"The thorny "
	PRINTD	PRSO
	PRINTR	" has thrust its roots deep into the soil beside the castle wall."
?CCL29:	EQUAL?	PRSA,V?LOOK-INSIDE,V?LOOK-BEHIND,V?LOOK-UNDER /?CTR32
	EQUAL?	PRSA,V?SEARCH \?CCL33
?CTR32:	IN?	PLAYER,PRSO /?CND36
	ICALL1	PEERING-BEHIND
	RTRUE	
?CND36:	ICALL1	ASIDE-FROM
	ICALL1	CONTENTS
	SET	'P-IT-OBJECT,PRSO
	PRINT	PERIOD
	RTRUE	
?CCL33:	EQUAL?	PRSA,V?ENTER,V?WALK-TO,V?THROUGH /?CTR38
	EQUAL?	PRSA,V?WALK-AROUND,V?STAND-UNDER \?CCL39
?CTR38:	ICALL1	ENTER-BUSH
	RTRUE	
?CCL39:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL43
	PRINTI	"Ouch! "
	ICALL1	NO-FOOTHOLDS
	RTRUE	
?CCL43:	EQUAL?	PRSA,V?TAKE,V?PICK,V?UPROOT /?CTR44
	EQUAL?	PRSA,V?LOOSEN,V?PULL,V?RAISE /?CTR44
	EQUAL?	PRSA,V?TOUCH,V?SQUEEZE \?CCL45
?CTR44:	EQUAL?	PRSA,V?TOUCH,V?SQUEEZE /?CND49
	FSET?	ROOT,NODESC \?CND49
	IN?	ROOT,PRSO \?CND49
	ICALL1	PICK-ROOT
	RTRUE	
?CND49:	PRINTI	"You prick your finger on a thorn. Ouch!"
	CRLF	
	ICALL2	UPDATE-STAT,-2
	RTRUE	
?CCL45:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \FALSE
	ICALL1	EXIT-BUSH
	RTRUE	


	.FUNCT	NO-FOOTHOLDS
	ICALL1	CTHE-PRINT
	PRINTR	" has no good footholds."


	.FUNCT	ENTER-BUSH
	IN?	PLAYER,BUSH \?CND1
	PRINTI	"Ouch! "
	PRINT	CANT
	PRINTI	"go in any farther."
	CRLF	
	RFALSE	
?CND1:	ICALL2	DO-THORNS,BUSH
	RFALSE	


	.FUNCT	DO-THORNS,DEST
	SET	'OLD-HERE,FALSE-VALUE
	SET	'P-WALK-DIR,FALSE-VALUE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINTI	"Ouch! "
	PRINT	STR?763
	IN?	PLAYER,BUSH \?CCL3
	PRINTI	"out of"
	JUMP	?CND1
?CCL3:	PRINTB	W?BEHIND
?CND1:	PRINTI	" the thorns."
	CRLF	
	MOVE	PLAYER,DEST
	ZERO?	DMODE /?CCL5
	EQUAL?	PRIOR,SHOWING-INV,SHOWING-STATS \TRUE
?CCL5:	ICALL2	RELOOK,TRUE-VALUE
	RTRUE	


	.FUNCT	EXIT-BUSH
	IN?	PLAYER,BUSH /?CND1
	PRINTI	"You're not behind "
	ICALL2	THE-PRINT,BUSH
	PRINT	PERIOD
	RFALSE	
?CND1:	ICALL2	DO-THORNS,IN-GARDEN
	IN?	QUEEN,IN-GARDEN \FALSE
	PRINT	TAB
	ICALL1	QUEEN-SEES-YOU
	RFALSE	


	.FUNCT	ROOT-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?TAKE,V?PICK,V?UPROOT /?PRD7
	EQUAL?	PRSA,V?PULL,V?LOOSEN,V?RAISE \?CCL5
?PRD7:	FSET?	PRSO,TOUCHED /?CCL5
	ICALL1	PICK-ROOT
	RTRUE	
?CCL5:	EQUAL?	PRSA,V?EAT,V?TASTE \?CCL11
	IN?	PRSO,PLAYER /?CND12
	ICALL2	YOUD-HAVE-TO,STR?680
	RTRUE	
?CND12:	PRINTI	"You gnaw thoughtfully on "
	ICALL1	THE-PRINT
	PRINTI	", "
	FSET?	PRSO,NEUTRALIZED /?CND14
	FSET?	PRSO,SEEN /?CND14
	FSET	PRSO,SEEN
	PRINTI	"and newfound vitality bubbles in your veins."
	CRLF	
	PUTP	PRSO,P?VALUE,0
	GET	STATS,STRENGTH
	DIV	STACK,3 >X
	LESS?	X,1 \?CND17
	SET	'X,1
?CND17:	ICALL	UPDATE-STAT,X,STRENGTH,TRUE-VALUE
	RTRUE	
?CND14:	PRINTI	"but its virtue appears to be "
	FSET?	PRSO,SEEN \?CND19
	PRINTR	"spent."
?CND19:	PRINTR	"neutralized."
?CCL11:	EQUAL?	PRSA,V?DRINK,V?DRINK-FROM \?CCL22
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL22:	EQUAL?	PRSA,V?PLANT \FALSE
	ICALL1	DO-PLANT
	RTRUE	


	.FUNCT	GENERIC-MORGIA-F,TBL,LEN
	ASSIGNED?	'LEN /?CND1
	GET	TBL,0 >LEN
?CND1:	RETURN	ROOT


	.FUNCT	PICK-ROOT
	EQUAL?	PRSI,FALSE-VALUE,HANDS /?CND1
	ICALL2	PRSI-FUMBLE,BUSH
	RTRUE	
?CND1:	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	SET	'P-IT-OBJECT,ROOT
	MOVE	ROOT,PLAYER
	FCLEAR	ROOT,NODESC
	FSET	ROOT,TOUCHED
	PRINTI	"Reaching carefully to avoid the thorns, you yank a loose root out from under "
	ICALL2	THE-PRINT,BUSH
	PRINT	PERIOD
	RTRUE	


	.FUNCT	BROG-F,CONTEXT,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-CONT \FALSE
	FSET?	BROG,OPENED /FALSE
	ZERO?	PRSO \?CCL8
	ZERO?	PRSI /FALSE
?CCL8:	PRINT	CANT
	PRINTI	"see that here."
	CRLF	
	RETURN	2
?CCL3:	ZERO?	NOW-PRSI? /?CCL14
	FSET?	PRSO,CONTAINER /FALSE
	EQUAL?	PRSA,V?PUT,V?EMPTY-INTO \FALSE
	ICALL1	NO-BROG-OPENINGS
	RTRUE	
?CCL14:	EQUAL?	PRSA,V?EXAMINE,V?SEARCH \?CCL20
	ICALL1	CTHE-PRINT
	PRINTI	" is a full head taller than you, but not as ugly"
	FSET?	PRSO,OPENED \?CCL23
	PRINTI	". Its secret compartment is still open"
	JUMP	?CND21
?CCL23:	FSET?	PRSO,CONTAINER \?CND21
	PRINTI	". Looking closely, you can trace the outlines of a secret compartment"
?CND21:	PRINT	PERIOD
	RTRUE	
?CCL20:	EQUAL?	PRSA,V?WALK-AROUND,V?LOOK-BEHIND \?CCL26
	PRINTI	"You circle "
	ICALL1	THE-PRINT
	PRINTI	", but find no"
	EQUAL?	P-PRSA-WORD,W?HIDE \?CND27
	PRINTR	" good places to hide."
?CND27:	PRINTI	"thing "
	CALL2	PICK-NEXT,YAWNS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CCL26:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL30
	ICALL1	CTHE-PRINT
	PRINT	STR?835
	RTRUE	
?CCL30:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \?CCL32
	ICALL1	NOT-ON
	RTRUE	
?CCL32:	FSET?	PRSO,CONTAINER /FALSE
	EQUAL?	PRSA,V?LOOK-INSIDE,V?OPEN,V?OPEN-WITH /?CTR35
	EQUAL?	PRSA,V?CLOSE,V?EMPTY \FALSE
?CTR35:	ICALL1	NO-BROG-OPENINGS
	RTRUE	


	.FUNCT	NO-BROG-OPENINGS
	ICALL2	CTHE-PRINT,BROG
	PRINTR	" has no obvious openings."


	.FUNCT	RUG-F,CONTEXT,X,L
	LOC	RUG >L
	EQUAL?	CONTEXT,M-OBJDESC \?CCL3
	ICALL2	PRINTCA,RUG
	PRINT	STR?792
	PRINT	LTHE
	ICALL1	GROUND-WORD
	CALL2	SEE-ANYTHING-IN?,RUG
	ZERO?	STACK /?CND4
	PRINT	STR?773
	ICALL2	CONTENTS,RUG
	SET	'P-IT-OBJECT,PRSO
?CND4:	PRINTC	PER
	RTRUE	
?CCL3:	ZERO?	CONTEXT \FALSE
	ZERO?	NOW-PRSI? /?CCL9
	EQUAL?	PRSA,V?TOUCH-TO \?CCL12
	ICALL2	TOUCH-RUG-WITH,PRSO
	RTRUE	
?CCL12:	EQUAL?	PRSA,V?PUT \?CCL14
	ICALL	PERFORM,V?PUT-ON,PRSO,PRSI
	RTRUE	
?CCL14:	EQUAL?	PRSA,V?PUT-UNDER,V?PUT-BEHIND \FALSE
	EQUAL?	PRSI,PRSO \?CCL18
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL18:	CALL1	GOT-RUG?
	ZERO?	STACK \TRUE
	ICALL2	STASH,UNDERUG
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?EXAMINE \?CCL21
	ICALL1	CTHE-PRINT
	IN?	PLAYER,PRSO \?CND22
	PRINTI	" on which you stand"
?CND22:	PRINTI	" is dreadfully old and ratty"
	CALL1	SEE-ANYTHING-IN?
	ZERO?	STACK /?CND24
	PRINT	STR?773
	ICALL1	CONTENTS
	SET	'P-IT-OBJECT,PRSO
?CND24:	PRINT	PERIOD
	RTRUE	
?CCL21:	EQUAL?	PRSA,V?SEARCH,V?LOOK-INSIDE,V?LOOK-ON \?CCL27
	IN?	PLAYER,PRSO \?CCL30
	ICALL1	ASIDE-FROM
	JUMP	?CND28
?CCL30:	PRINT	YOU-SEE
?CND28:	ICALL1	CONTENTS
	PRINT	SON
	ICALL1	THE-PRINT
	EQUAL?	PRSA,V?SEARCH \?CND31
	FIRST?	UNDERUG >X \?CND31
	PRINTI	". "
	IN?	PLAYER,PRSO \?CND35
	ICALL1	FEEL-UNDER-RUG
	RTRUE	
?CND35:	PRINTI	"Peering underneath, you find "
	ICALL2	CONTENTS,UNDERUG
?CND31:	SET	'P-IT-OBJECT,PRSO
	PRINT	PERIOD
	RTRUE	
?CCL27:	EQUAL?	PRSA,V?LOOK-UNDER,V?LOOK-BEHIND \?CCL38
	PRINT	YOU-SEE
	ICALL2	CONTENTS,UNDERUG
	SET	'P-IT-OBJECT,PRSO
	PRINTI	" under "
	ICALL2	THE-PRINT,UNDERUG
	PRINT	PERIOD
	RTRUE	
?CCL38:	EQUAL?	PRSA,V?WEAR,V?STAND-UNDER,V?ENTER /?CTR39
	EQUAL?	PRSA,V?THROUGH,V?SMELL \?CCL40
?CTR39:	EQUAL?	P-PRSA-WORD,W?LAY \?CCL45
	ICALL1	LIE-ON-RUG
	RTRUE	
?CCL45:	LOC	PLAYER
	EQUAL?	L,PLAYER,STACK /?CCL47
	ICALL	TAKE-FIRST,PRSO,L
	RTRUE	
?CCL47:	EQUAL?	PRSA,V?SMELL /?CND43
	PRINTI	"You duck under "
	PRINT	STR?836
	PRINTI	"out. "
?CND43:	PRINTR	"Phew!"
?CCL40:	EQUAL?	PRSA,V?TAKE \?CCL50
	CALL1	ITAKE
	ZERO?	STACK /TRUE
	ICALL	MOVE-ALL,UNDERUG,L
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINTI	"You lift "
	ICALL1	THE-PRINT
	ICALL2	OUT-OF-LOC,L
	PRINT	PERIOD
	RTRUE	
?CCL50:	EQUAL?	PRSA,V?TOUCH \?CCL54
	EQUAL?	P-PRSA-WORD,W?RUB,W?PET,W?PAT \?CND55
	ICALL2	TOUCH-RUG-WITH,HANDS
	RTRUE	
?CND55:	ICALL1	FEEL-RUG
	RTRUE	
?CCL54:	EQUAL?	PRSA,V?STAND-ON,V?CLIMB-ON,V?SIT /?CTR57
	EQUAL?	PRSA,V?LIE-DOWN,V?RIDE \?CCL58
?CTR57:	IN?	PLAYER,PRSO \?CCL63
	PRINT	ALREADY
	PRINTR	"on it."
?CCL63:	CALL1	GOT-RUG?
	ZERO?	STACK \TRUE
	EQUAL?	L,HERE /?CCL67
	ICALL	TAKE-FIRST,PRSO,L
	RTRUE	
?CCL67:	EQUAL?	PRSA,V?SIT,V?LIE-DOWN \?CND61
	ICALL1	LIE-ON-RUG
	RTRUE	
?CND61:	MOVE	PLAYER,RUG
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	SET	'P-WALK-DIR,FALSE-VALUE
	PRINTI	"You step onto "
	ICALL1	THE-PRINT
	ICALL1	RELOOK
	RTRUE	
?CCL58:	EQUAL?	PRSA,V?EXIT,V?LEAVE,V?ESCAPE \?CCL70
	IN?	PLAYER,PRSO /?CND71
	ICALL1	NOT-ON
	RTRUE	
?CND71:	MOVE	PLAYER,L
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	SET	'P-WALK-DIR,FALSE-VALUE
	PRINTI	"You step off "
	ICALL1	THE-PRINT
	ICALL1	RELOOK
	ICALL1	DO-CHARGE?
	RETURN	2
?CCL70:	EQUAL?	PRSA,V?CROSS \FALSE
	PRINTI	"You walk across "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	ICALL1	DO-CHARGE?
	RTRUE	


	.FUNCT	LIE-ON-RUG
	PRINTI	"You sprawl onto "
	PRINT	STR?836
	PRINTR	"off. Phew!"


	.FUNCT	FEEL-RUG,X
	FIRST?	UNDERUG >X \?CND1
	ICALL1	FEEL-UNDER-RUG
	RTRUE	
?CND1:	PRINTR	"It feels soft and hairy."


	.FUNCT	FEEL-UNDER-RUG
	PRINTR	"It feels as if there's something underneath."


	.FUNCT	TOUCH-RUG-WITH,OBJ
	PRINTI	"You rub "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" against the rug"
	EQUAL?	OBJ,HANDS,FEET \?CCL3
	PRINTI	". "
	ICALL1	FEEL-RUG
	JUMP	?CND1
?CCL3:	PRINT	PERIOD
?CND1:	FSET?	OBJ,FERRIC /FALSE
	ICALL1	DO-CHARGE?
	RTRUE	


	.FUNCT	DO-CHARGE?
	EQUAL?	HERE,ON-BRIDGE /FALSE
	PRINT	TAB
	PRINTI	"You feel "
	ZERO?	STATIC \?CCL5
	PRINTI	"the hairs on the back of your neck stand on end"
	JUMP	?CND3
?CCL5:	PRINTI	"your body hair tingle again"
?CND3:	PRINT	PERIOD
	GET	STATS,ENDURANCE
	IGRTR?	'STATIC,STACK \?CCL8
	PRINT	TAB
	ICALL2	ITALICIZE,STR?837
	PRINTI	"! The built-up static potential in your body discharges in a deadly flash"
	ICALL1	JIGS-UP
	RTRUE	
?CCL8:	IN?	DUST,HERE \TRUE
	PRINT	TAB
	ICALL2	CTHE-PRINT,DUST
	PRINTI	" crackle"
	FSET?	DUST,PLURAL /?CND10
	PRINTC	115
?CND10:	PRINTR	" uneasily."


	.FUNCT	GOT-RUG?
	IN?	RUG,PLAYER /?CCL2
	LOC	RUG
	IN?	STACK,PLAYER \FALSE
?CCL2:	ICALL	YOUD-HAVE-TO,STR?519,RUG
	RTRUE	


	.FUNCT	UNDERUG-F,CONTEXT,OBJ,X
	EQUAL?	CONTEXT,M-CONT \FALSE
	SET	'OBJ,PRSO
	ZERO?	NOW-PRSI? /?CND4
	SET	'OBJ,PRSI
?CND4:	ZERO?	OBJ /FALSE
	EQUAL?	PRSA,V?TAKE /FALSE
	INTBL?	PRSA,SEEVERBS,NSVERBS >X \?CCL12
	PRINTI	"That'd be easier if you took "
	JUMP	?CND6
?CCL12:	PRINT	STR?811
?CND6:	ICALL2	THE-PRINT,OBJ
	PRINTI	" out from under "
	ICALL2	THE-PRINT,UNDERUG
	PRINT	PERIOD
	RTRUE	


	.FUNCT	RING-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \?CCL5
	ICALL1	O-WEARING
	PRINTR	" is encircled with a pattern of curly lines resembling tongues of flame."
?CCL5:	EQUAL?	PRSA,V?WEAR \?CCL7
	FSET?	PRSO,WORN /?CCL7
	CALL1	DONT-HAVE?
	ZERO?	STACK \TRUE
	FSET	PRSO,WORN
	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	PRINTI	"A chill passes through your body as you slip "
	ICALL1	THE-PRINT
	PRINTR	" onto your finger."
?CCL7:	EQUAL?	PRSA,V?TAKE-OFF \FALSE
	FSET?	PRSO,WORN \FALSE
	CALL1	HOTFOOT?
	ZERO?	STACK \TRUE
	FCLEAR	PRSO,WORN
	BOR	NEW-DBOX,SHOWING-INV >NEW-DBOX
	PRINTI	"You slip "
	ICALL1	THE-PRINT
	PRINTR	" off your finger."


	.FUNCT	TRACKS-F,CONTEXT
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	PRINTI	"Tiny "
	PRINTD	TRACKS
	PRINTI	" are visible in the snow."
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? /?CCL7
	EQUAL?	PRSA,V?TOUCH-TO \?CCL10
	EQUAL?	P-PRSA-WORD,W?RUB \?CCL10
	ICALL2	RUBOUT-TRACKS,PRSO
	RTRUE	
?CCL10:	EQUAL?	PRSA,V?PUT-ON,V?EMPTY-INTO \FALSE
	ICALL	PERFORM,V?DROP,PRSO
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?EXAMINE,V?READ,V?LOOK-ON /?CTR14
	EQUAL?	PRSA,V?FOLLOW \?CCL15
?CTR14:	ICALL1	CTHE-PRINT
	PRINTI	" lead behind "
	ICALL2	THE-PRINT,OAK
	PRINT	PERIOD
	RTRUE	
?CCL15:	EQUAL?	PRSA,V?CLEAN-OFF \?CCL19
	EQUAL?	PRSI,FALSE-VALUE,GROUND,ROOMS /?CCL21
	EQUAL?	PRSI,SNOW \?CND20
?CCL21:	ICALL1	RUBOUT-TRACKS
	RTRUE	
?CND20:	ICALL1	CTHE-PRINT
	PRINTI	" aren't on "
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?ERASE-WITH,V?HIDE,V?KICK /?CTR24
	EQUAL?	PRSA,V?TAKE-OFF,V?MUNG,V?CLEAN \FALSE
?CTR24:	ICALL1	RUBOUT-TRACKS
	RTRUE	


	.FUNCT	RUBOUT-TRACKS,OBJ
	REMOVE	TRACKS
	SET	'P-THEM-OBJECT,NOT-HERE-OBJECT
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINTI	"You obliterate all trace of "
	ICALL2	THE-PRINT,TRACKS
	ZERO?	OBJ /?CND1
	PRINT	WITH
	ICALL2	THE-PRINT,OBJ
?CND1:	PRINT	PERIOD
	ICALL	UPDATE-STAT,15,COMPASSION,TRUE-VALUE
	RTRUE	


	.FUNCT	GURTH-F,X
	EQUAL?	HERE,IN-GURTH,AT-MAGICK,IN-MAGICK \?CCL3
	CALL1	HERE-F
	RSTACK	
?CCL3:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL5
	SET	'X,P?SW
	EQUAL?	HERE,XROADS \?CND6
	SET	'X,P?NORTH
?CND6:	ICALL2	DO-WALK,X
	RTRUE	
?CCL5:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \FALSE
	ICALL1	NOT-IN
	RTRUE	


	.FUNCT	CELLAR-F,X
	GETB	CELLAR-ROOMS,0 >X
	INTBL?	HERE,CELLAR-ROOMS+1,X,1 >X /?CTR2
	EQUAL?	HERE,BARRELTOP \?CCL3
?CTR2:	CALL1	HERE-F
	RSTACK	
?CCL3:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X /?CTR6
	EQUAL?	PRSA,V?CLIMB-DOWN \?CCL7
?CTR6:	EQUAL?	HERE,IN-KITCHEN \?CND10
	ICALL2	DO-WALK,P?DOWN
	RTRUE	
?CND10:	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL7:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \FALSE
	ICALL1	NOT-IN
	RTRUE	


	.FUNCT	SPADE-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" is worn but serviceable."


	.FUNCT	GLASS-F,X
	CALL2	NOUN-USED?,W?SAND
	ZERO?	STACK /?CND1
	EQUAL?	PRSA,V?SHAKE /?CND1
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE,V?SEARCH \?CCL6
	PRINTI	"The sand in "
	ICALL1	THE-PRINT
	PRINT	SIS
	ZERO?	GLASS-TOP /?CND7
	PRINTR	"falling in a steady trickle."
?CND7:	PRINTR	"exceptionally fine."
?CCL6:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES \?CND1
	PRINT	CANT
	PRINTI	"reach the sand. "
	ICALL2	ITS-SEALED,GLASS
	RTRUE	
?CND1:	ZERO?	NOW-PRSI? /?CCL12
	EQUAL?	PRSA,V?PUT,V?EMPTY-INTO \FALSE
	ICALL2	ITS-SEALED,GLASS
	RTRUE	
?CCL12:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH,V?REACH-IN /?CTR15
	EQUAL?	PRSA,V?CLOSE \?CCL16
?CTR15:	ICALL2	ITS-SEALED,GLASS
	RTRUE	
?CCL16:	EQUAL?	PRSA,V?SHAKE \?CCL20
	IN?	PRSO,PLAYER /?CND21
	ICALL2	YOUD-HAVE-TO,STR?680
	RTRUE	
?CND21:	PRINTI	"You give the "
	ZERO?	GLASS-TOP /?CND23
	PRINTI	"trickling sand in the "
?CND23:	PRINTD	GLASS
	PRINTI	" a vigorous shake."
	CRLF	
	ZERO?	GLASS-TOP \?PRG27
	ICALL2	QUEUE,I-GLASS
	ICALL1	ARCH-ON
?PRG27:	RANDOM	4 >X
	EQUAL?	X,GLASS-TOP /?PRG27
	SET	'GLASS-TOP,X
	SUB	X,FULL
	SUB	0,STACK >GLASS-BOT
	RTRUE	
?CCL20:	EQUAL?	PRSA,V?TURN,V?SPIN \?CCL32
	EQUAL?	PRSA,V?SPIN /?CCL34
	EQUAL?	PRSI,FALSE-VALUE,HANDS \?CND33
?CCL34:	IN?	PRSO,PLAYER /?CND37
	ICALL2	YOUD-HAVE-TO,STR?680
	RTRUE	
?CND37:	PRINTI	"You turn over "
	ICALL1	THE-PRINT
	PRINTI	", and watch as the sand "
	ZERO?	GLASS-TOP \?CND39
	SET	'GLASS-TOP,FULL
	SET	'GLASS-BOT,0
	ICALL2	QUEUE,I-GLASS
	PRINTI	"begins to fall in a slow, steady trickle."
	CRLF	
	ICALL1	ARCH-ON
	RTRUE	
?CND39:	PRINTI	"reverses "
	PRINTD	INTDIR
	PRINTI	" and resumes its steady trickle."
	CRLF	
	SET	'X,GLASS-TOP
	SET	'GLASS-TOP,GLASS-BOT
	SET	'GLASS-BOT,X
	RTRUE	
?CND33:	PRINT	DONT
	PRINTI	"need "
	ICALL1	THEI-PRINT
	PRINT	STO
	PRINTB	P-PRSA-WORD
	PRINTC	SP
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL32:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE,V?SEARCH \?CCL42
	PRINTI	"The miniature "
	PRINTD	GLASS
	PRINTI	" is wrought of brass and crystal"
	ZERO?	GLASS-TOP /?CND43
	PRINTR	". Fine, white sand is falling through it in a steady trickle."
?CND43:	PRINTR	", and filled with fine, white sand."
?CCL42:	EQUAL?	PRSA,V?LAMP-OFF \FALSE
	EQUAL?	P-PRSA-WORD,W?STOP,W?HALT \FALSE
	ZERO?	GLASS-TOP \?CND49
	PRINTI	"The sand in "
	ICALL1	THE-PRINT
	PRINTI	" isn't trickling"
	PRINT	AT-MOMENT
	RTRUE	
?CND49:	PRINTR	"Patience. It'll stop eventually."


	.FUNCT	ITS-SEALED,OBJ
	ICALL2	CTHE-PRINT,OBJ
	PRINTR	" is permanently sealed."


	.FUNCT	SCABBARD-F,X
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?PUT,V?EMPTY-INTO \FALSE
	ICALL1	CTHE-PRINT
	EQUAL?	PRSO,SWORD \?CCL8
	PRINTI	" seems oddly reluctant to enter "
	JUMP	?CND6
?CCL8:	GETP	PRSO,P?SIZE
	GRTR?	STACK,2 \?CCL10
	PRINTI	" won't fit in "
	JUMP	?CND6
?CCL10:	PRINTI	" would just fall through "
?CND6:	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE \FALSE
	PRINTR	"Only the mightiest blade could be worthy of such a sheath."


	.FUNCT	RFOOT-F
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?TOUCH-TO \FALSE
	EQUAL?	PRSO,HANDS,ME \FALSE
	ICALL1	RUB-RFOOT
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL9
	PRINTR	"Poor wittle bunny wabbit. Sniff."
?CCL9:	EQUAL?	PRSA,V?EAT,V?TASTE \?CCL11
	PRINTR	"Gross."
?CCL11:	EQUAL?	PRSA,V?TOUCH \FALSE
	EQUAL?	P-PRSA-WORD,W?RUB \FALSE
	ICALL1	RUB-RFOOT
	RTRUE	


	.FUNCT	RUB-RFOOT
	PRINTI	"You run a finger across "
	ICALL2	THE-PRINT,RFOOT
	PRINT	PERIOD
	FSET?	RFOOT,MUNGED /TRUE
	FSET?	RFOOT,NEUTRALIZED /TRUE
	FSET	RFOOT,MUNGED
	ICALL	UPDATE-STAT,10,LUCK,TRUE-VALUE
	RTRUE	


	.FUNCT	CLOVER-F,CONTEXT
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	ICALL2	PRINTCA,CLOVER
	PRINTI	" is growing at your feet."
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL9
	PRINTI	"Aside from its four leaves, the clover"
	PRINT	STR?667
	RTRUE	
?CCL9:	CALL1	FIRST-TAKE?
	ZERO?	STACK \TRUE
	EQUAL?	PRSA,V?COUNT \FALSE
	CALL2	NOUN-USED?,W?LEAVES
	ZERO?	STACK /FALSE
	PRINTR	"One. Two. Three. Four. Satisfied?"


	.FUNCT	SHOE-F,CONTEXT
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	ICALL2	PRINTCA,SHOE
	PRINT	STR?497
	ICALL2	THE-PRINT,GCORNER
	PRINTC	PER
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	CALL1	FIRST-TAKE?
	ZERO?	STACK \TRUE
	EQUAL?	PRSA,V?WEAR \FALSE
	PRINTR	"No."


	.FUNCT	DIAMOND-F,CONTEXT,X,TBL
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	ICALL2	PRINTCA,DIAMOND
	PRINTI	" glitters at your feet."
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?TAKE \?CCL9
	FSET?	PRSO,TOUCHED /?CCL9
	CALL1	ITAKE
	ZERO?	STACK /TRUE
	ICALL1	CTHE-PRINT
	PRINTI	" feels unusually hard as you pick it up. Hard as a diamond, in fact."
	CRLF	
	PUTP	PRSO,P?DESCFCN,0
	PUTP	PRSO,P?SDESC,0
	GETPT	PRSO,P?SYNONYM >TBL
	PUT	TBL,0,W?DIAMOND
	PUT	TBL,1,W?GEM
	PUT	TBL,2,W?STONE
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \FALSE
	FSET?	PRSO,TOUCHED /?CND16
	ICALL1	CTHE-PRINT
	PRINTR	" glitters invitingly."
?CND16:	PRINTR	"This remarkable gem is fashioned in the likeness of a snowflake."


	.FUNCT	HANDLE-SCROLL-F,X,WRD
	ZERO?	NOW-PRSI? /?CND1
	EQUAL?	PRSA,V?PUT-ON,V?EMPTY-INTO \FALSE
	ICALL1	WASTE-OF-TIME
	RTRUE	
?CND1:	GETPT	PRSO,P?SYNONYM
	GET	STACK,1 >WRD
	EQUAL?	PRSA,V?SAY,V?YELL \?CCL7
	EQUAL?	WRD,W?ZZZP /?CCL7
	CALL2	NOUN-USED?,WRD
	ZERO?	STACK /?CCL7
	GETP	PRSO,P?EFFECT
	CALL	STACK,PRSO >X
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?READ \?CCL12
	ICALL1	READ-SCROLL
	RTRUE	
?CCL12:	CALL1	FIRST-TAKE?
	ZERO?	STACK \TRUE
	EQUAL?	PRSA,V?RIP,V?SQUEEZE \FALSE
	ICALL1	VANISH
	ICALL2	ITALICIZE,STR?615
	PRINTI	"! "
	ICALL1	CTHE-PRINT
	PRINTR	" evaporates in a flash."


	.FUNCT	GENERIC-PAPER-F,TBL,LEN
	ASSIGNED?	'LEN /?CND1
	GET	TBL,0 >LEN
?CND1:	ADD	TBL,2
	INTBL?	P-IT-OBJECT,STACK,LEN >TBL \FALSE
	RETURN	P-IT-OBJECT


	.FUNCT	READ-SCROLL,SYNS,TBL,WRD,STAT,X
	IN?	PRSO,PLAYER /?CND1
	PRINTI	"The writing on "
	ICALL1	THE-PRINT
	PRINTR	" is quite tiny. You'll have to pick it up to read it."
?CND1:	GETPT	PRSO,P?SYNONYM >SYNS
	GET	SYNS,1 >WRD
	EQUAL?	WRD,W?ZZZP \?CND3
	CALL2	PICK-ONE,MAGIC-WORDS >TBL
	PUT	TBL,2,1
	GET	TBL,0 >WRD
	PUT	SYNS,1,WRD
	GETPT	PRSO,P?ADJECTIVE
	PUT	STACK,1,WRD
	GET	TBL,1
	PUTP	PRSO,P?NAME-TABLE,STACK
?CND3:	PRINTI	"The meaning of "
	ICALL1	THE-PRINT
	PRINTI	" is obscure. It seems to have something to do with "
	GETP	PRSO,P?DNUM
	PRINT	STACK
	PRINTI	". "
	GETP	PRSO,P?READIQ >X
	GET	STATS,INTELLIGENCE >STAT
	LESS?	STAT,X /?CCL7
	PRINT	STR?838
	EQUAL?	HOST,APPLE-2E,APPLE-2C,C128 \?CCL10
	PRINTC	34
	JUMP	?CND8
?CCL10:	HLIGHT	H-ITALIC
?CND8:	GETP	PRSO,P?NAME-TABLE
	ICALL2	PRINT-TABLE,STACK
	EQUAL?	HOST,APPLE-2E,APPLE-2C,C128 \?CND11
	PRINTC	34
?CND11:	HLIGHT	H-NORMAL
	PRINT	SIS
	JUMP	?CND5
?CCL7:	ZERO?	VT220 \?CCL14
	PRINTI	"Strange, flowing runes are "
	JUMP	?CND5
?CCL14:	PRINTI	"The runes "
	ICALL2	RUNE,WRD
	PRINTI	" are "
?CND5:	PRINTI	"inscribed across the top"
	LESS?	STAT,X \?CND15
	PRINTI	"; you could probably understand them if you'd studied harder at school"
?CND15:	PRINT	PERIOD
	RTRUE	


	.FUNCT	RUNE,WRD,PTR,LEN,CHAR,X
	DIROUT	D-TABLE-ON,AUX-TABLE
	PRINTB	WRD
	DIROUT	D-TABLE-OFF
	GET	AUX-TABLE,0
	ADD	STACK,1 >LEN
	SET	'PTR,2
?PRG1:	FONT	F-NEWFONT >X
	GETB	AUX-TABLE,PTR >CHAR
	LESS?	CHAR,97 /?CCL4
	GRTR?	CHAR,122 \?CND3
?CCL4:	FONT	F-DEFAULT >X
?CND3:	PRINTC	CHAR
	IGRTR?	'PTR,LEN \?PRG1
	FONT	F-DEFAULT >X
	RFALSE	


	.FUNCT	DO-PARTAY,OBJ
	ASSIGNED?	'OBJ /?CND1
	SET	'OBJ,PRSO
?CND1:	CALL2	FINE-PRINT?,OBJ
	ZERO?	STACK \TRUE
	ICALL2	VANISH,OBJ
	ICALL2	ITALICIZE,STR?615
	PRINTI	"! "
	ICALL2	CTHE-PRINT,OBJ
	PRINT	STR?578
	PRINTR	". At the same moment, a housewife in a suburb of Mareilon watches in astonishment as her lawn furniture silently rearranges itself."


	.FUNCT	DO-BLESS-WEAPON,SCR,CNT,OBJ,WOBJ,X
	ASSIGNED?	'SCR /?CND1
	SET	'SCR,PRSO
?CND1:	CALL2	FINE-PRINT?,SCR
	ZERO?	STACK \TRUE
	ICALL2	VANISH,SCR
	ICALL2	ITALICIZE,STR?615
	PRINTI	"! "
	ICALL2	CTHE-PRINT,SCR
	PRINT	STR?578
	FIRST?	PLAYER >OBJ \?CND5
?PRG7:	FSET?	OBJ,WEAPON \?CND9
	FSET?	OBJ,WIELDED \?CND9
	GETP	OBJ,P?EFFECT >X
	ZERO?	X /?CND9
	INC	'CNT
	SET	'WOBJ,OBJ
	DIV	X,2
	ADD	X,STACK
	PUTP	OBJ,P?EFFECT,STACK
	GETP	OBJ,P?VALUE >X
	DIV	X,3
	ADD	X,STACK
	PUTP	OBJ,P?VALUE,STACK
?CND9:	NEXT?	OBJ >OBJ /?PRG7
?CND5:	ZERO?	CNT /?CND17
	PRINT	COMMA-AND
	EQUAL?	CNT,1 \?CCL21
	ICALL2	SAY-YOUR,WOBJ
	PRINTI	" flickers"
	JUMP	?CND19
?CCL21:	PRINTI	"your weapons flicker"
?CND19:	PRINTI	" with newfound power"
?CND17:	PRINT	PERIOD
	RTRUE	


	.FUNCT	DO-BLESS-ARMOR,SCR,CNT,NAC,OBJ,WOBJ,X
	ASSIGNED?	'SCR /?CND1
	SET	'SCR,PRSO
?CND1:	CALL2	FINE-PRINT?,SCR
	ZERO?	STACK \TRUE
	ICALL2	VANISH,SCR
	ICALL2	ITALICIZE,STR?615
	PRINTI	"! "
	ICALL2	CTHE-PRINT,SCR
	PRINT	STR?578
	FIRST?	PLAYER >OBJ \?CND5
?PRG7:	FSET?	OBJ,WORN \?CND9
	GETP	OBJ,P?EFFECT >X
	ZERO?	X /?CND9
	INC	'CNT
	SET	'WOBJ,OBJ
	DIV	X,2
	ADD	X,STACK >X
	GRTR?	X,STATMAX \?CND13
	SET	'X,STATMAX
?CND13:	ADD	NAC,X >NAC
	PUTP	OBJ,P?EFFECT,X
	GETP	OBJ,P?VALUE >X
	DIV	X,3
	ADD	X,STACK
	PUTP	OBJ,P?VALUE,STACK
?CND9:	NEXT?	OBJ >OBJ /?PRG7
?CND5:	ZERO?	CNT /?CND17
	PRINT	COMMA-AND
	EQUAL?	CNT,1 \?CCL21
	ICALL2	SAY-YOUR,WOBJ
	JUMP	?CND19
?CCL21:	PRINTI	"your armor"
?CND19:	PRINTI	" flickers with newfound ruggedness"
?CND17:	PRINT	PERIOD
	ZERO?	NAC /TRUE
	GET	STATS,AC
	SUB	NAC,STACK
	ICALL	UPDATE-STAT,STACK,AC
	RTRUE	


	.FUNCT	DO-FILFRE,OBJ
	ASSIGNED?	'OBJ /?CND1
	SET	'OBJ,PRSO
?CND1:	CALL2	FINE-PRINT?,OBJ
	ZERO?	STACK \TRUE
	ICALL2	VANISH,OBJ
	ICALL1	V-$CREDITS
	CRLF	
	PRINTR	"The fireworks fade around you."


	.FUNCT	DO-GOTO,OBJ
	ASSIGNED?	'OBJ /?CND1
	SET	'OBJ,PRSO
?CND1:	CALL2	FINE-PRINT?,OBJ
	ZERO?	STACK \TRUE
	ICALL2	VANISH,OBJ
	ICALL1	KERBLAM
	PRINTI	"A searing flash consumes "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" in an instant, burning its runes upon your retina. Vision soon returns; but "
	ICALL2	THE-PRINT,GWORD
	PRINTI	" continue to swim before your eyes"
	EQUAL?	HERE,ON-BRIDGE,IN-SKY,OVER-JUNGLE \?CND5
	PRINTR	" until a puff of wind disperses them."
?CND5:	PRINT	PERIOD
	MOVE	GWORD,HERE
	SET	'P-THEM-OBJECT,GWORD
	SET	'P-IT-OBJECT,GWORD
	GETPT	OBJ,P?SYNONYM
	GET	STACK,1 >TELEWORD
	GETPT	GWORD,P?SYNONYM
	PUT	STACK,0,TELEWORD
	GETPT	GWORD,P?ADJECTIVE
	PUT	STACK,0,TELEWORD
	GETP	OBJ,P?NAME-TABLE
	PUTP	GWORD,P?NAME-TABLE,STACK
	GETP	OBJ,P?READIQ
	PUTP	GWORD,P?READIQ,STACK
	RTRUE	


	.FUNCT	GWORD-F,CONTEXT,DUMB,TBL,X
	GETP	GWORD,P?NAME-TABLE >TBL
	GETP	GWORD,P?READIQ >X
	GET	STATS,INTELLIGENCE
	LESS?	STACK,X \?CND1
	INC	'DUMB
?CND1:	EQUAL?	CONTEXT,M-OBJDESC \?CCL5
	ZERO?	DUMB \?CCL8
	PRINT	STR?65
	ICALL2	PRINT-TABLE,TBL
	PRINTI	""" hangs "
	JUMP	?CND6
?CCL8:	PRINTI	"Glowing runes hang "
?CND6:	PRINTI	"suspended in midair."
	RTRUE	
?CCL5:	ZERO?	CONTEXT \FALSE
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL12
	ICALL2	CTHE-PRINT,GWORD
	PRINTI	" seem"
	PRINT	STR?772
	RTRUE	
?CCL12:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?READ,V?LOOK-ON \?CCL16
	PRINT	XTHE
	ZERO?	DUMB /?CND17
	ZERO?	VT220 \?CND17
	PRINTI	"undecipherable "
?CND17:	PRINTI	"runes swim in your vision like the afterglow of a meteor"
	ZERO?	DUMB /?CCL22
	ZERO?	VT220 /?CND21
?CCL22:	PRINTI	", forming the word "
	ZERO?	DUMB \?CCL27
	HLIGHT	H-ITALIC
	ICALL2	PRINT-TABLE,TBL
	HLIGHT	H-NORMAL
	JUMP	?CND21
?CCL27:	ICALL2	RUNE,TELEWORD
?CND21:	PRINT	PERIOD
	RTRUE	
?CCL16:	EQUAL?	PRSA,V?SAY,V?YELL \?CCL29
	CALL2	NOUN-USED?,TELEWORD
	ZERO?	STACK /?CCL29
	ICALL1	SAY-TELEWORD
	RTRUE	
?CCL29:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" recede from your approach."


	.FUNCT	SAY-TELEWORD,L
	LOC	GWORD >L
	LOC	PLAYER
	EQUAL?	L,STACK \?CND1
	ICALL2	CTHE-PRINT,GWORD
	PRINTI	" flare with Magick, and you "
	PRINT	STR?839
	PRINT	PERIOD
	RTRUE	
?CND1:	CALL1	GRUE-ROOM?
	ZERO?	STACK \?CCL4
	IN?	PLAYER,ARCH /?CCL4
	EQUAL?	ATIME,PRESENT \?CCL4
	EQUAL?	HERE,IN-FROON,IN-GARDEN,APLANE /?CCL4
	EQUAL?	HERE,IN-SPLENDOR /?CCL4
	CALL1	PLAIN-ROOM?
	ZERO?	STACK /?CND3
?CCL4:	PRINT	CYOU
	PRINT	STR?839
	PRINTI	" as unseen forces struggle for control. "
	ICALL1	INFLUENCE
	RTRUE	
?CND3:	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	ICALL1	SAFE-VEHICLE-EXIT
	ICALL2	GOTO,L
	RTRUE	


	.FUNCT	FINE-PRINT?,OBJ
	ASSIGNED?	'OBJ /?CND1
	SET	'OBJ,PRSO
?CND1:	CALL2	VISIBLE?,OBJ
	ZERO?	STACK \?CCL5
	PRINT	STR?512
	CRLF	
	RTRUE	
?CCL5:	IN?	OBJ,PLAYER /?CCL7
	ICALL2	SPUTTERS,OBJ
	PRINTR	"Perhaps you must hold it to wield its Magick."
?CCL7:	FSET?	OBJ,NEUTRALIZED \?CCL9
	ICALL2	SPUTTERS,OBJ
	PRINTI	"Its virtue"
	PRINT	STR?647
	PRINT	PERIOD
	RTRUE	
?CCL9:	CALL2	NO-MAGIC-HERE?,OBJ
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	NEXT-SCROLL?,FCN,RM,OBJ
	CALL2	PICK-ONE,SCROLL-LIST >OBJ
	FSET?	OBJ,NODESC \FALSE
	FCLEAR	OBJ,NODESC
	ICALL2	INIT-SCROLL,OBJ
	ASSIGNED?	'FCN \?CND4
	PUTP	OBJ,P?DESCFCN,FCN
?CND4:	ASSIGNED?	'RM /?CCL7
	RETURN	OBJ
?CCL7:	MOVE	OBJ,RM
	RETURN	OBJ


	.FUNCT	INIT-SCROLL,OBJ,TBL,X
	CALL2	PICK-ONE,SCROLL-FUNCTIONS >TBL
	GET	TBL,0
	PUTP	OBJ,P?EFFECT,STACK
	GET	TBL,1
	PUTP	OBJ,P?SDESC,STACK
	GET	TBL,2 >X
	GETPT	OBJ,P?SYNONYM
	PUT	STACK,0,X
	GETPT	OBJ,P?ADJECTIVE
	PUT	STACK,0,X
	GET	TBL,3
	PUTP	OBJ,P?DNUM,STACK
	GET	TBL,4
	PUTP	OBJ,P?VALUE,STACK
	GET	TBL,5
	PUTP	OBJ,P?READIQ,STACK
	RFALSE	


	.FUNCT	DO-RENEWAL,OBJ,STAT,MAX,OLD
	ASSIGNED?	'OBJ /?CND1
	SET	'OBJ,PRSO
?CND1:	CALL2	FINE-PRINT?,OBJ
	ZERO?	STACK \TRUE
	ICALL2	VANISH,OBJ
	PRINTI	"A refreshing pink aura envelops you "
	FIRST?	PLAYER \?CND5
	PRINTI	"and all your possessions "
?CND5:	PRINTI	"as you study "
	ICALL2	THE-PRINT,OBJ
	PRINTI	". Then the aura fades, and "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" disappears."
	CRLF	
	ICALL2	RENEW-ALL-IN,PLAYER
	SET	'STAT,ENDURANCE
?PRG7:	GET	MAXSTATS,STAT >MAX
	GET	STATS,STAT >OLD
	GRTR?	MAX,OLD \?CND9
	SUB	MAX,OLD
	ICALL	UPDATE-STAT,STACK,STAT
?CND9:	IGRTR?	'STAT,LUCK \?PRG7
	ICALL1	BMODE-OFF
	RTRUE	


	.FUNCT	RENEW-ALL-IN,OBJ,L
	FSET?	GURDY,OPENED \?CND1
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
?CND1:	LOC	DAGGER >L
	ZERO?	L /?CND3
	EQUAL?	L,OBJ /?CCL5
	IN?	L,OBJ \?CND3
?CCL5:	FSET?	DAGGER,MUNGED \?CND3
	FCLEAR	DAGGER,MUNGED
	PUTP	DAGGER,P?EFFECT,30
	GETP	DAGGER,P?VALUE
	MUL	STACK,2
	PUTP	DAGGER,P?VALUE,STACK
	ICALL	REPLACE-ADJ?,DAGGER,W?RUSTED,W?ZZZP
	ICALL	REPLACE-ADJ?,DAGGER,W?RUSTY,W?ZZZP
?CND3:	LOC	TRUFFLE >L
	ZERO?	L /?CND10
	EQUAL?	L,OBJ /?CCL12
	IN?	L,OBJ \?CND10
?CCL12:	FSET?	TRUFFLE,MUNGED \?CCL17
	FCLEAR	TRUFFLE,MUNGED
	SET	'TRUFFLE-TIMER,INIT-TRUFFLE
	ICALL2	QUEUE,I-TRUFFLE
	JUMP	?CND10
?CCL17:	GRTR?	TRUFFLE-TIMER,1 \?CND10
	DIV	TRUFFLE-TIMER,2 >TRUFFLE-TIMER
?CND10:	LOC	LANTERN >L
	ZERO?	L /?CND19
	EQUAL?	L,OBJ /?CCL21
	IN?	L,OBJ \?CND19
?CCL21:	SET	'LAMP-LIFE,MAX-LAMP-LIFE
	FCLEAR	LANTERN,MUNGED
	FSET	LANTERN,MAPPED
	ICALL	REPLACE-ADJ?,LANTERN,W?BROKEN,W?ZZZP
	ICALL	REPLACE-ADJ?,LANTERN,W?RUSTY,W?ZZZP
	ICALL	REPLACE-ADJ?,LANTERN,W?RUSTED,W?ZZZP
	FSET?	LANTERN,OPENED /?CND19
	CALL2	VISIBLE?,LANTERN
	ZERO?	STACK /?CND26
	PRINT	TAB
	ICALL2	CTHE-PRINT,LANTERN
	PRINTI	" begins to glow."
	CRLF	
?CND26:	ICALL1	LIGHT-LANTERN
?CND19:	LOC	GLASS >L
	ZERO?	L /?CND28
	ZERO?	GLASS-TOP /?CND28
	EQUAL?	L,OBJ /?CCL31
	IN?	L,OBJ \?CND28
?CCL31:	SET	'GLASS-TOP,FULL
	SET	'GLASS-BOT,0
?CND28:	LOC	BFLY >L
	ZERO?	L /?CND34
	EQUAL?	L,OBJ /?CCL36
	IN?	L,OBJ \?CND34
?CCL36:	FSET?	BFLY,LIVING /?CCL41
	FSET	BFLY,LIVING
	FSET?	BFLY,MUNGED \?CCL44
	ICALL2	QUEUE,I-PILLAR
	JUMP	?CND42
?CCL44:	ICALL2	QUEUE,I-BFLY
?CND42:	FCLEAR	BFLY,SLEEPING
	ICALL	REPLACE-ADJ?,BFLY,W?DEAD,W?ZZZP
	JUMP	?CND34
?CCL41:	FSET?	BFLY,MUNGED \?CND34
	ICALL2	DEQUEUE,I-PILLAR
	ICALL2	QUEUE,I-BFLY
	FCLEAR	BFLY,MUNGED
	FCLEAR	BFLY,TAKEABLE
	ICALL	REPLACE-SYN?,BFLY,W?CATERPILLAR,W?BUTTERFLY
	ICALL	REPLACE-SYN?,BFLY,W?ZZZP,W?FLY
	ICALL	REPLACE-ADJ?,BFLY,W?ZZZP,W?BUTTER
?CND34:	LOC	PARASOL >L
	ZERO?	L /FALSE
	EQUAL?	L,OBJ /?CCL48
	IN?	L,OBJ \FALSE
?CCL48:	FSET?	PARASOL,MUNGED \FALSE
	FCLEAR	PARASOL,MUNGED
	ICALL	REPLACE-ADJ?,PARASOL,W?BROKEN,W?CLOSED
	FSET	PARASOL,BUOYANT
	PUTP	PARASOL,P?VALUE,2
	RFALSE	


	.FUNCT	MUNG-ALL-IN,OBJ,L
	FSET?	GURDY,OPENED \?CND1
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
?CND1:	LOC	DAGGER >L
	ZERO?	L /?CND3
	EQUAL?	L,OBJ /?CCL5
	IN?	L,OBJ \?CND3
?CCL5:	FSET	DAGGER,MUNGED
	PUTP	DAGGER,P?EFFECT,25
	GETP	DAGGER,P?VALUE
	DIV	STACK,2
	PUTP	DAGGER,P?VALUE,STACK
	ICALL	REPLACE-ADJ?,DAGGER,W?ZZZP,W?RUSTY
	ICALL	REPLACE-ADJ?,DAGGER,W?ZZZP,W?RUSTED
?CND3:	LOC	TRUFFLE >L
	ZERO?	L /?CND8
	EQUAL?	L,OBJ /?CCL10
	IN?	L,OBJ \?CND8
?CCL10:	FSET?	TRUFFLE,MUNGED /?CND8
	SET	'TRUFFLE-TIMER,INIT-TRUFFLE
?CND8:	LOC	GLASS >L
	ZERO?	L /?CND15
	ZERO?	GLASS-TOP /?CND15
	EQUAL?	L,OBJ /?CCL18
	IN?	L,OBJ \?CND15
?CCL18:	SET	'GLASS-TOP,1
	SET	'GLASS-BOT,4
?CND15:	LOC	LANTERN >L
	ZERO?	L /?CND21
	EQUAL?	L,OBJ /?CCL23
	IN?	L,OBJ \?CND21
?CCL23:	LESS?	LAMP-LIFE,20 /?CND26
	SET	'LAMP-LIFE,20
?CND26:	FCLEAR	LANTERN,MAPPED
	ICALL	REPLACE-ADJ?,LANTERN,W?ZZZP,W?RUSTY
	ICALL	REPLACE-ADJ?,LANTERN,W?ZZZP,W?RUSTED
	FSET?	LANTERN,OPENED /?CND21
	CALL2	VISIBLE?,LANTERN
	ZERO?	STACK /?CND30
	PRINT	TAB
	ICALL2	CTHE-PRINT,LANTERN
	PRINTI	" goes out."
	CRLF	
?CND30:	ICALL1	LANTERN-OUT
?CND21:	LOC	BFLY >L
	ZERO?	L /FALSE
	EQUAL?	L,OBJ /?CCL34
	IN?	L,OBJ \FALSE
?CCL34:	FSET?	BFLY,MUNGED /FALSE
	ICALL1	SETUP-PILLAR
	RFALSE	


	.FUNCT	SETUP-PILLAR
	FSET?	BFLY,LIVING \?CND1
	ICALL2	DEQUEUE,I-BFLY
	ICALL2	QUEUE,I-PILLAR
?CND1:	FSET	BFLY,MUNGED
	FSET	BFLY,TAKEABLE
	ICALL	REPLACE-SYN?,BFLY,W?BUTTERFLY,W?CATERPILLAR
	ICALL	REPLACE-SYN?,BFLY,W?FLY,W?ZZZP
	ICALL	REPLACE-ADJ?,BFLY,W?BUTTER,W?ZZZP
	RFALSE	


	.FUNCT	DO-GATE,OBJ,X
	ASSIGNED?	'OBJ /?CND1
	SET	'OBJ,PRSO
?CND1:	ZERO?	PALIMP-CHARGES \?CCL5
	PRINTI	"Nothing happens. "
	ICALL2	CTHE-PRINT,OBJ
	PRINTR	"'s virtue seems to be exhausted."
?CCL5:	EQUAL?	HERE,APLANE \?CCL7
	EQUAL?	ABOVE,OPLAIN \?CND8
	ICALL1	PERMISSION
	RTRUE	
?CND8:	CALL1	DOWN-TO? >X
	ZERO?	X \?CND3
	SET	'X,HILLTOP
	JUMP	?CND3
?CCL7:	CALL2	FINE-PRINT?,OBJ
	ZERO?	STACK \TRUE
	GETP	HERE,P?FNUM >X
	ZERO?	X \?CND14
	SET	'X,OCITY
?CND14:	DEC	'PALIMP-CHARGES
?CND3:	ICALL1	PCLEAR
	SET	'P-WALK-DIR,FALSE-VALUE
	FSET	PALIMP,USED
	ZERO?	AUTO /?CND16
	ICALL1	BMODE-OFF
?CND16:	FSET?	APLANE,TOUCHED /?CND18
	PRINTI	"As you speak the Word on "
	ICALL2	THE-PRINT,OBJ
	PRINTI	", the "
	FSET?	HERE,INDOORS \?CCL22
	PRINTI	"walls, floor and "
	PRINTD	CEILING
	JUMP	?CND20
?CCL22:	PRINTI	"sky and "
	PRINTB	W?LANDSCAPE
?CND20:	PRINTI	" begin to warp like a funhouse mirror"
	PRINT	PTAB
?CND18:	ICALL1	LOSE-FOCUS
	EQUAL?	HERE,APLANE /?CND23
	IN?	SHAPE,APLANE \?CND25
	REMOVE	SHAPE
?CND25:	CALL2	HELD?,PHASE
	ZERO?	STACK /?CND27
	ICALL1	SETUP-PHASE
?CND27:	ICALL1	SAFE-VEHICLE-EXIT
	SET	'SAME-COORDS,TRUE-VALUE
	SET	'ABOVE,X
	ICALL1	GET-APLANE-THINGS
	SET	'X,APLANE
?CND23:	ICALL2	GOTO,X
	RTRUE	


	.FUNCT	SAFE-VEHICLE-EXIT,X
	LOC	PLAYER >X
	EQUAL?	X,HERE /?CND1
	EQUAL?	X,POOL \?CCL5
	ICALL1	SETUP-POND-EXITS
	JUMP	?CND3
?CCL5:	EQUAL?	X,MAW \?CND3
	ICALL1	CLEAR-MAW-EXITS
?CND3:	FSET	GONDOLA,NODESC
	FCLEAR	DACT,NODESC
	MOVE	PLAYER,HERE
?CND1:	GETB	CELLAR-ROOMS,0 >X
	INTBL?	HERE,CELLAR-ROOMS+1,X,1 >X \FALSE
	FCLEAR	CELLAR-DOOR,LOCKED
	RFALSE	


	.FUNCT	LOSE-FOCUS
	PRINTI	"Your eyes lose their focus momentarily."
	CRLF	
	ZERO?	VERBOSITY /?CND1
	CRLF	
?CND1:	EQUAL?	HERE,APLANE \FALSE
	EQUAL?	ABOVE,OPLAIN \?CND5
	ICALL1	EXIT-IMPS
?CND5:	CALL2	HELD?,PHASE
	ZERO?	STACK /FALSE
	ICALL1	MUNG-PHASE
	RFALSE	


	.FUNCT	ATRII-KICK
	ICALL2	DEQUEUE,I-IMPGIVE
	SET	'IMPSAY,0
	SET	'P-WALK-DIR,FALSE-VALUE
	FCLEAR	ON-PIKE,TOUCHED
	PRINT	TAB
	ICALL1	LOSE-FOCUS
	ICALL2	GOTO,ON-PIKE
	IN?	GOBLET,ON-PIKE \TRUE
	FSET?	GOBLET,NODESC \TRUE
	FCLEAR	GOBLET,NODESC
	SET	'P-IT-OBJECT,GOBLET
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	CTHE-PRINT,GOBLET
	PRINTR	" clatters to the ground."


	.FUNCT	TUSK-F,CONTEXT
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	ICALL2	PRINTCA,TUSK
	PRINTI	" marks the final resting place of a mighty pachyderm."
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	CALL1	FIRST-TAKE?
	ZERO?	STACK \TRUE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL11
	PRINTR	"Obviously valuable. The smooth, creamy curve is virtually flawless."
?CCL11:	EQUAL?	PRSA,V?TOUCH \FALSE
	PRINTR	"You run your hand along the smooth curve."


	.FUNCT	CARD-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \FALSE
	PRINTR	"This card, featuring Orkan of Thriff, is the rarest issue in the Famous Enchanter Series."


	.FUNCT	RIDDLE-F,CONTEXT
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	PRINT	STR?842
	PRINTI	"the cliff."
	RTRUE	
?CCL3:	CALL2	NOUN-USED?,W?LIGHTNING
	ZERO?	STACK /?CCL7
	ICALL1	OPEN-CLIFF
	RETURN	2
?CCL7:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?READ,V?LOOK-ON \FALSE
	PRINTI	"The carved "
	PRINTD	PRSO
	PRINTI	" reads,

"
	HLIGHT	H-MONO
	PRINTI	"""My tines be long,
 My tines be short,
 My tines end ere my first report.
 What am I?"""
	CRLF	
	HLIGHT	H-NORMAL
	RTRUE	


	.FUNCT	OPEN-CLIFF
	ICALL1	PCLEAR
	REMOVE	RIDDLE
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	FCLEAR	CREVICE,NODESC
	SET	'P-IT-OBJECT,CREVICE
	ICALL	REPLACE-GLOBAL?,AT-LEDGE,NULL,CREVICE
	ICALL	NEW-EXIT?,AT-LEDGE,P?WEST,641,TOWER-BASE
	ICALL	NEW-EXIT?,TOWER-BASE,P?EAST,641,AT-LEDGE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	ICALL1	KERBLAM
	PRINTI	"A blast from the sky sends you sprawling over the brink of the ledge! You grab onto a rocky outcrop and manage to drag "
	PRINTD	ME
	PRINTI	" back up to safety."
	CRLF	
	ZERO?	DMODE /?CCL2
	EQUAL?	PRIOR,SHOWING-INV,SHOWING-STATS \TRUE
?CCL2:	ICALL2	RELOOK,TRUE-VALUE
	RTRUE	


	.FUNCT	CREVICE-F,X
	FSET?	CREVICE,NODESC \?CCL3
	ICALL1	CANT-SEE-ANY
	RETURN	2
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL9
	ICALL1	CANT-SEE-MUCH
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?EXAMINE \?CCL11
	PRINTI	"It leads "
	SET	'X,W?WEST
	EQUAL?	HERE,TOWER-BASE \?CND12
	SET	'X,W?EAST
?CND12:	PRINTB	X
	PRINTR	"ward."
?CCL11:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL15
	SET	'X,P?WEST
	EQUAL?	HERE,TOWER-BASE \?CND16
	SET	'X,P?EAST
?CND16:	ICALL2	DO-WALK,X
	RTRUE	
?CCL15:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL19
	ICALL1	NOT-IN
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?CLOSE \FALSE
	ICALL1	IMPOSSIBLE
	RTRUE	


	.FUNCT	FOG-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE,V?SEARCH \FALSE
	PRINTR	"It's hard to see more than a few yards."


	.FUNCT	PLATFORM-F,X
	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL3
	IN?	PLAYER,GONDOLA \?CND4
	ICALL	PERFORM,V?EXIT,GONDOLA
	RTRUE	
?CND4:	ICALL1	ALREADY-ON
	RTRUE	
?CCL3:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \FALSE
	IN?	PLAYER,GONDOLA \?CCL10
	ICALL1	NOT-ON
	RTRUE	
?CCL10:	IN?	GONDOLA,HERE \?CND8
	ICALL	PERFORM,V?ENTER,GONDOLA
	RTRUE	
?CND8:	ICALL2	DO-WALK,P?DOWN
	RTRUE	


	.FUNCT	GGLYPH-F,X
	FSET?	DIARY,MUNGED \?CND1
	CALL2	VISIBLE?,DIARY
	ZERO?	STACK /?CND1
	SET	'P-IT-OBJECT,DIARY
	PRINTI	"[the glyph in the diary"
	PRINT	BRACKET
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	ICALL1	DESCRIBE-GLYPH
	RTRUE	
?CCL7:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND5
	ICALL1	IMPOSSIBLE
	RTRUE	
?CND5:	CALL1	DIARY-F
	RSTACK	
?CND1:	ICALL1	PCLEAR
	PRINTI	"There aren't any visible here."
	CRLF	
	RETURN	2


	.FUNCT	GENERIC-GLYPH-F,TBL,LEN
	ASSIGNED?	'LEN /?CND1
	GET	TBL,0 >LEN
?CND1:	ADD	TBL,2
	INTBL?	GLYPH,STACK,LEN >LEN /?CTR4
	RETURN	GGLYPH
?CTR4:	RETURN	GLYPH


	.FUNCT	GLYPH-F,X
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?TOUCH-TO \?CCL6
	EQUAL?	P-PRSA-WORD,W?RUB \?CCL6
	ICALL1	RUBOUT-GLYPH
	RTRUE	
?CCL6:	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL	PERFORM,V?DROP,PRSO
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?READ,V?LOOK-ON \?CCL11
	ICALL1	CTHE-PRINT
	PRINT	SIS
	ICALL1	SAY-GLYPH
	RTRUE	
?CCL11:	EQUAL?	PRSA,V?CLEAN-OFF \?CCL13
	EQUAL?	PRSI,FALSE-VALUE,GROUND,ROOMS /?CCL15
	EQUAL?	PRSI,SNOW,LAVA \?CND14
?CCL15:	ICALL1	RUBOUT-GLYPH
	RTRUE	
?CND14:	ICALL1	CTHE-PRINT
	PRINTI	" isn't on "
	ICALL1	THEI-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL13:	EQUAL?	PRSA,V?ERASE-WITH,V?KICK,V?TAKE-OFF /?CTR18
	EQUAL?	PRSA,V?MUNG,V?CLEAN \FALSE
?CTR18:	ICALL1	RUBOUT-GLYPH
	RTRUE	


	.FUNCT	SAY-GLYPH
	FSET	GLYPH,SEEN
	PRINTI	"a surprisingly simple pattern of lines and curves. Even a "
	ICALL1	ANNOUNCE-RANK
	PRINTR	" like you could inscribe one just like it."


	.FUNCT	WRITE-GLYPH,X
	IN?	BURIN,PLAYER /?CCL3
	PRINTI	"The inscription of glyphs is a delicate business. You'll need a proper tool first"
	FSET?	GLYPH,SEEN \?CND4
	PRINT	PERIOD
	RTRUE	
?CND4:	PRINTI	". Besides, you "
	PRINT	STR?843
	RTRUE	
?CCL3:	CALL	GLOBAL-IN?,HERE,GLYPH
	ZERO?	STACK /?CCL7
	PRINTI	"There's already "
	ICALL2	PRINTA,GLYPH
	PRINTR	" written here."
?CCL7:	FSET?	GLYPH,SEEN /?CCL9
	PRINT	CYOU
	PRINT	STR?843
	RTRUE	
?CCL9:	CALL	GLOBAL-IN?,HERE,NULL
	ZERO?	STACK /?CND1
	CALL	GLOBAL-IN?,HERE,SNOW,LAVA
	ZERO?	STACK /?CND1
	SET	'X,SNOW
	CALL	GLOBAL-IN?,HERE,LAVA
	ZERO?	STACK /?CND13
	ZERO?	MAGMA-TIMER \?CND15
	ICALL1	LAVA-TOO-HARD
	RTRUE	
?CND15:	SET	'X,LAVA
?CND13:	ICALL	REPLACE-GLOBAL?,HERE,NULL,GLYPH
	SET	'P-IT-OBJECT,GLYPH
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINTI	"You carefully trace "
	ICALL2	PRINTA,GLYPH
	PRINT	SIN
	ICALL2	THE-PRINT,X
	PRINTI	" with your burin"
	CALL	GLOBAL-IN?,HERE,XTREES
	ZERO?	STACK /?CND17
	PRINTI	", and notice "
	ICALL2	THE-PRINT,XTREES
	PRINTI	" fidgeting with rage"
?CND17:	PRINT	PERIOD
	RTRUE	
?CND1:	PRINT	XTHE
	ICALL1	GROUND-WORD
	PRINTR	" here is too hard to write anything."


	.FUNCT	LAVA-TOO-HARD
	ICALL2	CTHE-PRINT,LAVA
	PRINTR	" underfoot is too hard now."


	.FUNCT	RUBOUT-GLYPH,X
	CALL	GLOBAL-IN?,HERE,LAVA
	ZERO?	STACK /?CND1
	ZERO?	MAGMA-TIMER \?CND1
	ICALL1	LAVA-TOO-HARD
	RTRUE	
?CND1:	ICALL	REPLACE-GLOBAL?,HERE,GLYPH,NULL
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINTI	"You rub out "
	ICALL2	THE-PRINT,GLYPH
	ZERO?	NOW-PRSI? /?CND5
	PRINT	WITH
	ICALL1	THE-PRINT
?CND5:	PRINT	PERIOD
	RTRUE	


	.FUNCT	SNOW-F,X
	ZERO?	NOW-PRSI? \?CND1
	EQUAL?	PRSA,V?LOOK-UNDER,V?DIG,V?DIG-UNDER /?CTR3
	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL4
?CTR3:	PRINTI	"You poke through "
	ICALL1	THE-PRINT
	ICALL1	BUT-FIND-NOTHING
	RTRUE	
?CCL4:	EQUAL?	PRSA,V?TAKE,V?TOUCH \?CCL8
	PRINTI	"The powdery "
	PRINTD	PRSO
	PRINTR	" falls between your fingers."
?CCL8:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND1
	ICALL1	WASTE-OF-TIME
	RTRUE	
?CND1:	CALL1	GROUND-F
	RSTACK	


	.FUNCT	LAVA-F,X
	ZERO?	NOW-PRSI? \?CND1
	EQUAL?	PRSA,V?LOOK-UNDER /?CCL3
	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND1
?CCL3:	PRINT	XTHE
	ZERO?	MAGMA-TIMER \?CND6
	PRINTI	"hardened lava"
	PRINT	STR?767
	RTRUE	
?CND6:	PRINTR	"cooling lava slurps between your fingers."
?CND1:	CALL1	GROUND-F
	RSTACK	


	.FUNCT	DOME-F,CONTEXT,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-CONT \FALSE
	ZERO?	NOW-PRSI? /?CCL8
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \?CCL11
	ICALL1	DOMESLIDE
	RTRUE	
?CCL11:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL2	TOUCH-DOME-WITH,PRSO
	RTRUE	
?CCL8:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL1	TOUCH-DOME-WITH
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? /?CCL15
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	DOMESLIDE
	RTRUE	
?CCL15:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL19
	PRINTI	"Your eyes cannot focus on "
	PRINT	STR?844
	PRINTR	". But a fiery glow emanates from within."
?CCL19:	EQUAL?	PRSA,V?LOOK-INSIDE,V?LOOK-BEHIND,V?LOOK-UNDER /?CTR20
	EQUAL?	PRSA,V?SEARCH \?CCL21
?CTR20:	PRINTI	"Peering within "
	PRINT	STR?844
	PRINTR	", you see a spectacular plume of molten lava, frozen in mid-explosion above a crater seething with molten magma."
?CCL21:	EQUAL?	PRSA,V?REACH-IN \?CCL25
	ICALL1	TOUCH-DOME-WITH
	RTRUE	
?CCL25:	EQUAL?	PRSA,V?KICK \?CCL27
	ICALL2	TOUCH-DOME-WITH,FEET
	RTRUE	
?CCL27:	EQUAL?	PRSA,V?TOUCH,V?SQUEEZE \FALSE
	PRINTI	"The surface of "
	ICALL1	THE-PRINT
	PRINTR	" feels hard and slightly warm."


	.FUNCT	DOMESLIDE
	ICALL2	THIS-IS-IT,PRSO
	MOVE	PRSO,HERE
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL1	CTHE-PRINT
	PRINTI	" strikes the perimeter of "
	ICALL2	THE-PRINT,DOME
	PRINTI	" and slides to "
	ICALL2	THE-PRINT,GROUND
	PRINT	PERIOD
	RTRUE	


	.FUNCT	TOUCH-DOME-WITH,OBJ
	ICALL2	YOUR-OBJ,OBJ
	RANDOM	100
	LESS?	50,STACK /?CCL3
	PRINTI	" will go no farther than "
	JUMP	?CND1
?CCL3:	PRINTI	" stops at "
?CND1:	PRINTR	"the dome's perimeter."


	.FUNCT	PLUME-F,X
	ZERO?	LAVA-TIMER /?CCL3
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X /?CCL5
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CND4
?CCL5:	ICALL2	CASCADE,STR?666
	RTRUE	
?CND4:	ICALL2	CASCADE,STR?845
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?LOOK-INSIDE \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" seems frozen in a moment of time."


	.FUNCT	CRATER-F,X
	ZERO?	NOW-PRSI? /?CCL3
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	VANISH
	ICALL1	CTHE-PRINT
	PRINTR	" disappears into the steam."
?CCL3:	INTBL?	PRSA,SEEVERBS,NSVERBS >X \?CCL7
	ICALL1	SAY-STEAM
	RTRUE	
?CCL7:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL9
	PRINTI	"Hot steam drives you away from "
	ICALL1	THE-PRINT
	PRINT	PERIOD
	RTRUE	
?CCL9:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \FALSE
	ICALL1	NOT-IN
	RTRUE	


	.FUNCT	MAGMA-GLOW-F,CONTEXT,X
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL3
	ICALL2	DO-WALK,P?SOUTH
	RTRUE	
?CCL3:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL5
	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL5:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE \FALSE
	ICALL2	CTHE-PRINT,MAGMA-GLOW
	PRINTR	" feels warm on your face."


	.FUNCT	GLOW-COLOR
	GRTR?	MAGMA-TIMER,2 \?CCL3
	PRINTI	"fiery yellow "
	RTRUE	
?CCL3:	EQUAL?	MAGMA-TIMER,2 \?CCL5
	PRINTI	"warm orange "
	RTRUE	
?CCL5:	PRINTI	"dull red "
	RTRUE	


	.FUNCT	TRAIL-F,X
	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL3
	ICALL2	DO-WALK,P?UP
	RTRUE	
?CCL3:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \?CCL5
	ICALL2	DO-WALK,P?DOWN
	RTRUE	
?CCL5:	CALL	GLOBAL-IN?,HERE,SNOW
	ZERO?	STACK /?CCL7
	CALL1	SNOW-F
	RSTACK	
?CCL7:	CALL	GLOBAL-IN?,HERE,LAVA
	ZERO?	STACK /?CCL9
	CALL1	LAVA-F
	RSTACK	
?CCL9:	RETURN	GROUND-F


	.FUNCT	ORNAMENT-F
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" is crafted in an old-fashioned holiday style. Might fetch a few zorkmids in Mizniaport."


	.FUNCT	BOOT-FACING
	ICALL2	CTHE-PRINT,BOOT
	PRINTR	" is facing the wrong way."


	.FUNCT	BOOT-F,X
	ZERO?	NOW-PRSI? /?CCL3
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	BOOT-FACING
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE,V?REACH-IN /?CTR6
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL7
?CTR6:	ICALL1	BOOT-FACING
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?WEAR \?CCL11
	PRINT	DONT
	PRINTR	"take a size 105."
?CCL11:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CCL13
	ICALL1	CTHE-PRINT
	PRINTI	" is firmly wedged under "
	ICALL2	THE-PRINT,FARMHOUSE
	PRINT	PERIOD
	RTRUE	
?CCL13:	EQUAL?	PRSA,V?EXAMINE,V?SEARCH \FALSE
	ICALL1	CTHE-PRINT
	PRINT	STR?795
	ICALL2	THE-PRINT,FARMHOUSE
	PRINTR	", its tongue hanging in the dirt."


	.FUNCT	BROOK-F,X
	ZERO?	NOW-PRSI? /?CCL3
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	WATER-VANISH
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	ICALL1	CTHE-PRINT
	PRINTI	" meanders "
	EQUAL?	HERE,AT-BRINE \?CND8
	PRINTB	W?NORTHWEST
	PRINT	PERIOD
	RTRUE	
?CND8:	PRINTR	"west, into a deep forest."
?CCL7:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL11
	ICALL2	DO-WALK,P?NORTH
	RTRUE	
?CCL11:	CALL1	HANDLE-WATER?
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	WATERFALL-F,X
	ZERO?	NOW-PRSI? /?CCL3
	INTBL?	PRSA,PUTVERBS,NUMPUTS \FALSE
	ICALL1	VANISH
	ICALL1	CTHE-PRINT
	PRINTR	" disappears in the swirling water."
?CCL3:	EQUAL?	PRSA,V?ENTER,V?WALK-AROUND,V?LOOK-BEHIND \?CCL7
	PRINTR	"Sorry. No secret caves."
?CCL7:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL9
	ICALL1	ENTER-FALLS
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?LISTEN \?CCL11
	PRINTR	"The roar is loud and exhilarating."
?CCL11:	CALL1	HANDLE-WATER?
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	ENTER-FALLS
	PRINTI	"One touch of the chilly water changes your mind."
	CRLF	
	RFALSE	


	.FUNCT	HANDLE-WATER?,X
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE,V?LOOK-UNDER /?CTR2
	EQUAL?	PRSA,V?SEARCH \?CCL3
?CTR2:	PRINT	STR?760
	PRINTR	"in the swirling water."
?CCL3:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL7
	ICALL1	NOT-IN
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?DRINK,V?DRINK-FROM,V?TASTE \?CCL9
	PRINTR	"The water is cool and refreshing."
?CCL9:	EQUAL?	PRSA,V?TOUCH,V?REACH-IN,V?KICK \FALSE
	PRINTR	"Brr!"


	.FUNCT	RIVER-F,X
	ZERO?	NOW-PRSI? /?CCL3
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	WATER-VANISH
	RTRUE	
?CCL3:	INTBL?	PRSA,SEEVERBS,NSVERBS >X \?CCL7
	PRINTR	"Blowing mist obscures the roaring water."
?CCL7:	EQUAL?	PRSA,V?LEAP /?CTR8
	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \?CCL9
?CTR8:	ICALL1	JUMP-OFF-BRIDGE
	RTRUE	
?CCL9:	INTBL?	PRSA,X-VERBS,EXIT-VERBS >X \?CCL13
	ICALL1	NOT-IN
	RTRUE	
?CCL13:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL1	CANT-FROM-HERE
	RTRUE	


	.FUNCT	CABIN-F,X
	EQUAL?	HERE,IN-CABIN \?CCL3
	EQUAL?	PRSA,V?SEARCH \?CND4
	ICALL	PERFORM,PRSA,CHEMS
	RTRUE	
?CND4:	CALL1	HERE-F
	RSTACK	
?CCL3:	INTBL?	PRSA,E-VERBS,ENTER-VERBS >X \FALSE
	ICALL2	DO-WALK,P?SOUTH
	RTRUE	


	.FUNCT	BENCH-F,X
	ZERO?	NOW-PRSI? \FALSE
	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL5
	ICALL1	CTHE-PRINT
	PRINTR	" doesn't look as if it would support you."
?CCL5:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	FSET	CHEMS,NODESC
	PRINTI	"Aside from "
	ICALL2	THE-PRINT,CHEMS
	PRINT	LYOU-SEE
	ICALL1	CONTENTS
	PRINT	SON
	ICALL1	THE-PRINT
	PRINT	PERIOD
	FCLEAR	CHEMS,NODESC
	SET	'P-IT-OBJECT,PRSO
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?SEARCH \?CCL9
	ICALL	PERFORM,PRSA,CHEMS
	RTRUE	
?CCL9:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" is much too bulky."


	.FUNCT	CHEMS-F,X
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?PUT-UNDER,V?PUT-BEHIND,V?PUT \?CCL6
	ICALL1	WASTE-OF-TIME
	RTRUE	
?CCL6:	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL	PERFORM,PRSA,PRSO,BENCH
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL9
	ICALL1	CTHE-PRINT
	PRINTI	" are fouled beyond recognition or usefulness"
	FSET	PRSO,NODESC
	CALL2	SEE-ANYTHING-IN?,BENCH
	ZERO?	STACK /?CND10
	PRINTI	". "
	PRINT	YOU-SEE
	ICALL2	CONTENTS,BENCH
	SET	'P-IT-OBJECT,PRSO
	PRINTI	" lying among them"
?CND10:	FCLEAR	PRSO,NODESC
	PRINT	PERIOD
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?SEARCH,V?LOOK-INSIDE,V?LOOK-UNDER /?CTR12
	EQUAL?	PRSA,V?LOOK-BEHIND \?CCL13
?CTR12:	PRINTI	"You carefully sift through "
	ICALL1	THE-PRINT
	FSET?	UHEMI,NODESC /?CND16
	PRINT	STR?846
	RTRUE	
?CND16:	ICALL1	FIND-UHEMI
	PRINTI	", and turn up "
	ICALL2	PRINTA,UHEMI
	PRINT	PERIOD
	RTRUE	
?CCL13:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" are sticky and useless."


	.FUNCT	FIND-UHEMI
	FSET	DIARY,TOUCHED
	FCLEAR	UHEMI,NODESC
	MOVE	UHEMI,BENCH
	SET	'P-IT-OBJECT,UHEMI
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	RTRUE	


	.FUNCT	UHEMI-F
	CALL	HANDLE-HEMI?,UHEMI,LHEMI,W?PEG
	RSTACK	


	.FUNCT	LHEMI-F
	CALL	HANDLE-HEMI?,LHEMI,UHEMI,W?HOLE
	RSTACK	


	.FUNCT	HANDLE-HEMI?,OBJ,OTHER,WRD,X
	CALL2	NOUN-USED?,WRD
	ZERO?	STACK /?CND1
	ZERO?	NOW-PRSI? /?CCL5
	EQUAL?	PRSA,V?PUT,V?PUT-ON,V?PLUG-IN \?CCL8
	EQUAL?	PRSO,PRSI \?CCL11
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL11:	EQUAL?	PRSO,OTHER \?CCL13
	ICALL1	FUSION
	RTRUE	
?CCL13:	EQUAL?	WRD,W?PEG \?CND9
	ICALL1	IMPOSSIBLE
	RTRUE	
?CND9:	PRINT	XTHE
	PRINTB	WRD
	PRINT	SON
	ICALL2	THE-PRINT,OBJ
	PRINTR	" is much too tiny."
?CCL8:	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL5:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CCL17
	PRINT	XTHE
	PRINTB	WRD
	PRINT	SON
	ICALL2	THE-PRINT,OBJ
	PRINT	STR?767
	RTRUE	
?CCL17:	EQUAL?	PRSA,V?EXAMINE \?CCL19
	PRINTI	"It's set into the center of "
	ICALL2	THE-PRINT,OBJ
	PRINT	PERIOD
	RTRUE	
?CCL19:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH \?CND1
	EQUAL?	WRD,W?PEG \?CND21
	ICALL1	IMPOSSIBLE
	RTRUE	
?CND21:	PRINT	STR?545
	RTRUE	
?CND1:	ZERO?	NOW-PRSI? /?CCL25
	EQUAL?	PRSA,V?PUT,V?PUT-ON,V?PLUG-IN \FALSE
	EQUAL?	PRSO,PRSI \?CCL30
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL30:	EQUAL?	PRSO,OTHER \FALSE
	ICALL1	FUSION
	RTRUE	
?CCL25:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL33
	PRINT	STR?847
	PRINTR	"and sense a vague incompleteness."
?CCL33:	EQUAL?	PRSA,V?EXAMINE \FALSE
	PRINTI	"This curious artifact is wide as your palm, and fashioned of some "
	EQUAL?	OBJ,LHEMI \?CCL38
	PRINTB	W?WHITE
	JUMP	?CND36
?CCL38:	PRINTB	W?BLACK
?CND36:	PRINTI	" crystalline substance. A tiny "
	EQUAL?	OBJ,LHEMI \?CCL41
	PRINTB	W?HOLE
	JUMP	?CND39
?CCL41:	PRINTB	W?PEG
?CND39:	PRINTR	" is set in the middle of its flat side."


	.FUNCT	FUSION,L
	LOC	PRSI >L
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINTI	"The crystals fit together with a satisfying "
	HLIGHT	H-ITALIC
	PRINTI	"click"
	HLIGHT	H-NORMAL
	PRINTI	" to form a perfect sphere, half white, half black"
	FSET?	PRSO,NEUTRALIZED /?CCL2
	FSET?	PRSI,NEUTRALIZED \?CND1
?CCL2:	IN?	PRSO,L /?CND5
	MOVE	PRSO,L
?CND5:	PRINTR	". But they fall apart the moment you release them."
?CND1:	PRINT	PERIOD
	MOVE	STONE,L
	REMOVE	PRSI
	REMOVE	PRSO
	SET	'P-IT-OBJECT,STONE
	EQUAL?	HERE,IN-BOUTIQUE,IN-MAGICK,IN-WEAPON \?CND7
	PRINT	TAB
	PRINTI	"""Cover your eyes,"" warns "
	ICALL2	THE-PRINT,OWOMAN
	PRINT	PERIOD
?CND7:	PRINT	TAB
	PRINTR	"Nothing happens for a moment. Then, in a fraction of an instant, the two hemispheres switch colors! You hardly have time to gasp before the colors switch again, and then again, faster, faster, until you shield your eyes from the blinding strobe effect."


	.FUNCT	STONE-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE \?CCL5
	ICALL1	CTHE-PRINT
	PRINTI	" is perfectly smooth and seamless"
	FSET?	PRSO,NEUTRALIZED /?CND6
	PRINTI	". Its surface draws your eyes deep into its cloudy interior"
?CND6:	PRINT	PERIOD
	RTRUE	
?CCL5:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL9
	IN?	PRSO,PLAYER /?CND10
	PRINTR	"You're not likely to see much unless you're holding it."
?CND10:	LOC	STONE >X
	PRINT	STR?847
	FSET?	PRSO,NEUTRALIZED /?CCL13
	GET	STATS,INTELLIGENCE
	LESS?	STACK,69 \?CND12
?CCL13:	PRINTR	"but an unintelligible swirl is all you can see."
?CND12:	PRINTI	"and watch its swirling depths coalesce into the image of a "
	IGRTR?	'VISION,3 \?CCL18
	SET	'VISION,0
	PRINTI	"samurai warrior, slashing through armies of bloodthirsty foes in an epic struggle for power and honor"
	PRINT	STR?848
	RTRUE	
?CCL18:	EQUAL?	VISION,1 \?CCL20
	ZERO?	WALL-WORD \?CND21
	CALL2	PICK-ONE,MAGIC-WORDS >X
	PUT	X,2,1
	GET	X,0 >WALL-WORD
	GET	X,1 >X
	PUTP	NWALL,P?NAME-TABLE,X
	FSET	NWALL,NAMED
	PUTP	SWALL,P?NAME-TABLE,X
	FSET	SWALL,NAMED
?CND21:	PRINTI	"warlock, standing before a seamless wall of stone. He mutters the word """
	GETP	NWALL,P?NAME-TABLE
	ICALL2	PRINT-TABLE,STACK
	PRINTR	","" and a doorlike outline appears which he pushes open. The vision fades as he steps inside."
?CCL20:	EQUAL?	VISION,2 \?CND16
	PRINTI	"huge cauldron, bubbling in the midst of a vast, excessive castle"
	PRINT	STR?848
	RTRUE	
?CND16:	PRINTI	"giant balloon-shaped head, wagging its tongue at you from the depths of outer space"
	PRINT	STR?848
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH \FALSE
	ICALL1	CTHE-PRINT
	PRINTR	" is completely seamless."


	.FUNCT	SETUP-STONE,WRD,TBL
	CALL2	PICK-ONE,MAGIC-WORDS >TBL
	PUT	TBL,2,1
	GET	TBL,0 >WRD
	GETPT	STONE,P?SYNONYM
	PUT	STACK,0,WRD
	GETPT	STONE,P?ADJECTIVE
	PUT	STACK,0,WRD
	GET	TBL,1
	PUTP	STONE,P?NAME-TABLE,STACK
	FSET	STONE,PROPER
	FSET	STONE,NAMED
	FSET	STONE,IDENTIFIED
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	RFALSE	


	.FUNCT	SAY-WALL-WORD
	EQUAL?	HERE,SE-WALL,SE-CAVE \?CCL3
	FSET?	SWALL,SEEN /?CCL3
	ICALL2	SEE-WALL,SWALL
	RTRUE	
?CCL3:	EQUAL?	HERE,NE-WALL,NE-CAVE \?CND1
	FSET?	NWALL,SEEN /?CND1
	ICALL2	SEE-WALL,NWALL
	RTRUE	
?CND1:	ICALL2	NOTHING-HAPPENS,FALSE-VALUE
	RTRUE	


	.FUNCT	SEE-WALL,OBJ
	FSET	OBJ,SEEN
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	FSET	OBJ,PROPER
	FSET	OBJ,IDENTIFIED
	GETPT	OBJ,P?SYNONYM
	PUT	STACK,0,WALL-WORD
	GETPT	OBJ,P?ADJECTIVE
	PUT	STACK,0,WALL-WORD
	ICALL2	CTHE-PRINT,GROUND
	PRINTI	" shudders at the sound of your voice"
	ZERO?	LIT? /?CND1
	PRINTI	", and the outline of a door appears in the rock wall"
?CND1:	PRINT	PERIOD
	ICALL1	REFRESH-MAP
	RTRUE	


	.FUNCT	DIARY-F,X
	CALL2	NOUN-USED?,W?GLYPH
	ZERO?	STACK /?CND1
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL5
	ICALL1	DESCRIBE-GLYPH
	RTRUE	
?CCL5:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CND1
	ICALL2	CTHE-PRINT,GLYPH
	PRINT	SIN
	ICALL2	THE-PRINT,DIARY
	PRINT	STR?767
	RTRUE	
?CND1:	ZERO?	NOW-PRSI? /?CCL9
	EQUAL?	PRSA,V?PUT,V?PUT-ON,V?EMPTY-INTO \FALSE
	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?TAKE \?CCL13
	FSET?	PRSO,TOUCHED /?CCL13
	CALL1	ITAKE
	ZERO?	STACK /TRUE
	ICALL1	FIND-UHEMI
	PRINTI	"As you pick up "
	ICALL1	THE-PRINT
	PRINTI	", you notice "
	ICALL2	PRINTA,UHEMI
	PRINTI	" lying among "
	ICALL2	THE-PRINT,CHEMS
	PRINT	PERIOD
	RTRUE	
?CCL13:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL19
	PRINTR	"It appears to be a personal journal or diary of some kind. The faint glow of the penmanship betrays its author as a mage."
?CCL19:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH,V?OPEN \?CCL21
	PRINTR	"Many of the pages are still intact."
?CCL21:	EQUAL?	PRSA,V?READ \FALSE
	PRINTI	"You nosily thumb the pages.

 """
	ICALL2	ITALICIZE,STR?849
	PRINTI	". Hot again. Retorts and alembics spoiling! Hate this northern clime"
	PRINT	PTAB
	ICALL2	ITALICIZE,STR?850
	PRINTI	". Gated Thriff to Miznia, via Atrii. Relief at last! Villagers perplexed but grateful"
	PRINT	PTAB
	ICALL2	ITALICIZE,STR?851
	PRINTI	". Mtn not dormant after all. Yonked a girgol just in nick of time.
  "
	ICALL2	ITALICIZE,STR?852
	PRINTI	". Wilderness life stinks. Raccoon nest in chimney; guncho took flue and all! Broke last burin warding off Xmas pests. Better off up north?
  "
	ICALL2	ITALICIZE,STR?853
	PRINTI	". Borphee tomorrow. Y'Gael "
	ICALL2	ITALICIZE,STR?854
	PRINTI	" be wrong.""

  "
	ICALL1	DESCRIBE-GLYPH
	RTRUE	


	.FUNCT	DESCRIBE-GLYPH
	FSET	DIARY,MUNGED
	PRINTI	"A tiny glyph is scrawled beside the entry dated ""9 August."" It"
	FSET?	GLYPH,SEEN \?CND1
	PRINTR	" looks just like the one you saw outside."
?CND1:	PRINTI	"'s "
	ICALL1	SAY-GLYPH
	RFALSE	


	.FUNCT	MAILBOX-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH,V?CLOSE /FALSE
	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	ICALL1	CTHE-PRINT
	PRINTI	" is rooted firmly in "
	ICALL2	THE-PRINT,GROUND
	PRINT	PERIOD
	RTRUE	


	.FUNCT	LEAFLET-F
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL3
	PRINTR	"It seems to be an advertisement for some curious form of entertainment."
?CCL3:	EQUAL?	PRSA,V?READ \FALSE
	LOC	PRSO
	MOVE	PARCEL,STACK
	ICALL1	VANISH
	SET	'P-IT-OBJECT,PARCEL
	PRINTI	"With a silent puff, "
	ICALL1	THE-PRINT
	PRINTI	" turns into "
	ICALL2	PRINTA,PARCEL
	PRINT	PERIOD
	RTRUE	


	.FUNCT	PARCEL-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \?CCL5
	ICALL1	CTHE-PRINT
	PRINTI	" is from the "
	ICALL2	FROBOZZ,STR?855
	PRINTR	", and is addressed to ""Orkan/Thriff/North Frobozz."" Curiously, the words ""North Frobozz"" have been scratched out, and the word ""Miznia"" scribbled over them as an afterthought."
?CCL5:	EQUAL?	PRSA,V?SHAKE \?CCL7
	PRINTR	"Feels as if there's something inside."
?CCL7:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH \FALSE
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	LOC	PRSO >X
	REMOVE	PRSO
	MOVE	BURIN,X
	SET	'P-IT-OBJECT,BURIN
	PRINTI	"All traces of "
	ICALL2	THE-PRINT,PARCEL
	PRINTI	" disappear in a puff as you open it, leaving the contents"
	LOC	PLAYER
	EQUAL?	X,PLAYER,HERE,STACK \?CCL12
	PRINTC	SP
	PRINTB	W?BEHIND
	JUMP	?CND10
?CCL12:	ICALL2	ON-IN,X
?CND10:	PRINT	PERIOD
	RTRUE	


	.FUNCT	BURIN-F
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?WRITE-WITH \FALSE
	EQUAL?	PRSO,GGLYPH,GLYPH \FALSE
	ICALL	PERFORM,V?WRITE-ON,PRSO,GROUND
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL9
	ICALL1	CTHE-PRINT
	PRINTI	" is long and tapered, with a diamond tip for precision inscribing. The words """
	ICALL2	FROBOZZ,STR?856
	PRINTR	""" are inscribed along the side."
?CCL9:	EQUAL?	PRSA,V?USE \FALSE
	ICALL	PERFORM,V?WRITE-ON,GGLYPH,GROUND
	RTRUE	


	.FUNCT	BRIDGE-F,X
	ZERO?	NOW-PRSI? /?CCL3
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	WASTE-OF-TIME
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL7
	ICALL1	CTHE-PRINT
	PRINTI	" leads "
	SET	'X,W?SOUTHWEST
	EQUAL?	HERE,AT-BRINE \?CND8
	SET	'X,W?NORTHEAST
?CND8:	PRINTB	X
	PRINT	PERIOD
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?LOOK-UNDER,V?LOOK-BEHIND,V?SEARCH \?CCL11
	ICALL1	CANT-SEE-MUCH
	RTRUE	
?CCL11:	EQUAL?	PRSA,V?STAND-UNDER,V?LEAP \?CCL13
	ICALL1	CANT-FROM-HERE
	RTRUE	
?CCL13:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL15
	SET	'X,P?SW
	EQUAL?	HERE,AT-BRINE \?CND16
	SET	'X,P?NE
?CND16:	ICALL2	DO-WALK,X
	RTRUE	
?CCL15:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \FALSE
	ICALL1	NOT-ON
	RTRUE	


	.FUNCT	FOOD-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?SMELL \FALSE
	PRINTR	"Your stomach growls."


	.FUNCT	DEBRIS-F,X
	ZERO?	NOW-PRSI? /?CCL3
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL	PERFORM,V?DROP,PRSO
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?LOOK-INSIDE /?CTR6
	EQUAL?	PRSA,V?LOOK-UNDER,V?SEARCH,V?LOOK-BEHIND /?CTR6
	EQUAL?	PRSA,V?REACH-IN \?CCL7
?CTR6:	PRINTI	"You rummage through "
	ICALL1	THE-PRINT
	ICALL1	BUT-FIND-NOTHING
	RTRUE	
?CCL7:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \FALSE
	PRINTI	"A waste of time. "
	ICALL1	CTHE-PRINT
	PRINTR	" is obviously useless."


	.FUNCT	EASEL-F,X
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?PUT-ON,V?PUT,V?EMPTY-INTO \?CCL6
	ICALL	YOUD-HAVE-TO,STR?541,CANVAS
	RTRUE	
?CCL6:	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	WASTE-OF-TIME
	RTRUE	
?CCL3:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CCL9
	ICALL1	SHOO
	RTRUE	
?CCL9:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \FALSE
	PRINTI	"There's "
	ICALL2	PRINTA,CANVAS
	PRINTR	" on it."


	.FUNCT	SHOO
	FSET	SALT,SEEN
	PRINTI	"""Hands off,"" snaps "
	ICALL2	THE-PRINT,SALT
	PRINT	PERIOD
	RTRUE	


	.FUNCT	CANVAS-F,X
	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL3
	ICALL1	SHOO
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \FALSE
	PRINTR	"A magnificent galleon is taking shape on the canvas, soaring across the sky on planes of sparkling Magick."


	.FUNCT	IQ-POTION-F
	CALL2	HANDLE-POTION?,I-IQ
	RSTACK	


	.FUNCT	HEALING-POTION-F
	CALL2	HANDLE-POTION?,I-HEAL
	RSTACK	


	.FUNCT	DEATH-POTION-F
	CALL2	HANDLE-POTION?,I-DEATH
	RSTACK	


	.FUNCT	MIGHT-POTION-F
	CALL2	HANDLE-POTION?,I-MIGHT
	RSTACK	


	.FUNCT	FORGET-POTION-F
	CALL2	HANDLE-POTION?,I-FORGET
	RSTACK	


	.FUNCT	NEXT-POTION?,RM,FCN,OBJ,X
	CALL2	PICK-ONE,POTION-LIST >OBJ
	FSET?	OBJ,NODESC \FALSE
	FCLEAR	OBJ,NODESC
	CALL2	PICK-ONE,POTION-TABLES >X
	GET	X,0
	PUTP	OBJ,P?ACTION,STACK
	GET	X,1
	PUTP	OBJ,P?SDESC,STACK
	GET	X,2 >X
	GETPT	OBJ,P?SYNONYM
	PUT	STACK,0,X
	GETPT	OBJ,P?ADJECTIVE
	PUT	STACK,0,X
	ASSIGNED?	'RM \?CND4
	MOVE	OBJ,RM
?CND4:	ASSIGNED?	'FCN /?CCL7
	RETURN	OBJ
?CCL7:	PUTP	OBJ,P?DESCFCN,FCN
	RETURN	OBJ


	.FUNCT	HANDLE-POTION?,INT
	ZERO?	NOW-PRSI? /?CCL3
	EQUAL?	PRSA,V?POUR-FROM \FALSE
	PRINT	STR?857
	RTRUE	
?CCL3:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON,V?READ \?CCL7
	FSET	BPOTION,SEEN
	PRINTI	"A legend on the potion says, ""Shake before using. Another fine product of the "
	ICALL2	FROBOZZ,STR?858
	PRINT	PERQ
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH \?CCL9
	PRINT	XTHE
	GETPT	PRSO,P?ADJECTIVE
	GET	STACK,1
	PRINTB	STACK
	PRINTI	" liquid "
	FSET?	PRSO,MUNGED \?CND10
	PRINTR	"swirls with potency."
?CND10:	PRINTR	"looks a bit flat."
?CCL9:	EQUAL?	PRSA,V?OPEN,V?OPEN-WITH \?CCL13
	PRINT	DONT
	PRINTR	"need to. It'll open itself when you drink it."
?CCL13:	EQUAL?	PRSA,V?POUR,V?EMPTY,V?EMPTY-INTO \?CCL15
	PRINT	STR?857
	RTRUE	
?CCL15:	EQUAL?	PRSA,V?CLOSE \?CCL17
	ICALL2	ITS-ALREADY,STR?531
	RTRUE	
?CCL17:	EQUAL?	PRSA,V?SHAKE \?CCL19
	IN?	PRSO,PLAYER /?CND20
	ICALL2	YOUD-HAVE-TO,STR?680
	RTRUE	
?CND20:	FSET	PRSO,MUNGED
	PRINTR	"You give the potion a vigorous shake."
?CCL19:	EQUAL?	PRSA,V?DRINK,V?USE \?CCL23
	IN?	PRSO,PLAYER /?CCL26
	ICALL2	YOUD-HAVE-TO,STR?680
	RTRUE	
?CCL26:	FSET?	PRSO,MUNGED \?CND24
	FSET?	PRSO,NEUTRALIZED /?CND24
	ICALL	QUEUE,INT,2
?CND24:	ICALL1	VANISH
	PRINTI	"Gloop, gloop, gloop! You drain "
	ICALL1	THE-PRINT
	PRINTI	" to the last drop, and watch as the container melts into nothingness."
	CRLF	
	IN?	OWOMAN,HERE \TRUE
	FSET	OWOMAN,SEEN
	PRINTI	"  """
	FSET?	BPOTION,SEEN /?CCL34
	PRINTI	"Should've read it first"
	JUMP	?CND32
?CCL34:	EQUAL?	INT,I-DEATH \?CCL36
	FSET?	PRSO,MUNGED \?CCL36
	FSET?	PRSO,NEUTRALIZED /?CCL36
	PRINTI	"Nice knowing you"
	JUMP	?CND32
?CCL36:	PRINTI	"Cheers"
?CND32:	PRINTI	","" mutters "
	ICALL2	THE-PRINT,OWOMAN
	PRINT	PERIOD
	RTRUE	
?CCL23:	CALL1	FIRST-TAKE?
	ZERO?	STACK \TRUE
	EQUAL?	PRSA,V?MUNG,V?CUT,V?HIT \FALSE
	PRINTI	"And risk breaking this expensive "
	ICALL2	DPRINT,PRSO
	PRINTI	"? "
	ICALL1	WASTE-OF-TIME
	RTRUE	


	.FUNCT	CAKE-F,CONTEXT
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	ICALL2	PRINTCA,CAKE
	PRINT	STR?507
	RTRUE	
?CCL3:	ZERO?	NOW-PRSI? \FALSE
	CALL1	FIRST-TAKE?
	ZERO?	STACK \TRUE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL11
	ICALL2	JUST-LIKE,W?LOOK
	RTRUE	
?CCL11:	EQUAL?	PRSA,V?SMELL,V?KISS \?CCL13
	ICALL2	JUST-LIKE,W?SMELL
	RTRUE	
?CCL13:	EQUAL?	PRSA,V?EAT,V?TASTE \FALSE
	FSET?	PRSO,NEUTRALIZED /?CND16
	ICALL	QUEUE,I-IQ,4
?CND16:	ICALL1	VANISH
	PRINTI	"With a mighty effort of will, you cram "
	ICALL1	THE-PRINT
	PRINTR	" into your mouth, chew and swallow. Bleah."


	.FUNCT	JUST-LIKE,WRD
	PRINTI	"It "
	PRINTB	WRD
	PRINTR	"s just like the ones your aunt used to make. Bleah."


	.FUNCT	HEAP-F,CONTEXT,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-CONT \FALSE
	CALL1	URGRUE-STOPS?
	ZERO?	STACK /FALSE
	RTRUE	
?CCL3:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL9
	CALL1	URGRUE-STOPS?
	ZERO?	STACK \TRUE
?CCL9:	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?COUNT \?CCL15
	PRINTR	"A rapid survey turns up at least 69,105 treasures."
?CCL15:	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL17
	PRINTI	"The exotic treasures piled here are almost beyond counting"
	CALL1	SEE-ANYTHING-IN?
	ZERO?	STACK /?CND18
	PRINTI	". Among them you see "
	ICALL1	CONTENTS
	SET	'P-IT-OBJECT,PRSO
?CND18:	PRINT	PERIOD
	RTRUE	
?CCL17:	EQUAL?	PRSA,V?LOOK-INSIDE,V?SEARCH,V?LOOK-BEHIND /?CTR20
	EQUAL?	PRSA,V?LOOK-UNDER /?CTR20
	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CCL21
?CTR20:	CALL1	URGRUE-STOPS?
	ZERO?	STACK \TRUE
	FSET?	COCO,NODESC \?CND25
	FCLEAR	COCO,NODESC
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	MOVE	COCO,IN-LAIR
	SET	'P-IT-OBJECT,COCO
	PRINTI	"As you sift excitedly through "
	ICALL1	THE-PRINT
	PRINTR	", something small and hard rolls out and lands on your toe. Ouch!"
?CND25:	PRINTR	"It'd take weeks to sift through everything else."
?CCL21:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \FALSE
	CALL1	URGRUE-STOPS?
	ZERO?	STACK \TRUE
	PRINTR	"Stop gloating."


	.FUNCT	URGRUE-STOPS?
	IN?	URGRUE,HERE \FALSE
	PRINTI	"""Do keep away from that,"" urges "
	ICALL2	THE-PRINT,URGRUE
	PRINT	PERIOD
	RTRUE	


	.FUNCT	COCO-F,X
	ZERO?	NOW-PRSI? \FALSE
	EQUAL?	PRSA,V?EXAMINE,V?LOOK-ON \?CCL5
	PRINTR	"It's hard to see what all the fuss is about."
?CCL5:	INTBL?	PRSA,TOUCHVERBS,NTOUCHES >X \?CCL7
	FSET?	COCO,SEEN /?CCL7
	ICALL1	URGRUE-GETS-COCO
	RTRUE	
?CCL7:	EQUAL?	PRSA,V?TAKE \?CCL11
	FSET?	PRSO,TOUCHED /?CCL11
	CALL1	ITAKE
	ZERO?	STACK /TRUE
	ICALL2	QUEUE,I-QUAKE
	PRINTI	"An angelic choir swells as you lift "
	ICALL1	THE-PRINT
	PRINTR	" off the floor."
?CCL11:	EQUAL?	PRSA,V?SMELL \?CCL17
	PRINTR	"Phew! It's a few centuries overripe."
?CCL17:	EQUAL?	PRSA,V?HIT,V?MUNG,V?CUT /?CTR18
	EQUAL?	PRSA,V?KICK,V?KNOCK,V?OPEN /?CTR18
	EQUAL?	PRSA,V?OPEN-WITH \?CCL19
?CTR18:	PRINTR	"Thump! Hard as a rock."
?CCL19:	EQUAL?	PRSA,V?EAT,V?TASTE,V?DRINK /?CTR23
	EQUAL?	PRSA,V?DRINK-FROM,V?LOOK-INSIDE,V?REACH-IN /?CTR23
	EQUAL?	PRSA,V?EMPTY \?CCL24
?CTR23:	ICALL2	YOUD-HAVE-TO,STR?518
	RTRUE	
?CCL24:	EQUAL?	PRSA,V?SHAKE \FALSE
	PRINTR	"Something slooshes around inside."


	.FUNCT	BOULDER-F,CONTEXT,X
	ZERO?	CONTEXT /?CCL3
	EQUAL?	CONTEXT,M-OBJDESC \FALSE
	PRINT	STR?842
	PRINTI	"an enormous boulder."
	RTRUE	
?CCL3:	CALL2	NOUN-USED?,W?YOUTH
	ZERO?	STACK /?CCL7
	ICALL1	OPEN-POOL
	RETURN	2
?CCL7:	ZERO?	NOW-PRSI? /?CCL11
	INTBL?	PRSA,PUTVERBS,NUMPUTS >X \FALSE
	ICALL1	PRSO-SLIDES-OFF-PRSI
	RTRUE	
?CCL11:	EQUAL?	PRSA,V?EXAMINE,V?READ,V?LOOK-ON \?CCL15
	PRINTI	"The carved "
	PRINTD	RIDDLE
	PRINTI	" reads,

"
	HLIGHT	H-MONO
	PRINTI	"""Never ahead, ever behind,
 Yet flying swiftly past;
 For a child, I last forever,
 For adults, I'm gone too fast.
 What am I?"""
	CRLF	
	HLIGHT	H-NORMAL
	RTRUE	
?CCL15:	INTBL?	PRSA,MOVEVERBS,NMVERBS >X \?CCL17
	ICALL1	CTHE-PRINT
	PRINTR	" is much too big and heavy."
?CCL17:	INTBL?	PRSA,E-VERBS,CLIMB-ON-VERBS >X \?CCL19
	ICALL1	NO-FOOTHOLDS
	RTRUE	
?CCL19:	INTBL?	PRSA,X-VERBS,CLIMB-DOWN-VERBS >X \FALSE
	ICALL1	NOT-ON
	RTRUE	

	.ENDI