.FUNCT	TRANSCRIPT:ANY:1:1,STR
	PRINTI	"Here "
	PRINT	STR
	PRINTR	"s a transcript of interaction with"


	.FUNCT	V-SCRIPT:ANY:0:0
	GET	0,8
	BOR	STACK,1
	PUT	0,8,STACK
	ICALL2	TRANSCRIPT,STR?68
	ICALL1	V-VERSION
	RTRUE	


	.FUNCT	V-UNSCRIPT:ANY:0:0
	ICALL2	TRANSCRIPT,STR?69
	ICALL1	V-VERSION
	GET	0,8
	BAND	STACK,-2
	PUT	0,8,STACK
	RTRUE	


	.FUNCT	V-$ID:ANY:0:0
	PRINTI	"Interpreter "
	GETB	0,30
	PRINTN	STACK
	PRINTI	" Version "
	GETB	0,31
	PRINTC	STACK
	CRLF	
	RTRUE	


	.FUNCT	V-$VERIFY:ANY:0:0
	ZERO?	PRSO /?CCL3
	EQUAL?	PRSO,INTNUM \?CCL6
	EQUAL?	P-NUMBER,105 \?CCL6
	PRINTN	SERIAL
	CRLF	
	RTRUE	
?CCL6:	CALL1	DONT-UNDERSTAND
	RSTACK	
?CCL3:	PRINTI	"Verifying disk..."
	CRLF	
	VERIFY	 \?CCL11
	PRINTR	"The disk is correct."
?CCL11:	PRINTR	"Oh, oh! The disk seems to have a defect. Try verifying again. (If you've already done that, the disk surely has a defect.)"


	.FUNCT	V-$CHEAT:ANY:0:0,N,CH
	EQUAL?	PRSO,INTNUM \?CCL2
	EQUAL?	P-NUMBER,1,2,3 /?CND1
?CCL2:	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTR	"{Try $CHEAT 1, 2 or 3.}"
?CND1:	ZERO?	MOVES /FALSE
	PRINTI	"Don't you want to restart first?"
	CALL1	YES?
	ZERO?	STACK /?CCL10
	RESTART	
	RTRUE	
?CCL10:	PRINTR	"Okay, but this may not work!"


	.FUNCT	V-$QUEUE:ANY:0:0,C,E,TICK
	ADD	C-TABLE,C-INTS >C
	ADD	C-TABLE,C-TABLELEN >E
?PRG1:	EQUAL?	C,E /TRUE
	GET	C,C-ENABLED?
	ZERO?	STACK /?CND3
	GET	C,C-TICK >TICK
	ZERO?	TICK /?CND3
	GET	C,C-RTN
	ICALL	STACK,G-DEBUG
	PRINTC	9
	PRINTN	TICK
	CRLF	
?CND3:	ADD	C,C-INTLEN >C
	JUMP	?PRG1


	.FUNCT	V-$COMMAND:ANY:0:0
	DIRIN	1
	RTRUE	


	.FUNCT	V-$RANDOM:ANY:0:0
	EQUAL?	PRSO,INTNUM /?CCL3
	PRINTR	"Illegal."
?CCL3:	SUB	0,P-NUMBER
	RANDOM	STACK
	RTRUE	


	.FUNCT	V-$RECORD:ANY:0:0
	DIROUT	D-RECORD-ON
	RTRUE	


	.FUNCT	V-$UNRECORD:ANY:0:0
	DIROUT	D-RECORD-OFF
	RTRUE	


	.FUNCT	YOU-WILL-GET:ANY:1:1,STR
	PRINTI	"[Okay, you will get "
	PRINT	STR
	PRINTR	" descriptions.]"


	.FUNCT	V-SUPER-BRIEF:ANY:0:0
	SET	'VERBOSITY,0
	CALL2	YOU-WILL-GET,STR?70
	RSTACK	


	.FUNCT	V-BRIEF:ANY:0:0
	SET	'VERBOSITY,1
	CALL2	YOU-WILL-GET,STR?71
	RSTACK	


	.FUNCT	V-VERBOSE:ANY:0:0
	SET	'VERBOSITY,2
	ICALL2	YOU-WILL-GET,STR?72
	CRLF	
	CALL1	V-LOOK
	RSTACK	


	.FUNCT	V-INVENTORY:ANY:0:0
	ICALL	HE-SHE-IT,WINNER,1,STR?61
	PRINTI	" holding"
	CALL2	PRINT-CONTENTS,WINNER
	ZERO?	STACK \?CND1
	PRINTI	" nothing"
?CND1:	PRINTC	46
	CRLF	
	RTRUE	


	.FUNCT	V-QUIT:ANY:0:1,ASK?
	ASSIGNED?	'ASK? /?CND1
	SET	'ASK?,TRUE-VALUE
?CND1:	ICALL1	V-SCORE
	ZERO?	ASK? \?CND3
	QUIT	
?CND3:	PRINTI	"[If you want to continue from this point at another time, you must ""SAVE"" first. Do you want to stop the story now?]"
	CALL1	YES?
	ZERO?	STACK /?CCL7
	QUIT	
	RTRUE	
?CCL7:	PRINTR	"Okay."


	.FUNCT	V-RESTART:ANY:0:0
	ICALL1	V-SCORE
	PRINTI	"[Do you want to start over from the beginning?]"
	CALL1	YES?
	ZERO?	STACK /?CCL3
	RESTART	
	CALL1	TELL-FAILED
	RSTACK	
?CCL3:	PRINTR	"Okay."


	.FUNCT	TELL-FAILED:ANY:0:0
	PRINTR	"[Sorry, but it didn't work. Maybe your instruction manual or Reference Card can tell you why.]"


	.FUNCT	V-SAVE:ANY:0:0,X
	PUTB	G-INBUF,1,0
	SET	'CLOCK-WAIT,TRUE-VALUE
	SAVE	 >X
	EQUAL?	X,2 /?CCL2
	GET	0,8
	BTST	STACK,4 \?CND1
?CCL2:	ICALL1	V-$REFRESH
?CND1:	ZERO?	X \?CCL7
	ICALL1	TELL-FAILED
	RETURN	2
?CCL7:	PRINTI	"[Okay.]"
	CRLF	
	EQUAL?	X,1 /TRUE
	ICALL1	V-FIRST-LOOK
	RTRUE	


	.FUNCT	V-RESTORE:ANY:0:0
	RESTORE	
	ZERO?	STACK \FALSE
	ICALL1	TELL-FAILED
	RFALSE	


	.FUNCT	V-FIRST-LOOK:ANY:0:0
	CALL1	DESCRIBE-ROOM
	ZERO?	STACK /FALSE
	ZERO?	VERBOSITY /FALSE
	CALL1	DESCRIBE-OBJECTS
	RSTACK	


	.FUNCT	V-VERSION:ANY:0:0,IDX
	SET	'IDX,18
	PRINTI	"MILLIWAYS
Infocom interactive science fiction
Copyright (c) 1988 by Infocom, Inc. All rights reserved.
Release number "
	GET	0,1
	BAND	STACK,2047
	PRINTN	STACK
	PRINTI	" / Serial number "
?PRG1:	GETB	0,IDX
	PRINTC	STACK
	IGRTR?	'IDX,23 \?PRG1
	CRLF	
	RTRUE	


	.FUNCT	V-SCORE:ANY:0:0
	PRINTI	"Your score is "
	PRINTN	SCORE
	PRINTI	" of a possible "
	PRINTN	SCORE-MAX
	PRINTI	", in "
	PRINTN	MOVES
	PRINTI	" turn"
	EQUAL?	MOVES,1 \?CCL3
	PRINTC	46
	JUMP	?CND1
?CCL3:	PRINTI	"s."
?CND1:	CRLF	
	RETURN	SCORE


	.FUNCT	NO-NEED:ANY:0:2,STR,OBJ
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTC	40
	ICALL	HE-SHE-IT,WINNER,1,STR?65
	PRINTI	"n't need to "
	ZERO?	STR /?CCL3
	PRINT	STR
	JUMP	?CND1
?CCL3:	ICALL1	VERB-PRINT
?CND1:	EQUAL?	STR,STR?73,STR?74 \?CCL6
	PRINTI	" in that "
	PRINTD	INTDIR
	JUMP	?CND4
?CCL6:	ZERO?	OBJ /?CCL8
	ICALL2	PRINT-THE,OBJ
	JUMP	?CND4
?CCL8:	ICALL2	PRINT-THE,PRSO
?CND4:	PRINTR	".)"


	.FUNCT	YOU-CANT:ANY:0:3,STR,WHILE,STR1
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTC	40
	ICALL	HE-SHE-IT,WINNER,1
	PRINTI	" can't "
	ZERO?	STR \?CCL3
	ICALL1	VERB-PRINT
	JUMP	?CND1
?CCL3:	PRINT	STR
?CND1:	EQUAL?	STR,STR?73,STR?74 \?CCL6
	PRINTI	" in that "
	PRINTD	INTDIR
	JUMP	?CND4
?CCL6:	EQUAL?	PRSO,PSEUDO-OBJECT \?CCL9
	PRINTI	" it"
	JUMP	?CND7
?CCL9:	EQUAL?	PRSO,FLOOR \?CCL11
	CALL2	OUTSIDE?,HERE
	ZERO?	STACK /?CCL11
	PRINTI	" the ground"
	JUMP	?CND7
?CCL11:	ICALL2	PRINT-THE,PRSO
?CND7:	ZERO?	STR1 /?CND4
	PRINTI	" while"
	ZERO?	WHILE /?CCL18
	ICALL	HE-SHE-IT,WHILE,0,STR?61
	JUMP	?CND16
?CCL18:	ICALL	HE-SHE-IT,PRSO,0,STR?61
?CND16:	PRINTC	32
	PRINT	STR1
?CND4:	PRINTR	".)"


	.FUNCT	TELL-BEING-WORN:ANY:1:1,OBJ
	FSET?	OBJ,WORNBIT \FALSE
	PRINTI	" (actually, wearing it)"
	RTRUE	


	.FUNCT	PRINT-CONTENTS:ANY:1:1,CONT,OBJ,NXT,1ST?,VAL
	SET	'1ST?,TRUE-VALUE
	FIRST?	CONT >OBJ /?PRG2
?PRG2:	ZERO?	OBJ /?REP3
	NEXT?	OBJ >NXT /?BOGUS7
?BOGUS7:	FSET?	OBJ,INVISIBLE /?CCL9
	FSET?	OBJ,NDESCBIT /?CCL9
	EQUAL?	OBJ,WINNER \?CND8
?CCL9:	MOVE	OBJ,INTDIR
?CND8:	SET	'OBJ,NXT
	JUMP	?PRG2
?REP3:	FIRST?	CONT >OBJ /?BOGUS13
?BOGUS13:	ZERO?	OBJ \?PRG19
	EQUAL?	CONT,PLAYER /?CND14
	PRINTI	" nothing "
	CALL2	PICK-ONE-NEW,YAWNS
	PRINT	STACK
?CND14:	ICALL	ROB,INTDIR,CONT
	RETURN	VAL
?PRG19:	ZERO?	OBJ /?CND14
	NEXT?	OBJ >NXT /?BOGUS24
?BOGUS24:	ZERO?	1ST? /?CCL27
	SET	'VAL,TRUE-VALUE
	SET	'1ST?,FALSE-VALUE
	JUMP	?CND25
?CCL27:	ZERO?	NXT /?CCL30
	PRINTC	44
	JUMP	?CND25
?CCL30:	PRINTI	" and"
?CND25:	ICALL2	PRINT-THE,OBJ
	ICALL2	TELL-BEING-WORN,OBJ
	ICALL2	THIS-IS-IT,OBJ
	FCLEAR	OBJ,SECRETBIT
	FSET	OBJ,SEENBIT
	SET	'OBJ,NXT
	JUMP	?PRG19


	.FUNCT	DESCRIBE-OBJECTS:ANY:0:1,CONT,OBJ,NXT,STR,VAL,HE,SHE,FIRST,TWO?,IT?,ANY?
	SET	'FIRST,TRUE-VALUE
	ZERO?	CONT \?CND1
	SET	'CONT,HERE
?CND1:	ZERO?	LIT \?CND3
	ICALL1	TOO-DARK
	RTRUE	
?CND3:	FIRST?	CONT >OBJ /?BOGUS5
?BOGUS5:	ZERO?	OBJ /FALSE
?PRG8:	ZERO?	OBJ /?REP9
	NEXT?	OBJ >NXT /?BOGUS13
?BOGUS13:	FSET?	OBJ,INVISIBLE /?CCL15
	FSET?	OBJ,NDESCBIT /?CCL15
	EQUAL?	OBJ,WINNER /?CCL15
	FSET?	OBJ,PERSONBIT \?PRD20
	FSET?	OBJ,RMUNGBIT /?CCL15
?PRD20:	LOC	PLAYER
	EQUAL?	OBJ,STACK \?CND14
?CCL15:	FCLEAR	OBJ,RMUNGBIT
	MOVE	OBJ,PSEUDO-OBJECT
?CND14:	SET	'OBJ,NXT
	JUMP	?PRG8
?REP9:	EQUAL?	CONT,HERE \?CND24
	SET	'NXT,CHARACTER-MAX
?PRG26:	PUT	TOUCHED-LDESCS,NXT,0
	DLESS?	'NXT,1 \?PRG26
	SET	'NXT,0
?PRG30:	IGRTR?	'NXT,CHARACTER-MAX /?REP31
	GET	CHARACTER-TABLE,NXT >OBJ
	IN?	OBJ,HERE \?PRG30
	PUT	FOLLOW-LOC,NXT,HERE
	GETP	OBJ,P?DESCFCN
	CALL	STACK,M-OBJDESC >VAL
	FSET	OBJ,SEENBIT
	EQUAL?	VAL,M-FATAL /?CCL37
	ZERO?	ANY? \?CND36
?CCL37:	SET	'ANY?,VAL
?CND36:	FSET?	OBJ,FEMALEBIT \?CCL42
	ZERO?	SHE \?CCL45
	SET	'SHE,OBJ
	JUMP	?CND40
?CCL45:	SET	'SHE,1
	JUMP	?CND40
?CCL42:	ZERO?	HE \?CCL48
	SET	'HE,OBJ
	JUMP	?CND40
?CCL48:	SET	'HE,1
?CND40:	MOVE	OBJ,PSEUDO-OBJECT
	JUMP	?PRG30
?REP31:	SET	'NXT,0
?PRG49:	IGRTR?	'NXT,CHARACTER-MAX /?REP50
	GET	TOUCHED-LDESCS,NXT >OBJ
	ZERO?	OBJ /?PRG49
	SET	'FIRST,TRUE-VALUE
	GET	CHARACTER-TABLE,NXT >STR
	ICALL2	START-SENTENCE,STR
	SET	'STR,NXT
?PRG55:	IGRTR?	'STR,CHARACTER-MAX \?CCL59
	ZERO?	FIRST /?CCL62
	PRINTI	" is "
	JUMP	?CND60
?CCL62:	PRINTI	" are "
?CND60:	GET	LDESC-STRINGS,OBJ
	PRINT	STACK
	PRINTC	46
	CRLF	
	JUMP	?PRG49
?CCL59:	GET	TOUCHED-LDESCS,STR
	EQUAL?	OBJ,STACK \?PRG55
	PUT	TOUCHED-LDESCS,STR,0
	SET	'FIRST,FALSE-VALUE
	PRINTI	" and"
	GET	CHARACTER-TABLE,STR
	ICALL2	PRINT-THE,STACK
	JUMP	?PRG55
?REP50:	EQUAL?	SHE,0,1 /?CCL66
	ICALL2	THIS-IS-IT,SHE
	JUMP	?CND64
?CCL66:	EQUAL?	SHE,1 \?CND64
	SET	'P-HER-OBJECT,FALSE-VALUE
?CND64:	EQUAL?	HE,0,1 /?CCL70
	ICALL2	THIS-IS-IT,HE
	JUMP	?CND68
?CCL70:	EQUAL?	HE,1 \?CND68
	SET	'P-HIM-OBJECT,FALSE-VALUE
?CND68:	SET	'FIRST,TRUE-VALUE
	FIRST?	CONT >OBJ /?PRG73
?PRG73:	ZERO?	OBJ /?REP74
	NEXT?	OBJ >NXT /?BOGUS78
?BOGUS78:	GETP	OBJ,P?DESCFCN >STR
	ZERO?	STR /?CND79
	CALL	STR,M-OBJDESC >VAL
	EQUAL?	VAL,M-FATAL /?CCL82
	ZERO?	ANY? \?CND81
?CCL82:	SET	'ANY?,VAL
?CND81:	ICALL2	THIS-IS-IT,OBJ
	FSET	OBJ,SEENBIT
	MOVE	OBJ,PSEUDO-OBJECT
?CND79:	SET	'OBJ,NXT
	JUMP	?PRG73
?REP74:	FIRST?	CONT >OBJ /?PRG86
?PRG86:	ZERO?	OBJ /?REP87
	FSET?	OBJ,TOUCHBIT /?REP87
	NEXT?	OBJ >NXT /?BOGUS93
?BOGUS93:	GETP	OBJ,P?FDESC >STR
	ZERO?	STR /?CND94
	ZERO?	ANY? \?CND96
	SET	'ANY?,TRUE-VALUE
?CND96:	PRINT	STR
	CRLF	
	FCLEAR	OBJ,SECRETBIT
	FSET	OBJ,SEENBIT
	ICALL2	THIS-IS-IT,OBJ
	MOVE	OBJ,PSEUDO-OBJECT
?CND94:	SET	'OBJ,NXT
	JUMP	?PRG86
?REP87:	FIRST?	CONT >OBJ /?PRG99
?PRG99:	ZERO?	OBJ /?CND24
	NEXT?	OBJ >NXT /?BOGUS104
?BOGUS104:	GETP	OBJ,P?LDESC >STR
	ZERO?	STR /?CND105
	ZERO?	ANY? \?CND107
	SET	'ANY?,TRUE-VALUE
?CND107:	PRINT	STR
	CRLF	
	FCLEAR	OBJ,SECRETBIT
	FSET	OBJ,SEENBIT
	ICALL2	THIS-IS-IT,OBJ
	MOVE	OBJ,PSEUDO-OBJECT
?CND105:	SET	'OBJ,NXT
	JUMP	?PRG99
?CND24:	FIRST?	HERE >OBJ /?BOGUS109
?BOGUS109:	SET	'VAL,FALSE-VALUE
	ZERO?	OBJ /?CND110
?PRG112:	ZERO?	OBJ /?CCL116
	NEXT?	OBJ >NXT /?BOGUS117
?BOGUS117:	SET	'VAL,TRUE-VALUE
	ZERO?	FIRST /?CCL120
	SET	'FIRST,FALSE-VALUE
	EQUAL?	CONT,HERE \?CND118
	CRLF	
	FSET?	HERE,ONBIT \?CCL125
	PRINTI	"You see"
	JUMP	?CND118
?CCL125:	PRINTI	"The light reveals"
	JUMP	?CND118
?CCL120:	ZERO?	NXT /?CCL128
	PRINTC	44
	JUMP	?CND118
?CCL128:	PRINTI	" and"
?CND118:	ICALL2	PRINT-THE,OBJ
	FCLEAR	OBJ,SECRETBIT
	FSET	OBJ,SEENBIT
	ICALL2	THIS-IS-IT,OBJ
	ICALL2	TELL-BEING-WORN,OBJ
	CALL2	SEE-INSIDE?,OBJ
	ZERO?	STACK /?CND129
	CALL2	SEE-ANYTHING-IN?,OBJ
	ZERO?	STACK /?CND129
	MOVE	OBJ,INTNUM
?CND129:	ZERO?	IT? \?CCL135
	ZERO?	TWO? \?CCL135
	SET	'IT?,OBJ
	JUMP	?CND133
?CCL135:	SET	'TWO?,TRUE-VALUE
	SET	'IT?,FALSE-VALUE
?CND133:	SET	'OBJ,NXT
	JUMP	?PRG112
?CCL116:	ZERO?	IT? /?CND138
	ZERO?	TWO? \?CND138
	SET	'P-IT-OBJECT,IT?
?CND138:	EQUAL?	CONT,HERE \?CND142
	PRINTI	" here"
?CND142:	PRINTC	46
	ZERO?	ANY? \?CND110
	SET	'ANY?,TRUE-VALUE
?CND110:	FIRST?	INTNUM >OBJ /?PRG147
?PRG147:	ZERO?	OBJ /?REP148
	FSET?	OBJ,SURFACEBIT \?CCL153
	CRLF	
	PRINTI	"On"
	JUMP	?CND151
?CCL153:	CRLF	
	PRINTI	"Inside"
?CND151:	SET	'VAL,TRUE-VALUE
	ICALL2	PRINT-THE,OBJ
	PRINTI	" you see"
	ICALL2	PRINT-CONTENTS,OBJ
	PRINTC	46
	NEXT?	OBJ >OBJ /?PRG147
	JUMP	?PRG147
?REP148:	ZERO?	VAL /?CND155
	CRLF	
?CND155:	ICALL	ROB,INTNUM,CONT
	ICALL	ROB,PSEUDO-OBJECT,CONT
	RETURN	ANY?


	.FUNCT	SEE-ANYTHING-IN?:ANY:1:1,CONT,OBJ,NXT,ANY?
	FIRST?	CONT >OBJ /?PRG2
?PRG2:	ZERO?	OBJ /?REP3
	FSET?	OBJ,INVISIBLE /?CND7
	FSET?	OBJ,NDESCBIT /?CND7
	EQUAL?	OBJ,WINNER /?CND7
	SET	'ANY?,TRUE-VALUE
	RETURN	ANY?
?CND7:	NEXT?	OBJ >OBJ /?PRG2
	JUMP	?PRG2
?REP3:	RETURN	ANY?


	.FUNCT	DESCRIBE-ROOM:ANY:0:1,LOOK?,V?,STR,L
	ZERO?	LOOK? /?CCL3
	SET	'V?,TRUE-VALUE
	JUMP	?CND1
?CCL3:	EQUAL?	2,VERBOSITY \?CCL5
	SET	'V?,TRUE-VALUE
	JUMP	?CND1
?CCL5:	ZERO?	VERBOSITY \?CCL7
	SET	'V?,FALSE-VALUE
	JUMP	?CND1
?CCL7:	FSET?	HERE,TOUCHBIT /?CND1
	SET	'V?,TRUE-VALUE
?CND1:	PRINTC	40
	ZERO?	VERBOSITY \?CCL12
	PRINTD	HERE
	JUMP	?CND10
?CCL12:	PRINTI	"You are"
	FSET?	HERE,TOUCHBIT /?CND13
	PRINTI	" now"
?CND13:	FSET?	HERE,SURFACEBIT \?CCL17
	PRINTI	" on"
	JUMP	?CND15
?CCL17:	PRINTI	" in"
?CND15:	ICALL2	PRINT-THE,HERE
	PRINTC	46
?CND10:	PRINTI	")
"
	ZERO?	LIT \?CCL20
	ICALL1	TOO-DARK
	RFALSE	
?CCL20:	EQUAL?	LIT,HERE /?CND18
	PRINTI	"Light comes from"
	ICALL2	PRINT-THE,LIT
	PRINTC	46
	CRLF	
?CND18:	ZERO?	V? /?CND22
	LOC	WINNER >L
	FSET?	L,VEHBIT \?CND24
	PRINTI	"(You're "
	PRINTI	"sitt"
	PRINTI	"ing on"
	ICALL2	THIS-IS-IT,L
	ICALL2	PRINT-THE,L
	PRINTI	".)"
	CRLF	
?CND24:	ZERO?	V? /?CCL29
	GETP	HERE,P?ACTION
	CALL	STACK,M-LOOK
	ZERO?	STACK \?CND22
?CCL29:	ZERO?	V? /?CCL33
	GETP	HERE,P?FDESC >STR
	ZERO?	STR /?CCL33
	PRINT	STR
	CRLF	
	JUMP	?CND22
?CCL33:	ZERO?	V? /?CCL37
	GETP	HERE,P?LDESC >STR
	ZERO?	STR /?CCL37
	PRINT	STR
	CRLF	
	JUMP	?CND22
?CCL37:	GETP	HERE,P?ACTION
	ICALL	STACK,M-FLASH
?CND22:	FSET	HERE,SEENBIT
	FSET	HERE,TOUCHBIT
	RTRUE	


	.FUNCT	HAR-HAR:ANY:0:0
	SET	'CLOCK-WAIT,TRUE-VALUE
	CALL2	PICK-ONE-NEW,YUKS
	PRINT	STACK
	CRLF	
	RTRUE	


	.FUNCT	IMPOSSIBLE:ANY:0:0
	SET	'CLOCK-WAIT,TRUE-VALUE
	CALL2	PICK-ONE-NEW,IMPOSSIBLES
	PRINT	STACK
	CRLF	
	RTRUE	


	.FUNCT	WONT-HELP:ANY:0:0
	SET	'CLOCK-WAIT,TRUE-VALUE
	CALL2	PICK-ONE-NEW,WASTES
	PRINT	STACK
	CRLF	
	RTRUE	


	.FUNCT	PICK-ONE-NEW:ANY:1:1,FROB,L,CNT,RND,MSG,RFROB
	GET	FROB,0
	SUB	STACK,1 >L
	GET	FROB,1 >CNT
	ADD	FROB,2 >FROB
	MUL	CNT,2
	ADD	FROB,STACK >RFROB
	SUB	L,CNT >RND
	RANDOM	RND >RND
	GRTR?	RND,0 /?CND1
	PRINTI	"{PICK-ONE-NEW: L="
	PRINTN	L
	PRINTI	" CNT="
	PRINTN	CNT
	PRINTI	" RND="
	PRINTN	RND
	PRINTI	" FROB="
	PRINTN	FROB
	PRINTC	125
	CRLF	
?CND1:	GET	RFROB,RND >MSG
	GET	RFROB,1
	PUT	RFROB,RND,STACK
	PUT	RFROB,1,MSG
	INC	'CNT
	EQUAL?	CNT,L \?CND3
	SET	'CNT,0
?CND3:	PUT	FROB,0,CNT
	RETURN	MSG


	.FUNCT	PICK-ONE:ANY:1:1,FROB
	GET	FROB,0
	RANDOM	STACK
	GET	FROB,STACK
	RSTACK	


	.FUNCT	NOT-HOLDING?:ANY:1:1,OBJ
	IN?	OBJ,WINNER /FALSE
	LOC	OBJ
	IN?	STACK,WINNER /FALSE
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTC	40
	ICALL	HE-SHE-IT,WINNER,1,STR?61
	PRINTI	" not holding"
	ICALL2	HIM-HER-IT,OBJ
	PRINTR	".)"


	.FUNCT	GOTO:ANY:1:3,RM,TEST,FOLLOW?,X
	ASSIGNED?	'TEST /?CND1
	SET	'TEST,TRUE-VALUE
?CND1:	ASSIGNED?	'FOLLOW? /?CND3
	SET	'FOLLOW?,TRUE-VALUE
?CND3:	IN?	WINNER,RM \?CND5
	ICALL1	WALK-WITHIN-ROOM
	RFALSE	
?CND5:	GETP	HERE,P?ACTION
	CALL	STACK,M-LEAVE
	ZERO?	STACK \FALSE
	EQUAL?	WINNER,PLAYER \?CND7
	ZERO?	FOLLOW? /?CND7
	ZERO?	FOLLOWER /?CND7
	ICALL2	FRIEND-FOLLOWS-YOU,RM
?CND7:	ZERO?	TEST /?CND15
	EQUAL?	WINNER,PLAYER \?CND15
	CALL	DIR-FROM,HERE,RM >X
	ZERO?	X /?CND15
	GETP	HERE,P?ACTION
	CALL	STACK,X
	EQUAL?	M-FATAL,STACK /FALSE
?CND15:	GETP	WINNER,P?CHARACTER
	PUT	FOLLOW-LOC,STACK,RM
	MOVE	WINNER,RM
	EQUAL?	WINNER,PLAYER \TRUE
	SET	'OHERE,HERE
	SET	'HERE,RM
	ICALL2	MAKE-ALL-PEOPLE,-12
	ICALL1	ENTER-ROOM
	RTRUE	


	.FUNCT	MAKE-ALL-PEOPLE:ANY:1:2,NUM,RM,P,NNUM
	ZERO?	RM \?CND1
	SET	'RM,HERE
?CND1:	LESS?	NUM,0 \?CND3
	SUB	0,NUM >NNUM
?CND3:	FIRST?	RM >P /?PRG6
?PRG6:	ZERO?	P /TRUE
	FSET?	P,PERSONBIT \?CND8
	GRTR?	NUM,0 \?CCL14
	PUTP	P,P?LDESC,NUM
	JUMP	?CND8
?CCL14:	GETP	P,P?LDESC
	EQUAL?	NNUM,STACK \?CND8
	PUTP	P,P?LDESC,0
?CND8:	NEXT?	P >P /?PRG6
	JUMP	?PRG6


	.FUNCT	FRIEND-FOLLOWS-YOU:ANY:1:1,RM,C
	IN?	FOLLOWER,RM /FALSE
	MOVE	FOLLOWER,RM
	PUTP	FOLLOWER,P?LDESC,23
	PRINTD	FOLLOWER
	CALL2	PICK-ONE,TRAILS-ALONG
	PRINT	STACK
	CRLF	
	RTRUE	


	.FUNCT	DIR-FROM:ANY:2:2,HERE,THERE,V,P,D
	CALL	DIR-FROM-TEST,HERE,THERE,P?UP
	ZERO?	STACK /?CCL3
	RETURN	P?UP
?CCL3:	CALL	DIR-FROM-TEST,HERE,THERE,P?DOWN
	ZERO?	STACK /?CCL5
	RETURN	P?DOWN
?CCL5:	CALL	DIR-FROM-TEST,HERE,THERE,P?IN
	ZERO?	STACK /?CCL7
	RETURN	P?IN
?CCL7:	CALL	DIR-FROM-TEST,HERE,THERE,P?OUT
	ZERO?	STACK /?CND1
	RETURN	P?OUT
?CND1:	SET	'P,0
?PRG9:	NEXTP	HERE,P >P
	LESS?	P,LOW-DIRECTION \?CCL13
	RETURN	V
?CCL13:	CALL	DIR-FROM-TEST,HERE,THERE,P >D
	ZERO?	D /?PRG9
	LESS?	D,LOW-DIRECTION /?PRD19
	RETURN	P
?PRD19:	ZERO?	V \?CCL17
	SET	'V,P
	JUMP	?PRG9
?CCL17:	RETURN	P


	.FUNCT	DIR-FROM-TEST:ANY:3:3,HERE,THERE,P,L,TBL
	GETPT	HERE,P >TBL
	ZERO?	TBL /FALSE
	PTSIZE	TBL >L
	EQUAL?	L,DEXIT,UEXIT,CEXIT \FALSE
	GET	TBL,REXIT
	EQUAL?	STACK,THERE \FALSE
	RETURN	P


	.FUNCT	HACK-HACK:ANY:1:1,STR
	PRINT	STR
	ICALL2	HIM-HER-IT,PRSO
	CALL2	PICK-ONE,HO-HUM
	PRINT	STACK
	CRLF	
	RTRUE	


	.FUNCT	HELD?:ANY:1:2,OBJ,CONT,L
	ZERO?	CONT \?PRG3
	SET	'CONT,PLAYER
?PRG3:	LOC	OBJ >L
	ZERO?	L /FALSE
	EQUAL?	L,CONT /TRUE
	EQUAL?	CONT,PLAYER,WINNER \?CCL11
	EQUAL?	OBJ,HANDS,HEAD,EYES /TRUE
	SET	'OBJ,L
	JUMP	?PRG3
?CCL11:	EQUAL?	L,ROOMS,GLOBAL-OBJECTS /FALSE
	SET	'OBJ,L
	JUMP	?PRG3


	.FUNCT	IDROP:ANY:0:0
	CALL2	NOT-HOLDING?,PRSO
	ZERO?	STACK \FALSE
	IN?	PRSO,WINNER /?CCL5
	LOC	PRSO
	FSET?	STACK,OPENBIT /?CCL5
	LOC	PRSO
	ICALL	TOO-BAD-BUT,STACK,STR?98
	RFALSE	
?CCL5:	MOVE	PRSO,HERE
	FCLEAR	PRSO,WORNBIT
	FCLEAR	PRSO,NDESCBIT
	FCLEAR	PRSO,INVISIBLE
	RTRUE	


	.FUNCT	ITAKE:ANY:0:2,VB,OB,CNT,OBJ,L,?TMP1
	ASSIGNED?	'VB /?CND1
	SET	'VB,TRUE-VALUE
?CND1:	ZERO?	OB \?CND3
	SET	'OB,PRSO
?CND3:	LOC	OB >L
	ZERO?	L /?CND5
	FSET?	L,PERSONBIT \?CND5
	FSET?	OB,TAKEBIT /?CCL11
	FSET?	L,MUNGBIT /?CCL11
	ZERO?	VB /FALSE
	ICALL2	YOU-CANT,STR?99
	RFALSE	
?CCL11:	FSET	OB,TAKEBIT
?CND5:	FSET?	OB,TAKEBIT /?CCL18
	ZERO?	VB /FALSE
	ICALL2	YOU-CANT,STR?99
	RFALSE	
?CCL18:	CALL2	CCOUNT,WINNER >CNT
	GRTR?	CNT,FUMBLE-NUMBER \?CCL22
	MUL	CNT,FUMBLE-PROB >?TMP1
	RANDOM	100
	LESS?	?TMP1,STACK /?CCL22
	CALL	FIND-FLAG-NOT,WINNER,WORNBIT >OBJ
	ZERO?	OBJ /?CCL22
	ICALL1	TOO-BAD-BUT
	ICALL2	PRINT-THE,OBJ
	PRINTI	" slips from"
	ICALL	HIM-HER-IT,WINNER,0,TRUE-VALUE
	PRINTI	" arms while"
	ICALL	HE-SHE-IT,WINNER,0,STR?61
	PRINTI	" taking"
	ICALL2	HIM-HER-IT,OB
	PRINTI	", and both tumble "
	CALL1	GROUND-DESC
	PRINT	STACK
	PRINTI	". "
	ICALL	HE-SHE-IT,WINNER,1,STR?61
	PRINTI	" carrying too many things.
"
	MOVE	OBJ,HERE
	MOVE	OB,HERE
	RETURN	2
?CCL22:	MOVE	OB,WINNER
	FSET	OB,SEENBIT
	FSET	OB,TOUCHBIT
	FCLEAR	OB,NDESCBIT
	FCLEAR	OB,INVISIBLE
	FCLEAR	OB,SECRETBIT
	EQUAL?	PRSA,V?TAKE /TRUE
	EQUAL?	L,WINNER /TRUE
	FSET?	L,PERSONBIT \TRUE
	ICALL	FIRST-YOU,STR?99,OB,L
	RTRUE	


	.FUNCT	CCOUNT:ANY:1:1,OBJ,CNT,X
	FIRST?	OBJ >X /?PRG3
	RETURN	CNT
?PRG3:	FSET?	X,WORNBIT /?CND5
	INC	'CNT
?CND5:	NEXT?	X >X /?PRG3
	RETURN	CNT


	.FUNCT	CHECK-DOOR:ANY:1:1,DR
	ICALL2	START-SENTENCE,DR
	PRINTI	" is "
	ICALL2	THIS-IS-IT,DR
	FSET?	DR,OPENBIT \?CCL3
	PRINTI	"open"
	JUMP	?CND1
?CCL3:	PRINTI	"closed and "
	FSET?	DR,LOCKED /?CND4
	PRINTI	"un"
?CND4:	PRINTI	"locked"
?CND1:	PRINTR	"."


	.FUNCT	ROOM-CHECK:ANY:0:0,P,PA
	SET	'P,PRSO
	EQUAL?	P,ROOMS /FALSE
	IN?	P,ROOMS \?CCL5
	EQUAL?	HERE,P /FALSE
	CALL	GLOBAL-IN?,P,HERE
	ZERO?	STACK /?CCL10
	EQUAL?	PRSA,V?SEARCH-FOR /?PRD16
	EQUAL?	PRSA,V?SEARCH,V?SIT,V?LIE \FALSE
?PRD16:	CALL2	META-LOC,P >P
	EQUAL?	P,HERE /FALSE
	ICALL	FIRST-YOU,STR?100,P
	SET	'PA,PRSA
	CALL	PERFORM,V?THROUGH,P >P
	SET	'PRSA,PA
	EQUAL?	M-FATAL,P /TRUE
	RFALSE	
?CCL10:	CALL2	SEE-INTO?,P
	ZERO?	STACK \FALSE
	RTRUE	
?CCL5:	CALL2	META-LOC,P
	EQUAL?	STACK,HERE,GLOBAL-OBJECTS,LOCAL-GLOBALS /FALSE
	CALL2	VISIBLE?,P
	ZERO?	STACK \FALSE
	CALL2	NOT-HERE,P
	RSTACK	


	.FUNCT	SEE-INSIDE?:ANY:1:2,OBJ,ONLY-IN
	FSET?	OBJ,TRANSBIT /TRUE
	FSET?	OBJ,OPENBIT /TRUE
	ZERO?	ONLY-IN \FALSE
	FSET?	OBJ,SURFACEBIT /TRUE
	RFALSE	


	.FUNCT	ARENT-TALKING:ANY:0:0
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTR	"(You aren't talking to anyone!)"


	.FUNCT	ALREADY:ANY:1:2,OBJ,STR
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTC	40
	ICALL2	START-SENTENCE,OBJ
	EQUAL?	OBJ,PLAYER \?CCL4
	PRINTI	" are"
	JUMP	?CND2
?CCL4:	PRINTI	" is"
?CND2:	PRINTI	" already "
	ZERO?	STR /TRUE
	PRINT	STR
	PRINTR	"!)"


	.FUNCT	NOT-CLEAR-WHOM:ANY:0:0
	SET	'P-CONT,FALSE-VALUE
	PRINTR	"[It's not clear whom you're talking to.]"


	.FUNCT	OKAY:ANY:0:2,OBJ,STR
	EQUAL?	WINNER,PLAYER \?CCL3
	EQUAL?	PRSA,V?WALK-TO,V?WALK,V?THROUGH \?CND1
	RTRUE	
?CCL3:	PRINTC	34
?CND1:	PRINTI	"Okay"
	ZERO?	OBJ /?CND6
	PRINTC	44
	ICALL2	HE-SHE-IT,OBJ
	ZERO?	STR /?CND8
	PRINTI	" is now "
	PRINT	STR
?CND8:	EQUAL?	STR,STR?101 \?CCL12
	FSET	OBJ,ONBIT
	JUMP	?CND6
?CCL12:	EQUAL?	STR,STR?102 \?CCL14
	FCLEAR	OBJ,ONBIT
	JUMP	?CND6
?CCL14:	EQUAL?	STR,STR?103 \?CCL16
	FSET	OBJ,OPENBIT
	JUMP	?CND6
?CCL16:	EQUAL?	STR,STR?98 \?CCL18
	FCLEAR	OBJ,OPENBIT
	JUMP	?CND6
?CCL18:	EQUAL?	STR,STR?104 \?CCL20
	FSET	OBJ,LOCKED
	JUMP	?CND6
?CCL20:	EQUAL?	STR,STR?105 \?CND6
	FCLEAR	OBJ,LOCKED
?CND6:	ZERO?	STR \?CCL23
	ZERO?	OBJ \?CND22
?CCL23:	EQUAL?	WINNER,PLAYER /?CND26
	PRINTI	","" says "
	PRINTD	WINNER
	PRINTI	". "
	ICALL	HE-SHE-IT,WINNER,1
	PRINTR	" does so."
?CND26:	PRINTC	46
	CRLF	
?CND22:	ZERO?	LIT \TRUE
	CALL1	LIT? >LIT
	ZERO?	LIT /TRUE
	CRLF	
	ICALL1	V-LOOK
	RTRUE	


	.FUNCT	TOO-BAD-BUT:ANY:0:2,OBJ,STR
	PRINTI	"Too bad, but"
	ZERO?	OBJ /?CND1
	ICALL2	HE-SHE-IT,OBJ
?CND1:	ZERO?	STR /TRUE
	PRINTI	" is "
	PRINT	STR
	EQUAL?	STR,STR?106,STR?107 \?CND5
	PRINTI	" with you"
?CND5:	PRINTR	"."


	.FUNCT	TOO-DARK:ANY:0:0
	PRINTR	"(It's too dark to see!)"


	.FUNCT	VISIBLE?:ANY:1:1,OBJ,L
	ZERO?	OBJ /FALSE
	CALL2	ACCESSIBLE?,OBJ
	ZERO?	STACK \TRUE
	LOC	OBJ >L
	CALL2	SEE-INSIDE?,L
	ZERO?	STACK /FALSE
	CALL2	VISIBLE?,L
	RSTACK	


	.FUNCT	ACCESSIBLE?:ANY:1:1,OBJ,L
	ZERO?	OBJ /FALSE
	LOC	OBJ >L
	FSET?	OBJ,INVISIBLE /FALSE
	EQUAL?	OBJ,PSEUDO-OBJECT \?CCL8
	EQUAL?	LAST-PSEUDO-LOC,HERE /TRUE
	RFALSE	
?CCL8:	ZERO?	L /FALSE
	EQUAL?	L,GLOBAL-OBJECTS /TRUE
	EQUAL?	L,LOCAL-GLOBALS \?CCL17
	CALL	GLOBAL-IN?,OBJ,HERE
	RSTACK	
?CCL17:	CALL2	META-LOC,OBJ
	EQUAL?	STACK,HERE \FALSE
	EQUAL?	L,WINNER,HERE /TRUE
	FSET?	L,OPENBIT /?CTR22
	FSET?	L,SURFACEBIT /?CTR22
	FSET?	L,PERSONBIT \FALSE
?CTR22:	CALL2	ACCESSIBLE?,L
	RSTACK	


	.FUNCT	WHO-CARES:ANY:0:0,N
	RANDOM	WHO-CARES-LENGTH >N
	GET	WHO-CARES-VERB,N
	ICALL	HE-SHE-IT,PRSO,TRUE-VALUE,STACK
	GET	WHO-CARES-TBL,N
	PRINT	STACK
	PRINTR	"."


	.FUNCT	PRE-SAIM:ANY:0:0
	ICALL	PERFORM,V?AIM,PRSI,PRSO
	RTRUE	


	.FUNCT	V-SAIM:ANY:0:0
	CALL1	V-FOO
	RSTACK	


	.FUNCT	V-AIM:ANY:0:0
	CALL1	YOU-CANT
	RSTACK	


	.FUNCT	PRE-SANALYZE:ANY:0:0
	ICALL	PERFORM,V?ANALYZE,PRSI,PRSO
	RTRUE	


	.FUNCT	V-SANALYZE:ANY:0:0
	CALL1	V-FOO
	RSTACK	


	.FUNCT	PRE-ANALYZE:ANY:0:0
	CALL1	ROOM-CHECK
	ZERO?	STACK \TRUE
	FSET?	PRSO,PERSONBIT \FALSE
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTR	"(Leave that to the police.)"


	.FUNCT	V-ANALYZE:ANY:0:0
	FSET?	PRSO,PERSONBIT \?CCL3
	PRINTR	"How?"
?CCL3:	FSET?	PRSO,DOORBIT \?CCL5
	CALL2	CHECK-DOOR,PRSO
	RSTACK	
?CCL5:	ICALL	HE-SHE-IT,PRSO,1,STR?114
	PRINTR	" normal."


	.FUNCT	V-ANSWER:ANY:0:0
	ZERO?	AWAITING-REPLY /?CCL3
	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?YES \?CCL6
	ICALL2	PERFORM,V?YES
	JUMP	?CND1
?CCL6:	ICALL2	PERFORM,V?NO
	JUMP	?CND1
?CCL3:	ICALL1	NOT-CLEAR-WHOM
?CND1:	SET	'P-CONT,FALSE-VALUE
	RTRUE	


	.FUNCT	V-REPLY:ANY:0:0
	SET	'P-CONT,FALSE-VALUE
	FSET?	PRSO,PERSONBIT \?CCL3
	FSET?	PRSO,MUNGBIT /?CCL3
	CALL1	WAITING-FOR-YOU-TO-SPEAK
	RSTACK	
?CCL3:	CALL1	YOU-CANT
	RSTACK	


	.FUNCT	WAITING-FOR-YOU-TO-SPEAK:ANY:0:0
	ICALL	HE-SHE-IT,PRSO,1,STR?109
	PRINTR	" to be waiting for you to speak."


	.FUNCT	V-ASK:ANY:0:0
	ZERO?	P-CONT /?CCL3
	FSET?	PRSO,PERSONBIT \?CCL3
	FSET?	PRSO,MUNGBIT /?CCL3
	SET	'WINNER,PRSO
	SET	'QCONTEXT,PRSO
	RETURN	QCONTEXT
?CCL3:	CALL1	V-ASK-ABOUT
	RSTACK	


	.FUNCT	PRE-ASK:ANY:0:0
	CALL2	META-LOC,PRSO
	EQUAL?	STACK,HERE /?CCL3
	CALL	GLOBAL-IN?,PRSO,HERE
	ZERO?	STACK \?CCL3
	ICALL2	NOT-HERE,PRSO
	RETURN	2
?CCL3:	EQUAL?	PRSO,PLAYER /?CTR8
	FSET?	PRSO,PERSONBIT /?CCL9
?CTR8:	EQUAL?	PRSA,V?$CALL \?CCL14
	ZERO?	P-CONT \?CCL14
	ICALL2	MISSING,STR?56
	RETURN	2
?CCL14:	EQUAL?	PRSA,V?LISTEN /FALSE
	ICALL2	WONT-HELP-TO-TALK-TO,PRSO
	RETURN	2
?CCL9:	CALL	GRAB-ATTENTION,PRSO,PRSI
	ZERO?	STACK \FALSE
	RETURN	2


	.FUNCT	GRAB-ATTENTION:ANY:1:2,PERSON,OBJ,N,GT,ATT
	FSET?	PERSON,MUNGBIT \?CND1
	GETP	PERSON,P?LDESC
	EQUAL?	STACK,14 \?CCL5
	ICALL	TOO-BAD-BUT,PERSON,STR?115
	RFALSE	
?CCL5:	ICALL	TOO-BAD-BUT,PERSON,STR?116
	RFALSE	
?CND1:	SET	'QCONTEXT,PERSON
	GETP	PERSON,P?LDESC
	EQUAL?	STACK,21 /TRUE
	PUTP	PERSON,P?LDESC,12
	RTRUE	


	.FUNCT	V-ASK-ABOUT:ANY:0:0
	FSET?	PRSO,PERSONBIT \?CCL3
	EQUAL?	PRSO,PLAYER /?CCL3
	PRINTI	"A long silence tells you that"
	ICALL2	PRINT-THE,PRSO
	PRINTI	" isn't interested in talking about"
	IN?	PRSI,ROOMS \?CCL8
	PRINTI	" that"
	JUMP	?CND6
?CCL8:	ICALL2	PRINT-THE,PRSI
?CND6:	PRINTR	"."
?CCL3:	ICALL	PERFORM,V?TELL,PRSO
	RTRUE	


	.FUNCT	WONT-HELP-TO-TALK-TO:ANY:1:1,OBJ
	PRINTI	"You talk to"
	ICALL2	PRINT-THE,OBJ
	PRINTI	" for a minute before you realize that"
	ICALL2	HE-SHE-IT,OBJ
	PRINTR	" won't respond."


	.FUNCT	PRE-ASK-CONTEXT-ABOUT:ANY:0:1,V,P
	ZERO?	V \?CND1
	SET	'V,V?ASK-ABOUT
?CND1:	CALL1	QCONTEXT-GOOD?
	ZERO?	STACK /?CCL5
	ICALL	PERFORM,V,QCONTEXT,PRSO
	RTRUE	
?CCL5:	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
	ZERO?	P /FALSE
	ICALL	TELL-I-ASSUME,P,STR?117
	ICALL	PERFORM,V,P,PRSO
	RTRUE	


	.FUNCT	V-ASK-CONTEXT-ABOUT:ANY:0:0
	CALL1	ARENT-TALKING
	RSTACK	


	.FUNCT	V-ASK-FOR:ANY:0:0
	PRINTI	"Unsurprisingly,"
	ICALL2	PRINT-THE,PRSO
	PRINTR	" doesn't oblige."


	.FUNCT	PRE-ASK-CONTEXT-FOR:ANY:0:0,P
	LOC	PRSO >P
	FSET?	P,PERSONBIT \?CCL3
	ICALL	PERFORM,V?ASK-FOR,P,PRSO
	RTRUE	
?CCL3:	CALL2	PRE-ASK-CONTEXT-ABOUT,V?ASK-FOR
	RSTACK	


	.FUNCT	V-ASK-CONTEXT-FOR:ANY:0:0
	CALL1	ARENT-TALKING
	RSTACK	


	.FUNCT	V-ATTACK:ANY:0:0
	CALL2	IKILL,STR?118
	RSTACK	


	.FUNCT	PRE-BRUSH:ANY:0:0
	EQUAL?	PRSO,ROOMS \FALSE
	EQUAL?	P-PRSA-WORD,W?SCRAPE,W?SCRATCH /FALSE
	SET	'PRSO,WINNER
	RFALSE	


	.FUNCT	V-BRUSH:ANY:0:0
	ZERO?	PRSI \?CCL3
	CALL2	HELD?,TOOTHBRUSH
	ZERO?	STACK /?CCL6
	PRINTI	"(with the "
	PRINTD	TOOTHBRUSH
	PRINTC	41
	CRLF	
	ICALL	PERFORM,V?BRUSH,PRSO,TOOTHBRUSH
	RTRUE	
?CCL6:	PRINTI	"You have nothing to brush"
	ICALL2	PRINT-THE,PRSO
	PRINTR	" with."
?CCL3:	EQUAL?	PRSI,TOOTHBRUSH /?CCL8
	PRINTI	"With "
	ICALL2	PRINTA,PRSI
	PRINTR	"!"
?CCL8:	EQUAL?	PRSO,TEETH /?CCL10
	PRINTI	"In general, "
	PRINTD	TOOTHBRUSH
	PRINTR	"es are meant for teeth."
?CCL10:	PRINTR	"Congratulations on your fine dental hygiene."


	.FUNCT	V-BUY:ANY:0:0
	PRINTI	"Sorry,"
	ICALL2	PRINT-THE,PRSO
	PRINTR	" isn't for sale."


	.FUNCT	V-$CALL:ANY:0:0
	ICALL2	UNSNOOZE,PRSO
	FSET?	PRSO,PERSONBIT \?CCL3
	CALL2	META-LOC,PRSO
	EQUAL?	STACK,HERE \?CCL6
	CALL2	GRAB-ATTENTION,PRSO
	ZERO?	STACK /?PRG11
	PUTP	PRSO,P?LDESC,12
	ICALL2	START-SENTENCE,PRSO
	PRINTI	" is "
	GET	LDESC-STRINGS,12
	PRINT	STACK
	PRINTR	"."
?PRG11:	RETURN	2
?CCL6:	CALL2	NOT-HERE,PRSO
	RSTACK	
?CCL3:	SET	'CLOCK-WAIT,TRUE-VALUE
	CALL2	MISSING,STR?56
	RSTACK	


	.FUNCT	UNSNOOZE:ANY:1:2,PER,NO-TELL?,RM,GT,C
	GETP	PER,P?LDESC >C
	EQUAL?	C,14 \FALSE
	PUTP	PER,P?LDESC,25
	FCLEAR	PER,MUNGBIT
	CALL2	META-LOC,PER >RM
	IN?	PER,HERE \?CND5
	ZERO?	NO-TELL? \?CND5
	ICALL	HE-SHE-IT,PER,1
	PRINTI	" wakes up first. "
	FSET?	RM,ONBIT /?CND5
	ICALL	HE-SHE-IT,PER,1
	PRINTI	" turns on the light. "
?CND5:	FSET	RM,ONBIT
	RTRUE	


	.FUNCT	V-CHASTISE:ANY:0:0
	EQUAL?	PRSO,INTDIR /?CND1
	PRINT	I-ASSUME
	PRINTI	" Look at"
	ICALL2	HIM-HER-IT,PRSO
	PRINTI	", not look in"
	ICALL2	HIM-HER-IT,PRSO
	PRINTI	" nor look for"
	ICALL2	HIM-HER-IT,PRSO
	PRINTI	" nor any other preposition.]"
	CRLF	
?CND1:	ICALL	PERFORM,V?EXAMINE,PRSO
	RTRUE	


	.FUNCT	V-BOARD:ANY:0:0
	IN?	PRSO,ROOMS /?CTR2
	FSET?	PRSO,DOORBIT \?CCL3
?CTR2:	CALL1	V-THROUGH
	RSTACK	
?CCL3:	FSET?	PRSO,VEHBIT \?CCL7
	IN?	WINNER,PRSO \?CCL10
	ICALL2	ALREADY,PLAYER
	PRINTI	"in"
	ICALL2	PRINT-THE,PRSO
	PRINTR	".)"
?CCL10:	MOVE	WINNER,PRSO
	ICALL	HE-SHE-IT,WINNER,1,STR?61
	PRINTI	" now "
	FSET?	PRSO,SURFACEBIT \?CCL13
	PRINTI	"on"
	JUMP	?CND11
?CCL13:	PRINTI	"in"
?CND11:	ICALL2	PRINT-THE,PRSO
	PRINTR	"."
?CCL7:	CALL2	YOU-CANT,STR?119
	RSTACK	


	.FUNCT	V-CLIMB-ON:ANY:0:0
	ICALL	PERFORM,V?SIT,PRSO
	RTRUE	


	.FUNCT	V-CLIMB-UP:ANY:0:2,DIR,OBJ,X
	ASSIGNED?	'DIR /?CND1
	SET	'DIR,P?UP
?CND1:	IN?	PRSO,ROOMS \?CCL5
	ICALL	PERFORM,V?WALK-TO,PRSO
	RTRUE	
?CCL5:	GETPT	HERE,DIR
	ZERO?	STACK /?CCL7
	ICALL2	DO-WALK,DIR
	RTRUE	
?CCL7:	ZERO?	OBJ \?CCL9
	CALL2	YOU-CANT,STR?73
	RSTACK	
?CCL9:	CALL1	HAR-HAR
	RSTACK	


	.FUNCT	V-CLIMB-DOWN:ANY:0:0
	CALL2	V-CLIMB-UP,P?DOWN
	RSTACK	


	.FUNCT	V-CLOSE:ANY:0:0
	FSET?	PRSO,CONTBIT /?CCL3
	FSET?	PRSO,DOORBIT /?CCL3
	EQUAL?	PRSO,WINDOW /?CCL3
	CALL1	YOU-CANT
	RSTACK	
?CCL3:	FSET?	PRSO,DOORBIT /?CTR7
	EQUAL?	PRSO,WINDOW \?CCL8
?CTR7:	FSET?	PRSO,OPENBIT \?CCL13
	CALL	OKAY,PRSO,STR?98
	RSTACK	
?CCL13:	CALL	ALREADY,PRSO,STR?98
	RSTACK	
?CCL8:	FSET?	PRSO,SURFACEBIT /?CCL16
	GETP	PRSO,P?CAPACITY
	ZERO?	STACK /?CCL16
	FSET?	PRSO,OPENBIT \?CCL21
	CALL	OKAY,PRSO,STR?98
	RSTACK	
?CCL21:	CALL	ALREADY,PRSO,STR?98
	RSTACK	
?CCL16:	CALL1	YOU-CANT
	RSTACK	


	.FUNCT	V-COUNT:ANY:0:0
	CALL1	IMPOSSIBLE
	RSTACK	


	.FUNCT	V-DIAGNOSE:ANY:0:0
	ZERO?	PRSO /?CCL3
	CALL1	YOU-CANT
	RSTACK	
?CCL3:	ICALL	HE-SHE-IT,WINNER,1,STR?61
	PRINTR	" wide awake and in good health."


	.FUNCT	TELL-NOT-IN:ANY:1:1,OBJ
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTC	40
	ICALL	HE-SHE-IT,WINNER,1,STR?61
	PRINTI	" not in"
	ICALL2	HIM-HER-IT,OBJ
	PRINTR	"!)"


	.FUNCT	V-DRINK:ANY:0:0
	CALL1	YOU-CANT
	RSTACK	


	.FUNCT	V-DROP:ANY:0:0,L
	CALL1	IDROP
	ZERO?	STACK /FALSE
	CALL	FIND-FLAG-HERE,VEHBIT,PRSO >L
	ZERO?	L /?CCL6
	MOVE	PRSO,L
	ICALL2	OKAY,PRSO
	PRINTI	" is now on"
	ICALL2	PRINT-THE,L
	PRINTR	"."
?CCL6:	CALL1	GROUND-DESC
	CALL	OKAY,PRSO,STACK
	RSTACK	


	.FUNCT	GROUND-DESC:ANY:0:0
	CALL2	OUTSIDE?,HERE
	ZERO?	STACK \?CCL3
	RETURN	STR?120
?CCL3:	RETURN	STR?121


	.FUNCT	PRE-EAT:ANY:0:0
	EQUAL?	PRSO,FALSE-VALUE,ROOMS \FALSE
	CALL2	META-LOC,DINNER
	EQUAL?	STACK,HERE \?CCL6
	ICALL	PERFORM,PRSA,DINNER
	RTRUE	
?CCL6:	ICALL2	NOT-HERE,DINNER
	RTRUE	


	.FUNCT	V-EAT:ANY:0:0
	PRINTI	"Stuffing"
	ICALL2	PRINT-THE,PRSO
	PRINTR	" in your mouth would do little to help at this point."


	.FUNCT	V-ENJOY:ANY:0:0
	FSET?	PRSO,PERSONBIT \?CCL3
	CALL1	V-KISS
	RSTACK	
?CCL3:	PRINTI	"Not difficult at all, considering how enjoyable"
	ICALL2	PRINT-THE,PRSO
	PRINTR	" is."


	.FUNCT	PRE-THROUGH:ANY:0:0,VEH
	EQUAL?	PRSO,GLOBAL-HERE,ROOMS \FALSE
	CALL	FIND-IN,HERE,VEHBIT >VEH
	ZERO?	VEH /?CCL6
	ICALL	PERFORM,V?BOARD,VEH
	RTRUE	
?CCL6:	ICALL2	DO-WALK,P?IN
	RTRUE	


	.FUNCT	V-THROUGH:ANY:0:0,RM,DIR
	CALL	NOUN-USED?,PRSO,W?DOOR
	ZERO?	STACK /?CCL3
	FSET?	PRSO,OPENBIT /?CTR2
	CALL	WALK-THRU-DOOR?,FALSE-VALUE,PRSO,FALSE-VALUE
	ZERO?	STACK /?CCL3
?CTR2:	CALL	DOOR-ROOM,HERE,PRSO >RM
	ZERO?	RM /?CCL10
	CALL2	GOTO,RM
	ZERO?	STACK \FALSE
?CCL10:	CALL1	V-FOO
	RSTACK	
?CCL3:	IN?	PRSO,ROOMS \?CCL14
	EQUAL?	PRSO,HERE \?CCL17
	ICALL1	WALK-WITHIN-ROOM
	RTRUE	
?CCL17:	CALL	SEE-INTO?,PRSO,FALSE-VALUE
	ZERO?	STACK /?CCL19
	ICALL2	GOTO,PRSO
	RTRUE	
?CCL19:	ICALL	PERFORM,V?WALK-TO,PRSO
	RTRUE	
?CCL14:	FSET?	PRSO,VEHBIT \?CCL21
	CALL	PERFORM,V?BOARD,PRSO
	RSTACK	
?CCL21:	FSET?	PRSO,PERSONBIT \?CCL24
	CALL1	HAR-HAR
	RSTACK	
?CCL24:	FSET?	PRSO,TAKEBIT /?CCL26
	ICALL	HE-SHE-IT,WINNER,1,STR?122
	PRINTI	" into"
	ICALL2	PRINT-THE,PRSO
	ICALL2	THIS-IS-IT,PRSO
	PRINTI	" trying to go through"
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	"."
?CCL26:	IN?	PRSO,WINNER \?CCL28
	ICALL	PERFORM,V?EXAMINE,EYES
	RTRUE	
?CCL28:	CALL1	HAR-HAR
	RSTACK	


	.FUNCT	PRE-EXAMINE:ANY:0:0
	CALL1	ROOM-CHECK
	RSTACK	


	.FUNCT	V-EXAMINE:ANY:0:0,TXT
	EQUAL?	PRSO,PSEUDO-OBJECT /?CCL2
	CALL	NOUN-USED?,PRSO,W?DOOR
	ZERO?	STACK /?CND1
	CALL	GLOBAL-IN?,PRSO,HERE
	ZERO?	STACK /?CND1
?CCL2:	SET	'TXT,TRUE-VALUE
?CND1:	EQUAL?	PRSO,INTDIR \?CCL9
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTR	"(If you want to see what's there, go there!)"
?CCL9:	EQUAL?	PRSO,LIGHT-GLOBAL /?CTR10
	EQUAL?	PRSO,WALL,EARS,TEETH /?CTR10
	EQUAL?	PRSO,EYES,HEAD,HANDS \?CCL11
?CTR10:	CALL1	NOTHING-SPECIAL
	RSTACK	
?CCL11:	IN?	PRSO,GLOBAL-OBJECTS \?CCL16
	ICALL2	NOT-HERE,PRSO
	RTRUE	
?CCL16:	IN?	PRSO,ROOMS \?CCL18
	ZERO?	TXT \?CCL18
	CALL2	ROOM-PEEK,PRSO
	RSTACK	
?CCL18:	CALL2	META-LOC,PRSO
	EQUAL?	STACK,HERE /?CCL22
	CALL	GLOBAL-IN?,PRSO,HERE
	ZERO?	STACK \?CCL22
	ZERO?	TXT \?CCL22
	CALL	TOO-BAD-BUT,PRSO,STR?123
	RSTACK	
?CCL22:	GETP	PRSO,P?TEXT >TXT
	ZERO?	TXT /?CCL27
	PRINT	TXT
	CRLF	
	RTRUE	
?CCL27:	FSET?	PRSO,DOORBIT \?CCL29
	CALL2	CHECK-DOOR,PRSO
	RSTACK	
?CCL29:	FSET?	PRSO,CONTBIT /?CTR30
	FSET?	PRSO,SURFACEBIT \?CCL31
?CTR30:	CALL1	V-LOOK-INSIDE
	RSTACK	
?CCL31:	CALL1	NOTHING-SPECIAL
	RSTACK	


	.FUNCT	NOTHING-SPECIAL:ANY:0:0
	PRINTI	"You see nothing special about"
	ICALL2	PRINT-THE,PRSO
	PRINTR	"."


	.FUNCT	GLOBAL-IN?:ANY:2:2,OBJ1,OBJ2,TEE
	EQUAL?	OBJ1,OBJ2 /TRUE
	GETPT	OBJ2,P?GLOBAL >TEE
	ZERO?	TEE /FALSE
	PTSIZE	TEE
	DIV	STACK,2
	INTBL?	OBJ1,TEE,STACK /?CND1
?CND1:	RSTACK	


	.FUNCT	V-FAINT:ANY:0:0
	PRINTI	"You doze for several minutes. "
	CALL1	V-WAIT
	RSTACK	


	.FUNCT	V-FILL:ANY:0:0
	CALL1	YOU-CANT
	RSTACK	


	.FUNCT	PRE-FIND:ANY:0:0,?TMP1
	EQUAL?	PRSO,PLAYER /FALSE
	FSET?	PRSO,SECRETBIT \?CCL5
	FSET?	PRSO,SEENBIT /?CCL5
	CALL1	NO-FUN
	RSTACK	
?CCL5:	IN?	PRSO,ROOMS \?CCL9
	EQUAL?	PRSO,HERE \?CCL12
	CALL	ALREADY,WINNER,STR?124
	RSTACK	
?CCL12:	ICALL	PERFORM,V?WALK-TO,PRSO
	RTRUE	
?CCL9:	FSET?	PRSO,PERSONBIT \FALSE
	CALL2	META-LOC,WINNER >?TMP1
	CALL2	META-LOC,PRSO
	EQUAL?	?TMP1,STACK \?CCL18
	FSET?	PRSO,NDESCBIT /?CCL18
	ICALL1	BITE-YOU
	RTRUE	
?CCL18:	CALL1	FOLLOW-LOC?
	ZERO?	STACK \TRUE
	ICALL2	WHO-KNOWS?,PRSO
	RETURN	2


	.FUNCT	BITE-YOU:ANY:0:0
	PRINTI	"If"
	ICALL2	HE-SHE-IT,PRSO
	PRINTI	" were any closer,"
	ICALL2	HE-SHE-IT,PRSO
	PRINTR	"'d bite you!"


	.FUNCT	FAR-AWAY?:ANY:1:1,L
	EQUAL?	L,GLOBAL-OBJECTS /TRUE
	FSET?	L,SECRETBIT \?CND1
	FSET?	L,SEENBIT \TRUE
?CND1:	FSET?	HERE,SECRETBIT \?PRD10
	FSET?	L,SECRETBIT \?CCL8
?PRD10:	FSET?	HERE,SECRETBIT /FALSE
	FSET?	L,SECRETBIT \FALSE
?CCL8:	CALL	SEE-INTO?,L,FALSE-VALUE
	ZERO?	STACK /TRUE
	RFALSE	


	.FUNCT	V-FIND:ANY:0:0,L
	LOC	PRSO >L
	EQUAL?	PRSO,HANDS,HEAD,EARS /?CTR2
	EQUAL?	PRSO,TEETH,EYES \?CCL3
?CTR2:	PRINTI	"Are you sure"
	ICALL2	PRINT-THE,PRSO
	PRINTR	" is lost?"
?CCL3:	CALL2	HELD?,PRSO
	ZERO?	STACK /?CCL7
	PRINTR	"You have it!"
?CCL7:	FSET?	L,PERSONBIT \?CCL9
	CALL2	VISIBLE?,L
	ZERO?	STACK /?CCL9
	PRINTI	"As far as you can tell,"
	ICALL2	PRINT-THE,L
	ICALL2	THIS-IS-IT,L
	PRINTR	" has it."
?CCL9:	CALL2	VISIBLE?,PRSO
	ZERO?	STACK /?CCL13
	PRINTR	"Right in front of you."
?CCL13:	FSET?	PRSO,SEENBIT /?CCL16
	CALL	NOT-HERE,PRSO,TRUE-VALUE
	RSTACK	
?CCL16:	EQUAL?	L,GLOBAL-OBJECTS,LOCAL-GLOBALS \?CCL19
	PRINTR	"It's around somewhere."
?CCL19:	CALL2	META-LOC,PRSO
	CALL2	FAR-AWAY?,STACK
	ZERO?	STACK /?CCL22
	PRINTR	"It's far away from here."
?CCL22:	FSET?	L,SURFACEBIT /?CTR23
	FSET?	L,CONTBIT /?CTR23
	IN?	L,ROOMS \?CCL24
?CTR23:	ICALL2	THIS-IS-IT,L
	PRINTI	"It's probably "
	FSET?	L,SURFACEBIT \?CCL30
	PRINTI	"on"
	JUMP	?CND28
?CCL30:	PRINTI	"in"
?CND28:	ICALL2	PRINT-THE,L
	PRINTR	"."
?CCL24:	PRINTR	"You'll have to do that yourself."


	.FUNCT	NO-FUN:ANY:0:0
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTR	"(If it's that easy, it spoils the fun!)"


	.FUNCT	TELL-LOCATION:ANY:0:0,DIR
	IN?	PLAYER,HERE /?CND1
	PRINTI	"sitting "
?CND1:	FSET?	HERE,SURFACEBIT \?CCL5
	PRINTI	"on"
	JUMP	?CND3
?CCL5:	PRINTI	"in"
?CND3:	ICALL2	PRINT-THE,HERE
	PRINTC	46
	RTRUE	


	.FUNCT	V-FIX:ANY:0:0
	CALL1	MORE-SPECIFIC
	RSTACK	


	.FUNCT	FOLLOW-LOC?:ANY:0:0,L
	GETP	PRSO,P?CHARACTER >L
	GET	FOLLOW-LOC,L >L
	ZERO?	L /FALSE
	PRINTI	"The last you knew,"
	ICALL2	HE-SHE-IT,PRSO
	PRINTI	" was "
	FSET?	L,SURFACEBIT \?CCL6
	PRINTI	"on"
	JUMP	?CND4
?CCL6:	PRINTI	"in"
?CND4:	ICALL2	PRINT-THE,L
	PRINTI	".
"
	RETURN	L


	.FUNCT	V-FOLLOW:ANY:0:0,L
	EQUAL?	PRSO,WINNER \?CCL3
	CALL1	YOU-CANT
	RSTACK	
?CCL3:	FSET?	PRSO,PERSONBIT /?CCL5
	CALL1	IMPOSSIBLE
	RSTACK	
?CCL5:	CALL2	META-LOC,PRSO
	EQUAL?	HERE,STACK \?CCL8
	PRINTI	"You're in the same place as"
	ICALL2	HE-SHE-IT,PRSO
	PRINTR	"!"
?CCL8:	ICALL2	WHO-KNOWS?,PRSO
	RETURN	2


	.FUNCT	V-FOO:ANY:0:0
	PRINTR	"[Foo!! This is a bug!!]"


	.FUNCT	V-FOOTNOTE:ANY:0:0
	EQUAL?	PRSO,INTNUM /?CCL3
	PRINTR	"Specify a number, as in ""FOOTNOTE 6."""
?CCL3:	EQUAL?	P-NUMBER,11 \?CCL5
	SET	'AWAITING-REPLY,14
	ICALL	QUEUE,I-REPLY,2
	PRINTR	"Isn't it fun reading through all the footnotes?"
?CCL5:	EQUAL?	P-NUMBER,12 \?CCL7
	PRINTR	"This is the famous recursive footnote (Footnote 12)."
?CCL7:	EQUAL?	P-NUMBER,14 \?CCL9
	PRINT	GUIDE-NAME
	PRINTI	" is also the name of a terrific work of interactive fiction by Douglas Adams and S. Eric Meretzky."
	PRINT	ALREADY-KNOW-THAT
	CRLF	
	RTRUE	
?CCL9:	PRINTI	"There is no Footnote "
	PRINTN	P-NUMBER
	PRINTR	"."


	.FUNCT	I-REPLY:ANY:0:0
	SET	'AWAITING-REPLY,FALSE-VALUE
	RFALSE	


	.FUNCT	PRE-GIVE:ANY:0:0
	EQUAL?	PRSI,PLAYER /FALSE
	CALL2	NOT-HOLDING?,PRSO
	ZERO?	STACK \TRUE
	RFALSE	


	.FUNCT	V-GIVE:ANY:0:0
	ZERO?	PRSI \?CCL3
	CALL1	YOU-CANT
	RSTACK	
?CCL3:	FSET?	PRSI,PERSONBIT /?CCL5
	ICALL	HE-SHE-IT,WINNER,1
	PRINTI	" can't give "
	ICALL2	PRINTA,PRSO
	PRINTI	" to "
	ICALL2	PRINTA,PRSI
	PRINTR	"!"
?CCL5:	EQUAL?	PRSI,PLAYER \?CCL7
	ICALL	PERFORM,V?TAKE,PRSO
	RTRUE	
?CCL7:	PRINTI	"Politely,"
	ICALL2	PRINT-THE,PRSI
	PRINTR	" refuses your offer."


	.FUNCT	PRE-SGIVE:ANY:0:0,X
	ICALL	PERFORM,V?GIVE,PRSI,PRSO
	RTRUE	


	.FUNCT	V-SGIVE:ANY:0:0
	CALL1	V-FOO
	RSTACK	


	.FUNCT	TELL-I-ASSUME:ANY:1:2,OBJ,PRON
	FSET?	PRON,TOUCHBIT /FALSE
	EQUAL?	OPRSO,OBJ /FALSE
	FSET	PRON,TOUCHBIT
	PRINT	I-ASSUME
	PRINTC	32
	ICALL2	TELL-THE,OBJ
	PRINTR	".]"


	.FUNCT	PRE-HELLO:ANY:0:0,P,WORD
	EQUAL?	P-PRSA-WORD,W?HELLO,W?HI \?CND1
	SET	'WORD,STR?126
?CND1:	EQUAL?	PRSO,ROOMS /?CCL5
	FSET?	PRSO,PERSONBIT /?CCL8
	ICALL2	WONT-HELP-TO-TALK-TO,PRSO
	RTRUE	
?CCL8:	FSET?	PRSO,MUNGBIT \?CCL11
	ICALL	PERFORM,V?ALARM,PRSO
	RTRUE	
?CCL11:	ZERO?	WORD /FALSE
	PRINT	I-ASSUME
	PRINT	WORD
	ICALL2	HIM-HER-IT,PRSO
	PRINTI	".]"
	CRLF	
	RFALSE	
?CCL5:	CALL1	QCONTEXT-GOOD?
	ZERO?	STACK /?CCL15
	PRINT	I-ASSUME
	PRINTC	32
	PRINTD	QCONTEXT
	PRINTI	".]"
	CRLF	
	ICALL	PERFORM,PRSA,QCONTEXT
	RTRUE	
?CCL15:	EQUAL?	WINNER,PLAYER \?CCL17
	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
	ZERO?	P /?CCL17
	PRINT	I-ASSUME
	PRINTC	32
	PRINTD	P
	PRINTI	".]"
	CRLF	
	ICALL	PERFORM,PRSA,P
	RTRUE	
?CCL17:	CALL1	NOT-CLEAR-WHOM
	RSTACK	


	.FUNCT	V-HELLO:ANY:0:0
	FSET?	PRSO,PERSONBIT \?CCL3
	FSET?	PRSO,MUNGBIT /?CCL6
	PRINTR	"""Hello to you too."""
?CCL6:	CALL2	WONT-HELP-TO-TALK-TO,PRSO
	RSTACK	
?CCL3:	CALL1	NOT-CLEAR-WHOM
	RSTACK	


	.FUNCT	V-HELP:ANY:0:0
	EQUAL?	PRSO,FALSE-VALUE,PLAYER \?CCL3
	CALL1	HELP-TEXT
	RSTACK	
?CCL3:	CALL1	MORE-SPECIFIC
	RSTACK	


	.FUNCT	HELP-TEXT:ANY:0:0
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTI	"[You'll find plenty of help in your "
	PRINTD	GAME
	PRINTR	" package.
If you're really stuck, you can order a complete map and InvisiClues (TM) hint booklet from your dealer or via mail with the form in your package.]"


	.FUNCT	V-HIDE:ANY:0:0
	PRINTR	"There's no place to hide here."


	.FUNCT	V-KILL:ANY:0:0
	PRINTR	"You are obviously letting things get to you. You should learn to relax a little."


	.FUNCT	IKILL:ANY:0:1,STR
	ZERO?	PRSO \?CCL3
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTI	"(There's nothing here to "
	PRINT	STR
	PRINTR	".)"
?CCL3:	ZERO?	PRSI \?CCL5
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINT	YOU-DIDNT-SAY-W
	PRINTI	"hat to "
	PRINT	STR
	ICALL2	PRINT-THE,PRSO
	FSET?	PRSO,WEAPONBIT \?CCL8
	PRINTI	" at"
	JUMP	?CND6
?CCL8:	PRINTI	" with"
?CND6:	PRINTR	".]"
?CCL5:	FSET?	PRSO,PERSONBIT /?CCL10
	CALL1	HAR-HAR
	RSTACK	
?CCL10:	PRINT	NO-VIOLENCE
	RTRUE	


	.FUNCT	V-KISS:ANY:0:0,X
	EQUAL?	PRSO,PLAYER \?CCL3
	PRINTI	"You kiss "
	PRINTD	PLAYER
	PRINTR	" for a minute. Yuk!"
?CCL3:	FSET?	PRSO,PERSONBIT \?CCL5
	FSET?	PRSO,MUNGBIT /?CCL5
	CALL1	FACE-RED
	RSTACK	
?CCL5:	PRINTR	"What a (ahem!) strange idea!"


	.FUNCT	V-KNOCK:ANY:0:0,P
	FSET?	PRSO,DOORBIT \?CCL3
	FSET?	PRSO,OPENBIT \?CCL7
	PRINTR	"It's open!"
?CCL7:	PRINTR	"Nobody's home."
?CCL3:	CALL2	HACK-HACK,STR?129
	RSTACK	


	.FUNCT	V-LAMP-OFF:ANY:0:0
	FSET?	PRSO,LIGHTBIT /?CCL3
	CALL2	YOU-CANT,STR?130
	RSTACK	
?CCL3:	FSET?	PRSO,ONBIT /?CCL5
	CALL	ALREADY,PRSO,STR?102
	RSTACK	
?CCL5:	CALL	OKAY,PRSO,STR?102
	RSTACK	


	.FUNCT	V-LAMP-ON:ANY:0:0
	FSET?	PRSO,ONBIT \?CCL3
	CALL	ALREADY,PRSO,STR?101
	RSTACK	
?CCL3:	FSET?	PRSO,LIGHTBIT \?CCL5
	CALL	OKAY,PRSO,STR?101
	RSTACK	
?CCL5:	FSET?	PRSO,PERSONBIT \?CCL7
	CALL1	HAR-HAR
	RSTACK	
?CCL7:	CALL2	YOU-CANT,STR?131
	RSTACK	


	.FUNCT	V-LEAP:ANY:0:0
	ZERO?	PRSO /?CCL3
	EQUAL?	PRSO,INTDIR /?CCL3
	ICALL1	IMPOSSIBLE
	RTRUE	
?CCL3:	CALL1	V-SKIP
	RSTACK	


	.FUNCT	V-SKIP:ANY:0:0
	CALL1	WHEE
	RSTACK	


	.FUNCT	WHEE:ANY:0:0,X
	RANDOM	5 >X
	EQUAL?	1,X \?CCL3
	PRINTR	"Very good. Now you can go to the second grade."
?CCL3:	EQUAL?	2,X \?CCL5
	PRINTR	"I hope you enjoyed that more than I did."
?CCL5:	EQUAL?	3,X \?CCL7
	PRINTI	"Are you enjoying "
	PRINTD	PLAYER
	PRINTR	"?"
?CCL7:	EQUAL?	4,X \?CCL9
	PRINTR	"Wheeeeeeeeee!!!!!"
?CCL9:	PRINTR	"Do you expect someone to applaud?"


	.FUNCT	V-LEAVE:ANY:0:0,GT
	EQUAL?	WINNER,FOLLOWER \?CND1
	SET	'FOLLOWER,0
?CND1:	EQUAL?	PRSO,FALSE-VALUE,ROOMS,HERE \?CCL5
	ICALL2	DO-WALK,P?OUT
	PUTP	WINNER,P?LDESC,9
	RTRUE	
?CCL5:	LOC	PRSO
	EQUAL?	STACK,PLAYER \?CCL7
	ICALL	PERFORM,V?DROP,PRSO
	RTRUE	
?CCL7:	LOC	WINNER
	EQUAL?	STACK,PRSO \?CCL9
	ICALL	PERFORM,V?DISEMBARK,PRSO
	RTRUE	
?CCL9:	ICALL2	TELL-NOT-IN,PRSO
	RETURN	2


	.FUNCT	PRE-LIE:ANY:0:0
	CALL1	ROOM-CHECK
	RSTACK	


	.FUNCT	V-LIE:ANY:0:0
	CALL2	V-SIT,TRUE-VALUE
	RSTACK	


	.FUNCT	PRE-LISTEN:ANY:0:0
	FSET?	PRSO,PERSONBIT \?CCL3
	GETP	PRSO,P?LDESC
	EQUAL?	STACK,14 \?CCL3
	PRINTR	"""Zzzzzzz..."""
?CCL3:	CALL1	PRE-ASK
	RSTACK	


	.FUNCT	V-LISTEN:ANY:0:0
	FSET?	PRSO,PERSONBIT \?CCL3
	FSET?	PRSO,MUNGBIT /?CCL3
	ICALL1	WAITING-FOR-YOU-TO-SPEAK
	RTRUE	
?CCL3:	PRINTI	"At the moment,"
	ICALL2	PRINT-THE,PRSO
	PRINTR	" makes no sound."


	.FUNCT	V-LOCK:ANY:0:0
	CALL1	HAR-HAR
	RSTACK	


	.FUNCT	V-LOOK:ANY:0:0
	CALL2	DESCRIBE-ROOM,TRUE-VALUE
	ZERO?	STACK /FALSE
	CALL1	DESCRIBE-OBJECTS
	RSTACK	


	.FUNCT	V-LOOK-BEHIND:ANY:0:0
	FSET?	PRSO,DOORBIT \?CCL3
	FSET?	PRSO,OPENBIT /?CCL3
	CALL	TOO-BAD-BUT,PRSO,STR?98
	RSTACK	
?CCL3:	PRINTI	"There's nothing behind"
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	"."


	.FUNCT	V-LOOK-DOWN:ANY:0:0
	EQUAL?	PRSO,ROOMS \?CCL3
	ICALL	PERFORM,V?EXAMINE,FLOOR
	RTRUE	
?CCL3:	ICALL	PERFORM,V?LOOK-INSIDE,PRSO
	RTRUE	


	.FUNCT	PRE-LOOK-INSIDE:ANY:0:0
	CALL1	ROOM-CHECK
	RSTACK	


	.FUNCT	V-LOOK-INSIDE:ANY:0:1,DIR,RM
	ASSIGNED?	'DIR /?CND1
	SET	'DIR,P?IN
?CND1:	EQUAL?	PRSO,ROOMS \?CND3
	EQUAL?	DIR,P?OUT \?CCL7
	CALL	GLOBAL-IN?,WINDOW,HERE
	ZERO?	STACK /?CND3
	ICALL	PERFORM,PRSA,WINDOW,PRSI
	RTRUE	
?CCL7:	SET	'RM,P-IT-OBJECT
	FSET?	RM,CONTBIT /?CCL11
	CALL	FIND-FLAG-LG,HERE,CONTBIT >RM
	ZERO?	RM \?CCL11
	SET	'RM,WINDOW
	CALL	GLOBAL-IN?,RM,HERE
	ZERO?	STACK \?CCL11
	CALL	FIND-FLAG-LG,HERE,DOORBIT >RM
	ZERO?	RM /?CND3
?CCL11:	ICALL2	TELL-I-ASSUME,RM
	ICALL	PERFORM,PRSA,RM,PRSI
	RTRUE	
?CND3:	EQUAL?	PRSO,GLOBAL-HERE \?CCL18
	ICALL2	PERFORM,V?LOOK
	RTRUE	
?CCL18:	IN?	PRSO,ROOMS \?CCL20
	CALL	NOUN-USED?,PRSO,W?DOOR
	ZERO?	STACK \?CCL20
	CALL	GLOBAL-IN?,PRSO,HERE
	ZERO?	STACK \?CTR19
	CALL	SEE-INTO?,PRSO,FALSE-VALUE
	ZERO?	STACK /?CCL20
?CTR19:	CALL2	ROOM-PEEK,PRSO
	RSTACK	
?CCL20:	CALL2	V-LOOK-THROUGH,TRUE-VALUE
	ZERO?	STACK \TRUE
	FSET?	PRSO,CONTBIT /?CTR28
	FSET?	PRSO,SURFACEBIT \?CCL29
?CTR28:	CALL	SEE-INSIDE?,PRSO,TRUE-VALUE
	ZERO?	STACK \?CND32
	ICALL	FIRST-YOU,STR?103,PRSO
?CND32:	FIRST?	PRSO \?CCL36
	PRINTI	"You can see"
	ICALL2	PRINT-CONTENTS,PRSO
	FSET?	PRSO,SURFACEBIT \?CCL39
	PRINTI	" on"
	JUMP	?CND37
?CCL39:	PRINTI	" inside"
?CND37:	ICALL2	HIM-HER-IT,PRSO
	PRINTR	"."
?CCL36:	FSET?	PRSO,SURFACEBIT \?CCL41
	PRINTI	"There's nothing on"
	ICALL2	HIM-HER-IT,PRSO
	IN?	PLAYER,PRSO \?CND42
	PRINTI	" except you"
?CND42:	PRINTR	"."
?CCL41:	CALL	TOO-BAD-BUT,PRSO,STR?132
	RSTACK	
?CCL29:	EQUAL?	DIR,P?IN \?CCL45
	CALL2	YOU-CANT,STR?133
	RSTACK	
?CCL45:	CALL2	YOU-CANT,STR?134
	RSTACK	


	.FUNCT	FIRST-YOU:ANY:1:3,STR,OBJ,OBJ2
	PRINTC	40
	ICALL	HE-SHE-IT,WINNER,TRUE-VALUE,STR
	ZERO?	OBJ /?CND1
	ICALL2	PRINT-THE,OBJ
	EQUAL?	STR,STR?103 \?CND3
	FSET	OBJ,OPENBIT
?CND3:	ZERO?	OBJ2 /?CND1
	PRINTI	" from"
	ICALL2	PRINT-THE,OBJ2
?CND1:	PRINTR	" first.)"


	.FUNCT	V-LOOK-THROUGH:ANY:0:1,INSIDE,RM
	FSET?	PRSO,DOORBIT \?CCL3
	FSET?	PRSO,OPENBIT /?CTR5
	FSET?	PRSO,TRANSBIT \?CCL6
?CTR5:	CALL	DOOR-ROOM,HERE,PRSO >RM
	ZERO?	RM /?CCL11
	CALL	ROOM-PEEK,RM,TRUE-VALUE
	RSTACK	
?CCL11:	CALL1	NO-BEYOND
	RSTACK	
?CCL6:	CALL	TOO-BAD-BUT,PRSO,STR?98
	RSTACK	
?CCL3:	EQUAL?	PRSO,WINDOW \?CCL13
	CALL1	NO-BEYOND
	RSTACK	
?CCL13:	FSET?	PRSO,PERSONBIT \?CCL16
	PRINTR	"You forgot to bring your X-ray glasses."
?CCL16:	ZERO?	INSIDE \FALSE
	FSET?	PRSO,TRANSBIT \?CCL20
	PRINTR	"Everything looks bigger."
?CCL20:	CALL2	YOU-CANT,STR?135
	RSTACK	


	.FUNCT	NO-BEYOND:ANY:0:0
	PRINTI	"You can't tell what's beyond"
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	"."


	.FUNCT	ROOM-PEEK:ANY:1:2,RM,SAFE,X,OHERE,OLIT,TXT
	EQUAL?	RM,HERE \?CCL3
	ICALL1	V-LOOK
	RTRUE	
?CCL3:	ZERO?	SAFE \?CCL5
	CALL2	SEE-INTO?,RM
	ZERO?	STACK /FALSE
?CCL5:	SET	'OHERE,HERE
	SET	'OLIT,LIT
	SET	'HERE,RM
	ICALL2	MAKE-ALL-PEOPLE,-12
	CALL1	LIT? >LIT
	PRINTI	"You peer "
	FSET?	RM,SURFACEBIT \?CCL10
	PRINTI	"at"
	JUMP	?CND8
?CCL10:	PRINTI	"into"
?CND8:	ICALL2	HIM-HER-IT,RM
	PRINTC	58
	CRLF	
	CALL1	DESCRIBE-OBJECTS
	ZERO?	STACK /?CCL13
	SET	'X,TRUE-VALUE
	JUMP	?CND11
?CCL13:	GETP	RM,P?LDESC >TXT
	ZERO?	TXT /?CND11
	SET	'X,TRUE-VALUE
	PRINT	TXT
	CRLF	
?CND11:	ZERO?	X \?CND15
	PRINTI	"You can't see anything suspicious."
	CRLF	
?CND15:	SET	'HERE,OHERE
	SET	'LIT,OLIT
	RTRUE	


	.FUNCT	SEE-INTO?:ANY:1:3,THERE,TELL?,IGNORE-DOOR,P,L,TBL,O
	ASSIGNED?	'TELL? /?CND1
	SET	'TELL?,TRUE-VALUE
?CND1:	SET	'P,0
?PRG3:	NEXTP	HERE,P >P
	ZERO?	P /?CCL6
	LESS?	P,LOW-DIRECTION \?CND5
?CCL6:	ZERO?	TELL? /FALSE
	ICALL1	TELL-CANT-FIND
	RFALSE	
?CND5:	GETPT	HERE,P >TBL
	PTSIZE	TBL >L
	EQUAL?	L,UEXIT \?CCL13
	GET	TBL,REXIT
	EQUAL?	STACK,THERE \?PRG3
	RTRUE	
?CCL13:	EQUAL?	L,DEXIT \?CCL17
	GET	TBL,REXIT
	EQUAL?	STACK,THERE \?PRG3
	GET	TBL,DEXITOBJ
	FSET?	STACK,OPENBIT /TRUE
	GET	TBL,DEXITOBJ
	CALL	WALK-THRU-DOOR?,TBL,STACK,FALSE-VALUE
	ZERO?	STACK \TRUE
	ZERO?	IGNORE-DOOR \TRUE
	ZERO?	TELL? /FALSE
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTI	"(The door to that room is closed.)"
	CRLF	
	RFALSE	
?CCL17:	EQUAL?	L,CEXIT \?PRG3
	GET	TBL,REXIT
	EQUAL?	STACK,THERE \?PRG3
	GETB	TBL,CEXITFLAG
	VALUE	STACK
	ZERO?	STACK \TRUE
	ZERO?	TELL? /FALSE
	ICALL1	TELL-CANT-FIND
	RFALSE	


	.FUNCT	TELL-CANT-FIND:ANY:0:0
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTR	"(That place isn't close enough.)"


	.FUNCT	V-LOOK-ON:ANY:0:0
	FSET?	PRSO,SURFACEBIT \?CCL3
	CALL1	V-LOOK-INSIDE
	RSTACK	
?CCL3:	PRINTI	"There's no good surface on"
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	"."


	.FUNCT	V-LOOK-OUTSIDE:ANY:0:0
	CALL2	V-LOOK-INSIDE,P?OUT
	RSTACK	


	.FUNCT	PRE-LOOK-UNDER:ANY:0:0
	CALL1	ROOM-CHECK
	RSTACK	


	.FUNCT	V-LOOK-UNDER:ANY:0:0
	EQUAL?	PRSO,TEETH,EARS /?CTR2
	EQUAL?	PRSO,HEAD,HANDS,EYES \?CCL3
?CTR2:	CALL1	WONT-HELP
	RSTACK	
?CCL3:	CALL2	HELD?,PRSO
	ZERO?	STACK /?CCL7
	PRINTI	"You're "
	FSET?	PRSO,WORNBIT \?CCL10
	PRINTI	"wear"
	JUMP	?CND8
?CCL10:	PRINTI	"hold"
?CND8:	PRINTI	"ing"
	ICALL2	PRINT-THE,PRSO
	PRINTR	"!"
?CCL7:	FSET?	PRSO,PERSONBIT \?CCL12
	PRINTI	"Nope. Nothing hiding under"
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	"."
?CCL12:	LOC	PRSO
	EQUAL?	STACK,HERE,LOCAL-GLOBALS \?CCL14
	PRINTR	"There's nothing there but dust."
?CCL14:	PRINTR	"That's not a bit useful."


	.FUNCT	V-LOOK-UP:ANY:0:0,HR
	ZERO?	PRSI /?CCL3
	PRINTI	"There's no information in"
	ICALL2	PRINT-THE,PRSI
	PRINTI	" about"
	ICALL2	PRINT-THE,PRSO
	PRINTR	"."
?CCL3:	EQUAL?	PRSO,ROOMS \?CCL5
	CALL2	OUTSIDE?,HERE
	ZERO?	STACK /?CCL8
	ICALL	PERFORM,V?EXAMINE,SKY
	RTRUE	
?CCL8:	PRINTR	"The ceiling is decorated with swirly lines and patterns."
?CCL5:	CALL2	YOU-CANT,STR?136
	RSTACK	


	.FUNCT	PRE-MOVE:ANY:0:0
	CALL2	HELD?,PRSO
	ZERO?	STACK /FALSE
	PRINTR	"Juggling isn't one of your talents."


	.FUNCT	V-MOVE:ANY:0:0
	FSET?	PRSO,TAKEBIT \?CCL3
	PRINTI	"Moving"
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	" reveals nothing."
?CCL3:	CALL1	YOU-CANT
	RSTACK	


	.FUNCT	PRE-MOVE-DIR:ANY:0:0
	EQUAL?	PRSI,INTDIR /FALSE
	ICALL1	DONT-UNDERSTAND
	RTRUE	


	.FUNCT	V-MOVE-DIR:ANY:0:0
	PRINTI	"You can't move"
	ICALL2	HIM-HER-IT,PRSO
	PRINTI	" in any particular "
	PRINTD	INTDIR
	PRINTR	"."


	.FUNCT	V-MUNG:ANY:0:0
	FSET?	PRSO,DOORBIT \?CCL3
	ZERO?	PRSI \?CCL3
	FSET?	PRSO,OPENBIT \?CCL8
	PRINTR	"You'd fly through the open door if you tried."
?CCL8:	CALL2	UNLOCK-DOOR?,PRSO
	ZERO?	STACK /?CCL10
	PRINTR	"Why don't you just open it instead?"
?CCL10:	CALL1	IF-SPY
	RSTACK	
?CCL3:	FSET?	PRSO,PERSONBIT /?CCL12
	CALL1	IF-SPY
	RSTACK	
?CCL12:	CALL2	IKILL,STR?137
	RSTACK	


	.FUNCT	V-NOD:ANY:0:0
	EQUAL?	PRSO,ROOMS /?CCL3
	CALL1	YOU-CANT
	RSTACK	
?CCL3:	ZERO?	AWAITING-REPLY /?CCL5
	ICALL2	PERFORM,V?YES
	RTRUE	
?CCL5:	ICALL	PERFORM,V?HELLO,ROOMS
	RTRUE	


	.FUNCT	V-OPEN:ANY:0:0,F,STR
	FSET?	PRSO,CONTBIT /?CCL3
	FSET?	PRSO,DOORBIT /?CCL3
	EQUAL?	PRSO,WINDOW /?CCL3
	CALL1	IMPOSSIBLE
	RSTACK	
?CCL3:	FSET?	PRSO,DOORBIT /?CTR7
	EQUAL?	PRSO,WINDOW /?CTR7
	GETP	PRSO,P?CAPACITY
	ZERO?	STACK /?CCL8
?CTR7:	FSET?	PRSO,LOCKED \?CND12
	CALL2	UNLOCK-DOOR?,PRSO
	ZERO?	STACK /?CCL16
	FCLEAR	PRSO,LOCKED
	ICALL	FIRST-YOU,STR?138,PRSO
?CND12:	FSET?	PRSO,OPENBIT \?CCL19
	CALL	ALREADY,PRSO,STR?103
	RSTACK	
?CCL16:	ICALL	TOO-BAD-BUT,PRSO,STR?104
	RTRUE	
?CCL19:	FSET	PRSO,OPENBIT
	FSET?	PRSO,DOORBIT /?CTR21
	EQUAL?	PRSO,WINDOW /?CTR21
	FIRST?	PRSO \?CTR21
	FSET?	PRSO,TRANSBIT \?CCL22
?CTR21:	CALL	OKAY,PRSO,STR?103
	RSTACK	
?CCL22:	FIRST?	PRSO >F \?CCL28
	NEXT?	F /?CCL28
	GETP	F,P?FDESC >STR
	ZERO?	STR /?CCL28
	PRINTI	"You open"
	ICALL2	HIM-HER-IT,PRSO
	PRINTC	46
	CRLF	
	PRINT	STR
	CRLF	
	RTRUE	
?CCL28:	PRINTI	"You open"
	ICALL2	HIM-HER-IT,PRSO
	PRINTI	" and see"
	ICALL2	PRINT-CONTENTS,PRSO
	PRINTR	"."
?CCL8:	CALL1	YOU-CANT
	RSTACK	


	.FUNCT	V-PANIC:ANY:0:0
	PRINTR	"Not surprised."


	.FUNCT	V-PLAY:ANY:0:0
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTR	"[Speaking of playing, you'd enjoy Infocom's other fictions, too!]"


	.FUNCT	V-POUR:ANY:0:0
	CALL1	HAR-HAR
	RSTACK	


	.FUNCT	V-PULL-TOGETHER:ANY:0:0
	CALL1	DONT-UNDERSTAND
	RSTACK	


	.FUNCT	V-PUSH:ANY:0:0
	CALL2	HACK-HACK,STR?139
	RSTACK	


	.FUNCT	V-SPUT-ON:ANY:0:0
	ICALL	PERFORM,V?PUT,PRSI,PRSO
	RTRUE	


	.FUNCT	PRE-PUT:ANY:0:0
	FCLEAR	PRSO,WORNBIT
	EQUAL?	PRSO,HANDS,HEAD \?CCL3
	ICALL1	WONT-HELP
	RTRUE	
?CCL3:	IN?	PRSO,GLOBAL-OBJECTS \?CCL5
	ICALL2	NOT-HERE,PRSO
	RTRUE	
?CCL5:	EQUAL?	PRSI,FALSE-VALUE,GLOBAL-HERE,FLOOR /FALSE
	IN?	PRSI,GLOBAL-OBJECTS \?CCL9
	ICALL2	NOT-HERE,PRSI
	RTRUE	
?CCL9:	CALL	HELD?,PRSI,PRSO
	ZERO?	STACK /FALSE
	CALL	YOU-CANT,STR?140,PRSI,STR?141
	RSTACK	


	.FUNCT	V-PUT:ANY:0:0
	FSET?	PRSI,SURFACEBIT /?CND1
	FSET?	PRSI,VEHBIT /?CND1
	PRINTI	"There's no good surface on"
	ICALL2	HIM-HER-IT,PRSI
	PRINTR	"."
?CND1:	CALL1	PUT-ON-OR-IN
	RSTACK	


	.FUNCT	TELL-FIND-NONE:ANY:1:2,STR,OBJ
	PRINTI	"You search for "
	PRINT	STR
	ZERO?	OBJ /?CND1
	ICALL2	PRINT-THE,OBJ
?CND1:	PRINTR	" but find none."


	.FUNCT	PRE-PUT-IN:ANY:0:0
	EQUAL?	PRSI,PSEUDO-OBJECT \?CCL3
	CALL1	PRE-PUT
	RSTACK	
?CCL3:	EQUAL?	PRSI,HANDS,EYES \?CCL5
	ICALL1	WONT-HELP
	RETURN	2
?CCL5:	FSET?	PRSI,READBIT \?CCL9
	ICALL1	WONT-HELP
	RETURN	2
?CCL9:	FSET?	PRSI,CONTBIT /?CND1
	ICALL	TELL-FIND-NONE,STR?142,PRSI
	RETURN	2
?CND1:	FSET?	PRSI,OPENBIT /?CND15
	ICALL	FIRST-YOU,STR?103,PRSI
?CND15:	CALL1	PRE-PUT
	RSTACK	


	.FUNCT	V-PUT-IN:ANY:0:0
	FSET?	PRSI,OPENBIT /?CND1
	FSET?	PRSI,VEHBIT /?CND1
	FSET?	PRSI,CONTBIT /?CTR6
	FSET?	PRSI,DOORBIT \?CCL7
?CTR6:	ICALL	TOO-BAD-BUT,PRSI,STR?98
	RTRUE	
?CCL7:	PRINTI	"You can't open"
	ICALL2	HIM-HER-IT,PRSI
	PRINTR	"."
?CND1:	CALL1	PUT-ON-OR-IN
	RSTACK	


	.FUNCT	PUT-ON-OR-IN:ANY:0:0,?TMP1,?TMP2
	ZERO?	PRSI \?CCL3
	CALL1	YOU-CANT
	RSTACK	
?CCL3:	EQUAL?	PRSI,PRSO \?CCL5
	CALL1	HAR-HAR
	RSTACK	
?CCL5:	IN?	PRSO,PRSI \?CCL7
	ICALL2	TOO-BAD-BUT,PRSO
	PRINTI	" is already "
	FSET?	PRSI,SURFACEBIT \?CCL10
	PUSH	STR?101
	JUMP	?CND8
?CCL10:	PUSH	STR?144
?CND8:	PRINT	STACK
	ICALL2	HIM-HER-IT,PRSI
	PRINTR	"!"
?CCL7:	CALL2	WEIGHT,PRSI >?TMP2
	GETP	PRSO,P?SIZE
	ADD	?TMP2,STACK >?TMP1
	GETP	PRSI,P?CAPACITY
	GRTR?	?TMP1,STACK \?CCL12
	PRINT	NOT-ENOUGH-ROOM
	RTRUE	
?CCL12:	CALL2	HELD?,PRSO
	ZERO?	STACK \?CCL14
	CALL1	ITAKE
	ZERO?	STACK /TRUE
?CCL14:	MOVE	PRSO,PRSI
	FSET	PRSO,TOUCHBIT
	FSET?	PRSI,PERSONBIT \?CND17
	FSET?	PRSO,WEARBIT \?CND17
	FSET	PRSO,WORNBIT
?CND17:	PRINTR	"Okay."


	.FUNCT	WEIGHT:ANY:1:1,OBJ,CONT,WT
	FIRST?	OBJ >CONT /?PRG3
	RETURN	WT
?PRG3:	GETP	CONT,P?SIZE
	ADD	WT,STACK >WT
	NEXT?	CONT >CONT /?PRG3
	RETURN	WT


	.FUNCT	V-PUT-UNDER:ANY:0:0
	CALL1	WONT-HELP
	RSTACK	


	.FUNCT	PRE-SREAD:ANY:0:0
	ICALL	PERFORM,V?READ,PRSI,PRSO
	RTRUE	


	.FUNCT	V-SREAD:ANY:0:0
	CALL1	V-FOO
	RSTACK	


	.FUNCT	PRE-READ:ANY:0:0,VAL
	IN?	PRSO,GLOBAL-OBJECTS \FALSE
	CALL2	NOT-HERE,PRSO
	RSTACK	


	.FUNCT	V-READ:ANY:0:0
	FSET?	PRSO,READBIT /?CCL3
	CALL1	YOU-CANT
	RSTACK	
?CCL3:	GETP	PRSO,P?TEXT
	PRINT	STACK
	CRLF	
	RTRUE	


	.FUNCT	V-REFUSE:ANY:0:0
	SET	'PRSA,V?TAKE
	CALL1	DONT-F
	RSTACK	


	.FUNCT	V-RELAX:ANY:0:0
	PRINT	ZEN
	CRLF	
	RTRUE	


	.FUNCT	V-REMOVE:ANY:0:0
	FSET?	PRSO,WORNBIT \?CCL3
	ICALL	PERFORM,V?TAKE-OFF,PRSO
	RTRUE	
?CCL3:	ICALL	PERFORM,V?TAKE,PRSO
	RTRUE	


	.FUNCT	V-RING:ANY:0:0
	CALL1	YOU-CANT
	RSTACK	


	.FUNCT	V-RUB:ANY:0:0
	FSET?	PRSO,PERSONBIT \?CCL3
	FSET?	PRSO,MUNGBIT /?CCL3
	EQUAL?	PRSO,PLAYER /?CCL3
	CALL1	FACE-RED
	RSTACK	
?CCL3:	CALL2	HACK-HACK,STR?146
	RSTACK	


	.FUNCT	V-SAY:ANY:0:0,P
	CALL1	QCONTEXT-GOOD?
	ZERO?	STACK /?CCL3
	ICALL	PERFORM,V?TELL,QCONTEXT
	RTRUE	
?CCL3:	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
	ZERO?	P /?CCL5
	ICALL	TELL-I-ASSUME,P,STR?147
	ICALL	PERFORM,V?TELL,P
	RTRUE	
?CCL5:	CALL1	NOT-CLEAR-WHOM
	RSTACK	


	.FUNCT	PRE-SEARCH:ANY:0:0
	CALL1	ROOM-CHECK
	RSTACK	


	.FUNCT	V-SEARCH:ANY:0:0,OBJ
	IN?	PRSO,ROOMS \?CCL3
	ICALL	PERFORM,PRSA,GLOBAL-HERE
	RTRUE	
?CCL3:	FSET?	PRSO,PERSONBIT \?CCL5
	FIRST?	PRSO >OBJ \?CCL5
	FSET	OBJ,TAKEBIT
	FCLEAR	OBJ,NDESCBIT
	FCLEAR	OBJ,WORNBIT
	FCLEAR	OBJ,SECRETBIT
	ICALL2	THIS-IS-IT,OBJ
	MOVE	OBJ,PLAYER
	PRINTI	"You find "
	ICALL2	PRINTA,OBJ
	PRINTI	" and take it. "
	PRINTC	89
	PRINT	OU-STOP-SEARCHING
	PRINTR	"."
?CCL5:	FSET?	PRSO,DOORBIT \?CCL9
	CALL1	NOTHING-SPECIAL
	RSTACK	
?CCL9:	FSET?	PRSO,CONTBIT /?CTR10
	FSET?	PRSO,SURFACEBIT \?CCL11
?CTR10:	ICALL	PERFORM,V?LOOK-INSIDE,PRSO
	RTRUE	
?CCL11:	CALL1	NOTHING-SPECIAL
	RSTACK	


	.FUNCT	PRE-SSEARCH-FOR:ANY:0:0
	ICALL	PERFORM,V?SEARCH-FOR,PRSI,PRSO
	RTRUE	


	.FUNCT	V-SSEARCH-FOR:ANY:0:0
	CALL1	V-FOO
	RSTACK	


	.FUNCT	PRE-SEARCH-FOR:ANY:0:0,OBJ
	CALL1	ROOM-CHECK
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	V-SEARCH-FOR:ANY:0:0
	IN?	PRSO,ROOMS \?CCL3
	ICALL	PERFORM,PRSA,GLOBAL-HERE,PRSI
	RTRUE	
?CCL3:	FSET?	PRSO,PERSONBIT \?CCL5
	IN?	PRSI,PRSO \?CCL8
	PRINTI	"Indeed,"
	ICALL	HE-SHE-IT,PRSO,0,STR?62
	ICALL2	HIM-HER-IT,PRSI
	PRINTR	"."
?CCL8:	ICALL2	START-SENTENCE,PRSO
	PRINTI	" doesn't have"
	IN?	PRSI,GLOBAL-OBJECTS \?CCL11
	ICALL2	PRINT-THE,PRSI
	PRINTR	"."
?CCL11:	ZERO?	PRSI \?CCL13
	PRINTR	" that."
?CCL13:	ICALL2	PRINT-THE,PRSI
	PRINTI	" hidden on"
	ICALL	HIM-HER-IT,PRSO,0,TRUE-VALUE
	PRINTR	" person."
?CCL5:	FSET?	PRSO,CONTBIT \?CCL15
	FSET?	PRSO,OPENBIT /?CCL15
	PRINTI	"You'll have to open"
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	" first."
?CCL15:	IN?	PRSI,PRSO \?CCL19
	PRINTI	"How observant you are! There"
	ICALL	HE-SHE-IT,PRSI,0,STR?61
	PRINTR	"!"
?CCL19:	ZERO?	PRSI \?CCL22
	CALL1	YOU-CANT
	RSTACK	
?CCL22:	PRINTI	"You don't find"
	FSET?	PRSI,SECRETBIT \?CCL25
	PRINTI	" it"
	JUMP	?CND23
?CCL25:	ICALL2	HIM-HER-IT,PRSI
?CND23:	PRINTR	" there."


	.FUNCT	V-SHAKE:ANY:0:0,X
	FSET?	PRSO,PERSONBIT \?CCL3
	PRINTR	"Be real."
?CCL3:	FSET?	PRSO,TAKEBIT /?CCL5
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTR	"(You can't shake it if you can't take it!)"
?CCL5:	FSET?	PRSO,OPENBIT /?CCL7
	FIRST?	PRSO \?CCL7
	PRINTI	"It sounds as if there is something inside"
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	"."
?CCL7:	FSET?	PRSO,OPENBIT \?CCL11
	FIRST?	PRSO >X \?CCL11
	PRINTI	"Right "
	CALL1	GROUND-DESC
	PRINT	STACK
	PRINTI	" spill"
	NEXT?	X /?CND14
	PRINTC	115
?CND14:	ICALL	ROB,PRSO,HERE,TRUE-VALUE
	CRLF	
	RTRUE	
?CCL11:	PRINTI	"You hear nothing inside"
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	"."


	.FUNCT	V-SHOOT:ANY:0:0
	ZERO?	PRSI /?PRD5
	LOC	PRSI
	EQUAL?	STACK,WINNER /?CCL3
?PRD5:	CALL	FIND-IN,WINNER,WEAPONBIT
	ZERO?	STACK \?CCL3
	PRINTR	"You're not holding anything to shoot with."
?CCL3:	CALL2	IKILL,STR?149
	RSTACK	


	.FUNCT	PRE-SSHOOT:ANY:0:0
	ICALL	PERFORM,V?SHOOT,PRSI,PRSO
	RTRUE	


	.FUNCT	V-SSHOOT:ANY:0:0
	CALL1	V-FOO
	RSTACK	


	.FUNCT	V-SHOW:ANY:0:0
	EQUAL?	PRSO,PLAYER \?CCL3
	SET	'WINNER,PLAYER
	CALL2	VISIBLE?,PRSO
	ZERO?	STACK /?CCL6
	ICALL	PERFORM,V?EXAMINE,PRSI
	RTRUE	
?CCL6:	ICALL	PERFORM,V?FIND,PRSI
	RTRUE	
?CCL3:	FSET?	PRSO,PERSONBIT \?CTR7
	FSET?	PRSO,MUNGBIT \?CCL8
?CTR7:	PRINTI	"Don't wait for"
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	" to applaud."
?CCL8:	CALL1	WHO-CARES
	RSTACK	


	.FUNCT	PRE-SSHOW:ANY:0:0,P
	ZERO?	PRSI /?CCL3
	IN?	PRSI,ROOMS \?CND4
	ICALL	PERFORM,V?TAKE-TO,PRSO,PRSI
	RTRUE	
?CND4:	ICALL	PERFORM,V?SHOW,PRSI,PRSO
	RTRUE	
?CCL3:	CALL2	HELD?,PRSO
	ZERO?	STACK \?CCL7
	LOC	PRSO
	FSET?	STACK,PERSONBIT \?CCL10
	ICALL	PERFORM,V?TAKE,PRSO
	RTRUE	
?CCL10:	ICALL	TELL-I-ASSUME,PRSO,STR?150
	ICALL	PERFORM,V?ASK-CONTEXT-ABOUT,PRSO
	RTRUE	
?CCL7:	CALL1	QCONTEXT-GOOD?
	ZERO?	STACK /?CCL12
	ICALL	PERFORM,V?SHOW,QCONTEXT,PRSO
	RTRUE	
?CCL12:	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
	ZERO?	P /?CCL14
	ICALL	TELL-I-ASSUME,P,STR?151
	ICALL	PERFORM,V?SHOW,P,PRSO
	RTRUE	
?CCL14:	ICALL	TELL-I-ASSUME,PLAYER,STR?151
	ICALL	PERFORM,V?SHOW,PLAYER,PRSO
	RTRUE	


	.FUNCT	V-SSHOW:ANY:0:0
	CALL1	V-FOO
	RSTACK	


	.FUNCT	PRE-SIT:ANY:0:0
	CALL1	ROOM-CHECK
	RSTACK	


	.FUNCT	V-SIT:ANY:0:1,LIE?
	EQUAL?	WINNER,PLAYER \?CCL3
	FSET?	PRSO,VEHBIT /?CTR2
	EQUAL?	PRSO,FLOOR,HERE,GLOBAL-HERE \?CCL3
?CTR2:	PRINTI	"You're now "
	ZERO?	LIE? \?CCL11
	PRINTI	"sitt"
	JUMP	?CND9
?CCL11:	PRINTI	"ly"
?CND9:	FSET?	PRSO,VEHBIT \?CND12
	MOVE	PLAYER,PRSO
?CND12:	PRINTI	"ing "
	FSET?	PRSO,SURFACEBIT \?CCL16
	PRINTI	"on"
	JUMP	?CND14
?CCL16:	PRINTI	"in"
?CND14:	ICALL2	PRINT-THE,PRSO
	PRINTR	"."
?CCL3:	CALL1	WONT-HELP
	RSTACK	


	.FUNCT	V-SIT-AT:ANY:0:0
	CALL1	V-SIT
	RSTACK	


	.FUNCT	V-SLAP:ANY:0:0
	EQUAL?	PRSI,ROOMS \?CND1
	SET	'PRSI,FALSE-VALUE
?CND1:	EQUAL?	PRSO,PLAYER \?CCL5
	PRINTR	"That sounds like a sign you could wear on your back."
?CCL5:	FSET?	PRSO,PERSONBIT /?CCL7
	CALL1	IF-SPY
	RSTACK	
?CCL7:	FSET?	PRSO,MUNGBIT \?CCL9
	PRINTI	"If"
	ICALL2	HE-SHE-IT,PRSO
	PRINTI	" could,"
	ICALL2	HE-SHE-IT,PRSO
	PRINTR	" would slap you right back."
?CCL9:	CALL1	FACE-RED
	RSTACK	


	.FUNCT	IF-SPY:ANY:0:0
	ZERO?	PRSI \?CCL3
	PRINTI	"You give"
	ICALL2	HIM-HER-IT,PRSO
	PRINTI	" a swift "
	EQUAL?	P-PRSA-WORD,W?KICK \?CCL6
	PRINTI	"kick"
	JUMP	?CND1
?CCL6:	PRINTI	"hand chop"
	JUMP	?CND1
?CCL3:	PRINTI	"You swing"
	ICALL2	HIM-HER-IT,PRSI
	PRINTI	" at"
	ICALL2	HIM-HER-IT,PRSO
?CND1:	PRINTI	", but"
	ICALL2	HE-SHE-IT,PRSO
	PRINTR	" seems indestructible."


	.FUNCT	FACE-RED:ANY:0:1,P,X
	ZERO?	P \?CND1
	SET	'P,PRSO
?CND1:	ICALL2	UNSNOOZE,P
	EQUAL?	FOLLOWER,P \?CND3
	SET	'FOLLOWER,FALSE-VALUE
?CND3:	GETP	P,P?LDESC
	EQUAL?	STACK,4 /?CND5
	PUTP	P,P?LDESC,20
?CND5:	ICALL	HE-SHE-IT,P,1
	PRINTR	" gives you a good slap. It hurts, too!"


	.FUNCT	V-SMELL:ANY:0:0
	ICALL	HE-SHE-IT,PRSO,1,STR?152
	PRINTI	" just like "
	ICALL2	PRINTA,PRSO
	PRINTR	"!"


	.FUNCT	V-SMILE:ANY:0:0
	PRINTR	"How nice."


	.FUNCT	V-SORRY:ANY:0:0
	CALL2	GRAB-ATTENTION,PRSO
	ZERO?	STACK \?CCL3
	RETURN	2
?CCL3:	PUTP	PRSO,P?LDESC,3
	PRINTR	"""Apology accepted."""


	.FUNCT	V-STAND:ANY:0:0,P
	LOC	WINNER
	FSET?	STACK,VEHBIT \?CCL3
	LOC	WINNER
	ICALL	PERFORM,V?DISEMBARK,STACK
	RTRUE	
?CCL3:	IN?	WINNER,HERE /?CCL5
	CALL1	OWN-FEET
	RSTACK	
?CCL5:	ZERO?	PRSO /?CCL8
	FSET?	PRSO,TAKEBIT \?CCL8
	CALL1	WONT-HELP
	RSTACK	
?CCL8:	CALL	ALREADY,WINNER,STR?153
	RSTACK	


	.FUNCT	V-STOP:ANY:0:0
	EQUAL?	PRSO,FALSE-VALUE,GLOBAL-HERE \?CCL3
	PRINTR	"Hey, no problem."
?CCL3:	FSET?	PRSO,PERSONBIT \?CCL5
	ICALL	PERFORM,V?$CALL,PRSO
	RTRUE	
?CCL5:	ICALL	PERFORM,V?LAMP-OFF,PRSO
	RTRUE	


	.FUNCT	V-SWIM:ANY:0:0
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTC	40
	ICALL	HE-SHE-IT,WINNER,1
	PRINTI	" can't swim "
	ZERO?	PRSO /?CCL3
	PRINTI	"in"
	ICALL2	HIM-HER-IT,PRSO
	JUMP	?CND1
?CCL3:	CALL1	GROUND-DESC
	PRINT	STACK
?CND1:	PRINTR	".)"


	.FUNCT	PRE-TAKE:ANY:0:0,L
	EQUAL?	PRSO,WALL,FLOOR \?CCL3
	CALL1	HAR-HAR
	RSTACK	
?CCL3:	EQUAL?	PRSO,YOU,HANDS /FALSE
	LOC	PRSO >L
	EQUAL?	L,GLOBAL-OBJECTS \?CCL7
	CALL2	NOT-HERE,PRSO
	RSTACK	
?CCL7:	LOC	WINNER
	EQUAL?	PRSO,STACK \?CCL9
	PRINTR	"You are in it!"
?CCL9:	ZERO?	L /?CCL11
	FSET?	L,CONTBIT \?CCL11
	FSET?	L,OPENBIT /?CCL11
	ICALL	TOO-BAD-BUT,L,STR?98
	RTRUE	
?CCL11:	ZERO?	PRSI /?CCL16
	EQUAL?	PRSI,WALL,L \?CCL19
	SET	'PRSI,FALSE-VALUE
	RFALSE	
?CCL19:	FSET?	PRSI,SURFACEBIT /?CCL21
	FSET?	PRSI,OPENBIT /?CCL21
	FSET?	PRSI,PERSONBIT /?CCL21
	ICALL	TOO-BAD-BUT,PRSI,STR?98
	RTRUE	
?CCL21:	EQUAL?	PRSI,L /FALSE
	ICALL	HE-SHE-IT,PRSO,1,STR?61
	PRINTI	"n't "
	FSET?	PRSI,PERSONBIT \?CCL29
	PRINTI	"being held by"
	JUMP	?CND27
?CCL29:	FSET?	PRSI,SURFACEBIT \?CCL32
	PRINTI	"on"
	JUMP	?CND27
?CCL32:	PRINTI	"in"
?CND27:	ICALL2	PRINT-THE,PRSI
	PRINTR	"."
?CCL16:	CALL1	PRE-TAKE-WITH
	RSTACK	


	.FUNCT	PRE-TAKE-WITH:ANY:0:0,X
	EQUAL?	PRSO,YOU /FALSE
	CALL2	META-LOC,PRSO
	EQUAL?	STACK,GLOBAL-OBJECTS \?CCL5
	CALL2	HELD?,PRSO
	ZERO?	STACK \FALSE
	FSET?	PRSO,PERSONBIT /FALSE
	CALL2	NOT-HERE,PRSO
	RSTACK	
?CCL5:	IN?	PRSO,WINNER \?CCL12
	ICALL2	ALREADY,PLAYER
	PRINTI	"holding"
	ICALL2	PRINT-THE,PRSO
	PRINTR	"!)"
?CCL12:	LOC	PRSO
	FSET?	STACK,CONTBIT \?CCL14
	LOC	PRSO
	FSET?	STACK,OPENBIT /?CCL14
	CALL2	YOU-CANT,STR?154
	RSTACK	
?CCL14:	IN?	WINNER,PRSO \FALSE
	CALL	NOUN-USED?,PRSO,W?DOOR
	ZERO?	STACK \FALSE
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTC	40
	ICALL	HE-SHE-IT,WINNER,1,STR?61
	PRINTI	" in"
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	", nitwit!)"


	.FUNCT	V-TAKE:ANY:0:0
	CALL1	ITAKE
	EQUAL?	STACK,TRUE-VALUE \FALSE
	ICALL	HE-SHE-IT,WINNER,1,STR?61
	PRINTI	" now holding"
	ICALL2	PRINT-THE,PRSO
	PRINTR	"."


	.FUNCT	V-TAKE-OFF:ANY:0:0
	FSET?	PRSO,WORNBIT \?CCL3
	FCLEAR	PRSO,WORNBIT
	PRINTI	"Okay,"
	LOC	PRSO
	ICALL	HE-SHE-IT,STACK,0,STR?61
	PRINTI	" no longer wearing"
	MOVE	PRSO,WINNER
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	"."
?CCL3:	LOC	PRSO
	ICALL	HE-SHE-IT,STACK,1,STR?61
	PRINTI	"n't wearing"
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	"!"


	.FUNCT	V-TAKE-TO:ANY:0:0
	ICALL	PERFORM,V?WALK-TO,PRSI
	RTRUE	


	.FUNCT	V-DISEMBARK:ANY:0:0
	CALL1	ROOM-CHECK
	ZERO?	STACK \TRUE
	EQUAL?	PRSO,GLOBAL-HERE,HERE,ROOMS \?CCL5
	EQUAL?	WINNER,PLAYER \?CCL8
	IN?	PLAYER,HERE /?CCL8
	CALL1	OWN-FEET
	RSTACK	
?CCL8:	ICALL2	DO-WALK,P?OUT
	RTRUE	
?CCL5:	LOC	PRSO
	EQUAL?	STACK,WINNER \?CCL12
	PRINTI	"You don't need to take"
	ICALL2	HIM-HER-IT,PRSO
	PRINTI	" out to use"
	ICALL2	HIM-HER-IT,PRSO
	PRINTR	"."
?CCL12:	LOC	WINNER
	EQUAL?	STACK,PRSO /?CCL14
	IN?	PLAYER,PRSO /?CCL14
	PRINTI	"You're not "
	FSET?	PRSO,SURFACEBIT \?CCL19
	PRINTI	"on"
	JUMP	?CND17
?CCL19:	PRINTI	"in"
?CND17:	ICALL2	HIM-HER-IT,PRSO
	PRINTI	"!
"
	RETURN	2
?CCL14:	CALL1	OWN-FEET
	RSTACK	


	.FUNCT	OWN-FEET:ANY:0:0
	MOVE	WINNER,HERE
	ICALL	HE-SHE-IT,WINNER,1,STR?61
	PRINTI	" on"
	ICALL	HIM-HER-IT,WINNER,0,TRUE-VALUE
	PRINTR	" own feet again."


	.FUNCT	V-HOLD-UP:ANY:0:0
	EQUAL?	PRSO,ROOMS \?CCL3
	ICALL2	PERFORM,V?STAND
	RTRUE	
?CCL3:	CALL1	WONT-HELP
	RSTACK	


	.FUNCT	V-TELL:ANY:0:0,P
	EQUAL?	PRSO,PLAYER \?CCL3
	EQUAL?	WINNER,PLAYER /?CCL6
	SET	'P,WINNER
	SET	'WINNER,PLAYER
	ICALL	PERFORM,V?ASK,P
	RTRUE	
?CCL6:	ZERO?	QCONTEXT /?CCL8
	SET	'QCONTEXT,FALSE-VALUE
	ZERO?	P-CONT /?CCL11
	SET	'WINNER,PLAYER
	RETURN	WINNER
?CCL11:	PRINTR	"Okay, you're not talking to anyone else."
?CCL8:	ICALL2	WONT-HELP-TO-TALK-TO,PLAYER
	SET	'P-CONT,FALSE-VALUE
	RETURN	2
?CCL3:	FSET?	PRSO,PERSONBIT \?CCL15
	FSET?	PRSO,MUNGBIT /?CCL15
	ICALL2	UNSNOOZE,PRSO
	SET	'QCONTEXT,PRSO
	ZERO?	P-CONT /?CCL20
	SET	'CLOCK-WAIT,TRUE-VALUE
	SET	'WINNER,PRSO
	RTRUE	
?CCL20:	PRINTI	"Hmmm ..."
	ICALL2	PRINT-THE,PRSO
	PRINTR	" looks at you expectantly, as if you seemed to be about to talk."
?CCL15:	ICALL2	WONT-HELP-TO-TALK-TO,PRSO
	SET	'P-CONT,FALSE-VALUE
	RETURN	2


	.FUNCT	PRE-STELL-ABOUT:ANY:0:0
	ICALL	PERFORM,V?TELL-ABOUT,PRSI,PRSO
	RTRUE	


	.FUNCT	V-STELL-ABOUT:ANY:0:0
	CALL1	V-FOO
	RSTACK	


	.FUNCT	PRE-TELL-ABOUT:ANY:0:0,P
	EQUAL?	PRSO,PLAYER \?CCL3
	CALL1	QCONTEXT-GOOD?
	ZERO?	STACK /?CCL6
	ICALL	PERFORM,V?ASK-ABOUT,QCONTEXT,PRSI
	RTRUE	
?CCL6:	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
	ZERO?	P /?CCL8
	ICALL	TELL-I-ASSUME,P,STR?117
	ICALL	PERFORM,V?ASK-ABOUT,P,PRSI
	RTRUE	
?CCL8:	ICALL1	ARENT-TALKING
	RTRUE	
?CCL3:	FSET?	PRSI,SEENBIT /?CCL11
	FSET?	PRSI,TOUCHBIT /?CCL11
	ICALL2	NOT-FOUND,PRSI
	RTRUE	
?CCL11:	CALL1	PRE-ASK
	RSTACK	


	.FUNCT	V-TELL-ABOUT:ANY:0:0,P
	PRINTI	"It doesn't look as if"
	ICALL2	PRINT-THE,PRSO
	PRINTR	" is interested."


	.FUNCT	PRE-TALK-ABOUT:ANY:0:0,P
	EQUAL?	WINNER,PLAYER /?CCL3
	SET	'P,WINNER
	SET	'WINNER,PLAYER
	ICALL	PERFORM,V?ASK-ABOUT,P,PRSO
	RTRUE	
?CCL3:	CALL1	QCONTEXT-GOOD?
	ZERO?	STACK /?CCL5
	ICALL	PERFORM,V?ASK-ABOUT,QCONTEXT,PRSO
	RTRUE	
?CCL5:	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
	ZERO?	P /FALSE
	ICALL	TELL-I-ASSUME,P,STR?155
	ICALL	PERFORM,V?ASK-ABOUT,P,PRSO
	RTRUE	


	.FUNCT	V-TALK-ABOUT:ANY:0:0
	CALL1	ARENT-TALKING
	RSTACK	


	.FUNCT	V-THANK:ANY:0:0,P
	ZERO?	PRSO /?CCL3
	FSET?	PRSO,PERSONBIT \?CCL6
	FSET?	PRSO,MUNGBIT /?CCL6
	PRINTI	"You do so, but"
	ICALL2	PRINT-THE,PRSO
	PRINTR	" seems less than overjoyed."
?CCL6:	CALL1	HAR-HAR
	RSTACK	
?CCL3:	CALL1	QCONTEXT-GOOD? >P
	ZERO?	P \?CTR10
	CALL	FIND-FLAG-HERE-NOT,PERSONBIT,MUNGBIT,WINNER >P
	ZERO?	P /?CCL11
?CTR10:	ICALL	PERFORM,V?THANK,P
	RTRUE	
?CCL11:	PRINTR	"You're more than welcome."


	.FUNCT	V-THROW:ANY:0:0
	CALL1	IDROP
	ZERO?	STACK /FALSE
	PRINTR	"Thrown."


	.FUNCT	V-THROW-AT:ANY:0:0
	CALL1	IDROP
	ZERO?	STACK /TRUE
	ICALL	HE-SHE-IT,PRSI,1,STR?65
	PRINTI	"n't duck"
	PRINTI	" as"
	ICALL2	HE-SHE-IT,PRSO
	PRINTR	" flies by."


	.FUNCT	V-THROW-IN-TOWEL:ANY:0:0
	EQUAL?	PRSO,TOWEL \?CCL3
	CALL1	V-QUIT
	RSTACK	
?CCL3:	CALL1	DONT-UNDERSTAND
	RSTACK	


	.FUNCT	PRE-THROW-THROUGH:ANY:0:0
	FCLEAR	PRSO,WORNBIT
	RFALSE	


	.FUNCT	V-THROW-THROUGH:ANY:0:0
	FSET?	PRSO,PERSONBIT /?CCL3
	PRINTR	"Let's not resort to vandalism, please."
?CCL3:	CALL1	V-THROW
	RSTACK	


	.FUNCT	V-TURN:ANY:0:0
	FSET?	PRSO,DOORBIT \?CCL3
	FSET?	PRSO,OPENBIT \?CCL3
	ICALL	PERFORM,V?CLOSE,PRSO
	RTRUE	
?CCL3:	PRINTR	"What do you want that to do?"


	.FUNCT	V-UNLOCK:ANY:0:0
	FSET?	PRSO,DOORBIT /?CTR2
	FSET?	PRSO,CONTBIT \?CCL3
	GETP	PRSO,P?CAPACITY
	ZERO?	STACK /?CCL3
?CTR2:	FSET?	PRSO,LOCKED /?CCL10
	CALL	ALREADY,PRSO,STR?105
	RSTACK	
?CCL10:	CALL2	UNLOCK-DOOR?,PRSO
	ZERO?	STACK \?CCL12
	CALL1	YOU-CANT
	RSTACK	
?CCL12:	FCLEAR	PRSO,LOCKED
	CALL	OKAY,PRSO,STR?105
	RSTACK	
?CCL3:	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTC	40
	ICALL	HE-SHE-IT,PRSO,1,STR?61
	PRINTR	"n't locked!)"


	.FUNCT	V-USE:ANY:0:0
	CALL1	MORE-SPECIFIC
	RSTACK	


	.FUNCT	V-WAIT:ANY:0:3,NUM,WHO,INT,WHO-WAIT,VAL,HR,RESULT
	ASSIGNED?	'NUM /?CND1
	SET	'NUM,-1
?CND1:	SET	'RESULT,TRUE-VALUE
	EQUAL?	-1,NUM \?CND3
	SET	'NUM,10
?CND3:	ZERO?	INT \?CND5
	FSET?	PRSO,PERSONBIT /?CND5
	EQUAL?	PRSO,TURN,INTNUM /?CND5
	PRINT	I-ASSUME
	PRINTI	" Wait "
	PRINTN	NUM
	PRINTI	" minute"
	EQUAL?	NUM,1 /?CND10
	PRINTC	115
?CND10:	PRINTI	".]"
	CRLF	
?CND5:	SET	'HR,HERE
	ZERO?	INT \?CND12
	PRINTI	"Time passes..."
	CRLF	
?CND12:	DEC	'NUM
?PRG14:	DLESS?	'NUM,0 \?CCL18
	SET	'KEEP-WAITING,FALSE-VALUE
	RETURN	RESULT
?CCL18:	CALL1	CLOCKER >VAL
	ZERO?	VAL /?CCL20
	EQUAL?	VAL,M-FATAL /?CTR22
	EQUAL?	HR,HERE /?CCL23
?CTR22:	SET	'CLOCK-WAIT,TRUE-VALUE
	SET	'RESULT,M-FATAL
	RETURN	RESULT
?CCL23:	ZERO?	WHO /?CCL27
	IN?	WHO,HERE \?CCL27
	SET	'CLOCK-WAIT,TRUE-VALUE
	ICALL2	NOT-IT,WHO
	ICALL2	START-SENTENCE,WHO
	PRINTI	", for wh"
	FSET?	WHO,PERSONBIT \?CCL32
	PRINTI	"om"
	JUMP	?CND30
?CCL32:	PRINTI	"ich"
?CND30:	PRINTI	" you're waiting, has arrived."
	CRLF	
	RETURN	RESULT
?CCL27:	INC	'WHO-WAIT
	ZERO?	KEEP-WAITING /?CND33
	ICALL1	UPDATE-STATUS-LINE
	JUMP	?PRG14
?CND33:	PRINTI	"Do you want to keep "
	CALL2	VERB-PRINT,TRUE-VALUE >VAL
	CALL1	YES?
	ZERO?	STACK /?CCL37
	ICALL1	UPDATE-STATUS-LINE
	JUMP	?PRG14
?CCL37:	SET	'CLOCK-WAIT,TRUE-VALUE
	SET	'RESULT,M-FATAL
	RETURN	RESULT
?CCL20:	ZERO?	WHO /?CCL39
	IGRTR?	'WHO-WAIT,30 \?CCL39
	CALL2	START-SENTENCE,WHO >VAL
	PRINTI	" still hasn't arrived. Do you want to keep waiting?"
	CALL1	YES?
	ZERO?	STACK \?CND42
	RETURN	RESULT
?CND42:	SET	'WHO-WAIT,0
	ICALL1	UPDATE-STATUS-LINE
	JUMP	?PRG14
?CCL39:	ICALL1	UPDATE-STATUS-LINE
	JUMP	?PRG14


	.FUNCT	V-WAIT-FOR:ANY:0:0,WHO
	EQUAL?	-1,P-NUMBER /?CCL3
	EQUAL?	PRSO,INTNUM,TURN,ROOMS \?CCL3
	CALL2	V-WAIT,P-NUMBER
	RSTACK	
?CCL3:	EQUAL?	PRSO,GLOBAL-HERE,TURN,ROOMS \?CCL8
	CALL1	V-WAIT
	RSTACK	
?CCL8:	EQUAL?	PRSO,PLAYER \?CCL10
	CALL	ALREADY,PLAYER,STR?124
	RSTACK	
?CCL10:	FSET?	PRSO,PERSONBIT \?CCL12
	CALL2	META-LOC,PRSO
	EQUAL?	STACK,HERE \?CCL16
	CALL	ALREADY,PRSO,STR?124
	RSTACK	
?CCL16:	CALL	V-WAIT,10000,PRSO
	RSTACK	
?CCL12:	PRINTR	"Not a good idea. You might wait forever."


	.FUNCT	V-WAIT-UNTIL:ANY:0:0,N
	EQUAL?	-1,P-NUMBER /?CCL3
	EQUAL?	PRSO,INTNUM,TURN,ROOMS \?CCL3
	SET	'N,P-NUMBER
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTR	"(It's already past that time!)"
?CCL3:	CALL2	YOU-CANT,STR?156
	RSTACK	


	.FUNCT	V-ALARM:ANY:0:0
	EQUAL?	PRSO,ROOMS \?CCL3
	ICALL	PERFORM,V?ALARM,WINNER
	RTRUE	
?CCL3:	CALL	TOO-BAD-BUT,PRSO,STR?157
	RSTACK	


	.FUNCT	DO-WALK:ANY:1:1,DIR,P
	SET	'P-WALK-DIR,DIR
	CALL	PERFORM,V?WALK,DIR
	RSTACK	


	.FUNCT	V-WALK:ANY:0:0,PT,PTS,STR,RM
	ZERO?	P-WALK-DIR \?CND1
	EQUAL?	PRSO,P?IN \?CCL5
	IN?	P-IT-OBJECT,ROOMS /?CTR4
	FSET?	P-IT-OBJECT,VEHBIT /?CTR4
	FSET?	P-IT-OBJECT,CONTBIT \?CCL5
?CTR4:	ICALL2	TELL-I-ASSUME,P-IT-OBJECT
	ICALL	PERFORM,V?THROUGH,P-IT-OBJECT
	RTRUE	
?CCL5:	ICALL1	V-WALK-AROUND
	RETURN	2
?CND1:	LOC	WINNER
	GETPT	STACK,PRSO >PT
	ZERO?	PT /?CCL15
	PTSIZE	PT >PTS
	EQUAL?	PTS,UEXIT \?CCL18
	GET	PT,REXIT
	CALL2	GOTO,STACK
	ZERO?	STACK /TRUE
	ICALL1	OKAY
	RTRUE	
?CCL18:	EQUAL?	PTS,NEXIT \?CCL22
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTC	40
	GET	PT,NEXITSTR
	PRINT	STACK
	PRINTC	41
	CRLF	
	RETURN	2
?CCL22:	EQUAL?	PTS,FEXIT \?CCL26
	GET	PT,FEXITFCN
	CALL	STACK >RM
	ZERO?	RM /?PRG32
	CALL2	GOTO,RM
	ZERO?	STACK /TRUE
	ICALL1	OKAY
	RTRUE	
?PRG32:	RETURN	2
?CCL26:	EQUAL?	PTS,CEXIT \?CCL35
	GETB	PT,CEXITFLAG
	VALUE	STACK
	ZERO?	STACK /?CCL38
	GET	PT,REXIT
	CALL2	GOTO,STACK
	ZERO?	STACK /TRUE
	ICALL1	OKAY
	RTRUE	
?CCL38:	GET	PT,CEXITSTR >STR
	ZERO?	STR /?CCL42
	PRINT	STR
	CRLF	
	RETURN	2
?CCL42:	ICALL2	YOU-CANT,STR?73
	RETURN	2
?CCL35:	EQUAL?	PTS,DEXIT \FALSE
	CALL2	WALK-THRU-DOOR?,PT
	ZERO?	STACK /?PRG54
	GET	PT,REXIT
	CALL2	GOTO,STACK
	ZERO?	STACK /TRUE
	ICALL1	OKAY
	RTRUE	
?PRG54:	RETURN	2
?CCL15:	EQUAL?	PRSO,P?IN,P?OUT \?CCL57
	CALL1	V-WALK-AROUND
	RSTACK	
?CCL57:	EQUAL?	PRSO,P?UP \?CCL59
	ICALL	PERFORM,V?CLIMB-UP,STAIRS
	RTRUE	
?CCL59:	EQUAL?	PRSO,P?DOWN \?CCL61
	ICALL	PERFORM,V?CLIMB-DOWN,STAIRS
	RTRUE	
?CCL61:	ICALL2	YOU-CANT,STR?73
	RETURN	2


	.FUNCT	UNLOCK-DOOR?:ANY:1:1,DR
	EQUAL?	HERE,DR /TRUE
	RTRUE	


	.FUNCT	WALK-THRU-DOOR?:ANY:1:3,PT,OBJ,TELL?,RM
	ASSIGNED?	'TELL? /?CND1
	SET	'TELL?,TRUE-VALUE
?CND1:	ZERO?	OBJ \?CND3
	GET	PT,DEXITOBJ >OBJ
?CND3:	FSET?	OBJ,OPENBIT /TRUE
	FSET?	OBJ,SECRETBIT \?CCL9
	FSET?	OBJ,TOUCHBIT /?CCL9
	EQUAL?	FALSE-VALUE,TELL?,VERBOSITY /FALSE
	FSET?	HERE,SECRETBIT /?CCL16
	ICALL2	YOU-CANT,STR?73
	RFALSE	
?CCL16:	ZERO?	LIT \?CCL18
	ICALL2	NOT-FOUND,OBJ
	RFALSE	
?CCL18:	EQUAL?	PRSA,V?WALK-TO /TRUE
	ICALL2	OPEN-DOOR-AND-CLOSE-IT-AGAIN,OBJ
	RTRUE	
?CCL9:	FSET?	OBJ,LOCKED /?CCL22
	EQUAL?	PRSA,V?WALK-TO /TRUE
	FCLEAR	OBJ,SECRETBIT
	FSET	OBJ,SEENBIT
	EQUAL?	FALSE-VALUE,TELL?,VERBOSITY /TRUE
	ICALL2	OPEN-DOOR-AND-CLOSE-IT-AGAIN,OBJ
	RTRUE	
?CCL22:	ZERO?	PT /?CCL28
	GET	PT,DEXITSTR >RM
	ZERO?	RM /?CCL28
	ZERO?	TELL? /FALSE
	PRINT	RM
	CRLF	
	RFALSE	
?CCL28:	ZERO?	TELL? /FALSE
	CALL2	UNLOCK-DOOR?,OBJ
	ZERO?	STACK /?CCL37
	EQUAL?	PRSA,V?WALK-TO /TRUE
	ZERO?	VERBOSITY /TRUE
	ICALL2	OPEN-DOOR-AND-CLOSE-IT-AGAIN,OBJ
	RTRUE	
?CCL37:	ICALL	TOO-BAD-BUT,OBJ,STR?104
	ICALL2	THIS-IS-IT,OBJ
	RFALSE	


	.FUNCT	OPEN-DOOR-AND-CLOSE-IT-AGAIN:ANY:1:1,OBJ
	FSET	OBJ,SEENBIT
	EQUAL?	WINNER,PLAYER \TRUE
	PRINTI	"(You "
	FSET?	OBJ,LOCKED \?CND3
	FCLEAR	OBJ,LOCKED
	PRINTI	"unlock and "
?CND3:	PRINTI	"open the "
	PRINTI	"door"
	FSET?	OBJ,SECRETBIT \?CCL8
	FSET	OBJ,OPENBIT
	JUMP	?CND6
?CCL8:	PRINTI	" and close it again"
?CND6:	PRINTR	".)"


	.FUNCT	V-WALK-AROUND:ANY:0:0
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTC	91
	PRINT	WHICH-DIR
	PRINTI	"]
"
	RETURN	2


	.FUNCT	WHO-KNOWS?:ANY:1:1,OBJ
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTI	"(You have no idea where"
	ICALL2	PRINT-THE,PRSO
	PRINTR	" is.)"


	.FUNCT	WALK-WITHIN-ROOM:ANY:0:0
	CALL	NO-NEED,STR?159,HERE
	RSTACK	


	.FUNCT	V-WALK-TO:ANY:0:0
	IN?	PRSO,HERE /?CTR2
	CALL	GLOBAL-IN?,PRSO,HERE
	ZERO?	STACK /?CCL3
?CTR2:	ICALL	HE-SHE-IT,PRSO,1
	PRINTR	"'s here!"
?CCL3:	CALL1	V-WALK-AROUND
	RSTACK	


	.FUNCT	ENTER-ROOM:ANY:0:0,VAL
	CALL1	LIT? >LIT
	GETP	HERE,P?ACTION
	ICALL	STACK,M-ENTER
	CALL1	V-FIRST-LOOK >VAL
	GETP	HERE,P?ACTION
	ICALL	STACK,M-FLASH
	RETURN	VAL


	.FUNCT	V-RUN-OVER:ANY:0:0
	PRINTR	"That doesn't make much sense."


	.FUNCT	V-YELL:ANY:0:0
	PRINTR	"You begin to get a sore throat."


	.FUNCT	V-YES:ANY:0:1,NO?,PER
	SET	'PER,WINNER
	EQUAL?	PER,PLAYER \?CTR2
	CALL1	QCONTEXT-GOOD? >PER
	ZERO?	PER /?CCL3
?CTR2:	GETP	PER,P?ACTION
	CALL	D-APPLY,STR?160,STACK,M-WINNER
	ZERO?	STACK \TRUE
	SET	'CLOCK-WAIT,TRUE-VALUE
	PRINTR	"(That was just a rhetorical question.)"
?CCL3:	PRINTI	"You sound rather "
	ZERO?	NO? /?CCL10
	PRINTI	"neg"
	JUMP	?CND8
?CCL10:	PRINTI	"pos"
?CND8:	PRINTR	"ative."


	.FUNCT	V-NO:ANY:0:0
	CALL2	V-YES,TRUE-VALUE
	RSTACK	


	.FUNCT	JIGS-UP:ANY:0:1,DESC
	ASSIGNED?	'DESC \?CND1
	PRINT	DESC
?CND1:	PRINTI	"

    ****  You have died  ****

"
	CALL1	FINISH
	RSTACK	


	.FUNCT	FINISH:ANY:0:2,REPEATING,VAL
	ZERO?	P-DBUG \TRUE
	CRLF	
	CRLF	
	ZERO?	REPEATING \?CND3
	ICALL1	V-SCORE
	CRLF	
?CND3:	PRINTI	"Would you like to:
"
	ZERO?	P-CAN-UNDO /?CND5
	PRINTI	"   UNDO your last action,
"
?CND5:	PRINTI	"   RESTORE your place from where you saved it,
   RESTART the story from the beginning, or
   QUIT for now?"
	CRLF	
?PRG7:	PRINTC	62
	PUTB	P-INBUF,1,0
	READ	P-INBUF,P-LEXV
	GET	P-LEXV,P-LEXSTART >VAL
	ZERO?	VAL /?CND9
	GET	VAL,3 >VAL
	ZERO?	VAL /?CND9
	GET	VAL,0 >VAL
	GRTR?	0,VAL /?CND9
	ZERO?	P-CAN-UNDO /?CCL16
	EQUAL?	VAL,ACT?UNDO \?CCL16
	ICALL1	V-UNDO
	ICALL2	FINISH,TRUE-VALUE
	JUMP	?CND9
?CCL16:	EQUAL?	VAL,ACT?RESTART \?CCL20
	RESTART	
	ICALL2	FINISH,TRUE-VALUE
	JUMP	?CND9
?CCL20:	EQUAL?	VAL,ACT?RESTORE \?CCL22
	CALL1	V-RESTORE
	ZERO?	STACK \TRUE
	ICALL2	FINISH,TRUE-VALUE
	JUMP	?CND9
?CCL22:	EQUAL?	VAL,ACT?QUIT \?CND9
	QUIT	
?CND9:	PRINTI	"[Type "
	ZERO?	P-CAN-UNDO /?CND26
	PRINTI	"UNDO, "
?CND26:	PRINTI	"RESTORE, RESTART, or QUIT.] "
	JUMP	?PRG7


	.FUNCT	V-UNDO:ANY:0:0
	ZERO?	P-CAN-UNDO /FALSE
	SET	'OLD-HERE,FALSE-VALUE
	IRESTORE	
	ZERO?	STACK \?CCL6
	PRINTR	"[UNDO failed.]"
?CCL6:	PRINTR	"[UNDO is not available.]"


	.FUNCT	REMOTE-VERB?:ANY:0:0
	EQUAL?	PRSA,V?WALK-TO /TRUE
	EQUAL?	PRSA,V?WAIT-UNTIL,V?WAIT-FOR,V?TELL-ABOUT /TRUE
	EQUAL?	PRSA,V?TALK-ABOUT,V?TAKE-TO,V?SSHOW /TRUE
	EQUAL?	PRSA,V?SHOW,V?SEARCH-FOR,V?SEARCH /TRUE
	EQUAL?	PRSA,V?LOOK-UP,V?LEAVE,V?FOLLOW /TRUE
	EQUAL?	PRSA,V?FIND,V?DISEMBARK,V?ASK-FOR /TRUE
	EQUAL?	PRSA,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT,V?ASK-ABOUT /TRUE
	RFALSE	

	.ENDI