outside.zil

"OUTSIDE for
		               BALLYHOO
	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved." 
	
 <ROOM CON-AREA  
	(IN ROOMS)
	(DESC "Connection")	
	(NORTH TO WINGS)
	(SOUTH TO NEAR-WAGON)
	(WEST TO BESIDE-BIGTOP)
	(EAST PER TURNSTILE-EXIT)
	(SW TO BACK-YARD)
	(IN TO WINGS)
	(FLAGS ONBIT RLANDBIT)
	(GLOBAL BIGTOP BANNER TURNSTILE MIDWAY SLOT)
	(ACTION CON-AREA-F)>

<ROUTINE CON-AREA-F (RARG)
	 <COND (<EQUAL? .RARG ,M-LOOK>	
	   	<TELL
"This area of matted-down crabgrass lies between the vaulted " D ,BIGTOP
" entrance to the north and the enticements of the midway to the east, where
a " D ,BANNER " hangs crookedly above a " D ,TURNSTILE ". There is a " 
D ,FOUNTAIN " near the side wall of the tent. ">
	        <COND (<NOT ,DREAMING>
		       <TELL 
"You can enter the night to the west and south.">)
		      (T
		       <TELL CR CR 
"Stretching away from a small concession stand ">
		       <COND (<IN? ,SHORT ,HERE>
			      <TELL "are a " D ,SHORT " and">)
			     (T
			      <TELL "is">)>
		       <TELL " a " D ,LONG " of suckers.">)>
		<CRLF>)			      
	       (<EQUAL? .RARG ,M-ENTER>		
		<COND (<AND <EQUAL? ,P-WALK-DIR ,P?SOUTH ,P?OUT>
		            <NOT ,DREAMING>>
		       <TELL 
"You emerge into the warm night air of summer." CR CR>
	   	       <COND (<NOT <FSET? ,CON-AREA ,TOUCHBIT>>
	               	      <MOVE ,CROWD ,CON-AREA>
			      <ENABLE <QUEUE I-BOOST -1>>)>)>
		<COND (<AND <QUEUE-THUMB?>
			    <NOT ,DREAMING>>
		       <ENABLE <QUEUE I-THUMB 1>>)>)
	       (<AND ,DREAMING
		     <EQUAL? .RARG ,M-BEG>
		     <VERB? WALK>
		     <NOT <EQUAL? ,P-WALK-DIR ,P?NORTH>>>
		<COND (<HELD? ,MONKEY>
		       <MONKEY-DIRECTION>)
		      (T
		       <TELL "That's not the way you remember it." CR>)>
		<RTRUE>)
	       (<EQUAL? .RARG ,M-BEG>
		<FSET ,LONG ,VEHBIT>
		<FSET ,SHORT ,VEHBIT>
		<COND (<AND <NOT <FSET? ,LONG ,RMUNGBIT>> ;"won lines?"
		       	    <VERB? BOARD>
		       	    <PRSO? ,LONG>
		            <G? ,LINE-COUNTER 3>>
		       <ENTER-LINE T>)
		      (T
		       <RFALSE>)>)
	       (<AND <EQUAL? .RARG ,M-END>
		     <MONKEY-ACTS?>>		     
		<RFALSE>)>>

<ROUTINE MONKEY-ACTS? ()
	 <COND (<AND <IN? ,MONKEY ,PROTAGONIST>
		     <PROB 60>>
		<TELL CR 
"The " D ,MONKEY " on " D ,BACK " " <PICK-ONE ,MONKEYS>>
		<TELL ,PERIOD>)
	       (T
		<RFALSE>)>>

<GLOBAL MONKEYS 
	<LTABLE 0 
	"nervously bounces its weight up and down"
	"idly grooms areas of your scalp"
	"vocalizes excitedly in your ear"
	"breathes its jungle breath down your neck">>

<OBJECT BANNER
	(IN LOCAL-GLOBALS)
	(DESC "sagging banner")
	(SYNONYM BANNER)
	(ADJECTIVE SAGGING)
	(FLAGS NDESCBIT)
	(ACTION BANNER-F)>

<ROUTINE BANNER-F ()
	 <COND (<VERB? READ EXAMINE>
		<CRLF>
		<COND (<EQUAL? ,HERE ,CON-AREA>	
		       <TELL "\"TO SIDESHOWS">)
		      (<EQUAL? ,HERE ,MIDWEST>
		       <TELL "\"TO MENAGERIE">)
		      (T
		       <TELL "\"THIS WAY TO THE EGRESS">)>
		<TELL "\"" CR>)
	       (<TOUCHING? ,BANNER>
		<CANT-REACH ,BANNER>)>>

<OBJECT LONG
	(IN LOCAL-GLOBALS)
	(DESC "long line")
	(SYNONYM LINE PEOPLE SUCKER FRONT)
	(ADJECTIVE LONG LONGER CONCES PEOPLE)
	(FLAGS VEHBIT NDESCBIT)
	(GENERIC GEN-LINE-F)
	(ACTION LONG-F)>

;"RMUNGBIT = have won and got nuts, now no lines move at all"

<ROUTINE LONG-F ("OPTIONAL" (RARG <>))
	 <COND (<EQUAL? .RARG ,M-ENTER>       	       
	        <COND (<NOT <FSET? ,LONG ,TOUCHBIT>>
	               <FSET ,LONG ,TOUCHBIT>
               	       <ENABLE <QUEUE I-BAD-LUCK 5>>
	               <RFALSE>)>)
	       (<EQUAL? .RARG ,M-BEG>
	        <COND (<GET-OUT-OF-LINE? ,LONG>
		       <RTRUE>)
		      (<VERB? WALK>
		       <OUT-OF-FIRST ,LONG>)
		      (<AND <IN? ,SHORT ,CON-AREA>
		            <NOT <IN? ,TEAM ,CON-AREA>>
			    <VERB? WAIT>>
	               <TELL 
"Time itself, let alone the " D ,LONG ", has " D ,GROUND " to an agonizing
halt." CR>
	        <SETG CLOCK-WAIT T>
	        <RTRUE>)>)
	       (.RARG
		<RFALSE>)
	       (T
		<LINES-F>)>>

<OBJECT SHORT
        (IN LOCAL-GLOBALS)
	(DESC "short line")
	(SYNONYM LINE PEOPLE SUCKER FRONT)
	(ADJECTIVE SHORTER SHORT CONCES PEOPLE)
	(FLAGS ;VEHBIT NDESCBIT) 
	(GENERIC GEN-LINE-F)
	(ACTION SHORT-F)>

;"RMUNGBIT = used in gen-line-f for GET OUT OF LINE"

<ROUTINE SHORT-F ("OPTIONAL" (RARG <>))
	 <COND (<EQUAL? .RARG ,M-BEG>
       	        <COND (<GET-OUT-OF-LINE? ,SHORT>
		       <RTRUE>)
		      (<VERB? WALK>
		       <OUT-OF-FIRST ,SHORT>)>)
	       (.RARG
		<RFALSE>)
	       (T
		<LINES-F>)>>
		
<ROUTINE LINES-F ()
	 <COND (<AND <EQUAL? ,HERE ,CON-AREA>
		     <OR <AND <VERB? BOARD THROUGH WALK-TO>
		         ,IN-FRONT-FLAG>
		         <EQUAL? ,P-PRSA-WORD ,W?CUT>
		         <AND <VERB? BOARD THROUGH WALK-TO>
			      <IS-NOUN? ,W?FRONT>>>>
		<COND (<EQUAL? <LOC ,PROTAGONIST> ,LONG ,SHORT>
		       <OUT-OF-FIRST <LOC ,PROTAGONIST>>
		       <RTRUE>)
		      (T 
		       <PERFORM ,V?WALK-TO ,CON-STAND>
		       <RTRUE>)>)
	       (T
		<RFALSE>)>>

<ROUTINE GET-OUT-OF-LINE? (LINE)
	 <COND (<AND <VERB? DISEMBARK>
	             <EQUAL? ,P-PRSA-WORD ,W?GET>
		     <IS-NOUN? ,W?LINE>
		     <ZERO? <GET ,P-ADJW 0>>
		     <NOT <FSET? ,SHORT ,RMUNGBIT>>>
	        <FSET ,SHORT ,RMUNGBIT>
	        <TELL 
"You begin ranting and raving and throwing a tantrum and all of those things
attendant upon someone getting way out of line. You feel better, but it
doesn't advance the " D .LINE "." CR>
		<RTRUE>)
	       (T
		<RFALSE>)>>

<ROUTINE GEN-LINE-F ("AUX" LINE)
	 <COND (<AND <VERB? DISEMBARK EXIT>
		     <EQUAL? <LOC ,PROTAGONIST> ,LONG ,SHORT>>
		<LOC ,PROTAGONIST>)
	       (<EQUAL? ,P-NAM ,W?SUCKER> ;"only happens with two lines"
		,ME)                      ;"since me is global object"
	       (<NOT <EQUAL? ,HERE ,CON-AREA>>
		,LONG)
	       (<AND <VERB? DISEMBARK>
		     <NOT <EQUAL? <LOC ,PROTAGONIST> ,LONG ,SHORT>>>
		,LONG)
	       (T
		<RFALSE>)>>

;<OBJECT FRONT-OF-LINE
	(IN GLOBAL-OBJECTS)
	(DESC "line")
	(SYNONYM FRONT LINE BEGIN)
	(ADJECTIVE LONG LONGER SHORT SHORTER)
	(FLAGS NDESCBIT)
	(ACTION FRONT-OF-LINE-F)>

<GLOBAL LINE-COUNTER 0>

<ROUTINE I-BAD-LUCK ()	 
	 <COND (<EQUAL? <LOC ,PROTAGONIST> ,SHORT>
		<FCLEAR ,LONG ,VEHBIT>)
	       (<EQUAL? <LOC ,PROTAGONIST> ,LONG>
		<FCLEAR ,SHORT ,VEHBIT>)
	       ;(<IN? ,PROTAGONIST ,HERE> ;"in con-area m-beg"
		<FSET ,LONG ,VEHBIT>
		<FSET ,SHORT ,VEHBIT>)>
	 <COND (<ZERO? ,LINE-COUNTER>
                <MOVE ,SHORT ,CON-AREA>
		<SETG LINE-COUNTER 1>
		<ENABLE <QUEUE I-BAD-LUCK -1>>
		<TELL CR 
"Right next to the " D ,LONG " a much shorter line begins to form." CR>)
	       (<AND <EQUAL? ,LINE-COUNTER 1>   
		     <IN? ,PROTAGONIST ,SHORT>>
	        <SETG LINE-COUNTER 2>)
	       (<AND <EQUAL? ,LINE-COUNTER 2> 
		     <IN? ,PROTAGONIST ,SHORT>>
		<SETG LINE-COUNTER 3>
	        <MOVE ,TEAM ,CON-AREA>
		<MOVE ,JERRY ,CON-AREA>
		<TELL CR
"The face of the man ahead of you lights up as he spots something.
\"Hey, guys! It's ME, Jerry,\" he yells to a sizable group nearby, and
they approach." CR>)
	       (<AND <EQUAL? ,LINE-COUNTER 3>
		     <EQUAL? <LOC ,PROTAGONIST> ,SHORT>>
		<SETG LINE-COUNTER 4>	        
	        <FSET ,LONG ,VEHBIT>
	        <MOVE ,PROTAGONIST ,LONG>
		<FCLEAR ,SHORT ,VEHBIT>
		<PLAYER-NUM-CHECK>
		<TELL CR
"\"Haven't seen you turkeys in years. Howda hell are you guys?\" They
all reintroduce themselves. \"Hey -- you clowns thirsty? Get in here, I'll
buy y'all beer.\"|
|
\"You sure it's not a problem?\" asks the " <GET ,PLAYERS ,PLAYER-NUM> ".|
|
\"Heck no, just scoot in right here.\"|
|
With both your resolve and your heaving bosom firm against the crush of
interlopers, you are nevertheless forced to backpedal." CR>
	       <RTRUE>)
	      (<AND <EQUAL? ,LINE-COUNTER 4>
	       	    <IN? ,PROTAGONIST ,LONG>>
               <PLAYER-NUM-CHECK>
	       <TELL CR "Jerry continues " <PICK-ONE ,GREETINGS>
		        " the " <GET ,PLAYERS ,PLAYER-NUM> "." CR>
	       <COND (<AND <EQUAL? ,PLAYER-NUM 5>
			   <NOT <FSET? ,CON-STAND ,RMUNGBIT>>>
		      <FSET ,CON-STAND ,RMUNGBIT>
		      <TELL CR
"Out of the " D ,CORNER " of your eye, you see the line you first entered
suddenly kicking into gear and really begin moving." CR>)>
	       <RTRUE>)
	      (<AND <IN? ,PROTAGONIST ,HERE>
		    <EQUAL? ,LINE-COUNTER 4>> ;"entering short line aft Jerry"
	       <MOVE ,TEAM ,LOCAL-GLOBALS>	       
	       <MOVE ,JERRY ,LOCAL-GLOBALS>
	       <SETG LINE-COUNTER 5>
	       <RFALSE>)
	      (<AND <EQUAL? <LOC ,PROTAGONIST> ,LONG>
		    <EQUAL? ,LINE-COUNTER 5>>
	       <SETG LINE-COUNTER 6>
	       <TELL CR
"You notice the woman who had been next to you in the line you first
entered walk away from it with an overflowing tray of goodies." CR>)
	      (<AND <EQUAL? <LOC ,PROTAGONIST> ,LONG>
		    <EQUAL? ,LINE-COUNTER 6>>
	       <SETG LINE-COUNTER 7>
	       <TELL CR
"A baby's cry suddenly pierces the air like a siren." CR>)>>
		
<ROUTINE ENTER-LINE ("OPTIONAL" (WIN? <>))
	 <TELL 
"A lot of other people must ">
	 <COND (.WIN?
		<TELL "not ">)>
	 <TELL 
"have had the same idea as you, as they " <PICK-ONE ,LINE-MERGE> " over to ">
	 <COND (.WIN? 
		<DISABLE <INT I-BAD-LUCK>>
		<FSET ,LONG ,RMUNGBIT>   ;"idicates you've WON the lines"
	        <MOVE ,PROTAGONIST ,HERE>
		<MOVE ,BANANA ,PROTAGONIST>
		<SETG POCKET-CHANGE <- ,POCKET-CHANGE 375>>
		;<SETG POCKET-CHANGE 1281> ;"will = 1281 if bought bar too."
		<TELL 
"the " D ,SHORT ". Steaming to the front of the line, you get a " 
D ,BANANA " pushed at you and are whisked to the side before you can
even count your change.">)
	       (T
		<TELL 
"your chosen line, bunching in ahead of you and making it the longer of the
two.">)>
	 <CRLF>>

<OBJECT GRANOLA
	(IN LOCAL-GLOBALS)
	(DESC "one-dollar-and-85-cent granola bar")
	(SYNONYM GRANOLA BAR BARS FOOD)
	(ADJECTIVE CANDY ONE-DOLLAR GRANOLA)
	(FLAGS TAKEBIT EATBIT VOWELBIT)
	(GENERIC GEN-BAR)
	(ACTION GRANOLA-F)>

<GLOBAL ORDERED-GRANOLA <>>

<ROUTINE GRANOLA-F ()
	 <COND (<VERB? OPEN CLOSE>
		<TELL "There's no wrapper." CR>)
	       (<VERB? BUY>
		<COND (<AND <EQUAL? ,HERE ,STANDS-ROOM>
			    <IN? ,HAWKER ,HERE>
			    <EQUAL? ,POCKET-CHANGE 1841>>
		       <SETG ORDERED-GRANOLA T>)>
		<PERFORM ,V?BUY ,JUNK-FOOD>
		<RTRUE>)
	       (<VERB? EAT>
		<TELL 
"You abstain, since health foods tend to make you sick." CR>)>>

<ROUTINE GEN-BAR ()
	 ,GRANOLA>

<OBJECT BANANA
	(IN LOCAL-GLOBALS)
	(DESC "two-dollar-and-25-cent frozen banana")
	(SYNONYM BANANA FRUIT CHOCOLATE FOOD)
	(ADJECTIVE TWO-DOLLAR FROZEN)
	(FLAGS TAKEBIT EATBIT)
	(GENERIC GEN-FOOD)
	(ACTION BANANA-F)>

;"RMUNGBIT = banana is broken, monkey is interested"

<ROUTINE BANANA-F ()
	 <COND (<VERB? EXAMINE>
		<TELL "The " D ,BANANA " is ">
		<COND (<NOT <FSET? ,BANANA ,RMUNGBIT>>
		       <TELL "entirely ">)>
		<TELL "coated with chocolate." CR>)
	       (<AND <VERB? BUY>
		     <EQUAL? ,HERE ,CON-AREA>
		     ,DREAMING>
		<PERFORM ,V?BUY ,JUNK-FOOD>
		<RTRUE>)
	       (<OR <VERB? MUNG REMOVE TASTE>
		    <AND <VERB? TAKE>
			 ,PRSI>>
		<FSET ,BANANA ,RMUNGBIT>
		<TELL 
"As the " D ,MONKEY " on " D ,BACK " catches a whiff of the tangy fruit
beneath the chocolate, you feel its primal heart begin to race and, on
the back of your neck, its warm breath quicken." CR>
	        <COND (<NOT <HELD? ,BANANA>>
		       <CRLF>
		       <MOVE ,BANANA ,PROTAGONIST>
		       <PERFORM ,V?DROP ,BANANA>)>
	        <RTRUE>)
	       (<VERB? EAT BITE>
		<COND (<FSET? ,BANANA ,RMUNGBIT>
		       <MOVE ,BANANA ,LOCAL-GLOBALS>
		       <TELL 
"It gives you a brief, but intense, headache." CR>)
		      (T
		       <PERFORM ,V?MUNG ,BANANA>
		       <RTRUE>)>)
	       (<AND <VERB? DROP THROW>
		     <FSET? ,BANANA ,RMUNGBIT>>
		<MOVE ,MONKEY ,LOCAL-GLOBALS>
		<MOVE ,BANANA ,LOCAL-GLOBALS>
		<TELL 
"Following its jungle appetite, the " D ,MONKEY " dismounts " D ,BACK ",
pounces on the banana, and saunters away with it." CR>)>>

<ROUTINE GEN-FOOD ()
	 ,JUNK-FOOD>	   

<OBJECT JERRY
	(IN LOCAL-GLOBALS)
	(DESC "Jerry")
	(SYNONYM MAN JERRY PITCHER)
      	(FLAGS NDESCBIT ACTORBIT PERSON NARTICLEBIT)
	(ACTION JERRY-F)>

<ROUTINE JERRY-F ()
	 <COND ;(<LOST-TRACK?>
		<RTRUE>)
	       (<EQUAL? ,JERRY ,WINNER>
                <SETG WINNER ,PROTAGONIST>
	        <PERFORM ,V?HELLO ,JERRY>
	        <SETG WINNER ,JERRY>
	        <RTRUE>)
	       (<TALKING-TO? ,JERRY>
		<TELL
"The team is far too deeply engaged in nostalgia to pay any notice." CR>
		<STOP>)
	       (<VERB? BOARD THROUGH>
		 ;,IN-FRONT-FLAG
		<PERFORM ,V?KILL ,JERRY>
		<RTRUE>)
	       (<HURT? ,JERRY>
	        <FIGHT>
		<FSET ,JERRY ,RMUNGBIT>)>>

<OBJECT TEAM
        (DESC "group of ballplayers")
	(SYNONYM GROUP BALLPLAYERS BASEMAN FIELDER)
	(ADJECTIVE FIRST SECOND THIRD LEFT CENTER RIGHT CATCHER SHORTSTOP)
	(FLAGS NDESCBIT ACTORBIT PERSON)
	(ACTION TEAM-F)>

<ROUTINE TEAM-F ()
	 <COND ;(<LOST-TRACK?>
		<RTRUE>)
	       (<HURT? ,TEAM>
	        <FIGHT>
		<FSET ,TEAM ,RMUNGBIT>)
	       (<TALKING-TO? ,TEAM>                    
		<SETG WINNER ,PROTAGONIST>
	        <PERFORM ,V?HELLO ,JERRY>
	        <SETG WINNER ,TEAM>
	        <RTRUE>)
	       (<VERB? BOARD THROUGH>
		 ;,IN-FRONT-FLAG
		<PERFORM ,V?KILL ,TEAM>
		<RTRUE>)
	       (<VERB? COUNT>
		<TELL "Nine players, altogether." CR>)>>

;<ROUTINE LOST-TRACK? ()
	 <COND (<G? ,LINE-COUNTER 5>
	        <TELL "You've lost track of the team." CR>)>>

<ROUTINE FIGHT ()
	 <COND (<AND <FSET? ,JERRY ,RMUNGBIT>
		     <FSET? ,TEAM ,RMUNGBIT>>
		     <JIGS-UP 5 
"With the ensuing rhubarb, you end up on the permanently disabled list.">)
		    (T
	             <PLAYER-NUM-CHECK>
		     <TELL
"The " <GET ,PLAYERS ,PLAYER-NUM> " steps in between. \"This ">
		     <MAN-OR-WOMAN "clown" "chick">
		     <TELL " giving you trouble">
		     <COND (<PRSO? ,JERRY>
			    <TELL ", Jerry">)>
		     ;<PLAYER-NUM-CHECK>
		     <SETG PLAYER-NUM <RANDOM 8>>		      
		     <TELL 
"?\" Then the " <GET ,PLAYERS ,PLAYER-NUM> " backs you off with a nasty
stare." CR>)>>

<ROUTINE PLAYER-NUM-CHECK ()
	 <COND (<OR <IS-NOUN? ,W?FIELDER>
		    <IS-ADJ? ,W?LEFT>
		    <IS-ADJ? ,W?CENTER>
		    <IS-ADJ? ,W?RIGHT>>
		<SETG PLAYER-NUM <+ 3 <RANDOM 4>>>)
	       (<OR <IS-NOUN? ,W?BASEMAN>
		    <IS-ADJ? ,W?FIRST>
		    <IS-ADJ? ,W?SECOND>
		    <IS-ADJ? ,W?THIRD>>
		<SETG PLAYER-NUM <RANDOM 5>>)
	       (<IS-NOUN? ,W?CATCHER>
		<SETG PLAYER-NUM <RANDOM 3>>)
	       (<IS-NOUN? ,W?SHORTSTOP>
		<SETG PLAYER-NUM <+ 4 <RANDOM 3>>>)
	       (T
		<SETG PLAYER-NUM <RANDOM 8>>)>>

;<ROUTINE PLAYER-NUM-CHECK ()
	 <COND (<EQUAL? ,PLAYER-NUM 8>
		<SETG PLAYER-NUM 1>)
	       (T
		<SETG PLAYER-NUM <+ ,PLAYER-NUM 1>>)>>

<GLOBAL PLAYER-NUM 1>

;"the pitcher is Jerry"
<GLOBAL PLAYERS
	<PLTABLE  
	 "left fielder"
	 "right fielder"
	 "center fielder"
	 "shortstop"
	 "catcher"
	 "second baseman"
	 "first baseman"
	 "third baseman">>

<GLOBAL GREETINGS 
	<LTABLE 0   
	"glad-handing"
	"reminiscing with"
	"ribbing"
	"backslapping"
	"jiving with">> 

<OBJECT CON-STAND
	(IN LOCAL-GLOBALS)
	(DESC "concession stand")
	(SYNONYM STAND BLOOMER)
	(ADJECTIVE CONCES)
	(FLAGS NDESCBIT)
	(ACTION CON-STAND-F)>

;"RMUNGBIT = in i-bad-luck other line has kicked into gear"

<ROUTINE CON-STAND-F ()
	 <COND (<VERB? EXAMINE>
		<TELL
"It's just a ramshackle little stand, apparently staffed by ramshackle
little people from the looks of the service everyone is getting." CR>) 
	       (<AND <VERB? WALK-TO THROUGH ENTER BOARD>
		     <EQUAL? ,HERE ,CON-AREA>
		     ,DREAMING>
		<COND (<EQUAL? <LOC ,PROTAGONIST> ,LONG ,SHORT>
		       <OUT-OF-FIRST <LOC ,PROTAGONIST>>)
	              (T
		       <TELL
"You pass through a gauntlet of angry side-glances, outright dirty looks
and verbal abuse. The concessionaire -- \"Okay who's next?\" -- serves
somebody else and you walk back against a stream of sadistic sneers." CR>)>)>>

<OBJECT CONCESSIONAIRE
	(IN LOCAL-GLOBALS)
	(DESC "concessionaire")
	(SYNONYM CONCES)
	;(ADJECTIVE CONCES)
	(FLAGS NDESCBIT)
	(ACTION CONCESSIONAIRE-F)>

<ROUTINE CONCESSIONAIRE-F ()
	 <COND (<OR <TALKING-TO? ,CONCESSIONAIRE>
		    <VERB? BUY>>
		<TELL 
"You're not close enough to the " D ,CONCESSIONAIRE "." CR>
		<STOP>)
	       (<AND <VERB? WALK-TO>
		     <EQUAL? ,HERE ,CON-AREA>
		     ,DREAMING>
		<PERFORM ,V?WALK-TO ,CON-STAND>
	        <RTRUE>)>>

<OBJECT FOUNTAIN
	(IN CON-AREA)
	(DESC "drinking fountain")
	(SYNONYM FOUNTAIN ;DRAIN SPOUT)
	(ADJECTIVE DRINKING)
	(FLAGS NDESCBIT)
	(ACTION FOUNTAIN-F)>

<ROUTINE FOUNTAIN-F ()
	 <COND (<VERB? EXAMINE>
		<TELL
"It's your standard " D ,FOUNTAIN ", with a button next to the spout." CR>)
	       (<VERB? DRINK-FROM>
		<PERFORM ,V?PUSH ,BUTTON>
		<RTRUE>)>>

<OBJECT BUTTON
	(IN CON-AREA)
	(DESC "button")
	(SYNONYM BUTTON)
	(FLAGS NDESCBIT)
	(ACTION BUTTON-F)>

<ROUTINE BUTTON-F ()
	 <COND (<AND <EQUAL? <LOC ,PROTAGONIST> ,LONG ,SHORT>
		     <TOUCHING? ,BUTTON>>
		<OUT-OF-FIRST <LOC ,PROTAGONIST>>)
	       (<VERB? PUSH>		
	        <COND (<RUNNING? ,I-BOOST>
		       <COND (<EQUAL? ,BOOST-COUNTER 3>
			      <SETG HELPED-THUMB T>
			      <THUMB-DRINKS>
			      <BOOST-EXIT>)
			     (T
			      <TELL "Somebody else is ahead of you." CR>)>)
		      (<PROB 50>
		       <TELL 
"A jet of water hits you square in the eye." CR>)
		      (T
		       <TELL
"The sip of water is refreshing on this hot night." CR>)>)>>

<OBJECT GLOBAL-WATER
	(IN GLOBAL-OBJECTS)
	(DESC "water")
	(SYNONYM DRINK WATER)
	(FLAGS NDESCBIT)
	(ACTION GLOBAL-WATER-F)>

<ROUTINE GLOBAL-WATER-F ()
	 <COND (<EQUAL? ,HERE ,CON-AREA>
		<COND (<VERB? TAKE DRINK TASTE>
		       <PERFORM ,V?PUSH ,BUTTON>
		       <RTRUE>)
		      (T
		       <RFALSE>)>)
	       (T
	        <CANT-SEE ,GLOBAL-WATER>)>>

<ROOM BACK-YARD
      (IN ROOMS)
      (DESC "Back Yard")
      (NORTH TO BESIDE-BIGTOP)
      (SOUTH PER TURNSTILE-EXIT)
      (EAST TO NEAR-WAGON)
      (WEST TO PROP-ROOM)
      (NE TO CON-AREA)
      (FLAGS ONBIT RLANDBIT)
      (GLOBAL TURNSTILE TENT FENCE)
      (ACTION BACK-YARD-F)>

<ROUTINE BACK-YARD-F (RARG)
	 <COND (<EQUAL? .RARG ,M-LOOK>
		<TELL 
"You're standing in front of the " D ,TURNSTILE " entrance to a fenced-in
area, which is south. To the west stands a droopy tent, and the field
continues north and east." CR>)
	       (<AND <EQUAL? .RARG ,M-ENTER>
		     <ZERO? ,CLOWN-EXIT-COUNTER>
		     <NOT <RUNNING? ,I-BOOST>>
		     <NOT <FSET? ,BURNED-CAGE ,RMUNGBIT>>>
		<FSET ,BURNED-CAGE ,RMUNGBIT>
		<MOVE ,JOEY ,BACK-YARD>
		;<MOVE ,THUMB ,BACK-YARD> ;"in i-clown-exit"
		<MOVE ,FLOWER ,THUMB>
		<ENABLE <QUEUE I-CLOWN-EXIT -1>>)
	       (<EQUAL? .RARG ,M-BEG>
		<COND (<AND <NOT <RUNNING? ,I-CLOWN-EXIT>>
			    <CANT-WALK?>>
		       <RTRUE>)
		      (<AND <RUNNING? ,I-CLOWN-EXIT>
		     	    <VERB? WALK>
		     	    <HELD? ,THUMB>>
		       <SETG CLOWN-EXIT-COUNTER 7>
		       <TELL 
"The midget becomes restless in your arms, halting your stroll." CR>)>)
	       (<AND <EQUAL? .RARG ,M-END>
		     <AND ,CLOWN-ALLEY-SCENE>
		     <NOT <FSET? ,BURNED-CAGE ,TOUCHBIT>>>
		<FSET ,BURNED-CAGE ,TOUCHBIT>
		<TELL CR ,GUARD-CALLS
"\"You're still around kicking sawdust, huh? Let me give a tip: Be careful,
there's no telling what, or who, could be lurking around the lot here at
night.\"" CR>)
	       (<AND <EQUAL? .RARG ,M-END>
		     <IN? ,GIRL ,PROTAGONIST>
		     <NOT ,GUARD-KNEW>>
		<SETG GUARD-KNEW T>
		<TELL CR 
,GUARD-CALLS "\"Nice going, towner. It just shows you what can be accomplished
when you start out the evening with a little " D ,HELIUM ", eh?" CR>)>>
		     
<GLOBAL GUARD-KNEW <>>

<GLOBAL CLOWN-EXIT-COUNTER 0> ;"REMEMBER, adds one at begin. of INT"

<GLOBAL THUMB-THRU <>>

<ROUTINE I-CLOWN-EXIT ("AUX" (NOT-HOLDING <>))
	 <COND (<NOT <HELD? ,THUMB>>	
		<SET NOT-HOLDING T>)>
	 <SETG CLOWN-EXIT-COUNTER <+ 1 ,CLOWN-EXIT-COUNTER>>
	 <COND (<NOT <EQUAL? ,HERE ,BACK-YARD>>
		<SETG CLOWN-EXIT-COUNTER 8>)>
	 <COND (<EQUAL? ,CLOWN-EXIT-COUNTER 1>
		<MOVE ,THUMB ,BACK-YARD>
	        <RTRUE>)
	       (<EQUAL? ,CLOWN-EXIT-COUNTER 2>
	        <MOVE ,JOEY ,CLOWN-ALLEY>
		<SETG FOLLOW-FLAG 2>
		<ENABLE <QUEUE I-FOLLOW 2>>
		<COND (<NOT ,HELPED-THUMB>
		       <SETG CLOWN-EXIT-COUNTER 7>)>
	        ;<MOVE ,GUARD ,BACK-YARD>
		<TELL CR 
"The tall clown, whom you now recognize as Chuckles, barks a hello into the
cage. You hear an electronic buzz from the " D ,TURNSTILE " and Chuckles passes
through.">)
	       (<AND <EQUAL? ,CLOWN-EXIT-COUNTER 3>
		     .NOT-HOLDING>
		<TELL CR
D ,THUMB " performs an impromptu handstand.">)
	       (<AND <EQUAL? ,CLOWN-EXIT-COUNTER 4>
		     .NOT-HOLDING>
		<TELL CR 
D ,THUMB " belts out a few verses of a Russian folk song in his high-pitched,
squeaky voice while standing on his head.">)
	       (<AND <EQUAL? ,CLOWN-EXIT-COUNTER 5>
		     .NOT-HOLDING>
		<TELL CR 
"The midget performer does several cartwheels in a figure-eight pattern around
the grass field.">)
	       (<AND <EQUAL? ,CLOWN-EXIT-COUNTER 6>
		     .NOT-HOLDING>
		<TELL CR 
"In front of you, " D ,THUMB " terminates his acrobatics on one knee with
a grand gesture of his small arms.">) 
	       (<AND <EQUAL? ,CLOWN-EXIT-COUNTER 7>
		     .NOT-HOLDING>
		<TELL CR 
 D ,THUMB " is pausing to rest.">)
	       (<EQUAL? ,CLOWN-EXIT-COUNTER 8>
		<DISABLE <INT I-CLOWN-EXIT>>
		<COND (<EQUAL? ,HERE ,BACK-YARD>
		       <COND (<HELD? ,THUMB>
			      <TELL CR
"Wriggling out of your hold, ">)
			     (T
			      <CRLF>)>
	               <TELL
D ,THUMB ", in his squeaky and high-pitched voice, says \"Hello Harry\" toward
the " D ,BURNED-CAGE ". You hear a buzzing sound from the " D ,TURNSTILE " as
the midget reaches up to its lowest rung and passes through ..." CR>)>
		<SETG THUMB-THRU T>
		<DISABLE <INT I-TURNSTILE>>
		<FCLEAR ,THUMB ,NDESCBIT>
		<FCLEAR ,JOEY ,NDESCBIT>
		<SETG FOLLOW-FLAG 2>
		<ENABLE <QUEUE I-FOLLOW 2>>
	        <MOVE ,FLOWER ,LOCAL-GLOBALS>
		<MOVE ,THUMB ,CLOWN-ALLEY>
		<MOVE ,JOEY ,CLOWN-ALLEY>
		<RTRUE>)
	       (T
		<RFALSE>)>
	 <CRLF>>

<OBJECT CHUTE
	(IN BESIDE-BIGTOP)
	(DESC "barred passage")
	(SYNONYM PASSAGE CHUTE BAR BARS)
	(ADJECTIVE BARRED ;WILD ;ANIMAL)
	(DESCFCN CHUTE-DESC)
	(FLAGS CONTBIT OPENBIT TRANSBIT ;NDESCBIT)
	(CAPACITY 500)
	(CONTFCN IN-CHUTE)
	(GENERIC GEN-BAR)
	(ACTION CHUTE-F)>

<ROUTINE CHUTE-DESC ("OPTIONAL" X)
	 <TELL 
"About waist-high, a barred passage for wild animals extends several yards
out from the " D ,BIGTOP>
	 <COND (<IN? ,NIMROD ,CHUTE>		
		<COND (<NOT <IN? ,MEAT ,CHUTE>>
		       <TELL  
". The " D ,CHUTE " is being patrolled by two large ">
		       <COND (<NOT <FSET? ,GRATE ,OPENBIT>>
			      <TELL "and bewildered ">)>
		       <TELL "cats">)
		      (<IN? ,MEAT ,CHUTE>
		       <TELL 
". Inside the chute, Nimrod and Elsie are loudly digging their chops into
the " D ,MEAT>)>)>
	        <TELL ".">>

<ROUTINE CHUTE-F ("OPTIONAL" (RARG <>))
	 <COND (<VERB? EXAMINE LOOK-INSIDE>
		<COND (<AND <OR <IS-NOUN? ,W?BAR>
			        <IS-NOUN? ,W?BARS>>
			    <VERB? EXAMINE>>
		        <RFALSE>)
		      (<IN? ,ELSIE ,CHUTE>
		       <TELL "Two lions are ">
		       <COND (<IN? ,MEAT ,CHUTE>
			      <TELL "chomping on some meat inside">)
			     (T
			      <TELL "strolling the length of">)>
		       <TELL " the " D ,CHUTE>
		       <MOVE-LIONS ,DUMMY-OBJECT>
		       <COND (<IN? ,MEAT ,CHUTE>
			      <MOVE ,MEAT ,DUMMY-OBJECT>)>
		       <COND (<FIRST? ,CHUTE>
			      <TELL ", which also contains">
			      <PRINT-CONTENTS ,CHUTE>)>
		       <MOVE-LIONS ,CHUTE>
		       <COND (<IN? ,MEAT ,DUMMY-OBJECT>
			      <MOVE ,MEAT ,CHUTE>)>
		       <TELL ,PERIOD>)>)
	       (<VERB? BOARD THROUGH ENTER>
		<TELL-CLOSELY-SPACED T>)
	       (<VERB? FOLLOW>
		<TELL "It leads right into the " D ,BIGTOP "." CR>)
	      (<VERB? OPEN CLOSE>
	       <TELL "The rusty grate is inside the " D ,BIGTOP "." CR>)
	      (<VERB? WALK-AROUND>
	       <PERFORM ,V?LOOK-BEHIND ,CHUTE>
	       <RTRUE>)
	      (<AND <VERB? PUT>
		    <PRSI? ,CHUTE>>
		<COND (<PRSO? ,MOUSE ,BALLOON>
		       <RFALSE>)
		      (<AND <G? <GETP ,PRSO ,P?SIZE> 20>
			    <NOT <EQUAL? ,PRSO ,POLE>>>
		       <TELL-CLOSELY-SPACED>)		      
		      (T		       
		       <COND (<AND <PRSO? ,MEAT>
		     	           <FSET? ,GRATE ,OPENBIT>>
			      <ENABLE <QUEUE I-LION 2>>)>
		       <MOVE ,PRSO ,CHUTE>
		       <TELL "You slip">
		       <ARTICLE ,PRSO T>
		       <TELL " into the " D ,CHUTE "." CR>)>)
		(<AND <VERB? REACH-IN>
		      <IN? ,NIMROD ,CHUTE>>
		 <TELL "You'd">
		 <TELL-WITHDRAW-STUMP>)>>

<ROUTINE IN-CHUTE ()
	 <COND (<AND <VERB? TAKE MOVE RUB>
		     <EQUAL? ,HERE ,BESIDE-BIGTOP>>
		<COND (<IN? ,ELSIE ,CHUTE>
		       <TELL 
"If you reached into the " D ,CHUTE " you'd">
		       <TELL-WITHDRAW-STUMP T>)
	       	      (<AND <VERB? TAKE>
		            <PRSO? ,MEAT>
		            <FSET? ,GRATE ,OPENBIT>>
		       <CANT-REACH ,MEAT>)
	       	      ;(<AND <VERB? TAKE>
		     	    <G? <GETP ,PRSO ,P?SIZE> 20>
		     	    <NOT <EQUAL? ,PRSO ,POLE>>>
		       <TELL-CLOSELY-SPACED>)
		      (T
		       <RFALSE>)>)
	       (T
		<RFALSE>)>>

<ROUTINE TELL-WITHDRAW-STUMP ("OPTIONAL" (PRSO? <>))
	 <TELL 
" likely withdraw a stump instead of " D ,HANDS>
	 <COND (.PRSO?
		<TELL " or">
	 	<ARTICLE ,PRSO T>)>
	 <TELL ,PERIOD>>

<OBJECT GRATE
	(IN DEN)
	(DESC "rusty grate")
	(SYNONYM GRATE CHUTE PASSAGE)
	(ADJECTIVE SQUARE RUSTY)
	(FLAGS NDESCBIT DOORBIT)
	(ACTION GRATE-F)>

;"RMUNGBIT = have opened it once while lions feed in den - lions pivot around
	     their dinner"

<ROUTINE GRATE-F ()
	 <COND (<AND <VERB? PUT>
		     <PRSI? ,GRATE>>
		<COND (<PRSO? ,BALLOON>
		       <RFALSE>)
		      (<FSET? ,GRATE ,OPENBIT>
		       <MOVE ,PRSO ,CHUTE>
		       <TELL "You fling">
		       <ARTICLE ,PRSO T>
		       <TELL " into the darkness of the passage. ">
		       <COND (<PRSO? ,MOUSE>
			      <MOVE ,MOUSE ,LOCAL-GLOBALS>)
			     (<AND <IN? ,NIMROD ,DEN>
				   <PRSO? ,MEAT>>
			      <TELL ,LIONS-WAIT>)>
		       <CRLF>
		       <RTRUE>)
		      (T
		       <TELL "The " D ,GRATE " is closed." CR>)>)
	       (<OR <AND <NOT <FSET? ,GRATE ,OPENBIT>>
		         <VERB? OPEN RAISE PUSH>>
		    <AND <FSET? ,GRATE ,OPENBIT>
			 <VERB? CLOSE LOWER PUSH>>>
		<COND (<IN? ,ELSIE ,CHUTE>
		       <COND (<VERB? OPEN RAISE>
		       	      <JIGS-UP 2 
"With the force and brightness of a supernova, Nimrod's mane suddenly
bursts from the dark passage.">)
			     (T
			      <OPEN-GRATE>)>)		         
		      (<IN? ,MEAT ,HERE>
		       <COND (<FSET? ,GRATE ,RMUNGBIT>
			      <OPEN-GRATE>)
			     (T
			      <FSET ,GRATE ,RMUNGBIT>
			      <OPEN-GRATE T>)>)
		      (<EQUAL? ,ELSIE-COUNTER 0>
		       <TELL 
"Like sentries on guard, the pacing lions prevent this." CR>)
		      (<L? ,ELSIE-COUNTER 3>
	       	       <TELL 
"The " D ,ELSIE " is blocking access to the " D ,GRATE "." CR>)
		     (<NOT <HELD? ,STOOL>>
		      <TELL 
"You're unable to get close enough without the " D ,NIMROD " getting too close
to you." CR>)
		     (T
		      <TELL
"Using the stool as a barrier against the " D ,NIMROD ", you're able to reach
it. ">
		       	     <OPEN-GRATE>)>)
		(<VERB? LOOK-INSIDE EXAMINE>
		 <TELL "The ">
      		 <COND (<FSET? ,GRATE ,OPENBIT>
			<TELL "open">)
		       (T
			<TELL "closed">)>
		 <TELL 
" " D ,GRATE " leads to a passage going away from the round cage. "
,YOU-SEE " that it is empty up to the point where it extends outside of the
big top." CR>)
		(<AND <OR <TOUCHING? ,GRATE>
		          <VERB? WALK-TO BOARD THROUGH>>
		      <IN? ,ELSIE ,HERE>
		      <NOT <EQUAL? ,ELSIE-COUNTER 3>>
		      <NOT <IN? ,MEAT ,HERE>>
		      ;<NOT <HELD? ,STOOL>>>
		 <TELL "You can't get over to the grate." CR>
		 <RTRUE>)
	        (<VERB? BOARD THROUGH ENTER>
		 <COND (<FSET? ,GRATE ,OPENBIT>
		 	<TELL "That's dangerous and foolhardy." CR>)  
		       (T
			<TELL "The grate is closed." CR>)>
		 <RTRUE>)>>
					      
<ROUTINE OPEN-GRATE ("OPTIONAL" (EATING-MEAT? <>))
	 <COND (.EATING-MEAT?
		<TELL "The ">
		<COND (<ZERO? ,ELSIE-COUNTER>
		       <TELL "lions rotate">)
		      (T
		       <TELL D ,NIMROD " rotates">)>
		<TELL 
" around the lump of meat, continuing to feed while watching you. ">)>
	 <TELL "The " D ,GRATE " slides ">
         <COND (<VERB? OPEN RAISE>
	        <FSET ,GRATE ,OPENBIT>
		<TELL "up, jamming into place. ">
		<COND (<IN? ,MEAT ,CHUTE>
		       <TELL ,LIONS-WAIT>)>
		<CRLF>)
	       (T
		<FCLEAR ,GRATE ,OPENBIT>
	        <TELL "down to the " D ,GROUND "." CR>)>>

<ROOM BESIDE-BIGTOP
      (IN ROOMS)
      (DESC "Beside the Big Top")       
      (SOUTH TO BACK-YARD)
      (NORTH "You bump into the side wall of the big top.")
      (SE TO NEAR-WAGON)
      (EAST TO CON-AREA)
      (WEST "It's too dark and unfamiliar out there.")
      (FLAGS ONBIT RLANDBIT)
      (GLOBAL BIGTOP)
      (ACTION BESIDE-BIGTOP-F)>

<ROUTINE BESIDE-BIGTOP-F (RARG)
	 <COND (<EQUAL? .RARG ,M-LOOK>
		<TELL
"You're standing next to the " D ,BIGTOP ", which is gently flapping in the
warm breeze." CR>)>>

;"Wagon and office stuff"

<ROOM NEAR-WAGON
      (IN ROOMS)
      (DESC "Near White Wagon")
      (NORTH TO CON-AREA)
      (SOUTH PER EGRESS-EXIT)
      (OUT PER EGRESS-EXIT)
      (NW TO BESIDE-BIGTOP)
      (EAST TO OFFICE IF OFFICE-DOOR IS OPEN)
      (IN TO OFFICE IF OFFICE-DOOR IS OPEN)
      (WEST TO BACK-YARD)
      (NE PER FENCE-EXIT)
      (UP PER UP-LADDER)
      (GLOBAL OFFICE-DOOR BANNER FENCE WAGON LADDER)
      (FLAGS ONBIT RLANDBIT)
      (ACTION NEAR-WAGON-F)>

<ROUTINE NEAR-WAGON-F (RARG)
	 <COND (<EQUAL? .RARG ,M-LOOK>
		<TELL
"You are standing on a gentle upslope of the grassy field, next to a rather
imposing trailer whose door is ">
		<COND (<FSET? ,OFFICE-DOOR ,OPENBIT>
		       <TELL "open">)
		      (T
		       <TELL "closed">)>
		<TELL " to the east">
		<COND (<FSET? ,LADDER ,RMUNGBIT>
		       <TELL 
". Attached to the rear of the trailer is a step" D ,LADDER>)>
		<TELL
". In dark panorama, the field continues north and west -- and south, where
a large banner has been erected." CR>
		<COND (<FSET? ,LADDER ,RMUNGBIT>
		       <CRLF>
		       <TELL-BULL-HOLE>)>)
	       (<EQUAL? .RARG ,M-ENTER>
		<COND (<QUEUE-THUMB?>
		       <ENABLE <QUEUE I-THUMB 1>>)>
		<COND (<AND <IN? ,BULL ,LOCAL-GLOBALS>
			    <NOT <FSET? ,LADDER ,RMUNGBIT>>>
		       <TELL "Y">
		       <NOTICE-LADDER>)>)
 	       (<AND <EQUAL? .RARG ,M-BEG>
		     <IN? ,MUNRAB ,MEN>
		     <IN? ,GIRL ,PROTAGONIST>
		     <VERB? WALK>
		     <NOT <EQUAL? ,P-WALK-DIR ,P?NE>>>
		<DONT-WALK ,GIRL>)>>
		   
<ROUTINE NOTICE-LADDER ()
	 <FSET ,LADDER ,RMUNGBIT>
	 <TELL 
"ou come to the " D ,WAGON " and notice a stepladder attached to its rear."
CR CR>>

<GLOBAL EGRESS-C 0>
;<GLOBAL KNOW-EGRESS <>>

<ROUTINE EGRESS-EXIT ()
	 <SETG EGRESS-C <+ ,EGRESS-C 1>>
	 <COND (<EQUAL? ,EGRESS-C 1>
		<SETG AWAITING-REPLY 10>
		<ENABLE <QUEUE I-ARGUMENT 2>>
		<TELL 
"Are you sure you're mentally and otherwise prepared to meet up with
an " D ,EGRESS "?" CR>  
		<RFALSE>)
	       (<EQUAL? ,EGRESS-C 2>
		<SETG AWAITING-REPLY 11>
		<ENABLE <QUEUE I-ARGUMENT 2>>
		<TELL 
"Then you're fully aware of the ferociousness of this rare mammalian species,
right?" CR>
		<RFALSE>)
	       (<EQUAL? ,EGRESS-C 3>
		<DISABLE <INT I-ARGUMENT>>
		<SETG AWAITING-REPLY 12>
		<ENABLE <QUEUE I-REPLY 2>>
		<TELL
"Alright, so you know all about " D ,EGRESS "es. But do you really want to
leave the circus in all of its mystery and all of its pageantry behind?" CR>
		<RFALSE>)
	       (<G? ,EGRESS-C 3>
		<DISABLE <INT I-ARGUMENT>>
		<SETG AWAITING-REPLY <>>
		<FINISH>)>>

<ROUTINE I-ARGUMENT ()
	 <COND (<OR <EQUAL? ,P-WALK-DIR ,P?SOUTH>
		    <AND <EQUAL? ,AWAITING-REPLY 10>
			 <VERB? YES>>
		    <AND <EQUAL? ,AWAITING-REPLY 11>
			 <VERB? NO>>>
		<RTRUE>)
	       (T
		<SETG AWAITING-REPLY <>>
	 	<SETG EGRESS-C 0>)>>

<ROUTINE TELL-BULL-HOLE ()
	 <TELL 
"There is an elephant-sized hole in the fence to the ">
	 <COND (<EQUAL? ,HERE ,MEN>
		<TELL "southwest">)
	       (T
		<TELL "northeast">)>
	<TELL ,PERIOD>>

<ROOM ON-WAGON
      (IN ROOMS)
      (DESC "On the Wagon")
      (DOWN PER DOWN-WAGON)
      (IN PER IN-PANEL)
      (FLAGS ONBIT RLANDBIT)
      ;(PSEUDO "CRANK" CRANK-PSEUDO)
      (GLOBAL PANEL LADDER OFFICE-DOOR WAGON OFFICE-OBJECT)
      (GROUND-LOC NEAR-WAGON)
      (ACTION ON-WAGON-F)>

<ROUTINE ON-WAGON-F (RARG)
	 <COND (<EQUAL? .RARG ,M-LOOK>
		<TELL 
"You are on the wagon, a condition in which you're not likely to find the
detective. The aluminum roofing gives way slightly underfoot. You observe a "
D ,PANEL>
		<COND (<FSET? ,PANEL ,OPENBIT>
		       <TELL ", which is open">)>
		<TELL ", and next to it, a kind of crank." CR>)
	       (<EQUAL? .RARG ,M-ENTER>
		<FCLEAR ,OFFICE-DOOR ,RMUNGBIT>
	        <COND (<NOT <FSET? ,ON-WAGON ,TOUCHBIT>>  ;"door opens,closes"
	               <ENABLE <QUEUE I-OFFICE 1>>)>)
	       (<AND <EQUAL? .RARG ,M-BEG>
		     <IN? ,MUNRAB ,HERE>
		     <FSET? ,PANEL ,OPENBIT>
		     <OR <AND <VERB? LEAP>
			      <NOT ,PRSO>>
		    	 <AND <VERB? LEAP KICK KILL ;KNOCK>
		    	      <PRSO? ,WAGON>>>>
		<TELL 
D ,MUNRAB " must have pretty bad hearing, since he doesn't seem to
notice the noise coming from the roof." CR>)>>

<ROUTINE IN-PANEL ()
	 <COND (<NOT <FSET? ,PANEL ,OPENBIT>>
		<TELL "The " D ,PANEL " is closed." CR>
		<RFALSE>)
	       (<IN? ,MUNRAB ,ON-WAGON>
	        <TELL 
"Aghast by your dropping in on him like this, " D ,MUNRAB>
		<JIGS-UP 3  
" grabs the nearest weapon-like object, which happens to be a gold-plated
letter opener, and goes for the throat.">
		<RFALSE>)
	       ;(<G? <WEIGHT ,PROTAGONIST> 20>
		<TELL 
"It's too tight a squeeze with what you're carrying." CR>
		<RFALSE>)	        
	       (T
		<TELL "You wriggle through the panel opening." CR CR>
		<RETURN ,OFFICE>)>>

<OBJECT WAGON
	(IN LOCAL-GLOBALS)
	(DESC "white wagon")
	(SYNONYM WAGON TRAILER LOGO)
	(ADJECTIVE WHITE)
	(FLAGS NDESCBIT)
	(ACTION WAGON-F)>

<ROUTINE WAGON-F ()
	 <COND (<AND <VERB? EXAMINE READ>
		     <EQUAL? ,HERE ,NEAR-WAGON>>
		<TELL
"The familiar logo for \"The Travelling Circus That Time Forgot, Inc.\" is
emblazoned across the long side of the " D ,WAGON>
	        <COND (<IS-NOUN? ,W?LOGO>
		       <TELL ,PERIOD>
		       <RTRUE>)>
		<TELL ". The ">
		<OPEN-CLOSED ,OFFICE-DOOR>
		<TELL " " D ,OFFICE-DOOR " is at the east">
		<COND (<FSET? ,LADDER ,RMUNGBIT>
		       <TELL ", and there's">
		       <TELL-LADDER>)>
		<TELL ,PERIOD>)
	       (<AND <VERB? LOOK-INSIDE>
		     <EQUAL? ,HERE ,ON-WAGON>>
		<PERFORM ,V?LOOK-INSIDE ,PANEL>
		<RTRUE>)
	       (<VERB? PUT>
		<COND (<AND <FSET? ,PANEL ,OPENBIT>
			    <IN? ,MUNRAB ,ON-WAGON>>
		       <STARTLE-MUNRAB>)
		      (T
		       <V-DIG>)>)
	       (<VERB? PUT-ON>
		<COND (<EQUAL? ,HERE ,ON-WAGON>
		       <PERFORM ,V?DROP ,PRSO>
		       <RTRUE>)
		      (T
		       <V-DIG>)>)
	       (<VERB? WALK-AROUND LOOK-BEHIND>
		<COND (<FSET? ,LADDER ,RMUNGBIT>
		       <TELL "You see">
		       <TELL-LADDER>)
		      (T
		       <TELL "A " D ,FENCE " prevents this">)>
		 <TELL ,PERIOD>)
	       (<VERB? KNOCK>
		<PERFORM ,V?KNOCK ,OFFICE-DOOR>
		<RTRUE>)
	       (<VERB? WALK-TO THROUGH ENTER BOARD>
		<COND (<EQUAL? ,HERE ,ON-WAGON ,NEAR-WAGON>
		       <DO-WALK ,P?IN>)
		      (<EQUAL? ,HERE ,OFFICE>
		       <TELL ,LOOK-AROUND CR>)>)
	       (<VERB? DISEMBARK>
		<COND (<EQUAL? ,HERE ,ON-WAGON>
		       <PERFORM ,V?CLIMB-DOWN ,LADDER>
		       <RTRUE>)
		      (<EQUAL? ,HERE ,OFFICE>
		       <DO-WALK ,P?UP>)>)
	       (<AND <VERB? CLIMB-UP CLIMB-FOO CLIMB-ON>
		     <FSET? ,LADDER ,RMUNGBIT>>
		<DO-WALK ,P?UP>)
	       (<AND <VERB? LOOK-UNDER>
		     <NOT <FSET? ,POLE ,TOUCHBIT>>
		     <IN? ,POLE ,HERE>>
		<TELL <GETP ,POLE ,P?FDESC> CR>
		<RTRUE>)>> 

<ROUTINE TELL-LADDER ()
	 <TELL " a narrow ladder attached to the back of the wagon">>

<ROUTINE DOWN-WAGON ()
	 <COND (<FSET? ,PANEL ,OPENBIT>
		<TELL 
"[Do you want to climb down the ladder or climb in through the opening? Type
CLIMB DOWN LADDER or IN.]" CR>
		<SETG CLOCK-WAIT T>
		<RFALSE>)
	       (T
		<DOWN-LADDER>)>>

<OBJECT CRANK
	(IN ON-WAGON)
	(DESC "crank")
	(SYNONYM CRANK)
	(FLAGS NDESCBIT)
	(ACTION CRANK-F)>

<ROUTINE CRANK-F ()
	 <COND (<AND <VERB? SET>
		     <NOT ,PRSI>>
		<TELL 
"The crank is rotated ">
		<COND (<FSET? ,PANEL ,RMUNGBIT>
		       <TELL "but the " D ,PANEL " doesn't open.">)
		      (T			
		       <TELL "and the " D ,PANEL " gradually slides ">
		       <COND (<FSET? ,PANEL ,OPENBIT>
		       	      <FCLEAR ,PANEL ,OPENBIT>
		       	      <TELL "closed.">)
		      	     (T
		       	      <FSET ,PANEL ,OPENBIT>
		       	      <TELL "open.">)>)>
		<CRLF>)>>

<OBJECT PANEL
	(IN LOCAL-GLOBALS)
	(DESC "square aluminum panel")
	(SYNONYM PANEL OPENING)
	(ADJECTIVE ALUMINUM SQUARE)
	(FLAGS NDESCBIT DOORBIT)
	(ACTION PANEL-F)>

<ROUTINE PANEL-F ()           ;"The open-close shit only for testing in Zil"
	 <COND (<VERB? CLIMB-DOWN THROUGH BOARD>
		<DO-WALK ,P?IN>)
	       (<VERB? LOOK-INSIDE>
		<COND (<OR <NOT <FSET? ,PANEL ,OPENBIT>>
			   <EQUAL? ,HERE ,OFFICE>>
		       <PERFORM ,V?EXAMINE ,PANEL>
		       <RTRUE>)
		      (T
		       <TELL ,YOU-SEE>
		       <COND (<IN? ,MUNRAB ,ON-WAGON>
			      <TELL 
" the top view of " D ,MUNRAB "'s schlock of silvery blow-dried hair. He
is busy at his desk.">)
			     (T
			      <TELL " an unoccupied office.">)>
		       <CRLF>)>)
	       (<AND <VERB? PUT PUT-ON>
		     <PRSI? ,PANEL>>
		<V-DIG>)
	       (<OR <AND <VERB? OPEN>
			 <NOT <FSET? ,PANEL ,OPENBIT>>>
		    <AND <VERB? CLOSE>
			 <FSET? ,PANEL ,OPENBIT>>>
		<COND (<EQUAL? ,HERE ,OFFICE>
		       <CANT-SEE <> "the crank">)
		      (T
		       <PERFORM ,V?SET ,CRANK>
		       <RTRUE>)>)>>

<ROOM OFFICE
      (IN ROOMS)
      (DESC "Office")
      (UP PER UP-OFFICE)
      (WEST TO NEAR-WAGON IF OFFICE-DOOR IS OPEN)
      (OUT TO NEAR-WAGON IF OFFICE-DOOR IS OPEN)
      (FLAGS ONBIT RLANDBIT INDOORSBIT)
      (GLOBAL PANEL OFFICE-DOOR WAGON OFFICE-OBJECT)
      (PSEUDO "MEMOS" MEMOS-F "MEMO" MEMOS-F)
      (ACTION OFFICE-F)>
		
<ROUTINE OFFICE-F (RARG)
	 <COND (<EQUAL? .RARG ,M-LOOK>
		<TELL
"This is " D ,MUNRAB "'s plush inner sanctum, containing all the furnishings
of the well-appointed, modern office -- including a shiny, expansive " D ,DESK 
". Along one " D ,WALLS ", below some framed sheepskin, runs a " D ,BOOKS ".|
|
The ">
	        <COND (<FSET? ,OFFICE-DOOR ,OPENBIT>
		       <TELL "open">)
		      (T
		       <TELL "closed">)>
		<TELL 
" " D ,OFFICE-DOOR " on the west wall appears lockable without a key." CR>)
	       (<AND <EQUAL? .RARG ,M-ENTER>
		     <NOT <FSET? ,OFFICE ,TOUCHBIT>>>
		<SETG SCORE <+ ,SCORE 10>>
		<RFALSE>)>>

<OBJECT SHEET
	(IN DESK)
	(DESC "spreadsheet")
	(SYNONYM SPREADSHEET SHEET PRINTOUT)	
	(ADJECTIVE COMPUTER)
	(FLAGS ;NDESCBIT TAKEBIT)
	(ACTION SHEET-F)>

;"RMUNGBIT = Clown knows about "

<GLOBAL SEEN-SHEET <>> ;"player has seen sheet"

<ROUTINE SHEET-F ()
	 <COND (<VERB? READ EXAMINE>
		<SETG SEEN-SHEET T>
	        <TELL
"The spreadsheet shows lists of declining numbers which appear to be the
salary of one performer named Eddie Smaldone." CR>)>>

<OBJECT PHONE
	(IN DESK)
	(DESC "telephone")
	(SYNONYM TELEPH PHONE)
	(FLAGS ;NDESCBIT TRYTAKEBIT TAKEBIT)
	(ACTION PHONE-F)>

<ROUTINE PHONE-F ()
	 <COND (<VERB? REPLY>
		<TELL "The ringing is only in your ears." CR>)
	       (<VERB? TAKE>
		<TELL "You hear a dial tone." CR>)
	       (<VERB? HANG-UP DROP>
		<TELL "Slam!" CR>)>>
 
<OBJECT POLICE
	(IN GLOBAL-OBJECTS)
	(DESC "police")
	(SYNONYM POLICE COPS STATION)
	(ADJECTVIE POLICE)
	(FLAGS NDESCBIT)
	(ACTION POLICE-F)>

<ROUTINE POLICE-F ()
	 <COND (<DONT-HANDLE? ,POLICE>
		<RFALSE>)
	       (T
		<CANT-SEE ,POLICE>)>>

<OBJECT FENCE 
	(IN LOCAL-GLOBALS)
	(DESC "chain link fence")
	(SYNONYM FENCE HOLE)
	(ADJECTIVE CHAIN LINK ;ELEPHANT)
	(FLAGS NDESCBIT)
	(ACTION FENCE-F)>

<ROUTINE FENCE-F ()
	 <COND (<AND <IN? ,BULL ,MEN>
		     <IS-NOUN? ,W?HOLE>>
		<CANT-SEE <> "the hole">)
	       (<AND <VERB? EXAMINE>
		     <NOT <IN? ,BULL ,MEN>>
		     <EQUAL? ,HERE ,MEN ,NEAR-WAGON>>
		<TELL-BULL-HOLE>)
	       (<VERB? CLIMB-UP CLIMB-FOO CLIMB-ON CLIMB-OVER>
	 	<TELL
"Though hastily constructed, the " D ,FENCE " succeeds as a barrier." CR>)     
	       (<VERB? THROUGH WALK-TO ENTER>
		<COND (<EQUAL? ,HERE ,MEN>
		       <DO-WALK ,P?SW>)
		      (<EQUAL? ,HERE ,NEAR-WAGON>
		       <DO-WALK ,P?NE>)>)>>

<OBJECT EDDIE 
	(IN GLOBAL-OBJECTS)
	(DESC "Eddie Smaldone")
	(SYNONYM EDDIE SMALDO MAN)
	(ADJECTIVE EDDIE ED)
	(FLAGS NDESCBIT NARTICLEBIT ACTORBIT PERSON)
	(ACTION EDDIE-F)>

;"Eddie Rmungbit = Player knows (from guard) the ID of this name"

<GLOBAL JOEY-NAME-KNOWN <>>

<ROUTINE EDDIE-F ()
	 <COND (<AND <DONT-HANDLE? ,EDDIE>
		     <NOT <EQUAL? ,PRSA ,V?FOLLOW>>>
		<RFALSE>)
	       (<VERB? FOLLOW>
		<COND (<EQUAL? ,FOLLOW-FLAG 2>
		       <DO-WALK ,P?SOUTH>)
		      (<EQUAL? ,FOLLOW-FLAG 3>
		       <DO-WALK ,P?WEST>)
	              (<EQUAL? ,FOLLOW-FLAG 4>
		       <DO-WALK ,P?EAST>)>)
	       (<NOT <FSET? ,EDDIE ,RMUNGBIT>>
		<TELL "You don't know anyone here by that name." CR>
		<RFATAL>)
	       (<NOT <IN? ,JOEY ,HERE>>
		<CANT-SEE ,EDDIE>)
	       (<TALKING-TO? ,EDDIE>
		<COND (,JOEY-NAME-KNOWN
		       <COND (<AND <NOT ,WON-JOEY>
				   <JOEY-SCARED?>>
			      <RFATAL>)>
		       <TELL "To your words " D ,JOEY " responds not." CR>
		       <STOP>)
		      (T
		       <SETG JOEY-NAME-KNOWN T>
		       <SETG SCARE-NUMBER <+ ,SCARE-NUMBER 1>>
		       <COND (<AND <NOT ,WON-JOEY>
			      	   <JOEY-SCARED?>>
			      <RFATAL>)>
		       <TELL 
D ,JOEY " snorts at the sound of the name and continues wiping the "
D ,TAMER-TRAILER "." CR>
		       <STOP>)>)
	       (T
		<SETG JOEY-NAME-KNOWN T>
		<COND (<AND <NOT ,WON-JOEY>
			    <JOEY-SCARED?>>
		       <RFATAL>)
	       	      (T
		       <JOEY-F>)>)>>

<ROUTINE DONT-HANDLE? (PERSON) ;"or thing"
	 <COND (<AND <EQUAL? .PERSON ,PRSO>
		     <VERB? FIND FOLLOW WHAT WHERE WALK-TO CALL PHONE 
			    PHONE-WITH>>
		<RTRUE>)
	       (<AND <EQUAL? .PERSON ,PRSI>
		     <VERB? ASK-ABOUT TELL-ABOUT ASK-FOR>>
		<RTRUE>)>>

<ROUTINE MEMOS-F ()
	 <COND (<VERB? SEARCH MOVE LOOK-UNDER PUSH>
		<TELL "This reveals nothing new." CR>)
	       (<VERB? READ EXAMINE>
		<TELL 
"The handwriting is frantic and mostly illegible. From what you can make out,
the memos, all dated before today, contain threats and expressions of rage
from " D ,MUNRAB " toward most of his circus employees." CR>)   
	       (<VERB? TAKE>
		<ENABLE <QUEUE I-REPLY 2>>
		<SETG AWAITING-REPLY 4>
		<TELL "You? Take a memo?" CR>)>>

<GLOBAL OFFICE-C 0>

<ROUTINE I-OFFICE ()
	 <COND (<FSET? ,OFFICE-DOOR ,RMUNGBIT>
		<FCLEAR ,OFFICE-DOOR ,RMUNGBIT>
		<RFALSE>)>
	 <SETG OFFICE-C <+ ,OFFICE-C 1>>
	 <COND (<EQUAL? ,OFFICE-C 1>
		<TELL CR 
"Below you, the " D ,OFFICE-DOOR " swings open and then closed." CR>)
	       (<EQUAL? ,OFFICE-C 4>
		<COND (<EQUAL? ,HERE ,OFFICE>
		       <COND (<AND <VERB? OPEN>
				   <PRSO? ,OFFICE-DOOR>>
			      <TELL "You hesitate as you ">)
			     (T
		       	      <TELL CR "You ">)>
		       <TELL 
"hear footsteps and hushed voices approaching the wagon." CR>)
		      (T
		       <MUNRAB-ENTERS-OFFICE>)>) ;"can only be on-wagon?" 
	       (<G? ,OFFICE-C 4>
		<COND (<EQUAL? ,HERE ,OFFICE>
		       <COND (<OR <EQUAL? ,OFFICE-C 12>
				  <NOT <FSET? ,OFFICE-DOOR ,LOCKEDBIT>>>
			      <BARGE-OFFICE>
			      <RTRUE>)
		             (<OR <EQUAL? ,OFFICE-C 5 7 9>
				  <EQUAL? ,OFFICE-C 11>>
		       	      <TELL CR "You can hear someone outside ">
			      <COND (<NOT <EQUAL? ,OFFICE-C 5>>
				     <TELL "still ">)>
			      <TELL "trying to force open the door." CR>)>)
		      (T
	               <MUNRAB-ENTERS-OFFICE>
		       <RTRUE>)>)>>

<ROUTINE MUNRAB-ENTERS-OFFICE ("OPTIONAL" (DOWN-LADDER? <>))
	<DISABLE <INT I-OFFICE>>
	<MOVE ,MUNRAB ,OFFICE>
	<FSET ,OFFICE-DOOR ,LOCKEDBIT>
	<FCLEAR ,DESK ,RMUNGBIT>
	<FSET ,PANEL ,RMUNGBIT>
	<COND (.DOWN-LADDER?
	       <TELL
D ,MUNRAB " reappears out of the darkness and quickly enters the " D ,WAGON 
" just as you scramble down the ladder." CR CR>
	       <FCLEAR ,PANEL ,OPENBIT>
	       <RTRUE>)
	      (T
	       <TELL CR
"You can hear someone, presumably " D ,MUNRAB ", barge into the office">
	       <COND (<FSET? ,PANEL ,OPENBIT>
	       	      <TELL 
". By remote control he slides the " D ,PANEL " closed">)>
	       <FCLEAR ,PANEL ,OPENBIT>
	       <TELL ,PERIOD>)>>

<ROUTINE BARGE-OFFICE ()
	 <TELL CR 
D ,MUNRAB " suddenly barges into the office; he's shakily gripping a small
caliber pistol. ">
	 <JIGS-UP 5 "A shot rings out.">>

<OBJECT OFFICE-DOOR
	(IN LOCAL-GLOBALS)
	(DESC "office door")
	(SYNONYM DOOR LOCK)
	(ADJECTIVE OFFICE)
	(FLAGS NDESCBIT DOORBIT LOCKEDBIT VOWELBIT)
	(ACTION OFFICE-DOOR-F)>

<ROUTINE OFFICE-DOOR-F ()
	 <COND (<AND <VERB? EXAMINE>
		     <EQUAL? ,HERE ,OFFICE>>
		<TELL "It is lockable from this side." CR>)
	       (<AND <VERB? OPEN LOCK UNLOCK>
		     <EQUAL? ,HERE ,ON-WAGON>>
		<NO-POSITION>
		<RTRUE>)
	      (<AND <VERB? OPEN>     ;"You hesitate - handled by I-OFFICE"
		    <NOT <FSET? ,OFFICE-DOOR ,LOCKEDBIT>>
		    <EQUAL? ,HERE ,OFFICE>
		    <RUNNING? ,I-OFFICE>
		    <L? ,OFFICE-C 4>>
	       <SETG OFFICE-C 3>
	       <RTRUE>)                 
	      ;(<AND <VERB? OPEN UNLOCK> ;"In I-OFFICE if door is unlocked" 
		    <G? ,OFFICE-C 5>
		    <RUNNING? ,I-OFFICE>>
	       <BARGE-OFFICE>)
	      ;(<AND <VERB? LOCK UNLOCK>
		     <NOT <EQUAL? ,HERE ,OFFICE>>> 
		<PRE-LOCK>)
	       (<VERB? KNOCK>
		<COND (<FSET? ,OFFICE ,TOUCHBIT>
		           ;<AND <EQUAL? ,HERE ,NEAR-WAGON>
				<FSET? ,OFFICE-DOOR ,RMUNGBIT>>
		       <RFALSE>)
		      (<IN? ,MUNRAB ,ON-WAGON>
		       <COND (<EQUAL? ,HERE ,ON-WAGON>
		       	      <FCLEAR ,OFFICE-DOOR ,LOCKEDBIT>
		       	      <MOVE ,MUNRAB ,LOCAL-GLOBALS>
		       	      <ENABLE <QUEUE I-OFFICE -1>>
		       	      <TELL
"Below you "D ,MUNRAB " very cautiously steps outside and begins poking around,
closing the door behind him. He wanders into the darkness." CR>)
		       	     (<NOT <FSET? ,OFFICE-DOOR ,RMUNGBIT>>
			      <FSET ,OFFICE-DOOR ,RMUNGBIT>
		              <ENABLE <QUEUE I-OFFICE 4>>
		              <TELL 
D ,MUNRAB " pops his head out of his office, scowls at you for a moment,
then withdraws, shutting the door." CR>)>)>)>>

<ROUTINE CLIMB-PANEL ()
	 <TELL
"You climb onto the desk, and hoist yourself through the panel opening."CR CR>>

<GLOBAL NOT-REACH " able to reach the opening">

<ROUTINE UP-OFFICE ()
	 <COND (<FSET? ,DESK ,RMUNGBIT>
		<SETG OFFICE-C 5>     ;"this move munrab enters in I-OFFICE"
		<CLIMB-PANEL>
		<RETURN ,ON-WAGON>)
	       (,END-GAME
		<V-DIG>
		<RFALSE>)
	       (T
		<TELL "You're not" ,NOT-REACH "." CR>
		<RFALSE>)>>

<OBJECT OFFICE-OBJECT
	(IN LOCAL-GLOBALS)
	(DESC "office")
	(SYNONYM OFFICE)
	(ADJECTIVE MUNRAB)
	(FLAGS NDESCBIT VOWELBIT)
	(ACTION OFFICE-OBJECT-F)>

<ROUTINE OFFICE-OBJECT-F ()
	 <COND (<AND <EQUAL? ,HERE ,ON-WAGON>
		     <NOT <FSET? ,PANEL ,OPENBIT>>>
		<PERFORM ,V?EXAMINE ,PANEL>
		<RTRUE>)
	       (<AND <VERB? LOCK UNLOCK OPEN CLOSE>
		     <PRSO? ,OFFICE-OBJECT>
		     <EQUAL? ,HERE ,OFFICE>>
		<PERFORM ,PRSA ,OFFICE-DOOR ,PRSI>
		<RTRUE>)
	       (<AND <VERB? LOOK-INSIDE>
		     <EQUAL? ,HERE ,ON-WAGON>>
		<PERFORM ,V?LOOK-INSIDE ,PANEL>
		<RTRUE>)
	       (<AND <EQUAL? ,HERE ,OFFICE>
		     <VERB? DISEMBARK>>
		<DO-WALK ,P?UP>)
	       (<EQUAL? ,HERE ,OFFICE>
		<GLOBAL-ROOM-F>)>>
		
<OBJECT DESK
	(IN OFFICE)
	(DESC "cherry-hardwood desk")
	(SYNONYM DESK DRAWER)
	(ADJECTIVE HARDWOOD CHERRY ;EXPANSIVE DESK)
	(FLAGS NDESCBIT CONTBIT OPENBIT TRANSBIT SURFACEBIT LOCKEDBIT)
	(CAPACITY 200)
	(ACTION DESK-F)>
  
;"RMUNGBIT = desk has been moved "

<ROUTINE DESK-F ()
	 <COND (<VERB? CLIMB-ON BOARD STAND-ON>
		<COND (<FSET? ,DESK ,RMUNGBIT>
		       <CLIMB-PANEL> 
		       <GOTO ,ON-WAGON>)
		       (T
			<TELL 
"You would not be" ,NOT-REACH  " from where the desk is." CR>)>)	       
	       (<OR <VERB? OPEN LOOK-INSIDE CLOSE>
		    <AND <VERB? EXAMINE>
			 <IS-NOUN? ,W?DRAWER>>>
		<TELL "The drawers are all locked up." CR>)
	       (<VERB? EXAMINE LOOK-ON SEARCH>
		<TELL
"The desk is blanketed with a flurry of memos, on top of which rest">
		<COND (<EQUAL? <CCOUNT ,DESK> 1>
		       <TELL "s">)>
		<PRINT-CONTENTS ,DESK>
		<TELL ,PERIOD>)
	       (<OR <VERB? PUSH MOVE>
		    <AND <VERB? PUT-UNDER>
			 <EQUAL? ,PRSI ,PANEL>>>
		<COND (<OR ,END-GAME
		           <FSET? ,DESK ,RMUNGBIT>>
		       <V-DIG>)		      
		      (T
		       <FSET ,DESK ,RMUNGBIT>
		       <TELL
"With all your weight behind it, the desk screeches across the floor to
a position under the " D ,PANEL "." CR>)>)>>

<OBJECT CHAIR
	(IN OFFICE)
	(DESC "chair")
	(SYNONYM CHAIR)
	(FLAGS VEHBIT TRYTAKEBIT CONTBIT SURFACEBIT NDESCBIT OPENBIT)
	(ACTION CHAIR-F)>

<ROUTINE CHAIR-F ("OPTIONAL" (RARG <>))
	 <COND (.RARG
		<RFALSE>)
	       (<VERB? OPEN CLOSE>
		<CANT-OPEN>)
	       (<AND <VERB? PUT-ON>
		     <PRSI? ,CHAIR>>
		<V-DIG>)
	       (<OR <AND <PRSO? ,CHAIR>
		         <VERB? MOVE PUSH>>
		    <AND <VERB? PUT-UNDER>
			 <PRSI? ,PANEL>>>
		<TELL 
"You wouldn't be" ,NOT-REACH " from the " D ,CHAIR "." CR>)>>
		       
<OBJECT DESK-ON-WAGON
	(IN ON-WAGON)
	(DESC "desk")
	(SYNONYM DESK)
	;(ADJECTIVE)
	(FLAGS NDESCBIT)
	(ACTION DESK-ON-WAGON-F)>

;"RMUNGBIT = will give hint in STARTLE-MUNRAB"

<ROUTINE DESK-ON-WAGON-F ()
	 <COND (<NOT <FSET? ,PANEL ,OPENBIT>>
		<CANT-SEE ,DESK-ON-WAGON>)
	       (<AND <VERB? PUT-ON PUT THROW>
		     <PRSI? ,DESK-ON-WAGON>>
		<STARTLE-MUNRAB>)
	       (<TOUCHING? ,DESK-ON-WAGON>
		<CANT-REACH ,DESK-ON-WAGON>)>>

<ROUTINE STARTLE-MUNRAB ()
	 <TELL 
"You hesitate, fearful of startling a man who's experiencing the kind of
pressure that " D ,MUNRAB " is under. ">
	 <COND (<FSET? ,DESK-ON-WAGON ,RMUNGBIT>
		<TELL 
"There must be another way of getting him out from behind his desk and
drawing him out of the " D ,WAGON ".">)>
	 <CRLF>
	 <FSET ,DESK-ON-WAGON ,RMUNGBIT>
	 <RTRUE>>

<OBJECT DEGREE 
	(IN OFFICE)
	(DESC "diploma")
        (SYNONYM SHEEPSKIN DIPLOMA)
        (ADJECTIVE FRAMED)
	(FLAGS NDESCBIT)
	(ACTION DEGREE-F)>

<ROUTINE DEGREE-F ()
	 <COND (<VERB? EXAMINE READ>
		<TELL "It's an MBA from Harvard Business School." CR>)>>

<OBJECT BOOKS 
	(IN OFFICE)
	(DESC "shelf of books")
        (SYNONYM SHELF BOOKS BOOK BIOGRAPHIES)
        (FLAGS NDESCBIT TRYTAKEBIT)
	(ACTION BOOKS-F)>

;"Mention in browsie that he went to Harvard B.S."
<ROUTINE BOOKS-F ()
	 <COND (<VERB? EXAMINE>
		<TELL
"There are biographies on Walt Disney and Benito Mussolini, a treatise by 
Machiavelli, and a copy of \"What They Don't Teach You at Harvard Business
School.\"" CR>)
	       (<VERB? OPEN READ TAKE>
		<V-DIG>)>> 

<OBJECT BURNED-CAGE
	(IN BACK-YARD)
	(DESC "burned cage")
	(SYNONYM CAGE BOOTH)
	(ADJECTIVE FIRE-DAMAGED VERTICAL)
	(FLAGS NDESCBIT ;CONTBIT ;OPENBIT ;TRANSBIT ;SURFACEBIT)
	(ACTION BURNED-CAGE-F)>

;"RMUNGBIT is set when on Back-yard M-enter, when I-CLOWN-EXIT starts"

<ROUTINE BURNED-CAGE-F ()
	 <COND (<VERB? LOOK-INSIDE>
	        ;<COND (<IN? ,GUARD ,LOCAL-GLOBALS>
		       <MOVE ,GUARD ,HERE>)>
		<TELL ,YOU-SEE 
" the silhouette of a man sitting quietly in semidarkness." CR>)
	       (<AND <VERB? PUT>
		     <PRSI? ,BURNED-CAGE>>
		<TELL "The guard hands">
		<ARTICLE ,PRSO T>
		<TELL " back to you." CR>)
	       (<VERB? EXAMINE>
		<TELL 
"The fire-damaged cage, perhaps once the home of some big jungle cat, has been
converted into some kind of vertical booth." CR>)
	       (<VERB? OPEN ENTER BOARD THROUGH>
	        <TELL 
"Your attempt merely rattles the cage, and the " D ,GUARD " growls at you to
back off." CR>
		<RTRUE>)
	       (T
		<RFALSE>)>>

<GLOBAL GUARD-C 0>

<OBJECT GUARD
	(IN BACK-YARD)
	(DESC "guard")
	(SYNONYM GUARD HARRY SILHOETTE MAN)
	;(ADJECTIVE MR)
	(FLAGS ACTORBIT NDESCBIT PERSON CONTBIT SEARCHBIT OPENBIT)
	(ACTION GUARD-F)>

;"rmungbit = guard told you about being a first of may, cant talk to others"

<ROUTINE GUARD-F ()
      	 <COND (<AND <TALKING-TO? ,GUARD>
		     <NOT <VERB? WAVE-AT ALARM>>
		     <ENABLED? ,I-HELIUM>>
		<SETG SCORE <+ ,SCORE 10>>
		<SETG SPEAK-HELIUM T>
		<ENABLE <QUEUE I-TURNSTILE 2>>
	        <TELL 
"The sound of your high-pitched, lighter-than-air voice is startling to "
D ,ME ", but very familiar to the " D ,GUARD ". You can hear an
electromechanical buzzing sound from the " D ,TURNSTILE "." CR> 
		<STOP>)
	       (<EQUAL? ,GUARD ,WINNER>
                <COND (<AND <VERB? TELL-ABOUT>
	                    <PRSO? ,ME>>			   
	               <SETG WINNER ,PROTAGONIST>
	               <PERFORM ,V?ASK-ABOUT ,GUARD ,PRSI>
	               <SETG WINNER ,GUARD>
	               <RTRUE>)
		      (<VERB? WHO WHAT>
		       <SETG WINNER ,PROTAGONIST>
		       <PERFORM ,V?ASK-ABOUT ,GUARD ,PRSO>
		       <SETG WINNER ,GUARD>
		       <RTRUE>)
		      (<AND <VERB? RUB>
		       	    <HELD? ,PRSO ,PROTAGONIST>>
		       <SETG WINNER ,PROTAGONIST>
		       <PERFORM ,V?GIVE ,PRSO ,GUARD>
		       <SETG WINNER ,GUARD>
		       <RTRUE>)
		      (<AND <VERB? WHERE>
			    <PRSO? ,GIRL>>
		       <SETG WINNER ,PROTAGONIST>
		       <PERFORM ,V?ASK-ABOUT ,GUARD ,PRSO>
		       <SETG WINNER ,GUARD>
		       <RTRUE>)
		      (<VERB? HELLO THANK>
	               <SETG WINNER ,PROTAGONIST>
	               <PERFORM ,PRSA ,GUARD>
	               <SETG WINNER ,GUARD>
	               <RTRUE>)
		      (<AND <VERB? YES>
			    <EQUAL? ,AWAITING-REPLY 6>>
		       <V-YES>)
		      (<AND <VERB? NO>
			    <EQUAL? ,AWAITING-REPLY 6>>
		       <V-NO>)
		      (T 
		       <TELL "The guard just sits quietly in his cage." CR>
		       <STOP>)>)
	      (<AND <VERB? KISS>
		    <FSET? ,PINK-BOX ,RMUNGBIT>>
	       <TELL "Of course, he's your blind date." CR>)
	      (<HURT? ,GUARD>
	       <JIGS-UP 5  
"You are suddenly skewered by a white cane honed to needle-sharpness.">)
	      (<VERB? EXAMINE>
	       <TELL 
,YOU-SEE " the shadowy outline of a man who's wearing a dark " D ,SUNGLASSES
"." CR>)
	      (<AND <VERB? GIVE>
	       	    <PRSI? ,GUARD>>	       
	       <COND (<PRSO? ,WHIP>
		      <PERFORM ,V?ASK-ABOUT ,GUARD ,WHIP>
		      <RTRUE>)
		     (<PRSO? ,GIRL ,THUMB>
		      <TELL "The " D ,GUARD " refuses " D ,PRSO "." CR>)
		     (<TRAP-SET?>
		      <TELL 
"Harry must've smelled a rat, since he rejects your offer out of hand,
thereby putting a damper on your sadistic glee." CR>)
		     (T
		      <TELL 
"While you're still holding">
	       	      <ARTICLE ,PRSO T>
	       	      <TELL 
", the guard moves his hands gently over it and says, ">
	       	      <COND (<PRSO? ,CASE>
		      	     <SETG GUARD-FELT-CASE T>
		      	     <TELL 
"\"Oh, that's Andrew's " D ,CASE ". He's one to steal a smoke now and then;
behind Jenny's back, of course. She'd kill him if she ever found out.\"" CR>)
		     	   (T	
		      	    <TELL "\"Feels like">		
	       	      	    <COND (<EQUAL? ,PRSO ,SHEET>
				   <TELL " paper">)
			          (<EQUAL? ,PRSO ,TAFT>
				   <TELL " cardboard">)
				  (T
				   <ARTICLE ,PRSO>)>
	       	      	    <TELL " to me.\"" CR>)>)>)
	      (<AND <VERB? SHOW>
		    <NOT <EQUAL? ,PRSO ,MUSIC ,RADIO ,HEADPHONES>>
		    <PRSI? ,GUARD>>
	       <TELL
"Not surprisingly, the " D ,GUARD " is oblivious to">
	       <ARTICLE ,PRSO T>
	       <TELL ,PERIOD>)
	      (<VERB? THANK>
	       <TELL "The " D ,GUARD " nods slowly." CR>)
	      (<VERB? HELLO>
	       <TELL "\"Well, good evening to you.\"" CR>)
	      (<AND <VERB? ASK-ABOUT>
		    <PRSO? ,GUARD>>
	       <COND (<PRSI? ,GIRL>
		       <COND (<FSET? ,PROTAGONIST ,RMUNGBIT> ;"won puzzle"
		       	      <TELL "The " D ,GUARD " remains silent." CR>)
		      	     (T
		       	      <ENABLE <QUEUE I-DID 2>>
		       	      <SETG AWAITING-REPLY 6>
		       	      <TELL
"\"But you already asked me about her, right?\"" CR>)>)
		     (<PRSI? ,FAT>
		      <TELL
"\"Well, she's tried various diets, but then " D ,MUNRAB " orders our "
D ,JIM " to increase the frequency of her feedings." CR>)
		     (<PRSI? ,HYP>
		      <TELL 
"\"" D ,HYP "? Harrumph. Don't waste your money.\"" CR>)
		     (<PRSI? ,THUMB>
		      <TELL
"\"A very popular attraction, small but charismatic.\"" CR>)
		     (<PRSI? ,TAMER>
		      <TELL 
"\"Nothing but a glory hog, and always just one step ahead of the ASPCA.\""
CR>) 
		     (<AND <PRSI? ,JOEY>
			   <NOT <FSET? ,JOEY ,RMUNGBIT>>>
		      <FSET ,JOEY ,RMUNGBIT>
		      <TELL
"\"A very accomplished performer, takes a lot of pride in his craft.
Until...\" The " D ,GUARD " stops himself." CR>)  
		     (<PRSI? ,CIRCUS ,MUNRAB>
		      <COND (<FSET? ,CIRCUS ,RMUNGBIT>
			     <TELL "\"I've given my opinion.\"" CR>)
			    (T
			     <FSET ,CIRCUS ,RMUNGBIT>
			     <TELL 
"He suddenly blurts out, \"Well I can tell you this is one circus that's
headed for the barn. It's that doggone " D ,MUNRAB " and his vainglorious
dreams. They're not panning out for him, and the more he puts the squeeze
on all of us, the more dangerous this lot becomes.\"" CR>)>) 
		     (<PRSI? ,HERM ,ANDREW ,JENNY>
		      <COND (<NOT <FSET? ,HERM ,RMUNGBIT>>
			     <FSET ,HERM ,RMUNGBIT>
			     <COND (<PRSI? ,JENNY>
				    <TELL "\"She">)
				   (T
				    <TELL "\"He">)>
			     <TELL 
" ... er, they ... uh, whatever it is -- bizarre is all I can say. You'd
swear they were two different people.\"" CR>)
			    (T
			     <TELL
"\"" D ,ANDREW "'s always considered " D ,JENNY " a thorn in his side. Of
course, " D ,JENNY "'s always trying to keep him on the straight and narrow.
Which is cherry pie, considering this is the circus life and all.\"" CR>)>) 
		     (<PRSI? ,JIM ,JIM-GLOBAL>
		      <TELL
"\"Yea, sad story. Just another guy who fell out the social safety net, if
you will, and landed in the circus. And not on his feet either. So " D ,MUNRAB
" overworks him, has him living in a cage. That's the life here, that's the
circus life for the most.\"" CR>) 
		     (<PRSI? ,BURNED-CAGE>
	              <TELL "\"It's home.\"" CR>)
		     (<PRSI? ,EDDIE>
	              <COND (<NOT ,SEEN-SHEET>
			     <TELL "You don't know anyone by that name." CR>)
			    (T
			     <FSET ,EDDIE ,RMUNGBIT>
		      	     <TELL
"\"That's " D ,JOEY "'s real name.\"" CR>)>)
		     (<PRSI? ,BULL> ;"OR an elephant is like a rope ..."
		      <TELL
"\"Very funny. Asking someone in my condition to describe an " D ,BULL ".\""
CR>)
		     (<PRSI? ,APE>
		      <TELL
"\"" D ,APE "? I used to work with him. You know you could practically put him
to sleep with soft music. That's how he got his name. Along with his
mean streak too, of course. In fact I used to play the violin for him at
night after all the towners would go home. That was the old days.\"" CR>)
		    (<PRSI? ,CON>
		     <TELL
"\"He used to sell Amway. Then he joined on here as a Monday Man, which is
where he got his name. All that was before Munrab, of course.\"" CR>)
		    (<PRSI? ,LION-NAME ,ELSIE ,NIMROD ,WHIP ,GUARD ,SUNGLASSES>
		     <COND (<FSET? ,LION-NAME ,RMUNGBIT>
			    <TELL 
"\"I would rather not talk any further about my past life with the
lions.\"" CR>)
			   (T
			    <FSET ,LION-NAME ,RMUNGBIT>
			    <TELL 
"After a moment of tense silence, the guard impulsively tears off his
sunglasses and thrusts his head forward into the light. You flinch at the
sight of a slashing scar which engulfs both eye sockets.| 
|
The guard calms back down. \"Nimrod did this to me. He refuses the
whip, unlike Elsie, who is controlled only by the whip.\"" CR>)>)
		      (T
		       <TELL "\"I really can't say.\"" CR>
		       <RTRUE>)>
	       <SETG GUARD-C <+ ,GUARD-C 1>>
	       <COND (<AND <NOT <FSET? ,GUARD ,RMUNGBIT>>
			   <G? ,GUARD-C 2>			   
			   <NOT <ENABLED? ,I-DID>>
			   <NOT <PRSI? ,LION-NAME ,NIMROD ,ELSIE>>>
		      <FSET ,GUARD ,RMUNGBIT> 
		      <TELL CR 
"The guard breathes a sigh, and continues, \"I don't need eyeballs to size
up a First of May like you. Listen to me, if you think you're going to sport
around the lot asking a bunch of questions and expect answers, forget
it. These people are in no mood for lot loafers.\"" CR>)>
	       <RTRUE>)>>

<GLOBAL SPEAK-HELIUM <>>

<OBJECT SUNGLASSES
	(IN GUARD)
	(DESC "pair of sunglasses")
	(SYNONYM PAIR SUNGLASSES GLASSES SHADES)
	(ADJECTIVE ;RECTANGULAR DARK)
	(FLAGS NDESCBIT TRYTAKEBIT)
	(ACTION SUNGLASSES-F)>

<ROUTINE SUNGLASSES-F ()
	 <COND (<VERB? TAKE>
		<TELL "You can't, since that would be blind theft." CR>)>>

<OBJECT TURNSTILE
	(IN LOCAL-GLOBALS)
	(DESC "turnstile")
	(SYNONYM TURNSTILE STILE)
	(ADJECTIVE TURN)
	(FLAGS NDESCBIT)
	(ACTION TURNSTILE-F)>

<ROUTINE TURNSTILE-F ()
	 <COND (<VERB? EXAMINE>
		<TELL
"It's the fish skeleton type, with three sets of horizontal ribs extending from
a vertical spine.">
		<COND (<EQUAL? ,HERE ,CON-AREA>
		       <TELL 
" Built into the " D ,TURNSTILE " is a " D ,SLOT ".">)>
		<CRLF>)
	       (<AND <VERB? PUT>
		     <PRSO? TICKET>>
		<COND (<EQUAL? ,HERE ,CON-AREA>
		       <PERFORM ,V?PUT ,TICKET ,SLOT>
		       <RTRUE>)
		      (T
		       <CANT-SEE <> "the slot">)>)
	       (<VERB? CLIMB-OVER CLIMB-ON CLIMB-UP CLIMB-FOO LEAP>
		<TELL "You cannot scale the " D ,TURNSTILE "." CR>)
	       (<VERB? OPEN SET PUSH THROUGH WALK-TO MOVE>
		<COND (<EQUAL? ,HERE ,EAST-CAMP>
		       <DO-WALK ,P?NORTH>)
		      (<EQUAL? ,HERE ,BACK-YARD>
		       <DO-WALK ,P?SOUTH>)
		      (<EQUAL? ,HERE ,CON-AREA>
		       <DO-WALK ,P?EAST>)
		      (<EQUAL? ,HERE ,MIDWEST>
		       <DO-WALK ,P?WEST>)>)>>

<OBJECT PSEUDO-TURNSTILE     ;"so can have a descfcn, turnstile is in loc-glo"
	(IN BACK-YARD)
	(DESC "turnstile")
	(SYNONYM SKELETON)
	(ADJECTIVE FISH)
	(DESCFCN PSEUDO-TURNSTILE-DESC)
	;(FLAGS NDESCBIT)
	(ACTION TURNSTILE-F)>

<ROUTINE PSEUDO-TURNSTILE-DESC ("OPTIONAL" X)
	 <TELL
"Adjacent to the turnstile to your south is a vertical cage.">>

<OBJECT SLOT
	(IN LOCAL-GLOBALS)
	(DESC "narrow slot")
	(SYNONYM SLOT HOLE)
	(ADJECTIVE NARROW)
	(FLAGS NDESCBIT CONTBIT OPENBIT)
	(ACTION SLOT-F)>

<ROUTINE SLOT-F ()
	 <COND (<EQUAL? ,HERE ,MIDWEST>
		<TELL 
"The slot's on the other side of the " D ,TURNSTILE "." CR>)
	       (<AND <VERB? PUT>
		     <PRSI? ,SLOT>>
		<COND (<PRSO? ,PINK-BOX ,BLUE-BOX>
		       <RFALSE>)
		      (<PRSO? ,TICKET>		       
		       <TELL 
"You feed " D ,TICKET " into the slot ">
		       <COND (<OR <FSET? ,BLUE-BOX ,RMUNGBIT>
				  <FSET? ,PINK-BOX ,RMUNGBIT>>
			      <ENABLE <QUEUE I-TURNSTILE 2>>
			      <TELL 
"and hear all kinds of internal computations being made, then the ticket rolls
out into " D ,HANDS "." CR>) 
			     (T
			      <TELL 
"but it's immediately rejected. Perhaps you didn't follow the directions
on the ticket." CR>)>)
		       (T
		        <TELL "The slot is not configured to accept">
		        <ARTICLE ,PRSO T>
			<TELL ,PERIOD>)>)
		(<VERB? EXAMINE>
		 <TELL "The " D ,SLOT " is a few inches long." CR>)
	        (<VERB? LOOK-INSIDE>
		 <TELL "It's dark." CR>)
		(<VERB? OPEN CLOSE>
		 <V-COUNT>)>>
		        
<ROUTINE I-TURNSTILE ()
	 <DISABLE <INT I-TURNSTILE>>
	 <COND (<EQUAL? ,HERE ,BACK-YARD ,CON-AREA>
		<TELL CR "The " D ,TURNSTILE " goes \"click.\"" CR>)>
	 <RFALSE>>

<ROUTINE TURNSTILE-EXIT ()
	 <COND (<OR <ENABLED? ,I-TURNSTILE>
		    <EQUAL? ,HERE ,EAST-CAMP ,MIDWEST>>
	        <COND (<AND <NOT <FSET? ,CANVAS ,RMUNGBIT>>
			    <EQUAL? ,HERE ,EAST-CAMP>>
		       <COND (<NOT <FSET? ,PSEUDO-TURNSTILE ,RMUNGBIT>>
			      <FSET ,PSEUDO-TURNSTILE ,RMUNGBIT>
			      <TELL
"The image of a burning bridge suddenly pops into your mind as you
veer away from the " D ,TURNSTILE "." CR>
			      <RFALSE>)>)>		 	      
		<TELL-PASS-TURNSTILE>
		<COND (<EQUAL? ,HERE ,BACK-YARD>
		       <RETURN ,EAST-CAMP>)
		      (<EQUAL? ,HERE ,EAST-CAMP>
		       <RETURN ,BACK-YARD>)
		      (<EQUAL? ,HERE ,MIDWEST>
		       <RETURN ,CON-AREA>)
		      (T
		       <RETURN ,MIDWEST>)>)
	       (T
		<TELL 
"The " D ,TURNSTILE " won't budge." CR>
		<RFALSE>)>>

<ROUTINE TELL-PASS-TURNSTILE ()
	 <TELL "You pass through the creaky " D ,TURNSTILE>
	 <COND (<AND <RUNNING? ,I-CLOWN-EXIT>
		     <NOT <IN? ,THUMB ,CLOWN-ALLEY>>>
		<SETG CLOWN-EXIT-COUNTER 7>
		<TELL " right behind a scrambling " D ,THUMB>)>
	 <TELL "." CR CR>>

<ROOM PROP-ROOM
      (IN ROOMS)
      (DESC "Inside Prop Tent")
      (EAST PER EXIT-PROP-ROOM)
      (OUT PER EXIT-PROP-ROOM)
      (SOUTH PER PLEAT-EXIT)
      (FLAGS ONBIT RLANDBIT INDOORSBIT)
      (ACTION PROP-ROOM-F)
      (GLOBAL CANVAS TENT)>

<ROUTINE PROP-ROOM-F (RARG)
	 <COND (<EQUAL? .RARG ,M-ENTER>
		<COND (<EQUAL? ,MEET-COUNTER 0>		            
		       <ENABLE <QUEUE I-MEET 1>>)>
		<COND (<AND <NOT <FSET? ,MOUSE ,TOUCHBIT>>
			    <FSET? ,TRAP ,TOUCHBIT>
			    <IN? ,CHEESE ,PROP-ROOM>>
		       <MOVE ,CHEESE ,LOCAL-GLOBALS>
		       <TELL 
"You immediately notice that the " D ,CHEESE " you left here is gone." CR CR>
		       <RFALSE>) 
		      (<AND <IN? ,TRAP ,PROP-ROOM>
		       	    <FSET? ,TRAP ,TOUCHBIT>
		       	    <NOT <FSET? ,MOUSE ,TOUCHBIT>>>
		       <MOVE ,MOUSE ,PROP-ROOM>		
		       <COND (<NOT <IN? ,CHEESE ,TRAP>>
		       	      <MOVE ,MOUSE ,LOCAL-GLOBALS>
		       	      <RFALSE>)>
	               <COND (<FSET? ,TRAP ,RMUNGBIT>
		       	      <COND (<FSET? ,CHEESE ,RMUNGBIT> ;"second visit"
			      	     <FSET ,TRAP ,NDESCBIT>)  ;"mouse now seen"
			     	    (T
			      	     <FSET ,CHEESE ,RMUNGBIT>)>) ;"first visit"
      ;"Mouse dies"          (T 
		       	      <COND (<FSET? ,CHEESE ,RMUNGBIT> ;"second visit"
			      	     <FSET ,TRAP ,RMUNGBIT>
		              	     <FCLEAR ,TRAP ,NDESCBIT>
		              	     ;<FCLEAR ,MOUSE ,TRYTAKEBIT>
			      	     <MOVE ,CHEESE ,LOCAL-GLOBALS>
			      	     <MOVE ,MOUSE ,LOCAL-GLOBALS>
		              	     <MOVE ,DEAD-MOUSE ,TRAP>
		              	     <TELL 
"You hear a loud \"SNAP!\" as you enter." CR CR>)
			     	    (T                  ;"first visit trap-set"
			      	     <FSET ,CHEESE ,RMUNGBIT> 
				     ;<MOVE ,MOUSE ,LOCAL-GLOBALS>)>)>)>)
	       (<EQUAL? .RARG ,M-LOOK>
		<TELL
"This dimly lighted tent houses a ragtag collection of outrageous props
and wacky devices, including a midget automobile that's garaged in here.">
		<COND (<FSET? ,CANVAS ,RMUNGBIT>
		       <TELL 
" To the shadowy south is where you passed through the pleats of the " 
D ,CANVAS ".">)>
		<CRLF>)
	       (<EQUAL? .RARG ,M-BEG>
	        <COND (<AND ,HIDING		     
		       	    <RUNNING? ,I-MEET>
		       	    <G? ,MEET-COUNTER 1>
			    <OR <DISTURB? ,MUNRAB>
			   	<DISTURB? ,DICK>
			   	<VERB? WALK STAND DISEMBARK TAKE>>>
	               <END-MEETING>)
		      (<AND <IN? ,MUNRAB ,HERE>
			    <VERB? EXAMINE>
			    <EQUAL? ,PRSO ,MUNRAB ,DICK>>
		       <TELL "You take a peek ... " CR CR>
		       <RFALSE>)>)>>  
	       
<ROUTINE PLEAT-EXIT ()
	 <COND (<RUNNING? ,I-MEET>
		<EXIT-PROP-ROOM>
		<RFALSE>)
	       (<FSET? ,CANVAS ,RMUNGBIT>
		<TELL-PASS-CANVAS>
		<COND (<EQUAL? ,HERE ,WEST-CAMP>
		       <RETURN ,PROP-ROOM>)
		      (T
		       <RETURN ,WEST-CAMP>)>)
	       (<EQUAL? ,HERE ,WEST-CAMP>
		<SETG P-IT-OBJECT ,CANVAS>
		<TELL "You encounter a pleated wall of canvas.">)
	       (T
		<TELL ,CANT-GO>)>      ;"too dark in this corner"
	 	<CRLF>
		<RFALSE>>

<ROUTINE TELL-PASS-CANVAS ()
 	 <COND (<AND <EQUAL? ,MEET-COUNTER 10>
		     <IN? ,TRAP ,LOCAL-GLOBALS>>
		<MOVE ,TRAP ,PROP-ROOM>
		<ENABLE <QUEUE I-HYP 1>>
		<TELL 
"You make your way through the pleats, and just inside the tent you notice
a small " D ,TRAP " on the " D ,GROUND>)
	       (T
		<TELL 
"The rough-hewn canvas is abrasive as you pass through">)>
	 <TELL " ..." CR CR>>

<ROUTINE EXIT-PROP-ROOM ()
	 <COND (<L? ,MEET-COUNTER 7>
		<COND (<OR <RUNNING? ,I-MEET>
			   <EQUAL? ,MEET-COUNTER 0 1>>
		       <COND (<EQUAL? ,MEET-COUNTER 0 1>
		       	      <TELL
"Taft's eyes follow your movement, halting you unsettlingly.">)
		      	     (T
		       	      <TELL 
"Realizing you could be facing trespassing charges, you hesitate.">)>
		       <CRLF>
		       <RFALSE>)>)
	       (T
	        <RETURN ,BACK-YARD>)>>

<OBJECT TRAP
	(IN LOCAL-GLOBALS)
	(SDESC "piece of wood")
	(SYNONYM TRAP PIECE WOOD MOUSETRAP)
	(ADJECTIVE MOUSE SMALL)
	;(FDESC "A small piece of wood lies on the ground.")
	(FLAGS TAKEBIT CONTBIT SURFACEBIT SEARCHBIT TRANSBIT OPENBIT NDESCBIT)
	(SIZE 5)
	(CAPACITY 1)
	(GENERIC GEN-MOUSE-F)
	(ACTION TRAP-F)>

;"RMUNGBIT for TRAP = the killer bar is DOWN, SNAPPED, UNSPRUNG"
;"NDESCBIT for TRAP = Mouse is feeding at it"

<ROUTINE TRAP-F ()
	 <COND (<AND <VERB? EXAMINE LOOK-INSIDE>
		     <FSET? ,TRAP ,TOUCHBIT>>
		<TELL "The " D ,TRAP " is">
		<COND (<FSET? ,TRAP ,RMUNGBIT>
		       <TELL " not">)>
		<TELL " set">
		<COND (<IN? ,CHEESE ,TRAP>
		       <TELL "; there is a bit of cheese in the trap">)
		      (<IN? ,MOUSE ,TRAP>
		       <TELL ". A " D ,DEAD-MOUSE " rests under the bar">)>
		<TELL ,PERIOD>)
	       (<AND <VERB? PUT-ON>
		     <PRSO? ,BUCKET>>
		<COND (<AND <FSET? ,TRAP ,NDESCBIT> ;"mouse feeds"
		       	    <IN? ,MOUSE ,HERE>>
		       <PERFORM ,V?TAKE-WITH ,MOUSE ,BUCKET>
		       <RTRUE>)
		      (T
		       <V-DIG>)>)
	       (<AND <TOUCHING? ,TRAP>
		     <FSET? ,TRAP ,NDESCBIT>>
		<TELL "Blunder of blunders! ">
		<PERFORM ,V?RUB ,MOUSE>		
		<RTRUE>)	       
	       (<OR <AND <VERB? OPEN>
			 <NOT ,PRSI>>
		    <AND <VERB? SET>
			 <NOT ,PRSI>>>
		<COND (<IN? ,MOUSE ,TRAP>
		       <TELL "A " D ,DEAD-MOUSE " is in it!" CR>)
		      (<FSET? ,TRAP ,RMUNGBIT>
		       <FCLEAR ,TRAP ,RMUNGBIT>
		       <TELL "Painstakingly, you set the trap." CR>
		       <RTRUE>)
		      (T
		       <RASH-ACT T>)>)
	       (<AND <VERB? PUT PUT-ON>
		     <PRSO? ,CHEESE>>
		<COND (<FSET? ,TRAP ,RMUNGBIT>
		       <MOVE ,CHEESE ,TRAP>
		       <TELL 
"The " D ,CHEESE " is now clamped into the trap." CR>)
		      (T
		       <RASH-ACT>
		       <RTRUE>)>)
	       (<AND <VERB? TAKE>		     
		     <FSET? ,TRAP ,TOUCHBIT>		     
		     <NOT <FSET? ,TRAP ,RMUNGBIT>>>
		<COND (<EQUAL? <ITAKE> T>
		       <TELL 
"With great care you pick up the loaded " D ,TRAP "." CR>)>
		<RTRUE>)
	       (<AND <TOUCHING? ,TRAP>
		     <NOT <FSET? ,TRAP ,RMUNGBIT>>
		     <NOT <VERB? PUT-ON>>>		
		<PUTP ,TRAP ,P?SDESC "mousetrap">
		<COND (<AND <NOT <VERB? WHIP>>
			    <OR <NOT ,PRSI>
			        <EQUAL? ,PRSI ,HANDS>>>		       
		       <COND (<FSET? ,TRAP ,TOUCHBIT>
		       	      <RASH-ACT>
		       	      <RTRUE>)>
		       <FSET ,TRAP ,RMUNGBIT>
		       <ENABLE <QUEUE I-CURSE -1>>
		       <FSET ,TRAP ,TOUCHBIT>
		       <FCLEAR ,TRAP ,NDESCBIT>
		       <MOVE ,TRAP ,PROTAGONIST>
		       <MOVE ,CHEESE ,TRAP>
		       <TELL ,INSTANT "between the
realization that you've caused " D ,ME " excruciating Pain and the
actual onslaught of such Pain, during which time most people speak with
exclamation points and ... well, say things like ..." CR>
		       <RFATAL>)
		      (T
		       <BACKFLIP>)>)	       
	       (<VERB? CLOSE>
		<COND (<FSET? ,TRAP ,RMUNGBIT>
		       <TELL "It is." CR>)
		      (T
		       <BACKFLIP>)>
		<RTRUE>)>>

<ROUTINE TRAP-SET? ()
	 <COND (<AND <EQUAL? ,PRSO ,TRAP>
	             <NOT <FSET? ,TRAP ,RMUNGBIT>>>
		<RTRUE>)
	       (T
		<RFALSE>)>>

<ROUTINE BACKFLIP ()
	 <COND (<NOT <FSET? ,TRAP ,TOUCHBIT>>
		<MOVE ,CHEESE ,TRAP>)>
	 <FSET ,TRAP ,TOUCHBIT>
	 <FSET ,TRAP ,RMUNGBIT>	 
	 <TELL "\"Snap!\" The ">
	 <COND (<EQUAL? ,PRSO ,TRAP>
		<TELL D ,PRSO>
		<COND (<VERB? PUT>
		       <TELL " touches the side of the " D ,PRSI " and">)>)
	       (T
		<TELL D ,PRSI>)>
	 <TELL " does a backflip ">
	 <COND (<HELD? ,TRAP>
		<TELL "out of " D ,HANDS "s and ">)>
	 <TELL "into the air." CR>
	 <MOVE ,TRAP ,HERE>>
		       
<ROUTINE RASH-ACT ("OPTIONAL" (ALREADY <>))
	 <TELL 
"A rash act, considering the trap is ">
	 <COND (.ALREADY
		<TELL "already ">)>
	 <TELL "loaded." CR>>

<ROUTINE I-CURSE ()
	 <RFALSE>>

;"Used with pick-one"
<GLOBAL COACH
	<LTABLE 0
	"Come on, you can do better than that."
	"No no no -- you must FEEL the role."
	"Come on, your grandmother gets angrier than that."
	"You're just prolonging the agony.">>
	
;"Used with pick-one"
<GLOBAL TOO-DIRTY
	<LTABLE 0
	"Keep in mind this is family entertainment."
	"Easy there! You're jeopardizing our \"G\" rating."  
	"This is a circus, not an Eddie Murphy concert!"
	"Stick to the script -- no more improvising.">>

<OBJECT CHEESE
	(IN LOCAL-GLOBALS)
	(DESC "cheese morsel")
	(SYNONYM CHEESE MORSEL FOOD)
	(ADJECTIVE CHEESE)
	(FLAGS TAKEBIT TRYTAKEBIT EATBIT)
	(SIZE 1)	
	(ACTION CHEESE-F)>

;"CHEESE RMUNGBIT = entered prop-room subsequent to first time after mouse
		    is here. mouse is seen feeding" 

<ROUTINE CHEESE-F ()
	 <COND (<AND <TOUCHING? ,CHEESE>
		     <FSET? ,TRAP ,NDESCBIT>>
		<PERFORM ,V?RUB ,MOUSE>
		<RTRUE>)
	       (<AND <TOUCHING? ,CHEESE>
		     <NOT <FSET? ,TRAP ,RMUNGBIT>>
		     <IN? ,CHEESE ,TRAP>>
		<RASH-ACT>)
	       (<AND <VERB? TAKE>
		     <IN? ,CHEESE ,TRAP>
		     <NOT <FSET? ,TRAP ,RMUNGBIT>>
		     <EQUAL? <ITAKE> T>>
		<TELL 
"With great care, you take the cheese." CR>)
	       (<VERB? EAT>
		<MOVE ,CHEESE ,LOCAL-GLOBALS>
		<TELL 
"Your nose twitches as you nibble away the " D ,CHEESE "." CR>)
	       (<VERB? SMELL>
		<TELL "Camembert, 1979." CR>)>>

<OBJECT MOUSE
	(IN LOCAL-GLOBALS)
	(SDESC "field mouse")
	(SYNONYM MOUSE RODENT)
	(DESCFCN MOUSE-DESC)
	(ADJECTIVE FIELD GREY GRAY)
	(FLAGS TAKEBIT TRYTAKEBIT ;ACTORBIT)
	(SIZE 5)	
	(GENERIC GEN-MOUSE-F)
	(ACTION MOUSE-F)>

<ROUTINE MOUSE-DESC ("OPTIONAL" X)
	 <COND (<FSET? ,TRAP ,NDESCBIT>
		<TELL 
"Over in the " D ,CORNER ", a " D ,MOUSE " gnaws timidly at the " D ,TRAP ".">)
	       (T
		<TELL 
"You can hear the faint scurryings of a rodent somewhere in the tent.">)>>

<GLOBAL MOUSE-PISSED T>

<ROUTINE MOUSE-F ("AUX" X)
	 <COND (<AND <NOT <HELD? ,MOUSE>>
		     <NOT <IN? ,MOUSE ,BUCKET>>
		     <NOT <VERB? LISTEN>>
		     <NOT <FSET? ,TRAP ,NDESCBIT>> ;"trap ndesc when mouse at"
		     <EQUAL? ,HERE ,PROP-ROOM>>
		<CANT-SEE ,MOUSE>)
	       (<VERB? EXAMINE>
		<COND (<IN? ,MOUSE ,PROTAGONIST>
		       <TELL 
"The " D ,MOUSE " calms for a moment, twitches its bewhiskered snout at you,
then continues swimming its forepaws silently into the air." CR>)
		      (<AND <IN? ,MOUSE ,BUCKET>
			    ,MOUSE-PISSED>
		       <TELL 
"It keeps" ,TREADMILL ". That noise is getting to you." CR>)>)
	       (<AND <VERB? GIVE>
		     <PRSO? ,CHEESE>>
		<COND (<IN? ,MOUSE ,PROTAGONIST>
		       <TELL "It's in no position for a feeding." CR>)
		      (T
		       <FEED-MOUSE>)>)
	       (<AND <VERB? TAKE>
		     <IN? ,MOUSE ,BUCKET>>
		<COND (<EQUAL? <ITAKE> T>
		       <SETG MOUSE-PISSED T>
		       ;<FSET ,MOUSE ,TOUCHBIT> ;"done in ITAKE"
		       ;<MOVE ,MOUSE ,PROTAGONIST>
		       <TELL 
"You grasp the slick, narrow tail and lift, feeling the rodent's buzzing
metabolism vibrate at your fingertips." CR>)>
		<RTRUE>)
	       (<AND <NOT <FSET? ,MOUSE ,TOUCHBIT>>
		     <OR <AND <VERB? PUT-ON>
			      <PRSO? ,BUCKET>>
		    	 <AND <VERB? TAKE-WITH TAKE> ;"CATCH _ IN _"
		              <PRSI? ,BUCKET>>>>
		<COND (<IN? ,WATER ,BUCKET>
		       <PERFORM ,V?DROP ,WATER>
		       <CRLF>
		       <PERFORM ,V?RUB ,MOUSE>
		       <RTRUE>)
		      (<SET X <FIRST? ,BUCKET>>
		       <TELL "Tumbling out of your " D ,BUCKET " come">
		       <COND (<NOT <NEXT? .X>>
			      <TELL "s">)>
		       <PRINT-CONTENTS ,BUCKET T>
		       <TELL ,PERIOD>
		       <ROB ,BUCKET ,HERE>
		       <CRLF>
		       <PERFORM ,V?RUB ,MOUSE>
		       <RTRUE>)>
		<FCLEAR ,TRAP ,NDESCBIT>		
		<FSET ,MOUSE ,TOUCHBIT>
	        <SETG SCORE <+ ,SCORE 10>>
		<MOVE ,MOUSE ,BUCKET>
		<TELL
"You can almost hear the tramplings of the world beating a path to your door
as, with a deft swoop of the " D ,BUCKET ", you capture the " D ,MOUSE ".
It immediately begins" ,TREADMILL "." CR>)
	       (<AND <FSET? ,TRAP ,NDESCBIT> ;"second visit"
	             <DISTURB? ,MOUSE>
		     <NOT <HELD? ,MOUSE>>>
		<FCLEAR ,TRAP ,NDESCBIT>
		<MOVE ,MOUSE ,LOCAL-GLOBALS>
		<TELL "By fits and starts the mouse ">
		<COND (<VERB? TAKE>
		       <TELL "eludes " D ,HANDS " and ">)>
		<TELL "makes an exit." CR>)	         
	      (<AND <VERB? DROP THROW PUT PUT-ON GIVE>
		    <PRSO? ,MOUSE>
		    <NOT <PRSI? ,BUCKET>>>
		<MOVE ,MOUSE ,LOCAL-GLOBALS>
		<SCAMPER T>)
	      (<VERB? RUB>
	       <TELL "It nips at " D ,HANDS "." CR>)>>

<ROUTINE FEED-MOUSE ()
	 <MOVE ,CHEESE ,LOCAL-GLOBALS>
	 <SETG MOUSE-PISSED <>>
	 <TELL 
"The mouse gnaws away at the cheese and peeps softly upon finishing it." CR>>

<ROUTINE GEN-MOUSE-F ()
	 ,MOUSE>

<ROUTINE SCAMPER ("OPTIONAL" (HANDED? <>))
	 <TELL "The mouse ">
	 <COND (.HANDED?
		<TELL "scampers out of " D ,HANDS ", ">)>
	 <TELL 
"hits the " D ,GROUND " running and darts out of sight." CR>>

<OBJECT DEAD-MOUSE
	(IN LOCAL-GLOBALS)
	(DESC "dead mouse")
	(SYNONYM MOUSE RODENT)	
	(ADJECTIVE FIELD GREY DEAD)
	(FLAGS TAKEBIT)
	(SIZE 8)	
	(GENERIC GEN-MOUSE-F)>

<OBJECT MASK
	(IN BESIDE-BIGTOP)
	(DESC "clown mask")
	(FDESC 
"A cheap plastic clown mask, having been carelessly dropped here, is
lying face-up on the ground.")
	(SYNONYM MASK)
	(ADJECTIVE CLOWN CHEAP PLASTIC)
	(FLAGS TAKEBIT WEARBIT)
	(SIZE 15)	
	(ACTION MASK-F)>

<ROUTINE MASK-F ()
	 <SETG P-IT-OBJECT ,MASK>	 
	 <COND (<AND <VERB? EXAMINE>
		     <FSET? ,MASK ,WORNBIT>>
		<TELL "You're wearing it!" CR>)
	       (<VERB? WEAR>
	        <COND (<FSET? ,VEIL ,WORNBIT>
		       <WONT-FIT-OVER ,VEIL>
		       <RTRUE>)>
		<PUTP ,PROTAGONIST ,P?ACTION ,PROTAGONIST-HACK-F>
		<FSET ,MASK ,WORNBIT>
		<TELL "You put on the " D ,MASK "." CR>) 
	       (<AND <VERB? LOOK-INSIDE>
		     <FSET? ,MASK ,WORNBIT>>
		<TELL ,YOU-ARE CR>)>>

<OBJECT SUIT
	(IN PROP-ROOM)
	(DESC "gorilla suit")
	(LDESC "Lying here in a heap is a gorilla suit.")
	(SYNONYM SUIT HEAP)
	(ADJECTIVE GORILLA APE ;HEAVY ;ITCHY ;HAIRY)
	(FLAGS TAKEBIT WEARBIT)
	(SIZE 30)
	(ACTION SUIT-F)>

<ROUTINE SUIT-F ()
	 <COND (<AND <VERB? LOOK-INSIDE>
		     <FSET? ,SUIT ,WORNBIT>>
		<PERFORM ,V?LOOK-UNDER ,SUIT>
		<RTRUE>)
	       (<VERB? LOOK-INSIDE>
		<TELL "There's nothing in it." CR>)	       
	       (<AND <VERB? PUT>
		     <PRSI? ,SUIT>>
		<TELL <PICK-ONE ,WASTES> CR>)
	       (<AND <FSET? ,DRESS ,WORNBIT>
		     <VERB? WEAR BOARD>>
		<WONT-FIT-OVER ,DRESS>)
	       (<AND <FSET? ,SHAWL ,WORNBIT>
		     <VERB? WEAR BOARD>>
		<WONT-FIT-OVER ,SHAWL>)
	       (<AND <VERB? WEAR BOARD REMOVE TAKE-OFF DISEMBARK>
		     <FSET? ,SUIT ,WORNBIT>>
		<TELL "You laboriously climb ">
	 	<COND (<VERB? WEAR BOARD>
	       	       <MOVE ,SUIT ,PROTAGONIST>
		       <FSET ,SUIT ,WORNBIT>
		       <TELL "into">)
	       	      (T
		       <FCLEAR ,SUIT ,WORNBIT>
		       <TELL "out of">)>
		<TELL " the heavy, itchy " D ,SUIT "." CR>)
	       (<VERB? EXAMINE>
		<TELL
"It's a 3-H " D ,SUIT " -- heavy, hairy and headless." CR>)>>
		       		      
<OBJECT CAR
	(IN PROP-ROOM)
	(DESC "midget car")
	(SYNONYM CAR AUTO AUTOMOBILE SEAT)
	(ADJECTIVE SMALL MIDGET ;MINIATURE)
	(FLAGS TRYTAKEBIT OPENBIT CONTBIT SEARCHBIT NDESCBIT)	
	(ACTION CAR-F)>

<ROUTINE CAR-F ()
	 <COND (<VERB? OPEN CLOSE>
		<V-COUNT>)
	       (<VERB? EXAMINE SMELL>
		<COND (<NOT <EQUAL? ,P-PRSA-WORD ,W?SMELL>>
		       <TELL
"The tiny car, just a slice of lemon, is in pretty bad shape. ">)>
	        <TELL "It smells of gasoline and burnt oil." CR>)
	       (<AND <PRSI? ,CAR>
		     <VERB? PUT PUT-ON>>
		<V-DIG>)
	       (<VERB? LOOK-INSIDE>
		<TELL 
"It's a one-seater, sporting only an ignition switch on the dash board."
CR>)
	       (<VERB? BOARD THROUGH ENTER CLIMB-ON DRIVE>
		<COND (<FSET? ,CAR ,RMUNGBIT>
		       <TELL ,BASKET-CASE CR>)
		      (T
		       <FSET ,CAR ,RMUNGBIT>
		       <TELL
"Only a basket case or a child would fit in there." CR>)>)
	       (<VERB? LAMP-ON>
		<PERFORM ,PRSA ,SWITCH>
		<RTRUE>)>>

<OBJECT SWITCH
	(IN PROP-ROOM)
	(DESC "ignition switch")
	(SYNONYM SWITCH)
	(ADJECTIVE IGNITION)
	(FLAGS NDESCBIT VOWELBIT)
	(ACTION SWITCH-F)>

<ROUTINE SWITCH-F ()
	 <COND (<VERB? LAMP-ON SET PUSH THROW>
		<COND (<IN? ,MUNRAB ,HERE>
		       <TELL "That surely will get you caught." CR>)
		      (<NOT <FSET? ,SWITCH ,RMUNGBIT>>
		       <FSET ,SWITCH ,RMUNGBIT>
		       <TELL 
"The " D ,CAR " chugs violently for a couple of seconds, lets out a big bang,
then dies." CR>)
		      (<PROB 35>
		       <TELL 
"The " D ,CAR " backfires loudly and comically." CR>)
		      (T
		       <TELL "Nothing happens." CR>)>)>>
		      
<GLOBAL DID-C 0>

<ROUTINE I-DID ()
	 <ENABLE <QUEUE I-DID -1>>
	 <SETG DID-C <+ ,DID-C 1>>
	 <COND (<VERB? YES NO>
		<RFALSE>)
	       (T
		<FCLEAR ,PROTAGONIST ,RMUNGBIT> ;"cant win did puzzle"
		<SETG DID-C 0>
		<SETG AWAITING-REPLY <>>
		<DISABLE <INT I-DID>>)>>
	       
<OBJECT TAFT
	(IN PROP-ROOM)
	(DESC "figure of President Taft")	
	(DESCFCN TAFT-DESC)
	(SYNONYM TAFT PROP CHARACTER FIGURE)
	(ADJECTIVE PRESIDENT WILLIAM HOWARD CARDBOARD)
	(FLAGS TAKEBIT ACTORBIT PERSON)
	(SIZE 50)
	(ACTION TAFT-F)>

<ROUTINE TAFT-DESC ("OPTIONAL" X)
         <TELL "President William Howard Taft is here.">>

;"RMUNGBIT = character is now known as cardboard, not human"

<ROUTINE TAFT-F ()
	 <COND (<AND <VERB? EXAMINE>
		     <NOT <HELD? ,TAFT>>>
		<TELL
"The imposing " D ,TAFT " stands quite still." CR>)
               (<OR <TALKING-TO? ,TAFT>
		    <VERB? WHIP>>
		<TELL 
"He remains silent, unimpeachably frozen." CR>
		<STOP>)
	       (<OR <TOUCHING? ,TAFT>
		    <VERB? WALK-AROUND LOOK-BEHIND>>
	        <COND (<NOT <FSET? ,TAFT ,RMUNGBIT>>
		       <FSET ,TAFT ,RMUNGBIT>
		       <TELL
"Taft wobbles slightly, revealing himself to be nothing but a cardboard
character, a mere prop." CR>)
		      (T
		       <RFALSE>)>)
		(<AND <VERB? HIDE-BEHIND>
		      <NOT ,HIDING>
		      <RUNNING? ,I-MEET>>
		 <HIDE-BEHIND-TAFT>)>> 
		
<ROUTINE HIDE-BEHIND-TAFT ("OPTIONAL" (FORCED <>))
	 <COND (.FORCED
		<TELL "Fear motivates you to">
	        <SETG MEET-COUNTER 7>)
	       (T
	        <TELL "You">
		<SETG MEET-COUNTER 6>)>
	 <COND (<HELD? ,TAFT>
		<MOVE ,TAFT ,HERE>
		<TELL " set Taft down then">)>
	 <SETG HIDING T>
	 <FSET ,TAFT ,NDESCBIT>
	 <TELL " crouch behind the cardboard character." CR>
	 <RTRUE>>

<GLOBAL HIDING <>>

<GLOBAL MEET-COUNTER 0> ;"they ENTER prop-tent on number 7; LEAVE on 9"

<ROUTINE I-MEET ()
	 <ENABLE <QUEUE I-MEET -1>>
	 <FCLEAR ,VOICES ,INVISIBLE>
	 <SETG MEET-COUNTER <+ ,MEET-COUNTER 1>>
	 <COND (<OR <EQUAL? ,MEET-COUNTER 1 3>
	            <EQUAL? ,MEET-COUNTER 6>>
		<TELL CR
"You can hear muffled voices coming from outside"> 
		<COND (<NOT <EQUAL? ,MEET-COUNTER 1>>
		       <TELL ", getting louder and nearer">)>
		<COND (<EQUAL? ,MEET-COUNTER 1>
		       <TELL 
" and see two ominous shadows cast against the side wall of the tent">)>
		<TELL ".">
		<COND (<EQUAL? ,MEET-COUNTER 3>
		       <TELL 
" You feel the childish embarrassment of being trapped.">)>
	       <CRLF>)
	       (<EQUAL? ,MEET-COUNTER 5>
		<TELL CR 
"You hear one voice say, \"Let's duck in here.\"" CR>)
	       (<EQUAL? ,MEET-COUNTER 7>
		<MOVE ,MUNRAB ,PROP-ROOM>
	     	<MOVE ,DICK ,PROP-ROOM>
		<COND (<NOT ,HIDING>
		       <CRLF>
		       <HIDE-BEHIND-TAFT T>)>
	        <TELL CR 
"From behind the " D ,TAFT " you hear footsteps enter the tent, a pause,
then hushed conversation." CR>
		<RTRUE>)
	       (<EQUAL? ,MEET-COUNTER 8>
		<COND (<NOT <AND <VERB? LISTEN>
				 <PRSO? ,VOICES>>>
		       <CRLF>)>
		<TELL 
"\"So, Munrab, what is it? Why have you called me here?\"| 
|
\"Listen, Detective, I've had a terrible day in your lousy little town, so
let me be brief. Receipts have been down all month, tonight's " D ,CON-STAND
" sales were especially small, the towners were tightfisted, they nearly
leveled my grandstand, and on top of that somebody's kidnapped my daughter,
Chelsea. That's where you come in. Here's the most recent picture of her
-- a pretty good likeness in my opinion.\"|
|
\"" D ,MUNRAB ", why are we whispering?\"" CR>)
	       (<EQUAL? ,MEET-COUNTER 9>
		<END-MEETING>)>>
	
<ROUTINE END-MEETING ()
	 <DISABLE <INT I-MEET>>	 
	 <FSET ,VOICES ,INVISIBLE>
	 <FCLEAR ,WINGS ,TOUCHBIT> ;"NEW PASSAGE"
	 <FCLEAR ,TAFT ,NDESCBIT>
	 <COND (<EQUAL? ,MEET-COUNTER 9>
		<COND (<NOT <AND <VERB? LISTEN>
			         <PRSO? ,VOICES>>>
		       <CRLF>)>
		<TELL
"\"I don't know, because it's a mystery I guess. Anyhow, it's not because
I suspect any of my own people here on the lot.\" There's a pause. \"I've
got a pretty loyal crew here. Sure, I work the guys a fair amount, but hey,
no one joins the circus expecting a holiday.\"|
|
Lacking all passion and professionalism, the detective replies, \"I'll
suspect who you want me to suspect. You're paying the bill.\"|
|
\"Here, see, the language of this ransom note clearly shows that it's not
an inside job. Detective, I don't know what kind of crazies are running
loose in this town, but I'm afraid harm might come to my daughter if the
police were to show up. God knows this circus doesn't need that kind of
publicity, anyway. So I'm relying on you and you alone.\"|
|
\"I'd better hold on to that note, Munrab.\"|
|
\"Alright, then get going.\"|
|
You can hear " D ,MUNRAB " and the " D ,DICK " ">)
	       (T
	        <TELL 
D ,MUNRAB " and the " D ,DICK " notice you and they ">)>
	 <TELL "hustle out of the tent">
	 <MOVE ,MUNRAB ,ON-WAGON>	 
	 <MOVE ,DICK ,MIDWEST>
	 <MOVE ,FLASK ,DICK>
	 <MOVE ,TRADE-CARD ,LOCAL-GLOBALS>
	 <COND (<AND ,HIDING
		     <NOT <VERB? STAND>>>
		<TELL ". You stand up.">)
	       (T
		<TELL ".">)>
	 <SETG P-IT-OBJECT ,MUNRAB>
	 <SETG HIDING <>>
	 <SETG MEET-COUNTER 10> ;"I.E., can get to under the stands now"
	 <SETG FOLLOW-FLAG 13>
	 <ENABLE <QUEUE I-FOLLOW 2>>
	 <CRLF>
	 <STOP>>

<OBJECT MUNRAB
	(IN ON-WAGON)
	(DESC "Mr. Munrab")
	(DESCFCN MUNRAB-DESC)
	(SYNONYM MUNRAB OWNER MAN)
	(ADJECTIVE MR CIRCUS)
	(FLAGS ACTORBIT NARTICLEBIT PERSON NDESCBIT OPENBIT CONTBIT SEARCHBIT)
	(ACTION MUNRAB-F)>

;"RMUNGBIT = in end-game told about cost of tightrope"

<ROUTINE MUNRAB-F ()
	 <COND (<EQUAL? ,HERE ,ON-WAGON ,OFFICE>
		<COND (<OR <AND <NOT <FSET? ,PANEL ,OPENBIT>>
			        <TALKING-TO? ,MUNRAB>>
			   <NOT <FSET? ,PANEL ,OPENBIT>>>
		       <CANT-SEE ,MUNRAB>
		       <STOP>)
		      (<OR <DISTURB? ,MUNRAB>
			   <VERB? APPLAUD>>
		       <STARTLE-MUNRAB>
		       <STOP>)>)
	       (<AND <EQUAL? ,HERE ,PROP-ROOM>
		     <TOUCHING? ,MUNRAB>>
		<CANT-REACH ,MUNRAB>)
	       (<AND <VERB? LISTEN>
		     <EQUAL? ,HERE ,PROP-ROOM>>
	        <PERFORM ,V?LISTEN ,VOICES>
	        <RTRUE>)
	       (<VERB? EXAMINE>
		<TELL 
"He gives off the dual expressions of indigestion and indignation." CR>) 
	       (<AND ,END-GAME 
		     <TALKING-TO? ,MUNRAB>>
		<COND (<FSET? ,MUNRAB ,RMUNGBIT>
		       <TELL 
"Completely distraught, " D ,MUNRAB " is now incommunicado." CR>)
		      (T
		       <FSET ,MUNRAB ,RMUNGBIT>
		       <TELL
"\"Hey you, you're gonna pay for this! And do you know the replacement cost
of a tightrope apparatus!\"" CR>)>
	       <STOP>)
	      (<VERB? FOLLOW>
	       <COND (<EQUAL? ,FOLLOW-FLAG 8>
		      <DO-WALK ,P?NE>)
		     (<EQUAL? ,FOLLOW-FLAG 9>
		      <DO-WALK ,P?NORTH>)
		     (<EQUAL? ,FOLLOW-FLAG 13>
		      <DO-WALK ,P?EAST>)>)>>

<ROUTINE MUNRAB-DESC ("OPTIONAL" X)	 
	 <COND (<AND <IN? ,NET ,MUNRAB>
		     <EQUAL? ,HERE ,RING>>
		;<ENABLE <QUEUE I-END-GAME 2>>
		<TELL 
"The " D ,NET " is being held by the motley circle of " D ,MUNRAB ", the " 
D ,JIM ", ">
		<COND (,GANG-HERE
		       <TELL-GROUP>)>
	        ;<COND (<IN? ,GUARD ,HERE>
		       <TELL ", the guard, ">)>
		<TELL "and " D ,THUMB>)
	       (T
		<TELL 
D ,MUNRAB ", pacing pitifully back and forth across the ring, is a complete
wreck">)>
	 <TELL ".">>

<GLOBAL GANG-HERE <>>

<ROUTINE TELL-GROUP ()
	 <TELL 
D ,HERM ", " D ,JOEY ", " D ,HYP ", " D ,CON ", " D ,TAMER " ">>

<OBJECT GANG
	(IN LOCAL-GLOBALS)
	(DESC "group")
	(SYNONYM GROUP CIRCLE COMPANY GAGGLE)
     	(FLAGS ACTORBIT PERSON NDESCBIT)
    	(ACTION GANG-F)>

<ROUTINE GANG-F ()
	 <COND (<TALKING-TO? ,GANG>
		<PERFORM ,V?TELL ,CON>
		<RTRUE>)
	       (<VERB? EXAMINE>
		<TELL "There's " D ,MUNRAB ", the " D ,JIM ", ">
		<TELL-GROUP>
		<TELL "and " D ,THUMB "." CR>)>>

<OBJECT DICK
	(IN LOCAL-GLOBALS)
	(DESC "detective")
      	(DESCFCN DICK-DESC)
	(SYNONYM DICK DETECTIVE MAN DRUNK)
     	(FLAGS ACTORBIT PERSON CONTBIT OPENBIT SEARCHBIT NDESCBIT)
    	(ACTION DICK-F)>

;"RMUNGBIT = dick in bull-room, too sick to respond, needs water"

<ROUTINE DICK-F ()
	 <COND (<AND <NOT ,DICK-DRUNK>
		     <TALKING-TO? ,DICK>
		     <EQUAL? ,HERE ,MIDWEST>>
		<TELL "He just gives you a ">
		<COND (<G? ,DRUNK-COUNTER 2>
		       <TELL "glassy-eyed">)
		      (T
		       <TELL "stern">)>
		<TELL " look and ignores you." CR>
		<STOP>)
	       (<EQUAL? ,WINNER ,DICK>
                <COND (<AND <NOT <FSET? ,DICK ,RMUNGBIT>>
		            <IN? ,NOTE ,GLOBAL-OBJECTS>>
		       <COND (<AND <VERB? GIVE>
			    	   <PRSO? ,NOTE ,TRADE-CARD>
			    	   <PRSI? ,ME>>
		       	      <GET-NOTE>)
			     (<AND <VERB? SGIVE>
			           <PRSO? ,ME>
			           <PRSI? ,NOTE ,TRADE-CARD>>
			      <GET-NOTE>)
			     (<AND <VERB? FIND WHERE>
			    	   <PRSO? ,NOTE ,TRADE-CARD>>
			      <GET-NOTE>)
			     (<AND <VERB? TELL-ABOUT>
				   <PRSO? ,ME>
				   <PRSI? ,NOTE ,TRADE-CARD>>
			      <GET-NOTE>)
			     (T
			      <SETG WINNER ,PROTAGONIST>
			      <PERFORM ,V?HELLO ,DICK>
			      <SETG WINNER ,DICK>
			      <RTRUE>)>)
		      (<VERB? WHERE>
		       <PERFORM ,V?ASK-ABOUT ,DICK ,PRSO>
		       <RTRUE>)
		      (<OR <VERB? HELLO>
			   <AND <VERB? TELL-ABOUT>
	                        <PRSO? ,ME>>>
	               <SETG WINNER ,PROTAGONIST>
	               <PERFORM ,V?ASK-ABOUT ,DICK ,APE> ;"to any default"
	               <SETG WINNER ,DICK>
	               <RTRUE>)	              	
		      (T 
		      <TELL "The " D ,DICK " appears unable to respond." CR>)>)
	      (<AND <EQUAL? ,HERE ,PROP-ROOM>
		    <TOUCHING? ,DICK>>
	       <CANT-REACH ,DICK>)
	      (<AND <OR ,DICK-UNRESPONSIVE
			<FSET? ,DICK ,RMUNGBIT>>
	       	    <VERB? GIVE SHOW>
		    <PRSI? ,DICK>>
	       <PERFORM ,V?ASK-ABOUT ,DICK ,COAT>
	       <RTRUE>)
	      (<AND <VERB? SHOW GIVE>
		    <PRSO? ,RIBBON ,SCRAP ,CASE>>
	       <TELL 
"Not surprisingly, the " D ,PRSO " doesn't ring a bell for the " 
D ,DICK "." CR>)
	      (<AND ,DICK-DRUNK
		    <HURT? ,DICK>>
	       <TELL "You're beating a dead-drunk horse." CR>)
	      (<AND <VERB? ASK-ABOUT ASK-FOR TELL-ABOUT HELLO>
		    <PRSO? ,DICK>>		
	       <COND (<FSET? ,DICK ,RMUNGBIT>
		      <TELL 
"You're having about as much luck as Rimshaw trying to communicate with
the dead, even though the " D ,DICK " still lives on." CR>)
	             (<AND <PRSI? ,TRADE-CARD ,NOTE ,GIRL ,MUNRAB ,CON>
			   <IN? ,NOTE ,GLOBAL-OBJECTS>>
		      <GET-NOTE>)
		     (,DICK-UNRESPONSIVE
		      <TELL 
"Just his attempting to think or speak or move is obviously causing the " 
D ,DICK " great pain." CR>)
		     (T
		      <SETG DICK-UNRESPONSIVE T>
		      <TELL 
"As his jawbone pivots open for speech, some monstrous pain seems to ricochet
off the plates of the " D ,DICK "'s skull. He settles back into the "
D ,SAWDUST "." CR>)>)
	      (<AND <VERB? LISTEN>
		    <EQUAL? ,HERE ,MIDWEST>
		    <NOT ,DICK-DRUNK>>
	       <PERFORM ,V?LISTEN ,VOICES>
	       <RTRUE>)
	      (<VERB? SEARCH>
	       <PERFORM ,V?SEARCH ,COAT>
	       <RTRUE>)
	      (<VERB? SEARCH-OBJECT-FOR>
	       <PERFORM ,V?SEARCH-OBJECT-FOR ,COAT ,PRSI>
	       <RTRUE>)
	      (<AND <VERB? THROW POUR PUT-ON>
		    <PRSO? ,WATER>>
		<COND (<FSET? ,DICK ,RMUNGBIT>
		       <FCLEAR ,DICK ,RMUNGBIT>
		       <MOVE ,WATER ,LOCAL-GLOBALS>
		       <MOVE ,FLASK ,LOCAL-GLOBALS>
		       <TELL 
"The cool wave of water breaks upon the " D ,DICK "'s face with a \"whooosh.\"
He comes up for air, wide-eyed and woken-up.|
|
Glancing down at the flask of Dr. Nostrum's, he heaves it against the
turnstile, and it explodes into a cloud of acrid smoke surrounded by twinkling
flying shards of glass. Lucky no one got hurt." CR>)
		      (,DICK-DRUNK
		       <TELL "He's already soaked." CR>)>)    
	       (<AND <VERB? ALARM SHAKE RAISE>
		     ,DICK-DRUNK>
		<TELL 
"Making fists around the coat's lapel, you give a yank, but the " 
D ,DICK "'s ">
		<COND (<FSET? ,DICK ,RMUNGBIT>
		       <TELL "overheated ">)>
		<TELL "skull merely falls to his opposite shoulder." CR>)
	       (<VERB? EXAMINE>
	        <TELL "Wearing a " D ,COAT " and ">
		<COND (<AND <NOT ,DICK-DRUNK>
			    <EQUAL? ,HERE ,MIDWEST>>
		       <TELL 
"cradling a flask of Dr. Nostrum's in his hands,">)
		      (<EQUAL? ,HERE ,PROP-ROOM>
		       <TELL "looking otherwise disheveled,">)>
		<COND (<AND <EQUAL? ,HERE ,MIDWEST>	
			    ,DICK-DRUNK>	
		       <COND (<IN? ,FLASK ,DICK>
			      <TELL "still clutching the flask">)
			     (T
			      <TELL "looking downtrodden">)>
		       <TELL ",
the " D ,DICK " continues to breathe, but that's about all.">
		       <COND (<FSET? ,DICK ,RMUNGBIT>
			      <TELL 
" His face is damp with fever.">)>)
		      (T
		       <TELL
" he appears to have some kind of " D ,MONKEY " on his back.">)>
	       <CRLF>)
	      (<VERB? FOLLOW>
	       <COND (<EQUAL? ,FOLLOW-FLAG 9>
		      <DO-WALK ,P?SW>)
		     (<EQUAL? ,FOLLOW-FLAG 11>
		      <DO-WALK ,P?WEST>)
		     (<EQUAL? ,FOLLOW-FLAG 13>
		      <DO-WALK ,P?EAST>)>)>>

<ROUTINE GET-NOTE ()
	 <MOVE ,TRADE-CARD ,HERE>
	 <MOVE ,NOTE ,HERE>
	 <SETG P-IT-OBJECT ,TRADE-CARD>
	 <TELL
"With much pain, slowness, and remorse, the " D ,DICK " retrieves what looks
to be a " D ,NOTE  " and a " D ,TRADE-CARD " out of the inner lining of his "
D ,COAT " and lays them on the " D ,SAWDUST "." CR>>

<GLOBAL DICK-DRUNK <>> ;"says he's lying in midwest, not with billy" 
<GLOBAL DICK-UNRESPONSIVE <>>

<ROUTINE DICK-DESC ("OPTIONAL" X)
	 <COND (,DICK-DRUNK
		<TELL 
"Over next to the " D ,BIGTOP ", you can see the rumpled form of the " 
D ,DICK " lying in the " D ,SAWDUST ".">)
	       (T
	        <TELL "The " D ,DICK " is here.">)>>

<OBJECT COAT
	(IN DICK)
	(DESC "rumpled trenchcoat")
      	(SYNONYM TRENCH COAT)
     	(ADJECTIVE RUMPLED COAT)
	(FLAGS CONTBIT NDESCBIT SEARCHBIT TRYTAKEBIT OPENBIT)
    	(SIZE 15)
	(CAPACITY 10)
	(ACTION COAT-F)>

<ROUTINE COAT-F ()
	 <COND (<AND <VERB? LOOK-INSIDE SEARCH SEARCH-OBJECT-FOR OPEN>
		     <EQUAL? ,HERE ,MIDWEST>
		     ,DICK-DRUNK>
		<TELL 
"You're unable to search the coat thoroughly, since the " D ,DICK " is wearing
it." CR>)
	       (<AND <EQUAL? ,HERE ,PROP-ROOM>
		     <OR <TOUCHING? ,COAT>
			 <VERB? LOOK-INSIDE>>>
		<CANT-REACH ,DICK>)
	       (<AND <EQUAL? ,HERE ,MIDWEST>
		     <NOT ,DICK-DRUNK>
		     <VERB? LOOK-INSIDE OPEN CLOSE SEARCH PICK>>
		<PERFORM ,V?TAKE ,FLASK>
		<RTRUE>)
	       (<VERB? CLOSE>
		<V-DIG>)
	       (<AND <VERB? PUT>	
		     <PRSI? ,COAT>>
		<V-DIG>)
	       (<VERB? TAKE REMOVE OPEN>
		<COND (,DICK-DRUNK
		       <TELL 
"It's harder than trying to husk an ear of corn; you finally give up." CR>)
		      (T
		       <TELL <PICK-ONE ,YUKS> CR>)>)>>

<OBJECT TRADE-CARD
	(IN DICK)
	(DESC "trade card")
      	(SYNONYM CARD PICTURE)
	(ADJECTIVE TRADE)
	(FLAGS TAKEBIT)
    	(SIZE 4)
	;(GENERIC GEN-GIRL-F)
	(ACTION TRADE-CARD-F)>

<ROUTINE TRADE-CARD-F ()
	 <COND (<DONT-HANDLE? ,TRADE-CARD>
		<RFALSE>)
	       (<IN? ,TRADE-CARD ,GLOBAL-OBJECTS>
		<CANT-SEE ,TRADE-CARD>)
	       (<AND <EQUAL? ,HERE ,PROP-ROOM>
		     <IN? ,TRADE-CARD ,DICK>>
		<TELL "It's out of your sight." CR>)
	       (<AND <VERB? COMPARE>
		     <EQUAL? ,GIRL ,PRSO ,PRSI>>
		<TELL
"The girl depicted on the " D ,TRADE-CARD " indeed appears as an idealized
portrait of " D ,GIRL "." CR>)
	       (<AND <VERB? COMPARE>
		     <EQUAL? ,RIBBON ,PRSO ,PRSI>>
	        <TELL "It looks like the same " D ,RIBBON "." CR>)
	       (<VERB? EXAMINE>
		<IN-PACKAGE ,TRADE-CARD>)>>

<ROUTINE IN-PACKAGE (OBJ)
         <TELL "[A replica of">
	 <ARTICLE .OBJ T>
	 <TELL " is included in your Ballyhoo package.]" CR>>

<OBJECT NOTE
	(IN LOCAL-GLOBALS)
	(DESC "ransom note")
	(SYNONYM NOTE)	
	(ADJECTIVE RANSOM)
	(FLAGS TAKEBIT)
	(ACTION NOTE-F)>

<ROUTINE NOTE-F ()
	 <COND (<DONT-HANDLE? ,NOTE>
		<RFALSE>)
	       (<IN? ,NOTE ,GLOBAL-OBJECTS>
		<CANT-SEE ,NOTE>)
	       (<VERB? READ EXAMINE>
		<FIXED-FONT-ON>
		<TELL 
"The note is made from letters clipped out of a newspaper. It reads:"
CR CR
"    thE kId iS sAFe aND sOUnD.|
|
    FOr nOw. DoNT leaVe TowN|
|
    WItHOut HeR -|
|
    staY tuNeD foR deTaILs" CR>
		<FIXED-FONT-OFF>)>>

<ROOM WEST-CAMP
      (IN ROOMS)
      (DESC "Camp, West")      
      (NORTH PER PLEAT-EXIT)
      (OUT PER PLEAT-EXIT)
      (SOUTH TO CLOWN-ALLEY IF WARPED-DOOR IS OPEN)
      (IN TO CLOWN-ALLEY IF WARPED-DOOR IS OPEN)
      (EAST TO EAST-CAMP)
      (FLAGS ONBIT RLANDBIT)
      (GLOBAL WARPED-DOOR FENCE CANVAS CLOWN-TRAILER TENT CAMP)
      (ACTION WEST-CAMP-F)>

<ROUTINE WEST-CAMP-F (RARG)
	 <COND (<EQUAL? .RARG ,M-LOOK>
		<CAMP-DESC>
		<TELL CR
"At the northern border of the camp there is a pleated canvas wall, on
either side of which runs the fence that was meant to keep you out. To the
south, you see the long side of a dilapidated trailer, which sits off-kilter."
CR>)
	       (<AND <EQUAL? .RARG ,M-BEG>
		     <CANT-WALK?>>
		<RTRUE>)>>
  
<ROUTINE CANT-WALK? ()
	 <COND (<VERB? WALK>
		<COND (<AND <IN? ,THUMB ,PROTAGONIST>
			    <EQUAL? ,HERE ,WEST-CAMP ,EAST-CAMP>
	            	    <EQUAL? ,P-WALK-DIR ,P?NORTH>>
		       <DONT-WALK ,THUMB>)
		      (<AND <IN? ,GIRL ,PROTAGONIST>
			    <OR <AND <EQUAL? ,HERE ,EAST-CAMP>
				     <EQUAL? ,P-WALK-DIR ,P?WEST ,P?EAST>>
				<AND <EQUAL? ,HERE ,BACK-YARD>
				     <NOT <EQUAL? ,P-WALK-DIR ,P?EAST>>>
				<AND <EQUAL? ,HERE ,NEAR-WAGON>
				     <NOT <EQUAL? ,P-WALK-DIR ,P?SOUTH>>>>>
		       <DONT-WALK ,GIRL>)
		      (T
		       <RFALSE>)>)
	       (T
		<RFALSE>)>>
					  
<ROUTINE DONT-WALK (PERSON)
	 <COND (<EQUAL? .PERSON ,THUMB>
		<TELL D ,THUMB " gets restless in your arms">)
	       (T
		<TELL D ,GIRL " looks afraid">)>
	 <TELL " when you start that way so you stop." CR>> 

<OBJECT CANVAS
	(IN LOCAL-GLOBALS)
	(DESC "canvas wall")
	(SYNONYM PLEATS WALL PLEAT)
	(ADJECTIVE PLEATED DARK CANVAS DARKLY SHADOW)
	(FLAGS NDESCBIT)
        (GENERIC GEN-TENT)
	(ACTION CANVAS-F)>

;"RMUNGBIT = canvas wall has been walked through, now is described in 2 rooms"

<ROUTINE CANVAS-F ()   
	 <COND ;(<AND <EQUAL? ,HERE ,PROP-ROOM>
		     <NOT <FSET? ,CANVAS ,RMUNGBIT>>>
		<CANT-SEE ,CANVAS>)
	       (<VERB? EXAMINE>
		<COND (<AND <RUNNING? ,I-MEET>
			    ;<NOT <IN? ,MUNRAB ,HERE>>
			    <IS-ADJ? ,W?SHADOW>>
		       <TELL "Very ominous." CR>)
		      (<AND <NOT <FSET? ,CANVAS ,RMUNGBIT>>
			    <EQUAL? ,HERE ,PROP-ROOM>>
		       <RFALSE>)
		      (T
	       	       <TELL 
"The " D ,CANVAS " is deeply shadowed by its many pleats." CR>)>)
	       (<AND <EQUAL? ,HERE ,WEST-CAMP>
		     <VERB? OPEN RUB RAISE LOOK-UNDER LOOK-INSIDE MOVE>>
		<TELL 
"One pleat opens up to reveal more darkly shadowed pleats." CR>)
	       (<AND <VERB? WALK-TO BOARD THROUGH CRAWL-UNDER>
		     <EQUAL? ,HERE ,WEST-CAMP ,PROP-ROOM>>
		<COND (<OR <EQUAL? ,HERE ,WEST-CAMP>
			   <FSET? ,CANVAS ,RMUNGBIT>>
		       <COND (<NOT <FSET? ,CANVAS ,RMUNGBIT>>
		       	      <SETG SCORE <+ ,SCORE 10>>)>
		       <TELL-PASS-CANVAS>
		       <FSET ,CANVAS ,RMUNGBIT>		       
		       <COND (<EQUAL? ,HERE ,WEST-CAMP>
		       	      <GOTO ,PROP-ROOM>)
		      	     (T
		       	      <GOTO ,WEST-CAMP>)>)
		      (T
		       <TELL
"This side of the tent is too dark and shadowy to make out the confines
of the " D ,CANVAS "." CR>)>)>>
		       
<ROUTINE GEN-TENT ()
	 ,TENT>

<ROUTINE TENT-BOUND ()
	 <TELL 
"The " D ,PRSO " appears securely bound here." CR>>

<ROOM EAST-CAMP
      (IN ROOMS)
      (DESC "Camp, East")
      (NORTH PER TURNSTILE-EXIT)
      (OUT PER TURNSTILE-EXIT)
      (SOUTH "A fence blocks your way.")
      (WEST TO WEST-CAMP)
      (EAST TO TAMER-ROOM IF TAMER-DOOR IS OPEN)
      (IN TO TAMER-ROOM IF TAMER-DOOR IS OPEN)
      (FLAGS ONBIT RLANDBIT)
      (GLOBAL TURNSTILE FENCE TAMER-TRAILER TAMER-DOOR CURTAINS WINDOW
	      BAGGAGE-COMPARTMENT CAMP)
      (ACTION EAST-CAMP-F)>

<ROUTINE EAST-CAMP-F (RARG)
	 <COND (<EQUAL? .RARG ,M-LOOK>
		<CAMP-DESC>
		<TELL CR
"At the eastern end of the camp sits one lone " D ,TAMER-TRAILER "."
CR>) 	       
	       (<EQUAL? .RARG ,M-BEG>
		<COND (<CANT-WALK?>
		       <RTRUE>)
		      (<AND <VERB? WAIT>
			    <EQUAL? ,WIPE-C 100>
			    <IN? ,JENNY ,LOCAL-GLOBALS>>
	               <TELL 
"It doesn't appear the meeting is about to start soon." CR>)>)
	       (<AND <EQUAL? .RARG ,M-ENTER>
		     <FSET? ,CASE ,TOUCHBIT>
		     <FSET? ,RIBBON ,TOUCHBIT>
		     <FSET? ,SHEET ,TOUCHBIT>
		     <NOT ,WON-JOEY>
		     ,WON-ON-TENT
		     ,CLOWN-ALLEY-SCENE>
		<SETG WIPE-C 0>
		<MOVE ,FLASK ,JOEY>
		<MOVE ,RAG ,JOEY>
		<ENABLE <QUEUE I-JOEY -1>>
		<MOVE ,JOEY ,EAST-CAMP>)>>
			    
<OBJECT TAMER
	(IN TAMER-ROOM)
	(DESC "Gottfried Wilhelm von Katzenjammer")
	(SYNONYM KATZEN KATZ TRAINER TAMER)
	(ADJECTIVE MAN HERR VON GOTTFR WILHEL LION)
	(FLAGS PERSON ACTORBIT NARTICLEBIT)
	(ACTION TAMER-F)>

<ROUTINE TAMER-F ()
	 <COND (<TALKING-TO? ,TAMER>
		<TELL "\"Was ist das!\"" CR>
		<STOP>)
	       (<AND <VERB? FOLLOW>
		     <EQUAL? ,FOLLOW-FLAG 16>>
		<DO-WALK ,P?EAST>)>>

<ROOM TAMER-ROOM
      (IN ROOMS)
      (DESC "Inside Trailer")
      (WEST TO EAST-CAMP IF TAMER-DOOR IS OPEN)
      (OUT TO EAST-CAMP IF TAMER-DOOR IS OPEN)
      (FLAGS ONBIT RLANDBIT)
      (GLOBAL CURTAINS WINDOW TAMER-DOOR TAMER-TRAILER)
      (ACTION TAMER-ROOM-F)>

<ROUTINE TAMER-ROOM-F (RARG)
	 <COND (<EQUAL? .RARG ,M-ENTER>
		<STEP-INTO-TRAILER>
		<COND (<RUNNING? ,I-TAMER>  ;"so you can close door, I-TAMER"
		       <MOVE ,TAMER ,LOCAL-GLOBALS>
		       <ENABLE <QUEUE I-TAMER 3>>)>)
	       (<EQUAL? .RARG ,M-LOOK>
		<TELL
"These quarters are furnished in a foreigner's vision of American Rugged
Individualism. ">
		<COND (<FSET? ,MOOSE ,NDESCBIT>
		       <TELL 
"The head of a moose, for example, hangs as a trophy against">)
		      (T
		       <TELL "There's an opening to a " D ,CRAWL-SPACE " in">)>
		<TELL 
" one wall. Against the west wall the door stands ">
		<OPEN-CLOSED ,TAMER-DOOR>
		<TELL " and a gaily decorated " D ,CURTAINS>
		<COND (<FSET? ,CURTAINS ,OPENBIT>
		       <TELL " is open at">)
		      (T
		       <TELL " covers">)>	
	        <TELL " the " D ,WINDOW "." CR>)>>

<ROUTINE STEP-INTO-TRAILER ()
	 <TELL "You step up into the trailer." CR CR>>

<OBJECT MOOSE 
	(IN TAMER-ROOM)
	(DESC "moose head")
	(SYNONYM HEAD TROPHY ANTLER)
	(ADJECTIVE MOOSE)
	(FLAGS NDESCBIT TAKEBIT)
	(SIZE 90)
	(ACTION MOOSE-F)>

<ROUTINE MOOSE-F ()
	 <COND (<AND <VERB? MOVE PUSH TAKE LOOK-BEHIND>
		     <FSET? ,MOOSE ,NDESCBIT>>
		<FCLEAR ,MOOSE ,NDESCBIT>
		<FCLEAR ,CRAWL-SPACE ,INVISIBLE>
	        <TELL
"The " D ,MOOSE " drops to the floor with a loud thud, revealing an opening,
about one foot square, to a " D ,CRAWL-SPACE "." CR>)
	       (<AND <VERB? PUT PUT-ON>
		     <PRSI? ,WALLS>
		     <EQUAL? ,HERE ,TAMER-ROOM>>
		<TELL "It won't reattach to the " D ,WALLS "." CR>)
	       (<VERB? DRINK>
		<TELL "It's very very dry, undrinkably so." CR>)>>
		     
<OBJECT CRAWL-SPACE 
	(IN TAMER-ROOM)
	(DESC "crawl space")
	(SYNONYM OPENING SPACE HOLE)
	(ADJECTIVE ;HALLOW CRAWL SQUARE)
	(FLAGS NDESCBIT INVISIBLE)
	(ACTION CRAWL-SPACE-F)>
		
<ROUTINE CRAWL-SPACE-F ()
	 <COND (<VERB? LOOK-INSIDE>
		<TELL "It is completely dark inside the opening." CR>)
	       (<VERB? REACH-IN>
		<COND (<IN? ,GIRL ,HERE>
		       <PERFORM ,V?TAKE ,GIRL>
		       <RTRUE>)
		      (T
		       <TELL-WITHIN-REACH>)>)
	       (<VERB? EXAMINE>
		<TELL "The square hole is about a foot wide." CR>)
	       (<AND <VERB? PUT-ON>
		     <PRSO? ,MOOSE>>
		<PERFORM ,V?PUT-ON ,MOOSE ,WALLS>
		<RTRUE>)
	       (<VERB? PUT>		
		<COND (<PRSO? ,GIRL>
		       <RFALSE>)
		      (<L? <GETP ,PRSO ,P?SIZE> 75>
		       <FSET ,PRSO ,INVISIBLE>
		       <MOVE ,PRSO ,CRAWL-SPACE>
		       <COND (<PRSO? ,THUMB>
			      <ENABLE <QUEUE I-TAMER 3>>
			      <TELL 
"A wide-eyed " D ,THUMB " goes easily through the opening and">)
			     (T
			      <TELL "As you release">
		       	      <ARTICLE ,PRSO T>
		       	      <TELL " it">)>
		       <TELL 
" drops to the floor on the other side of the wall. ">
		       <COND (<AND <IN? ,GIRL ,LOCAL-GLOBALS>
			           <NOT ,GIRL-CRIED>>
			      <TELL-WIMPER>
			      <RTRUE>)
			     (T
			      <CRLF>
			      <RTRUE>)>)
		      (T
		       <TELL "It doesn't fit.">)>
		 <CRLF>)
		(<VERB? BOARD ENTER THROUGH>
		 <TELL 
"Despite your writhing and squirming at the opening, it would seem only
a contortionist or a Houdini would fit through it." CR>)>> 

<GLOBAL GIRL-CRIED <>>

<OBJECT WINDOW 
	(IN LOCAL-GLOBALS)
	(DESC "window")
	(SYNONYM WINDOW)
	(FLAGS NDESCBIT TRANSBIT)
	(ACTION WINDOW-F)>

<ROUTINE WINDOW-F ()
	 <COND (<VERB? OPEN CLOSE BOARD THROUGH>
	        <TELL "It refuses to budge." CR>)
	       (<VERB? LOOK-INSIDE>
		<COND (<FSET? ,CURTAINS ,OPENBIT>
		       <TELL ,YOU-SEE>
		       <COND (<EQUAL? ,HERE ,EAST-CAMP>
		       	      <TELL " the inside of the trailer.">)
			     (T
			      <TELL " the performers' camp.">)>)
		     (T
		      <TELL 
"The " D ,CURTAINS "s are drawn over the " D ,WINDOW ".">)>
		<CRLF>)>>

<OBJECT CURTAINS 
	(IN LOCAL-GLOBALS)
	(DESC "curtain")
	(SYNONYM CURTAINS DECORATION)
	;(ADJECTIVE ;BUFFALO ;COWBOY ;GUNFIGHT)
	(FLAGS NDESCBIT DOORBIT)
	(ACTION CURTAINS-F)>

<ROUTINE CURTAINS-F ()
	 <COND (<AND <TOUCHING? ,CURTAINS>
		     <EQUAL? ,HERE ,EAST-CAMP>>
		<TELL 
"The " D ,CURTAINS "s are inside the trailer, hence unreachable." CR>)
	       (<VERB? EXAMINE>
		<TELL "The ">
		<COND (<FSET? ,CURTAINS ,OPENBIT>
		       <TELL "open ">)
		      (T
		       <TELL "closed ">)>
		<TELL 
D ,CURTAINS " is decorated with little Wild West scenes: cowboys mowing down
buffalo, gunfights, and the like." CR>)>>
		
<OBJECT TAMER-TRAILER 
	(IN LOCAL-GLOBALS)
	(DESC "trailer")
	(SYNONYM TRAILER SIDING WAGON)
	(ADJECTIVE ALUMINUM CHALKY LONE)
	(FLAGS NDESCBIT)
	(ACTION TAMER-TRAILER-F)>

<ROUTINE TAMER-TRAILER-F ()
	 <COND (<VERB? EXAMINE>
	        <COND (<EQUAL? ,HERE ,EAST-CAMP>
		       <TELL 
"The " D ,TAMER-TRAILER " with its chalky aluminum siding has all the charm
of a generic beer can. In contrast, a garishly painted sign hangs over both
the door, which is">
		       <COND (<FSET? ,TAMER-DOOR ,OPENBIT>
			      <TELL " open">)
			     (T
			      <TELL " closed">)>
		       <TELL 
", and a window. Built into the side of the " D ,TAMER-TRAILER " is ">
		       <COND (<FSET? ,BAGGAGE-COMPARTMENT ,OPENBIT>
			      <TELL "an open ">)
			     (T
			      <TELL "some kind of baggage ">)>
		       <TELL D ,BAGGAGE-COMPARTMENT ".">
		       <CRLF>)
		      (T
		       <V-LOOK>)>)
	       (<VERB? ENTER BOARD THROUGH>
		<COND (<EQUAL? ,HERE ,TAMER-ROOM>
		       <TELL ,LOOK-AROUND CR>)
		      (T
		       <DO-WALK ,P?EAST>)>)
	       (<VERB? LOOK-INSIDE>
		<COND (<EQUAL? ,HERE ,TAMER-ROOM>
		       <V-LOOK>)
		      (T
		       <PERFORM ,V?LOOK-INSIDE ,WINDOW>
		       <RTRUE>)>)
	       (<AND <TOUCHING? ,TAMER-TRAILER>
		     <IN? ,JOEY ,HERE>>
		<PERFORM ,V?KNOCK ,TAMER-DOOR>
		<RTRUE>)
	       (<VERB? OPEN CLOSE UNLOCK LOCK>
		<PERFORM ,PRSA ,TAMER-DOOR ,PRSI>
		<RTRUE>)>>

<OBJECT TAMER-SIGN 
	(IN EAST-CAMP)
	(DESC "sign")
	(SYNONYM SIGN)
	(ADJECTIVE GARISH PAINTED)
	(FLAGS NDESCBIT)
	(ACTION TAMER-SIGN-F)>

<ROUTINE TAMER-SIGN-F ()
	 <COND (<VERB? READ EXAMINE>
		<FIXED-FONT-ON>
		<TELL
"               Home Of|
  " D ,TAMER "|
|
     KATZENJAMMER OF THE BIG CATS|">
		<FIXED-FONT-OFF>)>>

<OBJECT CAMP 
	(IN LOCAL-GLOBALS)
	(DESC "camp")
	(SYNONYM CAMP)
	(ADJECTIVE PERFOR)
	(FLAGS NDESCBIT)
	(ACTION GLOBAL-ROOM-F)>

<OBJECT TAMER-DOOR 
	(IN LOCAL-GLOBALS)
	(DESC "trailer door")
	(SYNONYM DOOR LOCK)
	(ADJECTIVE TRAILER)
	(FLAGS DOORBIT LOCKEDBIT)
	(ACTION TAMER-DOOR-F)>

<ROUTINE TAMER-DOOR-F ()
	 <COND (<AND <TOUCHING? ,TAMER-DOOR>
		     <IN? ,JOEY ,HERE>>
	        <TELL
D ,JOEY " shields the " D ,TAMER-TRAILER " from you. \"Keep away. The liquid
hasn't dried yet.\"" CR>)
	       (<AND <VERB? CLOSE LOOK-BEHIND>
		     <EQUAL? ,HERE ,TAMER-ROOM>
		     <IN? ,CROWBAR ,LOCAL-GLOBALS>>
		<FCLEAR ,TAMER-DOOR ,OPENBIT>
	        <MOVE ,CROWBAR ,HERE>
		<SETG P-IT-OBJECT ,CROWBAR>
		<TELL 
"As the " D ,TAMER-DOOR " is closed, you notice a " D ,CROWBAR " leaning
against the wall, where it looks more like a weapon than a tool." CR>)   
	       (<VERB? KNOCK>
		<COND (<AND <IN? ,TAMER ,TAMER-ROOM>
		            ,WON-JOEY>
		       <TELL 
,YOU-SEE " the " D ,CURTAINS "s part slightly and then ">
		       <COND (<AND <FSET? ,VEIL ,WORNBIT>
			           <FSET? ,DRESS ,WORNBIT>
			    	   <FSET? ,SHAWL ,WORNBIT>>
		       	      <FSET ,CURTAINS ,OPENBIT>
		       	      <FSET ,TAMER-DOOR ,OPENBIT>
		       	      <FCLEAR ,TAMER-DOOR ,LOCKEDBIT>
		       	      <FCLEAR ,TAMER-DOOR ,RMUNGBIT>
		       	      <FSET ,TAMER ,NDESCBIT>
			      <MOVE ,TAMER ,HERE>
		       	      <ENABLE <QUEUE I-TAMER 1>>
		       	      <TELL 
"you hear through the window a hushed voice with a thick German accent.| 
|
\"Andrew, where is Eddie?! And Willie! We must talk over what to do.
I go now and bring back them, and the " D ,JIM " too. You be guarding in here,
when I will come back.\"|
|
The " D ,TAMER-DOOR " swings inward, and out of the " D ,TAMER-TRAILER
" steps the robust personage of the " D ,TAMER "." CR>)
		      	     (T
		       	      <FSET ,TAMER-DOOR ,RMUNGBIT>
		       	      <ENABLE <QUEUE I-TAMER 10>>
		       	      <TELL "draw closed." CR>)>)
		      (T
		       <RFALSE>)>)
	       (T
		<RFALSE>)>> 
		     
<OBJECT CROWBAR 
	(IN LOCAL-GLOBALS)
	(DESC "crowbar")
	(SYNONYM CROWBAR BAR TOOL) 
	(ADJECTIVE CROW)
	(FLAGS TAKEBIT)
	(SIZE 20)
	(GENERIC GEN-BAR)>

<GLOBAL TAMER-C 0>
 
<GLOBAL END-GAME <>>

<GLOBAL CALLED-STATION <>>

<GLOBAL END-GAME-C 0>

<ROUTINE I-END-GAME ()
	 <SETG END-GAME-C <+ ,END-GAME-C 1>>
         <COND (<EQUAL? ,HERE ,LEFT-HANGING>
		<COND (<EQUAL? ,END-GAME-C 2>
		       <TELL CR 
"Down below, oblivious of your plight, all of the circus folk are making
noises of mutual forgiveness and reconciliation in the new spirit of
togetherness brought on by the dramatic, emotionally charged rescue of
" D ,MUNRAB "'s daughter." CR>)
		      (<EQUAL? ,END-GAME-C 3>
		       <TELL CR 
"You can feel your grip loosen as the crowd below continues its orgy of
feeling." CR>)
		      (<EQUAL? ,END-GAME-C 4>
		       <TELL "Your sweaty hands slip off the wire.">
		       <CARRIAGE-RETURNS 14>
		       <TELL
"The story of your evening's heroic deeds must have just been passed among
the circus people below, because you feel the sudden pressure of your
shoulders sinking deeply into the " D ,NET " and with a rousing chorus of
\"Hip hip hooray!\" you are flung back high into the air, where you view the
smiling upturned faces of your circle of boosters.|
|
You float back down and on the second blast-off -- \"Hip hip hooray!\" -- you
pass out, not so much from the acceleration as from the sheer exhilaration
of having saved The Traveling Circus That Time Forgot, Inc." CR>
		      <FINISH>)>)
	       (<IN? ,JIM ,LOCAL-GLOBALS>
	        <ENABLE <QUEUE I-END-GAME -1>>
		<MOVE ,JIM ,RING>
	  	<MOVE ,NET ,MUNRAB>
	  	<MOVE ,THUMB RING>
		<FSET ,THUMB ,NDESCBIT>
		<FSET ,JIM ,NDESCBIT>
		<COND (<EQUAL? ,HERE ,RING>
		       <TELL CR
"The " D ,JIM " comes sprinting through the wings with the " D ,NET " slung
over his shoulder and the midget " D ,THUMB " in tow. " D ,MUNRAB " and his
two employees each grab part of the net, and they try to position it
directly under the imperiled little girl." CR>)>)
	       (<AND <EQUAL? ,HERE ,RING>
		     <FSET? ,DIAL ,RMUNGBIT> ;"fundraising"
		     <NOT ,GANG-HERE>>
		<MOVE ,TAMER ,HERE>
		<MOVE ,ANDREW ,HERE>
		<MOVE ,JENNY ,HERE>
		<MOVE ,HERM ,HERE>
		<MOVE ,JOEY ,HERE>
		<MOVE ,HYP ,HERE>
		<MOVE ,CON ,HERE>
		<MOVE ,GANG ,HERE>
		<SETG GANG-HERE T>
	        <FSET ,HERM ,NDESCBIT>
		<FSET ,CON ,NDESCBIT>
		<FSET ,HYP ,NDESCBIT>
		<FSET ,JOEY ,NDESCBIT>
		<TELL CR 
"Just now a gaggle of circus performers -- ">
		<TELL-GROUP>
		<TELL 
"-- appear through the wings. Quickly assessing the situation, the group
seems to suddenly, gut-wrenchingly accept the burden of responsibility for the
calamity that has occurred. Their immediate reaction is the instinct to help,
and each grabs part of the net." CR>)
	       (<AND <IN? ,NET ,MUNRAB>
		     <EQUAL? ,HERE ,RING>>
		<ENABLE <QUEUE I-END-GAME -1>>
		<TELL CR
"Munrab & Company, their faces anxiously upturned, are pulling the " D ,NET " 
every which way, kicking sawdust from one end of the ring to the other." CR>
		<RTRUE>)>>

;<OBJECT RADIO-STATION 
	(IN LOCAL-GLOBALS)
	(DESC "station")
	(SYNONYM STATION) 
	(ADJECTIVE RADIO)
	(FLAGS NDESCBIT)>

<ROUTINE I-TAMER ()
	 <COND (<FSET? ,TAMER-DOOR ,RMUNGBIT>
		<FCLEAR ,TAMER-DOOR ,RMUNGBIT>
		<RFALSE>)
	       (<AND <EQUAL? ,HERE ,TAMER-ROOM>
		     <IN? ,THUMB ,CRAWL-SPACE> ;"called for 3 when put in"
		     <IN? ,GIRL ,LOCAL-GLOBALS>> ;"important test - below"
		<ENABLE <QUEUE I-TAMER -1>>
		<SETG TAMER-C 0>
	        <FSET ,GIRL ,RMUNGBIT>
		<TELL CR "Coming from the other side of the wall is a scurrying noise. Then "> 
		<TELL-BOOST-GIRL>
		<RTRUE>)
 	       (T
		<ENABLE <QUEUE I-TAMER -1>>
		<SETG TAMER-C <+ ,TAMER-C 1>>		
	        <COND (<AND <NOT <IN? ,GIRL ,LOCAL-GLOBALS>>
		       	    <FSET? ,GIRL ,RMUNGBIT>
			    <EQUAL? ,HERE ,TAMER-ROOM>>
		       <COND (<EQUAL? ,TAMER-C 1 3>
		       	      <MOVE ,GIRL ,CRAWL-SPACE>
		       	      <TELL CR "The girl drops out of view" >
			      <COND (<EQUAL? ,TAMER-C 3>
				     <TELL 
"; you hear foot-stomping from inside the " D ,CRAWL-SPACE " and then
a long silence">)>
			      <TELL ,PERIOD>)
		      	     (<EQUAL? ,TAMER-C 2>
		       	      <TELL-BOOST-GIRL T>)>
		       <RTRUE>)
		      (<AND <EQUAL? ,TAMER-C 2>
			    <IN? ,GIRL ,LOCAL-GLOBALS>>
		       <MOVE ,TAMER ,LOCAL-GLOBALS>
		       <COND (<EQUAL? ,HERE ,EAST-CAMP>			      
			      <FCLEAR ,TAMER-DOOR ,OPENBIT>
			      <FSET ,TAMER-DOOR ,LOCKEDBIT>
			      <ENABLE <QUEUE I-FOLLOW 2>>
			      <SETG FOLLOW-FLAG 16>
			      <FCLEAR ,CURTAINS ,OPENBIT>
			      <TELL CR 
D ,TAMER ", with a confused look on his face, stares at you
as if he'd never seen a sideshow freak in his life.">
			      <COND (<FSET? ,VEIL ,WORNBIT>
				     <TELL " He peels back your veil,">)
	        		    (T
				     <TELL " He">)>
			      <TELL
" shoves you to the " D ,GROUND ", and steps up into the " 
D ,TAMER-TRAILER ". You bring " D ,ME " to your feet." CR>)>)
		       ;(<AND <G? ,TAMER-C 7>
			     <EQUAL? ,HERE ,TAMER-ROOM>
			     <NOT <HELD? ,THUMB>>
			     <NOT <VERB? WALK OPEN>>
			     <OR <FSET? ,TAMER-DOOR ,OPENBIT>
				 <FSET? ,CURTAINS ,OPENBIT>>>
		        <TELL CR 
"Out of the " D ,CORNER " of your eye, you notice a flash of color passing
in front of the ">
		        <COND (<FSET? ,WINDOW ,OPENBIT>
			       <TELL D ,WINDOW>)
			      (T
			       <TELL D ,TAMER-DOOR>)>
			<TELL 
". " D ,JOEY " barges through the door, and taunts you with your old
nemesis, the " D ,PROD ". ">
		        <JIGS-UP 3  
"With a lightning thrust, he makes contact.">)>)>>

<ROUTINE TELL-BOOST-GIRL ("OPTIONAL" (AGAIN? <>))
	 <MOVE ,GIRL ,HERE>
	 ;<CRLF>
	 <COND (.AGAIN?
		<TELL CR "Once again ">)>
	 <TELL "you can hear the strained voice of " D ,THUMB " cursing in Russian as he gives a boost to his human cargo. ">
	 <COND (.AGAIN?
		<TELL CR 
"The girl is held precariously up to the opening." CR>)
	       (T
	        <TELL CR CR  
"Slowly rising into view through the opening comes the expressionless face
of the missing girl, framed by her tousled and ribbonless hair, seeming too
tired to be frightened.|
|
She pauses there for an instant, a portrait of innocence within a
jagged plywood frame." CR>)>>

<OBJECT GIRL 
	(IN LOCAL-GLOBALS)
	(DESC "Chelsea")
	(SYNONYM GIRL CHELSEA)
	(ADJECTIVE LITTLE)
	(FLAGS PERSON ACTORBIT TAKEBIT NARTICLEBIT FEMALE)
	(SIZE 50)
	;(GENERIC GEN-GIRL-F)
	(ACTION GIRL-F)>

;"RMUNGBIT = girl's being raised and lowered in crawl-space"

<ROUTINE GIRL-F ()
	 <COND (<AND <VERB? LISTEN>
		     <IN? ,GIRL ,LOCAL-GLOBALS>
		     ,GIRL-CRIED>
		<TELL "You don't hear the " D ,WHIMPER " now." CR>)
	       (<VERB? EXAMINE>
		<TELL
"She looks exhausted, but also somehow strengthened by her travails
this evening." CR>)
	       (<TALKING-TO? ,GIRL>
		<COND (<IN? ,GIRL ,APE>
		       <SETG WINNER ,PROTAGONIST>
		       <PERFORM ,V?TELL ,APE>
		       <STOP>)
		      (T
		       <TELL
"The girl merely looks at you with frightened eyes. She has learned her
lesson about not talking to strangers." CR>
		<STOP>)>) 
	       (<AND <VERB? TAKE>
		     <FSET? ,GIRL ,RMUNGBIT>
		     <EQUAL? <ITAKE> T>>
		<DISABLE <INT I-TAMER>>
		<ENABLE <QUEUE I-GIRL -1>>
	        <MOVE ,THUMB ,LOCAL-GLOBALS>
		<SETG SCORE <+ ,SCORE 10>>
		<SETG FOLLOW-FLAG 10>
		<ENABLE <QUEUE I-FOLLOW 2>>
		<FCLEAR ,THUMB ,INVISIBLE>
		<FCLEAR ,GIRL ,RMUNGBIT>
	        <FCLEAR ,APE-DOOR ,OPENBIT>
		<FSET ,APE-DOOR ,LOCKEDBIT>
		<TELL 
"You hoist the girl from out of the " D ,CRAWL-SPACE ". " D ,THUMB 
", exhilarated by the rescue, climbs out of the opening unassisted,
and then exits the " D ,TAMER-TRAILER "." CR>
	        <RTRUE>)
	       (<AND <VERB? GIVE SHOW>
		     <PRSO? ,TRADE-CARD>>
		<TELL "\"That's me,\" she says." CR>)
	       (<AND <VERB? DROP PUT THROW GIVE>
		     <PRSO? ,GIRL>>
		<COND (<AND ,PRSI
			    <FSET? ,PRSI ,TAKEBIT>>
		       <TELL "She resists">)
		      (T
		       <TELL 
"With fear in her eyes, she resists your abandonment">)>
		<TELL ,PERIOD>)
	       (<OR <AND <VERB? GIVE PUT-ON>
		         <PRSI? ,GIRL>>
		    <AND <VERB? TIE>
			 <PRSO? RIBBON>>>
		<TELL 
"Understandably, " D ,GIRL " is reluctant to accept gifts from strangers">
		<COND (<PRSO? ,RIBBON>
		       <TELL ", even her own " D ,RIBBON>)>
		<TELL ,PERIOD>) 
	       (<AND <TOUCHING? ,GIRL>
		     <IN? ,GIRL ,APE>>
		<CANT-REACH ,GIRL>)
	       (<VERB? SAVE-SOMETHING>
		<TELL ,HOW CR>)
	       (<AND <VERB? FOLLOW>
		     <EQUAL? ,FOLLOW-FLAG 9>>
		<DO-WALK ,P?NORTH>)>>

<ROUTINE I-GIRL ()
	 <COND (<AND <EQUAL? ,HERE ,NEAR-WAGON>
		     <IN? ,MUNRAB ,OFFICE>
		     <IN? ,GIRL ,PROTAGONIST>>
		<FCLEAR ,OFFICE-DOOR ,LOCKEDBIT>		
		<FSET ,OFFICE-DOOR ,OPENBIT>
	        <MOVE ,MUNRAB ,MEN>
		<FSET ,MUNRAB ,NDESCBIT>
		<ENABLE <QUEUE I-FOLLOW 2>>
		<SETG P-IT-OBJECT ,MUNRAB>
		<SETG FOLLOW-FLAG 8>
		<TELL CR
"As you approach the " D ,WAGON ", " D ,MUNRAB " steps down from
inside his office and, as his eyes fall upon the figure of you
carrying the only bit of preciousness in his life, it's as if he were
jolted by an " D ,PROD ". For an instant, his confused mind appears to
be sending him strong fight-or-flight messages, for suddenly he dashes
off through the hole in the fence." CR>)
	       (<IN? ,MUNRAB ,MEN>
		<COND (<EQUAL? ,HERE ,NEAR-WAGON>
		       <TELL CR 
"The little girl begins whining at you to follow her father, and off you
go." CR CR>
		       <GOTO ,MEN>)>
	       	<DISABLE <INT I-GIRL>>
		<ENABLE <QUEUE I-END-GAME -1>>
		<ENABLE <QUEUE I-FOLLOW 2>>
		<SETG FOLLOW-FLAG 9>
	        <SETG END-GAME T>
		<SETG APE-LOC 1>
		<MOVE ,JIM ,RING>
		<MOVE ,MUNRAB ,RING>
	        <MOVE ,GIRL ,APE>
		<MOVE ,DICK ,LOCAL-GLOBALS>
	        <MOVE ,APE ,LOCAL-GLOBALS>
		<FCLEAR ,MUNRAB ,NDESCBIT>		
		<FCLEAR ,RING ,TOUCHBIT>
	        <FCLEAR ,CLOWN-ALLEY ,TOUCHBIT>
	        <FSET ,GIRL ,NDESCBIT>
		<FSET ,APE ,NDESCBIT>
		<TELL CR 
D ,MUNRAB ", standing here desperate and alone in the middle of the
menagerie, is calling out in every direction for the detective.|
|
The sotted sleuth comes staggering in from the midway, and " D ,MUNRAB
", pointing confidently at you, delivers the order, \"There is the
perpetrator. Shoot ">
		<MAN-OR-WOMAN "him" "her">
		<TELL
".\" As the " D ,DICK " stumbles toward you, your ears are pierced by "
D ,GIRL " screaming at the top of her lungs, and then by the screech of
bending metal. Suddenly, you're blindsided by a wall of bristly animal fur
which knocks you to the ground. You get up dazed, and see " D ,MUNRAB "
chasing a giant ape to the north while the detective slinks away through
the hole in the fence." CR>)>>
				
<OBJECT WHIMPER
	(IN TAMER-ROOM)
	(DESC "whimper")
	(SYNONYM WHIMPER)
	(FLAGS NDESCBIT CLEARBIT)	
	(ACTION WHIMPER-F)>

<ROUTINE WHIMPER-F ()
	 <COND (<AND <VERB? LISTEN FOLLOW FIND>
		     ,GIRL-CRIED>
		<PERFORM ,V?LISTEN ,GIRL>
		<RTRUE>)
	       (T
		<CANT-SEE ,WHIMPER>)>>

<OBJECT BAGGAGE-COMPARTMENT 
	(IN EAST-CAMP)
	(DESC "compartment")
	(SYNONYM COMPAR)
	(ADJECTIVE BAGGAGE)
	(FLAGS NDESCBIT CONTBIT CAGEBIT LOCKEDBIT)
	(CAPACITY 50)
	(ACTION BAGGAGE-COMPARTMENT-F)>

<ROUTINE BAGGAGE-COMPARTMENT-F ()
	 <COND (<AND <TOUCHING? ,BAGGAGE-COMPARTMENT>
		     <IN? ,JOEY ,HERE>>
		<PERFORM ,V?KNOCK ,TAMER-DOOR>)>>

<ROUTINE CAMP-DESC ()
	 <TELL "You're in the ">
	 <COND (<EQUAL? ,HERE ,WEST-CAMP>
		<TELL "west">)
	       (T
		<TELL "east">)>
	 <TELL
" end of the performers' camp. It is unevenly lighted by a number
of glaring spotlights which ring the camp, creating a stage-like
patchwork of light and dark." CR>>

<OBJECT THUMB
	(IN CON-AREA)
	(DESC "Comrade Thumb")
	(DESCFCN THUMB-DESCFCN)
	(SYNONYM THUMB MIDGET MAN GENERAL)
	(ADJECTIVE COMRAD CONSTA MIDGET LITTLE)
	(FLAGS ACTORBIT PERSON NARTICLEBIT TAKEBIT NDESCBIT CONTBIT OPENBIT
	       SEARCHBIT)
	(SIZE 70)
	(ACTION THUMB-F)>

;"THUMB RMUNGBIT = has arrived in I-THUMB and will run away next move"

;" I dont understand = Ya ne ponimayu.
   I dont speak English = Ya ne govoryu po-anglijski
   What? = Shto?"

<ROUTINE THUMB-F ()
	 <COND (<EQUAL? ,THUMB ,WINNER>
		<COND (<VERB? HELLO>
		       <SETG WINNER ,PROTAGONIST>
		       <PERFORM ,V?HELLO ,THUMB>
		       <SETG WINNER ,THUMB>
		       <RTRUE>)
		      (<AND <VERB? TELL-ABOUT>
			    <PRSO? ,ME>>
		       <SETG WINNER ,PROTAGONIST>
		       <PERFORM ,V?ASK-ABOUT ,THUMB ,ME>
		       <SETG WINNER ,THUMB>
		       <RTRUE>)>)
	       (<VERB? HELLO WAVE-AT>
		<TELL 
"He gives you a slow and dramatic wave, as if to a great audience." CR>)
		(<TALKING-TO? ,THUMB>		     
		 <COND (<RUNNING? ,CLOWN-ALLEY>
		       <PERFORM ,V?RUB ,JOEY>
		       <RTRUE>)
		      (T
		       <TELL 
"Unable to comprehend what you're saying, he shrugs his shoulders." CR>
		<STOP>)>)
	       (<AND <VERB? EXAMINE>
		     <RUNNING? ,I-CLOWN-EXIT>>
		<TELL "He rolls his eyes back in a theatrical way." CR>)
	       (<AND <VERB? LISTEN>
		     <EQUAL? ,CLOWN-EXIT-COUNTER 4>
		     <NOT <HELD? ,THUMB>>>
		<TELL
"It's certainly not the hit parade." CR>)
	       (<AND <VERB? DROP GIVE THROW PUT>		     
		     <PRSO? ,THUMB>
		     <NOT <EQUAL? ,PRSI ,CRAWL-SPACE>>>
		<TELL "He squirms out of your hold">
		<COND (<AND <EQUAL? ,HERE ,TAMER-ROOM>
			    <NOT <FSET? ,TAMER-DOOR ,OPENBIT>>>
		       <FSET ,TAMER-DOOR ,OPENBIT>
		       <TELL ", opens the door,">)>
		<COND (<NOT <RUNNING? ,I-CLOWN-EXIT>>
		       <TELL " and flees into the night">
		       <MOVE ,THUMB ,LOCAL-GLOBALS>)
		      (T
		       <SETG CLOWN-EXIT-COUNTER 7>
		       <MOVE ,THUMB ,HERE>)>
		<TELL ,PERIOD>)
	       (<OR <AND <VERB? RAISE PICK-UP>
			 <NOT ,PRSI>>
		    <AND <VERB? RAISE>
			 <EQUAL? ,PRSI ,FOUNTAIN ,BUTTON>>>		 
		<COND (<RUNNING? ,I-BOOST>
		       <SETG HELPED-THUMB T>
		       <TELL "Once elevated, ">
		       <THUMB-DRINKS>
		       <BOOST-EXIT>)
		      (T
		       <PERFORM ,V?TAKE ,THUMB>
		       <RTRUE>)>)
	       (<EQUAL? ,HERE ,BLUE-ROOM>
	        <COND (<DISTURB? ,THUMB>
		       <TELL 
"Curious, the " D ,DEALER " peeks under the " D ,TABLE " and flushes "
D ,THUMB ", who sprints through the " D ,BLUE-DOOR ". ">
	               <EIGHTY-SIX>)
		      (<VERB? EXAMINE>
		       <COND (<AND <FSET? ,TABLE ,RMUNGBIT>
				   <EQUAL? ,HERE ,BLUE-ROOM>>
			      <PERFORM ,V?RUB ,THUMB>
			      <RTRUE>)
			     (<AND <RUNNING? ,I-CLOWN-ALLEY>
				   <EQUAL? ,HERE ,CLOWN-ALLEY>
				   ,HELPED-THUMB>
			      <TELL "He winks at you and flashes a smile." CR>)
			     (T
			      <FSET ,TABLE ,RMUNGBIT>
			      <TELL ,YOU-SEE
" a trembling midget hand pull the tablecloth back down." CR>)>)>)     
	       (<AND <VERB? TAKE>
		     <PRSO? ,THUMB>>
	        <COND (<OR <EQUAL? ,HERE ,RING>
			   <RUNNING? ,I-CLOWN-ALLEY>>
		       <TELL "He">
		       <COND (,HELPED-THUMB
			     <TELL "'s had it with the upsy-daisy stuff and">)>
		       <COND (<EQUAL? ,HERE ,RING>
			      <TELL " resists furiously">)
			     (T
			      <TELL " leans back out of reach">)>
		       <TELL ,PERIOD>)
		      (<RUNNING? ,I-BOOST>
		       <PERFORM ,V?RAISE ,THUMB>
		       <RTRUE>)
		      (<OR <RUNNING? ,I-THUMB>
			   <AND <RUNNING? ,I-CLOWN-EXIT>
				<NOT ,HELPED-THUMB>>>
		       <TELL 
"As you reach down, he scampers between your legs">
		       <COND (<OR <NOT <RUNNING? ,I-CLOWN-EXIT>>
				  <RUNNING? ,I-THUMB>>
			      <TELL 
", giggling in his strangely high-pitched, compressed voice">)>
		       <TELL ,PERIOD>)
		      (<AND <RUNNING? ,I-CLOWN-EXIT>
			    <EQUAL? <ITAKE> T>>
		       <COND (<G? ,CLOWN-EXIT-COUNTER 3>
			      <SETG CLOWN-EXIT-COUNTER 3>)>
		       <MOVE ,FLOWER ,THUMB>
		       <TELL 
"As you put your hands on the midget, for an instant he squirms, then, deciding
you mean no harm, relaxes in your grip and you're able to lift him.|
|
You notice him wearing a daisy in the lapel of his uniform." CR>
		       <RTRUE>)
		      (<EQUAL? <ITAKE> T>
		       <TELL 
"You cradle the little performer in your arms and he allows you to lift
him." CR>)>
		<RTRUE>)
	       (<VERB? MOVE>
		<V-DIG>)
	       (<VERB? FOLLOW>
		<COND (<EQUAL? ,FOLLOW-FLAG 1 10>
		       <DO-WALK ,P?WEST>)
		      (<EQUAL? ,FOLLOW-FLAG 2>
		       <COND (<EQUAL? ,HERE ,BACK-YARD>
			      <DO-WALK ,P?SOUTH>)
			     (T
			      <DO-WALK ,P?WEST>)>)>)>>

;"NDESCBIT for when he's sleeping, desc in clown-alley-f"

<ROUTINE THUMB-DESCFCN ("OPTIONAL" X)
	 <COND (<AND <EQUAL? ,HERE ,CLOWN-ALLEY>
		     <RUNNING? ,I-CLOWN-ALLEY>>
		<TELL 
"Sitting on an upper bunk, with his arms folded and legs swinging,
is Comrade Thumb.">)
	       (<FSET? ,CROWBAR ,TOUCHBIT>
		<TELL 
"Lying perfectly still in the " D ,UPPER ", yet with his eyes wide open, is "
D ,THUMB ".">)
	       (T
		<TELL "Comrade Thumb is here.">)>>

<ROUTINE THUMB-DRINKS ()
	 <TELL D ,THUMB " slurps his fill of " D ,WATER  ". He then plops
down, gives you a quick salute,">>
	       
<OBJECT UNIFORM
	(IN THUMB)
	(DESC "uniform")
	(SYNONYM UNIFORM)
	(ADJECTIVE RUSSIAN GENERAL)
	(FLAGS NDESCBIT TRYTAKEBIT VOWELBIT)	
	(ACTION UNIFORM-F)>

<ROUTINE UNIFORM-F ()
	 <COND (<AND <IN? ,UNIFORM ,THUMB>
		     <VERB? TAKE REMOVE>>		
		<KIND-OF-PERFORMER ,THUMB>)>>

<ROUTINE KIND-OF-PERFORMER ("OPTIONAL" (PERSON <>))
	 <COND (.PERSON
		<TELL D .PERSON>)
	       (T
		<TELL "Tina">)>
	 <TELL " is not that kind of performer." CR>>

<OBJECT FLOWER
	(IN LOCAL-GLOBALS)
	(DESC "flower")
	(SYNONYM FLOWER DAISY)
	(FLAGS NDESCBIT TRYTAKEBIT)	
	(ACTION FLOWER-F)>

<ROUTINE FLOWER-F ()
	 <COND (<VERB? EXAMINE TAKE PICK RUB SMELL>
		<COND (<FSET? ,FLOWER ,RMUNGBIT>
		       <TELL 
"You're not going to fall for that trick twice." CR>
		       <RTRUE>)
		      (<NOT <VERB? SMELL>>
		       <TELL "As you reach for it, t">)
		      (T
		       <TELL "T">)>
		<FSET ,FLOWER ,RMUNGBIT>
		<TELL		
"he daisy spritzes some water in your face, and " D ,THUMB "'s cherubic
face lets out a squeal of delight." CR>)>>

<GLOBAL BOOST-COUNTER 0>

<GLOBAL HELPED-THUMB <>>

<ROUTINE I-BOOST ()
	 <SETG BOOST-COUNTER <+ ,BOOST-COUNTER 1>>
	 <COND (<EQUAL? ,BOOST-COUNTER 7>
		<BOOST-EXIT>)
	       (T
	        <COND (<EQUAL? ,HERE ,CON-AREA>
		       <CRLF>
		       <COND (<EQUAL? ,BOOST-COUNTER 1>
			      <TELL
"The last of the crowd just now trickles eastward through the " 
D ,TURNSTILE ".|
|
A midget decked out in a Russian general's uniform is standing before">)
		             (<EQUAL? ,BOOST-COUNTER 2>
	                      <TELL
"The little general gets up on his tiptoes in front of">)
	                     (<EQUAL? ,BOOST-COUNTER 3>
		              <TELL 
"Attempting to do a pull-up, Comrade Thumb manages to sprawl himself onto" >)
	            	     (<EQUAL? ,BOOST-COUNTER 4>
		              <TELL
"Straining his neck to reach the spout, the midget gropes for the button,
loses his grip and plops to the " D ,GROUND " before" >)
	                    (<EQUAL? ,BOOST-COUNTER 5>
		             <TELL
"The midget looks up at you sadly, then at">)
	                    (<EQUAL? ,BOOST-COUNTER 6>
		             <TELL
"Comrade Thumb flaps his little arms once in frustration,">
                             <BOOST-EXIT>
			     <RFALSE>)>
	              <TELL " the " D ,FOUNTAIN "." CR>)
		     (T
		      <RFALSE>)>)>>

<ROUTINE BOOST-EXIT ()
	 <MOVE ,THUMB ,LOCAL-GLOBALS>	 
	 <DISABLE <INT I-BOOST>>
	 <MOVE ,CROWD ,STANDS-ROOM>
	 <COND (<AND <EQUAL? ,HERE ,CON-AREA>
		     <L? ,BOOST-COUNTER 7>>
		<TELL " and waddles off into the darkness." CR>
		<SETG FOLLOW-FLAG 1>
		<ENABLE <QUEUE I-FOLLOW 2>>)>
	 <RTRUE>> 

<OBJECT JOEY
	(IN LOCAL-GLOBALS)
	(DESC "Chuckles")
	(DESCFCN JOEY-DESC)
	(SYNONYM CHUCKLES CLOWN JOEY MAN)
	(ADJECTIVE ;JOEY LANKY TALL)
	(FLAGS ACTORBIT PERSON NARTICLEBIT CONTBIT OPENBIT SEARCHBIT)
	(ACTION JOEY-F)>

;"RMUNGBIT = asked guard about him"

<ROUTINE JOEY-DESC ("OPTIONAL" X)
	 <COND (<RUNNING? ,I-CLOWN-ALLEY>
		<TELL
"Chuckles the clown is leaning in front of a mirror, removing his makeup.">)
	       (<EQUAL? ,HERE ,BACK-YARD>
		<TELL
"A tall and lanky clown in baggy pants trudges out of the ">
		<COND (<EQUAL? ,P-WALK-DIR ,P?EAST>
		       <TELL D ,DARKNESS>)
		      (T
		       <TELL "tent">)>
		<TELL
" and toward the " D ,TURNSTILE ". " D ,THUMB " follows behind.">)
	       (<EQUAL? ,HERE ,EAST-CAMP>
		<TELL
"Chuckles is standing, out of costume, in front of the aluminum trailer.">
		<COND (<EQUAL? ,WIPE-C 0>
		       <TELL " As you approach, ">
		       <COND (<JOKE-TIME? ,JOEY-JOKE>
			      <SETG JOEY-JOKE T>
			      <TELL 
"he glances at you and says, \"Pick up an application at the " D ,WAGON 
", not here.\"">)
			     (T
			      <TELL "he begins polishing away at it.">)>)>)>>

<GLOBAL JOEY-JOKE <>>

<ROUTINE JOEY-F ()
      	 <COND (<EQUAL? ,WINNER ,JOEY>  ;"EDDIE omitted"
                <COND (<AND <VERB? TELL-ABOUT>
	                    <PRSO? ,ME>>
	               <SETG WINNER ,PROTAGONIST>
	               <PERFORM ,V?ASK-ABOUT ,JOEY ,PRSI>
	               <SETG WINNER ,JOEY>
	               <RTRUE>)
	              (<VERB? HELLO>
	               <SETG WINNER ,PROTAGONIST>
	               <PERFORM ,V?HELLO ,JOEY>
	               <SETG WINNER ,JOEY>
	               <RTRUE>)
		      (<AND <VERB? YOU-ARE-OBJECT>
			    <PRSO? ,EDDIE>>
		       <SETG WINNER ,PROTAGONIST>
		       <PERFORM ,V?TELL ,EDDIE>
		       <SETG WINNER ,JOEY>
		       <RTRUE>)
		      (T
		       <TELL ,BEAT-IT>
                       <STOP>)>)                 ;"end of winner"
	       (<AND <VERB? ASK-ABOUT TELL-ABOUT>
		     <PRSI? ,EDDIE>
		     <FSET? ,EDDIE ,RMUNGBIT>>
		<PERFORM ,V?HELLO ,EDDIE>
		<RTRUE>)
	       (<AND <TALKING-TO? ,JOEY>		
		     <RUNNING? ,I-CLOWN-ALLEY>>
		<PERFORM ,V?RUB ,JOEY>
		<RTRUE>)
	       (<AND <TALKING-TO? ,JOEY>
		     <NOT <VERB? TELL>>>
	    	<TELL ,BEAT-IT>
		<STOP>)
	       (<VERB? FOLLOW>
		<COND (<EQUAL? ,FOLLOW-FLAG 2>
		       <DO-WALK ,P?SOUTH>)
		      (<EQUAL? ,FOLLOW-FLAG 3>
		       <DO-WALK ,P?WEST>)
	              (<EQUAL? ,FOLLOW-FLAG 4>
		       <DO-WALK ,P?EAST>)>)
	       (<AND <VERB? GIVE SHOW>
	             <PRSI? ,JOEY ,EDDIE>>
		<SETG P-IT-OBJECT ,JOEY>
	        <COND (<AND <PRSO? RIBBON>
			    <NOT <FSET? ,RIBBON ,RMUNGBIT>>>
		       <SETG SCARE-NUMBER <+ ,SCARE-NUMBER 1>>
		       <FSET ,RIBBON ,RMUNGBIT>
		       <COND (<JOEY-SCARED?>
			      <RFATAL>)
			     (<FSET? ,TRADE-CARD ,RMUNGBIT>
			      <HATE-TO-SEE>
			      <ELBOW-GREASE>)
		       	    (T
			     <TELL "\"Never saw it before in my life.\"" CR>)>)
		      (<AND <PRSO? TRADE-CARD>
			    <NOT <FSET? ,TRADE-CARD ,RMUNGBIT>>>
		       <SETG SCARE-NUMBER <+ ,SCARE-NUMBER 1>>
		       <FSET ,TRADE-CARD ,RMUNGBIT>
		       <COND (<JOEY-SCARED?>
			      <RFATAL>)
			     (<FSET? ,RIBBON ,RMUNGBIT>
			      <TELL 
"\"That ribbon in her hair looks like yours.\" He pauses. ">
			      <HATE-TO-SEE>
			      <ELBOW-GREASE>
			      <RTRUE>)
		       	    (T
			     <TELL 
"\"Good product. I'd highly recommend it.\"" CR>)>)
		      (<AND <PRSO? ,SCRAP>
		       	    <NOT <FSET? ,SCRAP ,RMUNGBIT>>>
		       <FSET ,SCRAP ,RMUNGBIT>
		       <SETG SCARE-NUMBER <+ ,SCARE-NUMBER 1>>
		       <TELL 
D ,JOEY " looks skeptically at the " D ,SCRAP " while listening to you
tell where you found it. ">
		       <COND (<JOEY-SCARED? T>
			      <RFATAL>)
			     (<FSET? ,NOTE ,RMUNGBIT>
			      <CHERRY-PIE>
			      <ELBOW-GREASE>)
			     (T
			      <TELL CR CR 
"\"Yea, I make paper dolls for the local kids. It's part of my act. So
what?\"" CR>)>
		       <RTRUE>)
		      (<AND <PRSO? ,NOTE>
		       	    <NOT <FSET? ,NOTE ,RMUNGBIT>>>
		       <FSET ,NOTE ,RMUNGBIT>
		       <SETG SCARE-NUMBER <+ ,SCARE-NUMBER 1>>
		       <TELL 
"He reads the " D ,NOTE ", silently mouthing the words. ">
		       <COND (<JOEY-SCARED? T>
			      <RFATAL>)
			     (<FSET? ,SCRAP ,RMUNGBIT>
			      <CHERRY-PIE>
			      <ELBOW-GREASE>)
			     (T
			      <TELL
"He deadpans, \"Fascinating. Don't let the " D ,DICK " find you with
that.\"" CR>)>
		       <RTRUE>)
		      (<AND <PRSO? ,SHEET>	
		       	    <NOT <FSET? ,SHEET ,RMUNGBIT>>>
		       <FSET ,SHEET ,RMUNGBIT>
		       <SETG SCARE-NUMBER <+ ,SCARE-NUMBER 1>>
		       <TELL
"Chuckles's eyes dart between the various numbers in the multiple columns on
the "  D ,SHEET ". ">
		      <COND (<JOEY-SCARED? T>
			     <RFATAL>)
			    (,JOEY-NAME-KNOWN
			     <TELL 
"\"So what? It's tough all over. I don't hold any grudge against "
D ,MUNRAB ". Hell, I'm just a clown, a happy clown.\" ">
			     <ELBOW-GREASE>)
			    (T
			     <TELL 
"\"I don't know anyone by that name.\"" CR>)>)
		     (<PRSO? ,SHEET ,NOTE ,SCRAP ,RIBBON ,TRADE-CARD>
		      <TELL "He ignores it this time." CR>)>)>>

<ROUTINE HATE-TO-SEE ()
	 <TELL
"\"I'd hate to be caught red-handed holding that " D ,RIBBON " if I were
you.\" ">>

<GLOBAL WON-JOEY <>>

<GLOBAL WIPE-C 100> ;"begins on east-camp m-enter, on 8 Joey enters trailer,
		     he comes here as you m-enter every time. 100 is he hasn't
		     come out once yet."
<ROUTINE I-JOEY ()
 	 <SETG WIPE-C <+ ,WIPE-C 1>>
	 <COND (<EQUAL? ,WIPE-C 8>		
		<MOVE ,JOEY ,LOCAL-GLOBALS>
	        <COND (<EQUAL? ,HERE ,EAST-CAMP>
		       <TELL-SCREWS "enters">
		       OH<SETG FOLLOW-FLAG 4>
		       <ENABLE <QUEUE I-FOLLOW 2>>
		       <TELL  " the " D ,TAMER-TRAILER "." CR>)>)
	       (<AND <EQUAL? ,HERE ,EAST-CAMP>
		     <EQUAL? ,WIPE-C 2 4 6>
		     <NOT <AND <VERB? SHOW GIVE>
			       <PRSI? ,JOEY>>>>
		<TELL CR
D ,JOEY " dribbles a little Dr. Nostrum's onto his rag and continues wiping
away at the " D ,TAMER-TRAILER "." CR>)>>

<ROUTINE ELBOW-GREASE ()
	 <TELL D ,JOEY>
	 <COND (<EQUAL? ,SCARE-NUMBER 2>
		<TELL ", unable to mask his concern,">)
	       (<EQUAL? ,SCARE-NUMBER 3>
		<TELL ", looking unclownly and perturbed,">)
	       (<EQUAL? ,SCARE-NUMBER 4>
		<TELL 
" does a slow burn as he continues cleaning the " D ,TAMER-TRAILER "." CR>
		<RTRUE>)>
	 <TELL " applies extra elbow grease to his cleaning." CR>>

<GLOBAL SCARE-NUMBER 0>

<ROUTINE JOEY-SCARED? ("OPTIONAL" (CRLF? <>))
	 <COND (<AND ,JOEY-NAME-KNOWN
		     <FSET? ,NOTE ,RMUNGBIT>
		     <FSET? ,SHEET ,RMUNGBIT>
		     <FSET? ,SCRAP ,RMUNGBIT>
		     <FSET? ,TRADE-CARD ,RMUNGBIT>
		     <FSET? ,RIBBON ,RMUNGBIT>>
	       	<SETG WON-JOEY T>
	 	<DISABLE <INT I-JOEY>>
	 	<MOVE ,JOEY ,LOCAL-GLOBALS>
	        <SETG SCORE <+ ,SCORE 10>>
		<COND (.CRLF? 
		       <CRLF> <CRLF>)>
		<TELL-SCREWS "hustles off to the west">
		<SETG FOLLOW-FLAG 3>
		<ENABLE <QUEUE I-FOLLOW 2>>
		<TELL ,PERIOD>
		<RTRUE>)
	       (T
	        <RFALSE>)>>

<ROUTINE TELL-SCREWS (STRING)
	 <COND (,WON-JOEY
		<TELL 
"Looking like a clown with a hotfoot, ">)>
	        <TELL 
D ,JOEY " suddenly screws the cap onto the flask of Dr. Nostrum's and " 
.STRING>>

<ROUTINE CHERRY-PIE ()
 	 <TELL CR CR
"\"So you think you've fingered me for this note. Pretty thin stuff, if
you ask me. Besides, I've got no gripes against the bossman. Why, here I
am doing cherry pie in the middle of the night.\" ">>

<ROOM CLOWN-ALLEY
      (IN ROOMS)
      (DESC "Clown Alley")
      (NORTH PER EXIT-CLOWN-ALLEY)
      (OUT PER EXIT-CLOWN-ALLEY)
      (FLAGS ONBIT RLANDBIT INDOORSBIT)
      (GLOBAL WARPED-DOOR LADDER CLOWN-TRAILER)
      (ACTION CLOWN-ALLEY-F)>

<GLOBAL CLOWN-ALLEY-SCENE <>>

<ROUTINE CLOWN-ALLEY-F (RARG)
	 <COND (<EQUAL? .RARG ,M-LOOK>
		<TELL
"The gut of the trailer exposes the underside of circus life -- grungy
costumes strewn about, crooked and cracked mirrors, the musty odor of
fresh makeup mingled with clown sweat infusing the air.|
|
Against the wall is a row of cramped-looking bunks, and running from the
floor to one " D ,UPPER " is a small ladder. ">
		<COND (<OR <FIRST? ,UPPER>
			   <FIRST? ,LOWER>>
		       <TELL ,YOU-SEE>
		       <COND (<FIRST? ,LOWER>			      
			      <PRINT-BUNKS ,LOWER ,UPPER>)
			     (T
			      <PRINT-BUNKS ,UPPER ,LOWER>)>)>		 
		<CRLF>)
     	       (<EQUAL? .RARG ,M-ENTER>
		<STEP-INTO-TRAILER>	        
		<COND (<NOT ,CLOWN-ALLEY-SCENE>
		       <SETG CLOWN-ALLEY-SCENE T>
		       <SETG CLOWN-COUNTER 0>
		       <ENABLE <QUEUE I-CLOWN-ALLEY -1>>)>)
	       (<AND <EQUAL? .RARG ,M-BEG>
		     <ENABLED? ,I-CLOWN-ALLEY>>
		<COND (<OR <AND <VERB? REMOVE TAKE-OFF>
			        <PRSO? ,MASK>>
			   <NOT <FSET? ,MASK ,WORNBIT>>>
		       <FCLEAR ,MASK ,WORNBIT>
		       <TELL ;CR "Y">
		       <UNMASK>)
		      ;(<AND <FSET? ,WARPED-DOOR ,OPENBIT>
			    <EQUAL? ,P-WALK-DIR ,P?NORTH ,P?OUT>>
		       <TELL
"Sensing your eagerness to leave Chuckles recognizes, chases out ...">)
		      (<DISTURB? ,JOEY>
		       <COND (<EQUAL? ,FOLLOW-FLAG 99>
			      <CRLF>)>
		       <TELL
"Chuckles whirls around, strips you of your disguise and y">
		       <UNMASK>)
		      (T
		       <RFALSE>)>)>>

<ROUTINE PRINT-BUNKS (B1 B2)
  	 <PRINT-CONTENTS .B1>
	 <TELL " sitting on the " D .B1>
	 <COND (<FIRST? .B2>
		<TELL", and">
	 	<PRINT-CONTENTS .B2>
         	<TELL " on the " D .B2>)>
	 <TELL ".">>

<ROUTINE EXIT-CLOWN-ALLEY ()
	 <COND (<NOT <FSET? ,WARPED-DOOR ,OPENBIT>>
		<TELL "The " D ,WARPED-DOOR " is closed." CR>
		<RFALSE>)
	       (<AND <RUNNING? ,I-CLOWN-ALLEY>
		     <HELD? ,TRAY>>
		<MOVE ,TRAY ,LOCAL-GLOBALS>
		<TELL 
D ,JOEY " notices a little squirreliness on your part, confronts you, grabs
the " D ,TRAY ", and throws you out." CR CR>
		<RETURN ,WEST-CAMP>)
	       (T
		<RETURN ,WEST-CAMP>)>> 
		

<OBJECT CLOWN-TRAILER
	(IN LOCAL-GLOBALS)
	(DESC "trailer")
	(SYNONYM TRAILER ALLEY WAGON)
	(ADJECTIVE CLOWN DILAPI)
	(FLAGS NDESCBIT)
	(ACTION CLOWN-TRAILER-F)>

<ROUTINE CLOWN-TRAILER-F ()
	 <COND (<VERB? EXAMINE>
	        <COND (<EQUAL? ,HERE ,WEST-CAMP>
		       <TELL
"It's a vintage model that's seen plenty of bad road. The door, which is "> 
		       <COND (<FSET? ,WARPED-DOOR ,OPENBIT>
			      <TELL "open">)
			     (T
			      <TELL "closed">)>
		       <TELL ", appears warped." CR>)
		      (T
		       <V-LOOK>)>)
	       (<AND <VERB? SMELL>
		     <EQUAL? ,HERE ,CLOWN-ALLEY>>
		<PERFORM ,V?SMELL>
		<RTRUE>)	       
	       (<VERB? OPEN CLOSE UNLOCK LOCK>
		<PERFORM ,PRSA ,WARPED-DOOR ,PRSI>
		<RTRUE>)
	       (<VERB? WALK-TO THROUGH ENTER>		     
		<COND (<EQUAL? ,HERE ,WEST-CAMP>
		       <DO-WALK ,P?IN>)
		      (<EQUAL? ,HERE ,CLOWN-ALLEY>
		       <TELL ,LOOK-AROUND CR>)>)>> 	 

;"CLOWN-COUNTER OF 6 is a win"

<ROUTINE I-CLOWN-ALLEY ()
	 <COND (<FSET? ,WARPED-DOOR ,RMUNGBIT>
		<FCLEAR ,WARPED-DOOR ,RMUNGBIT>
		<RFALSE>)>
	 <SETG CLOWN-COUNTER <+ 1 ,CLOWN-COUNTER>> 
   	 <COND (<AND <NOT <EQUAL? ,HERE ,CLOWN-ALLEY>>
		     <FSET? ,WARPED-DOOR ,OPENBIT>>
		<DISABLE <INT I-CLOWN-ALLEY>>
		<FCLEAR ,WARPED-DOOR ,OPENBIT>
	        <FSET ,WARPED-DOOR ,LOCKEDBIT>
		<COND (<EQUAL? ,HERE ,WEST-CAMP>
		       <TELL CR 
"The " D ,WARPED-DOOR " is slammed shut." CR>)>)
	       (T
		<COND (<EQUAL? ,CLOWN-COUNTER 2>
		       <SETG P-IT-OBJECT ,WARPED-DOOR>
		       <TELL CR 
"Chuckles speaks, \"Sorry about the door, Malcom, but Johnny Tin Plate's
out there nosing around.">
		       <COND (<FSET? ,WARPED-DOOR ,OPENBIT>
			      <TELL " Close it, will you?">)>
		       <TELL "\"">)
	              (<AND <EQUAL? ,CLOWN-COUNTER 3>
			    <NOT ,HELPED-THUMB>>
		       <TELL CR 
D ,THUMB " mutters something in Russian to Chuckles." CR CR>
		       <PERFORM ,V?RUB ,JOEY>
		       <RTRUE>)
	       	      (<EQUAL? ,CLOWN-COUNTER 4>
		       <TELL CR 
"\"Let's just hope he doesn't find the grift.">
		       <COND (<FSET? ,WARPED-DOOR ,OPENBIT>
			      <TELL " Close the door, huh?">)>
		       <TELL "\"">)		       
	              (<EQUAL? ,CLOWN-COUNTER 6>
		       <COND (<FSET? ,WARPED-DOOR ,OPENBIT>
			      <SETG FOLLOW-FLAG 99>
			      <ENABLE <QUEUE I-FOLLOW 2>>
			      <PERFORM ,V?RUB ,JOEY>
			      <RTRUE>)
			     (T
			      <SETG CLOWN-COUNTER 7>
			      <TELL CR 
"\"It'll be okay unless somebody tips him off about shoving Annie Oakley
under the old front by the elephant tent --\"" CR CR "His voice suddenly
halts. ">
		       <PERFORM ,V?RUB ,JOEY>
	               <RTRUE>)>)
	              (T
		       <RFALSE>)>
	         <CRLF>)
		(T
		 <RFALSE>)>>

<GLOBAL UNMASKED? <>>

<ROUTINE UNMASK ()
	 <SETG UNMASKED? T>
	 <DISABLE <INT I-CLOWN-ALLEY>>	 
	 <FCLEAR ,WARPED-DOOR ,OPENBIT>	 
	 <FSET ,WARPED-DOOR ,LOCKEDBIT>	 
	 <TELL 
"ou're suddenly eye-to-eye with a very unhappy clown whose greasepaint red
horseshoe smile practically melts off his face. " CR CR>
	 <COND (<OR <NOT <FSET? ,MASK ,WORNBIT>>
		    <HELD? ,TRAY>>
		<TELL "Snatching away the ">
		<COND (<AND <NOT <FSET? ,MASK ,WORNBIT>>
			    <HELD? ,TRAY>>
		       <TELL  D ,MASK " and the " D ,TRAY ", ">)
	       	      (<HELD? ,TRAY>
		       <TELL D ,TRAY ", ">)
		      (T
		       <TELL D ,MASK ", ">)>)>
	 <MOVE ,TRAY ,LOCAL-GLOBALS>
	 <TELL 
"Chuckles seizes you by the scruff of your neck, and the irate clown hustles you out of the " D ,CLOWN-TRAILER "." CR CR>
	<FCLEAR ,MASK ,WORNBIT>
	<MOVE ,MASK ,LOCAL-GLOBALS>
	<GOTO ,WEST-CAMP>> 

<OBJECT TRAY
	(IN LOWER)
        (DESC "ash tray")
	(SYNONYM TRAY ASHTRAY)
	(ADJECTIVE ASH)
	(FLAGS OPENBIT TRANSBIT CONTBIT TAKEBIT SEARCHBIT VOWELBIT)
	(SIZE 4)
	(CAPACITY 2)
	(ACTION TRAY-F)>

<ROUTINE TRAY-F ()
	 <COND (<AND <VERB? EMPTY SEARCH>
		     <IN? ,ASH ,TRAY>>
		<PERFORM ,V?MOVE ,ASH>
		<RTRUE>)
	       (<VERB? OPEN CLOSE>
		<V-COUNT>)>>

<OBJECT ASH
	(IN TRAY)
	(DESC "heap of black ash")
	(SYNONYM ASHES ASH HEAP)
	(ADJECTIVE ;DARK BLACK)
	(FLAGS TAKEBIT)
	(SIZE 1)
	(ACTION ASH-F)>

;"ASH rmungbit = have disturbed the ashes, revealing newsprint"

<ROUTINE ASH-F ()
	 <COND (<VERB? EXAMINE>
		<TELL 
"The ash, by its jet blackness, does not appear to be the remnant of
tobacco." CR>)
	       (<VERB? TAKE SEARCH RUB LOOK-INSIDE LOOK-UNDER MOVE>
		<COND (<FSET? ,ASH ,RMUNGBIT>
		       <TELL
"The ashes sift through your fingers." CR>)
		      (T
		       <FSET ,ASH ,RMUNGBIT>
		       <MOVE ,SCRAP ,TRAY>
		       <TELL
"In disturbing the " D ,ASH ", a " D ,SCRAP " is revealed." CR>)>)
	       (<VERB? EMPTY DROP POUR>
		<MOVE ,ASH ,LOCAL-GLOBALS>
		<TELL "The ashes swirl through the air and disappear">
		<COND (<OR <AND <FSET? ,ASH ,RMUNGBIT>
			        <IN? ,SCRAP ,TRAY>>
			   <NOT <FSET? ,ASH ,RMUNGBIT>>>
		       <MOVE ,SCRAP ,HERE>
		       <TELL 
" as a tiny " D ,SCRAP " floats down">)>
		<TELL ,PERIOD>)>>

<OBJECT SCRAP
	(IN LOCAL-GLOBALS)
	(DESC "scrap of newsprint")
	(SYNONYM NEWSPRINT PRINT SCRAP M)
	;(ADJECTIVE LETTER NEWS TINY)
	(FLAGS TAKEBIT)
	(SIZE 1)
	(ACTION SCRAP-F)>

<ROUTINE SCRAP-F ()
	 <COND (<VERB? EXAMINE>
		<TELL
"The " D ,SCRAP " is about an inch square." CR>)
	       (<AND <VERB? COMPARE>
		     <EQUAL? ,NOTE ,PRSO ,PRSI>>
		<TELL 
"The \"M\" on the " D ,SCRAP " looks like it was cut from the the same
newspaper as the letters on the " D ,NOTE "." CR>)  
	       (<VERB? READ>
		<TELL 
"There's a paragraph of yak trivia on one side, and the letter \"M\" in
48-point type on the other." CR>)>>

<OBJECT COSTUME
	(IN CLOWN-ALLEY)
	(DESC "costume")
	(SYNONYM COSTUM)
	(ADJECTIVE GRUNGY)
	(FLAGS TRYTAKEBIT NDESCBIT)
	(ACTION COSTUME-F)>

<ROUTINE COSTUME-F ()
	 <COND (<VERB? TAKE>
		<TELL "Nope, too repulsive." CR>)>>

<OBJECT MIRROR
	(IN CLOWN-ALLEY)
	(DESC "mirror")
	(SYNONYM MIRROR)
	(FLAGS NDESCBIT)
	(ACTION MIRROR-F)>

<ROUTINE MIRROR-F ()
	 <COND (<VERB? LOOK-INSIDE>
		<COND (<FSET? ,MASK ,WORNBIT>
		       <TELL 
,YOU-SEE " your beady eyes through the " D ,MASK "." CR>)
		      (T
		       <PERFORM ,V?EXAMINE ,ME>
		       <RTRUE>)>)>>

<OBJECT UPPER
	(IN CLOWN-ALLEY)
	(DESC "upper bunk")
	(SYNONYM BUNK BED BUNKS)
	(ADJECTIVE UPPER)
	(FLAGS NDESCBIT OPENBIT SURFACEBIT TRANSBIT CONTBIT VOWELBIT)
	(CAPACITY 100)
	(ACTION BUNK-F)>

;"UPPER RMUNGBIT = tried to get on the bunk"

<OBJECT LOWER
	(IN CLOWN-ALLEY)
	(DESC "lower bunk")
	(SYNONYM BUNK BED BUNKS)
	(ADJECTIVE LOWER)
	(FLAGS NDESCBIT OPENBIT SURFACEBIT TRANSBIT CONTBIT SEARCHBIT)
	(CAPACITY 150)
	(ACTION BUNK-F)>

;"LOWER RMUNGBIT = tried to get on the bunk"

<ROUTINE BUNK-F ()
	 <COND (<AND <VERB? EXAMINE LOOK-INSIDE>
		     <EQUAL? ,PRSO ,UPPER>
		     <IN? ,THUMB ,HERE>>
		<TELL D ,THUMB " is there. ">
		<COND (<FIRST? ,UPPER>
		       <RFALSE>)>
		<CRLF>
		<RTRUE>)
	       (<VERB? BOARD CLIMB-ON CLIMB-FOO THROUGH>
		<COND (<EQUAL? ,PRSO ,UPPER>
		       <SETG PRSO ,CEILING>
		       <FSET ,UPPER ,RMUNGBIT>)
		      (T
		       <SETG PRSO ,UPPER>
		       <FSET ,LOWER ,RMUNGBIT>)>
		<SETG CLOCK-WAIT T>
		<TELL-HIT-HEAD>
		<COND (<AND <FSET? ,UPPER ,RMUNGBIT>
			    <FSET? ,LOWER ,RMUNGBIT>>
		        <TELL 
"Hadn't you really ought to stop trying to sleep around like this?" CR>
		        <SETG AWAITING-REPLY 2>
	                <ENABLE <QUEUE I-REPLY 2>>
			<SETG CLOCK-WAIT T>)>
		<RTRUE>)>>

<OBJECT WARPED-DOOR
	(IN LOCAL-GLOBALS)
	(DESC "trailer door")
	(SYNONYM DOOR LOCK)
	(ADJECTIVE WARPED TRAILER DAMAGE)
	(FLAGS NDESCBIT DOORBIT LOCKEDBIT)
	(ACTION WARPED-DOOR-F)>

;"RMUNGBIT = Chuckles wont answer"

<GLOBAL CLOWN-COUNTER 25> ;"25 means door NOT opened for you yet,
			    Zero thru 9 is the undressing clown script."
			  
<GLOBAL WARPED-DOOR-BROKEN <>>

<ROUTINE WARPED-DOOR-F ()
         <COND (<AND <VERB? OPEN PICK>
		     <NOT <FSET? ,WARPED-DOOR ,OPENBIT>>
		     ,PRSI>
		<COND (<EQUAL? ,PRSI ,CROWBAR>
		       <SETG WARPED-DOOR-BROKEN T>
		       <FSET ,WARPED-DOOR ,OPENBIT>
		       <FCLEAR ,WARPED-DOOR ,LOCKEDBIT>
		       <FCLEAR ,CLOWN-ALLEY ,TOUCHBIT>
		       <TELL
"You wedge the " D ,CROWBAR " between the frame and the door then give it
a yank. The " D ,WARPED-DOOR " pops open." CR>)
		      (T
		       <TELL ,IT-LOOKS-LIKE>
		       <ARTICLE ,PRSI T>
		       <TELL " is unequal to the task." CR>)>)
	       (<AND <VERB? OPEN PICK>
		     <NOT ,WARPED-DOOR-BROKEN>
		     <NOT ,PRSI>
		     <HELD? ,CROWBAR>>
		<TELL "(with the " D ,CROWBAR ")" CR>
		<PERFORM ,V?OPEN ,WARPED-DOOR ,CROWBAR>
		<RTRUE>)
	       (<AND <VERB? CLOSE>
		     ,WARPED-DOOR-BROKEN>
		<TELL "The damaged door creaks back open." CR>)
	       (<AND <VERB? CLOSE>
		     <EQUAL? ,HERE ,WEST-CAMP>
		     <IN? ,JOEY ,CLOWN-ALLEY>
		     <NOT <FSET? ,CLOWN-ALLEY ,TOUCHBIT>>>
		<FSET ,WARPED-DOOR ,LOCKEDBIT>
		<RFALSE>)
	       (<VERB? EXAMINE>
		<TELL 
,YOU-SEE " that the door is warped slightly along its edge." CR>)
	       (<VERB? KNOCK>
		<COND (<OR ,UNMASKED?
		           <FSET? ,WARPED-DOOR ,RMUNGBIT>
			   <EQUAL? ,HERE ,CLOWN-ALLEY>
			   <NOT <EQUAL? ,CLOWN-COUNTER 25>>>
		       <RFALSE>)
		      (T
		       <TELL
"Chuckles pops his head out from behind the " D ,WARPED-DOOR " and ">
		       <COND (<AND <FSET? ,MASK ,WORNBIT>
				   <NOT <FSET? ,SHAWL ,WORNBIT>>
				   <NOT <FSET? ,DRESS ,WORNBIT>>>
			      <SETG SCORE <+ ,SCORE 10>>
			      <SETG CLOWN-COUNTER 0>
			      <ENABLE <QUEUE I-CLOWN-ALLEY 3>>
			      <FSET ,WARPED-DOOR ,OPENBIT>
		              <FCLEAR ,WARPED-DOOR ,LOCKEDBIT>
			      <TELL
"squints at you through a layer of cold cream, then flings the door open. He
withdraws into the trailer." CR>)
			     (T
			      <FSET ,WARPED-DOOR ,RMUNGBIT>
			      <ENABLE <QUEUE I-CLOWN-ALLEY 5>>
			      <TELL
"shades his eyes to look at you. \"Beat it, lotlice,\" he says, withdrawing
into the trailer and closing the door." CR>)>)
		             (T
			      <RFALSE>)>)>>