leathergoddesses/phobos.zap

	.FUNCT	CELL-OBJECT-F
	EQUAL?	PRSA,V?WALK-TO,V?BOARD,V?ENTER \?ELS5
	CALL	ADJ-USED,A?OTHER
	ZERO?	STACK \?THN11
	CALL	ADJ-USED,A?SMALL
	ZERO?	STACK /?ELS10
?THN11:	EQUAL?	HERE,OTHER-CELL \?ELS17
	PRINT	LOOK-AROUND
	RTRUE	
?ELS17:	EQUAL?	HERE,END-OF-HALLWAY \?ELS19
	CALL	DO-WALK,P?SOUTH
	RSTACK	
?ELS19:	PRINT	CANT-FROM-HERE
	RTRUE	
?ELS10:	EQUAL?	HERE,CELL \?ELS23
	PRINT	LOOK-AROUND
	RTRUE	
?ELS23:	EQUAL?	HERE,END-OF-HALLWAY \?ELS25
	CALL	DO-WALK,P?NORTH
	RSTACK	
?ELS25:	PRINT	CANT-FROM-HERE
	RTRUE	
?ELS5:	EQUAL?	PRSA,V?DISEMBARK,V?LEAVE,V?EXIT \?ELS29
	CALL	ADJ-USED,A?OTHER
	ZERO?	STACK \?THN35
	CALL	ADJ-USED,A?SMALL
	ZERO?	STACK /?ELS34
?THN35:	EQUAL?	HERE,OTHER-CELL \?ELS41
	CALL	DO-WALK,P?NORTH
	RSTACK	
?ELS41:	PRINT	LOOK-AROUND
	RTRUE	
?ELS34:	EQUAL?	HERE,CELL \?ELS45
	CALL	DO-WALK,P?SOUTH
	RSTACK	
?ELS45:	EQUAL?	HERE,OTHER-CELL \?ELS47
	CALL	DO-WALK,P?NORTH
	RSTACK	
?ELS47:	PRINT	LOOK-AROUND
	RTRUE	
?ELS29:	EQUAL?	PRSA,V?EXAMINE \?ELS51
	EQUAL?	HERE,END-OF-HALLWAY /?ELS51
	CALL	V-LOOK
	RSTACK	
?ELS51:	EQUAL?	PRSA,V?CLOSE,V?OPEN,V?LOOK-INSIDE \?ELS55
	EQUAL?	HERE,END-OF-HALLWAY \?ELS58
	CALL	ADJ-USED,A?OTHER
	ZERO?	STACK \?THN62
	CALL	ADJ-USED,A?SMALL
	ZERO?	STACK /?ELS61
?THN62:	CALL	PERFORM-PRSA,NARROW-CELL-DOOR
	RTRUE	
?ELS61:	CALL	PERFORM-PRSA,WIDE-CELL-DOOR
	RTRUE	
?ELS58:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS67
	CALL	V-LOOK
	RTRUE	
?ELS67:	EQUAL?	HERE,CELL \?ELS69
	CALL	PERFORM-PRSA,WIDE-CELL-DOOR
	RTRUE	
?ELS69:	CALL	PERFORM-PRSA,NARROW-CELL-DOOR
	RTRUE	
?ELS55:	EQUAL?	PRSA,V?PUT \?ELS73
	EQUAL?	PRSI,CELL-OBJECT \?ELS73
	EQUAL?	HERE,END-OF-HALLWAY \?ELS80
	PRINT	CANT-FROM-HERE
	RTRUE	
?ELS80:	CALL	PERFORM,V?DROP,PRSO
	RTRUE	
?ELS73:	EQUAL?	HERE,END-OF-HALLWAY /FALSE
	EQUAL?	PRSO,CELL-OBJECT \FALSE
	CALL	PERFORM-PRSA,GLOBAL-ROOM,PRSI
	RTRUE	


	.FUNCT	CELL-F,RARG
	EQUAL?	RARG,M-LOOK \?ELS5
	PRINTI	"You are in a large cell with a soft, cushiony floor. A wide door ("
	FSET?	WIDE-CELL-DOOR,OPENBIT \?ELS8
	PRINTI	"now open"
	JUMP	?CND6
?ELS8:	FSET?	WIDE-CELL-DOOR,TOUCHBIT \?ELS10
	PRINTI	"now closed"
	JUMP	?CND6
?ELS10:	PRINTI	"closed, naturally"
?CND6:	PRINTI	") forms the southern wall of the cell"
	ZERO?	HOLE-OPEN /?CND13
	PRINTI	". A "
	CALL	DPRINT,HOLE
	PRINTI	" is lying on the ground amidst some rubble"
?CND13:	PRINTI	"."
	RTRUE	
?ELS5:	EQUAL?	RARG,M-END \?ELS18
	ZERO?	TRAY-DELIVERED \?ELS18
	SET	'TRAY-DELIVERED,TRUE-VALUE
	MOVE	TRAY,HERE
	PRINTI	"   Someone thrusts a tray into your cell. A "
	CALL	DPRINT,CHOCOLATE
	PRINTI	" on the tray"
	PRINT	LOOKS-UNAPPETIZING
	RTRUE	
?ELS18:	EQUAL?	RARG,M-END \FALSE
	IN?	SIDEKICK,HERE \FALSE
	ZERO?	CELL-GRIPE \FALSE
	SET	'CELL-GRIPE,TRUE-VALUE
	PRINTI	"   ""What a great cell!"" says "
	CALL	DPRINT-SIDEKICK
	PRINTI	", looking around. ""Why didn't I get a cell like this? Maybe I shouldn't have kicked that guard "
	EQUAL?	NAUGHTY-LEVEL,1 \?ELS27
	PRINTI	"below the waist "
	JUMP	?CND25
?ELS27:	EQUAL?	NAUGHTY-LEVEL,2 \?CND25
	PRINTI	"in the nuts "
?CND25:	PRINTR	"when I first got here..."""


	.FUNCT	HOLE-ENTER-F
	ZERO?	HOLE-OPEN /?ELS3
	PRINT	YOU-CANT
	PRINTI	"reach the hole in the ceiling."
	CRLF	
	RFALSE	
?ELS3:	PRINT	CANT-GO
	RFALSE	


	.FUNCT	BLANKET-F
	FSET?	BLANKET,UNTEEDBIT /FALSE
	EQUAL?	PRSA,V?MEASURE \?ELS7
	PRINTR	"Small."
?ELS7:	EQUAL?	PRSA,V?WEAR /?THN10
	EQUAL?	PRSA,V?WRAP \?ELS9
	EQUAL?	PRSI,ME \?ELS9
?THN10:	PRINTR	"It's too small; your jailors must have meant it to be used as a pillow."
?ELS9:	EQUAL?	PRSA,V?BOARD \?ELS15
	CALL	WASTES
	RSTACK	
?ELS15:	EQUAL?	PRSA,V?TIE \?ELS17
	PRINTR	"The material of the blanket is too thick to knot."
?ELS17:	EQUAL?	PRSA,V?TAKE,V?REMOVE \?ELS19
	IN?	BLANKET,BABY \?ELS19
	CALL	PERFORM,V?REMOVE,BABY
	RTRUE	
?ELS19:	EQUAL?	PRSA,V?PUT \?ELS23
	EQUAL?	PRSI,BASKET \?ELS23
	IN?	BLANKET,BABY \?ELS30
	CALL	PERFORM-PRSA,BABY,BASKET
	RTRUE	
?ELS30:	IN?	BABY,BASKET \FALSE
	MOVE	BLANKET,BASKET
	MOVE	BABY,PROTAGONIST
	CALL	PERFORM-PRSA,BABY,BASKET
	RTRUE	
?ELS23:	EQUAL?	PRSA,V?THROW,V?PUT,V?DROP \?ELS34
	EQUAL?	PRSO,BLANKET \?ELS34
	IN?	BLANKET,BABY \?ELS34
	CALL	DO-FIRST,STR?398
	RSTACK	
?ELS34:	EQUAL?	PRSA,V?LOOK-INSIDE \?ELS38
	IN?	BLANKET,BABY \?ELS38
	CALL	PERFORM,V?ALARM,BABY
	RTRUE	
?ELS38:	EQUAL?	PRSA,V?PUT-ON \FALSE
	EQUAL?	PRSO,BLANKET \FALSE
	FSET?	PRSI,SURFACEBIT /FALSE
	CALL	WASTES
	RSTACK	


	.FUNCT	PAINTING-F
	EQUAL?	PRSA,V?EXAMINE \FALSE
	FSET?	PAINTING,UNTEEDBIT /FALSE
	SET	'AWAITING-REPLY,2
	CALL	QUEUE,I-REPLY,2
	PRINTR	"It's a good likeness of a pussy, but is it art?"


	.FUNCT	TRAY-F
	EQUAL?	PRSA,V?EXAMINE \FALSE
	FSET?	TRAY,UNTEEDBIT \FALSE
	PRINTR	"It looks a little like Ray whatsisname from second grade."


	.FUNCT	CHOCOLATE-F
	FSET?	CHOCOLATE,UNTEEDBIT /FALSE
	EQUAL?	PRSA,V?EAT \?ELS7
	CALL	ULTIMATELY-IN?,CHOCOLATE
	ZERO?	STACK \?CND8
	PRINT	YNH
	PRINTR	" it!"
?CND8:	REMOVE	CHOCOLATE
	CALL	QUEUE,I-UNRUSH,6
	ZERO?	GONE-APE /?ELS13
	SET	'SUGAR-RUSH,GORILLA-ATE-CHOCOLATE
	JUMP	?CND11
?ELS13:	SET	'SUGAR-RUSH,HUMAN-ATE-CHOCOLATE
?CND11:	PRINTI	"Mmmm! "
	ZERO?	CHOCOLATE-IDENTIFIED /?ELS19
	PRINTI	"G"
	JUMP	?CND17
?ELS19:	PRINTI	"It's a piece of really g"
?CND17:	PRINTR	"ood chocolate! You feel yourself getting a sugar rush."
?ELS7:	EQUAL?	PRSA,V?EXAMINE \?ELS24
	PRINTI	"The "
	CALL	DPRINT,CHOCOLATE
	PRINT	LOOKS-UNAPPETIZING
	RTRUE	
?ELS24:	EQUAL?	PRSA,V?TASTE \?ELS26
	SET	'CHOCOLATE-IDENTIFIED,TRUE-VALUE
	PUTP	CHOCOLATE,P?SDESC,STR?404
	RFALSE	
?ELS26:	EQUAL?	PRSA,V?SMELL \FALSE
	FSET?	CHOCOLATE,SMELLEDBIT /FALSE
	SET	'CHOCOLATE-IDENTIFIED,TRUE-VALUE
	FSET	CHOCOLATE,SMELLEDBIT
	PUTP	CHOCOLATE,P?SDESC,STR?404
	CALL	SCRATCH-N-SNIFF,2
	PRINTR	"Luscious, creamy milk chocolate!"


	.FUNCT	I-UNRUSH
	ZERO?	GONE-APE /?ELS9
	EQUAL?	SUGAR-RUSH,GORILLA-ATE-CHOCOLATE /?THN6
?ELS9:	ZERO?	GONE-APE \?ELS5
	EQUAL?	SUGAR-RUSH,HUMAN-ATE-CHOCOLATE \?ELS5
?THN6:	SET	'SUGAR-RUSH,FALSE-VALUE
	PRINTR	"   You feel the sugar rush ebb."
?ELS5:	SET	'SUGAR-RUSH,FALSE-VALUE
	RFALSE	


	.FUNCT	OTHER-CELL-F,RARG
	EQUAL?	RARG,M-ENTER \?ELS5
	FSET?	OTHER-CELL,TOUCHBIT /?ELS5
	CALL	THIS-IS-IT,SIDEKICK
	CALL	QUEUE,I-BLUEPRINT,19
	ZERO?	VERBOSITY /FALSE
	PRINTI	"As you enter, a "
	ZERO?	MALE \?CND11
	PRINTI	"wo"
?CND11:	PRINTI	"man sitting limply in the shadows stiffens and rises to "
	CALL	HIS-HER
	PRINTI	" feet. ""A human! They got you too? I've been here a week. When you opened the door, I figured it was a guard! Was it unlocked? I never thought of trying it. By the way, my name's "
	CALL	DPRINT-SIDEKICK
	PRINTI	". From Alaska. I'm not too bright, but I'm strong as an ox, and I'm great with my hands. Maybe we can lick these Leather Goddesses together."""
	CRLF	
	CRLF	
	RTRUE	
?ELS5:	EQUAL?	RARG,M-LOOK \FALSE
	PRINTI	"You are in a very tiny room with a rock-hard floor. A "
	PRINTD	NARROW-CELL-DOOR
	PRINTI	" to the north is "
	CALL	OPEN-CLOSED,NARROW-CELL-DOOR
	PRINTI	"."
	RTRUE	


	.FUNCT	NARROW-CELL-DOOR-F
	EQUAL?	PRSA,V?KNOCK \FALSE
	IN?	SIDEKICK,OTHER-CELL \FALSE
	PRINTR	"A muffled voice responds, ""Beat it, you alien fruitcake freako mutant weirdo scum!"""


	.FUNCT	SIDEKICK-F,OARG=0
	ZERO?	OARG /?ELS5
	EQUAL?	OARG,M-OBJDESC? /TRUE
	PRINTI	"   "
	CALL	DPRINT-SIDEKICK
	PRINTI	" is here, "
	CALL	SIDEKICK-DESC
	PRINTI	"."
	RTRUE	
?ELS5:	EQUAL?	SIDEKICK,WINNER \?ELS11
	EQUAL?	PRSA,V?WHAT \?ELS16
	CALL	PERFORM,V?TELL-ABOUT,ME,PRSO
	RTRUE	
?ELS16:	EQUAL?	PRSA,V?READ \?ELS18
	EQUAL?	PRSO,SCRAP-OF-PAPER \?ELS18
	CALL	PERFORM,V?TELL-ABOUT,ME,SCRAP-OF-PAPER
	RTRUE	
?ELS18:	EQUAL?	PRSA,V?TELL-ABOUT \?ELS22
	EQUAL?	PRSO,ME \?ELS22
	EQUAL?	PRSI,ODD-MACHINE \?ELS29
	IN?	ODD-MACHINE,SALESMAN /?ELS29
	PRINTR	"""Hmmm, tee remover. For cleaning up golf courses?"""
?ELS29:	EQUAL?	PRSI,SCRAP-OF-PAPER \?ELS33
	PRINTR	"""I dunno what it means; I doodled it one night in my sleep!"""
?ELS33:	EQUAL?	PRSI,MATCHBOOK \?ELS35
	CALL	QUEUED?,I-BLUEPRINT
	ZERO?	STACK \?ELS35
	CALL	SCRAPE-UP-THESE-ITEMS
	RSTACK	
?ELS35:	EQUAL?	PRSI,LGOP \?ELS39
	PRINTR	"""No doubt some gang of interplanetary floozies who get their jollies from enslaving defenseless planets. We'll stop 'em!"""
?ELS39:	CALL	DPRINT-SIDEKICK
	PRINTI	" shrugs. ""What do I know? I'm from Alaska,"" "
	CALL	HE-SHE
	PRINTR	" says, in a burst of insecurity that will no doubt ease in a quarter-century or so when Alaska becomes a state."
?ELS22:	EQUAL?	PRSA,V?WALK \?ELS43
	PRINTR	"""After you!"""
?ELS43:	EQUAL?	PRSA,V?FOLLOW \?ELS45
	EQUAL?	PRSO,ME \?ELS45
	PRINTR	"""Lead on!"""
?ELS45:	EQUAL?	PRSA,V?HELLO \?ELS49
	PRINTR	"""Hi!"""
?ELS49:	EQUAL?	PRSA,V?EXIT,V?ENTER,V?DISEMBARK \?ELS51
	EQUAL?	PRSO,WINDOW \?ELS51
	EQUAL?	HERE,BEDROOM \?ELS51
	ZERO?	SIDEKICK-TRIP-FLAG /?ELS58
	PRINTR	"""Not again!"""
?ELS58:	CALL	QUEUED?,I-SIDEKICK-OUT-WINDOW
	ZERO?	STACK /?ELS61
	PRINTR	"""Gimme a second to get ready!"""
?ELS61:	PRINTR	"""I'm dumb, but not that dumb!"""
?ELS51:	EQUAL?	PRSA,V?KISS \?ELS65
	EQUAL?	PRSO,FROG \?ELS65
	PRINTR	"""I'd sooner kiss a pig!"""
?ELS65:	EQUAL?	PRSA,V?RAISE \?ELS69
	EQUAL?	PRSO,ME \?ELS69
	LOC	PROTAGONIST
	EQUAL?	STACK,TREE-HOLE,CLOSET \?ELS69
	SET	'WINNER,PROTAGONIST
	CALL	PERFORM,V?CLIMB-ON,SIDEKICK
	SET	'WINNER,SIDEKICK
	RTRUE	
?ELS69:	EQUAL?	PRSA,V?TAKE \?ELS73
	EQUAL?	PRSO,HEADLIGHT \?ELS73
	FSET?	HEADLIGHT,TRYTAKEBIT \?ELS73
	SET	'WINNER,PROTAGONIST
	CALL	PERFORM,V?SHOW,HEADLIGHT,SIDEKICK
	SET	'WINNER,SIDEKICK
	RTRUE	
?ELS73:	EQUAL?	PRSA,V?GIVE \?ELS77
	EQUAL?	PRSI,ME \?ELS77
	SET	'WINNER,PROTAGONIST
	CALL	PERFORM,V?ASK-FOR,SIDEKICK,PRSO
	SET	'WINNER,SIDEKICK
	RTRUE	
?ELS77:	EQUAL?	PRSA,V?SGIVE /FALSE
	EQUAL?	PRSA,V?MAKE \?ELS83
	EQUAL?	PRSO,ANTI-LGOP-MACHINE \?ELS83
	PRINTR	"""Don't crowd me."""
?ELS83:	CALL	DPRINT-SIDEKICK
	PRINTI	" is "
	CALL	SIDEKICK-DESC
	PRINTI	" and fails to notice that you've spoken."
	CRLF	
	CALL	STOP
	RSTACK	
?ELS11:	CALL	WRONG-SEX-WORD,SIDEKICK,W?TRENT,W?TIFFAN
	ZERO?	STACK /?ELS89
	CALL	STOP
	RSTACK	
?ELS89:	CALL	WRONG-SEX-WORD,SIDEKICK,W?TRENT,W?TIFF
	ZERO?	STACK /?ELS91
	CALL	STOP
	RSTACK	
?ELS91:	EQUAL?	PRSA,V?EXAMINE \?ELS93
	CALL	DPRINT-SIDEKICK
	PRINTI	" is about your age"
	ZERO?	NAUGHTY-LEVEL /?CND94
	PRINTI	" and has a body worthy of envy: tall and well-built, with wide shoulders, "
	ZERO?	MALE /?ELS99
	PRINTI	"massive pectorals, and thick"
	JUMP	?CND97
?ELS99:	PRINTI	"a generous bosom, slim waist, and long"
?CND97:	PRINTI	", tawny legs. The only minus seems to be slightly oversized feet, but even oversized feet are a plus if you're into toe-sucking"
?CND94:	PRINTI	"."
	FIRST?	SIDEKICK \?ELS107
	PRINTI	" "
	RFALSE	
?ELS107:	CRLF	
	RTRUE	
?ELS93:	EQUAL?	PRSA,V?ASK-FOR \?ELS111
	EQUAL?	PRSO,SIDEKICK \?ELS111
	CALL	ULTIMATELY-IN?,PRSI,SIDEKICK
	ZERO?	STACK /?ELS118
	MOVE	PRSI,PROTAGONIST
	PRINTR	"""What's mine is yours!"""
?ELS118:	PRINTI	"""I haven't got"
	CALL	APRINT,PRSI
	PRINTR	"!"""
?ELS111:	EQUAL?	PRSA,V?FOLLOW \?ELS122
	EQUAL?	FOLLOW-FLAG,1 \?ELS127
	CALL	PERFORM,V?CLIMB-DOWN,SHEET
	RTRUE	
?ELS127:	EQUAL?	FOLLOW-FLAG,2 \?ELS129
	PRINT	DONT-WANT-TO
	RTRUE	
?ELS129:	EQUAL?	FOLLOW-FLAG,3 \FALSE
	CALL	PERFORM,V?ENTER,CANAL-OBJECT
	RTRUE	
?ELS122:	EQUAL?	PRSA,V?UNTIE \?ELS133
	CALL	PERFORM-PRSA,SIDEKICKS-BODY
	RTRUE	
?ELS133:	EQUAL?	PRSA,V?TIE \?ELS135
	EQUAL?	PRSI,SECOND-SLAB,FIRST-SLAB \?ELS135
	CALL	PERFORM-PRSA,SIDEKICKS-BODY
	RTRUE	
?ELS135:	EQUAL?	PRSA,V?STAND-ON,V?BOARD,V?CLIMB-ON \?ELS139
	IN?	PROTAGONIST,TREE-HOLE /?THN145
	EQUAL?	HERE,CLOSET \?ELS144
	FIRST?	SHELF \?ELS144
?THN145:	PRINTI	"Using "
	CALL	DPRINT-SIDEKICK
	PRINTI	"'s shoulders, you "
	IN?	PROTAGONIST,TREE-HOLE \?ELS151
	MOVE	PROTAGONIST,HERE
	MOVE	SIDEKICK,HERE
	PRINTI	"climb out of the hole and help "
	CALL	DPRINT-SIDEKICK
	PRINTI	" out"
	JUMP	?CND149
?ELS151:	CALL	ROB,SHELF,PROTAGONIST
	PRINTI	"get everything from the shelf"
?CND149:	PRINT	PERIOD-CR
	RTRUE	
?ELS144:	CALL	WASTES
	RSTACK	
?ELS139:	EQUAL?	PRSA,V?PUSH \?ELS157
	EQUAL?	PRSI,TREE-HOLE \?ELS157
	CALL	DPRINT-SIDEKICK
	PRINTI	" grabs wildly at you, pulling both of you into the hole"
	FSET?	TRELLIS,MUNGBIT \?CND160
	ZERO?	LEAVES-PLACED /?CND163
	MOVE	LEAVES,TREE-HOLE
?CND163:	REMOVE	TRELLIS
	CALL	UNDO-TRAP
	PRINTI	" with a crash of splintering wood"
?CND160:	PRINTI	". "
	IN?	FLYTRAP,TREE-HOLE \?ELS171
	CALL	PERFORM,V?ENTER,TREE-HOLE
	RTRUE	
?ELS171:	MOVE	PROTAGONIST,TREE-HOLE
	MOVE	SIDEKICK,TREE-HOLE
	IN?	TRELLIS,PROTAGONIST \?CND174
	MOVE	TRELLIS,HERE
?CND174:	PRINTI	"""Brilliant move, bozo,"" says "
	CALL	DPRINT-SIDEKICK
	PRINT	PERIOD-CR
	RTRUE	
?ELS157:	EQUAL?	PRSA,V?GIVE \?ELS178
	EQUAL?	HERE,PLAZA \?ELS178
	SUB	PLAZA-COUNTER,1
	GET	PARTS-LIST,STACK
	EQUAL?	PRSO,STACK \?ELS183
	FSET?	PRSO,UNTEEDBIT /?ELS183
	REMOVE	PRSO
	SET	'RIGHT-PART,TRUE-VALUE
	CALL	DPRINT-SIDEKICK
	PRINTI	" grabs"
	CALL	TPRINT-PRSO
	PRINTI	" and quickly incorporates it into "
	CALL	HIS-HER
	PRINTI	" contraption."
	CRLF	
	RETURN	8
?ELS183:	CALL	DPRINT-SIDEKICK
	PRINTI	" gives"
	CALL	TPRINT-PRSO
	PRINTI	" the barest glance. ""No good! It has to be a"
	CALL	PRINT-PART
	PRINTI	"!"""
	CRLF	
	RETURN	8
?ELS178:	EQUAL?	PRSA,V?GIVE \?ELS191
	CALL	ZMEMQ,PRSO,PARTS-LIST,7
	ZERO?	STACK /?ELS191
	FSET?	PRSO,UNTEEDBIT /?ELS191
	CALL	EAGERLY-ACCEPTS
	PRINT	PERIOD-CR
	RTRUE	
?ELS191:	EQUAL?	PRSA,V?SHOW \FALSE
	EQUAL?	PRSO,HEADLIGHT \?ELS200
	FSET?	HEADLIGHT,TRYTAKEBIT \?ELS200
	PRINTR	"""Can't reach it from here!"""
?ELS200:	EQUAL?	PRSO,SCRAP-OF-PAPER \?ELS204
	CALL	PERFORM,V?ASK-ABOUT,SIDEKICK,SCRAP-OF-PAPER
	RTRUE	
?ELS204:	CALL	ZMEMQ,PRSO,PARTS-LIST,7
	ZERO?	STACK /FALSE
	FSET?	PRSO,UNTEEDBIT /FALSE
	PRINTI	"""Hey, wow!"" says "
	CALL	DPRINT-SIDEKICK
	PRINTI	", clearly impressed by your discovery of"
	CALL	TRPRINT,PRSO
	RSTACK	


	.FUNCT	SIDEKICK-DESC
	GRTR?	PLAZA-COUNTER,0 \?ELS5
	PRINTI	"busy with"
	CALL	TPRINT,ANTI-LGOP-MACHINE
	RSTACK	
?ELS5:	EQUAL?	HERE,BOUDOIR \?ELS7
	PRINTI	"lying on another couch"
	RTRUE	
?ELS7:	RANDOM	100
	LESS?	33,STACK /?ELS9
	PRINTI	"alertly surveying your surroundings"
	RTRUE	
?ELS9:	RANDOM	100
	LESS?	50,STACK /?ELS11
	ZERO?	SIDEKICKS-BODY-TIED-TO-SLAB \?ELS11
	PRINTI	"doing some quick limbering exercises"
	RTRUE	
?ELS11:	PRINTI	"counting on "
	CALL	HIS-HER
	PRINTI	" fingers and mumbling to "
	CALL	HIM-HER
	PRINTI	"self"
	RTRUE	


	.FUNCT	GENERIC-SIDEKICK-F
	GET	P-NAMW,0
	EQUAL?	STACK,W?BODY /FALSE
	GET	P-NAMW,1
	EQUAL?	STACK,W?BODY /FALSE
	RETURN	SIDEKICK


	.FUNCT	MEMORIAM
	PRINTI	", "
	PRINTD	EYES
	PRINTI	" fill with tears. You hang "
	PRINTD	HEAD
	PRINTI	" in sorrow for a moment to honor your brave, loyal companion who gave "
	CALL	HIS-HER
	PRINTI	" life that humanity might be safe from the terrible scourge of "
	PRINTD	LGOP
	PRINT	PERIOD-CR
	RTRUE	


	.FUNCT	CRAMPED-SPACE-F,RARG
	EQUAL?	RARG,M-ENTER \?ELS5
	ZERO?	HOLE-OPEN \?ELS5
	CALL	QUEUE,I-CRAMPED-SPACE,2
	RSTACK	
?ELS5:	EQUAL?	RARG,M-LOOK \FALSE
	PRINTI	"You are in a dark space, too tiny to move around in. The"
	ZERO?	HOLE-OPEN /?ELS14
	PRINTI	" only exit is a hole in the floor."
	RTRUE	
?ELS14:	PRINTI	"re are no visible exits."
	RTRUE	


	.FUNCT	I-CRAMPED-SPACE
	PRINTI	"   Suddenly, part of the floor collapses, and you"
	CALL	AND-SIDEKICK
	PRINTI	" tumble through the resulting hole"
	PRINT	ELLIPSIS
	CALL	GOTO,CELL,TRUE-VALUE
	IN?	SIDEKICK,CRAMPED-SPACE \?CND1
	MOVE	SIDEKICK,HERE
?CND1:	SET	'HOLE-OPEN,TRUE-VALUE
	FCLEAR	CRAMPED-SPACE,TOUCHBIT
	PRINTI	"   Among the new rubble, you notice"
	CALL	APRINT,HOLE
	PRINTI	", attached to a piece of (what used to be) the floor of the cramped space."
	CRLF	
	CALL	CELL-F,M-END
	RTRUE	


	.FUNCT	CRAMPED-SPACE-HOLE-F
	ZERO?	HOLE-OPEN \?ELS5
	CALL	CANT-SEE,PSEUDO-OBJECT
	RSTACK	
?ELS5:	EQUAL?	PRSA,V?ENTER,V?STAND-ON,V?CLIMB-DOWN /?THN8
	EQUAL?	PRSA,V?BOARD \FALSE
?THN8:	CALL	DO-WALK,P?DOWN
	RSTACK	


	.FUNCT	END-OF-HALLWAY-F,RARG
	EQUAL?	RARG,M-LOOK \FALSE
	PRINTI	"A "
	PRINTD	WIDE-CELL-DOOR
	PRINTI	" lies "
	CALL	OPEN-CLOSED,WIDE-CELL-DOOR
	PRINTI	" to the north, and"
	CALL	APRINT,NARROW-CELL-DOOR
	PRINTI	" lies "
	CALL	OPEN-CLOSED,NARROW-CELL-DOOR
	PRINTI	" to the south. The hallway ends at a gleaming "
	PRINTD	EXAM-ROOM-DOOR
	PRINTI	" to the west, and continues east. Something, possibly this very sentence, tells you that it would be dangerous to travel east or west"
	PRINT	SIGN-AND-STAIRS
	RTRUE	


	.FUNCT	EXAMINATION-ROOM-DESC,VIEWING=0
	PRINTI	"A number of hideous experiments fill th"
	ZERO?	VIEWING /?ELS3
	PRINTI	"e"
	JUMP	?CND1
?ELS3:	PRINTI	"is"
?CND1:	PRINTI	" room. Their obvious purpose: studies of the human anatomy"
	EQUAL?	NAUGHTY-LEVEL,1 /?CND7
	PRINTI	", especially those parts rarely referred to in the New York Times"
?CND7:	PRINTI	". A pathetic-looking human is the current subject; however, even an author as fond of lascivious detail as this one would hesitate to describe it "
	EQUAL?	NAUGHTY-LEVEL,2 \?ELS14
	PRINTR	"even in LEWD mode, except to mention that it involves a lot of lubricants, some plastic tubing, and a yak."
?ELS14:	PRINTI	"to someone who's merely in "
	ZERO?	NAUGHTY-LEVEL \?ELS19
	PRINTI	"TAME"
	JUMP	?CND17
?ELS19:	PRINTI	"SUGGESTIVE"
?CND17:	PRINTR	" mode."


	.FUNCT	EXAMINATION-ROOM-F
	FSET?	EXAM-ROOM-DOOR,OPENBIT \?ELS5
	PRINTI	"""Examination"" Room
   "
	ZERO?	SEEN-EXAMINATION-ROOM /?ELS8
	PRINTI	"The experiments look even more horrible from here than from the Observation Room window."
	CRLF	
	JUMP	?CND6
?ELS8:	CALL	EXAMINATION-ROOM-DESC
?CND6:	PRINTI	"   Before you've really gotten as sick as you know you could get, one of the"
	CALL	LECKBANDI
	RSTACK	
?ELS5:	CALL	THIS-IS-IT,EXAM-ROOM-DOOR
	CALL	DO-FIRST,STR?66,EXAM-ROOM-DOOR
	RFALSE	


	.FUNCT	OTHER-END-OF-HALLWAY-F
	PRINTI	"Other End of Hallway
   Before you can even begin to wonder what happened to the middle of the hallway, a guard patrol erupts from the shadows. A"
	CALL	LECKBANDI
	RSTACK	


	.FUNCT	LECKBANDI
	CALL	JIGS-UP,STR?407
	RSTACK	


	.FUNCT	OBSERVATION-ROOM-F,RARG
	EQUAL?	RARG,M-LOOK \FALSE
	PRINTI	"Calvin Coolidge once described windows as ""rectangles of glass."" If so, he may have been thinking about the window which fills the western wall of this room. A tiny closet lies to the north"
	PRINT	SIGN-AND-STAIRS
	RTRUE	


	.FUNCT	CLOSET-F,RARG
	EQUAL?	RARG,M-LOOK \?ELS5
	PRINTI	"This room is barely large enough to turn around in. Just to prove it, you turn around. As you do, you spot"
	CALL	APRINT,HOLE
	PRINTI	", about two feet across, seemingly painted on the floor in the corner. A shelf protrudes from one wall, very close to the ceiling. The closet is open to the south."
	FSET?	NOSE,MUNGBIT /TRUE
	PRINTI	" A strong odor "
	FSET?	HERE,SMELLEDBIT \?CND9
	PRINTI	"of "
	PRINTD	MOTHBALLS
	PRINTI	" "
?CND9:	PRINTI	"pervades the closet."
	RTRUE	
?ELS5:	EQUAL?	RARG,M-SMELL \FALSE
	PRINTI	"Apparently this section of Phobos has a significant moth problem."
	RTRUE	


	.FUNCT	CLOSET-EXIT-F
	PRINTI	"Ah! Coming out of the closet, I see"
	PRINT	ELLIPSIS
	RETURN	OBSERVATION-ROOM


	.FUNCT	CLOSET-OBJECT-F
	EQUAL?	PRSA,V?BOARD,V?WALK-TO,V?ENTER \?ELS5
	EQUAL?	HERE,CLOSET \?ELS10
	PRINT	LOOK-AROUND
	RTRUE	
?ELS10:	EQUAL?	HERE,OBSERVATION-ROOM \FALSE
	CALL	DO-WALK,P?NORTH
	RSTACK	
?ELS5:	EQUAL?	PRSA,V?DISEMBARK,V?LEAVE,V?EXIT \?ELS14
	EQUAL?	HERE,CLOSET \?ELS19
	CALL	DO-WALK,P?SOUTH
	RSTACK	
?ELS19:	PRINT	LOOK-AROUND
	RTRUE	
?ELS14:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?ELS23
	PRINTR	"No door."
?ELS23:	EQUAL?	PRSA,V?SMELL \?ELS25
	EQUAL?	HERE,CLOSET \?ELS25
	CALL	PERFORM-PRSA,ODOR
	RTRUE	
?ELS25:	EQUAL?	PRSA,V?SEARCH \?ELS29
	PRINT	NOTHING-NEW
	RTRUE	
?ELS29:	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
	EQUAL?	HERE,CLOSET \?ELS36
	CALL	V-LOOK
	RSTACK	
?ELS36:	PRINT	ONLY-BLACKNESS
	RTRUE	


	.FUNCT	SHELF-F
	EQUAL?	PRSA,V?PUT,V?PUT-ON \FALSE
	EQUAL?	PRSI,SHELF \FALSE
	IN?	PROTAGONIST,STOOL /FALSE
	CALL	CANT-REACH,SHELF
	RSTACK	


	.FUNCT	BASKET-F
	FSET?	BASKET,UNTEEDBIT /FALSE
	EQUAL?	PRSA,V?EXAMINE \?ELS7
	PRINTR	"The basket is oval-shaped. A handle spans the narrow part."
?ELS7:	EQUAL?	PRSA,V?MEASURE \?ELS9
	PRINTR	"The basket is about fifteen by thirty inches."
?ELS9:	EQUAL?	PRSA,V?CLOSE \?ELS11
	CALL	NO-LID
	RSTACK	
?ELS11:	EQUAL?	PRSA,V?PUT-NEAR,V?PUT \?ELS13
	EQUAL?	PRSI,ORPHANAGE-DOOR \?ELS13
	CALL	PERFORM,V?PUT-ON,BASKET,FRONT-STOOP
	RTRUE	
?ELS13:	CALL	TAKE-BABY-FROM-STOOP,BASKET
	ZERO?	STACK \TRUE
	RFALSE


	.FUNCT	TAKE-BABY-FROM-STOOP,OBJ
	EQUAL?	PRSA,V?TAKE \FALSE
	EQUAL?	PRSO,OBJ \FALSE
	CALL	QUEUED?,I-ORPHANAGE
	ZERO?	STACK /FALSE
	CALL	CCOUNT,PROTAGONIST
	LESS?	STACK,11 \FALSE
	CALL	DEQUEUE,I-ORPHANAGE
	RFALSE	


	.FUNCT	MOTHBALLS-F
	EQUAL?	HERE,CLOSET \FALSE
	PRINT	YOU-CANT-SEE-ANY
	PRINTD	MOTHBALLS
	PRINTR	" here. It must be some imitation mothball air mist."


	.FUNCT	ROOF-F,RARG
	EQUAL?	RARG,M-LOOK \FALSE
	PRINTI	"Your view extends to the horizon, which on tiny Phobos usually means a few hundred feet. Thrusting up into sight beyond the horizon are"
	PRINT	PLEASURE-PALACE-DESC
	PRINTD	LGOP
	PRINTI	". On a wide plain between here and the palace, powerful warships are poised for the imminent invasion of Earth.
   Mars dominates the view, a dull red orb spanning a quarter of the sky. Bright blue canals lace the surface, and white caps of ice are visible at both poles.
   A stairway leads down into the building. Near the edge, seemingly painted onto the roof, is"
	CALL	APRINT,HOLE
	PRINTI	". You might be able to jump to the ground, but frankly we advise against it."
	RTRUE	


	.FUNCT	ROOF-OBJECT-F
	EQUAL?	PRSA,V?DISEMBARK,V?LEAP-OFF /?THN6
	EQUAL?	PRSA,V?TAKE-OFF \?ELS5
	EQUAL?	P-PRSA-WORD,W?GET \?ELS5
?THN6:	SET	'PRSO,FALSE-VALUE
	CALL	V-LEAP
	RSTACK	
?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS11
	CALL	V-LOOK
	RSTACK	
?ELS11:	EQUAL?	PRSA,V?SEARCH \FALSE
	PRINT	NOTHING-NEW
	RTRUE	


	.FUNCT	I-BLUEPRINT
	CALL	VISIBLE?,SIDEKICK
	ZERO?	STACK /?ELS5
	CALL	LIT?,HERE
	ZERO?	STACK /?ELS5
	LOC	SIDEKICK
	EQUAL?	STACK,SECOND-SLAB,STALLION /?ELS5
	CALL	QUEUED?,I-SIDEKICK-OUT-WINDOW
	ZERO?	STACK \?ELS5
	MOVE	MATCHBOOK,PROTAGONIST
	PRINTI	"   "
	CALL	DPRINT-SIDEKICK
	PRINTI	" trots over to you. ""I've got a plan to bring these Leather Goddess jokers to their knees,"" "
	CALL	HE-SHE
	PRINTI	" says, flipping you a "
	PRINTD	MATCHBOOK
	PRINTI	". "
	CALL	COVER-FILLED-WITH-NOTES
	CALL	SCRAPE-UP-THESE-ITEMS
	RSTACK	
?ELS5:	CALL	QUEUE,I-BLUEPRINT,3
	RFALSE	


	.FUNCT	SCRAPE-UP-THESE-ITEMS
	PRINTI	"""If we can scrape up these items, I can whip up something that'll knock 'em cold! A "
	PRINTD	ANTI-LGOP-MACHINE
	PRINTR	"!!!"""


	.FUNCT	MATCHBOOK-F
	FSET?	MATCHBOOK,UNTEEDBIT /FALSE
	EQUAL?	PRSA,V?KILL \?ELS7
	EQUAL?	P-PRSA-WORD,W?STRIKE \?ELS7
	CALL	PERFORM,V?ON,MATCHBOOK
	RTRUE	
?ELS7:	EQUAL?	PRSA,V?LOOK-INSIDE,V?COUNT,V?OPEN /?THN12
	EQUAL?	PRSA,V?ON \?ELS11
?THN12:	PRINTI	"You briefly open the "
	PRINTD	MATCHBOOK
	PRINTR	" and see that there are no matches left."
?ELS11:	EQUAL?	PRSA,V?CLOSE \?ELS15
	PRINT	ALREADY-IS
	RTRUE	
?ELS15:	EQUAL?	PRSA,V?READ \?ELS17
	PRINTI	"Most of the scrawlings are a ""blueprint"" for a vastly complicated device. Below that is a parts list:
   1."
	CALL	APRINT,BLENDER
	PRINTI	"
   2. six feet of "
	PRINTD	RUBBER-HOSE
	PRINTI	"
   3. a "
	PRINTD	COTTON-BALLS
	PRINTI	"
   4. an "
	PRINTD	EIGHTY-TWO-DEGREE-ANGLE
	PRINTI	"
   5. a "
	PRINTD	HEADLIGHT
	PRINTI	" from any 1933 Ford
   6. a white mouse
   7. any size "
	CALL	DPRINT,PHOTO
	PRINTI	"
   8. a copy of"
	CALL	TPRINT,PHONE-BOOK
	CRLF	
	RTRUE	
?ELS17:	EQUAL?	PRSA,V?EXAMINE \FALSE
	CALL	COVER-FILLED-WITH-NOTES
	CALL	PERFORM,V?OPEN,MATCHBOOK
	RTRUE	


	.FUNCT	COVER-FILLED-WITH-NOTES
	PRINTI	"The cover of the "
	PRINTD	MATCHBOOK
	PRINTI	" is filled with scrawled notations. "
	RTRUE	


	.FUNCT	BOUDOIR-F,RARG
	EQUAL?	RARG,M-ENTER \?ELS5
	MOVE	PROTAGONIST,DIVAN
	CALL	QUEUE,I-BOUDOIR,6
	RSTACK	
?ELS5:	EQUAL?	RARG,M-LOOK \?ELS7
	PRINTI	"There is only enough light here to make out vague shapes. "
	IN?	PROTAGONIST,DIVAN \?CND8
	PRINTI	"You seem to be lying on a plush divan. "
?CND8:	CALL	NOT-ALONE-ON-DIVAN
	FSET?	NOSE,MUNGBIT /TRUE
	PRINTI	" A pleasing odor "
	FSET?	HERE,SMELLEDBIT \?CND14
	PRINTI	"of leather "
?CND14:	PRINTI	"comes from close by."
	RTRUE	
?ELS7:	EQUAL?	RARG,M-SMELL \FALSE
	PRINTI	"Someone nearby is wearing leather. Lots of leather."
	RTRUE	


	.FUNCT	NOT-ALONE-ON-DIVAN
	PRINTI	"You hear heavy breathing from nearby"
	IN?	PROTAGONIST,DIVAN \?CND1
	PRINTI	", and realize that you are not alone on the couch"
?CND1:	PRINTI	"."
	RTRUE	


	.FUNCT	I-BOUDOIR,NOT-CALLED-BY-FUCK=1
	PRINTI	"   You hear a click, and "
	IN?	PROTAGONIST,HERE /?CND1
	PRINTI	"leap to your feet as "
?CND1:	PRINTI	"the room is flooded with light!

"
	PRINTD	HERE
	PRINTI	"
   Oh, no! You have violated the sanctity of a boudoir! And not just any old boudoir, but an"
	PRINT	PRIVATE-BOUDOIR
	PRINTI	"! And not just any old"
	PRINT	PRIVATE-BOUDOIR
	PRINTI	", but an"
	PRINT	PRIVATE-BOUDOIR
	PRINTI	" belonging to "
	PRINTD	LGOP
	PRINTI	"!
   ""The escaped prisoner"
	CALL	VISIBLE?,SIDEKICK
	ZERO?	STACK /?CND4
	PRINTI	"s"
?CND4:	PRINTI	"!"" cries one of "
	PRINTD	LGOP
	PRINTI	". ""Sound the alarm!""
   ""Inform the guards!"" yells another.
   ""Call out the army!""
   ""Alert the space fleet!""
   ""Summon my masseur,"" says the single unfrantic Goddess, calmly pulling a lever. As the floor opens up, you"
	CALL	AND-SIDEKICK
	PRINTI	" plunge down a long chute"
	PRINT	ELLIPSIS
	CALL	INCREMENT-SCORE,9,13
	CALL	GOTO,PLAZA,TRUE-VALUE
	CALL	ULTIMATELY-IN?,SIDEKICK,BOUDOIR
	ZERO?	STACK /?CND7
	MOVE	SIDEKICK,PLAZA
?CND7:	ZERO?	NOT-CALLED-BY-FUCK /TRUE
	EQUAL?	PRSA,V?WAIT /TRUE
	CALL	PLAZA-F,M-END
	RTRUE	


	.FUNCT	LGOP-F
	EQUAL?	LGOP,WINNER \?ELS5
	EQUAL?	PRSA,V?KISS \?ELS10
	EQUAL?	PRSO,ME \?ELS10
	SET	'WINNER,PROTAGONIST
	CALL	PERFORM-PRSA,LGOP
	SET	'WINNER,LGOP
	RTRUE	
?ELS10:	EQUAL?	PRSA,V?TAKE,V?FUCK \?ELS14
	EQUAL?	PRSO,ME \?ELS14
	SET	'WINNER,PROTAGONIST
	CALL	PERFORM,V?FUCK,LGOP
	SET	'WINNER,LGOP
	RTRUE	
?ELS14:	ZERO?	NAUGHTY-LEVEL \?ELS18
	PRINT	LEAVE-ME-ALONE
	RTRUE	
?ELS18:	PRINTI	"""Shut up and kiss me, honey."""
	CRLF	
	CALL	STOP
	RSTACK	
?ELS5:	EQUAL?	PRSA,V?EXAMINE \?ELS22
	PRINTI	"The lighting is too dim to see more than vague shapes."
	ZERO?	NAUGHTY-LEVEL /?CND23
	PRINTI	" But very shapely shapes!"
?CND23:	CRLF	
	RTRUE	
?ELS22:	EQUAL?	PRSA,V?KISS,V?FUCK,V?TOUCH \?ELS27
	ZERO?	NAUGHTY-LEVEL \?ELS27
	PRINTI	"You're pushed away. "
	PRINT	LEAVE-ME-ALONE
	RTRUE	
?ELS27:	EQUAL?	PRSA,V?EAT \?ELS31
	ZERO?	NAUGHTY-LEVEL \?ELS36
	CALL	V-FUCK
	RSTACK	
?ELS36:	EQUAL?	NAUGHTY-LEVEL,1 \?ELS38
	PRINT	MISSIONARY-ONLY
	RTRUE	
?ELS38:	PRINTR	"As you dive between her thighs, she arches toward you, shivering with hedonistic pleasure."
?ELS31:	EQUAL?	PRSA,V?TOUCH \?ELS42
	PRINTI	"Your arms discover a soft and eager body. You hear a purr of pleasure"
	EQUAL?	NAUGHTY-LEVEL,2 \?CND43
	CALL	BODIES-PRESS-TOGETHER,STR?414,STR?415
?CND43:	PRINT	PERIOD-CR
	RTRUE	
?ELS42:	EQUAL?	PRSA,V?KISS \?ELS47
	PRINTI	"Your lips meet those of your couchmate -- full, moist lips; the lips of someone who knows how to kiss"
	EQUAL?	NAUGHTY-LEVEL,2 \?CND48
	PRINTI	". A tongue slides teasingly into "
	PRINTD	MOUTH
	CALL	BODIES-PRESS-TOGETHER,STR?416,STR?417
?CND48:	CALL	VISIBLE?,SIDEKICK
	ZERO?	STACK /?CND51
	PRINT	PERIOD-CR
	PRINTI	"   You hear a ""thunk"" as "
	CALL	DPRINT-SIDEKICK
	PRINTI	", humping enthusiastically, falls off "
	CALL	HIS-HER
	PRINTI	" couch"
?CND51:	PRINT	PERIOD-CR
	RTRUE	
?ELS47:	EQUAL?	PRSA,V?SMELL \?ELS55
	CALL	PERFORM-PRSA,ODOR
	RTRUE	
?ELS55:	EQUAL?	PRSA,V?FUCK \FALSE
	PRINTI	"Your couchmate seems only too happy to oblige. You flush with passion"
	EQUAL?	NAUGHTY-LEVEL,2 \?CND58
	CALL	BODIES-PRESS-TOGETHER,STR?418,STR?415
?CND58:	PRINTI	". Suddenly..."
	CRLF	
	CALL	DEQUEUE,I-BOUDOIR
	CALL	I-BOUDOIR,FALSE-VALUE
	RSTACK	


	.FUNCT	BODIES-PRESS-TOGETHER,VERB-STRING,NOUN-STRING
	MOVE	PROTAGONIST,DIVAN
	PRINTI	" as your two bodies draw closer together on the divan"
	ZERO?	MALE \FALSE
	ZERO?	DISCOVERED \FALSE
	SET	'DISCOVERED,TRUE-VALUE
	PRINTI	". You discover, much to your surprise, that you are "
	PRINT	VERB-STRING
	PRINTI	" a woman. Even more surprising, your misgivings are swept away by the heady pleasure of the soft, full "
	PRINT	NOUN-STRING
	PRINTI	" pressing against your own"
	RTRUE	


	.FUNCT	PLAZA-F,RARG
	EQUAL?	RARG,M-LOOK \?ELS5
	PRINTI	"This is a wide plaza between"
	PRINT	PLEASURE-PALACE-DESC
	PRINTD	LGOP
	PRINTI	". It is a lovely, bucolic area of gushing fountains, curving flower beds, and lawns of thick, green grass. Birds fly amongst the trees, singing peacefully, as baby squirrels hop across the lawn, lazily collecting nuts."
	RTRUE	
?ELS5:	EQUAL?	RARG,M-SMELL \?ELS7
	PRINTI	"Through the smoke of battle, you see a banana peel squirt from"
	CALL	TPRINT,ANTI-LGOP-MACHINE
	PRINTI	"."
	RTRUE	
?ELS7:	EQUAL?	RARG,M-END \FALSE
	INC	'PLAZA-COUNTER
	PRINTI	"   "
	EQUAL?	PLAZA-COUNTER,1 \?ELS12
	PRINTI	"A half-megaton grenade explodes nearby as the palace guards attempt to repel "
	IN?	SIDEKICK,HERE \?ELS15
	PRINTI	"some"
	JUMP	?CND13
?ELS15:	PRINTI	"an"
?CND13:	PRINTI	" unwanted intruder"
	IN?	SIDEKICK,HERE \?CND18
	PRINTI	"s"
?CND18:	PRINTI	" (namely: you"
	CALL	AND-SIDEKICK
	PRINTI	")."
	CRLF	
	JUMP	?CND10
?ELS12:	EQUAL?	PLAZA-COUNTER,2 \?ELS22
	PRINTI	"The guards now have reinforcements: a row of imposing radium-powered tanks are rolling towards you."
	CRLF	
	JUMP	?CND10
?ELS22:	EQUAL?	PLAZA-COUNTER,3 \?ELS24
	PRINTI	"Giant berserk robotoid sumo wrestlers, each madly waving about three dozen samurai swords, are now storming across the plaza at you."
	CRLF	
	JUMP	?CND10
?ELS24:	EQUAL?	PLAZA-COUNTER,4 \?ELS26
	PRINTI	"With a swooping roar, the"
	PRINT	ATTACK-FLEET
	PRINTI	" of "
	PRINTD	LGOP
	PRINTI	" joins the attack. Several nearby trees are suddenly vaporized."
	CRLF	
	JUMP	?CND10
?ELS26:	EQUAL?	PLAZA-COUNTER,5 \?ELS28
	PRINTI	"The palace guards are setting up a massive dematerialization ray. Closer by, a sumo-robot discovers a boulder in its path, and a large quantity of gravel is created."
	CRLF	
	JUMP	?CND10
?ELS28:	EQUAL?	PLAZA-COUNTER,6 \?ELS30
	PRINTI	"A Phobosian Chomper is faster than a cheetah, meaner than a Tyrannosaurus Rex, bigger than a sperm whale, and as hungry as the state of Texas. We mention this because fifty of them just entered the plaza and spotted you."
	CRLF	
	JUMP	?CND10
?ELS30:	EQUAL?	PLAZA-COUNTER,7 \?ELS32
	PRINTI	"Several fifty-foot craters appear as the"
	PRINT	ATTACK-FLEET
	PRINTI	" begins lobbing ion bombs. As they veer around for a more precise attack, the tanks close in, and you realize that each one is larger than the Upper Sandusky City Hall."
	CRLF	
	JUMP	?CND10
?ELS32:	EQUAL?	PLAZA-COUNTER,8 \?ELS34
	PRINTI	"A couple of buildings behind you silently vanish, indicating that the palace guards are better at assembling a death ray than at aiming it. However, in sixty centuries of repelling intruders, they've never missed twice. Meanwhile, one of the Chompers has stopped to swallow a herd of goats that was grazing nearby, thus slowing it down for a full tenth of a second."
	CRLF	
	JUMP	?CND10
?ELS34:	EQUAL?	PLAZA-COUNTER,9 \?ELS36
	PRINTI	"The guards have finished aiming the death ray, and have begun the activation sequence. The ground quakes as the berserko robotoids plow through the rubble toward you; the wind from their whirling swords knocks over a few trees. The tanks loom above you, their gun turrets blocking out the sun. Beyond them, the"
	PRINT	ATTACK-FLEET
	PRINTI	" is sweeping in for a final attack."
	CRLF	
	JUMP	?CND10
?ELS36:	EQUAL?	PLAZA-COUNTER,10 \?CND10
	CALL	JIGS-UP,STR?420
?CND10:	CALL	VISIBLE?,SIDEKICK
	ZERO?	STACK /TRUE
	PRINTI	"   "
	CALL	DPRINT-SIDEKICK
	EQUAL?	PLAZA-COUNTER,1 \?ELS44
	MOVE	ANTI-LGOP-MACHINE,HERE
	PRINTI	" shouts, ""Okay, this is it!"
	FIRST?	SIDEKICK \?ELS47
	CALL	ROB,SIDEKICK,PROTAGONIST
	PRINTI	""" "
	CALL	HE-SHE,TRUE-VALUE
	PRINTI	" hands you everything "
	CALL	HE-SHE
	PRINTI	"'s carrying. """
	JUMP	?CND45
?ELS47:	PRINTI	" "
?CND45:	PRINTI	"Gotta start building that "
	PRINTD	ANTI-LGOP-MACHINE
	PRINTI	"! "
	JUMP	?CND42
?ELS44:	PRINTI	", hammering and twiddling madly at the growing machine, yells, """
	ZERO?	RIGHT-PART /?ELS54
	PRINTI	"Okay, things are going "
	SUB	PLAZA-COUNTER,2
	GET	HYPE-WORD,STACK
	PRINT	STACK
	PRINTI	"! "
	JUMP	?CND52
?ELS54:	SUB	PLAZA-COUNTER,2
	GET	PARTS-LIST,STACK >MISSING-PART
	PRINTI	"Well, I'll try and work around the missing "
	EQUAL?	MISSING-PART,PHOTO \?ELS60
	GETP	PHOTO,P?SDESC
	PRINT	STACK
	JUMP	?CND58
?ELS60:	PRINTD	MISSING-PART
?CND58:	PRINTI	". "
?CND52:	EQUAL?	PLAZA-COUNTER,9 \?CND42
	PRINTI	"There! I think it's all done. Cross your fingers, kiddo!"" "
	CALL	HE-SHE,TRUE-VALUE
	PRINTI	" switches on the device. Amidst showers of sparks, a powerful electric arc bridges two electrodes. The machine shudders, and "
	ZERO?	MISSING-PART /?ELS68
	PRINTI	"awe-inspiring rays of raw plasma begin shooting in every direction. You and "
	CALL	DPRINT-SIDEKICK
	PRINTI	" dive to the ground. Crashing spaceships collide with careening robotoid monsters; the tanks, inches before pancaking you, become pools of molten metal. A stray plasma ray strikes the only remaining tree in the plaza, and you are fatally wounded as a coconut drops onto "
	PRINTD	HEAD
	PRINTI	". The last sound you hear is "
	CALL	DPRINT-SIDEKICK
	PRINTI	"'s voice, saying,"
	CALL	EXPLETIVE
	PRINTI	"I was going to use that "
	EQUAL?	MISSING-PART,PHOTO \?ELS72
	GETP	PHOTO,P?SDESC
	PRINT	STACK
	JUMP	?CND70
?ELS72:	PRINTD	MISSING-PART
?CND70:	PRINTI	" to build a coconut deflector."""
	CRLF	
	JUMP	?CND66
?ELS68:	PRINTI	"you "
	FSET?	NOSE,MUNGBIT \?ELS79
	PRINTI	"see"
	JUMP	?CND77
?ELS79:	PRINTI	"smell"
?CND77:	PRINTI	" something yellow shoot from the machine."
	FSET?	NOSE,MUNGBIT \?ELS84
	PRINTI	" It's a banana peel!"
	CRLF	
	JUMP	?CND82
?ELS84:	CRLF	
	CALL	PERFORM,V?SMELL,ODOR
?CND82:	PRINTI	"   The peel lands a few feet away, as the "
	PRINTD	ANTI-LGOP-MACHINE
	PRINTI	" gives one final shudder and self-destructs in an orgy of flames and shrapnel!
   The attacking forces continue to close, and certain death is only seconds away when one of the Chompers, loping toward you at nearly Mach One, steps on the banana peel, and slips a few inches to one side before righting itself. This is enough, however, to nudge a tank into a crater, tripping one of the samurai robots!
   More and more of the attacking forces plow into the mess in the crater, like some improbably fantastical football tackle. A stray grenade lands right in its midst, and the resulting plume of debris shears the fins off the leading warship. Your heart leaps as the entire"
	PRINT	ATTACK-FLEET
	PRINTI	" of "
	PRINTD	LGOP
	PRINTI	" plummets toward the ground. The mass of flaming metal strikes the ground, and a tremendous explosion knocks you senseless!

   Eventually, daylight intrudes upon your senselessness and illuminates a sleepy-looking gas station. You are lying at the edge of a dusty road, once again wearing your comfortable old overalls. Though dirty, dishevelled, and bleeding from a few superficial cuts, you are nevertheless aglow in the knowledge that Earth is safe from the threat of "
	PRINTD	LGOP
	PRINTI	".
   As "
	PRINTD	HEAD
	PRINTI	" clears, three uniformed "
	ZERO?	MALE /?ELS89
	PRINTI	"girls come bounc"
	JUMP	?CND87
?ELS89:	PRINTI	"guys come pound"
?CND87:	PRINTI	"ing out of the service station toward you. ""Oh, my goodness,"" they "
	ZERO?	MALE /?ELS95
	PRINTI	"coo"
	JUMP	?CND93
?ELS95:	PRINTI	"call out"
?CND93:	PRINTI	", in perfect unison. ""Are you all right?""

   Coming soon from Infocom: GAS PUMP GIRLS MEET THE PULSATING INCONVENIENCE FROM PLANET X."
	CRLF	
	SET	'RANK,9
	SET	'EXT-MAX,INT-MAX
?CND66:	CALL	FINISH
?CND42:	PRINTI	"Hand me a"
	CALL	PRINT-PART
	PRINTI	"."""
	CRLF	
	SET	'RIGHT-PART,FALSE-VALUE
	CALL	THIS-IS-IT,SIDEKICK
	RSTACK	


	.FUNCT	PRINT-PART,NEXT-PART
	SUB	PLAZA-COUNTER,1
	GET	PARTS-LIST,STACK >NEXT-PART
	CALL	THIS-IS-IT,NEXT-PART
	EQUAL?	NEXT-PART,EIGHTY-TWO-DEGREE-ANGLE \?ELS3
	PRINTI	"n "
	JUMP	?CND1
?ELS3:	PRINTI	" "
?CND1:	EQUAL?	NEXT-PART,PHOTO \?ELS10
	GETP	PHOTO,P?SDESC
	PRINT	STACK
	RTRUE	
?ELS10:	PRINTD	NEXT-PART
	RTRUE	


	.FUNCT	GENERIC-MACHINE-F,NUM
	CALL	CANAL-LOC >NUM
	EQUAL?	HERE,CANAL \?ELS5
	GRTR?	NUM,31 /?THN8
	LESS?	NUM,13 \?ELS5
?THN8:	RETURN	ODD-MACHINE
?ELS5:	EQUAL?	PRSA,V?ASK-ABOUT \?ELS11
	CALL	VISIBLE?,ODD-MACHINE
	ZERO?	STACK /?ELS16
	RETURN	ODD-MACHINE
?ELS16:	RETURN	ANTI-LGOP-MACHINE
?ELS11:	EQUAL?	SIDEKICK,WINNER \FALSE
	CALL	QUEUED?,I-BLUEPRINT
	ZERO?	STACK \FALSE
	RETURN	ANTI-LGOP-MACHINE

	.ENDI