.FUNCT	V-$REFRESH
	GET	0,8
	BAND	STACK,-5
	PUT	0,8,STACK
	CLEAR	-1
	ICALL1	INIT-STATUS-LINE
	RTRUE	


	.FUNCT	V-VERBOSE
	SET	'VERBOSITY,2
	PRINTI	"Maximum verbosity."
	CRLF	
	CRLF	
	CALL1	V-LOOK
	RSTACK	


	.FUNCT	V-BRIEF
	SET	'VERBOSITY,1
	PRINTR	"Brief descriptions."


	.FUNCT	V-SUPERBRIEF
	SET	'VERBOSITY,0
	PRINTR	"Superbrief descriptions."


	.FUNCT	V-DIAGNOSE
	ZERO?	HEADACHE /?CCL3
	PRINTR	"You have a big blinding throbber."
?CCL3:	ZERO?	GROGGY /?CCL7
	PRINTR	"You feel weak."
?CCL7:	EQUAL?	IDENTITY-FLAG,ZAPHOD \?PRG14
	PRINTI	"You have two "
	PRINTD	HANGOVER
	PRINTR	"s."
?PRG14:	PRINTR	"You are in good health."


	.FUNCT	V-INVENTORY,SPARE-KLUDGE
	FSET?	SPARE-DRIVE,NDESCBIT \?CCL3
	SET	'SPARE-KLUDGE,TRUE-VALUE
	FCLEAR	SPARE-DRIVE,NDESCBIT
	JUMP	?CND1
?CCL3:	SET	'SPARE-KLUDGE,FALSE-VALUE
?CND1:	EQUAL?	IDENTITY-FLAG,ARTHUR /?PRG11
	FIRST?	PROTAGONIST /?PRG11
	PRINTI	"You are empty-handed."
	CRLF	
	JUMP	?CND4
?PRG11:	PRINTI	"You have:"
	CRLF	
	ZERO?	HEADACHE /?CND13
	PRINTI	"  a "
	PRINTD	HANGOVER
	CRLF	
?CND13:	EQUAL?	IDENTITY-FLAG,ARTHUR \?CND17
	ZERO?	HOLDING-NO-TEA \?CCL18
	CALL2	HELD?,TEA
	ZERO?	STACK \?CND17
?CCL18:	SET	'HOLDING-NO-TEA,TRUE-VALUE
	PRINTI	"  no tea"
	CRLF	
?CND17:	ICALL2	PRINT-CONT,PROTAGONIST
?CND4:	ZERO?	SPARE-KLUDGE /FALSE
	FSET	SPARE-DRIVE,NDESCBIT
	RTRUE	


	.FUNCT	V-QUIT
	ICALL1	V-SCORE
	PRINTI	"Do you wish to leave the game? (Y is affirmative): "
	CALL1	YES?
	ZERO?	STACK /?PRG6
	QUIT	
	RTRUE	
?PRG6:	PRINTR	"Ok."


	.FUNCT	V-RESTART
	ICALL2	V-SCORE,TRUE-VALUE
	PRINTI	"Do you wish to restart? (Y is affirmative): "
	CALL1	YES?
	ZERO?	STACK /FALSE
	PRINTI	"Restarting."
	CRLF	
	RESTART	
	PRINTR	"Failed."


	.FUNCT	FINISH,REPEATING
	CRLF	
	ZERO?	REPEATING \?PRG3
	ICALL1	V-SCORE
	CRLF	
?PRG3:	PRINTI	"Would you like to start over, restore a saved position, get hints or end this session of the game?
(Type RESTART, RESTORE, HINTS or QUIT):
>"
	PUTB	P-INBUF,1,0
	READ	P-INBUF,P-LEXV
	GET	P-LEXV,1
	EQUAL?	STACK,W?RESTART \?CCL7
	RESTART	
	PRINTI	"Failed."
	CRLF	
	CALL2	FINISH,TRUE-VALUE
	RSTACK	
?CCL7:	GET	P-LEXV,1
	EQUAL?	STACK,W?RESTORE \?CCL11
	RESTORE	
	ZERO?	STACK /?PRG17
	PRINTR	"Ok."
?PRG17:	PRINTI	"Failed."
	CRLF	
	CALL2	FINISH,TRUE-VALUE
	RSTACK	
?CCL11:	GET	P-LEXV,1
	EQUAL?	STACK,W?HINTS \?CCL20
	ICALL1	V-HINTS
	ICALL1	INIT-STATUS-LINE
	ICALL1	UPDATE-STATUS-LINE
	CALL2	FINISH,TRUE-VALUE
	RSTACK	
?CCL20:	GET	P-LEXV,1
	EQUAL?	STACK,W?QUIT,W?Q \?CCL22
	QUIT	
	RTRUE	
?CCL22:	CALL2	FINISH,TRUE-VALUE
	RSTACK	


	.FUNCT	YES?
	PRINTC	62
	PUTB	P-INBUF,1,0
	READ	P-INBUF,P-LEXV
	GET	P-LEXV,1
	EQUAL?	STACK,W?YES,W?Y /TRUE
	RFALSE	


	.FUNCT	V-RESTORE
	RESTORE	
	ZERO?	STACK /?PRG6
	PRINTR	"Ok."
?PRG6:	PRINTR	"Failed."


	.FUNCT	V-SAVE,X
	SAVE	 >X
	GET	0,8
	BTST	STACK,4 \?CCL3
	ICALL1	V-$REFRESH
	JUMP	?CND1
?CCL3:	EQUAL?	X,2 \?CND1
	ICALL1	INIT-STATUS-LINE
?CND1:	ZERO?	X \?PRG12
	PRINTI	"Failed."
	CRLF	
	RETURN	2
?PRG12:	PRINTI	"Okay."
	CRLF	
	EQUAL?	X,1 /TRUE
	ICALL1	V-FIRST-LOOK
	RTRUE	


	.FUNCT	V-SCORE,ASK?
	ASSIGNED?	'ASK? /?CND1
	SET	'ASK?,TRUE-VALUE
?CND1:	LESS?	SCORE,400 \?PRG7
	PRINTI	"We are about to give you your score. Put on your peril-sensitive sunglasses now. (Hit RETURN or ENTER when ready.) "
	PRINTC	62
	PUTB	P-INBUF,1,0
	READ	P-INBUF,P-LEXV
	SET	'P-CONT,FALSE-VALUE
	CRLF	
?PRG7:	PRINTI	"Your score is "
	PRINTN	SCORE
	PRINTI	" of a possible 400, in "
	PRINTN	MOVES
	EQUAL?	MOVES,1 \?PRG14
	PRINTI	" turn."
	JUMP	?CND9
?PRG14:	PRINTI	" turns."
?CND9:	CRLF	
	RETURN	SCORE


	.FUNCT	V-SCRIPT
	PRINT	STR?27
	PRINTI	"n.]"
	CRLF	
	DIROUT	D-PRINTER-ON
	ICALL2	COPR-NOTICE,STR?28
	RTRUE	


	.FUNCT	V-UNSCRIPT
	ICALL2	COPR-NOTICE,STR?29
	DIROUT	D-PRINTER-OFF
	PRINT	STR?27
	PRINTR	"ff.]"


	.FUNCT	COPR-NOTICE,STR
	DIROUT	D-SCREEN-OFF
	CRLF	
	PRINTI	"Here "
	PRINT	STR
	PRINTI	"s a transcript of interaction with"
	CRLF	
	ICALL1	V-VERSION
	DIROUT	D-SCREEN-ON
	RTRUE	


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


	.FUNCT	V-VERSION,CNT,V
	SET	'CNT,17
	GET	0,1
	BAND	STACK,2047 >V
	CRLF	
	PRINTI	"THE HITCHHIKER'S GUIDE TO THE GALAXY
Infocom interactive fiction - a science fiction story
Copyright (c) 1984 by Infocom, Inc. All rights reserved.
Release "
	PRINTN	V
	PRINTI	" / Serial number "
?PRG3:	IGRTR?	'CNT,23 /?REP4
	GETB	0,CNT
	PRINTC	STACK
	JUMP	?PRG3
?REP4:	PRINTI	" / "
	ICALL1	V-$ID
	CRLF	
	RTRUE	


	.FUNCT	V-$VERIFY
	EQUAL?	PRSO,INTNUM \?PRG8
	EQUAL?	P-NUMBER,469 \?PRG8
	PRINTN	SERIAL
	CRLF	
	RTRUE	
?PRG8:	PRINTI	"Verifying..."
	CRLF	
	VERIFY	 \?PRG15
	PRINTR	"Good."
?PRG15:	CRLF	
	PRINTR	"** Bad **"


	.FUNCT	V-ALARM
	EQUAL?	PRSO,ROOMS \?PRG4
	ICALL	PERFORM,V?ALARM,ME
	RTRUE	
?PRG4:	PRINTI	"I don't think"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" is sleeping."


	.FUNCT	V-ANSWER
	ZERO?	AWAITING-REPLY /?CCL3
	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?YES \?CCL3
	ICALL1	V-YES
	CALL1	FUCKING-CLEAR
	RSTACK	
?CCL3:	ZERO?	AWAITING-REPLY /?CCL7
	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?NO \?CCL7
	ICALL1	V-NO
	CALL1	FUCKING-CLEAR
	RSTACK	
?CCL7:	IN?	BEAST,HERE \?PRG12
	ICALL1	V-SAY
	CALL1	FUCKING-CLEAR
	RSTACK	
?PRG12:	PRINTI	"Nobody is awaiting your answer."
	CRLF	
	CALL1	FUCKING-CLEAR
	RSTACK	


	.FUNCT	V-APPLAUD
	CALL2	RUNNING?,I-CAPTAIN
	ZERO?	STACK /?PRG6
	PRINTR	"If you want to enjoy the poetry, just type that."
?PRG6:	PRINTR	"Thank you, thank you."


	.FUNCT	V-APPRECIATE
	CALL2	RUNNING?,I-CAPTAIN
	ZERO?	STACK /?PRG4
	CALL1	V-APPLAUD
	RSTACK	
?PRG4:	PRINTR	"Hey, I never get any appreciation! There's absolutely no job satisfaction in being a computer."


	.FUNCT	V-ASK-ABOUT
	EQUAL?	PRSO,ME \?CCL3
	ICALL	PERFORM,V?TELL,ME
	RTRUE	
?CCL3:	FSET?	PRSO,ACTORBIT \?CCL5
	PRINTI	"A long silence tells you that"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTI	" isn't interested in talking about"
	IN?	PRSI,ROOMS \?CCL12
	PRINTI	" that"
	JUMP	?PRG15
?CCL12:	ICALL	ARTICLE,PRSI,TRUE-VALUE
?PRG15:	PRINTR	"."
?CCL5:	ICALL	PERFORM,V?TELL,PRSO
	RTRUE	


	.FUNCT	V-ASK-FOR
	PRINTI	"Unsurprisingly,"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" doesn't oblige."


	.FUNCT	V-BITE
	CALL2	HACK-HACK,STR?30
	RSTACK	


	.FUNCT	V-BLOCK
	CALL1	V-DIG
	RSTACK	


	.FUNCT	V-BLOCK-WITH
	CALL1	V-DIG
	RSTACK	


	.FUNCT	PRE-BOARD
	ZERO?	IN-FRONT-FLAG /?CCL3
	ICALL	PERFORM,V?STAND-BEFORE,PRSO
	RTRUE	
?CCL3:	LOC	PROTAGONIST
	EQUAL?	PRSO,STACK \FALSE
	PRINT	LOOK-AROUND
	CRLF	
	RTRUE	


	.FUNCT	V-BOARD,AV
	FSET?	PRSO,VEHBIT \?PRG10
	PRINTI	"You are now in"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTC	46
	CRLF	
	MOVE	WINNER,PRSO
	EQUAL?	HERE,SPEEDBOAT /?CND8
	SET	'LYING-DOWN,TRUE-VALUE
?CND8:	GETP	PRSO,P?ACTION
	ICALL	STACK,M-ENTER
	SET	'OHERE,FALSE-VALUE
	RTRUE	
?PRG10:	PRINTI	"You can't get into"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	"!"


	.FUNCT	V-BRUSH
	ZERO?	PRSI \?CCL3
	CALL2	HELD?,TOOTHBRUSH
	ZERO?	STACK /?PRG9
	PRINTI	"(with the "
	PRINTD	TOOTHBRUSH
	PRINTC	41
	CRLF	
	ICALL	PERFORM,V?BRUSH,PRSO,TOOTHBRUSH
	RTRUE	
?PRG9:	PRINTI	"You have nothing to brush"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" with."
?CCL3:	EQUAL?	PRSI,TOOTHBRUSH /?CCL14
	PRINTI	"With"
	ICALL2	ARTICLE,PRSI
	PRINTR	"!"
?CCL14:	EQUAL?	PRSO,TEETH /?PRG23
	PRINTI	"In general, "
	PRINTD	TOOTHBRUSH
	PRINTR	"es are meant for teeth."
?PRG23:	PRINTR	"Congratulations on your fine dental hygiene."


	.FUNCT	V-BUY
	PRINTI	"Sorry,"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" isn't for sale."


	.FUNCT	V-CALL
	EQUAL?	HERE,BEDROOM /?CCL3
	PRINTR	"There's no phone here!"
?CCL3:	ZERO?	HEADACHE /?CCL7
	PRINTI	"You reach for the receiver. "
	CALL2	PICK-ONE,LURCHES
	PRINT	STACK
	CRLF	
	RTRUE	
?CCL7:	FSET?	PHONE,TOUCHBIT \?CCL11
	PRINTR	"The cable is down, remember?"
?CCL11:	EQUAL?	PRSO,DAIS \?CCL15
	FSET	PHONE,TOUCHBIT
	PRINTI	"You explain your situation. The desk sergeant promises to send someone over soon, and says not to try anything crazy in the meantime, like lying down in front of the "
	PRINTD	BULLDOZER
	PRINTC	46
	PRINT	DIALING-TONE
	CRLF	
	RTRUE	
?CCL15:	EQUAL?	PRSO,HOME \?CCL19
	PRINTR	"Who do you think you are, E.T.?"
?CCL19:	EQUAL?	PRSO,MAZE \?PRG24
	CALL1	V-HINTS
	RSTACK	
?PRG24:	PRINTR	"You don't know the number."


	.FUNCT	V-CALL-WITH
	EQUAL?	PRSI,PHONE /?CCL3
	PRINTI	"You can't use"
	ICALL2	ARTICLE,PRSI
	PRINTI	" as a "
	PRINTD	PHONE
	PRINTR	"."
?CCL3:	ICALL	PERFORM,V?CALL,PRSO
	RTRUE	


	.FUNCT	PRE-CARVE
	CALL2	HELD?,STONE
	ZERO?	STACK \FALSE
	PRINTR	"You have no carving instrument."


	.FUNCT	V-CARVE
	CALL2	PICK-ONE,YUKS
	PRINT	STACK
	CRLF	
	RTRUE	


	.FUNCT	V-CARVE-WITH
	EQUAL?	HERE,OUTER-LAIR \?PRG11
	EQUAL?	PRSI,STONE \?PRG7
	ICALL	PERFORM,V?CARVE,PRSO,MEMORIAL
	RTRUE	
?PRG7:	PRINTI	"No luck;"
	ICALL	ARTICLE,PRSI,TRUE-VALUE
	PRINTI	" doesn't even scratch the "
	PRINTD	MEMORIAL
	PRINTR	"."
?PRG11:	PRINTR	"Huh?"


	.FUNCT	V-CHASTISE
	PRINTR	"Use prepositions to indicate precisely what you want to do: LOOK AT the object, LOOK INSIDE it, LOOK UNDER it, etc."


	.FUNCT	V-CLEAN
	EQUAL?	PRSO,GLOBAL-ROOM,ROOMS \?CCL3
	EQUAL?	HERE,BEDROOM \?CCL3
	PRINTI	"Just as you've got it all spick and span"
	CALL1	BETTER-LUCK
	RSTACK	
?CCL3:	EQUAL?	PRSO,TEETH \?CCL9
	ICALL	PERFORM,V?BRUSH,TEETH
	RTRUE	
?CCL9:	EQUAL?	PRSO,TOWEL \?PRG12
	SET	'TOWEL-MUDDY,FALSE-VALUE
?PRG12:	PRINTR	"It is now much cleaner."


	.FUNCT	V-CLIMB-DOWN
	EQUAL?	PRSO,ROOMS \?CCL3
	CALL2	DO-WALK,P?DOWN
	RSTACK	
?CCL3:	CALL1	V-CARVE
	RSTACK	


	.FUNCT	V-CLIMB-FOO
	EQUAL?	PRSO,ROOMS \?CCL3
	CALL2	DO-WALK,P?UP
	RSTACK	
?CCL3:	CALL1	V-CARVE
	RSTACK	


	.FUNCT	V-CLIMB-ON
	FSET?	PRSO,VEHBIT \?PRG4
	ICALL	PERFORM,V?BOARD,PRSO
	RTRUE	
?PRG4:	PRINTI	"You can't climb onto"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	"."


	.FUNCT	V-CLIMB-OVER
	CALL1	V-CARVE
	RSTACK	


	.FUNCT	V-CLIMB-UP
	EQUAL?	PRSO,ROOMS \?CCL3
	CALL2	DO-WALK,P?UP
	RSTACK	
?CCL3:	CALL1	V-CARVE
	RSTACK	


	.FUNCT	V-CLOSE
	FSET?	PRSO,SURFACEBIT \?CCL3
	CALL1	V-COUNT
	RSTACK	
?CCL3:	FSET?	PRSO,ACTORBIT \?CCL5
	EQUAL?	PRSO,SCREENING-DOOR,NUTRIMAT /?CCL5
	CALL1	V-COUNT
	RSTACK	
?CCL5:	FSET?	PRSO,DOORBIT /?CTR8
	FSET?	PRSO,CONTBIT \?CCL9
?CTR8:	FSET?	PRSO,OPENBIT \?PRG19
	PRINTI	"Okay,"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTI	" is now closed."
	CRLF	
	FCLEAR	PRSO,OPENBIT
	RTRUE	
?PRG19:	PRINT	ALREADY-CLOSED
	CRLF	
	RTRUE	
?CCL9:	CALL1	TELL-ME-HOW
	RSTACK	


	.FUNCT	V-COUNT
	CALL2	PICK-ONE,IMPOSSIBLES
	PRINT	STACK
	CRLF	
	RTRUE	


	.FUNCT	V-CUT
	ZERO?	PRSI \?PRG4
	CALL1	V-CARVE
	RSTACK	
?PRG4:	PRINTI	"I doubt that the ""cutting edge"" of"
	ICALL2	ARTICLE,PRSI
	PRINTR	" is adequate."


	.FUNCT	V-DIG
	CALL2	PICK-ONE,WASTES
	PRINT	STACK
	CRLF	
	RTRUE	


	.FUNCT	V-DISEMBARK
	FSET?	PRSO,TAKEBIT \?CCL3
	CALL2	META-LOC,PRSO
	EQUAL?	STACK,HERE \?CCL3
	IN?	PRSO,HERE /?CCL3
	IN?	PRSO,PROTAGONIST /?CCL3
	ICALL	PERFORM,V?TAKE,PRSO
	RTRUE	
?CCL3:	LOC	WINNER
	EQUAL?	STACK,PRSO /?CCL9
	PRINT	LOOK-AROUND
	CRLF	
	RETURN	2
?CCL9:	ICALL1	OWN-FEET
	SET	'LYING-DOWN,FALSE-VALUE
	MOVE	WINNER,HERE
	SET	'OHERE,FALSE-VALUE
	RETURN	OHERE


	.FUNCT	V-DOZE
	PRINTI	"You doze for several minutes. "
	CALL1	V-WAIT
	RSTACK	


	.FUNCT	V-DRINK,S
	PRINTR	"You can't drink that!"


	.FUNCT	V-DRINK-FROM
	CALL1	V-COUNT
	RSTACK	


	.FUNCT	PRE-DROP
	CALL1	IDROP
	ZERO?	STACK \TRUE
	RFALSE	


	.FUNCT	V-DROP
	EQUAL?	HERE,MAZE \?CCL3
	EQUAL?	PRSO,THING /?CND4
	SET	'BRAIN-DAMAGED,PRSO
?CND4:	MOVE	PRSO,LOCAL-GLOBALS
	PRINTI	"As you release"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	", it vanishes into the maze of synapses."
?CCL3:	EQUAL?	HERE,ACCESS-SPACE \?CCL11
	MOVE	PRSO,LOCAL-GLOBALS
	PRINTI	"If you recall, the floor is just an open mesh, and"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" drops through and disappears."
?CCL11:	MOVE	PRSO,HERE
	PRINTR	"Dropped."


	.FUNCT	V-EAT
	PRINTI	"Stuffing"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" in your mouth would do little to help at this point."


	.FUNCT	V-ENJOY
	FSET?	PRSO,ACTORBIT \?PRG4
	CALL1	V-KISS
	RSTACK	
?PRG4:	PRINTI	"Not difficult at all, considering how enjoyable"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" is."


	.FUNCT	V-ENTER,VEHICLE
	CALL	FIND-IN,HERE,VEHBIT >VEHICLE
	ZERO?	VEHICLE /?CCL3
	ICALL	PERFORM,V?BOARD,VEHICLE
	RTRUE	
?CCL3:	CALL2	DO-WALK,P?IN
	RSTACK	


	.FUNCT	V-ESCAPE
	SET	'DREAMING,FALSE-VALUE
	PRINTI	"You are so keen on escape that you literally leap through the fabric of the space-time continuum. You wake up in a shack on tenth-century Earth. A dressing gown, a "
	PRINTD	TOOTHBRUSH
	ICALL2	JIGS-UP,STR?31
	RTRUE	


	.FUNCT	V-EXAMINE
	FSET?	PRSO,DOORBIT \?CCL3
	CALL1	V-LOOK-INSIDE
	RSTACK	
?CCL3:	FSET?	PRSO,CONTBIT \?CCL5
	FSET?	PRSO,ACTORBIT /?CCL5
	FSET?	PRSO,OPENBIT \?PRG11
	CALL1	V-LOOK-INSIDE
	RSTACK	
?PRG11:	PRINTR	"It's closed."
?CCL5:	GETP	PRSO,P?TEXT
	ZERO?	STACK /?CCL14
	ICALL	PERFORM,V?READ,PRSO
	RTRUE	
?CCL14:	EQUAL?	PRSO,BROWNIAN-SOURCE \?CCL16
	ICALL	PERFORM,V?EXAMINE,DANGLY-BIT
	RTRUE	
?CCL16:	FSET?	PRSO,TOOLBIT \?CCL18
	PRINT	IT-LOOKS-LIKE
	PRINTI	" every other "
	PRINTD	PRSO
	PRINTR	" you've ever seen."
?CCL18:	EQUAL?	PRSO,HEAD,TEETH,EYES /?PRG25
	EQUAL?	PRSO,EARS \?PRG27
?PRG25:	PRINTR	"That would involve quite a contortion."
?PRG27:	PRINTI	"You see nothing special about"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	"."


	.FUNCT	V-EXAMINE-THROUGH
	PRINTR	"This reveals nothing new."


	.FUNCT	V-EXIT
	ZERO?	PRSO \?CND1
	LOC	PROTAGONIST >PRSO
?CND1:	FSET?	PRSO,VEHBIT \?CCL5
	ICALL	PERFORM,V?DISEMBARK,PRSO
	RTRUE	
?CCL5:	CALL2	DO-WALK,P?OUT
	RSTACK	


	.FUNCT	V-FEED,FOOD
	CALL	FIND-IN,PROTAGONIST,EATBIT >FOOD
	ZERO?	FOOD /?PRG6
	PRINTI	"(the "
	PRINTD	FOOD
	PRINTC	41
	CRLF	
	ICALL	PERFORM,V?GIVE,FOOD,PRSO
	RTRUE	
?PRG6:	PRINTI	"You have nothing to feed"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" with."


	.FUNCT	V-FILL
	PRINTR	"Phil who?"


	.FUNCT	V-FIND,WHERE,L
	LOC	PRSO >L
	EQUAL?	PRSO,EARS,HEAD,HANDS /?PRG6
	EQUAL?	PRSO,EYES,TEETH \?CCL3
?PRG6:	PRINTI	"Are you sure"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" is lost?"
?CCL3:	EQUAL?	PRSO,ME \?CCL11
	PRINTI	"You're in"
	ICALL	ARTICLE,HERE,TRUE-VALUE
	PRINTR	"."
?CCL11:	IN?	PRSO,PROTAGONIST \?CCL17
	PRINTR	"You have it!"
?CCL17:	EQUAL?	PRSO,PROSSER \?CCL21
	EQUAL?	IDENTITY-FLAG,FORD \?CCL21
	ZERO?	GONE-AROUND \?CCL21
	PRINTI	"He's "
	PRINT	ON-OTHER-SIDE
	PRINTI	" of the "
	PRINTD	BULLDOZER
	PRINTR	"."
?CCL21:	IN?	PRSO,HERE /?PRG36
	EQUAL?	PRSO,MECHANISM \?PRD31
	EQUAL?	HERE,ACCESS-SPACE /?PRG36
?PRD31:	EQUAL?	PRSO,HATCH \?CCL28
	EQUAL?	HERE,HATCHWAY \?CCL28
?PRG36:	PRINTR	"Right in front of you."
?CCL28:	CALL	GLOBAL-IN?,PRSO,HERE
	ZERO?	STACK /?CCL39
	PRINTR	"You figure it out!"
?CCL39:	FSET?	L,ACTORBIT \?CCL43
	CALL2	VISIBLE?,L
	ZERO?	STACK /?CCL43
	PRINTI	"As far as you can tell,"
	ICALL	ARTICLE,L,TRUE-VALUE
	PRINTR	" has it."
?CCL43:	FSET?	L,CONTBIT \?CCL51
	CALL2	VISIBLE?,PRSO
	ZERO?	STACK /?CCL51
	PRINTI	"It's in"
	ICALL	ARTICLE,L,TRUE-VALUE
	PRINTR	"."
?CCL51:	ZERO?	WHERE /?PRG62
	PRINTR	"Beats me."
?PRG62:	PRINTR	"You'll have to do that yourself."


	.FUNCT	V-FIRST-LOOK
	CALL1	DESCRIBE-ROOM
	ZERO?	STACK /FALSE
	EQUAL?	VERBOSITY,1,2 \FALSE
	CALL1	DESCRIBE-OBJECTS
	RSTACK	


	.FUNCT	V-FLIPSWITCH
	FSET?	PRSO,SWITCHBIT \?CCL3
	EQUAL?	PRSI,INTNUM \?CCL3
	LESS?	P-NUMBER,9 \?CCL3
	CALL2	VISIBLE?,BOARD
	ZERO?	STACK /?CCL3
	ICALL	PERFORM,V?TURN,DIPSWITCH
	RTRUE	
?CCL3:	CALL1	V-TELL-TIME
	RSTACK	


	.FUNCT	V-FOLLOW
	IN?	PRSO,HERE \?CCL3
	PRINTI	"But"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" is right here!"
?CCL3:	FSET?	PRSO,ACTORBIT /?PRG10
	CALL1	V-COUNT
	RSTACK	
?PRG10:	PRINTI	"You have no idea where"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" is."


	.FUNCT	I-FOLLOW
	SET	'FOLLOW-FLAG,FALSE-VALUE
	RFALSE	


	.FUNCT	V-FOOTNOTE
	ZERO?	PRSO /?PRG6
	EQUAL?	PRSO,INTNUM /?CCL3
?PRG6:	PRINTR	"Specify a number, as in ""FOOTNOTE 6."""
?CCL3:	EQUAL?	P-NUMBER,1 \?CCL9
	PRINTR	"In case anyone is interested, this quotation is from a letter written by John Keats, and thus he becomes the first major 19th Century British poet to feature in a computer game."
?CCL9:	EQUAL?	P-NUMBER,2 \?CCL13
	PRINTR	"Bob Dylan, 1969."
?CCL13:	EQUAL?	P-NUMBER,3 \?CCL17
	PRINTR	"A meaningless coincidence."
?CCL17:	EQUAL?	P-NUMBER,4 \?CCL21
	PRINTR	"The first single they recorded on their own Apple label, and one of their most successful songs ever."
?CCL21:	EQUAL?	P-NUMBER,5 \?CCL25
	PRINTI	"Peacefully for a "
	PRINTD	BEAST
	PRINTR	" that is. Now and then it snorts or rolls over, and the walls shake a bit."
?CCL25:	EQUAL?	P-NUMBER,6 \?CCL29
	PRINTR	"That was just an example."
?CCL29:	EQUAL?	P-NUMBER,7 \?CCL33
	SET	'AWAITING-REPLY,13
	CALL	QUEUE,I-REPLY,1
	PUT	STACK,0,1
	CALL2	NOT-VERY-GOOD,STR?32
	RSTACK	
?CCL33:	EQUAL?	P-NUMBER,8 \?CCL35
	SET	'AWAITING-REPLY,13
	CALL	QUEUE,I-REPLY,1
	PUT	STACK,0,1
	CALL2	NOT-VERY-GOOD,STR?33
	RSTACK	
?CCL35:	EQUAL?	P-NUMBER,9 \?CCL37
	PRINTR	"Unfortunately, you couldn't hear a word of it, because sound doesn't travel in a vacuum."
?CCL37:	EQUAL?	P-NUMBER,10 \?CCL41
	PRINTR	"I guess it isn't all that dangerous a place after all."
?CCL41:	EQUAL?	P-NUMBER,11 \?CCL45
	SET	'AWAITING-REPLY,14
	CALL	QUEUE,I-REPLY,2
	PUT	STACK,0,1
	PRINTR	"Isn't it fun reading through all the footnotes?"
?CCL45:	EQUAL?	P-NUMBER,12 \?CCL49
	PRINTR	"This is the famous recursive footnote (Footnote 12)."
?CCL49:	EQUAL?	P-NUMBER,13 \?CCL53
	SET	'AWAITING-REPLY,13
	CALL	QUEUE,I-REPLY,1
	PUT	STACK,0,1
	CALL2	NOT-VERY-GOOD,STR?34
	RSTACK	
?CCL53:	EQUAL?	P-NUMBER,14 \?CCL55
	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	
?CCL55:	EQUAL?	P-NUMBER,15 \?PRG60
	SET	'AWAITING-REPLY,13
	CALL	QUEUE,I-REPLY,1
	PUT	STACK,0,1
	CALL2	NOT-VERY-GOOD,STR?35
	RSTACK	
?PRG60:	PRINTI	"There is no Footnote "
	PRINTN	P-NUMBER
	PRINTR	"."


	.FUNCT	V-FRIPPING
	PRINTR	"Aaaaaaarggggghhhhhh!"


	.FUNCT	V-GET-DRESSED,GARMENT
	EQUAL?	PRSO,ROOMS \?CCL3
	EQUAL?	IDENTITY-FLAG,ARTHUR \?PRG9
	FSET?	GOWN,WORNBIT \?CCL6
?PRG9:	PRINTR	"You are!"
?CCL6:	CALL2	HELD?,GOWN
	ZERO?	STACK /?CCL12
	ICALL	PERFORM,V?WEAR,GOWN
	RTRUE	
?CCL12:	CALL2	VISIBLE?,GOWN
	ZERO?	STACK /?PRG17
	PRINT	NOT-HOLDING
	PRINTC	32
	PRINTD	GOWN
	PRINTR	"."
?PRG17:	PRINTR	"There's nothing to wear here."
?CCL3:	CALL1	V-TELL-TIME
	RSTACK	


	.FUNCT	V-GET-DRUNK
	EQUAL?	PRSO,ROOMS \?CCL3
	EQUAL?	HERE,PUB \?CCL6
	PRINTI	"You get drunk and have a terrific time for twelve minutes, are the life and soul of the Pub, tell some really great stories, make everyone laugh a lot, and they all clap you on the back and tell you what a great chap you are and then the Earth gets unexpectedly demolished"
	EQUAL?	IDENTITY-FLAG,ARTHUR \?CCL11
	PRINTI	". You wake up with a hangover which lasts for all eternity."
	CRLF	
	CALL1	FINISH
	RSTACK	
?CCL11:	CALL2	JIGS-UP,STR?36
	RSTACK	
?CCL6:	EQUAL?	HERE,LIVING-ROOM,DINING-ROOM,KITCHEN \?PRG18
	PRINT	YOU-ARE
	CRLF	
	RTRUE	
?PRG18:	PRINTR	"You can't see any alcohol here!"
?CCL3:	CALL1	V-TELL-TIME
	RSTACK	


	.FUNCT	V-GET-UNDRESSED
	ZERO?	PRSO \?CND1
	SET	'PRSO,ROOMS
?CND1:	EQUAL?	PRSO,ROOMS \?CCL5
	EQUAL?	IDENTITY-FLAG,ARTHUR \?PRG14
	FSET?	GOWN,WORNBIT \?PRG12
	ICALL	PERFORM,V?TAKE-OFF,GOWN
	RTRUE	
?PRG12:	PRINTR	"You're not wearing anything!"
?PRG14:	PRINT	ARRESTED
	CRLF	
	RTRUE	
?CCL5:	CALL1	V-TELL-TIME
	RSTACK	


	.FUNCT	PRE-GIVE
	CALL1	IDROP
	ZERO?	STACK \TRUE
	RFALSE	


	.FUNCT	V-GIVE
	FSET?	PRSI,ACTORBIT \?PRG8
	PRINTI	"Politely,"
	ICALL	ARTICLE,PRSI,TRUE-VALUE
	PRINTR	" refuses your offer."
?PRG8:	PRINTI	"You can't give"
	ICALL2	ARTICLE,PRSO
	PRINTI	" to"
	ICALL2	ARTICLE,PRSI
	PRINTR	"!"


	.FUNCT	V-GIVE-UP
	EQUAL?	PRSO,ROOMS \?CCL3
	CALL1	V-QUIT
	RSTACK	
?CCL3:	CALL1	V-TELL-TIME
	RSTACK	


	.FUNCT	V-HANG
	PRINTI	"You can't hang something from"
	ICALL2	ARTICLE,PRSI
	PRINTR	"!"


	.FUNCT	V-HELLO
	ZERO?	PRSO /?CCL3
	FSET?	PRSO,ACTORBIT \?CCL3
	PRINTR	"""Hello to you too."""
?CCL3:	ZERO?	PRSO /?CCL9
	ICALL	PERFORM,V?TELL,PRSO
	RTRUE	
?CCL9:	ICALL	PERFORM,V?TELL,ME
	RTRUE	


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


	.FUNCT	V-HITCHHIKE
	ICALL	PERFORM,V?PUSH,GREEN-BUTTON
	RTRUE	


	.FUNCT	V-I-AM
	PRINTR	"Pleased to meet you. I'm your computer."


	.FUNCT	V-IDIOT
	ICALL	PERFORM,V?TELL,ME
	RTRUE	


	.FUNCT	V-KICK
	CALL2	HACK-HACK,STR?37
	RSTACK	


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


	.FUNCT	V-KNEEL
	CALL1	V-TASTE
	RSTACK	


	.FUNCT	V-KNOCK
	FSET?	PRSO,DOORBIT \?CCL3
	PRINTR	"Nobody's home."
?CCL3:	CALL2	HACK-HACK,STR?38
	RSTACK	


	.FUNCT	V-KISS
	PRINTR	"This is family entertainment, not a video nasty."


	.FUNCT	V-LAMP-OFF
	FSET?	PRSO,LIGHTBIT \?CCL3
	FSET?	PRSO,ONBIT /?CCL3
	PRINTR	"It is already off."
?CCL3:	EQUAL?	PRSO,INTNUM \?PRG13
	LESS?	P-NUMBER,9 \?PRG13
	CALL2	ACCESSIBLE?,BOARD
	ZERO?	STACK /?PRG13
	ICALL	PERFORM,V?TURN,DIPSWITCH
	RTRUE	
?PRG13:	PRINTR	"You can't turn that off."


	.FUNCT	V-LAMP-ON
	FSET?	PRSO,LIGHTBIT \?CCL3
	FSET?	PRSO,ONBIT \?CCL3
	PRINTR	"It is already on."
?CCL3:	EQUAL?	PRSO,INTNUM \?PRG13
	LESS?	P-NUMBER,9 \?PRG13
	CALL2	ACCESSIBLE?,BOARD
	ZERO?	STACK /?PRG13
	ICALL	PERFORM,V?TURN,DIPSWITCH
	RTRUE	
?PRG13:	PRINTR	"You can't turn that on."


	.FUNCT	V-LEAP
	ZERO?	LYING-DOWN /?CCL3
	PRINT	WHILE-LYING
	CRLF	
	RTRUE	
?CCL3:	EQUAL?	HERE,CAPTAINS-QUARTERS \?CCL7
	CALL1	V-STAND
	RSTACK	
?CCL7:	ZERO?	PRSO /?CCL9
	IN?	PRSO,HERE /?CCL9
	CALL1	V-COUNT
	RSTACK	
?CCL9:	ZERO?	PRSO \?CCL13
	EQUAL?	HERE,SPEEDBOAT \?CCL13
	PRINT	DONT-MIX
	CRLF	
	RTRUE	
?CCL13:	CALL1	V-SKIP
	RSTACK	


	.FUNCT	V-LEAVE
	ZERO?	PRSO \?CND1
	SET	'PRSO,ROOMS
?CND1:	EQUAL?	PRSO,ROOMS \?CCL5
	CALL2	DO-WALK,P?OUT
	RSTACK	
?CCL5:	LOC	WINNER
	EQUAL?	PRSO,STACK \?CCL7
	ICALL	PERFORM,V?DISEMBARK,PRSO
	RTRUE	
?CCL7:	ICALL	PERFORM,V?DROP,PRSO
	RTRUE	


	.FUNCT	V-LIE-DOWN
	EQUAL?	HERE,CAPTAINS-QUARTERS \?CCL3
	CALL1	V-STAND
	RSTACK	
?CCL3:	EQUAL?	PRSO,ROOMS \?CCL5
	EQUAL?	HERE,BEDROOM \?CCL8
	ICALL	PERFORM,V?LIE-DOWN,BED
	RTRUE	
?CCL8:	ICALL	PERFORM,V?LIE-DOWN,GROUND
	RTRUE	
?CCL5:	ICALL	PERFORM,V?BOARD,PRSO
	RTRUE	


	.FUNCT	V-LISTEN
	PRINTI	"At the moment,"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" makes no sound."


	.FUNCT	V-LOCK
	CALL1	V-CARVE
	RSTACK	


	.FUNCT	V-LOOK
	FSET?	TOWEL,WORNBIT \?CCL3
	PRINTR	"You see a towel."
?CCL3:	CALL2	DESCRIBE-ROOM,TRUE-VALUE
	ZERO?	STACK /FALSE
	CALL2	DESCRIBE-OBJECTS,TRUE-VALUE
	RSTACK	


	.FUNCT	V-LOOK-BEHIND
	PRINTI	"There is nothing behind"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	"."


	.FUNCT	V-LOOK-DOWN
	ZERO?	LIT \?CCL3
	PRINT	TOO-DARK
	CRLF	
	RTRUE	
?CCL3:	EQUAL?	PRSO,ROOMS \?CCL7
	ICALL	PERFORM,V?EXAMINE,GROUND
	RTRUE	
?CCL7:	ICALL	PERFORM,V?LOOK-INSIDE,PRSO
	RTRUE	


	.FUNCT	V-LOOK-INSIDE
	FSET?	PRSO,ACTORBIT \?CCL3
	EQUAL?	PRSO,SCREENING-DOOR /?CCL3
	PRINTR	"There is nothing special to be seen."
?CCL3:	EQUAL?	PRSO,PLOTTER,THUMB,SPARE-DRIVE \?CCL9
	PRINTR	"You can't do that."
?CCL9:	FSET?	PRSO,SURFACEBIT \?CCL14
	LOC	WINNER
	EQUAL?	PRSO,STACK \?CCL17
	ICALL1	DESCRIBE-VEHICLE
	RTRUE	
?CCL17:	FIRST?	PRSO \?PRG20
	CALL2	PRINT-CONT,PRSO
	RSTACK	
?PRG20:	PRINTI	"There is nothing on"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	"."
?CCL14:	FSET?	PRSO,DOORBIT \?CCL25
	PRINTI	"All you can tell is that"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTI	" is "
	FSET?	PRSO,OPENBIT \?PRG35
	PRINTR	"open."
?PRG35:	PRINTR	"closed."
?CCL25:	FSET?	PRSO,CONTBIT \?PRG57
	LOC	WINNER
	EQUAL?	PRSO,STACK \?CCL41
	ICALL1	DESCRIBE-VEHICLE
	RTRUE	
?CCL41:	CALL2	SEE-INSIDE?,PRSO
	ZERO?	STACK /?CCL43
	FIRST?	PRSO \?PRG47
	CALL2	PRINT-CONT,PRSO
	RSTACK	
?PRG47:	PRINTR	"It's empty."
?CCL43:	FSET?	PRSO,OPENBIT /?PRG53
	FIRST?	PRSO \?PRG53
	ICALL	PERFORM,V?OPEN,PRSO
	RTRUE	
?PRG53:	PRINTI	"It seems that"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" is closed."
?PRG57:	PRINTR	"You can't do that."


	.FUNCT	V-LOOK-UNDER
	CALL2	HELD?,PRSO
	ZERO?	STACK /?PRG11
	FSET?	PRSO,WORNBIT \?PRG9
	PRINTR	"You're wearing it!"
?PRG9:	PRINTR	"You're holding it!"
?PRG11:	PRINTI	"There is nothing but "
	EQUAL?	PRSO,HOOK \?CCL15
	PRINTI	"a "
	PRINTD	FISH-HOLE
	JUMP	?PRG30
?CCL15:	EQUAL?	PRSO,BOAT-OBJECT \?CCL19
	PRINTI	"water"
	JUMP	?PRG30
?CCL19:	EQUAL?	PRSO,TOWEL \?PRG28
	FSET?	TOWEL,SURFACEBIT \?PRG28
	PRINTI	"a drain"
	JUMP	?PRG30
?PRG28:	PRINTI	"dust"
?PRG30:	PRINTR	" there."


	.FUNCT	V-LOOK-UP
	ZERO?	LIT \?CCL3
	PRINT	TOO-DARK
	CRLF	
	RTRUE	
?CCL3:	EQUAL?	PRSO,ROOMS \?CCL7
	FSET?	HERE,OUTSIDEBIT \?CCL10
	ICALL	PERFORM,V?EXAMINE,SKY
	RTRUE	
?CCL10:	ICALL	PERFORM,V?EXAMINE,CEILING
	RTRUE	
?CCL7:	ICALL	PERFORM,V?LOOK-INSIDE,PRSO
	RTRUE	


	.FUNCT	V-LOWER
	CALL1	V-RAISE
	RSTACK	


	.FUNCT	V-MAKE
	PRINTI	"You can't make"
	ICALL2	ARTICLE,PRSO
	PRINTR	"!"


	.FUNCT	V-MOVE
	CALL2	HELD?,PRSO
	ZERO?	STACK /?CCL3
	PRINTR	"Why juggle objects?"
?CCL3:	EQUAL?	PRSO,PANEL-BLOCKER \?CCL7
	SET	'PANEL-BLOCKER,FALSE-VALUE
	PRINTI	"Okay, it's no longer in front of the "
	PRINTD	ROBOT-PANEL
	PRINTR	"."
?CCL7:	FSET?	PRSO,INTEGRALBIT \?CCL11
	CALL1	PART-OF
	RSTACK	
?CCL11:	CALL1	LOC-CLOSED
	ZERO?	STACK \TRUE
	FSET?	PRSO,TAKEBIT \?CCL15
	PRINTI	"Moving"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" reveals nothing."
?CCL15:	EQUAL?	PRSO,INTNUM \?PRG25
	LESS?	P-NUMBER,9 \?PRG25
	CALL2	ACCESSIBLE?,BOARD
	ZERO?	STACK /?PRG25
	ICALL	PERFORM,V?TURN,DIPSWITCH
	RTRUE	
?PRG25:	PRINTI	"You can't move"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	"."


	.FUNCT	V-MUNG
	CALL2	HACK-HACK,STR?39
	RSTACK	


	.FUNCT	V-MY-NAME
	EQUAL?	PRSO,NAME \?CCL3
	CALL1	V-I-AM
	RSTACK	
?CCL3:	CALL1	V-TELL-TIME
	RSTACK	


	.FUNCT	V-NO
	EQUAL?	AWAITING-REPLY,1 /FALSE
	EQUAL?	AWAITING-REPLY,2 \?CCL5
	CALL2	DO-WALK,P?SOUTH
	RSTACK	
?CCL5:	EQUAL?	AWAITING-REPLY,3,10 \?CCL7
	PRINTR	"I should think not."
?CCL7:	EQUAL?	AWAITING-REPLY,4 \?CCL11
	PRINTR	"The word ""no"" is not in our hostess' vocabulary."
?CCL11:	EQUAL?	AWAITING-REPLY,5 \?CCL15
	SET	'AWAITING-REPLY,3
	CALL1	V-YES
	RSTACK	
?CCL15:	EQUAL?	AWAITING-REPLY,6,11 \?CCL17
	SET	'AWAITING-REPLY,6
	CALL1	V-YES
	RSTACK	
?CCL17:	EQUAL?	AWAITING-REPLY,7,8 /?CTR18
	EQUAL?	AWAITING-REPLY,13,15 \?CCL19
?CTR18:	SET	'AWAITING-REPLY,3
	CALL1	V-YES
	RSTACK	
?CCL19:	EQUAL?	AWAITING-REPLY,9 \?CCL23
	PRINTR	"I disagree."
?CCL23:	EQUAL?	AWAITING-REPLY,12 \?CCL27
	ICALL1	ENGINEER-LEAVE
	PRINTI	"""Think you're funny, huh?"" The "
	PRINTD	ENGINEER
	PRINT	ROARS-OFF
	PRINTR	", making sure to spray you with his Sub-Ethon exhaust."
?CCL27:	EQUAL?	AWAITING-REPLY,14 \?CCL31
	PRINTR	"Then stop."
?CCL31:	EQUAL?	AWAITING-REPLY,16 \?CCL35
	PRINTR	"I didn't think so."
?CCL35:	EQUAL?	AWAITING-REPLY,18,19 \?PRG40
	CALL1	V-YES
	RSTACK	
?PRG40:	PRINTR	"You sound rather negative."


	.FUNCT	V-OPEN,F,STR
	FSET?	PRSO,SURFACEBIT \?CCL3
	CALL1	V-COUNT
	RSTACK	
?CCL3:	FSET?	PRSO,ACTORBIT \?CCL5
	EQUAL?	PRSO,NUTRIMAT /?CCL5
	CALL1	V-COUNT
	RSTACK	
?CCL5:	FSET?	PRSO,CONTBIT \?CCL9
	FSET?	PRSO,OPENBIT \?CCL12
	PRINT	ALREADY-OPEN
	CRLF	
	RTRUE	
?CCL12:	FSET	PRSO,OPENBIT
	FSET	PRSO,TOUCHBIT
	FIRST?	PRSO \?PRG20
	FSET?	PRSO,TRANSBIT \?PRG22
?PRG20:	PRINTR	"Opened."
?PRG22:	PRINTI	"Opening"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTI	" reveals"
	ICALL2	PRINT-CONTENTS,PRSO
	PRINTR	"."
?CCL9:	FSET?	PRSO,DOORBIT \?CCL29
	FSET?	PRSO,OPENBIT \?PRG35
	PRINT	ALREADY-OPEN
	CRLF	
	RTRUE	
?PRG35:	PRINTI	"Okay,"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTI	" is now open."
	CRLF	
	FSET	PRSO,OPENBIT
	RTRUE	
?CCL29:	CALL1	TELL-ME-HOW
	RSTACK	


	.FUNCT	V-PANIC
	PRINTR	"Not surprised."


	.FUNCT	V-PICK
	CALL1	V-COUNT
	RSTACK	


	.FUNCT	V-PICK-UP
	ICALL	PERFORM,V?TAKE,PRSO,PRSI
	RTRUE	


	.FUNCT	V-PLANT
	EQUAL?	PRSI,FLOWERPOT \?PRG4
	ICALL	PERFORM,V?PUT,PRSO,PRSI
	RTRUE	
?PRG4:	PRINTI	"You can't plant something in"
	ICALL2	ARTICLE,PRSI
	PRINTR	"."


	.FUNCT	V-PLUG
	PRINTI	"You can't seem to plug"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTI	" into"
	ICALL	ARTICLE,PRSI,TRUE-VALUE
	PRINTR	"."


	.FUNCT	V-POINT
	EQUAL?	HERE,SPEEDBOAT \?CCL3
	ICALL	PERFORM,V?STEER,BOAT-OBJECT,PRSO
	RTRUE	
?CCL3:	CALL1	V-STEER
	RSTACK	


	.FUNCT	V-POUR
	CALL1	V-CARVE
	RSTACK	


	.FUNCT	V-PROTEST
	EQUAL?	HERE,FRONT-OF-HOUSE \?PRG8
	CALL2	RUNNING?,I-BULLDOZER
	ZERO?	STACK /?PRG8
	PRINTI	"Prosser says, ""I wouldn't stop the "
	PRINTD	BULLDOZER
	PRINTR	" even if you were lying in front of it!"""
?PRG8:	PRINTR	"To whom? About what? Why?"


	.FUNCT	V-PULL-TOGETHER
	CALL1	V-TELL-TIME
	RSTACK	


	.FUNCT	V-PUSH
	EQUAL?	PRSO,INTNUM \?CCL3
	LESS?	P-NUMBER,9 \?CCL3
	CALL2	ACCESSIBLE?,BOARD
	ZERO?	STACK /?CCL3
	ICALL	PERFORM,V?TURN,DIPSWITCH
	RTRUE	
?CCL3:	CALL2	HACK-HACK,STR?40
	RSTACK	


	.FUNCT	PRE-PUT
	EQUAL?	PRSI,GROUND \?CCL3
	ICALL	PERFORM,V?DROP,PRSO
	RTRUE	
?CCL3:	CALL	HELD?,PRSI,PRSO
	ZERO?	STACK /?CCL5
	PRINTI	"You can't put"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTI	" in"
	ICALL	ARTICLE,PRSI,TRUE-VALUE
	PRINTI	" when"
	ICALL	ARTICLE,PRSI,TRUE-VALUE
	PRINTI	" is already in"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	"!"
?CCL5:	CALL1	IDROP
	ZERO?	STACK \TRUE
	ZERO?	IN-FRONT-FLAG /?CCL19
	ICALL	PERFORM,V?PUT-IN-FRONT,PRSO,PRSI
	RTRUE	
?CCL19:	EQUAL?	PRSO,TEA \?CCL21
	ICALL	PERFORM,V?POUR,TEA,PRSI
	RTRUE	
?CCL21:	EQUAL?	PRSO,BROWNIAN-SOURCE \?CCL23
	SET	'BROWNIAN-SOURCE,FALSE-VALUE
	ICALL1	REMOVING-BIT
	RFALSE	
?CCL23:	EQUAL?	PRSO,PLOTTER \?CCL25
	ZERO?	BROWNIAN-SOURCE /?CCL25
	SET	'BROWNIAN-SOURCE,FALSE-VALUE
	ICALL1	REMOVING-BIT
	RFALSE	
?CCL25:	EQUAL?	PRSO,PLOTTER \?PRD31
	ZERO?	DRIVE-TO-PLOTTER \?PRG39
?PRD31:	EQUAL?	PRSO,SPARE-DRIVE \?PRD34
	ZERO?	DRIVE-TO-PLOTTER \?PRG39
?PRD34:	EQUAL?	PRSO,SPARE-DRIVE \FALSE
	ZERO?	DRIVE-TO-CONTROLS /FALSE
?PRG39:	PRINTR	"You'll have to unplug it first."


	.FUNCT	V-PUT,?TMP1,?TMP2,?TMP3
	FSET?	PRSI,OPENBIT /?CCL3
	FSET?	PRSI,DOORBIT /?CCL3
	FSET?	PRSI,CONTBIT /?CCL3
	FSET?	PRSI,SURFACEBIT /?CCL3
	FSET?	PRSI,VEHBIT /?CCL3
	PRINTI	"You can't put"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTI	" in"
	ICALL2	ARTICLE,PRSI
	PRINTR	"!"
?CCL3:	EQUAL?	PRSI,PRSO /?PRG22
	CALL2	HELD?,PRSO
	ZERO?	STACK /?PRD19
	FSET?	PRSO,TAKEBIT \?PRG22
?PRD19:	EQUAL?	PRSI,PLOTTER,THUMB,SPARE-DRIVE \?CCL16
?PRG22:	PRINTR	"How can you do that?"
?CCL16:	FSET?	PRSI,OPENBIT /?CCL25
	FSET?	PRSI,SURFACEBIT /?CCL25
	PRINTI	"Inspection reveals that"
	ICALL	ARTICLE,PRSI,TRUE-VALUE
	PRINTI	" isn't open."
	CRLF	
	SET	'P-IT-OBJECT,PRSI
	RETURN	P-IT-OBJECT
?CCL25:	IN?	PRSO,PRSI \?CCL33
	PRINTI	"I think"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTI	" is already in"
	ICALL	ARTICLE,PRSI,TRUE-VALUE
	PRINTR	"."
?CCL33:	CALL2	WEIGHT,PRSI >?TMP3
	GETP	PRSO,P?SIZE
	ADD	?TMP3,STACK >?TMP2
	GETP	PRSI,P?SIZE
	SUB	?TMP2,STACK >?TMP1
	GETP	PRSI,P?CAPACITY
	GRTR?	?TMP1,STACK \?CCL41
	FSET?	PRSI,VEHBIT \?PRG45
	CALL1	V-DIG
	RSTACK	
?PRG45:	PRINTR	"There's no room."
?CCL41:	CALL2	HELD?,PRSO
	ZERO?	STACK \?CCL48
	CALL1	ITAKE
	EQUAL?	STACK,M-FATAL,FALSE-VALUE /TRUE
?CCL48:	MOVE	PRSO,PRSI
	FSET	PRSO,TOUCHBIT
	PRINTR	"Done."


	.FUNCT	V-PUT-BEHIND
	CALL1	V-DIG
	RSTACK	


	.FUNCT	V-PUT-IN-FRONT
	CALL1	V-DIG
	RSTACK	


	.FUNCT	V-PUT-ON
	EQUAL?	PRSI,ME \?CCL3
	ICALL	PERFORM,V?WEAR,PRSO
	RTRUE	
?CCL3:	FSET?	PRSI,SURFACEBIT \?CCL5
	CALL1	V-PUT
	RSTACK	
?CCL5:	EQUAL?	PRSI,EYES,HEAD \?PRG12
	PRINTI	"You can't cover"
	ICALL	ARTICLE,PRSI,TRUE-VALUE
	PRINTR	" with that."
?PRG12:	PRINTI	"There's no good surface on"
	ICALL	ARTICLE,PRSI,TRUE-VALUE
	PRINTR	"."


	.FUNCT	V-PUT-UNDER
	CALL1	V-DIG
	RSTACK	


	.FUNCT	V-RAPE
	CALL1	V-KISS
	RSTACK	


	.FUNCT	V-RAISE
	CALL2	HACK-HACK,STR?41
	RSTACK	


	.FUNCT	PRE-READ
	FSET?	TOWEL,WORNBIT \?CCL3
	EQUAL?	PRSO,TOWEL /?CCL3
	PRINT	WITH-TOWEL
	CRLF	
	RTRUE	
?CCL3:	ZERO?	LIT \?CCL9
	EQUAL?	PRSO,HANGOVER /?CCL9
	PRINT	TOO-DARK
	CRLF	
	RTRUE	
?CCL9:	ZERO?	PRSI /FALSE
	FSET?	PRSI,TRANSBIT /FALSE
	PRINTI	"How does one look through"
	ICALL2	ARTICLE,PRSI
	PRINTR	"?"


	.FUNCT	V-READ
	FSET?	PRSO,READBIT \?PRG6
	GETP	PRSO,P?TEXT
	PRINT	STACK
	CRLF	
	RTRUE	
?PRG6:	PRINTI	"How can you read"
	ICALL2	ARTICLE,PRSO
	PRINTR	"?"


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


	.FUNCT	V-RELAX
	PRINT	ZEN
	CRLF	
	RTRUE	


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


	.FUNCT	V-REPLACE
	PRINTR	"It's not in need of replacement."


	.FUNCT	V-REPAIR
	EQUAL?	PRSO,THUMB \?PRD5
	FSET?	THUMB,MUNGEDBIT /?PRG10
?PRD5:	EQUAL?	PRSO,HATCH \?PRG12
	ZERO?	LANDED /?PRG12
?PRG10:	PRINTR	"You have neither the tools nor the expertise."
?PRG12:	PRINTR	"I'm not sure it's broken."


	.FUNCT	V-REPLY
	PRINTI	"It is hardly likely that"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTI	" is interested."
	CRLF	
	CALL1	FUCKING-CLEAR
	RSTACK	


	.FUNCT	V-RUB
	CALL1	LOC-CLOSED
	ZERO?	STACK \TRUE
	CALL2	HACK-HACK,STR?42
	RSTACK	


	.FUNCT	V-SAVE-SOMETHING
	PRINTI	"Sorry, but"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" is beyond help."


	.FUNCT	V-SAY,V
	ZERO?	AWAITING-REPLY /?CCL3
	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?YES \?CCL3
	ICALL1	V-YES
	CALL1	FUCKING-CLEAR
	RSTACK	
?CCL3:	ZERO?	AWAITING-REPLY /?CCL7
	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?NO \?CCL7
	ICALL1	V-NO
	CALL1	FUCKING-CLEAR
	RSTACK	
?CCL7:	IN?	BEAST,HERE \?CCL11
	FSET?	TOWEL,WORNBIT \?CCL11
	ICALL1	SAID-WITH-TOWEL
	CALL1	FUCKING-CLEAR
	RSTACK	
?CCL11:	IN?	BEAST,HERE \?CCL15
	ZERO?	P-CONT \?CCL15
	ICALL	PERFORM,V?TELL,BEAST
	RTRUE	
?CCL15:	IN?	BEAST,HERE \?CCL19
	CALL1	SAID-YOUR-NAME?
	ZERO?	STACK /?CCL19
	ICALL	PERFORM,V?SAY-NAME,YOUR-NAME
	CALL1	FUCKING-CLEAR
	RSTACK	
?CCL19:	IN?	BEAST,HERE \?CCL23
	ICALL	PERFORM,V?SAY-NAME,BEAST-NAME
	CALL1	FUCKING-CLEAR
	RSTACK	
?CCL23:	CALL	FIND-IN,HERE,ACTORBIT >V
	ZERO?	V /?CCL25
	PRINTI	"You must address"
	ICALL	ARTICLE,V,TRUE-VALUE
	PRINTI	" directly."
	CRLF	
	CALL1	FUCKING-CLEAR
	RSTACK	
?CCL25:	ICALL	PERFORM,V?TELL,ME
	CALL1	FUCKING-CLEAR
	RSTACK	


	.FUNCT	SAID-YOUR-NAME?,OFFS,LEN,WRD
	SET	'OFFS,P-CONT
	SET	'LEN,P-LEN
?PRG1:	DLESS?	'LEN,0 /FALSE
	GET	P-LEXV,OFFS >WRD
	EQUAL?	WRD,W?MY,W?NAME,W?IS /?CND5
	EQUAL?	WRD,W?I,W?AM,W?I'M /?CND5
	EQUAL?	WRD,W?ARTHUR,W?DENT /TRUE
	RFALSE	
?CND5:	ADD	OFFS,2 >OFFS
	JUMP	?PRG1


	.FUNCT	SAID-WITH-TOWEL
	PRINTI	"The Beast is puzzled by a voice coming from something it can't see."
	PRINT	SLOWLY-DAWNS
	CRLF	
	RTRUE	


	.FUNCT	V-SAY-NAME
	IN?	BEAST,HERE \?PRG19
	ZERO?	NAME-TOLD /?CCL6
	PRINTR	"You already told the Beast your name."
?CCL6:	FSET?	TOWEL,WORNBIT \?CCL10
	CALL1	SAID-WITH-TOWEL
	RSTACK	
?CCL10:	EQUAL?	PRSO,NAME,ARTHUR,YOUR-NAME /?CTR11
	EQUAL?	PRSO,ME \?PRG17
?CTR11:	CALL	QUEUE,I-BEAST,2
	PUT	STACK,0,1
	SET	'NAME-TOLD,TRUE-VALUE
	PRINTR	"The Beast roars your name with relish, and explains that once it has eaten you, your name will be added to its list of remembrance."
?PRG17:	PRINTR	"There's something about detecting insincerity that transcends even the vast gulf between Humanity and Bugblatter Bestiality. The Beast bellows, obviously convinced that you were lying and that isn't your name nor anything remotely like it."
?PRG19:	PRINTR	"You should use quotes with this verb."


	.FUNCT	V-SEARCH
	FSET?	PRSO,ACTORBIT \?CCL3
	PRINTR	"That wouldn't be polite."
?CCL3:	FSET?	PRSO,CONTBIT \?PRG18
	LOC	WINNER
	EQUAL?	PRSO,STACK \?CCL9
	ICALL1	DESCRIBE-VEHICLE
	RTRUE	
?CCL9:	FSET?	PRSO,OPENBIT /?CCL11
	PRINTR	"You'll have to open it first."
?CCL11:	FIRST?	PRSO \?PRG18
	FIRST?	PRSO /?BOGUS17
?BOGUS17:	FSET?	STACK,NDESCBIT /?PRG18
	ICALL2	PRINT-CONT,PRSO
	RTRUE	
?PRG18:	PRINTR	"You find nothing unusual."


	.FUNCT	V-SGIVE
	ICALL	PERFORM,V?GIVE,PRSI,PRSO
	RTRUE	


	.FUNCT	V-SHAKE,X
	FSET?	PRSO,ACTORBIT \?CCL3
	PRINTR	"Be real."
?CCL3:	CALL2	HACK-HACK,STR?43
	RSTACK	


	.FUNCT	V-SHAKE-WITH
	EQUAL?	PRSO,HANDS /?CCL3
	CALL1	V-TELL-TIME
	RSTACK	
?CCL3:	FSET?	PRSI,ACTORBIT /?CCL5
	PRINTI	"I don't think"
	ICALL	ARTICLE,PRSI,TRUE-VALUE
	PRINTR	" even has hands."
?CCL5:	ICALL	PERFORM,V?THANK,PRSI
	RTRUE	


	.FUNCT	V-SHOOT
	FSET?	TOWEL,WORNBIT \?CND1
	PRINT	WITH-TOWEL
	CRLF	
	RTRUE	
?CND1:	ZERO?	PRSO \?CND5
	CALL2	HELD?,BEAST-GUN
	ZERO?	STACK /?CCL9
	SET	'PRSO,BEAST-GUN
	JUMP	?CND5
?CCL9:	CALL2	HELD?,BLASTER
	ZERO?	STACK /?PRG12
	SET	'PRSO,BLASTER
?CND5:	ZERO?	PRSI \?CCL16
	EQUAL?	PRSO,BLASTER,BEAST-GUN \?CCL19
	PRINTR	"Some rays shoot out of the gun."
?PRG12:	PRINTR	"With what? At whom? Why?"
?CCL19:	CALL2	HELD?,BEAST-GUN
	ZERO?	STACK /?CCL23
	ICALL	PERFORM,V?SHOOT,PRSO,BEAST-GUN
	RTRUE	
?CCL23:	CALL2	HELD?,BLASTER
	ZERO?	STACK /?PRG26
	ICALL	PERFORM,V?SHOOT,PRSO,BLASTER
	RTRUE	
?PRG26:	PRINTI	"You have nothing to shoot"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" with."
?CCL16:	EQUAL?	PRSI,BEAST-GUN \?PRG51
	PRINTI	"Some rays from the gun strike"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTI	", but "
	EQUAL?	PRSO,BEAST \?PRG49
	FSET?	BEAST,MUNGEDBIT /?PRG49
	INC	'GUN-COUNTER
	PRINTI	"it only seems to make it madder"
	EQUAL?	GUN-COUNTER,3 \?PRG47
	PRINTI	" (Footnote 7)"
?PRG47:	PRINTR	"."
?PRG49:	PRINTR	"nothing else happens."
?PRG51:	PRINTR	"Don't ever bother applying for a job as an armaments expert."


	.FUNCT	V-SHOW
	PRINTI	"I doubt"
	ICALL	ARTICLE,PRSI,TRUE-VALUE
	PRINTR	" is interested."


	.FUNCT	V-SIT,VEHICLE
	CALL	FIND-IN,HERE,VEHBIT >VEHICLE
	ZERO?	VEHICLE /?CCL3
	ICALL	PERFORM,V?BOARD,VEHICLE
	RTRUE	
?CCL3:	CALL1	V-DIG
	RSTACK	


	.FUNCT	V-SKIP
	SET	'AWAITING-REPLY,15
	CALL	QUEUE,I-REPLY,2
	PUT	STACK,0,1
	PRINTR	"Wasn't that fun?"


	.FUNCT	V-SLEEP,TOLD?
	EQUAL?	HERE,BEDROOM \?CCL3
	PRINTI	"You nod off and are wakened briefly a few hours later as"
	CALL1	BETTER-LUCK
	RSTACK	
?CCL3:	EQUAL?	HERE,HOLD \?PRG10
	PRINTR	"You try, but the grubby mattresses are too repulsive."
?PRG10:	PRINTR	"There's no bed here."


	.FUNCT	V-SMELL
	PRINTI	"It smells just like"
	ICALL2	ARTICLE,PRSO
	PRINTR	"."


	.FUNCT	V-SMILE
	EQUAL?	HERE,CAPTAINS-QUARTERS \?PRG6
	IN?	POETRY,HERE \?PRG6
	CALL1	V-APPLAUD
	RSTACK	
?PRG6:	PRINTR	"How nice."


	.FUNCT	V-SPIN
	PRINTR	"You can't spin that!"


	.FUNCT	V-SPUT-ON
	EQUAL?	PRSO,EARS \?CCL3
	CALL2	VISIBLE?,POETRY
	ZERO?	STACK /?CCL3
	ICALL	PERFORM,V?LISTEN,POETRY
	RTRUE	
?CCL3:	ICALL	PERFORM,V?PUT-ON,PRSI,PRSO
	RTRUE	


	.FUNCT	V-SSHOOT
	ICALL	PERFORM,V?SHOOT,PRSI,PRSO
	RTRUE	


	.FUNCT	V-SSHOW
	ICALL	PERFORM,V?SHOW,PRSI,PRSO
	RTRUE	


	.FUNCT	V-STAND
	LOC	WINNER
	FSET?	STACK,VEHBIT \?CCL3
	LOC	WINNER
	ICALL	PERFORM,V?DISEMBARK,STACK
	RTRUE	
?CCL3:	ZERO?	LYING-DOWN /?CCL5
	SET	'LYING-DOWN,FALSE-VALUE
	SET	'OHERE,FALSE-VALUE
	CALL2	RUNNING?,I-PROSSER
	ZERO?	STACK /?CCL8
	PRINTI	"You are safe! Prosser heaves a visible sigh of relief, shakes his head and wipes his brow. "
	PRINT	BULLDOZER-PILES
	CRLF	
	CALL1	BRICK-DEATH
	RSTACK	
?CCL8:	EQUAL?	HERE,FRONT-OF-HOUSE \?CCL12
	ZERO?	PROSSER-LYING \?CCL12
	IN?	FLEET,HERE /?CCL12
	PRINTI	"The "
	PRINTD	BULLDOZER-DRIVER
	PRINTI	" gives a quick chew of his gum and slams in the clutch. "
	PRINT	BULLDOZER-PILES
	CRLF	
	CALL1	BRICK-DEATH
	RSTACK	
?CCL12:	CALL1	OWN-FEET
	RSTACK	
?CCL5:	ZERO?	PRSO /?PRG22
	FSET?	PRSO,TAKEBIT \?PRG22
	CALL1	V-DIG
	RSTACK	
?PRG22:	PRINTR	"You are already standing."


	.FUNCT	V-STAND-BEFORE
	EQUAL?	PRSO,DISPENSER \?CCL3
	PRINTR	"The slot is too wide to block that way."
?CCL3:	EQUAL?	PRSO,HOOK,ROBOT-PANEL,FISH-HOLE \?CCL7
	PRINTI	"You'd never be able to push the "
	PRINTD	DISPENSER-BUTTON
	PRINTI	" from there."
	PRINT	GETTING-CLOSE
	CRLF	
	RTRUE	
?CCL7:	EQUAL?	PRSO,HOME,HOUSE,BULLDOZER \?CCL11
	EQUAL?	IDENTITY-FLAG,ARTHUR \?CCL11
	PRINTI	"The "
	PRINTD	BULLDOZER
	PRINTI	" could easily maneuver around you."
	PRINT	GETTING-CLOSE
	CRLF	
	RTRUE	
?CCL11:	CALL1	V-DIG
	RSTACK	


	.FUNCT	V-STAND-ON
	ZERO?	IN-FRONT-FLAG /?CCL3
	ICALL	PERFORM,V?STAND-BEFORE,PRSO
	RTRUE	
?CCL3:	CALL1	V-DIG
	RSTACK	


	.FUNCT	V-STEER
	PRINTR	"That would be pointless."


	.FUNCT	PRE-TAKE
	EQUAL?	PRSO,GOWN \?PRD5
	ZERO?	GOWN-HUNG /?PRD5
	ZERO?	LYING-DOWN \?PRG12
?PRD5:	EQUAL?	PRSO,TOWEL \?CCL3
	FSET?	TOWEL,SURFACEBIT \?CCL3
	ZERO?	LYING-DOWN /?CCL3
?PRG12:	PRINT	WHILE-LYING
	CRLF	
	RTRUE	
?CCL3:	EQUAL?	PRSO,BABEL-FISH /FALSE
	CALL1	LOC-CLOSED
	ZERO?	STACK \TRUE
	EQUAL?	PRSO,DANGLY-BIT \?PRD21
	EQUAL?	PRSI,BROWNIAN-SOURCE \?PRD21
	ZERO?	PRSI \?CTR18
?PRD21:	EQUAL?	PRSO,SMALL-PLUG \?PRD25
	EQUAL?	PRSI,SMALL-RECEPTACLE,PLOTTER \?PRD25
	ZERO?	DRIVE-TO-PLOTTER \?CTR18
?PRD25:	EQUAL?	PRSO,LARGE-PLUG \?CCL19
	EQUAL?	PRSI,LARGE-RECEPTACLE,CONTROLS \?CCL19
	ZERO?	DRIVE-TO-CONTROLS /?CCL19
?CTR18:	ICALL	PERFORM,V?REMOVE,PRSO
	RTRUE	
?CCL19:	FSET?	PRSO,INTEGRALBIT \?CCL33
	LOC	PRSO
	EQUAL?	PRSI,STACK /FALSE
?CCL33:	IN?	PRSO,PROTAGONIST /?CTR36
	CALL2	HELD?,PRSO
	ZERO?	STACK /?CCL37
	FSET?	PRSO,TAKEBIT /?CCL37
?CTR36:	FSET?	PRSO,WORNBIT \?PRG47
	PRINTR	"You are already wearing it."
?PRG47:	PRINTR	"You already have it."
?CCL37:	ZERO?	PRSI /?CCL50
	EQUAL?	PRSI,ME \?CCL53
	ICALL	PERFORM,V?DROP,PRSO
	RTRUE	
?CCL53:	EQUAL?	PRSO,ITEM-ON-SATCHEL \?CCL55
	EQUAL?	PRSI,SATCHEL /FALSE
?CCL55:	EQUAL?	PRSO,ITEM-DROPPED-AT-PARTY \?CCL59
	EQUAL?	PRSI,HOSTESS /FALSE
?CCL59:	LOC	PRSO
	EQUAL?	PRSI,STACK /?CCL63
	PRINTI	"But"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTI	" isn't "
	FSET?	PRSI,ACTORBIT \?CCL70
	EQUAL?	PRSI,SCREENING-DOOR,NUTRIMAT /?CCL70
	PRINTI	"being held by"
	JUMP	?CND68
?CCL70:	FSET?	PRSI,SURFACEBIT \?PRG79
	PRINTI	"on"
	JUMP	?CND68
?PRG79:	PRINTI	"in"
?CND68:	ICALL	ARTICLE,PRSI,TRUE-VALUE
	PRINTR	"."
?CCL63:	SET	'PRSI,FALSE-VALUE
	RFALSE	
?CCL50:	LOC	WINNER
	EQUAL?	PRSO,STACK \?CCL84
	PRINTR	"You are in it!"
?CCL84:	ZERO?	HEADACHE /FALSE
	EQUAL?	PRSO,GOWN /FALSE
	FSET?	PRSO,TAKEBIT \FALSE
	CALL2	HELD?,PRSO
	ZERO?	STACK \FALSE
	CALL2	PICK-ONE,LURCHES
	PRINT	STACK
	CRLF	
	RTRUE	


	.FUNCT	V-TAKE
	CALL1	ITAKE
	EQUAL?	STACK,TRUE-VALUE \FALSE
	EQUAL?	PRSO,JACKET-FLUFF \?CCL6
	FSET?	JACKET-FLUFF,TRYTAKEBIT \?CCL6
	FCLEAR	JACKET-FLUFF,TRYTAKEBIT
	FCLEAR	JACKET-FLUFF,NDESCBIT
	SET	'FLUFF-REMOVED,TRUE-VALUE
	CALL	QUEUE,I-ZAPHOD,6
	PUT	STACK,0,1
	CALL	QUEUE,I-ARTHUR,2
	PUT	STACK,0,1
	PRINTI	"You remove the "
	PRINTD	JACKET-FLUFF
	PRINTR	", improving Arthur's appearance greatly. He is clearly touched, and starts happily to chat away to you. You discover that he is only slightly more interesting to talk to than an averagely interesting wall."
?CCL6:	EQUAL?	PRSO,ITEM-DROPPED-AT-PARTY \?CCL13
	FCLEAR	ITEM-DROPPED-AT-PARTY,NDESCBIT
	CALL2	HELD?,WINE
	ZERO?	STACK \?CCL16
	SET	'ITEM-DROPPED-AT-PARTY,WINE
	FCLEAR	HOSTESS,TOUCHBIT
	JUMP	?CND11
?CCL16:	CALL2	HELD?,HANDBAG
	ZERO?	STACK \?CCL18
	SET	'ITEM-DROPPED-AT-PARTY,HANDBAG
	FCLEAR	HOSTESS,TOUCHBIT
	JUMP	?CND11
?CCL18:	CALL2	HELD?,APPETIZERS
	ZERO?	STACK \?CCL20
	SET	'ITEM-DROPPED-AT-PARTY,APPETIZERS
	FCLEAR	HOSTESS,TOUCHBIT
	JUMP	?CND11
?CCL20:	SET	'ITEM-DROPPED-AT-PARTY,FALSE-VALUE
	FCLEAR	HOSTESS,NDESCBIT
	JUMP	?CND11
?CCL13:	EQUAL?	PRSO,GOWN \?CCL22
	ZERO?	GOWN-HUNG /?CCL22
	FCLEAR	GOWN,TRYTAKEBIT
	FCLEAR	GOWN,NDESCBIT
	FSET	GOWN,OPENBIT
	SET	'GOWN-HUNG,FALSE-VALUE
	JUMP	?CND11
?CCL22:	EQUAL?	PRSO,PANEL-BLOCKER \?CND11
	SET	'PANEL-BLOCKER,FALSE-VALUE
	FCLEAR	PRSO,TRYTAKEBIT
	FCLEAR	PRSO,NDESCBIT
?CND11:	EQUAL?	PRSO,SATCHEL \?CCL28
	ZERO?	ITEM-ON-SATCHEL /?CCL28
	MOVE	ITEM-ON-SATCHEL,HERE
	FCLEAR	ITEM-ON-SATCHEL,NDESCBIT
	FCLEAR	ITEM-ON-SATCHEL,TRYTAKEBIT
	SET	'ITEM-ON-SATCHEL,FALSE-VALUE
	JUMP	?PRG32
?CCL28:	EQUAL?	PRSO,ITEM-ON-SATCHEL \?PRG32
	FCLEAR	ITEM-ON-SATCHEL,NDESCBIT
	FCLEAR	ITEM-ON-SATCHEL,TRYTAKEBIT
	SET	'ITEM-ON-SATCHEL,FALSE-VALUE
?PRG32:	PRINTR	"Taken."


	.FUNCT	V-TAKE-OFF
	FSET?	PRSO,WORNBIT \?PRG8
	FCLEAR	PRSO,WORNBIT
	PRINTI	"Okay, you're no longer wearing"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	"."
?PRG8:	PRINTR	"You aren't wearing that!"


	.FUNCT	V-TASTE
	PRINTR	"You can't. At least, not in this game you can't."


	.FUNCT	V-TELL
	FSET?	PRSO,ACTORBIT \?PRG11
	ZERO?	P-CONT /?PRG7
	SET	'WINNER,PRSO
	LOC	WINNER >HERE
	RTRUE	
?PRG7:	PRINTI	"Hmmm ..."
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" looks at you expectantly, as if you seemed to be about to talk."
?PRG11:	PRINTI	"You can't talk to"
	ICALL2	ARTICLE,PRSO
	PRINTC	33
	CRLF	
	CALL1	FUCKING-CLEAR
	RSTACK	


	.FUNCT	V-TELL-ABOUT
	EQUAL?	PRSO,ME \?PRG4
	ICALL	PERFORM,V?WHAT,PRSI
	RTRUE	
?PRG4:	PRINTI	"It doesn't look like"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" is interested."


	.FUNCT	V-TELL-TIME
	PRINTR	"That sentence isn't one I recognise."


	.FUNCT	V-TELL-NAME
	CALL1	V-TELL-TIME
	RSTACK	


	.FUNCT	V-THANK
	FSET?	PRSO,ACTORBIT \?CCL3
	PRINTI	"You do so, but"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" seems less than overjoyed."
?CCL3:	CALL1	V-CARVE
	RSTACK	


	.FUNCT	V-THROUGH,M
	FSET?	PRSO,DOORBIT \?CCL3
	CALL2	OTHER-SIDE,PRSO
	ICALL2	DO-WALK,STACK
	RTRUE	
?CCL3:	FSET?	PRSO,VEHBIT \?CCL5
	ICALL	PERFORM,V?BOARD,PRSO
	RTRUE	
?CCL5:	FSET?	PRSO,TAKEBIT /?CCL7
	PRINTI	"You hit your head against"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" as you attempt this feat."
?CCL7:	IN?	PRSO,WINNER \?CCL13
	ICALL	PERFORM,V?EXAMINE,EYES
	RTRUE	
?CCL13:	CALL1	V-CARVE
	RSTACK	


	.FUNCT	PRE-THROW
	EQUAL?	PRSO,INTNUM \?CCL3
	LESS?	P-NUMBER,9 \?CCL3
	CALL2	ACCESSIBLE?,BOARD
	ZERO?	STACK /?CCL3
	ICALL	PERFORM,V?TURN,DIPSWITCH
	RTRUE	
?CCL3:	FSET?	PRSO,SWITCHBIT /FALSE
	CALL1	IDROP
	ZERO?	STACK \TRUE
	RFALSE	


	.FUNCT	V-THROW
	EQUAL?	HERE,HOLD \?CCL3
	MOVE	PRSO,LOCAL-GLOBALS
	PRINT	ROBOT-FLIES-IN
	PRINTI	"collects"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" in midair, and flashes away."
?CCL3:	EQUAL?	HERE,MAZE,ACCESS-SPACE \?CCL9
	ICALL	PERFORM,V?DROP,PRSO
	RTRUE	
?CCL9:	ZERO?	PRSI /?CCL11
	MOVE	PRSO,HERE
	PRINTR	"You missed."
?CCL11:	MOVE	PRSO,HERE
	PRINTR	"Thrown."


	.FUNCT	V-THROW-OFF
	PRINTR	"You can't do that!"


	.FUNCT	V-THROW-IN-TOWEL
	EQUAL?	PRSO,TOWEL \?CCL3
	CALL1	V-QUIT
	RSTACK	
?CCL3:	CALL1	V-TELL-TIME
	RSTACK	


	.FUNCT	V-TIE
	PRINTI	"You can't tie"
	ICALL2	ARTICLE,PRSO
	PRINTR	"."


	.FUNCT	V-TIE-TOGETHER
	EQUAL?	PRSO,SLEEVES \?CCL3
	ICALL	PERFORM,V?TIE,SLEEVES
	RTRUE	
?CCL3:	CALL1	V-TELL-TIME
	RSTACK	


	.FUNCT	V-TURN
	EQUAL?	PRSO,BOAT-OBJECT \?CCL3
	PRINTR	"Try: STEER BOAT TOWARD (something)."
?CCL3:	EQUAL?	PRSO,ROOMS,ME \?CCL7
	CALL1	V-SKIP
	RSTACK	
?CCL7:	EQUAL?	PRSO,INTNUM \?PRG13
	LESS?	P-NUMBER,9 \?PRG13
	CALL2	ACCESSIBLE?,BOARD
	ZERO?	STACK /?PRG13
	ICALL	PERFORM,V?TURN,DIPSWITCH
	RTRUE	
?PRG13:	PRINTR	"This has no effect."


	.FUNCT	V-TYPE
	EQUAL?	HERE,HOLD /?CCL3
	PRINTI	"There's no "
	PRINTD	KEYBOARD
	PRINTI	" in sight."
	CRLF	
	CALL1	FUCKING-CLEAR
	RSTACK	
?CCL3:	ZERO?	POEM-ENJOYED \?CCL7
	ZERO?	P-CONT /?CCL7
	ICALL	PERFORM,V?MUNG,GLASS-CASE
	RTRUE	
?CCL7:	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?FRIPPING \?CCL11
	EQUAL?	LINE-NUMBER,1,2 \?CCL11
	EQUAL?	WORD-NUMBER,1 \?CCL11
	CALL1	GLASS-CASE-OPENS
	RSTACK	
?CCL11:	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?LYSHUS \?CCL16
	EQUAL?	LINE-NUMBER,1,2 \?CCL16
	EQUAL?	WORD-NUMBER,2 \?CCL16
	CALL1	GLASS-CASE-OPENS
	RSTACK	
?CCL16:	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?WIMBGUNTS \?CCL21
	EQUAL?	LINE-NUMBER,1,2 \?CCL21
	EQUAL?	WORD-NUMBER,3 \?CCL21
	CALL1	GLASS-CASE-OPENS
	RSTACK	
?CCL21:	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?GASHEE \?CCL26
	EQUAL?	LINE-NUMBER,3,4 \?CCL26
	EQUAL?	WORD-NUMBER,1 \?CCL26
	CALL1	GLASS-CASE-OPENS
	RSTACK	
?CCL26:	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?MORPHOUSI \?CCL31
	EQUAL?	LINE-NUMBER,3,4 \?CCL31
	EQUAL?	WORD-NUMBER,2 \?CCL31
	CALL1	GLASS-CASE-OPENS
	RSTACK	
?CCL31:	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?THOU \?CCL36
	EQUAL?	LINE-NUMBER,3,4 \?CCL36
	EQUAL?	WORD-NUMBER,3 \?CCL36
	CALL1	GLASS-CASE-OPENS
	RSTACK	
?CCL36:	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?BLEEM \?CCL41
	EQUAL?	LINE-NUMBER,5,6 \?CCL41
	EQUAL?	WORD-NUMBER,1 \?CCL41
	CALL1	GLASS-CASE-OPENS
	RSTACK	
?CCL41:	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?MISERABLE \?CCL46
	EQUAL?	LINE-NUMBER,5,6 \?CCL46
	EQUAL?	WORD-NUMBER,2 \?CCL46
	CALL1	GLASS-CASE-OPENS
	RSTACK	
?CCL46:	GET	P-LEXV,P-CONT
	EQUAL?	STACK,W?VENCHIT \?CCL51
	EQUAL?	LINE-NUMBER,5,6 \?CCL51
	EQUAL?	WORD-NUMBER,3 \?CCL51
	CALL1	GLASS-CASE-OPENS
	RSTACK	
?CCL51:	ZERO?	P-CONT \?CCL56
	PRINTR	"You didn't specify what you wanted to type."
?CCL56:	ICALL	PERFORM,V?MUNG,GLASS-CASE
	RETURN	2


	.FUNCT	V-TYPE-ON
	EQUAL?	PRSO,KEYBOARD \?PRG4
	SET	'P-CONT,FALSE-VALUE
	CALL1	V-TYPE
	RSTACK	
?PRG4:	PRINTR	"You can't type on that!"


	.FUNCT	V-UNLOCK
	CALL1	V-CARVE
	RSTACK	


	.FUNCT	V-UNPLUG
	EQUAL?	PRSO,SMALL-PLUG,LARGE-PLUG,SPARE-DRIVE /?PRG6
	EQUAL?	PRSO,PLOTTER \?CCL3
?PRG6:	PRINT	NOT-PLUGGED
	CRLF	
	RTRUE	
?CCL3:	CALL1	V-COUNT
	RSTACK	


	.FUNCT	V-UNTIE
	CALL1	V-CARVE
	RSTACK	


	.FUNCT	V-WALK,PT,PTS,STR,OBJ,RM
	IN?	FLEET,HERE \?CCL3
	EQUAL?	PRSO,P?DOWN,P?UP /?CCL3
	PRINTR	"You would be no safer there."
?CCL3:	ZERO?	LYING-DOWN /?CCL9
	PRINT	WHILE-LYING
	CRLF	
	RTRUE	
?CCL9:	FSET?	TOWEL,WORNBIT \?CCL13
	SET	'BEARINGS-LOST,TRUE-VALUE
	PRINTI	"You stumble in that direction, but as you can't see where you're going you wander around in circles."
	FSET?	BEAST,MUNGEDBIT /?CND16
	PRINTI	" The Beast is getting puzzled that something it can't see is stumbling around its lair."
	PRINT	SLOWLY-DAWNS
?CND16:	CRLF	
	RTRUE	
?CCL13:	EQUAL?	HERE,MAZE /?CCL21
	EQUAL?	IDENTITY-FLAG,ARTHUR \?CCL21
	ZERO?	BRAIN-DAMAGED /?CCL21
	RANDOM	100
	LESS?	30,STACK /?CCL21
	PRINTI	"You notice that you can't remember how to walk. Oddly, as you think about walking, all that comes to mind is an image of"
	ICALL2	ARTICLE,BRAIN-DAMAGED
	PRINTR	"."
?CCL21:	ZERO?	P-WALK-DIR \?CCL31
	ZERO?	PRSO /?CCL34
	PRINTI	"[Presumably, you mean WALK TO"
	ICALL2	ARTICLE,PRSO
	PRINTI	".]"
	CRLF	
	ICALL	PERFORM,V?WALK-TO,PRSO
	RTRUE	
?CCL34:	ICALL1	V-WALK-AROUND
	RTRUE	
?CCL31:	GETPT	HERE,PRSO >PT
	ZERO?	PT /?CCL40
	PTSIZE	PT >PTS
	EQUAL?	PTS,UEXIT \?CCL43
	GET	PT,REXIT
	CALL2	GOTO,STACK
	RSTACK	
?CCL43:	EQUAL?	PTS,NEXIT \?CCL45
	GET	PT,NEXITSTR
	PRINT	STACK
	CRLF	
	RETURN	2
?CCL45:	EQUAL?	PTS,FEXIT \?CCL51
	GET	PT,FEXITFCN
	CALL	STACK >RM
	ZERO?	RM /?CCL54
	CALL2	GOTO,RM
	RSTACK	
?CCL54:	EQUAL?	HERE,BRIDGE \?PRG59
	EQUAL?	P-WALK-DIR,P?WEST /TRUE
?PRG59:	RETURN	2
?CCL51:	EQUAL?	PTS,CEXIT \?CCL62
	GETB	PT,CEXITFLAG
	VALUE	STACK
	ZERO?	STACK /?CCL65
	GET	PT,REXIT
	CALL2	GOTO,STACK
	RSTACK	
?CCL65:	GET	PT,CEXITSTR >STR
	ZERO?	STR /?PRG72
	PRINT	STR
	CRLF	
	RETURN	2
?PRG72:	PRINT	CANT-GO
	CRLF	
	RETURN	2
?CCL62:	EQUAL?	PTS,DEXIT \FALSE
	GET	PT,DEXITOBJ >OBJ
	FSET?	OBJ,OPENBIT \?CCL80
	GET	PT,REXIT
	CALL2	GOTO,STACK
	RSTACK	
?CCL80:	GET	PT,DEXITSTR >STR
	ZERO?	STR /?PRG87
	PRINT	STR
	CRLF	
	SET	'P-IT-OBJECT,OBJ
	RETURN	2
?PRG87:	PRINTI	"The "
	PRINTD	OBJ
	PRINTI	" is closed."
	CRLF	
	SET	'P-IT-OBJECT,OBJ
	RETURN	2
?CCL40:	EQUAL?	PRSO,P?IN,P?OUT \?PRG94
	ICALL1	V-WALK-AROUND
	RETURN	2
?PRG94:	PRINT	CANT-GO
	CRLF	
	RETURN	2


	.FUNCT	V-WALK-AROUND
	SET	'AWAITING-REPLY,16
	CALL	QUEUE,I-REPLY,2
	PUT	STACK,0,1
	PRINTR	"Did you have any particular direction in mind?"


	.FUNCT	V-WALK-TO
	IN?	PRSO,HERE /?CTR2
	CALL	GLOBAL-IN?,PRSO,HERE
	ZERO?	STACK /?CCL3
?CTR2:	EQUAL?	PRSO,HOSTESS,TRILLIAN \?CCL8
	PRINTI	"She"
	JUMP	?PRG19
?CCL8:	FSET?	PRSO,ACTORBIT \?PRG17
	EQUAL?	PRSO,BEAST,SCREENING-DOOR,NUTRIMAT /?PRG17
	PRINTI	"He"
	JUMP	?PRG19
?PRG17:	PRINTI	"It"
?PRG19:	PRINTR	"'s here!"
?CCL3:	CALL1	V-WALK-AROUND
	RSTACK	


	.FUNCT	V-WAIT,NUM
	ASSIGNED?	'NUM /?PRG3
	SET	'NUM,3
?PRG3:	PRINTI	"Time passes..."
	CRLF	
?PRG5:	DLESS?	'NUM,0 /?REP6
	CALL1	CLOCKER
	ZERO?	STACK /?PRG5
?REP6:	SET	'CLOCK-WAIT,TRUE-VALUE
	RETURN	CLOCK-WAIT


	.FUNCT	V-WAIT-FOR
	PRINTR	"You may be waiting quite a while."


	.FUNCT	V-WATER
	PRINTR	"It doesn't need watering."


	.FUNCT	V-WAVE
	CALL1	V-CARVE
	RSTACK	


	.FUNCT	V-WAVE-AT
	ZERO?	PRSO \?PRG4
	CALL1	V-SMILE
	RSTACK	
?PRG4:	PRINTI	"Despite your friendly nature,"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	" isn't likely to respond."


	.FUNCT	V-WEAR
	FSET?	PRSO,WEARBIT /?CCL3
	PRINTI	"You can't wear"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	"."
?CCL3:	FSET?	PRSO,WORNBIT \?CCL9
	PRINTI	"You're already wearing"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	"!"
?CCL9:	MOVE	PRSO,PROTAGONIST
	FSET	PRSO,WORNBIT
	PRINTI	"You are now wearing"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	"."


	.FUNCT	V-WHAT
	PRINTR	"Good question."


	.FUNCT	V-WHAT-ABOUT
	PRINTR	"Well, what about it?"


	.FUNCT	V-WHAT-TIME
	CALL1	V-TELL-TIME
	RSTACK	


	.FUNCT	V-WHERE
	CALL2	V-FIND,TRUE-VALUE
	RSTACK	


	.FUNCT	V-WHO
	FSET?	PRSO,ACTORBIT \?PRG4
	ICALL	PERFORM,V?WHAT,PRSO
	RTRUE	
?PRG4:	PRINTR	"That's not a person!"


	.FUNCT	V-WHY
	PRINTR	"Why not?"


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


	.FUNCT	V-YES
	EQUAL?	AWAITING-REPLY,1 \?CCL3
	CALL2	DO-WALK,P?SOUTH
	RSTACK	
?CCL3:	EQUAL?	AWAITING-REPLY,2 /FALSE
	EQUAL?	AWAITING-REPLY,3 \?CCL7
	PRINTR	"Well, tough."
?CCL7:	EQUAL?	AWAITING-REPLY,4 \?CCL11
	ICALL	PERFORM,V?TAKE,ITEM-DROPPED-AT-PARTY
	RTRUE	
?CCL11:	EQUAL?	AWAITING-REPLY,5 \?CCL13
	PRINTR	"So do I."
?CCL13:	EQUAL?	AWAITING-REPLY,6,8,11 /?PRG20
	EQUAL?	AWAITING-REPLY,13,14,15 \?CCL17
?PRG20:	PRINTR	"That was just a rhetorical question."
?CCL17:	EQUAL?	AWAITING-REPLY,7,9 \?CCL23
	PRINTR	"Well, good for you!"
?CCL23:	EQUAL?	AWAITING-REPLY,10 \?CCL27
	ICALL	PERFORM,V?ENJOY,FORD
	RTRUE	
?CCL27:	EQUAL?	AWAITING-REPLY,12 \?CCL29
	CALL	QUEUE,I-ENGINEER,2
	PUT	STACK,0,1
	PRINTR	"""Well, let's see the malfunctioning equipment."""
?CCL29:	EQUAL?	AWAITING-REPLY,16 \?CCL33
	PRINTR	"Then type it."
?CCL33:	EQUAL?	AWAITING-REPLY,18,19 \?PRG40
	PRINTR	"""Well, leave me alone then! I'm busy!"""
?PRG40:	PRINTR	"You sound rather positive."


	.FUNCT	ITAKE,VB,CNT,OBJ,?TMP1
	ASSIGNED?	'VB /?CND1
	SET	'VB,TRUE-VALUE
?CND1:	FSET?	PRSO,INTEGRALBIT \?CCL5
	ZERO?	VB /?PRG8
	ICALL1	PART-OF
?PRG8:	RETURN	2
?CCL5:	FSET?	PRSO,TAKEBIT /?CCL11
	ZERO?	VB /?PRG14
	ICALL1	V-CARVE
?PRG14:	RETURN	2
?CCL11:	EQUAL?	IDENTITY-FLAG,TRILLIAN \?CCL17
	CALL2	CCOUNT,PROTAGONIST
	GRTR?	STACK,2 \?CCL17
	ZERO?	VB /?PRG24
	PRINTI	"As is the case so often at parties, you find that you are holding too much and can't pick up anything else."
	CRLF	
?PRG24:	RETURN	2
?CCL17:	LOC	PRSO
	IN?	STACK,WINNER /?CND3
	CALL2	WEIGHT,PRSO >?TMP1
	CALL2	WEIGHT,WINNER
	ADD	?TMP1,STACK
	GRTR?	STACK,100 \?CCL29
	ZERO?	VB /?PRG34
	PRINTI	"Your load is too heavy."
	CRLF	
?PRG34:	RETURN	2
?CCL29:	CALL2	CCOUNT,WINNER >CNT
	GRTR?	CNT,7 \?CND3
	MUL	CNT,8 >?TMP1
	RANDOM	100
	LESS?	?TMP1,STACK /?CND3
	ZERO?	VB /?PRG43
	PRINTI	"You're holding too much already."
	CRLF	
?PRG43:	RETURN	2
?CND3:	MOVE	PRSO,PROTAGONIST
	FSET	PRSO,TOUCHBIT
	RTRUE	


	.FUNCT	IDROP
	EQUAL?	PRSO,HANGOVER /FALSE
	EQUAL?	PRSO,NO-TEA \?CCL5
	ZERO?	HOLDING-NO-TEA \FALSE
?CCL5:	EQUAL?	PRSO,SMALL-PLUG,LARGE-PLUG,DANGLY-BIT \?CCL9
	EQUAL?	PRSA,V?PUT-ON,V?PUT /FALSE
?CCL9:	EQUAL?	PRSA,V?GIVE \?CCL13
	EQUAL?	PRSO,SPEECH /FALSE
?CCL13:	EQUAL?	PRSO,SLEEVES \?CCL17
	CALL1	V-DIG
	RSTACK	
?CCL17:	EQUAL?	PRSO,HANDS,EARS,EYES /?CTR18
	EQUAL?	PRSO,HEAD \?CCL19
?CTR18:	EQUAL?	PRSA,V?GIVE,V?THROW,V?DROP \?CCL24
	CALL1	V-COUNT
	RSTACK	
?CCL24:	EQUAL?	PRSA,V?PUT-ON \FALSE
	EQUAL?	PRSI,SATCHEL \FALSE
	CALL1	V-COUNT
	RSTACK	
?CCL19:	EQUAL?	PRSO,SPARE-DRIVE \?CCL30
	EQUAL?	PRSI,CONTROLS,SMALL-RECEPTACLE,LARGE-RECEPTACLE /FALSE
	EQUAL?	PRSI,PLOTTER /FALSE
?CCL30:	CALL2	HELD?,PRSO
	ZERO?	STACK \?CCL36
	PRINTI	"That's easy for you to say since you don't even have"
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	PRINTR	"."
?CCL36:	EQUAL?	PRSO,PLANT \?CCL42
	ICALL	PERFORM,V?DROP,FLOWERPOT
	RTRUE	
?CCL42:	FSET?	PRSO,INTEGRALBIT \?CCL44
	CALL1	PART-OF
	RSTACK	
?CCL44:	IN?	PRSO,WINNER /?CCL46
	LOC	PRSO
	FSET?	STACK,CONTBIT \?CCL46
	LOC	PRSO
	FSET?	STACK,OPENBIT /?CCL46
	PRINTI	"Impossible because"
	LOC	PRSO
	ICALL	ARTICLE,STACK,TRUE-VALUE
	PRINTR	" is closed."
?CCL46:	EQUAL?	PRSO,BABEL-FISH \?PRD57
	EQUAL?	PRSA,V?SHOW \?PRG60
?PRD57:	FSET?	PRSO,WORNBIT \FALSE
?PRG60:	PRINTR	"You'll have to remove it first."


	.FUNCT	CCOUNT,OBJ,CNT,X
	FIRST?	OBJ >X /?PRG3
	RETURN	CNT
?PRG3:	FSET?	X,WORNBIT /?CND5
	EQUAL?	X,BABEL-FISH /?CND5
	INC	'CNT
?CND5:	NEXT?	X >X /?PRG3
	RETURN	CNT


	.FUNCT	WEIGHT,OBJ,CONT,WT
	FIRST?	OBJ >CONT \?CND1
?PRG3:	EQUAL?	OBJ,PLAYER \?CCL7
	FSET?	CONT,WORNBIT \?CCL7
	INC	'WT
	JUMP	?CND5
?CCL7:	EQUAL?	OBJ,PLAYER \?CCL11
	LOC	CONT
	FSET?	STACK,WORNBIT \?CCL11
	INC	'WT
	JUMP	?CND5
?CCL11:	EQUAL?	OBJ,PLAYER \?CCL15
	EQUAL?	CONT,BABEL-FISH \?CCL15
	INC	'WT
	JUMP	?CND5
?CCL15:	CALL2	WEIGHT,CONT
	ADD	WT,STACK >WT
?CND5:	NEXT?	CONT >CONT /?PRG3
?CND1:	GETP	OBJ,P?SIZE
	ADD	WT,STACK
	RSTACK	


	.FUNCT	DESCRIBE-ROOM,LOOK?,V?,STR,AV
	ZERO?	LOOK? /?PRD3
	SET	'V?,LOOK?
	JUMP	?PEN1
?PRD3:	EQUAL?	VERBOSITY,2 /?PRD4
	PUSH	0
	JUMP	?PRD5
?PRD4:	PUSH	1
?PRD5:	SET	'V?,STACK
?PEN1:	ZERO?	LIT \?CND6
	PRINTI	"It is pitch black."
	CRLF	
	RFALSE	
?CND6:	FSET?	HERE,TOUCHBIT /?CND10
	FSET	HERE,TOUCHBIT
	SET	'V?,TRUE-VALUE
?CND10:	IN?	HERE,ROOMS \?CND12
	PRINTD	HERE
	LOC	WINNER >AV
	ZERO?	LYING-DOWN \?CND12
	FSET?	AV,VEHBIT /?CND12
	CRLF	
?CND12:	ZERO?	LOOK? \?CCL21
	EQUAL?	VERBOSITY,1,2 \TRUE
?CCL21:	FSET?	AV,VEHBIT \?CCL26
	PRINTI	", in the "
	PRINTD	AV
	CRLF	
	JUMP	?CND24
?CCL26:	ZERO?	LYING-DOWN /?CND24
	PRINTI	", lying down"
	CRLF	
?CND24:	ZERO?	V? /?CCL34
	GETP	HERE,P?ACTION
	CALL	STACK,M-LOOK
	ZERO?	STACK \TRUE
?CCL34:	ZERO?	V? /?CCL38
	GETP	HERE,P?LDESC >STR
	ZERO?	STR /?CCL38
	PRINT	STR
	CRLF	
	JUMP	?CND32
?CCL38:	GETP	HERE,P?ACTION
	ICALL	STACK,M-FLASH
?CND32:	EQUAL?	HERE,AV /TRUE
	FSET?	AV,VEHBIT \TRUE
	GETP	AV,P?ACTION
	ICALL	STACK,M-LOOK
	RTRUE	


	.FUNCT	DESCRIBE-OBJECTS,V?
	ZERO?	LIT /?PRG12
	FIRST?	HERE \FALSE
	ZERO?	V? /?PRD9
	SET	'V?,V?
	JUMP	?PEN7
?PRD9:	EQUAL?	VERBOSITY,2 /?PRD10
	PUSH	0
	JUMP	?PRD11
?PRD10:	PUSH	1
?PRD11:	SET	'V?,STACK
?PEN7:	CALL	PRINT-CONT,HERE,V?,-1
	RSTACK	
?PRG12:	PRINT	TOO-DARK
	CRLF	
	RTRUE	


	.FUNCT	DESCRIBE-OBJECT,OBJ,V?,LEVEL,STR,AV
	ZERO?	LEVEL \?CCL3
	GETP	OBJ,P?DESCFCN
	CALL	STACK,M-OBJDESC
	ZERO?	STACK \TRUE
?CCL3:	ZERO?	LEVEL \?CCL7
	FSET?	OBJ,TOUCHBIT /?PRD11
	GETP	OBJ,P?FDESC >STR
	ZERO?	STR \?PRG14
?PRD11:	GETP	OBJ,P?LDESC >STR
	ZERO?	STR /?CCL7
?PRG14:	PRINT	STR
	JUMP	?CND1
?CCL7:	ZERO?	LEVEL \?PRG22
	PRINTI	"There is"
	ICALL2	ARTICLE,OBJ
	PRINTI	" here."
	JUMP	?CND1
?PRG22:	GET	INDENTS,LEVEL
	PRINT	STACK
	FSET?	OBJ,NARTICLEBIT /?PRG33
	FSET?	OBJ,VOWELBIT \?PRG31
	PRINTI	"an "
	JUMP	?PRG33
?PRG31:	PRINTI	"a "
?PRG33:	PRINTD	OBJ
	FSET?	OBJ,WORNBIT \?CCL37
	PRINTI	" (being worn)"
	JUMP	?CND1
?CCL37:	EQUAL?	OBJ,BABEL-FISH \?CCL41
	PRINTI	" (in your ear)"
	JUMP	?CND1
?CCL41:	EQUAL?	OBJ,PLOTTER \?CCL45
	ZERO?	BROWNIAN-SOURCE /?CCL45
	PRINTI	" (suspended in"
	ICALL2	ARTICLE,BROWNIAN-SOURCE
	PRINTC	41
	JUMP	?CND1
?CCL45:	EQUAL?	OBJ,SPARE-DRIVE \?CND1
	ZERO?	DRIVE-TO-PLOTTER \?PRG57
	ZERO?	DRIVE-TO-CONTROLS /?CND1
?PRG57:	PRINTI	" (connected to"
	ZERO?	DRIVE-TO-PLOTTER /?CND59
	PRINTI	" the plotter"
	ZERO?	DRIVE-TO-CONTROLS /?CND59
	PRINTI	" and"
?CND59:	ZERO?	DRIVE-TO-CONTROLS /?PRG71
	PRINTI	" the control console"
?PRG71:	PRINTC	41
?CND1:	ZERO?	LEVEL \?CND73
	FSET?	OBJ,ACTORBIT /?CND73
	LOC	WINNER >AV
	ZERO?	AV /?CND73
	FSET?	AV,VEHBIT \?CND73
	PRINTI	" (outside the "
	PRINTD	AV
	PRINTC	41
?CND73:	CRLF	
	CALL2	SEE-INSIDE?,OBJ
	ZERO?	STACK /FALSE
	FIRST?	OBJ \FALSE
	CALL	PRINT-CONT,OBJ,V?,LEVEL
	RSTACK	


	.FUNCT	PRINT-CONT,OBJ,V?,LEVEL,Y,1ST?,AV,STR,PV?,INV?,SC
	SET	'1ST?,TRUE-VALUE
	FIRST?	OBJ >Y \TRUE
	LOC	WINNER
	FSET?	STACK,VEHBIT \?CND3
	LOC	WINNER >AV
?CND3:	LOC	OBJ
	EQUAL?	PROTAGONIST,OBJ,STACK \?PRG8
	SET	'INV?,TRUE-VALUE
?CND5:	FIRST?	OBJ >Y /?PRG31
?PRG31:	ZERO?	Y \?CCL35
	ZERO?	PV? /TRUE
	ZERO?	AV /TRUE
	FIRST?	AV \TRUE
	ICALL	PRINT-CONT,AV,V?,LEVEL
	RTRUE	
?PRG8:	ZERO?	Y /?CND5
	EQUAL?	Y,AV \?CCL14
	SET	'PV?,TRUE-VALUE
	JUMP	?CND10
?CCL14:	EQUAL?	Y,WINNER /?CND10
	FSET?	Y,INVISIBLE /?CND10
	FSET?	Y,TOUCHBIT /?CND10
	GETP	Y,P?FDESC >STR
	ZERO?	STR /?CND10
	FSET?	Y,NDESCBIT /?CND20
	PRINT	STR
	CRLF	
?CND20:	CALL2	SEE-INSIDE?,Y
	ZERO?	STACK /?CND10
	LOC	Y
	GETP	STACK,P?DESCFCN
	ZERO?	STACK \?CND10
	FIRST?	Y \?CND10
	ICALL	PRINT-CONT,Y,V?,0
?CND10:	NEXT?	Y >Y /?PRG8
	JUMP	?PRG8
?CCL35:	EQUAL?	Y,AV,PROTAGONIST /?CND33
	FSET?	Y,INVISIBLE /?CND33
	ZERO?	INV? \?CCL42
	FSET?	Y,TOUCHBIT /?CCL42
	GETP	Y,P?FDESC
	ZERO?	STACK \?CND33
?CCL42:	EQUAL?	Y,STONE \?CCL50
	EQUAL?	HERE,OUTER-LAIR \?CCL50
	IN?	Y,HERE \?CCL50
	FSET	Y,NDESCBIT
	JUMP	?CND33
?CCL50:	FSET?	Y,NDESCBIT /?CCL55
	ZERO?	1ST? /?CND56
	CALL	FIRSTER,OBJ,LEVEL
	ZERO?	STACK /?CND58
	LESS?	LEVEL,0 \?CND58
	SET	'LEVEL,0
?CND58:	INC	'LEVEL
	SET	'1ST?,FALSE-VALUE
?CND56:	ICALL	DESCRIBE-OBJECT,Y,V?,LEVEL
	JUMP	?CND33
?CCL55:	FIRST?	Y \?CND33
	CALL2	SEE-INSIDE?,Y
	ZERO?	STACK /?CND33
	ICALL	PRINT-CONT,Y,V?,LEVEL
?CND33:	NEXT?	Y >Y /?PRG31
	JUMP	?PRG31


	.FUNCT	PRINT-CONTENTS,OBJ,F,N,1ST?,IT?,TWO?
	SET	'1ST?,TRUE-VALUE
	FIRST?	OBJ >F \FALSE
?PRG4:	NEXT?	F >N /?BOGUS6
?BOGUS6:	ZERO?	1ST? /?PRG10
	SET	'1ST?,FALSE-VALUE
	JUMP	?CND7
?PRG10:	PRINTC	44
	ZERO?	N \?CND7
	PRINTI	" and"
?CND7:	ICALL2	ARTICLE,F
	ZERO?	IT? \?CCL18
	ZERO?	TWO? \?CCL18
	SET	'IT?,F
	JUMP	?CND16
?CCL18:	SET	'TWO?,TRUE-VALUE
	SET	'IT?,FALSE-VALUE
?CND16:	SET	'F,N
	ZERO?	F \?PRG4
	ZERO?	IT? /TRUE
	ZERO?	TWO? \TRUE
	SET	'P-IT-OBJECT,IT?
	RTRUE	


	.FUNCT	FIRSTER,OBJ,LEVEL
	EQUAL?	OBJ,WINNER /TRUE
	IN?	OBJ,ROOMS /FALSE
	GRTR?	LEVEL,0 \?CND6
	GET	INDENTS,LEVEL
	PRINT	STACK
?CND6:	FSET?	OBJ,SURFACEBIT \?CCL12
	PRINTI	"Sitting on the "
	PRINTD	OBJ
	PRINTR	" is:"
?CCL12:	FSET?	OBJ,ACTORBIT \?PRG23
	EQUAL?	OBJ,NUTRIMAT /?PRG23
	PRINT	IT-LOOKS-LIKE
	ICALL	ARTICLE,OBJ,TRUE-VALUE
	PRINTR	" is holding:"
?PRG23:	PRINT	IT-LOOKS-LIKE
	ICALL	ARTICLE,OBJ,TRUE-VALUE
	PRINTR	" contains:"


	.FUNCT	DESCRIBE-VEHICLE
	MOVE	PROTAGONIST,ROOMS
	FIRST?	PRSO \?PRG4
	ICALL2	PRINT-CONT,PRSO
	JUMP	?CND1
?PRG4:	PRINTI	"It's empty (not counting you)."
	CRLF	
?CND1:	MOVE	PROTAGONIST,PRSO
	RTRUE	


	.FUNCT	GOTO,RM,V?
	ASSIGNED?	'V? /?CND1
	SET	'V?,TRUE-VALUE
?CND1:	MOVE	PROTAGONIST,RM
	SET	'HERE,RM
	SET	'OHERE,FALSE-VALUE
	EQUAL?	HERE,DARK /?CND3
	MOVE	NAME,HERE
?CND3:	CALL2	LIT?,HERE >LIT
	ICALL1	UNPLUG-HELD-STUFF
	GETP	HERE,P?ACTION
	ICALL	STACK,M-ENTER
	ZERO?	V? /TRUE
	EQUAL?	HERE,RM \TRUE
	ICALL1	V-FIRST-LOOK
	RTRUE	


	.FUNCT	UNPLUG-HELD-STUFF
	ZERO?	DRIVE-TO-CONTROLS /?CND1
	CALL2	HELD?,SPARE-DRIVE
	ZERO?	STACK /?CND1
	SET	'DRIVE-TO-CONTROLS,FALSE-VALUE
	FCLEAR	SPARE-DRIVE,NDESCBIT
	PRINTI	"(unplugging the spare drive first)"
	CRLF	
?CND1:	CALL	HOLDING-ONE-BUT-NOT-BOTH?,SPARE-DRIVE,PLOTTER
	ZERO?	STACK /?CND7
	ZERO?	DRIVE-TO-PLOTTER /?CND7
	SET	'DRIVE-TO-PLOTTER,FALSE-VALUE
	PRINTI	"(disconnecting the short cord first)"
	CRLF	
?CND7:	CALL	HOLDING-ONE-BUT-NOT-BOTH?,BROWNIAN-SOURCE,PLOTTER
	ZERO?	STACK /FALSE
	ZERO?	BROWNIAN-SOURCE /FALSE
	SET	'BROWNIAN-SOURCE,FALSE-VALUE
	CALL1	REMOVING-BIT
	RSTACK	


	.FUNCT	JIGS-UP,DESC
	PRINT	DESC
	ZERO?	DREAMING /?PRG43
	PRINTI	" Everything becomes..."
	CRLF	
	CRLF	
	EQUAL?	IDENTITY-FLAG,FORD \?CCL10
	ICALL	ROB,PROTAGONIST,LOCAL-GLOBALS
	GET	FORD-TABLE,4
	ZERO?	STACK /?CND11
	FSET	THUMB,MUNGEDBIT
?CND11:	ICALL	ROB,MEMORIAL,PROTAGONIST
	GET	FORD-TABLE,0
	MOVE	SATCHEL,STACK
	GET	FORD-TABLE,1
	MOVE	THUMB,STACK
	GET	FORD-TABLE,2
	MOVE	GUIDE,STACK
	GET	FORD-TABLE,3
	MOVE	TOWEL,STACK
	GET	FORD-TABLE,5
	MOVE	MINERAL-WATER,STACK
	FSET?	COUNTRY-LANE,REVISITBIT /?CND13
	MOVE	SATCHEL-FLUFF,SATCHEL
?CND13:	FCLEAR	SATCHEL,OPENBIT
	FCLEAR	COUNTRY-LANE,NDESCBIT
	SET	'TOWEL-OFFERED,FALSE-VALUE
	SET	'GONE-AROUND,FALSE-VALUE
	CALL2	INT,I-ARTHUR
	PUT	STACK,0,0
	ICALL1	LEAVE-EARTH
	JUMP	?CND8
?CCL10:	EQUAL?	IDENTITY-FLAG,TRILLIAN \?CCL16
	GET	PARTY-TABLE,0
	MOVE	HANDBAG,STACK
	IN?	TWEEZERS,HANDBAG \?CND17
	GET	PARTY-TABLE,1
	MOVE	TWEEZERS,STACK
?CND17:	GET	PARTY-TABLE,2
	ZERO?	STACK /?CCL21
	FSET	HANDBAG,OPENBIT
	JUMP	?CND19
?CCL21:	FCLEAR	HANDBAG,OPENBIT
?CND19:	FSET?	LIVING-ROOM,REVISITBIT /?CND22
	MOVE	JACKET-FLUFF,LOCAL-GLOBALS
	FSET	JACKET-FLUFF,TRYTAKEBIT
	FSET	JACKET-FLUFF,NDESCBIT
	SET	'FLUFF-REMOVED,FALSE-VALUE
	FCLEAR	HOSTESS,NDESCBIT
?CND22:	ICALL	ROB,RAMP,HANDBAG
	FCLEAR	LIVING-ROOM,TOUCHBIT
	FCLEAR	HANDBAG,NDESCBIT
	FCLEAR	WINE,NDESCBIT
	FCLEAR	APPETIZERS,NDESCBIT
	MOVE	WINE,LOCAL-GLOBALS
	MOVE	APPETIZERS,LOCAL-GLOBALS
	SET	'TRILLIAN-PROB,10
	SET	'ITEM-DROPPED-AT-PARTY,FALSE-VALUE
	CALL2	INT,I-ARTHUR
	PUT	STACK,0,0
	CALL2	INT,I-ZAPHOD
	PUT	STACK,0,0
	CALL2	INT,I-HOSTESS
	PUT	STACK,0,0
	JUMP	?CND8
?CCL16:	EQUAL?	IDENTITY-FLAG,ZAPHOD \?CCL25
	SET	'BOAT-DOCKED,FALSE-VALUE
	SET	'BOAT-COUNTER,0
	SET	'CRASH-COUNTER,0
	SET	'DAIS-COUNTER,0
	MOVE	GUARDS,LOCAL-GLOBALS
	MOVE	BLASTER,LOCAL-GLOBALS
	MOVE	RIFLES,LOCAL-GLOBALS
	FCLEAR	SPEEDBOAT,TOUCHBIT
	FSET	RIFLES,NDESCBIT
	CALL2	INT,I-GUARDS
	PUT	STACK,0,0
	CALL2	INT,I-SPEEDBOAT
	PUT	STACK,0,0
	FSET?	SPEEDBOAT,REVISITBIT /?CND26
	MOVE	TOOLBOX,SPEEDBOAT
	MOVE	CUSHION-FLUFF,LOCAL-GLOBALS
	MOVE	KEY,LOCAL-GLOBALS
?CND26:	ICALL	ROB,PROTAGONIST,LOCAL-GLOBALS
	JUMP	?CND8
?CCL25:	EQUAL?	HERE,INSIDE-WHALE \?CCL29
	ICALL	ROB,INSIDE-WHALE,BULLDOZER
	MOVE	WHALE-OBJECT,INSIDE-WHALE
	CALL	HELD?,FLOWERPOT,THING
	ZERO?	STACK \?CND30
	MOVE	FLOWERPOT,HERE
?CND30:	ICALL	ROB,PROTAGONIST,BULLDOZER
	FCLEAR	INSIDE-WHALE,TOUCHBIT
	IN?	GOWN,BULLDOZER \?CND32
	FSET?	GOWN,WORNBIT \?CND32
	MOVE	GOWN,PROTAGONIST
?CND32:	IN?	BABEL-FISH,BULLDOZER \?CND8
	MOVE	BABEL-FISH,PROTAGONIST
	JUMP	?CND8
?CCL29:	EQUAL?	HERE,WAR-CHAMBER,MAZE \?CCL39
	CALL2	INT,I-DOG
	PUT	STACK,0,0
	FCLEAR	WAR-CHAMBER,TOUCHBIT
	MOVE	THIRD-PLANET,LOCAL-GLOBALS
	SET	'DOG-COUNTER,0
	EQUAL?	HERE,WAR-CHAMBER \?CND8
	ICALL	ROB,WAR-CHAMBER,LOCAL-GLOBALS
	MOVE	AWL,HERE
	MOVE	GGUGVUNT,HERE
	MOVE	VLHURG,HERE
	MOVE	CANOPY,HERE
	MOVE	MICROSCOPIC-FLEET,HERE
	MOVE	OTHER-PLANETS,HERE
	FCLEAR	VLHURG,MUNGEDBIT
	JUMP	?CND8
?CCL39:	EQUAL?	HERE,LAIR,INNER-LAIR,OUTER-LAIR \?CND8
	FCLEAR	BEAST,MUNGEDBIT
	SET	'BEAST-COUNTER,0
	SET	'BEARINGS-LOST,FALSE-VALUE
	SET	'NAME-TOLD,FALSE-VALUE
	FCLEAR	TOWEL,WORNBIT
	FCLEAR	LAIR,NDESCBIT
	MOVE	STONE,OUTER-LAIR
	MOVE	BEAST,LAIR
	CALL2	INT,I-BEAST
	PUT	STACK,0,0
?CND8:	SET	'TEA-COUNTER,0
	MOVE	MAIN-DRIVE,GLOBAL-OBJECTS
	SET	'HEART-PROB,100
	CALL2	GOTO,DARK
	RSTACK	
?PRG43:	CRLF	
	CRLF	
	PRINTI	"    ****  You have died  ****"
	CRLF	
	CRLF	
	CALL1	FINISH
	RSTACK	


	.FUNCT	ACCESSIBLE?,OBJ,L
	LOC	OBJ >L
	FSET?	OBJ,INVISIBLE /FALSE
	ZERO?	L /FALSE
	EQUAL?	L,GLOBAL-OBJECTS /TRUE
	EQUAL?	L,LOCAL-GLOBALS \?CCL9
	CALL	GLOBAL-IN?,OBJ,HERE
	ZERO?	STACK \TRUE
?CCL9:	CALL2	META-LOC,OBJ
	EQUAL?	STACK,HERE \FALSE
	EQUAL?	L,WINNER,HERE /TRUE
	FSET?	L,OPENBIT \FALSE
	CALL2	ACCESSIBLE?,L
	ZERO?	STACK /FALSE
	RTRUE	


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


	.FUNCT	META-LOC,OBJ
?PRG1:	ZERO?	OBJ /FALSE
	IN?	OBJ,GLOBAL-OBJECTS \?CND3
	RETURN	GLOBAL-OBJECTS
?CND3:	IN?	OBJ,ROOMS \?CCL9
	RETURN	OBJ
?CCL9:	LOC	OBJ >OBJ
	JUMP	?PRG1


	.FUNCT	OTHER-SIDE,DOBJ,P,TEE
?PRG1:	NEXTP	HERE,P >P
	LESS?	P,LOW-DIRECTION /FALSE
	GETPT	HERE,P >TEE
	PTSIZE	TEE
	EQUAL?	STACK,DEXIT \?PRG1
	GET	TEE,DEXITOBJ
	EQUAL?	STACK,DOBJ \?PRG1
	RETURN	P


	.FUNCT	HELD?,OBJ,CONT
	ZERO?	CONT \?CND1
	SET	'CONT,WINNER
?CND1:	ZERO?	OBJ /FALSE
	IN?	OBJ,CONT /TRUE
	IN?	OBJ,ROOMS /FALSE
	IN?	OBJ,GLOBAL-OBJECTS /FALSE
	LOC	OBJ
	CALL	HELD?,STACK,CONT
	RSTACK	


	.FUNCT	SEE-INSIDE?,OBJ
	FSET?	OBJ,INVISIBLE /FALSE
	FSET?	OBJ,TRANSBIT /TRUE
	FSET?	OBJ,OPENBIT /TRUE
	RFALSE	


	.FUNCT	GLOBAL-IN?,OBJ1,OBJ2,TEE
	GETPT	OBJ2,P?GLOBAL >TEE
	ZERO?	TEE /FALSE
	PTSIZE	TEE
	SUB	STACK,1
	INTBL?	OBJ1,TEE,STACK /?CND1
?CND1:	RSTACK	


	.FUNCT	FIND-IN,WHERE,WHAT,W
	FIRST?	WHERE >W /?BOGUS1
?BOGUS1:	ZERO?	W /FALSE
?PRG4:	FSET?	W,WHAT \?CCL8
	RETURN	W
?CCL8:	NEXT?	W >W /?PRG4
	RFALSE	


	.FUNCT	LOC-CLOSED
	LOC	PRSO
	FSET?	STACK,CONTBIT \FALSE
	LOC	PRSO
	FSET?	STACK,OPENBIT /FALSE
	FSET?	PRSO,TAKEBIT \FALSE
	PRINTI	"But"
	LOC	PRSO
	ICALL	ARTICLE,STACK,TRUE-VALUE
	PRINTR	" is closed!"


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


	.FUNCT	FUCKING-CLEAR
	SET	'P-CONT,FALSE-VALUE
	SET	'QUOTE-FLAG,FALSE-VALUE
	RETURN	2


	.FUNCT	ROB,WHO,WHERE,N,X
	FIRST?	WHO >X /?PRG2
?PRG2:	ZERO?	X /TRUE
	NEXT?	X >N /?BOGUS6
?BOGUS6:	MOVE	X,WHERE
	SET	'X,N
	JUMP	?PRG2


	.FUNCT	HOLDING-ONE-BUT-NOT-BOTH?,ONE,TWO
	CALL2	HELD?,ONE
	ZERO?	STACK /?CCL3
	CALL2	HELD?,TWO
	ZERO?	STACK \FALSE
?CCL3:	CALL2	HELD?,ONE
	ZERO?	STACK \TRUE
	CALL2	HELD?,TWO
	ZERO?	STACK /FALSE
	RTRUE	


	.FUNCT	HACK-HACK,STR
	PRINT	STR
	ICALL	ARTICLE,PRSO,TRUE-VALUE
	CALL2	PICK-ONE,HO-HUM
	PRINT	STACK
	CRLF	
	RTRUE	


	.FUNCT	ARTICLE,OBJ,THE
	ZERO?	OBJ \?CND1
	SET	'OBJ,NOT-HERE-OBJECT
?CND1:	FSET?	OBJ,NARTICLEBIT /?PRG16
	ZERO?	THE /?CCL7
	PRINTI	" the"
	JUMP	?PRG16
?CCL7:	FSET?	OBJ,VOWELBIT \?PRG14
	PRINTI	" an"
	JUMP	?PRG16
?PRG14:	PRINTI	" a"
?PRG16:	PRINTC	32
	PRINTD	OBJ
	RTRUE	

	.ENDI