commit c858e1e75643836496db5226cf8a30859b6605b6
Author: historicalsource <historicalsoftware@textfiles.com>
Date:   Thu Apr 18 23:01:30 2019 -0400

    Solid-Gold Edition

diff --git a/earth.zabstr b/earth.zabstr
new file mode 100644
index 0000000..7a2332f
--- /dev/null
+++ b/earth.zabstr
@@ -0,0 +1,238 @@
+
+<OBJECT HOME (LOC LOCAL-GLOBALS) (DESC "your home") (SYNONYM HOME) (ADJECTIVE
+MY YOUR) (FLAGS NARTICLEBIT) (ACTION HOME-F)> 
+<DEFINE-ROUTINE HOME-F> 
+<OBJECT HOUSE (LOC LOCAL-GLOBALS) (DESC "it") (SYNONYM HOUSE) (ADJECTIVE MY
+YOUR) (FLAGS NARTICLEBIT) (ACTION HOUSE-F)> 
+<DEFINE-ROUTINE HOUSE-F> 
+<OBJECT RUBBLE (LOC LOCAL-GLOBALS) (DESC "pile of rubble") (SYNONYM PILE RUBBLE
+DEBRIS) (FLAGS NDESCBIT) (ACTION HOME-F)> 
+<DEFINE-ROUTINE I-HOUSEWRECK> 
+<DEFINE-ROUTINE BETTER-LUCK> 
+<GLOBAL HOUSE-DEMOLISHED <>> 
+<GLOBAL HEADACHE T> 
+<GLOBAL SLEEVE-TIED <>> 
+<OBJECT HANGOVER (LOC GLOBAL-OBJECTS) (DESC "splitting headache") (SYNONYM
+HEADACHE HANGOVER THROBBER) (ADJECTIVE SPLITTING BIG BLINDING) (ACTION
+HANGOVER-F)> 
+<DEFINE-ROUTINE HANGOVER-F> 
+<ROOM BEDROOM (LOC ROOMS) (SYNONYM TRAVEL) (ADJECTIVE TIME) (DESC "Bedroom") (
+SOUTH PER BEDROOM-EXIT-F) (OUT PER BEDROOM-EXIT-F) (DOWN PER BEDROOM-EXIT-F) (
+FLAGS RLANDBIT) (GLOBAL HOUSE HOME GLOBAL-BED BULLDOZER WINDOW STAIRS
+BEDROOM-DOOR THIRD-PLANET WATER) (ACTION BEDROOM-F)> 
+<OBJECT BEDROOM-PSEUDO (LOC BEDROOM) (SYNONYM BEDROOM) (ADJECTIVE SMALL) (DESC
+"bedroom") (FLAGS NDESCBIT) (ACTION GLOBAL-ROOM-F)> 
+<DEFINE-ROUTINE BEDROOM-F> 
+<DEFINE-ROUTINE BEDROOM-EXIT-F> 
+<OBJECT PHONE (LOC BEDROOM) (DESC "telephone") (SYNONYM PHONE TELEPHONE
+RECEIVER) (FLAGS NDESCBIT TAKEBIT TRYTAKEBIT) (ACTION PHONE-F)> 
+<DEFINE-ROUTINE PHONE-F> 
+<OBJECT BEDROOM-DOOR (LOC LOCAL-GLOBALS) (DESC "door") (SYNONYM DOOR) (FLAGS
+DOORBIT OPENBIT NDESCBIT)> 
+<OBJECT GLOBAL-BED (LOC LOCAL-GLOBALS) (DESC "bed") (SYNONYM BED) (FLAGS VEHBIT
+) (ACTION GLOBAL-BED-F)> 
+<DEFINE-ROUTINE GLOBAL-BED-F> 
+<OBJECT BED (LOC BEDROOM) (DESC "bed") (SYNONYM BED) (FLAGS VEHBIT CONTBIT
+SURFACEBIT SEARCHBIT OPENBIT NDESCBIT) (ACTION BED-F)> 
+<DEFINE-ROUTINE BED-F> 
+<OBJECT STUFF-UNDER-BED (LOC LOCAL-GLOBALS) (DESC "it") (SYNONYM BOOK COIN
+HANDKERCH COINS) (ADJECTIVE SOILED FOREIGN) (FLAGS NDESCBIT NARTICLEBIT) (
+ACTION UNIMPORTANT-THING-F)> 
+<OBJECT CURTAINS (LOC BEDROOM) (DESC "your curtains") (SYNONYM CURTAIN CURTAINS
+SHADE SHADES) (ADJECTIVE YOUR) (FLAGS NDESCBIT NARTICLEBIT) (ACTION CURTAINS-F)
+> 
+<DEFINE-ROUTINE CURTAINS-F> 
+<OBJECT GOWN (LOC BEDROOM) (DESC "your gown") (LDESC "Your gown is here.") (
+SYNONYM GOWN POCKET ROBE LOOP) (ADJECTIVE MY YOUR DRESSING TATTY FADED BATTERED
+) (FLAGS WEARBIT TRYTAKEBIT TAKEBIT CONTBIT NDESCBIT NARTICLEBIT SEARCHBIT) (
+SIZE 15) (CAPACITY 14) (ACTION GOWN-F)> 
+<DEFINE-ROUTINE GOWN-F> 
+<OBJECT SLEEVES (LOC GLOBAL-OBJECTS) (DESC "sleeve") (SYNONYM SLEEVE SLEEVES) (
+ACTION SLEEVES-F)> 
+<DEFINE-ROUTINE SLEEVES-F> 
+<DEFINE-ROUTINE TWO-TREES> 
+<OBJECT THING (LOC GOWN) (DESC
+"thing your aunt gave you which you don't know what it is") (SYNONYM THING GIFT
+) (ADJECTIVE AUNT\'S) (FLAGS TAKEBIT CONTBIT SEARCHBIT OPENBIT) (SIZE 6) (
+CAPACITY 200) (ACTION THING-F)> 
+<DEFINE-ROUTINE THING-F> 
+<DEFINE-ROUTINE I-THING> 
+<OBJECT POCKET-FLUFF (LOC GOWN) (DESC "pocket fluff") (SYNONYM FLUFF LINT) (
+ADJECTIVE POCKET) (FLAGS TAKEBIT NARTICLEBIT) (SIZE 1) (GENERIC POCKET-FLUFF)> 
+<OBJECT TABLET (LOC GOWN) (DESC "buffered analgesic") (SYNONYM ANALGESIC TABLET
+ASPIRIN PILL) (ADJECTIVE LARGE BUFFERED) (FLAGS TAKEBIT EATBIT) (SIZE 2) (
+ACTION TABLET-F)> 
+<DEFINE-ROUTINE TABLET-F> 
+<OBJECT SINK (LOC BEDROOM) (DESC "it") (SYNONYM BASIN WASHBASIN SINK) (
+ADJECTIVE WASH) (FLAGS NDESCBIT NARTICLEBIT) (ACTION UNIMPORTANT-THING-F)> 
+<OBJECT BEDROOM-FURNISHINGS (LOC BEDROOM) (DESC "it") (SYNONYM CARPET WALLPAPER
+PAPER CHAIR) (ADJECTIVE WALL FADED OLD) (FLAGS NDESCBIT NARTICLEBIT) (ACTION
+UNIMPORTANT-THING-F)> 
+<ROOM FRONT-PORCH (LOC ROOMS) (SYNONYM BEAM BEAMS) (ADJECTIVE MATTER TRANSFERE)
+(DESC "Front Porch") (LDESC
+"This is the enclosed front porch of your home. Your front garden lies to
+the south, and you can reenter your home to the north.") (UP TO BEDROOM) (NORTH
+TO BEDROOM) (SOUTH PER CLOTHES-EXIT-F) (OUT PER CLOTHES-EXIT-F) (FLAGS RLANDBIT
+ONBIT) (GLOBAL HOUSE HOME STAIRS THIRD-PLANET BEDROOM-DOOR)> 
+<OBJECT DOORMAT (LOC FRONT-PORCH) (SYNONYM DOORMAT MAT) (ADJECTIVE DOOR) (DESC
+"doormat") (FLAGS NDESCBIT) (ACTION UNIMPORTANT-THING-F)> 
+<DEFINE-ROUTINE CLOTHES-EXIT-F> 
+<OBJECT MAIL (LOC FRONT-PORCH) (DESC "loose pile of junk mail") (FDESC
+"On the doormat is a pile of junk mail.") (SYNONYM ORDER MAIL PILE LETTER
+LETTERS) (ADJECTIVE DEMOLISHI JUNK MY OFFICIAL LOOSE) (FLAGS TAKEBIT READBIT
+TRYTAKEBIT) (SIZE 4) (TEXT
+"There are many pieces of mail. Most are from some computer company called
+Infocom which wants you to buy their games. Hidden underneath is an official
+letter from the local council, dated some two years ago and inexplicably not
+delivered till now, explaining that a demolition order has been served on your
+home. The date of demolition is today's date.") (ACTION MAIL-F)> 
+<DEFINE-ROUTINE MAIL-F> 
+<ROOM FRONT-OF-HOUSE (LOC ROOMS) (SYNONYM WOONBEAM) (ADJECTIVE GALAXIA) (DESC
+"Front of House") (NORTH PER HOUSE-ENTER-F) (SOUTH TO COUNTRY-LANE) (NE TO
+BACK-OF-HOUSE) (NW TO BACK-OF-HOUSE) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL
+HOUSE HOME BULLDOZER CONVERSATION THIRD-PLANET RUBBLE TREE) (ACTION
+FRONT-OF-HOUSE-F)> 
+<OBJECT TREE (LOC LOCAL-GLOBALS) (SYNONYM TREE TREES) (DESC "tree") (ACTION
+TREE-PSEUDO)> 
+<DEFINE-ROUTINE HOUSE-ENTER-F> 
+<DEFINE-ROUTINE FRONT-OF-HOUSE-F> 
+<OBJECT ROSES (LOC FRONT-OF-HOUSE) (DESC "it") (SYNONYM ROSE ROSES ROSEBED BED)
+(ADJECTIVE ROSE) (FLAGS NDESCBIT NARTICLEBIT) (ACTION UNIMPORTANT-THING-F)> 
+<GLOBAL BULLDOZER-COUNTER 0> 
+<DEFINE-ROUTINE I-BULLDOZER> 
+<DEFINE-ROUTINE BRICK-DEATH> 
+<GLOBAL DEAD-COUNTER 0> 
+<OBJECT BULLDOZER-DRIVER (LOC FRONT-OF-HOUSE) (DESC "bulldozer driver") (
+SYNONYM DRIVER) (ADJECTIVE BULLDOZER DOZER) (FLAGS NDESCBIT ACTORBIT) (ACTION
+BULLDOZER-DRIVER-F)> 
+<DEFINE-ROUTINE BULLDOZER-DRIVER-F> 
+<OBJECT BULLDOZER (LOC LOCAL-GLOBALS) (DESC "bulldozer") (SYNONYM BULLDOZER
+DOZER) (ADJECTIVE LARGE YELLOW BULL HUGE) (FLAGS NDESCBIT INVISIBLE) (ACTION
+BULLDOZER-F)> 
+<DEFINE-ROUTINE BULLDOZER-F> 
+<GLOBAL PROSSER-COUNTER 0> 
+<GLOBAL PROSSER-LYING <>> 
+<GLOBAL GONE-AROUND <>> 
+<DEFINE-ROUTINE I-PROSSER> 
+<OBJECT PROSSER (LOC FRONT-OF-HOUSE) (DESC "Mr. Prosser") (DESCFCN
+PROSSER-DESCFCN) (SYNONYM PROSSER FOREMAN CREW) (ADJECTIVE WRECKING MR MISTER)
+(FLAGS NARTICLEBIT ACTORBIT CONTBIT OPENBIT) (ACTION PROSSER-F)> 
+<DEFINE-ROUTINE PROSSER-DESCFCN> 
+<DEFINE-ROUTINE PROSSER-F> 
+<DEFINE-ROUTINE STAND-ASIDE> 
+<OBJECT DIGITAL-WATCH (LOC PROSSER) (DESC "digital watch") (SYNONYM WATCH
+WATCHES) (ADJECTIVE DIGITAL) (FLAGS NDESCBIT TRYTAKEBIT) (ACTION
+DIGITAL-WATCH-F)> 
+<DEFINE-ROUTINE DIGITAL-WATCH-F> 
+<OBJECT TIME (LOC GLOBAL-OBJECTS) (DESC "time") (SYNONYM TIME)> 
+<OBJECT FORD (LOC LOCAL-GLOBALS) (DESC "Ford Prefect") (DESCFCN FORD-DESCFCN) (
+SYNONYM FORD PREFECT) (ADJECTIVE FORD) (FLAGS ACTORBIT CONTBIT SEARCHBIT
+OPENBIT NARTICLEBIT) (ACTION FORD-F)> 
+<DEFINE-ROUTINE FORD-DESCFCN> 
+<DEFINE-ROUTINE FORD-F> 
+<DEFINE-ROUTINE FORD-DECIDES> 
+<GLOBAL FORD-COUNTER 0> 
+<GLOBAL FORD-SLEEPING <>> 
+<GLOBAL GUARDS-COUNTER 0> 
+<GLOBAL HEART-COUNTER 0> 
+<DEFINE-ROUTINE I-FORD> 
+<OBJECT SATCHEL (LOC FORD) (DESC "satchel") (DESCFCN SATCHEL-DESCFCN) (SYNONYM
+SATCHEL) (ADJECTIVE BATTERED LEATHER BULKY) (FLAGS CONTBIT SEARCHBIT TAKEBIT
+TRYTAKEBIT) (CAPACITY 30) (SIZE 20) (ACTION SATCHEL-F)> 
+<DEFINE-ROUTINE SATCHEL-DESCFCN> 
+<DEFINE-ROUTINE ITEM-ON-SATCHEL-DESCRIPTION> 
+<DEFINE-ROUTINE SATCHEL-F> 
+<OBJECT SATCHEL-FLUFF (LOC SATCHEL) (DESC "satchel fluff") (SYNONYM FLUFF LINT)
+(ADJECTIVE SATCHEL) (FLAGS TAKEBIT NARTICLEBIT) (SIZE 1) (GENERIC POCKET-FLUFF)
+> 
+<GLOBAL FLUFF-TO-GOWN <>> 
+<GLOBAL TOWEL-MUDDY <>> 
+<GLOBAL TOWEL-OFFERED <>> 
+<OBJECT TOWEL (LOC FORD) (DESC "towel") (SYNONYM TOWEL TOWELS) (FLAGS TAKEBIT
+TRYTAKEBIT) (SIZE 7) (CAPACITY 40) (ACTION TOWEL-F)> 
+<DEFINE-ROUTINE TOWEL-F> 
+<ROOM BACK-OF-HOUSE (LOC ROOMS) (SYNONYM LIST QUESTION QUESTIONS) (ADJECTIVE
+GREAT UNANSWERE) (DESC "Back of House") (SE TO FRONT-OF-HOUSE) (SW TO
+FRONT-OF-HOUSE) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL HOUSE HOME
+THIRD-PLANET RUBBLE TREE) (ACTION BACK-OF-HOUSE-F)> 
+<OBJECT BIRDS (LOC BACK-OF-HOUSE) (SYNONYM BIRD BIRDS) (DESC "bird") (FLAGS
+NDESCBIT) (ACTION UNIMPORTANT-THING-F)> 
+<DEFINE-ROUTINE BACK-OF-HOUSE-F> 
+<DEFINE-ROUTINE TREE-PSEUDO> 
+<ROOM COUNTRY-LANE (LOC ROOMS) (SYNONYM SPACE) (DESC "Country Lane") (NORTH TO
+FRONT-OF-HOUSE) (WEST TO PUB) (IN TO PUB) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (
+GLOBAL HOUSE HOME PUB-OBJECT BULLDOZER THIRD-PLANET TREE) (ACTION
+COUNTRY-LANE-F)> 
+<DEFINE-ROUTINE COUNTRY-LANE-F> 
+<DEFINE-ROUTINE I-DOG> 
+<OBJECT DOG (LOC LOCAL-GLOBALS) (DESC "dog") (SYNONYM DOG MONGREL) (ADJECTIVE
+SMALL SERENE IRRITABLE) (ACTION DOG-F)> 
+<DEFINE-ROUTINE DOG-F> 
+<OBJECT PUB-OBJECT (LOC LOCAL-GLOBALS) (DESC "Pub") (SYNONYM PUB GROOM) (
+ADJECTIVE HORSE \'N) (ACTION PUB-OBJECT-F)> 
+<DEFINE-ROUTINE PUB-OBJECT-F> 
+<ROOM PUB (LOC ROOMS) (SYNONYM ALCOHOL) (DESC "Pub") (EAST TO COUNTRY-LANE) (
+OUT TO COUNTRY-LANE) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL PUB-OBJECT
+WINDOW THIRD-PLANET PUB-FURNISHINGS PEOPLE) (ACTION PUB-F)> 
+<OBJECT PEOPLE (LOC LOCAL-GLOBALS) (SYNONYM PEOPLE) (DESC "people") (ACTION
+PEOPLE-PSEUDO)> 
+<DEFINE-ROUTINE PUB-F> 
+<OBJECT BAR (LOC PUB) (DESC "bar") (SYNONYM BAR COUNTER) (FLAGS NDESCBIT
+CONTBIT SURFACEBIT OPENBIT) (CAPACITY 60) (ACTION BAR-F)> 
+<DEFINE-ROUTINE BAR-F> 
+<OBJECT PUB-SHELF (LOC PUB) (DESC "shelf of items") (LDESC
+"Behind the bar is a shelf. It is full of the sort of items you find on shelves
+behind bars in pubs.") (SYNONYM SHELF ITEMS SHELVES) (ACTION PUB-SHELF-F)> 
+<DEFINE-ROUTINE PUB-SHELF-F> 
+<OBJECT MUSIC (LOC PUB) (DESC "music") (SYNONYM MUSIC SONG SONGS) (FLAGS
+NARTICLEBIT NDESCBIT) (ACTION MUSIC-F)> 
+<DEFINE-ROUTINE MUSIC-F> 
+<OBJECT JUKEBOX (LOC PUB) (DESC "jukebox") (SYNONYM JUKEBOX BOX) (ADJECTIVE
+JUKE OLD) (FLAGS NDESCBIT LIGHTBIT ONBIT) (ACTION JUKEBOX-F)> 
+<DEFINE-ROUTINE JUKEBOX-F> 
+<OBJECT PUB-FURNISHINGS (LOC LOCAL-GLOBALS) (DESC "it") (SYNONYM BEERMAT
+BEERMATS GLASS GLASSES BOTTLE BOTTLES) (ADJECTIVE USUAL SOGGY) (FLAGS NDESCBIT
+NARTICLEBIT) (GENERIC MINERAL-WATER) (ACTION UNIMPORTANT-THING-F)> 
+<OBJECT BARMAN (LOC PUB) (DESC "barman") (LDESC
+"There is a barman serving at the bar.") (SYNONYM BARMAN BARTENDER) (FLAGS
+ACTORBIT) (ACTION BARMAN-F)> 
+<DEFINE-ROUTINE BARMAN-F> 
+<OBJECT BEER (LOC PUB) (DESC "lots of beer") (SYNONYM LOTS BITTER BITTERS PINT
+BEER) (FLAGS DRINKBIT NARTICLEBIT NDESCBIT) (ACTION BEER-F)> 
+<GLOBAL DRUNK-LEVEL 0> 
+<GLOBAL FORD-POINT 15> 
+<DEFINE-ROUTINE BEER-F> 
+<OBJECT PEANUTS (LOC PUB) (DESC "peanuts") (SYNONYM PACKET PEANUT PEANUTS NUT
+NUTS) (FLAGS TRYTAKEBIT NDESCBIT NARTICLEBIT EATBIT) (ACTION PEANUTS-F)> 
+<DEFINE-ROUTINE PEANUTS-F> 
+<OBJECT SANDWICH (LOC PUB) (DESC "cheese sandwich") (SYNONYM PLATE SANDWICH) (
+ADJECTIVE CHEESE UNINVITIN) (FLAGS NDESCBIT EATBIT TRYTAKEBIT) (SIZE 10) (
+ACTION SANDWICH-F)> 
+<DEFINE-ROUTINE SANDWICH-F> 
+<GLOBAL DOG-FED <>> 
+<GLOBAL PEANUTS-BOUGHT <>> 
+<GLOBAL SANDWICH-BOUGHT <>> 
+<GLOBAL VOGON-COUNTER 0> 
+<GLOBAL FORD-GONE <>> 
+<DEFINE-ROUTINE I-VOGONS> 
+<DEFINE-ROUTINE GO-TO-LANE> 
+<GLOBAL FORD-TABLE <TABLE 0 0 0 0 0 0>> 
+<OBJECT FLEET (LOC LOCAL-GLOBALS) (DESC "fleet of Vogon Constructor ships") (
+SYNONYM FLEET SHIP SHIPS SPACESHIP) (ADJECTIVE VOGON CONSTRUCT HUGE UGLY YELLOW
+) (FLAGS NDESCBIT) (ACTION FLEET-F)> 
+<DEFINE-ROUTINE FLEET-F> 
+<GLOBAL EARTH-DEMOLISHED <>> 
+<DEFINE-ROUTINE LEAVE-EARTH> 
+<OBJECT ARTHUR (LOC LOCAL-GLOBALS) (DESC "Arthur Dent") (LDESC
+"Arthur Dent is here.") (SYNONYM ARTHUR DENT) (ADJECTIVE ARTHUR) (FLAGS
+NARTICLEBIT VOWELBIT ACTORBIT) (ACTION ARTHUR-F)> 
+<DEFINE-ROUTINE ARTHUR-F> 
+<DEFINE-ROUTINE IDIOT?> 
+<GLOBAL UNEASY-COUNTER 0> 
+<GLOBAL IDENTITY-FLAG <>> 
+<DEFINE-ROUTINE I-UNEASY> 
+<DEFINE-ROUTINE I-ARTHUR> 
+<GLOBAL BORES <PLTABLE "newts he has known." "cricket."
+"how badly Americans make tea." "the deteriorating condition of the motorways."
+"a recent visit to Tiverton." "a new book by Douglas Adams." "computers.">> 
+<DEFINE-ROUTINE SCENE-THROUGH-WINDOW> 
\ No newline at end of file
diff --git a/earth.zap b/earth.zap
new file mode 100644
index 0000000..9458476
--- /dev/null
+++ b/earth.zap
@@ -0,0 +1,2074 @@
+
+
+	.FUNCT	HOME-F
+	ZERO?	HOUSE-DEMOLISHED /?CCL3
+	EQUAL?	PRSA,V?ENJOY \?CCL3
+	PRINT	ZEN
+	PRINTI	" You can't enjoy a "
+	PRINTD	RUBBLE
+	PRINTR	" properly till it's at least a hundred years old. Also, you are haunted by the tragic vision of your favourite teapot lying shattered among the dust.
+There is also the matter of all your clothes."
+?CCL3:	EQUAL?	PRSA,V?BOARD,V?WALK-TO,V?THROUGH \?CCL9
+	EQUAL?	HERE,FRONT-OF-HOUSE,FRONT-PORCH \?CCL12
+	CALL2	DO-WALK,P?NORTH
+	RSTACK	
+?CCL12:	EQUAL?	HERE,BEDROOM \?CCL14
+	PRINT	LOOK-AROUND
+	CRLF	
+	RTRUE	
+?CCL14:	CALL1	V-WALK-AROUND
+	RSTACK	
+?CCL9:	EQUAL?	PRSA,V?DISEMBARK,V?EXIT,V?LEAVE \?CCL18
+	EQUAL?	HERE,FRONT-PORCH \?CCL21
+	CALL2	DO-WALK,P?SOUTH
+	RSTACK	
+?CCL21:	EQUAL?	HERE,BEDROOM \?PRG24
+	CALL1	V-WALK-AROUND
+	RSTACK	
+?PRG24:	PRINT	LOOK-AROUND
+	CRLF	
+	RTRUE	
+?CCL18:	EQUAL?	PRSA,V?LIE-DOWN \?CCL27
+	EQUAL?	HERE,FRONT-OF-HOUSE \?CCL27
+	ZERO?	IN-FRONT-FLAG /?CCL27
+	ICALL	PERFORM,V?LIE-DOWN,GROUND
+	RTRUE	
+?CCL27:	EQUAL?	PRSA,V?EXAMINE \?CCL32
+	ZERO?	HOUSE-DEMOLISHED /?CCL32
+	PRINTI	"It is now a "
+	PRINTD	RUBBLE
+	PRINTR	"."
+?CCL32:	EQUAL?	IDENTITY-FLAG,FORD \FALSE
+	CALL1	UNIMPORTANT-THING-F
+	RSTACK	
+
+
+	.FUNCT	HOUSE-F
+	EQUAL?	PRSO,HOUSE \?CCL3
+	ICALL	PERFORM,PRSA,HOME,PRSI
+	RTRUE	
+?CCL3:	ICALL	PERFORM,PRSA,PRSO,HOME
+	RTRUE	
+
+
+	.FUNCT	I-HOUSEWRECK
+	EQUAL?	HERE,BEDROOM,FRONT-PORCH \FALSE
+	CRLF	
+	PRINTI	"Astoundingly, a "
+	PRINTD	BULLDOZER
+	PRINTI	" pokes through your wall. However, you have no time for surprise because the ceiling is collapsing on you as"
+	CALL1	BETTER-LUCK
+	RSTACK	
+
+
+	.FUNCT	BETTER-LUCK
+	PRINTI	" your home is unexpectedly demolished to make way for a new bypass. You are seriously injured in the process, but on your way to the hospital"
+	ICALL1	MAKE-WAY-FOR
+	CRLF	
+	FSET?	BEDROOM,ONBIT /?CCL5
+	PRINTI	"Next time, try turning on the light."
+	CRLF	
+	JUMP	?CND3
+?CCL5:	FSET?	GOWN,OPENBIT /?PRG14
+	ZERO?	HEADACHE /?PRG14
+	PRINTI	"Too bad you never found an aspirin for your hangover."
+	CRLF	
+	JUMP	?CND3
+?PRG14:	PRINTI	"Better luck next life."
+	CRLF	
+?CND3:	CALL1	FINISH
+	RSTACK	
+
+
+	.FUNCT	HANGOVER-F
+	EQUAL?	PRSA,V?ASK-ABOUT \?CCL3
+	EQUAL?	PRSI,HANGOVER /FALSE
+?CCL3:	ZERO?	HEADACHE \?CCL7
+	EQUAL?	IDENTITY-FLAG,ZAPHOD /?CCL7
+	PRINTI	"You can't feel any"
+	EQUAL?	HANGOVER,PRSO \?CCL14
+	ICALL1	PRSO-PRINT
+	JUMP	?PRG15
+?CCL14:	ICALL1	PRSI-PRINT
+?PRG15:	PRINTR	" here."
+?CCL7:	EQUAL?	PRSA,V?EXAMINE \?CCL18
+	CALL1	V-DIAGNOSE
+	RSTACK	
+?CCL18:	EQUAL?	PRSA,V?DROP,V?THROW,V?GIVE \FALSE
+	CALL1	V-COUNT
+	RSTACK	
+
+
+	.FUNCT	BEDROOM-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The bedroom is a mess.
+It is a small bedroom with a faded carpet and old wallpaper. There is a washbasin, a chair"
+	FSET?	GOWN,NDESCBIT \?PRG10
+	PRINTI	" with a tatty dressing gown slung over it"
+?PRG10:	PRINTR	", and a window with the curtains drawn. Near the exit leading south is a phone."
+
+
+	.FUNCT	BEDROOM-EXIT-F
+	FSET?	BEDROOM-DOOR,OPENBIT /?CCL3
+	PRINTI	"The door is closed."
+	CRLF	
+	SET	'P-IT-OBJECT,BEDROOM-DOOR
+	RFALSE	
+?CCL3:	ZERO?	HEADACHE /?CCL7
+	PRINTI	"You miss the doorway by a good eighteen inches. The wall jostles you rather rudely."
+	CRLF	
+	RFALSE	
+?CCL7:	FSET?	BULLDOZER,INVISIBLE \?PRG14
+	PRINTI	"You make your way down to the front porch."
+	CRLF	
+	CRLF	
+	JUMP	?CND1
+?PRG14:	PRINTI	"You rush down the stairs in panic."
+	CRLF	
+	CRLF	
+?CND1:	FCLEAR	LIGHT,LIGHTBIT
+	RETURN	FRONT-PORCH
+
+
+	.FUNCT	PHONE-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	FSET?	PHONE,TOUCHBIT \?CCL6
+	ICALL	PERFORM,V?CALL,DAIS
+	RTRUE	
+?CCL6:	FSET	PHONE,TOUCHBIT
+	PRINTI	"You pick up the receiver."
+	PRINT	DIALING-TONE
+	FSET?	TOOTHBRUSH,TOUCHBIT \?CND9
+	ICALL1	TWO-TREES
+?CND9:	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?REPLY \FALSE
+	PRINTR	"It isn't ringing."
+
+
+	.FUNCT	GLOBAL-BED-F
+	EQUAL?	GLOBAL-BED,PRSO \?CCL3
+	ICALL	PERFORM,PRSA,BED,PRSI
+	RTRUE	
+?CCL3:	ICALL	PERFORM,PRSA,PRSO,BED
+	RTRUE	
+
+
+	.FUNCT	BED-F,RARG
+	EQUAL?	RARG,M-BEG \?CCL3
+	EQUAL?	PRSA,V?TAKE \?CCL6
+	FSET?	PRSO,TAKEBIT \?CCL6
+	IN?	PRSO,BED /?CCL6
+	CALL2	HELD?,PRSO
+	ZERO?	STACK \?CCL6
+	PRINTI	"You can't reach it from the bed."
+	ZERO?	HEADACHE /?CND13
+	PRINTR	" The effort almost kills you."
+?CND13:	CRLF	
+	RTRUE	
+?CCL6:	EQUAL?	PRSA,V?LOOK-INSIDE,V?OPEN \?CCL18
+	EQUAL?	PRSO,CURTAINS \?CCL18
+	ICALL	PERFORM,V?TAKE,PHONE
+	SET	'P-IT-OBJECT,CURTAINS
+	RTRUE	
+?CCL18:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL22
+	EQUAL?	PRSO,BEDROOM-DOOR \?CCL22
+	ICALL	PERFORM,V?TAKE,PHONE
+	SET	'P-IT-OBJECT,BEDROOM-DOOR
+	RTRUE	
+?CCL22:	EQUAL?	PRSA,V?WALK \FALSE
+	CALL2	OUT-OF-FIRST,BED
+	RSTACK	
+?CCL3:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?DISEMBARK \?CCL30
+	ZERO?	HEADACHE /?CCL30
+	LOC	PROTAGONIST
+	EQUAL?	STACK,BED \?CCL30
+	MOVE	PROTAGONIST,HERE
+	SET	'OHERE,FALSE-VALUE
+	SET	'LYING-DOWN,FALSE-VALUE
+	PRINTR	"Very difficult, but you manage it. The room is still spinning. It dips and sways a little."
+?CCL30:	EQUAL?	PRSA,V?LOOK-UNDER \?CCL37
+	MOVE	STUFF-UNDER-BED,HERE
+	PRINTR	"There's nothing there. Well, there are a few soiled handkerchiefs, a book you thought you'd lost, a couple of foreign coins, and something else which can't be fully described in a family game, but nothing you'd actually want."
+?CCL37:	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	EQUAL?	PRSO,BED \FALSE
+	CALL1	TELL-ME-HOW
+	RSTACK	
+
+
+	.FUNCT	CURTAINS-F
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?OPEN \FALSE
+	FCLEAR	BULLDOZER,INVISIBLE
+	PRINTI	"As you part "
+	PRINTD	CURTAINS
+	PRINTI	" you see that i"
+	PRINT	NICE-DAY
+	PRINTI	", and a large yellow "
+	PRINTD	BULLDOZER
+	PRINTI	" is advancing on "
+	PRINTD	HOME
+	PRINTR	"."
+
+
+	.FUNCT	GOWN-F
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL3
+	FSET?	GOWN,WORNBIT /?CCL3
+	PRINTR	"It's hard to open or close the pocket unless you're wearing the gown."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL9
+	PRINTI	"The dressing gown is faded and battered, and is clearly a garment which has seen better decades. It has a pocket which is "
+	FSET?	GOWN,OPENBIT \?PRG17
+	PRINTI	"open"
+	JUMP	?CND12
+?PRG17:	PRINTI	"closed"
+?CND12:	ZERO?	GOWN-HUNG /?PRG24
+	PRINTI	". It is hanging from a "
+	PRINTD	HOOK
+	PRINTC	46
+	JUMP	?CND19
+?PRG24:	PRINTI	", and a small loop at the back of the collar."
+?CND19:	ZERO?	SLEEVE-TIED /?CND26
+	PRINTR	" The sleeves are tied closed."
+?CND26:	CRLF	
+	RTRUE	
+?CCL9:	EQUAL?	PRSA,V?TAKE \?CCL31
+	EQUAL?	GOWN,PRSO \?CCL31
+	ZERO?	HEADACHE /?CCL31
+	FCLEAR	GOWN,TRYTAKEBIT
+	FCLEAR	GOWN,NDESCBIT
+	MOVE	GOWN,PROTAGONIST
+	PRINTR	"Luckily, this is large enough for you to get hold of. You notice something in the pocket."
+?CCL31:	EQUAL?	PRSA,V?WEAR \?CCL38
+	ZERO?	SLEEVE-TIED /?CCL38
+	PRINTR	"You'll have to untie the sleeve first."
+?CCL38:	EQUAL?	PRSA,V?UNTIE,V?TIE \FALSE
+	ICALL	PERFORM,PRSA,SLEEVES
+	RTRUE	
+
+
+	.FUNCT	SLEEVES-F
+	CALL2	VISIBLE?,GOWN
+	ZERO?	STACK \?CCL3
+	CALL2	CANT-SEE,SLEEVES
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?TAKE,V?WEAR \?CCL5
+	ICALL	PERFORM,PRSA,GOWN
+	RTRUE	
+?CCL5:	EQUAL?	PRSA,V?CLOSE,V?TIE \?CCL7
+	SET	'PRSO,GOWN
+	CALL1	IDROP
+	ZERO?	STACK \TRUE
+	ZERO?	SLEEVE-TIED /?CCL12
+	PRINTR	"It is."
+?CCL12:	SET	'SLEEVE-TIED,TRUE-VALUE
+	PRINTR	"The sleeves are now tied closed."
+?CCL7:	EQUAL?	PRSA,V?OPEN,V?UNTIE \FALSE
+	ZERO?	SLEEVE-TIED /?PRG24
+	SET	'SLEEVE-TIED,FALSE-VALUE
+	PRINTR	"Untied."
+?PRG24:	PRINTR	"It isn't tied!"
+
+
+	.FUNCT	TWO-TREES
+	SET	'AWAITING-REPLY,9
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTI	" Shouldn't you be taking more interest in events in the world around you? While you've got it...?"
+	RTRUE	
+
+
+	.FUNCT	THING-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"Apart from a label on the bottom saying ""Made in Ibiza"" it furnishes you with no clue as to its purpose, if indeed it has one. You are surprised to see it because you thought you'd thrown it away. Like most gifts from your aunt,"
+	PRINT	GET-RID
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?DROP \?CCL7
+	EQUAL?	HERE,MAZE,ACCESS-SPACE /?CCL7
+	MOVE	THING,HERE
+	PRINTR	"It falls to the ground with a light ""thunk."" It doesn't do anything else at all."
+?CCL7:	EQUAL?	PRSA,V?CLOSE \FALSE
+	PRINTR	"Come to think of it, you vaguely remember an instruction booklet with directions for that. You never read it and lost it months ago."
+
+
+	.FUNCT	I-THING
+	RANDOM	4
+	ADD	4,STACK
+	CALL	QUEUE,I-THING,STACK
+	PUT	STACK,0,1
+	EQUAL?	IDENTITY-FLAG,ARTHUR \FALSE
+	EQUAL?	HERE,ENGINE-ROOM \?PRD5
+	LESS?	LOOK-COUNTER,3 /FALSE
+?PRD5:	EQUAL?	HERE,DARK,ACCESS-SPACE,MAZE /FALSE
+	CALL2	VISIBLE?,THING
+	ZERO?	STACK \FALSE
+	CALL	HELD?,THING,PROTAGONIST
+	ZERO?	STACK \FALSE
+	IN?	FLEET,HERE /FALSE
+	FCLEAR	THING,NDESCBIT
+	FCLEAR	THING,INVISIBLE
+	RANDOM	100
+	LESS?	40,STACK /?CCL13
+	MOVE	THING,HERE
+	RFALSE	
+?CCL13:	FSET?	GOWN,WORNBIT \?CCL15
+	FSET?	GOWN,OPENBIT \?CCL15
+	RANDOM	100
+	LESS?	65,STACK /?CCL15
+	MOVE	THING,GOWN
+	RFALSE	
+?CCL15:	MOVE	THING,PROTAGONIST
+	RFALSE	
+
+
+	.FUNCT	TABLET-F
+	EQUAL?	PRSA,V?DRINK,V?TAKE,V?EAT \FALSE
+	MOVE	TABLET,LOCAL-GLOBALS
+	FCLEAR	SCREWDRIVER,TRYTAKEBIT
+	FCLEAR	TOOTHBRUSH,TRYTAKEBIT
+	SET	'HEADACHE,FALSE-VALUE
+	ADD	SCORE,10 >SCORE
+	PRINTR	"You swallow the tablet. After a few seconds the room begins to calm down and behave in an orderly manner. Your terrible headache goes."
+
+
+	.FUNCT	CLOTHES-EXIT-F
+	FSET?	GOWN,WORNBIT \?CCL3
+	RETURN	FRONT-OF-HOUSE
+?CCL3:	SET	'AWAITING-REPLY,10
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINT	ARRESTED
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	MAIL-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	FSET?	MAIL,TOUCHBIT /?CCL3
+	FSET	MAIL,TOUCHBIT
+	FCLEAR	MAIL,TRYTAKEBIT
+	MOVE	MAIL,PROTAGONIST
+	PRINTR	"You gather up the pile of mail."
+?CCL3:	EQUAL?	PRSA,V?OPEN \FALSE
+	ICALL	PERFORM,V?READ,MAIL
+	RTRUE	
+
+
+	.FUNCT	HOUSE-ENTER-F
+	ZERO?	HOUSE-DEMOLISHED /?CCL3
+	PRINTI	"You can't enter a "
+	PRINTD	RUBBLE
+	PRINTC	46
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	IDENTITY-FLAG,FORD \?CCL7
+	EQUAL?	PRSA,V?THROUGH /?CND8
+	PRINTI	"Enter the house? "
+?CND8:	ICALL2	PRIVATE,STR?68
+	RFALSE	
+?CCL7:	ZERO?	PROSSER-LYING \?CCL13
+	PRINTI	"The "
+	PRINTD	BULLDOZER
+	ICALL2	JIGS-UP,STR?69
+	RFALSE	
+?CCL13:	CALL	QUEUE,I-HOUSEWRECK,5
+	PUT	STACK,0,1
+	RETURN	FRONT-PORCH
+
+
+	.FUNCT	FRONT-OF-HOUSE-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	FCLEAR	BULLDOZER,INVISIBLE
+	IN?	DOG,COUNTRY-LANE \?CCL6
+	ZERO?	DOG-FED \?CND7
+	ICALL1	I-DOG
+?CND7:	CALL	QUEUE,I-VOGONS,3
+	PUT	STACK,0,1
+	PRINTI	"You reach the site of what was "
+	EQUAL?	IDENTITY-FLAG,FORD \?PRG16
+	PRINTI	"Arthur's"
+	JUMP	?PRG18
+?PRG16:	PRINTI	"your"
+?PRG18:	PRINTI	" home. It is now a "
+	PRINTD	RUBBLE
+	PRINTI	". "
+	PRINTD	PROSSER
+	PRINTI	" looks sheepishly triumphant, a trick few people can do, as it requires a lot of technically complex deltoid muscle work."
+	CRLF	
+	CRLF	
+	RTRUE	
+?CCL6:	EQUAL?	IDENTITY-FLAG,FORD /FALSE
+	ZERO?	PROSSER-LYING \FALSE
+	CALL	QUEUE,I-BULLDOZER,-1
+	PUT	STACK,0,1
+	RFALSE	
+?CCL3:	EQUAL?	RARG,M-LOOK \?CCL25
+	EQUAL?	IDENTITY-FLAG,FORD \?CCL28
+	FSET?	FRONT-OF-HOUSE,NDESCBIT /?CCL28
+	FSET	BEER,NDESCBIT
+	SET	'DRUNK-LEVEL,0
+	FSET	ARTHUR,NDESCBIT
+	FSET	FRONT-OF-HOUSE,NDESCBIT
+	PRINTI	"Before you is the house of your friend, "
+	PRINTD	ARTHUR
+	PRINTI	", who is lying in front of a "
+	PRINTD	BULLDOZER
+	PRINTI	"; you have no idea why. You have no idea about most things about Arthur, even why you regard him as a friend, but you do, and must therefore return his towel before you leave."
+	JUMP	?CND26
+?CCL28:	ZERO?	HOUSE-DEMOLISHED /?CCL35
+	PRINTI	"There is a huge "
+	PRINTD	RUBBLE
+	JUMP	?PRG44
+?CCL35:	EQUAL?	IDENTITY-FLAG,FORD \?PRG42
+	PRINTI	"Arthur's house is"
+	JUMP	?PRG44
+?PRG42:	PRINTI	"You can enter your home"
+?PRG44:	PRINTI	" to the north. A path leads around it to the northeast and northwest, and a country lane is visible to the south."
+?CND26:	FSET?	FRONT-OF-HOUSE,NDESCBIT /?CND46
+	EQUAL?	IDENTITY-FLAG,ARTHUR \?CND46
+	FSET	FRONT-OF-HOUSE,NDESCBIT
+	PRINTI	" All that lies between your home and the huge yellow "
+	PRINTD	BULLDOZER
+	PRINTR	" bearing down on it is a few yards of mud."
+?CND46:	CRLF	
+	RTRUE	
+?CCL25:	EQUAL?	RARG,M-END \FALSE
+	EQUAL?	IDENTITY-FLAG,FORD \FALSE
+	FSET?	ARTHUR,NDESCBIT \FALSE
+	FCLEAR	ARTHUR,NDESCBIT
+	RFALSE	
+
+
+	.FUNCT	I-BULLDOZER
+	ZERO?	LYING-DOWN \?CCL2
+	ZERO?	HOUSE-DEMOLISHED /?CND1
+?CCL2:	CALL2	INT,I-BULLDOZER
+	PUT	STACK,0,0
+	RFALSE	
+?CND1:	FSET	PROSSER,TOUCHBIT
+	IGRTR?	'BULLDOZER-COUNTER,4 \?CCL7
+	CALL2	INT,I-BULLDOZER
+	PUT	STACK,0,0
+	PRINT	BULLDOZER-PILES
+	CRLF	
+	CALL1	BRICK-DEATH
+	RSTACK	
+?CCL7:	EQUAL?	HERE,FRONT-OF-HOUSE \FALSE
+	CRLF	
+	PRINTI	"The "
+	PRINTD	BULLDOZER
+	PRINTR	" rumbles slowly toward your home."
+
+
+	.FUNCT	BRICK-DEATH
+	CRLF	
+	PRINTI	"Your home collapses in a cloud of dust, and a stray flying brick hits you squarely on the back of the head. You try to think of some suitable last words, but what with the confusion of the moment and the spinning of your head, you are unable to compose anything pithy and expire in silence."
+?PRG3:	CRLF	
+	CRLF	
+	PRINTC	62
+	PUTB	P-INBUF,1,0
+	READ	P-INBUF,P-LEXV
+	INC	'DEAD-COUNTER
+	EQUAL?	DEAD-COUNTER,1,2 \?CCL7
+	PRINTI	"You keep out of this, you're dead"
+	EQUAL?	DEAD-COUNTER,1 \?PRG15
+	PRINTI	". An ambulance arrives."
+	JUMP	?PRG3
+?PRG15:	PRINTI	" and should be concentrating on developing a good firm rigor mortis. You are put in the ambulance, which drives away."
+	JUMP	?PRG3
+?CCL7:	EQUAL?	DEAD-COUNTER,3 \?PRG3
+	PRINTI	"For a dead person you are talking too much. As the ambulance reaches the mortuary"
+	ICALL1	MAKE-WAY-FOR
+	ICALL1	FINISH
+	JUMP	?PRG3
+
+
+	.FUNCT	BULLDOZER-DRIVER-F
+	EQUAL?	PRSA,V?HELLO,V?TELL \FALSE
+	PRINTI	"The "
+	PRINTD	BULLDOZER-DRIVER
+	PRINTI	", perusing a booklet of union rules, ignores you."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+
+
+	.FUNCT	BULLDOZER-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"It's one of those really big "
+	PRINTD	BULLDOZER
+	PRINTI	"s that can actually crush other "
+	PRINTD	BULLDOZER
+	PRINTR	"s, let alone houses."
+?CCL3:	EQUAL?	HERE,FRONT-OF-HOUSE /?CCL7
+	EQUAL?	PRSA,V?MOVE,V?PUSH,V?RUB /?PRG13
+	EQUAL?	PRSA,V?BLOCK,V?KICK,V?TAKE /?PRG13
+	EQUAL?	PRSA,V?WALK-AROUND \?CCL7
+?PRG13:	PRINTI	"The "
+	PRINTD	BULLDOZER
+	PRINTR	" isn't here."
+?CCL7:	EQUAL?	PRSA,V?LIE-DOWN \?CCL16
+	ICALL	PERFORM,V?BLOCK,BULLDOZER
+	RTRUE	
+?CCL16:	EQUAL?	PRSA,V?BLOCK \?CCL18
+	EQUAL?	IDENTITY-FLAG,ARTHUR \?CCL18
+	ZERO?	HOUSE-DEMOLISHED /?CCL23
+	PRINTR	"Too late now."
+?CCL23:	ZERO?	LYING-DOWN /?CCL27
+	ICALL	PERFORM,V?LIE-DOWN,GROUND
+	RTRUE	
+?CCL27:	ZERO?	PROSSER-LYING /?CCL29
+	PRINTR	"Prosser's doing that for you."
+?CCL29:	SET	'LYING-DOWN,TRUE-VALUE
+	SET	'OHERE,FALSE-VALUE
+	CALL	QUEUE,I-PROSSER,2
+	PUT	STACK,0,1
+	PRINTI	"You lie down in the path of the advancing "
+	PRINTD	BULLDOZER
+	PRINTR	". Prosser yells at you to for crissake move!!!"
+?CCL18:	EQUAL?	PRSA,V?WALK-AROUND \?CCL35
+	EQUAL?	IDENTITY-FLAG,ARTHUR \?CCL38
+	CALL1	V-DIG
+	RSTACK	
+?CCL38:	ZERO?	TOWEL-OFFERED \?CCL40
+	PRINTR	"Didn't you come here for a purpose? Something about a towel?"
+?CCL40:	ZERO?	GONE-AROUND /?CCL44
+	PRINTR	"You already did. It's not a merry-go-round."
+?CCL44:	SET	'GONE-AROUND,TRUE-VALUE
+	PRINTI	"You walk around the "
+	PRINTD	BULLDOZER
+	PRINTR	". Prosser is standing here, looking cross and frustrated. Realising that you are a friend of Arthur's he starts to talk at you. He says that this sort of protest is all very well, but what Mr. Dent must realise is that he's had plenty of time to make a formal protest at the proper time and place, and that spending months going through the appropriate official channels, filling in the appropriate official forms, and going to the appropriate official public hearings is the right way of going about it, and lying around whimsically in the mud is not. He says that he personally hates mud and despises the sort of people who lie in it."
+?CCL35:	EQUAL?	PRSA,V?LISTEN \FALSE
+	CALL2	RUNNING?,I-PROSSER
+	ZERO?	STACK /FALSE
+	PRINTR	"""Rumble...rumble..."""
+
+
+	.FUNCT	I-PROSSER
+	ZERO?	LYING-DOWN \?CND1
+	CALL2	INT,I-PROSSER
+	PUT	STACK,0,0
+	ICALL1	I-BULLDOZER
+	RTRUE	
+?CND1:	CALL	QUEUE,I-PROSSER,-1
+	PUT	STACK,0,1
+	INC	'PROSSER-COUNTER
+	CRLF	
+	EQUAL?	PROSSER-COUNTER,1 \?CCL5
+	PRINTI	"The "
+	PRINTD	BULLDOZER
+	PRINTR	" thunders toward you. The ground is shaking beneath you as you lie in the mud."
+?CCL5:	EQUAL?	PROSSER-COUNTER,2 \?CCL9
+	PRINTI	"The noise of the giant "
+	PRINTD	BULLDOZER
+	PRINTR	" is now so violently loud that you can't even hear Prosser yelling to warn you that you will be killed if you don't get the hell out of the way. You just see him gesticulating wildly."
+?CCL9:	EQUAL?	PROSSER-COUNTER,3 \FALSE
+	CALL2	INT,I-PROSSER
+	PUT	STACK,0,0
+	CALL	QUEUE,I-FORD,-1
+	PUT	STACK,0,1
+	MOVE	FORD,HERE
+	SET	'P-IT-OBJECT,TOWEL
+	PRINTI	"With a terrible grinding of gears the "
+	PRINTD	BULLDOZER
+	PRINTI	" comes to an abrupt halt just in front of you. It shakes, shudders, and emits noxious substances all over your rose bed. Prosser is incoherent with rage.
+
+Moments later, your friend "
+	PRINTD	FORD
+	PRINTR	" arrives. He hardly seems to notice your predicament, but keeps glancing nervously at the sky. He says, ""Hello, Arthur,"" takes a towel from his battered leather satchel, and offers it to you."
+
+
+	.FUNCT	PROSSER-DESCFCN,X
+	EQUAL?	IDENTITY-FLAG,FORD \?PRG8
+	FSET?	PROSSER,TOUCHBIT /?PRG8
+	FSET	PROSSER,TOUCHBIT
+	PRINTR	"Nearby stands an impatient man. There seems to be a bit of an atmosphere."
+?PRG8:	PRINTD	PROSSER
+	PRINTI	", from the local council, is "
+	ZERO?	PROSSER-LYING /?CCL12
+	PRINTI	"lying in front"
+	JUMP	?PRG21
+?CCL12:	ZERO?	GONE-AROUND /?PRG19
+	PRINTI	"standing at the side"
+	JUMP	?PRG21
+?PRG19:	PRINT	ON-OTHER-SIDE
+?PRG21:	PRINTI	" of the "
+	PRINTD	BULLDOZER
+	PRINTI	". He seems to be wearing a "
+	PRINTD	DIGITAL-WATCH
+	PRINTC	46
+	FSET?	PROSSER,TOUCHBIT /?CND1
+	FSET	PROSSER,TOUCHBIT
+	PRINTR	" He looks startled to see you emerge, and yells at you to get out of the way."
+?CND1:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PROSSER-F
+	EQUAL?	PROSSER,WINNER \?CCL3
+	IN?	FLEET,HERE \?CCL6
+	PRINTI	"Prosser is too preoccupied with recent events to give your remarks much consideration. He is running off and saying a number of things about his mother in a high voice."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL6:	EQUAL?	PRSA,V?TELL-ABOUT \?CCL10
+	EQUAL?	PRSO,ME \?CCL10
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,PROSSER,PRSI
+	SET	'WINNER,PROSSER
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?HELLO \?CCL14
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?HELLO,PROSSER
+	SET	'WINNER,PROSSER
+	RTRUE	
+?CCL14:	EQUAL?	PRSA,V?WHAT \?CCL16
+	EQUAL?	PRSO,OBJECT-OF-GAME \?CCL16
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,PROSSER,OBJECT-OF-GAME
+	SET	'WINNER,PROSSER
+	RTRUE	
+?CCL16:	EQUAL?	PRSA,V?WHAT \?PRD22
+	EQUAL?	PRSO,TIME /?CTR19
+?PRD22:	EQUAL?	PRSA,V?TELL-TIME \?PRD25
+	EQUAL?	PRSO,ME \?PRD25
+	EQUAL?	PRSI,TIME /?CTR19
+?PRD25:	EQUAL?	PRSA,V?WHAT-TIME \?CCL20
+	EQUAL?	PRSO,TIME \?CCL20
+?CTR19:	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-FOR,PROSSER,TIME
+	SET	'WINNER,PROSSER
+	RTRUE	
+?CCL20:	EQUAL?	PRSA,V?WHAT \?CCL32
+	EQUAL?	PRSO,OBJECT-OF-GAME \?CCL32
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,PROSSER,PRSO
+	SET	'WINNER,PROSSER
+	RTRUE	
+?CCL32:	EQUAL?	IDENTITY-FLAG,FORD \?CCL36
+	EQUAL?	PRSA,V?LIE-DOWN \?PRD41
+	EQUAL?	PRSO,BULLDOZER \?PRD41
+	ZERO?	IN-FRONT-FLAG \?CTR38
+?PRD41:	EQUAL?	PRSA,V?LIE-DOWN \?PRD45
+	EQUAL?	PRSO,ROOMS,GROUND \?PRD45
+	ZERO?	HOUSE-DEMOLISHED /?CTR38
+?PRD45:	EQUAL?	PRSA,V?REPLACE \?CCL39
+	EQUAL?	PRSO,ARTHUR \?CCL39
+	ZERO?	HOUSE-DEMOLISHED \?CCL39
+?CTR38:	ZERO?	PROSSER-LYING /?CND52
+	PRINTR	"He's already lying there!"
+?CND52:	SET	'PROSSER-LYING,TRUE-VALUE
+	CALL	QUEUE,I-ARTHUR,-1
+	PUT	STACK,0,1
+	PRINTR	"Prosser blinks in astonishment. ""You mean, go and lie in the mud in his place...?"" You explain that Arthur will only move if someone else takes over for him. Prosser shakes his head in such a manner as to suggest that he is very weary of the world, and you tactfully forebear from mentioning that it won't be troubling him much longer. Reluctantly, he follows you back toward Arthur.
+
+You rapidly conclude the business. Prosser lies in the mud. Arthur, bewildered, nevertheless stands up and appears ready to follow you to the Pub."
+?CCL39:	ICALL1	STAND-ASIDE
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL36:	EQUAL?	PRSA,V?WHAT-ABOUT \?CCL59
+	EQUAL?	PRSO,HOME,HOUSE \?CCL59
+	ZERO?	HOUSE-DEMOLISHED /?CCL59
+	PRINTR	"Prosser explains the local planning regulations and says, by way of reassurance, that you will probably be rehoused within a couple of years."
+?CCL59:	EQUAL?	PRSA,V?BLOCK \?CCL66
+	EQUAL?	PRSO,BULLDOZER \?CCL66
+	CALL2	RUNNING?,I-BULLDOZER
+	ZERO?	STACK /?CCL66
+	CALL1	V-PROTEST
+	RSTACK	
+?CCL66:	ICALL1	STAND-ASIDE
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	ZERO?	GONE-AROUND \?CCL71
+	EQUAL?	IDENTITY-FLAG,FORD \?CCL71
+	EQUAL?	PRSA,V?ASK-FOR,V?HELLO,V?TELL /?PRD75
+	EQUAL?	PRSA,V?TELL-ABOUT,V?ASK-ABOUT \?CCL71
+?PRD75:	EQUAL?	PRSO,PROSSER \?CCL71
+	IN?	FLEET,HERE /?CCL71
+	PRINTI	"Prosser can't hear you from here."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL71:	EQUAL?	PRSA,V?SHOW,V?GIVE \?CCL82
+	EQUAL?	PRSO,THING \?CCL85
+	PRINTR	"He is much impressed and says, ""You must have the same aunt I have."""
+?CCL85:	EQUAL?	PRSO,TOWEL \?CCL89
+	SET	'TOWEL-MUDDY,TRUE-VALUE
+	PRINTR	"Prosser thanks you, wipes the mud off his boots, and hands it back."
+?CCL89:	EQUAL?	PRSO,GUIDE \?CCL93
+	PRINTI	"Prosser takes a quick look at "
+	PRINTD	GUIDE
+	PRINTR	", says he doesn't read that kind of rubbish, and hands it back."
+?CCL93:	EQUAL?	PRSO,SATCHEL \FALSE
+	PRINTR	"Prosser says he wouldn't be seen dead with that kind of thing slung over his shoulder."
+?CCL82:	EQUAL?	PRSA,V?WALK-TO \?CCL101
+	EQUAL?	HERE,FRONT-OF-HOUSE \?CCL101
+	EQUAL?	IDENTITY-FLAG,FORD \?PRG109
+	ZERO?	GONE-AROUND \?PRG109
+	ICALL	PERFORM,V?WALK-AROUND,BULLDOZER
+	RTRUE	
+?PRG109:	PRINTR	"You're already as close as any reasonable person would want to get."
+?CCL101:	EQUAL?	PRSA,V?KICK,V?KILL \?CCL112
+	ZERO?	LYING-DOWN /?CCL112
+	PRINT	WHILE-LYING
+	CRLF	
+	RTRUE	
+?CCL112:	EQUAL?	PRSA,V?KILL \?CCL118
+	EQUAL?	PRSO,PROSSER \?CCL118
+	ZERO?	HOUSE-DEMOLISHED /?CCL118
+	PRINTR	"You muck up all his fancy facial work. This is the last moment of satisfaction you will experience for some time."
+?CCL118:	EQUAL?	PRSA,V?KICK,V?KILL \?CCL125
+	EQUAL?	PRSO,PROSSER \?CCL125
+	PRINTR	"He dodges, insisting that this is incorrect procedure."
+?CCL125:	EQUAL?	PRSA,V?THROW \?CCL131
+	EQUAL?	PRSI,PROSSER \?CCL131
+	MOVE	PRSO,HERE
+	ICALL	PERFORM,V?KILL,PROSSER
+	RTRUE	
+?CCL131:	EQUAL?	PRSA,V?EXAMINE \?CCL135
+	CALL1	PROSSER-DESCFCN
+	RSTACK	
+?CCL135:	EQUAL?	PRSA,V?LISTEN \?CCL137
+	FSET?	CONVERSATION,INVISIBLE /?CCL137
+	ICALL	PERFORM,V?LISTEN,CONVERSATION
+	RTRUE	
+?CCL137:	EQUAL?	PRSA,V?ASK-ABOUT \?CCL141
+	EQUAL?	PRSI,OBJECT-OF-GAME \?CCL141
+	PRINTR	"Prosser pulls a booklet out of his back pocket. ""My game manual says that the goal is getting this here house knocked down."""
+?CCL141:	EQUAL?	PRSA,V?ASK-ABOUT \?CCL147
+	EQUAL?	PRSI,DIGITAL-WATCH \?CCL147
+	ICALL	PERFORM,V?ASK-FOR,PROSSER,TIME
+	RTRUE	
+?CCL147:	EQUAL?	PRSA,V?ASK-FOR \FALSE
+	EQUAL?	PRSI,TIME \FALSE
+	PRINTI	"Prosser shakes the "
+	PRINTD	DIGITAL-WATCH
+	PRINTI	". ""Hasn't worked for months. I keep wearing it only because I think "
+	PRINTD	DIGITAL-WATCH
+	PRINTR	"es are neat."""
+
+
+	.FUNCT	STAND-ASIDE
+	ZERO?	PROSSER-LYING /?PRG5
+	PRINTR	"""Leave me alone,"" Prosser whimpers miserably."
+?PRG5:	PRINTI	"""Please step aside as I need to be able to "
+	ZERO?	HOUSE-DEMOLISHED /?PRG12
+	PRINTI	"clear this "
+	PRINTD	RUBBLE
+	PRINTR	" away."""
+?PRG12:	PRINTI	"knock "
+	EQUAL?	IDENTITY-FLAG,ARTHUR \?PRG19
+	PRINTI	"your"
+	JUMP	?PRG21
+?PRG19:	PRINTI	"that"
+?PRG21:	PRINTR	" house down."""
+
+
+	.FUNCT	DIGITAL-WATCH-F
+	EQUAL?	PRSA,V?READ,V?TAKE \FALSE
+	CALL2	PRIVATE,STR?70
+	RSTACK	
+
+
+	.FUNCT	FORD-DESCFCN,X
+	ZERO?	FORD-SLEEPING /?PRG6
+	PRINTR	"Ford is in the corner, snoring loudly."
+?PRG6:	PRINTD	FORD
+	PRINTR	" is here."
+
+
+	.FUNCT	FORD-F
+	EQUAL?	IDENTITY-FLAG,FORD \?CCL3
+	EQUAL?	FORD,PRSO \?CCL6
+	ICALL	PERFORM,PRSA,ME,PRSI
+	RTRUE	
+?CCL6:	ICALL	PERFORM,PRSA,PRSO,ME
+	RTRUE	
+?CCL3:	EQUAL?	FORD,WINNER \?CCL8
+	IN?	FLEET,HERE \?CCL11
+	PRINT	ABOVE-NOISE
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL11:	EQUAL?	PRSI,HOUSE /?PRG18
+	EQUAL?	PRSO,HOUSE \?CCL15
+?PRG18:	PRINTI	"""It's not a house, it's a home."" (Footnote 2)"
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL15:	EQUAL?	PRSA,V?TELL-ABOUT \?CCL21
+	EQUAL?	PRSO,ME \?CCL21
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,FORD,PRSI
+	SET	'WINNER,FORD
+	RTRUE	
+?CCL21:	EQUAL?	PRSA,V?HELLO \?CCL25
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?HELLO,FORD
+	SET	'WINNER,FORD
+	RTRUE	
+?CCL25:	EQUAL?	PRSA,V?WHAT \?CCL27
+	EQUAL?	PRSO,OBJECT-OF-GAME \?CCL27
+	PRINT	ASK-ABOUT-OBJECT
+	CRLF	
+	RTRUE	
+?CCL27:	EQUAL?	PRSA,V?WHAT-ABOUT \?CCL33
+	LESS?	FORD-COUNTER,2 \?CCL33
+	EQUAL?	HERE,FRONT-OF-HOUSE \?CCL33
+	EQUAL?	PRSO,HOME \?CCL33
+	PRINTI	"Ford"
+	CALL1	FORD-DECIDES
+	RSTACK	
+?CCL33:	EQUAL?	PRSA,V?WHAT-ABOUT \?CCL41
+	EQUAL?	PRSO,THIRD-PLANET,HOME \?CCL41
+	ZERO?	EARTH-DEMOLISHED /?CCL41
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,FORD,THIRD-PLANET
+	SET	'WINNER,FORD
+	RTRUE	
+?CCL41:	ZERO?	EARTH-DEMOLISHED \?PRG73
+	LESS?	DRUNK-LEVEL,3 \?PRG54
+	EQUAL?	HERE,PUB \?PRG54
+	PRINTI	"""Shut up and drink your beer. You're going to need it."""
+	CRLF	
+	JUMP	?CND47
+?PRG54:	PRINTI	"Ford, busy "
+	EQUAL?	FORD-COUNTER,2 \?PRG61
+	PRINTI	"talking to Prosser"
+	JUMP	?CND56
+?PRG61:	PRINTI	"scanning the sky "
+?CND56:	EQUAL?	HERE,PUB \?CCL65
+	PRINTI	"through the window"
+	JUMP	?PRG71
+?CCL65:	EQUAL?	FORD-COUNTER,2 /?PRG71
+	PRINTI	"for something"
+?PRG71:	PRINTI	", ignores you."
+	CRLF	
+?CND47:	CALL	QUEUE,I-FORD,2
+	PUT	STACK,0,1
+	RTRUE	
+?PRG73:	PRINTI	"Ford seems deep in thought."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL8:	EQUAL?	PRSA,V?HELLO,V?TELL-ABOUT,V?TELL /?PRD78
+	EQUAL?	PRSA,V?ASK-ABOUT,V?ASK-FOR \?CCL76
+?PRD78:	EQUAL?	PRSO,FORD \?CCL76
+	ZERO?	FORD-SLEEPING /?CCL76
+	PRINTI	"Ford is sleeping!"
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL76:	EQUAL?	PRSA,V?GIVE \?CCL85
+	EQUAL?	PRSI,FORD \?CCL85
+	ZERO?	FORD-SLEEPING /?CCL85
+	ICALL	PERFORM,V?HELLO,FORD
+	RTRUE	
+?CCL85:	EQUAL?	FOLLOW-FLAG,1 \?CCL90
+	IN?	FORD,HERE /?CCL90
+	EQUAL?	PRSA,V?FOLLOW \?CCL90
+	PRINTI	"In a state of anxiety and confusion you follow Ford down the lane..."
+	CRLF	
+	CRLF	
+	LOC	FORD
+	CALL2	GOTO,STACK
+	RSTACK	
+?CCL90:	EQUAL?	FOLLOW-FLAG,3 \?CCL97
+	EQUAL?	PRSA,V?FOLLOW \?CCL97
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+?CCL97:	EQUAL?	PRSA,V?FOLLOW \?CCL101
+	EQUAL?	FOLLOW-FLAG,5 \?CCL101
+	CALL2	DO-WALK,P?SOUTH
+	RSTACK	
+?CCL101:	EQUAL?	PRSA,V?SHAKE,V?ALARM \?CCL105
+	ZERO?	FORD-SLEEPING /?CCL105
+	PRINTR	"Rather like trying to wake the dead."
+?CCL105:	EQUAL?	PRSA,V?ASK-ABOUT \?CCL111
+	EQUAL?	PRSI,OBJECT-OF-GAME \?CCL111
+	PRINT	ASK-ABOUT-OBJECT
+	CRLF	
+	RTRUE	
+?CCL111:	EQUAL?	PRSA,V?ASK-ABOUT \?CCL117
+	EQUAL?	PRSI,THIRD-PLANET \?CCL117
+	PRINTR	"Ford explains that the Earth has been demolished. To cheer you up, he points out that there are an awful lot of little planets like that around, and the Earth wasn't even a particularly nice one."
+?CCL117:	EQUAL?	PRSA,V?GIVE \?CCL123
+	EQUAL?	PRSO,THUMB \?CCL123
+	IN?	FLEET,HERE \?CCL123
+	PRINTR	"You can't reach him in this wind."
+?CCL123:	EQUAL?	PRSA,V?LISTEN \?CCL130
+	FSET?	CONVERSATION,INVISIBLE /?CCL133
+	ICALL	PERFORM,V?LISTEN,CONVERSATION
+	RTRUE	
+?CCL133:	ZERO?	FORD-SLEEPING /FALSE
+	PRINTR	"""Zzzzzzz..."""
+?CCL130:	EQUAL?	PRSA,V?EXAMINE \?CCL139
+	ZERO?	FORD-SLEEPING /?CCL139
+	PRINTR	"He's sleeping."
+?CCL139:	EQUAL?	PRSA,V?ASK-FOR \FALSE
+	EQUAL?	PRSI,TOWEL \FALSE
+	EQUAL?	FORD-COUNTER,0,1 \FALSE
+	ICALL	PERFORM,V?TAKE,TOWEL
+	RTRUE	
+
+
+	.FUNCT	FORD-DECIDES
+	FCLEAR	CONVERSATION,INVISIBLE
+	CALL	QUEUE,I-FORD,2
+	PUT	STACK,0,1
+	SET	'FORD-COUNTER,2
+	PRINTI	" looks startled, then guilty. He starts to say something and stops. He starts to say something else and stops. Suddenly, he seems to see the "
+	PRINTD	BULLDOZER
+	PRINTI	" for the first time, stops starting to say things and starts.
+
+He seems to come to a momentous decision, says he has something of Earth-shattering importance to tell you, and stresses the importance of a quick drink at the Horse 'n Groom.
+
+"
+	ICALL2	BUT-THAT-MAN,STR?71
+	PRINTI	" Ford goes off for a quiet word with Prosser. From where you're lying, you cannot hear what's happening, although they seem deeply engrossed in "
+	PRINTD	CONVERSATION
+	PRINTR	"."
+
+
+	.FUNCT	I-FORD
+	CALL	QUEUE,I-FORD,-1
+	PUT	STACK,0,1
+	CALL2	IN-HEART?,PROTAGONIST
+	ZERO?	STACK /?CCL3
+	INC	'HEART-COUNTER
+	EQUAL?	HEART-COUNTER,1 \?CCL6
+	MOVE	FORD,HERE
+	CRLF	
+	PRINTI	"""This looks like that incredible new"
+	PRINT	IID
+	PRINTI	" spaceship, "
+	PRINTD	HEART-OF-GOLD
+	PRINTI	"!"" says Ford, with growing excitement."
+	CRLF	
+	CRLF	
+	PRINT	ANNOUNCEMENT
+	PRINTD	EDDIE
+	PRINTI	". We have just picked up two hitchhikers"
+	ICALL2	FACTOR,STR?72
+	PRINTR	""""
+?CCL6:	EQUAL?	HEART-COUNTER,2 \?CCL12
+	CRLF	
+	PRINTI	"""Come on, let's look for the Bridge."" You follow Ford, and eventually come to the..."
+	CRLF	
+	CRLF	
+	ICALL2	GOTO,BRIDGE
+	MOVE	FORD,HERE
+	RTRUE	
+?CCL12:	EQUAL?	HEART-COUNTER,3 \?CCL16
+	EQUAL?	HERE,BRIDGE \FALSE
+	CRLF	
+	PRINTI	"""Hey, Zaphod, how ya doing?"" says Ford. He's cool. ""Not bad, Ford. Great to see you,"" replies Zaphod. He's cooler. You suddenly realise that the woman is Tricia MacMillan (""Call me "
+	PRINTD	TRILLIAN
+	PRINTR	"""), whom you were trying to pick up at a party in Islington just a few weeks ago, and that Zaphod is the guy she eventually left the party with! Odd."
+?CCL16:	EQUAL?	HEART-COUNTER,4 \FALSE
+	MOVE	FORD,LOCAL-GLOBALS
+	MOVE	ZAPHOD,LOCAL-GLOBALS
+	MOVE	TRILLIAN,LOCAL-GLOBALS
+	MOVE	HANDBAG,BRIDGE
+	MOVE	SATCHEL,BRIDGE
+	FCLEAR	HANDBAG,NDESCBIT
+	FCLEAR	HANDBAG,TRYTAKEBIT
+	CALL2	INT,I-FORD
+	PUT	STACK,0,0
+	CALL	QUEUE,I-MARVIN,-1
+	PUT	STACK,0,1
+	EQUAL?	HERE,BRIDGE \FALSE
+	SET	'FOLLOW-FLAG,3
+	CALL	QUEUE,I-FOLLOW,2
+	PUT	STACK,0,1
+	CRLF	
+	PRINTI	"""Like my spaceship, Ford?"" Zaphod asks. ""YOUR spaceship?"" says Ford, losing his cool for a second. ""Yeah, I stole it,"" Zaphod admits. ""I'm gonna use it to find"
+	PRINT	LOST-PLANET
+	PRINTI	". Let's go sit in the sauna while I explain."" Zaphod, Ford, and "
+	PRINTD	TRILLIAN
+	PRINTR	" all head off to port."
+?CCL3:	EQUAL?	HERE,HOLD \?CCL29
+	FSET?	CAPTAINS-QUARTERS,TOUCHBIT \?CCL32
+	INC	'GUARDS-COUNTER
+	EQUAL?	GUARDS-COUNTER,1 \?CCL35
+	CRLF	
+	PRINTR	"The guard releases you and Ford and begins cycling the air in the airlock. ""Hey, guard!"" shouts Ford, ""do you really enjoy this sort of thing? Shouting, stomping around, shooting people, is it really a fulfilling career?"""
+?CCL35:	EQUAL?	GUARDS-COUNTER,6 \?PRG51
+	CALL2	INT,I-FORD
+	PUT	STACK,0,0
+	MOVE	SATCHEL,FORD
+	FCLEAR	SATCHEL,NDESCBIT
+	SET	'PANEL-BLOCKER,FALSE-VALUE
+	FSET	HOLD,REVISITBIT
+	CRLF	
+	PRINTI	"The guard says, """
+	CALL	HELD?,BABEL-FISH,PROTAGONIST
+	ZERO?	STACK /?PRG47
+	PRINTI	"Well, all things considered, I guess I like being a guard. Especially the shouting. Resistance is useless!"""
+	JUMP	?PRG49
+?PRG47:	PRINTC	73
+	ICALL2	PRODUCE-GIBBERISH,3
+?PRG49:	PRINTI	" He throws you and Ford into the airlock and closes the door."
+	CRLF	
+	CRLF	
+	ICALL2	GOTO,AIRLOCK
+	MOVE	FORD,AIRLOCK
+	RTRUE	
+?PRG51:	CRLF	
+	PRINTR	"Ford continues trying to talk the guard into a sudden career change."
+?CCL32:	MOVE	GUIDE,PROTAGONIST
+	CALL2	INT,I-FORD
+	PUT	STACK,0,0
+	SET	'FORD-SLEEPING,TRUE-VALUE
+	IN?	MINERAL-WATER,FORD \?CND53
+	MOVE	MINERAL-WATER,SATCHEL
+?CND53:	IN?	TOWEL,FORD \?CND55
+	MOVE	TOWEL,HERE
+?CND55:	MOVE	SATCHEL,HERE
+	FCLEAR	SATCHEL,TRYTAKEBIT
+	CRLF	
+	PRINTI	"Ford yawns. ""Matter transference always tires me out. I'm going to take a nap."" He places something on top of his satchel. ""If you have any questions, here's "
+	PRINT	GUIDE-NAME
+	PRINTI	""" (Footnote 14). Ford lowers his voice to a whisper. ""I'm not supposed to tell you this, but you'll never be able to finish the game without consulting the Guide about lots of stuff."" As he curls up in a corner and begins snoring, you pick up "
+	PRINTD	GUIDE
+	PRINTR	"."
+?CCL29:	ZERO?	FORD-COUNTER \?CCL60
+	SET	'FORD-COUNTER,1
+	CRLF	
+	PRINTR	"Ford glances uncomfortably at the sky. He offers you the towel again."
+?CCL60:	EQUAL?	FORD-COUNTER,1 \?CCL64
+	CRLF	
+	PRINTI	"Ford seems oblivious to your trouble, so you ask ""Ford, what about my home?"" He"
+	CALL1	FORD-DECIDES
+	RSTACK	
+?CCL64:	EQUAL?	FORD-COUNTER,2 \?CCL68
+	SET	'FORD-COUNTER,3
+	SET	'LYING-DOWN,FALSE-VALUE
+	SET	'PROSSER-LYING,TRUE-VALUE
+	CALL	QUEUE,I-FORD,2
+	PUT	STACK,0,1
+	FSET	CONVERSATION,INVISIBLE
+	CRLF	
+	PRINTI	"Ford and Prosser stop talking and approach you. Ford says that Prosser has agreed to lie in your place so that the two of you can go off to the Pub. Reluctantly, Prosser steps forward and lies down in front of the "
+	PRINTD	BULLDOZER
+	PRINTR	". You stand up."
+?CCL68:	EQUAL?	FORD-COUNTER,3 \?CCL72
+	MOVE	FORD,COUNTRY-LANE
+	SET	'FORD-COUNTER,4
+	EQUAL?	HERE,FRONT-OF-HOUSE \?CCL75
+	SET	'FOLLOW-FLAG,1
+	CALL	QUEUE,I-FOLLOW,2
+	PUT	STACK,0,1
+	CRLF	
+	PRINTR	"Ford, urging you to follow, hurries toward the country lane."
+?CCL75:	EQUAL?	HERE,COUNTRY-LANE \FALSE
+	CRLF	
+	PRINTR	"Ford enters from the north."
+?CCL72:	EQUAL?	FORD-COUNTER,4 \?CCL83
+	EQUAL?	HERE,COUNTRY-LANE \?CCL83
+	FSET?	PUB,TOUCHBIT /?CCL83
+	SET	'FORD-COUNTER,5
+	SET	'FOLLOW-FLAG,1
+	CALL	QUEUE,I-FOLLOW,2
+	PUT	STACK,0,1
+	MOVE	FORD,PUB
+	CRLF	
+	PRINTR	"""Come along, Arthur,"" says Ford impatiently, and enters the Pub."
+?CCL83:	IN?	FORD,HERE /?CCL90
+	FSET?	PUB,TOUCHBIT \?CCL90
+	MOVE	FORD,HERE
+	CRLF	
+	PRINTR	"Ford hurries after you."
+?CCL90:	LESS?	DRUNK-LEVEL,3 \FALSE
+	EQUAL?	PRSO,BEER \?CCL99
+	EQUAL?	PRSA,V?ENJOY,V?DRINK /FALSE
+?CCL99:	EQUAL?	HERE,PUB \FALSE
+	FSET?	BEER,NDESCBIT /FALSE
+	CRLF	
+	PRINTI	"""Drink the beer,"" urges Ford. ""It will help"
+	ICALL1	CUSHION
+	PRINTR	""""
+
+
+	.FUNCT	SATCHEL-DESCFCN,X
+	PRINTI	"There is a satchel here"
+	EQUAL?	PANEL-BLOCKER,SATCHEL \?PRG7
+	PRINTI	", resting in front of the "
+	PRINTD	ROBOT-PANEL
+?PRG7:	PRINTC	46
+	ICALL1	ITEM-ON-SATCHEL-DESCRIPTION
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	ITEM-ON-SATCHEL-DESCRIPTION
+	ZERO?	ITEM-ON-SATCHEL /FALSE
+	PRINTI	" Sitting on top of it is"
+	ICALL2	ARTICLE,ITEM-ON-SATCHEL
+	PRINTC	46
+	RTRUE	
+
+
+	.FUNCT	SATCHEL-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	EQUAL?	IDENTITY-FLAG,FORD /?CCL3
+	CALL2	PRIVATE,STR?73
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?PUT-ON \?CCL7
+	EQUAL?	SATCHEL,PRSI \?CCL7
+	CALL2	HELD?,SATCHEL
+	ZERO?	STACK /?CCL12
+	PRINTR	"Put down the satchel first."
+?CCL12:	ZERO?	ITEM-ON-SATCHEL /?CCL16
+	PRINTI	"But"
+	ICALL	ARTICLE,ITEM-ON-SATCHEL,TRUE-VALUE
+	PRINTR	" is already on the satchel."
+?CCL16:	SET	'ITEM-ON-SATCHEL,PRSO
+	MOVE	PRSO,HERE
+	FSET	PRSO,NDESCBIT
+	FSET	PRSO,TRYTAKEBIT
+	PRINTI	"Okay,"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" is now sitting on the satchel."
+?CCL7:	EQUAL?	PRSA,V?EXAMINE \?CCL26
+	PRINTI	"The satchel, which is "
+	FSET?	SATCHEL,OPENBIT \?PRG34
+	PRINTI	"open"
+	JUMP	?PRG36
+?PRG34:	PRINTI	"closed"
+?PRG36:	PRINTI	", is fairly bulky."
+	ICALL1	ITEM-ON-SATCHEL-DESCRIPTION
+	CRLF	
+	RTRUE	
+?CCL26:	EQUAL?	PRSA,V?TAKE \FALSE
+	IN?	SATCHEL,FORD \FALSE
+	PRINTI	"Ford says, ""Hey, Arthur, keep "
+	PRINTD	HANDS
+	PRINTR	"s off my satchel!"""
+
+
+	.FUNCT	TOWEL-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	FSET?	TOWEL,TRYTAKEBIT \?CCL3
+	EQUAL?	HERE,FRONT-OF-HOUSE \?CCL3
+	ZERO?	LYING-DOWN /?CCL3
+	FCLEAR	TOWEL,TRYTAKEBIT
+	MOVE	TOWEL,PROTAGONIST
+	MOVE	FORD,LOCAL-GLOBALS
+	SET	'FORD-GONE,TRUE-VALUE
+	SET	'FOLLOW-FLAG,5
+	CALL	QUEUE,I-FOLLOW,2
+	PUT	STACK,0,1
+	CALL2	INT,I-FORD
+	PUT	STACK,0,0
+	PRINTI	"As you take it, Ford says, ""Er, look, thanks for lending me the towel... been nice knowing you... got to go now..."" He smiles oddly and walks down the "
+	PRINTD	COUNTRY-LANE
+	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?MOVE,V?TAKE \?CCL11
+	EQUAL?	PRSO,TOWEL \?CCL11
+	FSET?	TOWEL,SURFACEBIT \?CCL11
+	FCLEAR	TOWEL,TRYTAKEBIT
+	FCLEAR	TOWEL,SURFACEBIT
+	ICALL	ROB,TOWEL,HERE
+	FCLEAR	TOWEL,CONTBIT
+	FCLEAR	TOWEL,OPENBIT
+	FCLEAR	TOWEL,NDESCBIT
+	EQUAL?	PRSA,V?MOVE \FALSE
+	PRINTR	"Okay, it's no longer covering the drain."
+?CCL11:	EQUAL?	PRSA,V?TIE,V?PUT-ON \?CCL21
+	EQUAL?	PRSI,BEAST \?CCL21
+	PRINTR	"The effect is decorative rather than helpful."
+?CCL21:	EQUAL?	PRSA,V?TIE,V?PUT-ON \?CCL27
+	EQUAL?	PRSI,EYES,HEAD \?CCL27
+	FSET?	TOWEL,WORNBIT \?CCL32
+	PRINTR	"It already is."
+?CCL32:	IN?	BEAST,HERE \?PRG39
+	FSET	TOWEL,WORNBIT
+	MOVE	TOWEL,PROTAGONIST
+	CALL	QUEUE,I-BEAST,11
+	PUT	STACK,0,1
+	PRINTI	"The "
+	PRINTD	BEAST
+	PRINTR	" is completely bewildered. It is so dim it thinks that if you can't see it, it can't see you. You have a few seconds before it realises its mistake."
+?PRG39:	PRINTI	"There's no need for that. It's not like there's a "
+	PRINTD	BEAST
+	PRINTR	" around, or something."
+?CCL27:	FSET?	TOWEL,WORNBIT \?CCL42
+	EQUAL?	PRSA,V?UNTIE,V?REMOVE,V?TAKE-OFF \?CCL42
+	FCLEAR	TOWEL,WORNBIT
+	PRINTI	"You unwrap the towel from your head."
+	FSET?	BEAST,MUNGEDBIT \?CND47
+	CRLF	
+	CRLF	
+	ICALL1	V-LOOK
+	RTRUE	
+?CND47:	ZERO?	BEARINGS-LOST /?PRG59
+	PRINTI	" You see that you have wandered in circles"
+	EQUAL?	HERE,OUTER-LAIR \?PRG57
+	PRINTI	" and ended right beside the "
+	PRINTD	MEMORIAL
+?PRG57:	PRINTC	46
+?PRG59:	PRINTI	" Unfortunately, the Beast has also caught sight of you again. All this fooling around has made it doubly angry and hungry. "
+	ICALL1	BEAST-DEATH
+	RTRUE	
+?CCL42:	EQUAL?	PRSA,V?EXAMINE \?CCL62
+	FSET?	TOWEL,SURFACEBIT \?CCL65
+	ICALL	PERFORM,V?EXAMINE,DRAIN
+	FIRST?	TOWEL /FALSE
+	RTRUE	
+?CCL65:	ZERO?	TOWEL-MUDDY /?PRG72
+	PRINTR	"It is caked with mud."
+?PRG72:	PRINTR	"It's covered with little pink and blue flowers."
+?CCL62:	EQUAL?	PRSA,V?LIE-DOWN \FALSE
+	FSET?	TOWEL,SURFACEBIT \FALSE
+	ICALL	PERFORM,V?STAND-BEFORE,HOOK
+	RTRUE	
+
+
+	.FUNCT	BACK-OF-HOUSE-F,RARG
+	EQUAL?	RARG,M-END \?CCL3
+	CALL2	RUNNING?,I-VOGONS
+	ZERO?	STACK \?CCL3
+	ZERO?	HOUSE-DEMOLISHED /?CCL3
+	ICALL1	I-VOGONS
+	CALL	QUEUE,I-VOGONS,2
+	PUT	STACK,0,1
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The rear garden is a pleasant place. I"
+	PRINT	NICE-DAY
+	PRINTR	", and it's a lovely day for a walk. A path leads around the house to the southeast and southwest."
+
+
+	.FUNCT	TREE-PSEUDO
+	EQUAL?	PRSA,V?CLIMB-FOO,V?CLIMB-UP \FALSE
+	PRINTR	"You were never very good at that."
+
+
+	.FUNCT	COUNTRY-LANE-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	ZERO?	PROSSER-LYING \?CCL6
+	ZERO?	HOUSE-DEMOLISHED \?CCL6
+	FSET?	HOLD,TOUCHBIT /?CCL6
+	SET	'BULLDOZER-COUNTER,3
+	CALL1	I-BULLDOZER
+	RSTACK	
+?CCL6:	EQUAL?	IDENTITY-FLAG,FORD \?CCL11
+	ZERO?	HOUSE-DEMOLISHED /?CCL11
+	CALL	QUEUE,I-DOG,1
+	PUT	STACK,0,1
+	RFALSE	
+?CCL11:	EQUAL?	DRUNK-LEVEL,3 \?CCL15
+	EQUAL?	IDENTITY-FLAG,ARTHUR \?CCL15
+	CALL	QUEUE,I-DOG,1
+	PUT	STACK,0,1
+	RFALSE	
+?CCL15:	FSET?	HOLD,TOUCHBIT \FALSE
+	FSET?	COUNTRY-LANE,NDESCBIT /FALSE
+	LOC	SATCHEL
+	PUT	FORD-TABLE,0,STACK
+	LOC	THUMB
+	PUT	FORD-TABLE,1,STACK
+	LOC	GUIDE
+	PUT	FORD-TABLE,2,STACK
+	LOC	TOWEL
+	PUT	FORD-TABLE,3,STACK
+	LOC	MINERAL-WATER
+	PUT	FORD-TABLE,5,STACK
+	FSET?	THUMB,MUNGEDBIT \?CND22
+	PUT	FORD-TABLE,4,TRUE-VALUE
+	FCLEAR	THUMB,MUNGEDBIT
+?CND22:	FSET	COUNTRY-LANE,NDESCBIT
+	ICALL	ROB,PROTAGONIST,MEMORIAL
+	MOVE	SATCHEL,PROTAGONIST
+	MOVE	THUMB,SATCHEL
+	MOVE	GUIDE,SATCHEL
+	MOVE	TOWEL,SATCHEL
+	MOVE	MINERAL-WATER,SATCHEL
+	MOVE	ARTHUR,FRONT-OF-HOUSE
+	SET	'IDENTITY-FLAG,FORD
+	MOVE	FORD,GLOBAL-OBJECTS
+	MOVE	PEANUTS,PUB
+	FSET	PEANUTS,TRYTAKEBIT
+	FSET	PEANUTS,NDESCBIT
+	SET	'PEANUTS-BOUGHT,FALSE-VALUE
+	SET	'DREAMING,TRUE-VALUE
+	CALL	QUEUE,I-VOGONS,38
+	PUT	STACK,0,1
+	PRINTI	"You are hurrying up a country lane. The sky is light and clear, but you keep glancing at it with apprehension because you know that it will shortly be torn apart by Vogon ships, and that the hills and trees around you will just burn up and blow away, and you hope there's time for a quick drink beforehand.
+
+You want to hitch a ride aboard the Vogon fleet, but are anxious because it's so long since you were through a"
+	PRINT	BEAM
+	PRINTC	46
+	CRLF	
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-END \?CCL27
+	FSET?	COUNTRY-LANE,REVISITBIT \?CCL27
+	SET	'DREAMING,TRUE-VALUE
+	CRLF	
+	PRINTI	"Suddenly, a shadow passes in front of the sun. You look up. The shadow is a "
+	PRINTD	FLEET
+	PRINTI	". You fumble for "
+	ICALL2	JIGS-UP,STR?74
+	RTRUE	
+?CCL27:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"The road runs from "
+	EQUAL?	IDENTITY-FLAG,ARTHUR \?PRG41
+	PRINTI	"your"
+	JUMP	?PRG43
+?PRG41:	PRINTI	"Arthur's"
+?PRG43:	PRINTR	" home, to the north, toward the village Pub, to the west."
+
+
+	.FUNCT	I-DOG
+	EQUAL?	HERE,WAR-CHAMBER \?CCL3
+	INC	'DOG-COUNTER
+	LESS?	DOG-COUNTER,13 \?CND4
+	EQUAL?	PRSA,V?WAIT /FALSE
+?CND4:	CRLF	
+	LESS?	DOG-COUNTER,13 \?CCL10
+	PRINTR	"The fleet continues to hurtle sunwards."
+?CCL10:	ZERO?	DOG-FED /?PRG17
+	SET	'LYING-DOWN,FALSE-VALUE
+	PRINTI	"Your simple act of kindness at a moment of great personal anxiety (you fed the dog, remember?) now brings rich rewards. "
+	PRINT	FLEET-PLUNGES
+	PRINTI	" spots the dog (which appears to them as a gigantic monster) cheerfully tucking into a "
+	PRINTD	SANDWICH
+	PRINTI	".
+
+The Vl'Hurgs and the G'Gugvunts are moved by this simple picture of happiness, compared with the furious savagery of their own lives. They think back to a day when they used to relax over an odd "
+	PRINTD	SANDWICH
+	PRINTI	" themselves, often at sunset after a hearty day working in the fields back in Vl'Hurgon and G'Gugvia, and decide to return and rebuild their homes in a new spirit of harmony and cooperation.
+
+Grateful, they offer to drop you at "
+	PRINTD	HEART-OF-GOLD
+	PRINTI	" on the way home. After a brief 900 parsec trip, you are escorted into the Transporter Chamber of the warship. The transporter glows, and your surroundings change..."
+	CRLF	
+	CRLF	
+	CALL2	GOTO,MAZE
+	RSTACK	
+?PRG17:	PRINT	FLEET-PLUNGES
+	ICALL2	JIGS-UP,STR?75
+	RTRUE	
+?CCL3:	EQUAL?	IDENTITY-FLAG,FORD \?CCL20
+	MOVE	DOG,HERE
+	CALL2	INT,I-DOG
+	PUT	STACK,0,0
+	PRINTI	"You run up the lane after Arthur. You pass a"
+	ZERO?	DOG-FED /?PRG28
+	PRINTR	" serene dog. Fate cannot harm him, he has dined today."
+?PRG28:	PRINTR	"n irritable dog who yaps at you."
+?CCL20:	IN?	DOG,HERE /?CCL31
+	IN?	FLEET,HERE /?CCL31
+	EQUAL?	HERE,COUNTRY-LANE \?CCL31
+	MOVE	DOG,HERE
+	CALL	QUEUE,I-DOG,2
+	PUT	STACK,0,1
+	PRINTI	"You see the huge "
+	PRINTD	BULLDOZER
+	PRINTI	" heaving itself among the cloud of brick dust which is all that remains of "
+	PRINTD	HOME
+	PRINTR	". As you start up the lane, a small dog runs up to you, yapping."
+?CCL31:	ZERO?	DOG-FED \FALSE
+	IN?	DOG,HERE \FALSE
+	FSET?	DOG,TOUCHBIT /FALSE
+	FSET	DOG,TOUCHBIT
+	PRINTR	"The dog carries on yapping for a moment and then gulps uncomfortably."
+
+
+	.FUNCT	DOG-F
+	EQUAL?	PRSA,V?THROW,V?GIVE \?CCL3
+	EQUAL?	PRSO,SANDWICH \?CCL6
+	EQUAL?	IDENTITY-FLAG,FORD \?CCL9
+	MOVE	SANDWICH,HERE
+	PRINTI	"The dog is in a bad mood and tries to bite "
+	PRINTD	HANDS
+	PRINTI	". The "
+	PRINTD	SANDWICH
+	PRINTR	" lies ignored in the roadside dust."
+?CCL9:	FSET?	DOG,TOUCHBIT \?CCL13
+	PRINTI	"The dog, which seems to have a slight case of indigestion, ignores the "
+	PRINTD	SANDWICH
+	PRINTR	"."
+?CCL13:	MOVE	SANDWICH,LOCAL-GLOBALS
+	SET	'DOG-FED,TRUE-VALUE
+	PRINTI	"The dog is deeply moved. With powerful sweeps of its tail it indicates that it regards this "
+	PRINTD	SANDWICH
+	PRINTI	" as one of the great "
+	PRINTD	SANDWICH
+	PRINTI	"es. Nine out of ten pet owners could happen by at this point expressing any preference they pleased, but this dog would spurn both them and all their tins. This is a dog which has met its main sandwich. It eats"
+	PRINT	WITH-PASSION
+	CRLF	
+	RTRUE	
+?CCL6:	EQUAL?	PRSO,PEANUTS \FALSE
+	PRINTR	"This is a dog, not an elephant."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL23
+	ZERO?	DOG-FED \?CCL23
+	PRINTR	"The mongrel looks hungry."
+?CCL23:	EQUAL?	PRSA,V?PUSH,V?KICK,V?RUB \FALSE
+	PRINTI	"The dog tries to bite your "
+	EQUAL?	PRSA,V?KICK \?PRG37
+	PRINTI	"foot"
+	JUMP	?PRG39
+?PRG37:	PRINTI	"hand"
+?PRG39:	PRINTR	"."
+
+
+	.FUNCT	PUB-OBJECT-F
+	EQUAL?	PRSA,V?THROUGH,V?WALK-TO \?CCL3
+	EQUAL?	HERE,PUB \?CCL6
+	PRINT	LOOK-AROUND
+	CRLF	
+	RTRUE	
+?CCL6:	EQUAL?	HERE,COUNTRY-LANE \?CCL10
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+?CCL10:	CALL1	V-WALK-AROUND
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?DISEMBARK,V?LEAVE,V?EXIT \FALSE
+	EQUAL?	HERE,PUB \?PRG16
+	CALL2	DO-WALK,P?EAST
+	RSTACK	
+?PRG16:	PRINT	LOOK-AROUND
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PUB-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	ZERO?	TOWEL-OFFERED \?CCL3
+	EQUAL?	IDENTITY-FLAG,FORD \?CCL3
+	CALL	QUEUE,I-UNEASY,-1
+	PUT	STACK,0,1
+	RFALSE	
+?CCL3:	EQUAL?	RARG,M-LOOK \?CCL8
+	PRINTR	"The Pub is pleasant and cheerful and full of pleasant and cheerful people who don't know they've got about twelve minutes to live and are therefore having a spot of lunch. Some music is playing on an old jukebox. The exit is east."
+?CCL8:	EQUAL?	RARG,M-END \FALSE
+	FSET?	BEER,NDESCBIT \FALSE
+	IN?	FORD,HERE \FALSE
+	EQUAL?	IDENTITY-FLAG,FORD /FALSE
+	FCLEAR	BEER,NDESCBIT
+	CALL	QUEUE,I-FORD,2
+	PUT	STACK,0,1
+	SET	'FORD-COUNTER,5
+	CRLF	
+	PRINTI	"Ford buys "
+	PRINTD	BEER
+	PRINTR	" and offers half to you. ""Muscle relaxant..."" he says, impenetrably."
+
+
+	.FUNCT	BAR-F
+	EQUAL?	PRSA,V?LOOK-BEHIND \FALSE
+	ICALL	PERFORM,V?EXAMINE,PUB-SHELF
+	RTRUE	
+
+
+	.FUNCT	PUB-SHELF-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	FSET	PUB-SHELF,NDESCBIT
+	PRINTI	"On the shelf behind the bar is the usual array of bottles, glasses and soggy beermats"
+	ZERO?	PEANUTS-BOUGHT \?CND6
+	FSET	PEANUTS,TAKEBIT
+	FSET	PEANUTS,TRYTAKEBIT
+	ZERO?	SANDWICH-BOUGHT /?PRG13
+	PRINTI	", and"
+	JUMP	?PRG15
+?PRG13:	PRINTC	44
+?PRG15:	PRINTI	" some packets of peanuts"
+?CND6:	ZERO?	SANDWICH-BOUGHT \?PRG21
+	FSET	SANDWICH,TAKEBIT
+	FSET	SANDWICH,TRYTAKEBIT
+	PRINTI	", and a plate of uninviting "
+	PRINTD	SANDWICH
+	PRINTI	"es"
+?PRG21:	PRINTR	"."
+
+
+	.FUNCT	MUSIC-F
+	EQUAL?	PRSA,V?ENJOY,V?LISTEN \FALSE
+	ICALL	PERFORM,V?LISTEN,JUKEBOX
+	RTRUE	
+
+
+	.FUNCT	JUKEBOX-F
+	EQUAL?	PRSA,V?LISTEN \?CCL3
+	PRINTI	"The song is "
+	RANDOM	100
+	LESS?	25,STACK /?CCL8
+	PRINTR	"a Walker Brothers single, ""The Sun Ain't Gonna Shine Anymore."""
+?CCL8:	RANDOM	100
+	LESS?	33,STACK /?CCL12
+	PRINTR	"""Get Back"" by the Beatles."
+?CCL12:	RANDOM	100
+	LESS?	50,STACK /?PRG19
+	PRINTR	"""Hey Jude"" by the Beatles (Footnote 4). It's a particular favourite, and listening to it calms you down, and cheers you up."
+?PRG19:	PRINTI	"""Tie a Yellow Ribbon."""
+	EQUAL?	IDENTITY-FLAG,FORD \?CND21
+	PRINTR	" You can't stand it, and are pleased to think that this is probably the last time it will ever be heard."
+?CND21:	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?LAMP-OFF \FALSE
+	CALL2	PRIVATE,STR?77
+	RSTACK	
+
+
+	.FUNCT	BARMAN-F
+	EQUAL?	BARMAN,WINNER \?CCL3
+	EQUAL?	PRSA,V?TELL-ABOUT \?CCL6
+	EQUAL?	PRSO,ME \?CCL6
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,BARMAN,PRSI
+	SET	'WINNER,BARMAN
+	RTRUE	
+?CCL6:	EQUAL?	PRSA,V?HELLO \?CCL10
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?HELLO,BARMAN
+	SET	'WINNER,BARMAN
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?GIVE \?PRG16
+	EQUAL?	PRSO,ME \?PRG16
+	EQUAL?	PRSI,PEANUTS,BEER,SANDWICH \?PRG16
+	ICALL	PERFORM,V?BUY,PRSI
+	RTRUE	
+?PRG16:	PRINTR	"The barman ignores you and keeps polishing the other end of the bar."
+?CCL3:	EQUAL?	PRSA,V?ASK-FOR \FALSE
+	EQUAL?	PRSI,PEANUTS,BEER,SANDWICH \FALSE
+	ICALL	PERFORM,V?BUY,PRSI
+	RTRUE	
+
+
+	.FUNCT	BEER-F
+	EQUAL?	PRSA,V?COUNT,V?ENJOY,V?DRINK /?PRD5
+	EQUAL?	PRSA,V?TAKE,V?RUB,V?SMELL \?CCL3
+?PRD5:	FSET?	BEER,NDESCBIT \?CCL3
+	PRINTR	"You'd better buy some first."
+?CCL3:	EQUAL?	PRSA,V?COUNT \?CCL11
+	PRINTR	"Lots."
+?CCL11:	EQUAL?	PRSA,V?TAKE \?CCL15
+	PRINTR	"Just drink it!"
+?CCL15:	EQUAL?	IDENTITY-FLAG,FORD \?CCL19
+	EQUAL?	PRSA,V?BUY \?CCL22
+	FSET?	BEER,NDESCBIT /?CND23
+	PRINTR	"You already did!"
+?CND23:	FCLEAR	BEER,NDESCBIT
+	IN?	ARTHUR,HERE \?PRG34
+	PRINTI	"You order six pints of bitter -- three for you, three for Arthur. According to "
+	PRINTD	GUIDE
+	PRINTI	" this should"
+	ICALL1	CUSHION
+	CRLF	
+	CRLF	
+	PRINTR	"As you drink the first pint, you mention to Arthur that you are from a different planet, but it makes little impression. This surprises you, because you thought it was the sort of thing that would interest people."
+?PRG34:	PRINTI	"You buy yourself three pints, which you calculate you will need to"
+	ICALL1	CUSHION
+	PRINTI	" This is a tip you picked up from "
+	PRINTD	GUIDE
+	PRINTR	"."
+?CCL22:	EQUAL?	PRSA,V?ENJOY,V?DRINK \FALSE
+	INC	'DRUNK-LEVEL
+	IN?	ARTHUR,HERE /?CCL42
+	PRINT	DOWN-WELL
+	CRLF	
+	RTRUE	
+?CCL42:	EQUAL?	DRUNK-LEVEL,1 \?CCL46
+	ADD	SCORE,FORD-POINT >SCORE
+	SET	'FORD-POINT,0
+	PRINT	DOWN-WELL
+	PRINTR	" At least they managed to get something right on this benighted planet. You decide it's time to tell Arthur that the world is about to end. You tell him. Arthur is completely unperturbed. Curious. You wonder what sort of news it would take to disturb him."
+?CCL46:	EQUAL?	DRUNK-LEVEL,2 \?PRG53
+	PRINT	DOWN-WELL
+	CALL1	SCENE-THROUGH-WINDOW
+	RSTACK	
+?PRG53:	PRINTR	"You've had enough."
+?CCL19:	EQUAL?	PRSA,V?ENJOY,V?DRINK \?CCL57
+	ADD	SCORE,5 >SCORE
+	INC	'DRUNK-LEVEL
+	EQUAL?	DRUNK-LEVEL,4 \?CCL60
+	PRINTI	"You can hear the muffled noise of your home being demolished, and the taste of the beer sours in your mouth."
+	CRLF	
+	CRLF	
+	ICALL	PERFORM,V?GET-DRUNK,ROOMS
+	RTRUE	
+?CCL60:	EQUAL?	DRUNK-LEVEL,3 \?CCL64
+	CALL	QUEUE,I-FORD,-1
+	PUT	STACK,0,1
+	SET	'HOUSE-DEMOLISHED,TRUE-VALUE
+	SET	'PROSSER-LYING,FALSE-VALUE
+	PRINTR	"There is a distant crash which Ford explains is nothing to worry about, probably just your house being knocked down."
+?CCL64:	EQUAL?	DRUNK-LEVEL,2 \?CCL68
+	PRINTR	"It is really very pleasant stuff, with a very good dry, nutty flavour, some light froth on top, and a deep colour. It is at exactly room temperature. You reflect that the world cannot be all bad when there are such pleasures in it.
+
+Ford mentions that the world is going to end in about twelve minutes."
+?CCL68:	EQUAL?	DRUNK-LEVEL,1 \FALSE
+	PRINTR	"It's very good beer, brewed by a small local company. You particularly like its flavour, which is why you woke up feeling so wretched this morning. You were at somebody's birthday party here in the Pub last night.
+
+You begin to relax and enjoy yourself, so when Ford mentions that he's from a small planet in the vicinity of Betelgeuse, not from Guildford as he usually claims, you take it in your stride, and say, ""Oh yes, which part?"""
+?CCL57:	EQUAL?	PRSA,V?BUY \FALSE
+	FSET?	BEER,NDESCBIT \?PRG80
+	ICALL	PERFORM,V?BUY,PEANUTS
+	RTRUE	
+?PRG80:	PRINTD	FORD
+	PRINTR	" has already bought an enormous quantity for you!"
+
+
+	.FUNCT	PEANUTS-F
+	EQUAL?	IDENTITY-FLAG,FORD \?CCL3
+	EQUAL?	PRSA,V?BUY \?CCL3
+	ZERO?	PEANUTS-BOUGHT /?CND6
+	PRINTR	"You did!"
+?CND6:	SET	'PEANUTS-BOUGHT,TRUE-VALUE
+	MOVE	PEANUTS,PROTAGONIST
+	FCLEAR	PEANUTS,TRYTAKEBIT
+	FCLEAR	PEANUTS,NDESCBIT
+	PRINTI	"You buy some peanuts, which you'll need to replace protein loss from the"
+	PRINT	BEAM
+	PRINTI	", a tip you picked up from "
+	PRINTD	GUIDE
+	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?OPEN \?CCL13
+	PRINTR	"Just eat 'em."
+?CCL13:	EQUAL?	PRSA,V?ENJOY,V?EAT \?CCL17
+	ZERO?	EARTH-DEMOLISHED /?CCL17
+	ZERO?	GROGGY /?CCL17
+	SET	'GROGGY,FALSE-VALUE
+	MOVE	PEANUTS,PUB
+	FSET	PEANUTS,TRYTAKEBIT
+	FSET	PEANUTS,NDESCBIT
+	PRINTI	"You feel stronger as the peanuts replace some of the protein you lost in the"
+	PRINT	BEAM
+	PRINTR	"."
+?CCL17:	EQUAL?	PRSA,V?BUY \?CCL24
+	EQUAL?	HERE,PUB \?CCL24
+	PRINTR	"However much you clear your throat, wave your forefinger, or wiggle your eyebrows, the barman pays no attention, but carries on wiping another part of the bar."
+?CCL24:	EQUAL?	PRSA,V?EAT,V?TAKE \FALSE
+	FSET?	PEANUTS,TRYTAKEBIT \FALSE
+	EQUAL?	HERE,PUB \FALSE
+	PRINT	HANDS-OFF
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SANDWICH-F
+	EQUAL?	PRSA,V?BUY \?CCL3
+	ZERO?	SANDWICH-BOUGHT \?CCL3
+	MOVE	SANDWICH,PROTAGONIST
+	FSET	SANDWICH,TAKEBIT
+	FCLEAR	SANDWICH,TRYTAKEBIT
+	FCLEAR	SANDWICH,NDESCBIT
+	SET	'SANDWICH-BOUGHT,TRUE-VALUE
+	PRINTI	"The barman gives you a "
+	PRINTD	SANDWICH
+	PRINTR	". The bread is like the stuff that stereos come packed in, the cheese would be great for rubbing out spelling mistakes, and margarine and pickle have performed an unedifying chemical reaction to produce something that shouldn't be, but is, turquoise. Since it is clearly unfit for human consumption you are grateful to be charged only a pound for it."
+?CCL3:	EQUAL?	PRSA,V?BUY \?CCL9
+	PRINTR	"You already did."
+?CCL9:	EQUAL?	PRSA,V?ENJOY,V?EAT,V?TAKE \?CCL13
+	FSET?	SANDWICH,TRYTAKEBIT \?CCL13
+	EQUAL?	HERE,PUB \?CCL13
+	PRINT	HANDS-OFF
+	CRLF	
+	RTRUE	
+?CCL13:	EQUAL?	PRSA,V?ENJOY,V?EAT \FALSE
+	MOVE	SANDWICH,LOCAL-GLOBALS
+	SUB	SCORE,30 >SCORE
+	EQUAL?	IDENTITY-FLAG,FORD \?PRG26
+	PRINTI	"You swallow with revulsion, astonished that life forms which have spent 4.6 billion years evolving cannot produce a better "
+	PRINTD	SANDWICH
+	PRINTR	" than this."
+?PRG26:	PRINTR	"It is one of the least rewarding taste experiences you can recall."
+
+
+	.FUNCT	I-VOGONS
+	CALL	QUEUE,I-VOGONS,-1
+	PUT	STACK,0,1
+	INC	'VOGON-COUNTER
+	EQUAL?	VOGON-COUNTER,1 \?CCL3
+	EQUAL?	HERE,PUB \?CND4
+	ICALL1	GO-TO-LANE
+?CND4:	MOVE	FLEET,HERE
+	CRLF	
+	EQUAL?	IDENTITY-FLAG,FORD \?PRG11
+	MOVE	ARTHUR,HERE
+	PRINTI	"Right on schedule (according to the news you picked up last night on your Sub-Etha Sens-O-Matic), a huge "
+	PRINTD	FLEET
+	PRINTR	" hurtles noisily through the sky. Time is very, very short. Storms break in the wake of the ships, the wind whips at you and makes it difficult to stand. You grab hold of a tree."
+?PRG11:	PRINTI	"With a noise like a cross between Led Zeppelin's farewell concert and the eruption of Krakatoa, a huge "
+	PRINTD	FLEET
+	PRINTI	" flies overhead and announces that the Earth will be demolished to make way for a new hyperspace bypass in ""two of your Earth minutes."""
+	CRLF	
+	IN?	FORD,HERE \?CND13
+	ZERO?	FORD-COUNTER \?CND13
+	MOVE	FORD,LOCAL-GLOBALS
+	CALL2	INT,I-FORD
+	PUT	STACK,0,0
+	SET	'FORD-GONE,TRUE-VALUE
+	MOVE	TOWEL,HERE
+	FCLEAR	TOWEL,TRYTAKEBIT
+	CRLF	
+	PRINTI	"Ford drops the towel and dashes away."
+	CRLF	
+?CND13:	CALL2	HELD?,THING
+	ZERO?	STACK /FALSE
+	MOVE	THING,LOCAL-GLOBALS
+	CRLF	
+	PRINTI	"In all the turmoil, "
+	IN?	THING,GOWN \?PRG29
+	PRINTI	"the "
+	PRINTD	THING
+	PRINTI	" drops out of your pocket and rolls away."
+	JUMP	?PRG31
+?PRG29:	PRINTI	"you drop the "
+	PRINTD	THING
+	PRINTI	" and it rolls away."
+?PRG31:	PRINTI	" It is the least of your worries. Anyway,"
+	PRINT	GET-RID
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	VOGON-COUNTER,2 \?CCL34
+	CRLF	
+	PRINTI	"The vast yellow ships thunder across the sky, spreading waves of terror and panic in their wake. The voice of the "
+	PRINTD	VOGON-CAPTAIN
+	PRINTI	" slams across the country, insisting that the planning charts and demolition orders have been available at the local planning office in Alpha Centauri for fifty years and it's too late to start making a fuss about it now."
+	CRLF	
+	ZERO?	FORD-GONE \TRUE
+	CRLF	
+	EQUAL?	IDENTITY-FLAG,FORD \?CCL41
+	CALL	HELD?,THUMB,PROTAGONIST
+	ZERO?	STACK /?PRG54
+	IN?	THUMB,PROTAGONIST \?PRG50
+	PRINTI	"The "
+	PRINTD	THUMB
+	PRINTI	" in "
+	PRINTD	HANDS
+	PRINTI	" begins to whine."
+	JUMP	?PRG52
+?PRG50:	PRINTI	"You remove the "
+	PRINTD	THUMB
+	PRINTI	" from your satchel."
+?PRG52:	PRINTI	" Lights pulsate across its surface. "
+	PRINT	THUMB-FUMBLE
+	MOVE	THUMB,HERE
+	SET	'P-IT-OBJECT,THUMB
+	JUMP	?PRG56
+?PRG54:	PRINTI	"You wish you were holding your "
+	PRINTD	THUMB
+	PRINTC	46
+?PRG56:	PRINTR	" Arthur is struggling desperately towards you. The end of this planet is now only seconds away."
+?CCL41:	MOVE	THUMB,HERE
+	SET	'P-IT-OBJECT,THUMB
+	PRINTR	"Throughout the noise, Ford is shouting at you. He removes a small black device from his satchel, but accidentally drops it at your feet."
+?CCL34:	EQUAL?	VOGON-COUNTER,3 \?CCL61
+	CRLF	
+	PRINTI	"Fierce gales whip across the land, and thunder bangs continuously through the air in the wake of the giant ships. "
+	EQUAL?	IDENTITY-FLAG,ARTHUR \?CCL66
+	ZERO?	FORD-GONE \?CCL66
+	PRINTI	"Ford fights to reach you, but the wind is too fierce. Further announcements from the "
+	PRINTD	VOGON-CAPTAIN
+	PRINTR	" make it clear that demolition will begin in just a few seconds.
+
+Through the blinding rain, you see lights flickering on the small device."
+?CCL66:	EQUAL?	IDENTITY-FLAG,FORD \?CCL72
+	IN?	THUMB,HERE \?CCL72
+	ZERO?	FLUFF-TO-GOWN /?PRG77
+	FSET	COUNTRY-LANE,REVISITBIT
+?PRG77:	PRINT	DRIVEN-BACK
+	PRINTI	" Fortunately, at this point, Arthur picks up the Thumb, and somehow manages to push the right button"
+	FSET?	THUMB,MUNGEDBIT \?PRG88
+	PRINTI	". Unfortunately, the"
+	PRINT	THUMB-CLICKS
+	SET	'VOGON-COUNTER,4
+	PRINTC	32
+	ICALL1	I-VOGONS
+	RTRUE	
+?PRG88:	PRINTC	46
+	CRLF	
+	CRLF	
+	ICALL2	JIGS-UP,STR?79
+	RTRUE	
+?CCL72:	CRLF	
+	RTRUE	
+?CCL61:	EQUAL?	VOGON-COUNTER,5 \FALSE
+	PRINTI	"The Earth is destroyed by the "
+	PRINTD	FLEET
+	ZERO?	FLUFF-TO-GOWN /?CND94
+	FSET	COUNTRY-LANE,REVISITBIT
+?CND94:	ICALL2	JIGS-UP,STR?36
+	RTRUE	
+
+
+	.FUNCT	GO-TO-LANE
+	SET	'LYING-DOWN,FALSE-VALUE
+	CRLF	
+	PRINTI	"You hear sounds of panic from the street. You "
+	EQUAL?	IDENTITY-FLAG,FORD \?CCL5
+	IN?	ARTHUR,HERE /?CCL5
+	PRINTI	"leave the Pub and run into Arthur..."
+	CRLF	
+	CRLF	
+	JUMP	?CND3
+?CCL5:	EQUAL?	IDENTITY-FLAG,FORD \?PRG15
+	PRINTI	"and Arthur"
+	JUMP	?PRG17
+?PRG15:	PRINTI	"and Ford"
+?PRG17:	PRINTI	" rush outside..."
+	CRLF	
+	CRLF	
+?CND3:	ICALL2	GOTO,COUNTRY-LANE
+	EQUAL?	IDENTITY-FLAG,FORD \?CCL21
+	MOVE	ARTHUR,COUNTRY-LANE
+	RTRUE	
+?CCL21:	MOVE	FORD,COUNTRY-LANE
+	RTRUE	
+
+
+	.FUNCT	FLEET-F
+	EQUAL?	PRSA,V?ENJOY \?CCL3
+	PRINT	ZEN
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?THROUGH,V?WALK-TO \?CCL7
+	SET	'AWAITING-REPLY,11
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTR	"From here?"
+?CCL7:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	EQUAL?	HERE,HOLD,AIRLOCK,CAPTAINS-QUARTERS /FALSE
+	PRINTR	"The fleet consists of terrifying numbers of huge, ugly, yellow ships, all scarred with the results of many such past demolition jobs. Chicago's John Hancock tower, knocked about a bit and painted yellow, is what they each look like. That is, knocked about a bit, painted yellow, and flying."
+
+
+	.FUNCT	LEAVE-EARTH
+	CALL2	INT,I-HOUSEWRECK
+	PUT	STACK,0,0
+	CALL2	INT,I-BULLDOZER
+	PUT	STACK,0,0
+	CALL2	INT,I-PROSSER
+	PUT	STACK,0,0
+	CALL2	INT,I-FORD
+	PUT	STACK,0,0
+	CALL2	INT,I-VOGONS
+	PUT	STACK,0,0
+	SET	'HEADACHE,FALSE-VALUE
+	SET	'BULLDOZER-COUNTER,0
+	SET	'PROSSER-COUNTER,0
+	SET	'PROSSER-LYING,FALSE-VALUE
+	SET	'FORD-COUNTER,0
+	SET	'DRUNK-LEVEL,0
+	SET	'HOUSE-DEMOLISHED,FALSE-VALUE
+	SET	'VOGON-COUNTER,0
+	SET	'EARTH-DEMOLISHED,TRUE-VALUE
+	SET	'IDENTITY-FLAG,ARTHUR
+	MOVE	ARTHUR,GLOBAL-OBJECTS
+	MOVE	DOG,LOCAL-GLOBALS
+	MOVE	FLEET,LOCAL-GLOBALS
+	MOVE	FORD,LOCAL-GLOBALS
+	CALL2	HELD?,SANDWICH
+	ZERO?	STACK \?CND1
+	ZERO?	SANDWICH-BOUGHT /?CND1
+	MOVE	SANDWICH,LOCAL-GLOBALS
+?CND1:	FSET	BEER,NDESCBIT
+	FCLEAR	PROSSER,TOUCHBIT
+	FCLEAR	FRONT-OF-HOUSE,NDESCBIT
+	FCLEAR	FRONT-OF-HOUSE,TOUCHBIT
+	FCLEAR	COUNTRY-LANE,TOUCHBIT
+	RTRUE	
+
+
+	.FUNCT	ARTHUR-F
+	EQUAL?	IDENTITY-FLAG,ARTHUR \?CCL3
+	EQUAL?	ARTHUR,PRSO \?CCL6
+	ICALL	PERFORM,PRSA,ME,PRSI
+	RTRUE	
+?CCL6:	ICALL	PERFORM,PRSA,PRSO,ME
+	RTRUE	
+?CCL3:	EQUAL?	ARTHUR,WINNER \?CCL8
+	IN?	FLEET,HERE \?CCL11
+	PRINT	ABOVE-NOISE
+	CRLF	
+	JUMP	?CND9
+?CCL11:	EQUAL?	PRSA,V?FOLLOW \?CCL15
+	EQUAL?	HERE,FRONT-OF-HOUSE \?CCL15
+	EQUAL?	PRSO,ME \?CCL15
+	ZERO?	PROSSER-LYING /?CCL21
+	PRINTI	"Arthur seems willing to do so."
+	CRLF	
+	JUMP	?CND9
+?CCL21:	ICALL2	BUT-THAT-MAN,STR?81
+	CRLF	
+	JUMP	?CND9
+?CCL15:	EQUAL?	PRSA,V?DRINK \?PRG33
+	EQUAL?	PRSO,BEER \?PRG33
+	FSET?	BEER,NDESCBIT \?PRG31
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?DRINK,BEER
+	SET	'WINNER,ARTHUR
+	RTRUE	
+?PRG31:	PRINTI	"Arthur seems to be waiting to follow your lead."
+	CRLF	
+	JUMP	?CND9
+?PRG33:	PRINTI	"Arthur looks too confused to respond."
+	CRLF	
+?CND9:	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL8:	EQUAL?	PRSA,V?ASK-FOR,V?TELL,V?HELLO /?PRD38
+	EQUAL?	PRSA,V?TELL-ABOUT,V?ASK-ABOUT \?CCL36
+?PRD38:	EQUAL?	IDENTITY-FLAG,TRILLIAN \?CCL36
+	EQUAL?	PRSO,ARTHUR \?CCL36
+	ZERO?	FLUFF-REMOVED /?PRG45
+	FSET	ARTHUR,RLANDBIT
+	ICALL1	I-ARTHUR
+	JUMP	?CND42
+?PRG45:	PRINTI	"You approach Arthur. He seems to find your tone a little cool, smiles unhappily, and wanders to the other end of the room."
+	CRLF	
+?CND42:	CALL	QUEUE,I-ARTHUR,2
+	PUT	STACK,0,1
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL36:	EQUAL?	PRSA,V?ASK-FOR,V?ASK-ABOUT,V?TELL-ABOUT \?CCL48
+	EQUAL?	PRSO,ARTHUR \?CCL48
+	EQUAL?	IDENTITY-FLAG,TRILLIAN \?CCL48
+	ICALL	PERFORM,V?HELLO,ARTHUR
+	RTRUE	
+?CCL48:	EQUAL?	PRSA,V?CARVE \?CCL53
+	EQUAL?	PRSI,MEMORIAL \?CCL53
+	ICALL	PERFORM,V?CARVE,YOUR-NAME,MEMORIAL
+	RTRUE	
+?CCL53:	EQUAL?	PRSA,V?GIVE \?CCL57
+	EQUAL?	PRSO,TOWEL \?CCL57
+	EQUAL?	HERE,FRONT-OF-HOUSE \?CCL57
+	ZERO?	TOWEL-OFFERED \?CCL57
+	SET	'TOWEL-OFFERED,TRUE-VALUE
+	PRINTI	"Inexplicably, Arthur takes no notice of the towel which, magnificently, you are trying to return to him. Instead, he says, ""Ford, what about my home?""
+
+You start guiltily. Does he actually KNOW that the Earth is about to be destroyed? You start to ask him, then stop. If he knows, what the Zark is he doing lying here in the mud in front of...
+
+You look around. You notice the "
+	PRINTD	BULLDOZER
+	PRINTI	" properly for the first time. You notice Arthur's house. You notice the workmen. The penny drops. His HOUSE is about to be demolished. You feel like a complete...what's the word?"
+	CALL1	IDIOT?
+	ZERO?	STACK /?PRG69
+	PRINTI	"Thank you. An idiot is exactly what you feel like."
+	JUMP	?PRG71
+?PRG69:	PRINTI	"No, actually, ""idiot"" was the word I was looking for."
+?PRG71:	CRLF	
+	CRLF	
+	PRINTI	"In a reckless moment you go completely mad and decide that you ought to take Arthur with you. You try to tell Arthur about the importance of getting a drink, but he's rambling on about a man called Prosser."
+	CRLF	
+	RETURN	2
+?CCL57:	EQUAL?	PRSO,SANDWICH \?CCL76
+	EQUAL?	PRSA,V?GIVE \?CCL76
+	MOVE	SANDWICH,ARTHUR
+	PRINTR	"Arthur takes it, sniffs it suspiciously, and wisely decides that it's safer in his pocket than in his stomach."
+?CCL76:	EQUAL?	PRSA,V?GIVE \?CCL82
+	EQUAL?	PRSO,SATCHEL-FLUFF \?CCL82
+	ZERO?	HOUSE-DEMOLISHED /?PRG90
+	MOVE	SATCHEL-FLUFF,LOCAL-GLOBALS
+	SET	'FLUFF-TO-GOWN,TRUE-VALUE
+	PRINTR	"Arthur hiccups, takes the fluff, and sticks it in his pocket."
+?PRG90:	PRINTR	"Arthur blinks several times, but doesn't take the fluff. Perhaps if he had a few drinks in him..."
+?CCL82:	EQUAL?	PRSA,V?EXAMINE \?CCL93
+	EQUAL?	IDENTITY-FLAG,TRILLIAN \?CCL93
+	PRINTI	"Arthur seems nice and well meaning, but also terribly shy."
+	ZERO?	FLUFF-REMOVED \?CND98
+	MOVE	JACKET-FLUFF,HERE
+	CALL	QUEUE,I-ARTHUR,-1
+	PUT	STACK,0,1
+	PRINTI	" He has tried to start a "
+	PRINTD	CONVERSATION
+	PRINTR	" with you several times, but still hasn't gotten past ""Hello."" He has an enormous, unsightly ball of fluff on his jacket."
+?CND98:	CRLF	
+	RTRUE	
+?CCL93:	EQUAL?	PRSA,V?FOLLOW \?CCL103
+	EQUAL?	FOLLOW-FLAG,4 \?CCL103
+	CALL2	DO-WALK,P?EAST
+	RSTACK	
+?CCL103:	EQUAL?	PRSA,V?PICK-UP \?CCL107
+	EQUAL?	IDENTITY-FLAG,TRILLIAN \?CCL107
+	ICALL	PERFORM,V?PICK-UP,ZAPHOD
+	RTRUE	
+?CCL107:	EQUAL?	PRSA,V?LISTEN \FALSE
+	EQUAL?	IDENTITY-FLAG,TRILLIAN \FALSE
+	ZERO?	FLUFF-REMOVED /FALSE
+	PRINTR	"Unfortunately, you seem to have no choice."
+
+
+	.FUNCT	IDIOT?
+	CRLF	
+	CRLF	
+	PRINTC	62
+	PUTB	P-INBUF,1,0
+	READ	P-INBUF,P-LEXV
+	GET	P-LEXV,1
+	EQUAL?	STACK,W?IDIOT /TRUE
+	RFALSE	
+
+
+	.FUNCT	I-UNEASY
+	INC	'UNEASY-COUNTER
+	EQUAL?	HERE,PUB /?CND1
+	CALL2	INT,I-UNEASY
+	PUT	STACK,0,0
+	RFALSE	
+?CND1:	CRLF	
+	EQUAL?	UNEASY-COUNTER,1 \?CCL5
+	PRINTR	"You feel uneasy about something."
+?CCL5:	EQUAL?	UNEASY-COUNTER,2,3,4 \?PRG12
+	PRINTR	"You still feel uneasy."
+?PRG12:	PRINTI	"The sense of uneasiness you've been so busy ignoring now utterly engulfs you, as you realise that you've broken the fundamental rule of time travel: ""Do as you would have done by."" The rational foundation of the Universe crashes and within a few seconds the whole of creation ceases ever to have exis"
+	CRLF	
+	CRLF	
+	CRLF	
+	QUIT	
+	RTRUE	
+
+
+	.FUNCT	I-ARTHUR
+	CALL	QUEUE,I-ARTHUR,-1
+	PUT	STACK,0,1
+	EQUAL?	IDENTITY-FLAG,TRILLIAN \?CCL3
+	ZERO?	FLUFF-REMOVED /?CCL6
+	FSET?	ARTHUR,RLANDBIT /?CND7
+	CRLF	
+?CND7:	FCLEAR	ARTHUR,RLANDBIT
+	IN?	ARTHUR,HERE /?PRG14
+	MOVE	ARTHUR,HERE
+	PRINTR	"Arthur follows you like an eager puppy."
+?PRG14:	PRINTI	"Arthur tries, unsuccessfully, to interest you by talking about "
+	CALL2	PICK-ONE,BORES
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?CCL6:	RANDOM	100
+	LESS?	20,STACK /FALSE
+	MOVE	ARTHUR,HERE
+	MOVE	JACKET-FLUFF,HERE
+	CRLF	
+	PRINTR	"Arthur walks up and says, ""Hello, again."" He looks shy, embarrassed and stuck for anything else to say, and quickly walks to the other end of the room."
+?CCL3:	IN?	ARTHUR,HERE /FALSE
+	MOVE	ARTHUR,HERE
+	PRINTR	"Arthur follows you."
+
+
+	.FUNCT	SCENE-THROUGH-WINDOW
+	MOVE	ARTHUR,FRONT-OF-HOUSE
+	CALL2	INT,I-ARTHUR
+	PUT	STACK,0,0
+	SET	'HOUSE-DEMOLISHED,TRUE-VALUE
+	SET	'PROSSER-LYING,FALSE-VALUE
+	SET	'FOLLOW-FLAG,4
+	CALL	QUEUE,I-FOLLOW,2
+	PUT	STACK,0,1
+	PRINTI	" You hear a muffled crash. It's probably Arthur's little house getting knocked down, which you tell him. This DOES upset him, and he tears out the door.
+
+Through the window, you see him running up the lane. A small dog chases after him, yapping, "
+	ZERO?	DOG-FED \?CTR4
+	IN?	SANDWICH,ARTHUR \?PRG10
+?CTR4:	SET	'DOG-FED,TRUE-VALUE
+	PRINTI	"and he throws it a "
+	PRINTD	SANDWICH
+	PRINTI	". The dog devours the sandwich"
+	PRINT	WITH-PASSION
+	CRLF	
+	RTRUE	
+?PRG10:	PRINTR	"but he ignores it. The dog gulps uncomfortably."
+
+	.ENDI
diff --git a/earth.zil b/earth.zil
new file mode 100644
index 0000000..dd9ac38
--- /dev/null
+++ b/earth.zil
@@ -0,0 +1,2491 @@
+"EARTH for
+		  THE HITCHHIKER'S GUIDE TO THE GALAXY
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved."
+
+<OBJECT HOME
+	(LOC LOCAL-GLOBALS)
+	(DESC "your home")
+	(SYNONYM HOME)
+	(ADJECTIVE MY YOUR)
+	(FLAGS NARTICLEBIT)
+	(ACTION HOME-F)>
+
+<ROUTINE HOME-F ()
+	 <COND (<AND ,HOUSE-DEMOLISHED
+		     <VERB? ENJOY>>
+		<TELL
+,ZEN " You can't enjoy a " D ,RUBBLE " properly till it's at least a hundred
+years old. Also, you are haunted by the tragic vision of your favourite teapot
+lying shattered among the dust.|
+There is also the matter of all your clothes." CR>)
+	       (<VERB? THROUGH WALK-TO BOARD>
+		<COND (<EQUAL? ,HERE ,FRONT-OF-HOUSE ,FRONT-PORCH>
+		       <DO-WALK ,P?NORTH>)
+		      (<EQUAL? ,HERE ,BEDROOM>
+		       <TELL ,LOOK-AROUND CR>)
+		      (T
+		       <V-WALK-AROUND>)>)
+	       (<VERB? LEAVE EXIT DISEMBARK>
+		<COND (<EQUAL? ,HERE ,FRONT-PORCH>
+		       <DO-WALK ,P?SOUTH>)
+		      (<EQUAL? ,HERE ,BEDROOM>
+		       <V-WALK-AROUND>)
+		      (T
+		       <TELL ,LOOK-AROUND CR>)>)
+	       (<AND <VERB? LIE-DOWN>
+		     <EQUAL? ,HERE ,FRONT-OF-HOUSE>
+		     ,IN-FRONT-FLAG>
+		<PERFORM ,V?LIE-DOWN ,GROUND>
+		<RTRUE>)
+	       (<AND <VERB? EXAMINE>
+		     ,HOUSE-DEMOLISHED>
+		<TELL "It is now a " D ,RUBBLE "." CR>)
+	       (<EQUAL? ,IDENTITY-FLAG ,FORD> ;"since DESC is YOUR HOME"
+		<UNIMPORTANT-THING-F>)>>
+
+<OBJECT HOUSE
+	(LOC LOCAL-GLOBALS)
+	(DESC "it")
+	(SYNONYM HOUSE)
+	(ADJECTIVE MY YOUR)
+	(FLAGS NARTICLEBIT)
+	(ACTION HOUSE-F)>
+
+<ROUTINE HOUSE-F ()
+	 <COND (<PRSO? ,HOUSE>
+		<PERFORM ,PRSA ,HOME ,PRSI>
+		<RTRUE>)
+	       (T
+		<PERFORM ,PRSA ,PRSO ,HOME>
+		<RTRUE>)>>
+
+<OBJECT RUBBLE
+	(LOC LOCAL-GLOBALS)
+	(DESC "pile of rubble")
+	(SYNONYM PILE RUBBLE DEBRIS)
+	(FLAGS NDESCBIT)
+	(ACTION HOME-F)>
+
+<ROUTINE I-HOUSEWRECK ()
+	 <COND (<EQUAL? ,HERE ,BEDROOM ,FRONT-PORCH>
+		<TELL CR
+"Astoundingly, a " D ,BULLDOZER " pokes through your wall. However, you have
+no time for surprise because the ceiling is collapsing on you as">
+		<BETTER-LUCK>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE BETTER-LUCK ()
+	 <TELL
+" your home is unexpectedly demolished to make way for a new bypass. You are
+seriously injured in the process, but on your way to the hospital">
+	 <MAKE-WAY-FOR>
+	 <CRLF>
+	 <COND (<NOT <FSET? ,BEDROOM ,ONBIT>>
+		<TELL "Next time, try turning on the light." CR>)
+	       (<AND <NOT <FSET? ,GOWN ,OPENBIT>>
+		     ,HEADACHE> 
+		<TELL
+"Too bad you never found an aspirin for your hangover." CR>)
+	       (T
+		<TELL "Better luck next life." CR>)>
+	 <FINISH>>
+
+<GLOBAL HOUSE-DEMOLISHED <>>
+
+<GLOBAL HEADACHE T>
+
+<GLOBAL SLEEVE-TIED <>>
+
+<OBJECT HANGOVER
+	(LOC GLOBAL-OBJECTS)
+	(DESC "splitting headache")
+	(SYNONYM HEADACHE HANGOVER THROBBER)
+	(ADJECTIVE SPLITTING BIG BLINDING)
+	(ACTION HANGOVER-F)>
+
+<ROUTINE HANGOVER-F ()
+	 <COND (<AND <VERB? ASK-ABOUT>
+		     <PRSI? ,HANGOVER>>
+		<RFALSE>)
+	       (<AND <NOT ,HEADACHE>
+		     <NOT <EQUAL? ,IDENTITY-FLAG ,ZAPHOD>>>
+		<TELL "You can't feel any">
+		<COND (<EQUAL? ,HANGOVER ,PRSO>
+		       <PRSO-PRINT>)
+		      (T
+		       <PRSI-PRINT>)>
+		<TELL " here." CR>)
+	       (<VERB? EXAMINE>
+		<V-DIAGNOSE>)
+	       (<VERB? GIVE THROW DROP>
+		<V-COUNT>)>>
+
+<ROOM BEDROOM
+      (LOC ROOMS)
+      (SYNONYM TRAVEL)
+      (ADJECTIVE TIME)
+      (DESC "Bedroom")
+      (SOUTH PER BEDROOM-EXIT-F)
+      (OUT PER BEDROOM-EXIT-F)
+      (DOWN PER BEDROOM-EXIT-F)
+      (FLAGS RLANDBIT)
+      (GLOBAL HOUSE HOME GLOBAL-BED BULLDOZER WINDOW STAIRS
+       	      BEDROOM-DOOR THIRD-PLANET WATER)
+      (ACTION BEDROOM-F)>
+
+<OBJECT BEDROOM-PSEUDO
+      (LOC BEDROOM)
+      (SYNONYM BEDROOM)
+      (ADJECTIVE SMALL)
+      (DESC "bedroom")
+      (FLAGS NDESCBIT)
+      (ACTION GLOBAL-ROOM-F)>
+
+<ROUTINE BEDROOM-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The bedroom is a mess.|
+It is a small bedroom with a faded carpet and old wallpaper. There is a
+washbasin, a chair">
+		<COND (<FSET? ,GOWN ,NDESCBIT>
+		       <TELL " with a tatty dressing gown slung over it">)>
+		<TELL
+", and a window with the curtains drawn. Near the exit leading south is a
+phone." CR>)>>
+
+<ROUTINE BEDROOM-EXIT-F ()
+	 <COND (<NOT <FSET? ,BEDROOM-DOOR ,OPENBIT>>
+		<TELL "The door is closed." CR>
+		<SETG P-IT-OBJECT ,BEDROOM-DOOR>
+		<RFALSE>)
+	       (,HEADACHE
+		<TELL
+"You miss the doorway by a good eighteen inches. The wall jostles you
+rather rudely." CR>
+		<RFALSE>)
+	       (<FSET? ,BULLDOZER ,INVISIBLE>
+		<TELL "You make your way down to the front porch." CR CR>)
+	       (T
+		<TELL "You rush down the stairs in panic." CR CR>)>
+	 <FCLEAR ,LIGHT ,LIGHTBIT>
+	 ,FRONT-PORCH>
+
+<OBJECT PHONE
+	(LOC BEDROOM)
+	(DESC "telephone")
+	(SYNONYM PHONE TELEPHONE RECEIVER)
+	(FLAGS NDESCBIT TAKEBIT TRYTAKEBIT)
+	(ACTION PHONE-F)>
+
+<ROUTINE PHONE-F ()
+	 <COND (<VERB? TAKE>
+		<COND (<FSET? ,PHONE ,TOUCHBIT>
+		       <PERFORM ,V?CALL ,DAIS>
+		       <RTRUE>)
+		      (T
+		       <FSET ,PHONE ,TOUCHBIT>
+		       <TELL "You pick up the receiver." ,DIALING-TONE>
+		       <COND (<FSET? ,TOOTHBRUSH ,TOUCHBIT>
+		              <TWO-TREES>)>
+		       <CRLF>)>)
+	       (<VERB? REPLY>
+		<TELL "It isn't ringing." CR>)>>
+
+<OBJECT BEDROOM-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "door")
+	(SYNONYM DOOR)
+	(FLAGS DOORBIT OPENBIT NDESCBIT)>
+
+<OBJECT GLOBAL-BED
+	(LOC LOCAL-GLOBALS)
+	(DESC "bed")
+	(SYNONYM BED)
+	(FLAGS VEHBIT)
+	(ACTION GLOBAL-BED-F)>
+
+<ROUTINE GLOBAL-BED-F ()
+	 <COND (<EQUAL? ,GLOBAL-BED ,PRSO>
+		<PERFORM ,PRSA ,BED ,PRSI>
+		<RTRUE>)
+	       (T
+		<PERFORM ,PRSA ,PRSO ,BED>
+		<RTRUE>)>>
+
+<OBJECT BED
+	(LOC BEDROOM)
+	(DESC "bed")
+	(SYNONYM BED)
+	(FLAGS VEHBIT CONTBIT SURFACEBIT SEARCHBIT OPENBIT NDESCBIT)
+	(ACTION BED-F)>
+
+<ROUTINE BED-F ("OPTIONAL" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-BEG>
+		<COND (<AND <VERB? TAKE>
+		            <FSET? ,PRSO ,TAKEBIT>
+			    <NOT <IN? ,PRSO ,BED>>
+			    <NOT <HELD? ,PRSO>>>
+		       <TELL "You can't reach it from the bed.">
+		       <COND (,HEADACHE
+			      <TELL " The effort almost kills you.">)>
+		       <CRLF>)
+		      (<AND <VERB? OPEN LOOK-INSIDE>
+			    <PRSO? ,CURTAINS>>
+		       <PERFORM ,V?TAKE ,PHONE>
+		       <SETG P-IT-OBJECT ,CURTAINS>
+		       <RTRUE>)
+		      (<AND <VERB? OPEN CLOSE>
+			    <PRSO? ,BEDROOM-DOOR>>
+		       <PERFORM ,V?TAKE ,PHONE>
+		       <SETG P-IT-OBJECT ,BEDROOM-DOOR>
+		       <RTRUE>)
+		      (<VERB? WALK>
+		       <OUT-OF-FIRST ,BED>)>)
+	       (.RARG
+		<RFALSE>)
+	       (<AND <VERB? DISEMBARK>
+		     ,HEADACHE
+		     <EQUAL? <LOC ,PROTAGONIST> ,BED>>
+		<MOVE ,PROTAGONIST ,HERE>
+		<SETG OHERE <>>
+		<SETG LYING-DOWN <>>
+		<TELL
+"Very difficult, but you manage it. The room is still spinning.
+It dips and sways a little." CR>)
+	       (<VERB? LOOK-UNDER>
+		<MOVE ,STUFF-UNDER-BED ,HERE>
+		<TELL
+"There's nothing there. Well, there are a few soiled handkerchiefs, a book you
+thought you'd lost, a couple of foreign coins, and something else which can't
+be fully described in a family game, but nothing you'd actually want." CR>)
+	       (<AND <VERB? OPEN CLOSE>
+		     <PRSO? ,BED>>
+		<TELL-ME-HOW>)>>
+
+<OBJECT STUFF-UNDER-BED
+	(LOC LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
+	(DESC "it")
+	(SYNONYM BOOK COIN HANDKERCH COINS)
+	(ADJECTIVE SOILED FOREIGN)
+	(FLAGS NDESCBIT NARTICLEBIT)
+	(ACTION UNIMPORTANT-THING-F)>
+
+<OBJECT CURTAINS
+	(LOC BEDROOM)
+	(DESC "your curtains")
+	(SYNONYM CURTAIN CURTAINS SHADE SHADES)
+	(ADJECTIVE YOUR)
+	(FLAGS NDESCBIT NARTICLEBIT)
+	(ACTION CURTAINS-F)>
+
+<ROUTINE CURTAINS-F ()
+	 <COND (<VERB? OPEN LOOK-INSIDE>
+		<FCLEAR ,BULLDOZER ,INVISIBLE>
+		<TELL
+"As you part " D ,CURTAINS " you see that i" ,NICE-DAY ", and a large yellow "
+D ,BULLDOZER " is advancing on " D ,HOME "." CR>)>>
+
+<OBJECT GOWN
+	(LOC BEDROOM)
+	(DESC "your gown")
+	(LDESC "Your gown is here.")
+	(SYNONYM GOWN POCKET ROBE LOOP)
+	(ADJECTIVE MY YOUR DRESSING TATTY FADED BATTERED)
+        (FLAGS
+	 WEARBIT TRYTAKEBIT TAKEBIT CONTBIT NDESCBIT NARTICLEBIT SEARCHBIT)
+	(SIZE 15)
+	(CAPACITY 14)
+	(ACTION GOWN-F)>
+
+<ROUTINE GOWN-F ()
+	 <COND (<AND <VERB? OPEN CLOSE>
+		     <NOT <FSET? ,GOWN ,WORNBIT>>>
+		<TELL
+"It's hard to open or close the pocket unless you're wearing the gown." CR>)
+	       (<VERB? EXAMINE>
+		<TELL "The dressing gown is faded and battered, and is
+clearly a garment which has seen better decades. It has a pocket which is ">
+		<COND (<FSET? ,GOWN ,OPENBIT>
+		       <TELL "open">)
+		      (T
+		       <TELL "closed">)>
+		<COND (,GOWN-HUNG
+		       <TELL ". It is hanging from a " D ,HOOK ".">)
+		      (T
+		       <TELL ", and a small loop at the back of the collar.">)>
+		<COND (,SLEEVE-TIED
+		       <TELL " The sleeves are tied closed.">)>
+		<CRLF>)
+	       (<AND <VERB? TAKE>
+		     <EQUAL? ,GOWN ,PRSO>
+		     ,HEADACHE>
+		<FCLEAR ,GOWN ,TRYTAKEBIT>
+		<FCLEAR ,GOWN ,NDESCBIT>
+		<MOVE ,GOWN ,PROTAGONIST>
+		<TELL
+"Luckily, this is large enough for you to get hold of. You notice something
+in the pocket." CR>)
+	       (<AND <VERB? WEAR>
+		     ,SLEEVE-TIED>
+		<TELL "You'll have to untie the sleeve first." CR>)
+	       (<VERB? TIE UNTIE>
+		<PERFORM ,PRSA ,SLEEVES>
+		<RTRUE>)>>
+
+<OBJECT SLEEVES
+	(LOC GLOBAL-OBJECTS)
+	(DESC "sleeve")
+	(SYNONYM SLEEVE SLEEVES)
+	(ACTION SLEEVES-F)>
+
+<ROUTINE SLEEVES-F ()
+	 <COND (<NOT <VISIBLE? ,GOWN>>
+		<CANT-SEE ,SLEEVES>)
+	       (<VERB? WEAR TAKE>
+		<PERFORM ,PRSA ,GOWN>
+		<RTRUE>)
+	       (<VERB? TIE CLOSE>
+		<SETG PRSO ,GOWN>
+		<COND (<IDROP>
+		       <RTRUE>)
+		      (,SLEEVE-TIED
+		       <TELL "It is." CR>)
+		      (T
+		       <SETG SLEEVE-TIED T>
+		       <TELL "The sleeves are now tied closed." CR>)>)
+	       (<VERB? UNTIE OPEN>
+		<COND (,SLEEVE-TIED
+		       <SETG SLEEVE-TIED <>>
+		       <TELL "Untied." CR>)
+		      (T
+		       <TELL "It isn't tied!" CR>)>)>>
+
+<ROUTINE TWO-TREES ()
+	 <SETG AWAITING-REPLY 9>
+	 <ENABLE <QUEUE I-REPLY 2>>
+	 <TELL
+" Shouldn't you be taking more interest in events in the world around you?
+While you've got it...?">>
+
+<OBJECT THING
+	(LOC GOWN)
+	(DESC "thing your aunt gave you which you don't know what it is")
+	(SYNONYM THING GIFT)
+	(ADJECTIVE AUNT\'S)
+	(FLAGS TAKEBIT CONTBIT SEARCHBIT OPENBIT)
+	(SIZE 6)
+	(CAPACITY 200)
+	(ACTION THING-F)>
+
+<ROUTINE THING-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"Apart from a label on the bottom saying \"Made in Ibiza\" it furnishes you
+with no clue as to its purpose, if indeed it has one. You are surprised to see
+it because you thought you'd thrown it away. Like most gifts from your aunt,"
+,GET-RID CR>)
+	       (<AND <VERB? DROP>
+		     <NOT <EQUAL? ,HERE ,MAZE ,ACCESS-SPACE>>>
+		<MOVE ,THING ,HERE>
+		<TELL
+"It falls to the ground with a light \"thunk.\" It doesn't do anything
+else at all." CR>)
+	       (<VERB? CLOSE>
+		<TELL
+"Come to think of it, you vaguely remember an instruction booklet with
+directions for that. You never read it and lost it months ago." CR>)>>
+
+<ROUTINE I-THING ()
+	 <ENABLE <QUEUE I-THING <+ 4 <RANDOM 4>>>>
+	 <COND (<OR <NOT <EQUAL? ,IDENTITY-FLAG ,ARTHUR>>
+		    <AND <EQUAL? ,HERE ,ENGINE-ROOM>
+			 <L? ,LOOK-COUNTER 3>>
+		    <EQUAL? ,HERE ,DARK ,ACCESS-SPACE ,MAZE>
+		    <VISIBLE? ,THING>
+		    <HELD? ,THING ,PROTAGONIST>
+		    <IN? ,FLEET ,HERE>>
+		<RFALSE>)>
+	 <FCLEAR ,THING ,NDESCBIT>
+	 <FCLEAR ,THING ,INVISIBLE>
+	 <COND (<PROB 40>
+		<MOVE ,THING ,HERE>)
+	       (<AND <FSET? ,GOWN ,WORNBIT>
+		     <FSET? ,GOWN ,OPENBIT>
+		     <PROB 65>>
+		<MOVE ,THING ,GOWN>)
+	       (T
+		<MOVE ,THING ,PROTAGONIST>)>
+	 <RFALSE>>
+
+<OBJECT POCKET-FLUFF
+	(LOC GOWN)
+	(DESC "pocket fluff")
+	(SYNONYM FLUFF LINT)
+	(ADJECTIVE POCKET)
+	(FLAGS TAKEBIT NARTICLEBIT)
+	(SIZE 1)
+	(GENERIC POCKET-FLUFF)>
+
+<OBJECT TABLET
+	(LOC GOWN)
+	(DESC "buffered analgesic")
+	(SYNONYM ANALGESIC TABLET ASPIRIN PILL)
+	(ADJECTIVE LARGE BUFFERED)
+	(FLAGS TAKEBIT EATBIT)
+        (SIZE 2)
+	(ACTION TABLET-F)>
+
+<ROUTINE TABLET-F ()
+	 <COND (<VERB? EAT TAKE DRINK> ;"SWALLOW is synonym of DRINK"
+		<MOVE ,TABLET ,LOCAL-GLOBALS>
+		<FCLEAR ,SCREWDRIVER ,TRYTAKEBIT>
+		<FCLEAR ,TOOTHBRUSH ,TRYTAKEBIT>
+		<SETG HEADACHE <>>
+		<SETG SCORE <+ ,SCORE 10>>
+		<TELL
+"You swallow the tablet. After a few seconds the room begins to calm
+down and behave in an orderly manner. Your terrible headache goes." CR>)>>
+
+<OBJECT SINK
+	(LOC BEDROOM)
+	(DESC "it")
+	(SYNONYM BASIN WASHBASIN SINK)
+	(ADJECTIVE WASH)
+	(FLAGS NDESCBIT NARTICLEBIT)
+	(ACTION UNIMPORTANT-THING-F)>
+
+<OBJECT BEDROOM-FURNISHINGS
+	(LOC BEDROOM)
+	(DESC "it")
+	(SYNONYM CARPET WALLPAPER PAPER CHAIR)
+	(ADJECTIVE WALL FADED OLD)
+	(FLAGS NDESCBIT NARTICLEBIT)
+	(ACTION UNIMPORTANT-THING-F)>
+
+<ROOM FRONT-PORCH
+      (LOC ROOMS)
+      (SYNONYM BEAM BEAMS)
+      (ADJECTIVE MATTER TRANSFERE)
+      (DESC "Front Porch")
+      (LDESC
+"This is the enclosed front porch of your home. Your front garden lies to
+the south, and you can reenter your home to the north.")
+      (UP TO BEDROOM)
+      (NORTH TO BEDROOM)
+      (SOUTH PER CLOTHES-EXIT-F)
+      (OUT PER CLOTHES-EXIT-F)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL HOUSE HOME STAIRS THIRD-PLANET BEDROOM-DOOR)>
+
+<OBJECT DOORMAT
+      (LOC FRONT-PORCH)
+      (SYNONYM DOORMAT MAT)
+      (ADJECTIVE DOOR)
+      (DESC "doormat")
+      (FLAGS NDESCBIT)
+      (ACTION UNIMPORTANT-THING-F)>
+ 
+<ROUTINE CLOTHES-EXIT-F ()
+	 <COND (<FSET? ,GOWN ,WORNBIT>
+		,FRONT-OF-HOUSE)
+	       (T
+		<SETG AWAITING-REPLY 10>
+		<ENABLE <QUEUE I-REPLY 2>>
+		<TELL ,ARRESTED CR>
+		<RFALSE>)>>
+
+<OBJECT MAIL
+	(LOC FRONT-PORCH)
+	(DESC "loose pile of junk mail")
+	(FDESC "On the doormat is a pile of junk mail.")
+	(SYNONYM ORDER MAIL PILE LETTER LETTERS)
+	(ADJECTIVE DEMOLISHI JUNK MY OFFICIAL LOOSE)
+	(FLAGS TAKEBIT READBIT TRYTAKEBIT)
+	(SIZE 4)
+	(TEXT
+"There are many pieces of mail. Most are from some computer company called
+Infocom which wants you to buy their games. Hidden underneath is an official
+letter from the local council, dated some two years ago and inexplicably not
+delivered till now, explaining that a demolition order has been served on your
+home. The date of demolition is today's date.")
+	(ACTION MAIL-F)>
+
+<ROUTINE MAIL-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <NOT <FSET? ,MAIL ,TOUCHBIT>>>
+		<FSET ,MAIL ,TOUCHBIT>
+		<FCLEAR ,MAIL ,TRYTAKEBIT>
+		<MOVE ,MAIL ,PROTAGONIST>
+		<TELL "You gather up the pile of mail." CR>)
+	       (<VERB? OPEN>
+		<PERFORM ,V?READ ,MAIL>
+		<RTRUE>)>>
+
+<ROOM FRONT-OF-HOUSE
+      (LOC ROOMS)
+      (SYNONYM WOONBEAM)
+      (ADJECTIVE GALAXIA)
+      (DESC "Front of House")
+      (NORTH PER HOUSE-ENTER-F)
+      (SOUTH TO COUNTRY-LANE)
+      (NE TO BACK-OF-HOUSE)
+      (NW TO BACK-OF-HOUSE)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL HOUSE HOME BULLDOZER CONVERSATION THIRD-PLANET RUBBLE TREE)
+      (ACTION FRONT-OF-HOUSE-F)>
+
+<OBJECT TREE
+      (LOC LOCAL-GLOBALS)
+      (SYNONYM TREE TREES)
+      (DESC "tree")
+      (ACTION TREE-PSEUDO)>
+
+<ROUTINE HOUSE-ENTER-F ()
+	 <COND (,HOUSE-DEMOLISHED
+		<TELL "You can't enter a " D ,RUBBLE "." CR>
+		<RFALSE>)
+	       (<EQUAL? ,IDENTITY-FLAG ,FORD>
+		<COND (<NOT <VERB? THROUGH>>
+		       <TELL "Enter the house? ">)>
+		<PRIVATE "Arthur">
+		<RFALSE>)
+	       (<NOT ,PROSSER-LYING>
+		<TELL "The " D ,BULLDOZER>
+		<JIGS-UP
+", which you may have noticed outside, just pushed your home down
+on top of you.">
+		<RFALSE>)
+	       (T
+		<ENABLE <QUEUE I-HOUSEWRECK 5>>
+		,FRONT-PORCH)>>
+
+<ROUTINE FRONT-OF-HOUSE-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<FCLEAR ,BULLDOZER ,INVISIBLE>
+		<COND (<IN? ,DOG ,COUNTRY-LANE>
+		       <COND (<NOT ,DOG-FED>
+			      <I-DOG>)>
+	               <ENABLE <QUEUE I-VOGONS 3>>
+		       <TELL "You reach the site of what was ">
+		       <COND (<EQUAL? ,IDENTITY-FLAG ,FORD>
+			      <TELL "Arthur's">)
+			     (T
+			      <TELL "your">)>
+		       <TELL
+" home. It is now a " D ,RUBBLE ". " D ,PROSSER " looks sheepishly
+triumphant, a trick few people can do, as it requires a lot of
+technically complex deltoid muscle work." CR CR>)
+		      (<AND <NOT <EQUAL? ,IDENTITY-FLAG ,FORD>>
+			    <NOT ,PROSSER-LYING>>
+		       <ENABLE <QUEUE I-BULLDOZER -1>>
+		       <RFALSE>)>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<COND (<AND <EQUAL? ,IDENTITY-FLAG ,FORD>
+			    <NOT <FSET? ,FRONT-OF-HOUSE ,NDESCBIT>>>
+		       <FSET ,BEER ,NDESCBIT>
+		       <SETG DRUNK-LEVEL 0>
+		       <FSET ,ARTHUR ,NDESCBIT>
+		       <FSET ,FRONT-OF-HOUSE ,NDESCBIT>
+		       <TELL
+"Before you is the house of your friend, " D ,ARTHUR ", who is lying in front
+of a " D ,BULLDOZER "; you have no idea why. You have no idea about most things
+about Arthur, even why you regard him as a friend, but you do, and must
+therefore return his towel before you leave.">)
+		      (T
+		       <COND (,HOUSE-DEMOLISHED
+			      <TELL "There is a huge " D ,RUBBLE>)
+			     (<EQUAL? ,IDENTITY-FLAG ,FORD>
+			      <TELL "Arthur's house is">)
+			     (T
+			      <TELL "You can enter your home">)>
+		       <TELL
+" to the north. A path leads around it to the northeast and northwest,
+and a country lane is visible to the south.">)>
+		<COND (<AND <NOT <FSET? ,FRONT-OF-HOUSE ,NDESCBIT>>
+			    <EQUAL? ,IDENTITY-FLAG ,ARTHUR>>
+		       <FSET ,FRONT-OF-HOUSE ,NDESCBIT>
+		       <TELL
+" All that lies between your home and the huge yellow " D ,BULLDOZER " bearing
+down on it is a few yards of mud.">)>
+	        <CRLF>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <EQUAL? ,IDENTITY-FLAG ,FORD>
+		     <FSET? ,ARTHUR ,NDESCBIT>>
+		<FCLEAR ,ARTHUR ,NDESCBIT>
+		<RFALSE>)>>
+
+<OBJECT ROSES
+	(LOC FRONT-OF-HOUSE)
+	(DESC "it")
+	(SYNONYM ROSE ROSES ROSEBED BED)
+	(ADJECTIVE ROSE)
+	(FLAGS NDESCBIT NARTICLEBIT)
+	(ACTION UNIMPORTANT-THING-F)>
+
+<GLOBAL BULLDOZER-COUNTER 0>
+
+<ROUTINE I-BULLDOZER ()
+	 <COND (<OR ,LYING-DOWN
+		    ,HOUSE-DEMOLISHED>
+		<DISABLE <INT I-BULLDOZER>>
+		<RFALSE>)>
+	 <FSET ,PROSSER ,TOUCHBIT>
+	 <SETG BULLDOZER-COUNTER <+ ,BULLDOZER-COUNTER 1>>
+	 <COND (<G? ,BULLDOZER-COUNTER 4>
+	        <DISABLE <INT I-BULLDOZER>>
+		<TELL ,BULLDOZER-PILES CR>
+		<BRICK-DEATH>)
+	       (<EQUAL? ,HERE ,FRONT-OF-HOUSE>
+		<TELL CR
+"The " D ,BULLDOZER " rumbles slowly toward your home." CR>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE BRICK-DEATH ()
+	 <TELL CR
+"Your home collapses in a cloud of dust, and a stray flying brick hits you
+squarely on the back of the head. You try to think of some suitable last words,
+but what with the confusion of the moment and the spinning of your head, you
+are unable to compose anything pithy and expire in silence.">
+	 <REPEAT ()
+		 <CRLF> <CRLF>
+	         <PRINTI ">">
+		 <PUTB ,P-INBUF 1 0>
+	         <READ ,P-INBUF ,P-LEXV>
+	         <SETG DEAD-COUNTER <+ ,DEAD-COUNTER 1>>
+	         <COND (<EQUAL? ,DEAD-COUNTER 1 2>
+			<TELL "You keep out of this, you're dead">
+			<COND (<EQUAL? ,DEAD-COUNTER 1>
+			       <TELL ". An ambulance arrives.">)
+			      (T
+			       <TELL
+" and should be concentrating on developing a good firm rigor mortis. You
+are put in the ambulance, which drives away.">)>)
+	              (<EQUAL? ,DEAD-COUNTER 3>
+		       <TELL
+"For a dead person you are talking too much.
+As the ambulance reaches the mortuary">
+		       <MAKE-WAY-FOR>
+		       <FINISH>)>>>
+
+<GLOBAL DEAD-COUNTER 0>
+
+<OBJECT BULLDOZER-DRIVER
+	(LOC FRONT-OF-HOUSE)
+	(DESC "bulldozer driver")
+	(SYNONYM DRIVER)
+	(ADJECTIVE BULLDOZER DOZER)
+	(FLAGS NDESCBIT ACTORBIT)
+	(ACTION BULLDOZER-DRIVER-F)>
+
+<ROUTINE BULLDOZER-DRIVER-F ()
+	 <COND (<VERB? TELL HELLO>
+		<TELL "The " D ,BULLDOZER-DRIVER
+", perusing a booklet of union rules, ignores you." CR>
+		<FUCKING-CLEAR>)>>
+
+<OBJECT BULLDOZER
+	(LOC LOCAL-GLOBALS)
+	(DESC "bulldozer")
+	(SYNONYM BULLDOZER DOZER)
+	(ADJECTIVE LARGE YELLOW BULL HUGE)
+	(FLAGS NDESCBIT INVISIBLE)
+	(ACTION BULLDOZER-F)>
+
+<ROUTINE BULLDOZER-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"It's one of those really big " D ,BULLDOZER "s that can actually crush other "
+D ,BULLDOZER "s, let alone houses." CR>)
+	       (<AND <NOT <EQUAL? ,HERE ,FRONT-OF-HOUSE>>
+		     <VERB? RUB PUSH MOVE TAKE KICK BLOCK WALK-AROUND>>
+		<TELL "The " D ,BULLDOZER " isn't here." CR>)
+	       (<VERB? LIE-DOWN>
+		<PERFORM ,V?BLOCK ,BULLDOZER>
+		<RTRUE>)
+	       (<AND <VERB? BLOCK>
+		     <EQUAL? ,IDENTITY-FLAG ,ARTHUR>>
+		<COND (,HOUSE-DEMOLISHED
+		       <TELL "Too late now." CR>)
+		      (,LYING-DOWN
+		       <PERFORM ,V?LIE-DOWN ,GROUND>
+		       <RTRUE>)
+		      (,PROSSER-LYING
+		       <TELL "Prosser's doing that for you." CR>)
+		      (T
+		       <SETG LYING-DOWN T>
+		       <SETG OHERE <>>
+		       <ENABLE <QUEUE I-PROSSER 2>>
+		       <TELL
+"You lie down in the path of the advancing " D ,BULLDOZER ". Prosser yells
+at you to for crissake move!!!" CR>)>)
+	       (<VERB? WALK-AROUND>
+		<COND (<EQUAL? ,IDENTITY-FLAG ,ARTHUR>
+		       <V-DIG>)
+		      (<NOT ,TOWEL-OFFERED>
+		       <TELL
+"Didn't you come here for a purpose? Something about a towel?" CR>)
+		      (,GONE-AROUND
+		       <TELL "You already did. It's not a merry-go-round." CR>)
+		      (T
+		       <SETG GONE-AROUND T>
+		       <TELL
+"You walk around the " D ,BULLDOZER ". Prosser is standing here, looking cross
+and frustrated. Realising that you are a friend of Arthur's he starts to talk
+at you. He says that this sort of protest is all very well, but what Mr. Dent
+must realise is that he's had plenty of time to make a formal protest at the
+proper time and place, and that spending months going through the appropriate
+official channels, filling in the appropriate official forms, and going to the
+appropriate official public hearings is the right way of going about it, and
+lying around whimsically in the mud is not. He says that he personally hates
+mud and despises the sort of people who lie in it." CR>)>)
+	       (<AND <VERB? LISTEN>
+		     <RUNNING? ,I-PROSSER>>
+		<TELL "\"Rumble...rumble...\"" CR>)>>
+
+<GLOBAL PROSSER-COUNTER 0>
+
+<GLOBAL PROSSER-LYING <>>
+
+<GLOBAL GONE-AROUND <>>
+
+<ROUTINE I-PROSSER ()
+	 <COND (<NOT ,LYING-DOWN>
+		<DISABLE <INT I-PROSSER>>
+		<I-BULLDOZER>
+		<RTRUE>)>
+	 <ENABLE <QUEUE I-PROSSER -1>>
+	 <SETG PROSSER-COUNTER <+ ,PROSSER-COUNTER 1>>
+	 <CRLF>
+	 <COND (<EQUAL? ,PROSSER-COUNTER 1>
+		<TELL
+"The " D ,BULLDOZER " thunders toward you. The ground is shaking beneath you
+as you lie in the mud." CR>)
+	       (<EQUAL? ,PROSSER-COUNTER 2>
+		<TELL
+"The noise of the giant " D ,BULLDOZER " is now so violently loud that you
+can't even hear Prosser yelling to warn you that you will be killed if you
+don't get the hell out of the way. You just see him gesticulating wildly." CR>)
+	       (<EQUAL? ,PROSSER-COUNTER 3>
+		<DISABLE <INT I-PROSSER>>
+		<ENABLE <QUEUE I-FORD -1>>
+		<MOVE ,FORD ,HERE>
+		<SETG P-IT-OBJECT ,TOWEL>
+		<TELL
+"With a terrible grinding of gears the " D ,BULLDOZER" comes to an abrupt halt
+just in front of you. It shakes, shudders, and emits noxious substances all
+over your rose bed. Prosser is incoherent with rage.|
+|
+Moments later, your friend " D ,FORD " arrives. He hardly seems to notice
+your predicament, but keeps glancing nervously at the sky. He says, \"Hello,
+Arthur,\" takes a towel from his battered leather satchel, and offers it to
+you." CR>)>>
+
+<OBJECT PROSSER
+	(LOC FRONT-OF-HOUSE)
+	(DESC "Mr. Prosser")
+	(DESCFCN PROSSER-DESCFCN)
+	(SYNONYM PROSSER FOREMAN CREW)
+	(ADJECTIVE WRECKING MR MISTER)
+	(FLAGS NARTICLEBIT ACTORBIT CONTBIT OPENBIT)
+	(ACTION PROSSER-F)>
+
+<ROUTINE PROSSER-DESCFCN ("OPTIONAL" X)
+	 <COND (<AND <EQUAL? ,IDENTITY-FLAG ,FORD>
+		     <NOT <FSET? ,PROSSER ,TOUCHBIT>>>
+		<FSET ,PROSSER ,TOUCHBIT>
+		<TELL 
+"Nearby stands an impatient man. There seems to be a bit of an atmosphere.">)
+	       (T
+		<TELL D ,PROSSER ", from the local council, is ">
+	 	<COND (,PROSSER-LYING
+		       <TELL "lying in front">)
+		      (,GONE-AROUND
+		       <TELL "standing at the side">)
+		      (T
+		       <TELL ,ON-OTHER-SIDE>)>
+		<TELL
+" of the " D ,BULLDOZER ". He seems to be wearing a " D ,DIGITAL-WATCH ".">
+	        <COND (<NOT <FSET? ,PROSSER ,TOUCHBIT>>
+		       <FSET ,PROSSER ,TOUCHBIT>
+		       <TELL
+" He looks startled to see you emerge, and yells at you to get out of
+the way.">)>)>
+	 <CRLF>>
+
+<ROUTINE PROSSER-F ()
+	 <COND (<EQUAL? ,PROSSER ,WINNER>
+		<COND (<IN? ,FLEET ,HERE>
+		       <TELL
+"Prosser is too preoccupied with recent events to give your remarks much
+consideration. He is running off and saying a number of things about his
+mother in a high voice." CR>
+		       <FUCKING-CLEAR>)
+		      (<AND <VERB? TELL-ABOUT>
+			    <PRSO? ,ME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,PROSSER ,PRSI>
+		       <SETG WINNER ,PROSSER>
+		       <RTRUE>)
+		      (<VERB? HELLO>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?HELLO ,PROSSER>
+		       <SETG WINNER ,PROSSER>
+		       <RTRUE>)
+		      (<AND <VERB? WHAT>
+			    <PRSO? ,OBJECT-OF-GAME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,PROSSER ,OBJECT-OF-GAME>
+		       <SETG WINNER ,PROSSER>
+		       <RTRUE>)
+		      (<OR <AND <VERB? WHAT>
+			        <PRSO? ,TIME>>
+			   <AND <VERB? TELL-TIME>
+				<PRSO? ,ME>
+				<PRSI? ,TIME>>
+			   <AND <VERB? WHAT-TIME>
+				<PRSO? ,TIME>>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-FOR ,PROSSER ,TIME>
+		       <SETG WINNER ,PROSSER>
+		       <RTRUE>)
+		      (<AND <VERB? WHAT>
+			    <PRSO? ,OBJECT-OF-GAME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,PROSSER ,PRSO>
+		       <SETG WINNER ,PROSSER>
+		       <RTRUE>)
+		      (<EQUAL? ,IDENTITY-FLAG ,FORD>
+		       <COND (<OR <AND <VERB? LIE-DOWN>
+				       <PRSO? ,BULLDOZER>
+				       ,IN-FRONT-FLAG>
+			          <AND <VERB? LIE-DOWN>
+				       <PRSO? ,GROUND ,ROOMS>
+				       <NOT ,HOUSE-DEMOLISHED>>
+				  <AND <VERB? REPLACE>
+				       <PRSO? ,ARTHUR>
+				       <NOT ,HOUSE-DEMOLISHED>>>
+			      <COND (,PROSSER-LYING
+				     <TELL "He's already lying there!" CR>
+				     <RTRUE>)>
+			      <SETG PROSSER-LYING T>
+			      <ENABLE <QUEUE I-ARTHUR -1>>
+			      <TELL
+"Prosser blinks in astonishment. \"You mean, go and lie in the mud in his
+place...?\" You explain that Arthur will only move if someone else takes over
+for him. Prosser shakes his head in such a manner as to suggest that he is very
+weary of the world, and you tactfully forebear from mentioning that it won't be
+troubling him much longer. Reluctantly, he follows you back toward Arthur.|
+|
+You rapidly conclude the business. Prosser lies in the mud. Arthur, bewildered,
+nevertheless stands up and appears ready to follow you to the Pub." CR>)
+			     (T
+			      <STAND-ASIDE>
+			      <FUCKING-CLEAR>)>)
+			    (<AND <VERB? WHAT-ABOUT>
+				  <PRSO? ,HOUSE ,HOME>
+				  ,HOUSE-DEMOLISHED>
+			     <TELL
+"Prosser explains the local planning regulations and says, by way of
+reassurance, that you will probably be rehoused within a couple of years." CR>)
+			    (<AND <VERB? BLOCK>
+				  <PRSO? ,BULLDOZER>
+				  <RUNNING? ,I-BULLDOZER>>
+			     <V-PROTEST>)
+			    (T
+			     <STAND-ASIDE>
+			     <FUCKING-CLEAR>)>)
+	       (<AND <NOT ,GONE-AROUND>
+		     <EQUAL? ,IDENTITY-FLAG ,FORD>
+		     <VERB? TELL HELLO ASK-FOR ASK-ABOUT TELL-ABOUT>
+		     <PRSO? ,PROSSER>
+		     <NOT <IN? ,FLEET ,HERE>>>
+		<TELL "Prosser can't hear you from here." CR>
+		<FUCKING-CLEAR>)
+	       (<VERB? GIVE SHOW>
+		<COND (<PRSO? ,THING>
+		       <TELL
+"He is much impressed and says, \"You must have the same aunt I have.\"" CR>)
+		      (<PRSO? ,TOWEL>
+		       <SETG TOWEL-MUDDY T>
+		       <TELL
+"Prosser thanks you, wipes the mud off his boots, and hands it back." CR>)
+		      (<PRSO? ,GUIDE>
+		       <TELL
+"Prosser takes a quick look at " D ,GUIDE ", says he doesn't read that kind of
+rubbish, and hands it back." CR>)
+		      (<PRSO? ,SATCHEL>
+		       <TELL
+"Prosser says he wouldn't be seen dead with that kind of thing slung over his
+shoulder." CR>)>)
+	       (<AND <VERB? WALK-TO>
+		     <EQUAL? ,HERE ,FRONT-OF-HOUSE>>
+		<COND (<AND <EQUAL? ,IDENTITY-FLAG ,FORD>
+			    <NOT ,GONE-AROUND>>
+		       <PERFORM ,V?WALK-AROUND ,BULLDOZER>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"You're already as close as any reasonable person would want to get." CR>)>)
+	       (<AND <VERB? KILL KICK>
+		     ,LYING-DOWN>
+		<TELL ,WHILE-LYING CR>)
+	       (<AND <VERB? KILL>
+		     <PRSO? ,PROSSER>
+		     ,HOUSE-DEMOLISHED>
+		<TELL
+"You muck up all his fancy facial work. This is the last moment of
+satisfaction you will experience for some time." CR>)
+	       (<AND <VERB? KILL KICK>
+		     <PRSO? ,PROSSER>>
+		<TELL
+"He dodges, insisting that this is incorrect procedure." CR>)
+	       (<AND <VERB? THROW>
+		     <PRSI? ,PROSSER>>
+		<MOVE ,PRSO ,HERE>
+		<PERFORM ,V?KILL ,PROSSER>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<PROSSER-DESCFCN>)
+	       (<AND <VERB? LISTEN>
+		     <NOT <FSET? ,CONVERSATION ,INVISIBLE>>>
+		<PERFORM ,V?LISTEN ,CONVERSATION>
+		<RTRUE>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSI? ,OBJECT-OF-GAME>>
+		<TELL
+"Prosser pulls a booklet out of his back pocket. \"My game manual says that the
+goal is getting this here house knocked down.\"" CR>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSI? ,DIGITAL-WATCH>>
+		<PERFORM ,V?ASK-FOR ,PROSSER ,TIME>
+		<RTRUE>)
+	       (<AND <VERB? ASK-FOR>
+		     <PRSI? ,TIME>>
+		<TELL
+"Prosser shakes the " D ,DIGITAL-WATCH ". \"Hasn't worked for months. I keep
+wearing it only because I think " D ,DIGITAL-WATCH "es are neat.\"" CR>)>>
+
+<ROUTINE STAND-ASIDE ()
+	 <COND (,PROSSER-LYING
+		<TELL "\"Leave me alone,\" Prosser whimpers miserably." CR>
+		<RTRUE>)>
+	 <TELL "\"Please step aside as I need to be able to ">
+	 <COND (,HOUSE-DEMOLISHED
+		<TELL "clear this " D ,RUBBLE " away.\"" CR>)
+	       (T
+		<TELL "knock ">
+		<COND (<EQUAL? ,IDENTITY-FLAG ,ARTHUR>
+		       <TELL "your">)
+		      (T
+		       <TELL "that">)>
+		<TELL " house down.\"" CR>)>>
+
+<OBJECT DIGITAL-WATCH
+	(LOC PROSSER)
+	(DESC "digital watch")
+	(SYNONYM WATCH WATCHES)
+	(ADJECTIVE DIGITAL)
+	(FLAGS NDESCBIT TRYTAKEBIT)
+	(ACTION DIGITAL-WATCH-F)>
+
+<ROUTINE DIGITAL-WATCH-F ()
+	 <COND (<VERB? TAKE READ>
+		<PRIVATE "Prosser">)>>
+
+<OBJECT TIME
+	(LOC GLOBAL-OBJECTS)
+	(DESC "time")
+	(SYNONYM TIME)>
+
+<OBJECT FORD
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "Ford Prefect")
+	(DESCFCN FORD-DESCFCN)
+	(SYNONYM FORD PREFECT)
+	(ADJECTIVE FORD)
+	(FLAGS ACTORBIT CONTBIT SEARCHBIT OPENBIT NARTICLEBIT)
+	(ACTION FORD-F)>
+
+<ROUTINE FORD-DESCFCN ("OPTIONAL" X)
+	 <COND (,FORD-SLEEPING
+		<TELL "Ford is in the corner, snoring loudly." CR>)
+	       (T
+		<TELL D ,FORD " is here." CR>)>>
+
+<ROUTINE FORD-F ()
+	 <COND (<EQUAL? ,IDENTITY-FLAG ,FORD>
+		<COND (<EQUAL? ,FORD ,PRSO>
+		       <PERFORM ,PRSA ,ME ,PRSI>
+		       <RTRUE>)
+		      (T
+		       <PERFORM ,PRSA ,PRSO ,ME>
+		       <RTRUE>)>)
+	       (<EQUAL? ,FORD ,WINNER>
+		<COND (<IN? ,FLEET ,HERE>
+		       <TELL ,ABOVE-NOISE CR>
+		       <FUCKING-CLEAR>)
+		      (<OR <PRSI? ,HOUSE>
+			   <PRSO? ,HOUSE>>
+		       <TELL
+"\"It's not a house, it's a home.\" (Footnote 2)" CR>
+		       <FUCKING-CLEAR>)
+		      (<AND <VERB? TELL-ABOUT>
+			    <PRSO? ,ME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,FORD ,PRSI>
+		       <SETG WINNER ,FORD>
+		       <RTRUE>)
+		      (<VERB? HELLO>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?HELLO ,FORD>
+		       <SETG WINNER ,FORD>
+		       <RTRUE>)
+		      (<AND <VERB? WHAT>
+			    <PRSO? ,OBJECT-OF-GAME>>
+		       <TELL ,ASK-ABOUT-OBJECT CR>)
+		      (<AND <VERB? WHAT-ABOUT>
+			    <L? ,FORD-COUNTER 2>
+			    <EQUAL? ,HERE ,FRONT-OF-HOUSE>
+			    <PRSO? ,HOME>>
+		       <TELL "Ford">
+		       <FORD-DECIDES>)
+		      (<AND <VERB? WHAT-ABOUT>
+			    <PRSO? ,HOME ,THIRD-PLANET>
+			    ,EARTH-DEMOLISHED>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,FORD ,THIRD-PLANET>
+		       <SETG WINNER ,FORD>
+		       <RTRUE>)
+		      (<NOT ,EARTH-DEMOLISHED>
+		       <COND (<AND <L? ,DRUNK-LEVEL 3>
+				   <EQUAL? ,HERE ,PUB>>
+			      <TELL
+"\"Shut up and drink your beer. You're going to need it.\"" CR>)
+			     (T
+			      <TELL "Ford, busy ">
+			      <COND (<EQUAL? ,FORD-COUNTER 2>
+				     <TELL "talking to Prosser">)
+				    (T
+				     <TELL "scanning the sky ">)>
+			      <COND (<EQUAL? ,HERE ,PUB>
+				     <TELL "through the window">)
+				    (<NOT <EQUAL? ,FORD-COUNTER 2>>
+				     <TELL "for something">)>
+			      <TELL ", ignores you." CR>)>
+		       <ENABLE <QUEUE I-FORD 2>>)
+		      (T
+		       <TELL "Ford seems deep in thought." CR>
+		       <FUCKING-CLEAR>)>)
+	       (<AND <VERB? TELL TELL-ABOUT HELLO ASK-FOR ASK-ABOUT>
+		     <PRSO? ,FORD>
+		     ,FORD-SLEEPING>
+		<TELL "Ford is sleeping!" CR>
+		<FUCKING-CLEAR>)
+	       (<AND <VERB? GIVE>
+		     <PRSI? ,FORD>
+		     ,FORD-SLEEPING>
+		<PERFORM ,V?HELLO ,FORD>
+		<RTRUE>)
+	       (<AND <EQUAL? ,FOLLOW-FLAG 1>
+		     <NOT <IN? ,FORD ,HERE>>
+		     <VERB? FOLLOW>>
+		<TELL
+"In a state of anxiety and confusion you follow Ford down the lane..." CR CR>
+		<GOTO <LOC ,FORD>>)
+	       (<AND <EQUAL? ,FOLLOW-FLAG 3>
+		     <VERB? FOLLOW>>
+		<DO-WALK ,P?WEST>)
+	       (<AND <VERB? FOLLOW>
+		     <EQUAL? ,FOLLOW-FLAG 5>>
+		<DO-WALK ,P?SOUTH>)
+	       (<AND <VERB? ALARM SHAKE>
+		     ,FORD-SLEEPING>
+		<TELL "Rather like trying to wake the dead." CR>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSI? ,OBJECT-OF-GAME>>
+		<TELL ,ASK-ABOUT-OBJECT CR>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSI? ,THIRD-PLANET>>
+		<TELL
+"Ford explains that the Earth has been demolished. To cheer you up, he points
+out that there are an awful lot of little planets like that around, and the
+Earth wasn't even a particularly nice one." CR>)
+	       (<AND <VERB? GIVE>
+		     <PRSO? ,THUMB>
+		     <IN? ,FLEET ,HERE>>
+		<TELL "You can't reach him in this wind." CR>)
+	       (<VERB? LISTEN>
+		<COND (<NOT <FSET? ,CONVERSATION ,INVISIBLE>>
+		       <PERFORM ,V?LISTEN ,CONVERSATION>
+		       <RTRUE>)
+		      (,FORD-SLEEPING
+		       <TELL "\"Zzzzzzz...\"" CR>)>)
+	       (<AND <VERB? EXAMINE>
+		     ,FORD-SLEEPING>
+		<TELL "He's sleeping." CR>)
+	       (<AND <VERB? ASK-FOR>
+		     <PRSI? ,TOWEL>
+		     <EQUAL? ,FORD-COUNTER 0 1>>
+		<PERFORM ,V?TAKE ,TOWEL>
+		<RTRUE>)>>
+
+<ROUTINE FORD-DECIDES ()
+	 <FCLEAR ,CONVERSATION ,INVISIBLE>
+	 <ENABLE <QUEUE I-FORD 2>>
+	 <SETG FORD-COUNTER 2>
+	 <TELL
+" looks startled, then guilty. He starts to say something and stops.
+He starts to say something else and stops. Suddenly, he seems to see the "
+D ,BULLDOZER " for the first time, stops starting to say things and starts.|
+|
+He seems to come to a momentous decision, says he has something of
+Earth-shattering importance to tell you, and stresses the importance
+of a quick drink at the Horse 'n Groom.||">
+	 <BUT-THAT-MAN "you exclaim">
+	 <TELL
+" Ford goes off for a quiet word with Prosser. From where you're lying,
+you cannot hear what's happening, although they seem deeply engrossed in "
+D ,CONVERSATION "." CR>>
+
+<GLOBAL FORD-COUNTER 0>
+
+<GLOBAL FORD-SLEEPING <>>
+
+<GLOBAL GUARDS-COUNTER 0>
+
+<GLOBAL HEART-COUNTER 0>
+
+<ROUTINE I-FORD ()
+	 <ENABLE <QUEUE I-FORD -1>>
+	 <COND (<IN-HEART? ,PROTAGONIST>
+		<SETG HEART-COUNTER <+ ,HEART-COUNTER 1>>
+		<COND (<EQUAL? ,HEART-COUNTER 1>
+		       <MOVE ,FORD ,HERE>
+		       <TELL CR
+"\"This looks like that incredible new" ,IID " spaceship, " D ,HEART-OF-GOLD
+"!\" says Ford, with growing excitement." CR CR ,ANNOUNCEMENT D ,EDDIE ". We
+have just picked up two hitchhikers">
+		       <FACTOR "21,914">
+		       <TELL "\"" CR>)
+		      (<EQUAL? ,HEART-COUNTER 2>
+		       <TELL CR
+"\"Come on, let's look for the Bridge.\" You follow Ford, and eventually
+come to the..." CR CR>
+		       <GOTO ,BRIDGE>
+		       <MOVE ,FORD ,HERE>)
+		      (<EQUAL? ,HEART-COUNTER 3>
+		       <COND (<NOT <EQUAL? ,HERE ,BRIDGE>>
+				   <RFALSE>)>
+		       <TELL CR
+"\"Hey, Zaphod, how ya doing?\" says Ford. He's cool. \"Not bad, Ford. Great to
+see you,\" replies Zaphod. He's cooler. You suddenly realise that the woman is
+Tricia MacMillan (\"Call me " D ,TRILLIAN "\"), whom you were trying to pick up
+at a party in Islington just a few weeks ago, and that Zaphod is the guy she
+eventually left the party with! Odd." CR>)
+		      (<EQUAL? ,HEART-COUNTER 4>
+		       <MOVE ,FORD ,LOCAL-GLOBALS>
+		       <MOVE ,ZAPHOD ,LOCAL-GLOBALS>
+		       <MOVE ,TRILLIAN ,LOCAL-GLOBALS>
+		       <MOVE ,HANDBAG ,BRIDGE>
+		       <MOVE ,SATCHEL ,BRIDGE>
+		       <FCLEAR ,HANDBAG ,NDESCBIT>
+		       <FCLEAR ,HANDBAG ,TRYTAKEBIT>
+		       <DISABLE <INT I-FORD>>
+		       <ENABLE <QUEUE I-MARVIN -1>>
+		       <COND (<EQUAL? ,HERE ,BRIDGE>
+			      <SETG FOLLOW-FLAG 3>
+			      <ENABLE <QUEUE I-FOLLOW 2>>
+			      <TELL CR
+"\"Like my spaceship, Ford?\" Zaphod asks. \"YOUR spaceship?\" says Ford,
+losing his cool for a second. \"Yeah, I stole it,\" Zaphod admits. \"I'm gonna
+use it to find" ,LOST-PLANET ". Let's go sit in the sauna while I explain.\"
+Zaphod, Ford, and " D ,TRILLIAN " all head off to port." CR>)
+			     (T
+			      <RFALSE>)>)>)
+	       (<EQUAL? ,HERE ,HOLD>
+		<COND (<FSET? ,CAPTAINS-QUARTERS ,TOUCHBIT>
+		       <SETG GUARDS-COUNTER <+ ,GUARDS-COUNTER 1>>
+		       <COND (<EQUAL? ,GUARDS-COUNTER 1>
+			      <TELL CR
+"The guard releases you and Ford and begins cycling the air in the
+airlock. \"Hey, guard!\" shouts Ford, \"do you really enjoy this sort
+of thing? Shouting, stomping around, shooting people, is it really a
+fulfilling career?\"" CR>)
+			     (<EQUAL? ,GUARDS-COUNTER 6>
+			      <DISABLE <INT I-FORD>>
+			      <MOVE ,SATCHEL ,FORD>
+			      <FCLEAR ,SATCHEL ,NDESCBIT>
+			      <SETG PANEL-BLOCKER <>>
+			      <FSET ,HOLD ,REVISITBIT>
+			      <TELL CR "The guard says, \"">
+			      <COND (<HELD? ,BABEL-FISH ,PROTAGONIST>
+				     <TELL
+"Well, all things considered, I guess I like being a guard. Especially
+the shouting. Resistance is useless!\"">)
+				    (T
+				     <TELL "I">
+				     <PRODUCE-GIBBERISH 3>)>
+			      <TELL
+" He throws you and Ford into the airlock and closes the door." CR CR>
+			      <GOTO ,AIRLOCK>
+			      <MOVE ,FORD ,AIRLOCK>)
+			     (T
+			      <TELL CR
+"Ford continues trying to talk the guard into a sudden career change." CR>)>)
+		      (T
+		       <MOVE ,GUIDE ,PROTAGONIST>
+		       <DISABLE <INT I-FORD>>
+		       <SETG FORD-SLEEPING T>
+		       <COND (<IN? ,MINERAL-WATER ,FORD>
+			      <MOVE ,MINERAL-WATER ,SATCHEL>)>
+		       <COND (<IN? ,TOWEL ,FORD>
+			      <MOVE ,TOWEL ,HERE>)>
+		       <MOVE ,SATCHEL ,HERE>
+		       <FCLEAR ,SATCHEL ,TRYTAKEBIT>
+		       <TELL CR
+"Ford yawns. \"Matter transference always tires me out. I'm going to take a
+nap.\" He places something on top of his satchel. \"If you have any questions,
+here's " ,GUIDE-NAME "\" (Footnote 14). Ford lowers his voice to a whisper.
+\"I'm not supposed to tell you this, but you'll never be able to finish the
+game without consulting the Guide about lots of stuff.\" As he curls up in a
+corner and begins snoring, you pick up " D ,GUIDE "." CR>)>)
+	       (<EQUAL? ,FORD-COUNTER 0>
+		<SETG FORD-COUNTER 1>
+		<TELL CR
+"Ford glances uncomfortably at the sky. He offers you the towel again." CR>)
+	       (<EQUAL? ,FORD-COUNTER 1>
+		<TELL CR "Ford seems oblivious to your trouble, so you ask
+\"Ford, what about my home?\" He">
+		<FORD-DECIDES>)
+	       (<EQUAL? ,FORD-COUNTER 2>
+		<SETG FORD-COUNTER 3>
+	        <SETG LYING-DOWN <>>
+		<SETG PROSSER-LYING T>
+	        <ENABLE <QUEUE I-FORD 2>>
+		<FSET ,CONVERSATION ,INVISIBLE>
+	        <TELL CR
+"Ford and Prosser stop talking and approach you. Ford says that Prosser has
+agreed to lie in your place so that the two of you can go off to the Pub. Reluctantly, Prosser steps forward and lies down in front of the " D ,BULLDOZER
+". You stand up." CR>)
+	       (<EQUAL? ,FORD-COUNTER 3>
+		<MOVE ,FORD ,COUNTRY-LANE>
+		<SETG FORD-COUNTER 4>
+		<COND (<EQUAL? ,HERE ,FRONT-OF-HOUSE>
+		       <SETG FOLLOW-FLAG 1>
+		       <ENABLE <QUEUE I-FOLLOW 2>>
+		       <TELL CR
+"Ford, urging you to follow, hurries toward the country lane." CR>)
+		      (<EQUAL? ,HERE ,COUNTRY-LANE>
+		       <TELL CR "Ford enters from the north." CR>)
+		      (T
+		       <RFALSE>)>)
+	       (<AND <EQUAL? ,FORD-COUNTER 4>
+		     <EQUAL? ,HERE ,COUNTRY-LANE>
+		     <NOT <FSET? ,PUB ,TOUCHBIT>>>
+		<SETG FORD-COUNTER 5>
+		<SETG FOLLOW-FLAG 1>
+		<ENABLE <QUEUE I-FOLLOW 2>>
+		<MOVE ,FORD ,PUB>
+		<TELL CR
+"\"Come along, Arthur,\" says Ford impatiently, and enters the Pub." CR>)
+	       (<AND <NOT <IN? ,FORD ,HERE>>
+		     <FSET? ,PUB ,TOUCHBIT>>
+		<MOVE ,FORD ,HERE>
+		<TELL CR "Ford hurries after you." CR>)
+	       (<L? ,DRUNK-LEVEL 3>
+		<COND (<AND <PRSO? ,BEER>
+			    <VERB? DRINK ENJOY>>
+		       <RFALSE>)
+		      ;(<AND <EQUAL? ,L-PRSO ,BEER>
+			    <VERB? AGAIN>
+			    <EQUAL? ,L-PRSA ,V?DRINK ,V?ENJOY>>
+		       <RFALSE>)
+		      (<NOT <EQUAL? ,HERE ,PUB>>
+		       <RFALSE>)
+		      (<FSET? ,BEER ,NDESCBIT>
+		       <RFALSE>)>
+		<TELL CR "\"Drink the beer,\" urges Ford. \"It will help">
+		<CUSHION>
+		<TELL "\"" CR>)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT SATCHEL
+	(LOC FORD)
+	(DESC "satchel")
+	(DESCFCN SATCHEL-DESCFCN)
+	(SYNONYM SATCHEL)
+	(ADJECTIVE BATTERED LEATHER BULKY)
+	(FLAGS CONTBIT SEARCHBIT TAKEBIT TRYTAKEBIT)
+	(CAPACITY 30)
+	(SIZE 20)
+	(ACTION SATCHEL-F)>
+
+<ROUTINE SATCHEL-DESCFCN ("OPTIONAL" X)
+	 <TELL "There is a satchel here">
+	 <COND (<EQUAL? ,PANEL-BLOCKER ,SATCHEL>
+		<TELL ", resting in front of the " D ,ROBOT-PANEL>)>
+	 <TELL ".">
+	 <ITEM-ON-SATCHEL-DESCRIPTION>
+	 <CRLF>
+	 <RTRUE>>
+
+<ROUTINE ITEM-ON-SATCHEL-DESCRIPTION ()
+	 <COND (,ITEM-ON-SATCHEL
+		<TELL " Sitting on top of it is">
+		<ARTICLE ,ITEM-ON-SATCHEL>
+		<TELL ".">)>>
+
+<ROUTINE SATCHEL-F ()
+	 <COND (<AND <VERB? OPEN>
+		     <NOT <EQUAL? ,IDENTITY-FLAG ,FORD>>>
+		<PRIVATE "Ford">)
+	       (<AND <VERB? PUT-ON>
+		     <EQUAL? ,SATCHEL ,PRSI>>
+		<COND (<HELD? ,SATCHEL>
+		       <TELL "Put down the satchel first." CR>)
+		      (,ITEM-ON-SATCHEL
+		       <TELL "But">
+		       <ARTICLE ,ITEM-ON-SATCHEL T>
+		       <TELL " is already on the satchel." CR>)
+		      (T
+		       <SETG ITEM-ON-SATCHEL ,PRSO>
+		       <MOVE ,PRSO ,HERE>
+		       <FSET ,PRSO ,NDESCBIT>
+		       <FSET ,PRSO ,TRYTAKEBIT>
+		       <TELL "Okay,">
+		       <ARTICLE ,PRSO T>
+		       <TELL " is now sitting on the satchel." CR>)>)
+	       (<VERB? EXAMINE>
+		<TELL "The satchel, which is ">
+		<COND (<FSET? ,SATCHEL ,OPENBIT>
+		       <TELL "open">)
+		      (T
+		       <TELL "closed">)>
+		<TELL ", is fairly bulky.">
+		<ITEM-ON-SATCHEL-DESCRIPTION>
+		<CRLF>)
+	       (<AND <VERB? TAKE>
+		     <IN? ,SATCHEL ,FORD>>
+		<TELL
+"Ford says, \"Hey, Arthur, keep " D ,HANDS "s off my satchel!\"" CR>)>>
+
+<OBJECT SATCHEL-FLUFF
+	(LOC SATCHEL)
+	(DESC "satchel fluff")
+	(SYNONYM FLUFF LINT)
+	(ADJECTIVE SATCHEL)
+	(FLAGS TAKEBIT NARTICLEBIT)
+	(SIZE 1)
+	(GENERIC POCKET-FLUFF)>
+
+<GLOBAL FLUFF-TO-GOWN <>>
+
+<GLOBAL TOWEL-MUDDY <>>
+
+<GLOBAL TOWEL-OFFERED <>>
+
+<OBJECT TOWEL
+	(LOC FORD)
+	(DESC "towel")
+        (SYNONYM TOWEL TOWELS)
+	(FLAGS TAKEBIT TRYTAKEBIT)
+	(SIZE 7)
+	(CAPACITY 40)
+	(ACTION TOWEL-F)>
+
+<ROUTINE TOWEL-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <FSET? ,TOWEL ,TRYTAKEBIT>
+		     <EQUAL? ,HERE ,FRONT-OF-HOUSE>
+		     ,LYING-DOWN>
+		<FCLEAR ,TOWEL ,TRYTAKEBIT>
+		<MOVE ,TOWEL ,PROTAGONIST>
+		<MOVE ,FORD ,LOCAL-GLOBALS>
+		<SETG FORD-GONE T>
+		<SETG FOLLOW-FLAG 5>
+		<ENABLE <QUEUE I-FOLLOW 2>>
+		<DISABLE <INT I-FORD>>
+		<TELL
+"As you take it, Ford says, \"Er, look, thanks for lending me the towel...
+been nice knowing you... got to go now...\" He smiles oddly and walks down
+the " D ,COUNTRY-LANE "." CR>)
+	       (<AND <VERB? TAKE MOVE>
+		     <PRSO? ,TOWEL>
+		     <FSET? ,TOWEL ,SURFACEBIT>>
+		<FCLEAR ,TOWEL ,TRYTAKEBIT>
+		<FCLEAR ,TOWEL ,SURFACEBIT>
+		<ROB ,TOWEL ,HERE>
+		<FCLEAR ,TOWEL ,CONTBIT>
+		<FCLEAR ,TOWEL ,OPENBIT>
+		<FCLEAR ,TOWEL ,NDESCBIT>
+		<COND (<VERB? MOVE>
+		       <TELL "Okay, it's no longer covering the drain." CR>)
+		      (T
+		       <RFALSE>)>)
+	       (<AND <VERB? PUT-ON TIE>
+		     <PRSI? ,BEAST>>
+		<TELL "The effect is decorative rather than helpful." CR>)
+	       (<AND <VERB? PUT-ON TIE>
+		     <PRSI? ,HEAD ,EYES>>
+		<COND (<FSET? ,TOWEL ,WORNBIT>
+		       <TELL "It already is." CR>)
+		      (<IN? ,BEAST ,HERE>
+		       <FSET ,TOWEL ,WORNBIT>
+		       <MOVE ,TOWEL ,PROTAGONIST>
+		       <ENABLE <QUEUE I-BEAST 11>>
+		       <TELL
+"The " D ,BEAST " is completely bewildered. It is so dim it thinks that
+if you can't see it, it can't see you. You have a few seconds before it
+realises its mistake." CR>)
+		      (T
+		       <TELL
+"There's no need for that. It's not like there's a " D ,BEAST " around,
+or something." CR>)>)
+	       (<AND <FSET? ,TOWEL ,WORNBIT>
+		     <VERB? TAKE-OFF REMOVE UNTIE>>
+		<FCLEAR ,TOWEL ,WORNBIT>
+		<TELL "You unwrap the towel from your head.">
+		<COND (<FSET? ,BEAST ,MUNGEDBIT>
+		       <CRLF> <CRLF>
+		       <V-LOOK>
+		       <RTRUE>)>
+		<COND (,BEARINGS-LOST
+		       <TELL " You see that you have wandered in circles">
+		       <COND (<EQUAL? ,HERE ,OUTER-LAIR>
+			      <TELL
+" and ended right beside the " D ,MEMORIAL>)>
+		       <TELL ".">)>
+		<TELL
+" Unfortunately, the Beast has also caught sight of you again. All this
+fooling around has made it doubly angry and hungry. ">
+		<BEAST-DEATH>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<COND (<FSET? ,TOWEL ,SURFACEBIT>
+		       <PERFORM ,V?EXAMINE ,DRAIN>
+		       <COND (<FIRST? ,TOWEL>
+			      <RFALSE>)>
+		       <RTRUE>)
+		      (,TOWEL-MUDDY
+		       <TELL "It is caked with mud." CR>)
+		      (T
+		       <TELL
+"It's covered with little pink and blue flowers." CR>)>)
+	       (<AND <VERB? LIE-DOWN>
+		     <FSET? ,TOWEL ,SURFACEBIT>>
+		<PERFORM ,V?STAND-BEFORE ,HOOK>
+		<RTRUE>)>>
+
+<ROOM BACK-OF-HOUSE
+      (LOC ROOMS)
+      (SYNONYM LIST QUESTION QUESTIONS)
+      (ADJECTIVE GREAT UNANSWERE)
+      (DESC "Back of House")
+      (SE TO FRONT-OF-HOUSE)
+      (SW TO FRONT-OF-HOUSE)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL HOUSE HOME THIRD-PLANET RUBBLE TREE)
+      (ACTION BACK-OF-HOUSE-F)>
+
+<OBJECT BIRDS
+      (LOC BACK-OF-HOUSE)
+      (SYNONYM BIRD BIRDS)
+      (DESC "bird")
+      (FLAGS NDESCBIT)
+      (ACTION UNIMPORTANT-THING-F)>  
+
+<ROUTINE BACK-OF-HOUSE-F (RARG)
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <NOT <RUNNING? ,I-VOGONS>>
+ 		     ,HOUSE-DEMOLISHED>
+		<I-VOGONS>
+		<ENABLE <QUEUE I-VOGONS 2>>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The rear garden is a pleasant place. I" ,NICE-DAY ", and it's a lovely day for
+a walk. A path leads around the house to the southeast and southwest." CR>)>>
+
+<ROUTINE TREE-PSEUDO ()
+	 <COND (<VERB? CLIMB-UP CLIMB-FOO>
+		<TELL "You were never very good at that." CR>)>>
+
+<ROOM COUNTRY-LANE
+      (LOC ROOMS)
+      (SYNONYM SPACE)
+      (DESC "Country Lane")
+      (NORTH TO FRONT-OF-HOUSE)
+      (WEST TO PUB)
+      (IN TO PUB)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL HOUSE HOME PUB-OBJECT BULLDOZER THIRD-PLANET TREE)
+      (ACTION COUNTRY-LANE-F)>
+
+<ROUTINE COUNTRY-LANE-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<COND (<AND <NOT ,PROSSER-LYING>
+			    <NOT ,HOUSE-DEMOLISHED>
+			    <NOT <FSET? ,HOLD ,TOUCHBIT>>>
+		       <SETG BULLDOZER-COUNTER 3>
+		       <I-BULLDOZER>)
+		      (<AND <EQUAL? ,IDENTITY-FLAG ,FORD>
+			    ,HOUSE-DEMOLISHED>
+		       <ENABLE <QUEUE I-DOG 1>>
+		       <RFALSE>)
+		      (<AND <EQUAL? ,DRUNK-LEVEL 3>
+			    <EQUAL? ,IDENTITY-FLAG ,ARTHUR>>
+		       <ENABLE <QUEUE I-DOG 1>>
+		       <RFALSE>)
+		      (<AND <FSET? ,HOLD ,TOUCHBIT>
+			    <NOT <FSET? ,COUNTRY-LANE ,NDESCBIT>>>
+		       <PUT ,FORD-TABLE 0 <LOC ,SATCHEL>>
+		       <PUT ,FORD-TABLE 1 <LOC ,THUMB>>
+		       <PUT ,FORD-TABLE 2 <LOC ,GUIDE>>
+		       <PUT ,FORD-TABLE 3 <LOC ,TOWEL>>
+		       <PUT ,FORD-TABLE 5 <LOC ,MINERAL-WATER>>
+		       <COND (<FSET? ,THUMB ,MUNGEDBIT>
+			      <PUT ,FORD-TABLE 4 T>
+			      <FCLEAR ,THUMB ,MUNGEDBIT>)>
+		       <FSET ,COUNTRY-LANE ,NDESCBIT>
+		       <ROB ,PROTAGONIST ,MEMORIAL>
+		       <MOVE ,SATCHEL ,PROTAGONIST>
+		       <MOVE ,THUMB ,SATCHEL>
+		       <MOVE ,GUIDE ,SATCHEL>
+		       <MOVE ,TOWEL ,SATCHEL>
+		       <MOVE ,MINERAL-WATER ,SATCHEL>
+		       <MOVE ,ARTHUR ,FRONT-OF-HOUSE>
+		       <SETG IDENTITY-FLAG ,FORD>
+		       <MOVE ,FORD ,GLOBAL-OBJECTS>
+		       <MOVE ,PEANUTS ,PUB>
+		       <FSET ,PEANUTS ,TRYTAKEBIT>
+		       <FSET ,PEANUTS ,NDESCBIT>
+		       <SETG PEANUTS-BOUGHT <>>
+		       <SETG DREAMING T>
+		       <ENABLE <QUEUE I-VOGONS 38>>
+		       <TELL
+"You are hurrying up a country lane. The sky is light and clear, but you keep
+glancing at it with apprehension because you know that it will shortly be torn
+apart by Vogon ships, and that the hills and trees around you will just burn
+up and blow away, and you hope there's time for a quick drink beforehand.|
+|
+You want to hitch a ride aboard the Vogon fleet, but are anxious because it's
+so long since you were through a" ,BEAM "." CR CR>)>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <FSET? ,COUNTRY-LANE ,REVISITBIT>>
+		<SETG DREAMING T>
+		<TELL CR
+"Suddenly, a shadow passes in front of the sun. You look up. The shadow is a "
+D ,FLEET ". You fumble for ">
+		<JIGS-UP
+"your Thumb, but before you can hitch a ride the planet is destroyed.">
+		<RTRUE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL "The road runs from ">
+		<COND (<EQUAL? ,IDENTITY-FLAG ,ARTHUR>
+		       <TELL "your">)
+		      (T
+		       <TELL "Arthur's">)>
+		<TELL
+" home, to the north, toward the village Pub, to the west." CR>)>>
+
+<ROUTINE I-DOG ()
+	 <COND (<EQUAL? ,HERE ,WAR-CHAMBER>
+		<SETG DOG-COUNTER <+ ,DOG-COUNTER 1>>
+		<COND (<AND <L? ,DOG-COUNTER 13>
+			    <VERB? WAIT>>
+		       <RFALSE>)>
+		<CRLF>
+		<COND (<L? ,DOG-COUNTER 13>
+		       <TELL "The fleet continues to hurtle sunwards." CR>)
+		      (,DOG-FED
+		       <SETG LYING-DOWN <>>
+		       <TELL
+"Your simple act of kindness at a moment of great personal anxiety (you fed
+the dog, remember?) now brings rich rewards. " ,FLEET-PLUNGES " spots the dog
+(which appears to them as a gigantic monster) cheerfully tucking into a
+" D ,SANDWICH ".|
+|
+The Vl'Hurgs and the G'Gugvunts are moved by this simple picture of happiness,
+compared with the furious savagery of their own lives. They think back to a day
+when they used to relax over an odd " D ,SANDWICH " themselves, often at sunset
+after a hearty day working in the fields back in Vl'Hurgon and G'Gugvia, and
+decide to return and rebuild their homes in a new spirit of harmony and
+cooperation.|
+|
+Grateful, they offer to drop you at " D ,HEART-OF-GOLD " on the way home.
+After a brief 900 parsec trip, you are escorted into the Transporter Chamber
+of the warship. The transporter glows, and your surroundings change..." CR CR>
+		       <GOTO ,MAZE>)
+		      (T
+		       <TELL ,FLEET-PLUNGES>
+		       <JIGS-UP 
+", due to a terrible miscalculation in scale, is swallowed by a small dog.">
+		       <RTRUE>)>)
+	       (<EQUAL? ,IDENTITY-FLAG ,FORD>
+		<MOVE ,DOG ,HERE>
+		<DISABLE <INT I-DOG>>
+	 	<TELL "You run up the lane after Arthur. You pass a">
+	 	<COND (,DOG-FED
+		       <TELL
+" serene dog. Fate cannot harm him, he has dined today." CR>)
+	       	      (T
+		       <TELL "n irritable dog who yaps at you." CR>)>)
+	       (<AND <NOT <IN? ,DOG ,HERE>>
+		     <NOT <IN? ,FLEET ,HERE>>
+		     <EQUAL? ,HERE ,COUNTRY-LANE>>
+		<MOVE ,DOG ,HERE>
+		<ENABLE <QUEUE I-DOG 2>>
+	        <TELL
+"You see the huge " D ,BULLDOZER " heaving itself among the cloud of brick dust
+which is all that remains of " D ,HOME ". As you start up the lane, a small dog
+runs up to you, yapping." CR>)
+	       (<AND <NOT ,DOG-FED>
+		     <IN? ,DOG ,HERE>
+		     <NOT <FSET? ,DOG ,TOUCHBIT>>>
+		<FSET ,DOG ,TOUCHBIT>
+		<TELL
+"The dog carries on yapping for a moment and then gulps uncomfortably." CR>)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT DOG
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "dog")
+	(SYNONYM DOG MONGREL)
+	(ADJECTIVE SMALL SERENE IRRITABLE)
+        (ACTION DOG-F)>
+
+<ROUTINE DOG-F ()
+	 <COND (<VERB? GIVE THROW>
+		<COND (<PRSO? ,SANDWICH>
+		       <COND (<EQUAL? ,IDENTITY-FLAG ,FORD>
+			      <MOVE ,SANDWICH ,HERE>
+			      <TELL
+"The dog is in a bad mood and tries to bite " D ,HANDS ". The " D ,SANDWICH
+" lies ignored in the roadside dust." CR>)
+			     (<FSET? ,DOG ,TOUCHBIT> ;"already swallowed fleet"
+			      <TELL
+"The dog, which seems to have a slight case of indigestion,
+ignores the " D ,SANDWICH "." CR>)
+			     (T
+			      <MOVE ,SANDWICH ,LOCAL-GLOBALS>
+			      <SETG DOG-FED T>
+			      <TELL
+"The dog is deeply moved. With powerful sweeps of its tail it indicates that
+it regards this " D ,SANDWICH " as one of the great " D ,SANDWICH "es. Nine
+out of ten pet owners could happen by at this point expressing any preference
+they pleased, but this dog would spurn both them and all their tins. This is
+a dog which has met its main sandwich. It eats" ,WITH-PASSION CR>)>)
+		      (<PRSO? ,PEANUTS>
+		       <TELL "This is a dog, not an elephant." CR>)>)
+	       (<AND <VERB? EXAMINE>
+		     <NOT ,DOG-FED>>
+		<TELL "The mongrel looks hungry." CR>)
+	       (<VERB? RUB KICK PUSH>
+		<TELL "The dog tries to bite your ">
+		<COND (<VERB? KICK>
+		       <TELL "foot">)
+		      (T
+		       <TELL "hand">)>
+		<TELL "." CR>)>>
+
+<OBJECT PUB-OBJECT
+	(LOC LOCAL-GLOBALS)
+	(DESC "Pub")
+	(SYNONYM PUB GROOM)
+	(ADJECTIVE HORSE \'N)
+	(ACTION PUB-OBJECT-F)>
+
+<ROUTINE PUB-OBJECT-F ()
+	 <COND (<VERB? WALK-TO THROUGH>
+		<COND (<EQUAL? ,HERE ,PUB>
+		       <TELL ,LOOK-AROUND CR>)
+		      (<EQUAL? ,HERE ,COUNTRY-LANE>
+		       <DO-WALK ,P?WEST>)
+		      (T
+		       <V-WALK-AROUND>)>)
+	       (<VERB? EXIT LEAVE DISEMBARK>
+		<COND (<EQUAL? ,HERE ,PUB>
+		       <DO-WALK ,P?EAST>)
+		      (T
+		       <TELL ,LOOK-AROUND CR>)>)>>
+
+<ROOM PUB
+      (LOC ROOMS)
+      (SYNONYM ALCOHOL)
+      (DESC "Pub")
+      (EAST TO COUNTRY-LANE)
+      (OUT TO COUNTRY-LANE)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL PUB-OBJECT WINDOW THIRD-PLANET PUB-FURNISHINGS PEOPLE)
+      (ACTION PUB-F)>
+
+<OBJECT PEOPLE
+      (LOC LOCAL-GLOBALS)
+      (SYNONYM PEOPLE)
+      (DESC "people")
+      (ACTION PEOPLE-PSEUDO)>
+
+<ROUTINE PUB-F (RARG)
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT ,TOWEL-OFFERED>
+		     <AND <EQUAL? ,IDENTITY-FLAG ,FORD>>>
+		<ENABLE <QUEUE I-UNEASY -1>>
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"The Pub is pleasant and cheerful and full of pleasant and cheerful people who
+don't know they've got about twelve minutes to live and are therefore having a
+spot of lunch. Some music is playing on an old jukebox. The exit is east." CR>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <FSET? ,BEER ,NDESCBIT>
+		     <IN? ,FORD ,HERE>
+		     <NOT <EQUAL? ,IDENTITY-FLAG ,FORD>>>
+		<FCLEAR ,BEER ,NDESCBIT>
+		<ENABLE <QUEUE I-FORD 2>>
+		<SETG FORD-COUNTER 5>
+		<CRLF>
+		<TELL
+"Ford buys " D ,BEER " and offers half to you. \"Muscle relaxant...\" he
+says, impenetrably." CR>)>>
+
+<OBJECT BAR
+	(LOC PUB)
+	(DESC "bar")
+	(SYNONYM BAR COUNTER)
+	(FLAGS NDESCBIT CONTBIT SURFACEBIT OPENBIT)
+	(CAPACITY 60)
+	(ACTION BAR-F)>
+
+<ROUTINE BAR-F ()
+	 <COND (<VERB? LOOK-BEHIND>
+		<PERFORM ,V?EXAMINE ,PUB-SHELF>
+		<RTRUE>)>>
+
+<OBJECT PUB-SHELF
+	(LOC PUB)
+	(DESC "shelf of items")
+	(LDESC
+"Behind the bar is a shelf. It is full of the sort of items you find on shelves
+behind bars in pubs.")
+	(SYNONYM SHELF ITEMS SHELVES)
+	(ACTION PUB-SHELF-F)>
+
+<ROUTINE PUB-SHELF-F ()
+	 <COND (<VERB? EXAMINE>
+		<FSET ,PUB-SHELF ,NDESCBIT>
+		<TELL
+"On the shelf behind the bar is the usual array of bottles, glasses
+and soggy beermats">
+		<COND (<NOT ,PEANUTS-BOUGHT>
+		       <FSET ,PEANUTS ,TAKEBIT>
+		       <FSET ,PEANUTS ,TRYTAKEBIT>
+		       <COND (,SANDWICH-BOUGHT
+			      <TELL ", and">)
+			     (T
+			      <TELL ",">)>
+		       <TELL " some packets of peanuts">)>
+		<COND (<NOT ,SANDWICH-BOUGHT>
+		       <FSET ,SANDWICH ,TAKEBIT>
+		       <FSET ,SANDWICH ,TRYTAKEBIT>
+		       <TELL ", and a plate of uninviting " D ,SANDWICH "es">)>
+		<TELL "." CR>)>>
+
+<OBJECT MUSIC
+	(LOC PUB)
+	(DESC "music")
+	(SYNONYM MUSIC SONG SONGS)
+	(FLAGS NARTICLEBIT NDESCBIT)
+	(ACTION MUSIC-F)>
+
+<ROUTINE MUSIC-F ()
+	 <COND (<VERB? LISTEN ENJOY>
+		<PERFORM ,V?LISTEN ,JUKEBOX>
+		<RTRUE>)>>
+
+<OBJECT JUKEBOX
+	(LOC PUB)
+	(DESC "jukebox")
+	(SYNONYM JUKEBOX BOX)
+	(ADJECTIVE JUKE OLD)
+	(FLAGS NDESCBIT LIGHTBIT ONBIT)
+	(ACTION JUKEBOX-F)>
+
+<ROUTINE JUKEBOX-F ()
+	 <COND (<VERB? LISTEN>
+		<TELL "The song is ">
+		<COND (<PROB 25>
+		       <TELL
+"a Walker Brothers single, \"The Sun Ain't Gonna Shine Anymore.\"" CR>)
+		      (<PROB 33>
+		       <TELL
+"\"Get Back\" by the Beatles." CR>)
+		      (<PROB 50>
+		       <TELL
+"\"Hey Jude\" by the Beatles (Footnote 4). It's a particular favourite, and
+listening to it calms you down, and cheers you up." CR>)
+		      (T
+		       <TELL "\"Tie a Yellow Ribbon.\"">
+		       <COND (<EQUAL? ,IDENTITY-FLAG ,FORD>
+			      <TELL
+" You can't stand it, and are pleased to think that this is probably the
+last time it will ever be heard.">)>
+		       <CRLF>)>)
+	       (<VERB? LAMP-OFF>
+		<PRIVATE "the Pub">)>>
+
+<OBJECT PUB-FURNISHINGS
+	(LOC LOCAL-GLOBALS)
+	(DESC "it")
+	(SYNONYM BEERMAT BEERMATS GLASS GLASSES BOTTLE BOTTLES)
+	(ADJECTIVE USUAL SOGGY)
+	(FLAGS NDESCBIT NARTICLEBIT)
+	(GENERIC MINERAL-WATER)
+	(ACTION UNIMPORTANT-THING-F)>
+
+<OBJECT BARMAN
+	(LOC PUB)
+	(DESC "barman")
+	(LDESC "There is a barman serving at the bar.")
+	(SYNONYM BARMAN BARTENDER)
+	(FLAGS ACTORBIT)
+	(ACTION BARMAN-F)>
+
+<ROUTINE BARMAN-F ()
+	 <COND (<EQUAL? ,BARMAN ,WINNER>
+		<COND (<AND <VERB? TELL-ABOUT>
+			    <PRSO? ,ME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,BARMAN ,PRSI>
+		       <SETG WINNER ,BARMAN>
+		       <RTRUE>)
+		      (<VERB? HELLO>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?HELLO ,BARMAN>
+		       <SETG WINNER ,BARMAN>
+		       <RTRUE>)
+		      (<AND <VERB? GIVE>
+			    <PRSO? ,ME>
+			    <PRSI? ,SANDWICH ,BEER ,PEANUTS>>
+		       <PERFORM ,V?BUY ,PRSI>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"The barman ignores you and keeps polishing the other end of the bar." CR>)>)
+	       (<AND <VERB? ASK-FOR>
+		     <PRSI? ,SANDWICH ,BEER ,PEANUTS>>
+		<PERFORM ,V?BUY ,PRSI>
+		<RTRUE>)>>
+
+<OBJECT BEER
+	(LOC PUB)
+	(DESC "lots of beer")
+	(SYNONYM LOTS BITTER BITTERS PINT BEER)
+	(FLAGS DRINKBIT NARTICLEBIT NDESCBIT)
+	(ACTION BEER-F)>
+
+<GLOBAL DRUNK-LEVEL 0>
+
+<GLOBAL FORD-POINT 15>
+
+<ROUTINE BEER-F ()
+	 <COND (<AND <VERB? DRINK ENJOY COUNT SMELL RUB TAKE>
+		     <FSET? ,BEER ,NDESCBIT>>
+		<TELL "You'd better buy some first." CR>)
+	       (<VERB? COUNT>
+		<TELL "Lots." CR>)
+	       (<VERB? TAKE>
+		<TELL "Just drink it!" CR>)
+	       (<EQUAL? ,IDENTITY-FLAG ,FORD>
+		<COND (<VERB? BUY>
+		       <COND (<NOT <FSET? ,BEER ,NDESCBIT>>
+			      <TELL "You already did!" CR>
+			      <RTRUE>)>
+		       <FCLEAR ,BEER ,NDESCBIT>
+		       <COND (<IN? ,ARTHUR ,HERE>
+			      <TELL
+"You order six pints of bitter -- three for you, three for Arthur. According
+to " D ,GUIDE " this should">
+			      <CUSHION>
+			      <TELL CR CR
+"As you drink the first pint, you mention to Arthur that you are from a
+different planet, but it makes little impression. This surprises you, because
+you thought it was the sort of thing that would interest people." CR>)
+			     (T
+			      <TELL
+"You buy yourself three pints, which you calculate you will need to">
+			      <CUSHION>
+			      <TELL
+" This is a tip you picked up from " D ,GUIDE "." CR>)>)
+		      (<VERB? DRINK ENJOY>
+		       <SETG DRUNK-LEVEL <+ ,DRUNK-LEVEL 1>>
+		       <COND (<NOT <IN? ,ARTHUR ,HERE>>
+			      <TELL ,DOWN-WELL>
+			      <CRLF>)
+			     (<EQUAL? ,DRUNK-LEVEL 1>
+			      <SETG SCORE <+ ,SCORE ,FORD-POINT>>
+			      <SETG FORD-POINT 0>
+			      <TELL
+,DOWN-WELL " At least they managed to get something right on this benighted
+planet. You decide it's time to tell Arthur that the world is about to end.
+You tell him. Arthur is completely unperturbed. Curious. You wonder what sort
+of news it would take to disturb him." CR>)
+			     (<EQUAL? ,DRUNK-LEVEL 2>
+			      <TELL ,DOWN-WELL>
+			      <SCENE-THROUGH-WINDOW>)
+			     (T
+			      <TELL "You've had enough." CR>)>)>)
+	       (T
+		<COND (<VERB? DRINK ENJOY>
+		       <SETG SCORE <+ ,SCORE 5>>
+		       <SETG DRUNK-LEVEL <+ ,DRUNK-LEVEL 1>>
+		       <COND (<EQUAL? ,DRUNK-LEVEL 4>
+			      <TELL
+"You can hear the muffled noise of your home being demolished, and the
+taste of the beer sours in your mouth." CR CR>
+		              <PERFORM ,V?GET-DRUNK ,ROOMS>
+			      <RTRUE>)
+			     (<EQUAL? ,DRUNK-LEVEL 3>
+			      <ENABLE <QUEUE I-FORD -1>>
+			      <SETG HOUSE-DEMOLISHED T>
+			      <SETG PROSSER-LYING <>>
+			      <TELL
+"There is a distant crash which Ford explains is nothing to worry about,
+probably just your house being knocked down." CR>)
+			     (<EQUAL? ,DRUNK-LEVEL 2>
+			      <TELL
+"It is really very pleasant stuff, with a very good dry, nutty flavour, some
+light froth on top, and a deep colour. It is at exactly room temperature. You
+reflect that the world cannot be all bad when there are such pleasures in it.|
+|
+Ford mentions that the world is going to end in about twelve minutes." CR>)
+			     (<EQUAL? ,DRUNK-LEVEL 1>
+			      <TELL
+"It's very good beer, brewed by a small local company. You particularly like
+its flavour, which is why you woke up feeling so wretched this morning. You
+were at somebody's birthday party here in the Pub last night.|
+|
+You begin to relax and enjoy yourself, so when Ford mentions that he's from a
+small planet in the vicinity of Betelgeuse, not from Guildford as he usually
+claims, you take it in your stride, and say, \"Oh yes, which part?\"" CR>)>)
+		      (<VERB? BUY>
+		       <COND (<FSET? ,BEER ,NDESCBIT>
+			      <PERFORM ,V?BUY ,PEANUTS>
+			      <RTRUE>)
+			     (T
+			      <TELL
+D ,FORD " has already bought an enormous quantity for you!" CR>)>)>)>>
+
+<OBJECT PEANUTS
+	(LOC PUB)
+	(DESC "peanuts")
+	(SYNONYM PACKET PEANUT PEANUTS NUT NUTS)
+	(FLAGS TRYTAKEBIT NDESCBIT NARTICLEBIT EATBIT)
+	(ACTION PEANUTS-F)>
+
+<ROUTINE PEANUTS-F ()
+	 <COND (<AND <EQUAL? ,IDENTITY-FLAG ,FORD>
+		     <VERB? BUY>>
+		<COND (,PEANUTS-BOUGHT
+		       <TELL "You did!" CR>
+		       <RTRUE>)>
+		<SETG PEANUTS-BOUGHT T>
+		<MOVE ,PEANUTS ,PROTAGONIST>
+		<FCLEAR ,PEANUTS ,TRYTAKEBIT>
+		<FCLEAR ,PEANUTS ,NDESCBIT>
+		<TELL
+"You buy some peanuts, which you'll need to replace protein loss from the"
+,BEAM ", a tip you picked up from " D ,GUIDE "." CR>)
+	       (<VERB? OPEN>
+		<TELL "Just eat 'em." CR>)
+	       (<AND <VERB? EAT ENJOY>
+		     ,EARTH-DEMOLISHED
+		     ,GROGGY>
+		<SETG GROGGY <>>
+		<MOVE ,PEANUTS ,PUB>
+		<FSET ,PEANUTS ,TRYTAKEBIT>
+		<FSET ,PEANUTS ,NDESCBIT>
+		<TELL
+"You feel stronger as the peanuts replace some of the protein you lost
+in the" ,BEAM "." CR>)
+	       (<AND <VERB? BUY>
+		     <EQUAL? ,HERE ,PUB>>
+		<TELL
+"However much you clear your throat, wave your forefinger, or wiggle your
+eyebrows, the barman pays no attention, but carries on wiping another part
+of the bar." CR>)
+	       (<AND <VERB? TAKE EAT>
+		     <FSET? ,PEANUTS ,TRYTAKEBIT>
+		     <EQUAL? ,HERE ,PUB>>
+		<TELL ,HANDS-OFF CR>)>>
+
+<OBJECT SANDWICH
+	(LOC PUB)
+	(DESC "cheese sandwich")
+	(SYNONYM PLATE SANDWICH)
+	(ADJECTIVE CHEESE UNINVITIN)
+	(FLAGS NDESCBIT EATBIT TRYTAKEBIT)
+	(SIZE 10)
+	(ACTION SANDWICH-F)>
+
+<ROUTINE SANDWICH-F ()
+	 <COND (<AND <VERB? BUY>
+		     <NOT ,SANDWICH-BOUGHT>>
+	        <MOVE ,SANDWICH ,PROTAGONIST>
+		<FSET ,SANDWICH ,TAKEBIT>
+	        <FCLEAR ,SANDWICH ,TRYTAKEBIT>
+		<FCLEAR ,SANDWICH ,NDESCBIT>
+		<SETG SANDWICH-BOUGHT T>
+		<TELL
+"The barman gives you a " D ,SANDWICH ". The bread is like the stuff that
+stereos come packed in, the cheese would be great for rubbing out spelling
+mistakes, and margarine and pickle have performed an unedifying chemical
+reaction to produce something that shouldn't be, but is, turquoise. Since
+it is clearly unfit for human consumption you are grateful to be charged
+only a pound for it." CR>)
+	       (<VERB? BUY>
+		<TELL "You already did." CR>)
+	       (<AND <VERB? TAKE EAT ENJOY>
+		     <FSET? ,SANDWICH ,TRYTAKEBIT>
+		     <EQUAL? ,HERE ,PUB>>
+		<TELL ,HANDS-OFF CR>)
+	       (<VERB? EAT ENJOY>
+		<MOVE ,SANDWICH ,LOCAL-GLOBALS>
+		<SETG SCORE <- ,SCORE 30>>
+		<COND (<EQUAL? ,IDENTITY-FLAG ,FORD>
+		       <TELL
+"You swallow with revulsion, astonished that life forms which have spent 4.6
+billion years evolving cannot produce a better " D ,SANDWICH " than this." CR>)
+		      (T
+		       <TELL
+"It is one of the least rewarding taste experiences you can recall." CR>)>)>>
+
+<GLOBAL DOG-FED <>>
+
+<GLOBAL PEANUTS-BOUGHT <>>
+
+<GLOBAL SANDWICH-BOUGHT <>>
+
+<GLOBAL VOGON-COUNTER 0>
+
+<GLOBAL FORD-GONE <>>
+
+<ROUTINE I-VOGONS ()
+	 <ENABLE <QUEUE I-VOGONS -1>>
+	 <SETG VOGON-COUNTER <+ ,VOGON-COUNTER 1>>
+	 <COND (<EQUAL? ,VOGON-COUNTER 1>
+		<COND (<EQUAL? ,HERE ,PUB>
+			      <GO-TO-LANE>)>
+		<MOVE ,FLEET ,HERE>
+		<CRLF>
+		<COND (<EQUAL? ,IDENTITY-FLAG ,FORD>
+		       <MOVE ,ARTHUR ,HERE>
+		       <TELL
+"Right on schedule (according to the news you picked up last night on your
+Sub-Etha Sens-O-Matic), a huge " D ,FLEET " hurtles noisily through the sky.
+Time is very, very short. Storms break in the wake of the ships, the wind
+whips at you and makes it difficult to stand. You grab hold of a tree." CR>)
+		      (T
+		       <TELL
+"With a noise like a cross between Led Zeppelin's farewell concert and the
+eruption of Krakatoa, a huge " D ,FLEET " flies overhead and announces that
+the Earth will be demolished to make way for a new hyperspace bypass in \"two
+of your Earth minutes.\"" CR>
+		       <COND (<AND <IN? ,FORD ,HERE>
+				   <EQUAL? ,FORD-COUNTER 0>>
+			      <MOVE ,FORD ,LOCAL-GLOBALS>
+			      <DISABLE <INT I-FORD>>
+			      <SETG FORD-GONE T>
+			      <MOVE ,TOWEL ,HERE>
+			      <FCLEAR ,TOWEL ,TRYTAKEBIT>
+			      <TELL CR
+"Ford drops the towel and dashes away." CR>)>
+		       <COND (<HELD? ,THING>
+			      <MOVE ,THING ,LOCAL-GLOBALS>
+			      <TELL CR "In all the turmoil, ">
+			      <COND (<IN? ,THING ,GOWN>
+				     <TELL
+"the " D ,THING " drops out of your pocket and rolls away.">)
+				    (T
+				     <TELL
+"you drop the " D ,THING " and it rolls away.">)>
+			      <TELL
+" It is the least of your worries. Anyway," ,GET-RID CR>)>)>)
+	       (<EQUAL? ,VOGON-COUNTER 2>
+		<CRLF>
+		<TELL
+"The vast yellow ships thunder across the sky, spreading waves of terror and
+panic in their wake. The voice of the " D ,VOGON-CAPTAIN " slams across the
+country, insisting that the planning charts and demolition orders have been
+available at the local planning office in Alpha Centauri for fifty years and
+it's too late to start making a fuss about it now.">
+		<CRLF>
+		<COND (,FORD-GONE
+		       <RTRUE>)>
+		<CRLF>
+		<COND (<EQUAL? ,IDENTITY-FLAG ,FORD>
+		       <COND (<HELD? ,THUMB ,PROTAGONIST>
+			      <COND (<IN? ,THUMB ,PROTAGONIST>
+				     <TELL
+"The " D ,THUMB " in " D ,HANDS " begins to whine.">)
+				    (T
+				     <TELL
+"You remove the " D ,THUMB " from your satchel.">)>
+			      <TELL
+" Lights pulsate across its surface. " ,THUMB-FUMBLE>
+			      <MOVE ,THUMB ,HERE>
+			      <SETG P-IT-OBJECT ,THUMB>)
+			     (T
+			      <TELL
+"You wish you were holding your " D ,THUMB ".">)>
+		       <TELL
+" Arthur is struggling desperately towards you. The end of this planet is
+now only seconds away." CR>)
+		      (T
+		       <MOVE ,THUMB ,HERE>
+		       <SETG P-IT-OBJECT ,THUMB>
+		       <TELL 
+"Throughout the noise, Ford is shouting at you. He removes a small black
+device from his satchel, but accidentally drops it at your feet." CR>)>)
+	       (<EQUAL? ,VOGON-COUNTER 3>
+		<CRLF>
+		<TELL
+"Fierce gales whip across the land, and thunder bangs continuously through
+the air in the wake of the giant ships. ">
+		<COND (<AND <EQUAL? ,IDENTITY-FLAG ,ARTHUR>
+			    <NOT ,FORD-GONE>>
+		       <TELL
+"Ford fights to reach you, but the wind is too fierce. Further announcements
+from the " D ,VOGON-CAPTAIN " make it clear that demolition will begin in
+just a few seconds.|
+|
+Through the blinding rain, you see lights flickering on the small device." CR>)
+		      (<AND <EQUAL? ,IDENTITY-FLAG ,FORD>
+			    <IN? ,THUMB ,HERE>>
+		       <COND (,FLUFF-TO-GOWN
+			      <FSET ,COUNTRY-LANE ,REVISITBIT>)>
+		       <TELL ,DRIVEN-BACK>
+		       <TELL
+" Fortunately, at this point, Arthur picks up the Thumb, and somehow
+manages to push the right button">
+		       <COND (<FSET? ,THUMB ,MUNGEDBIT>
+			      <TELL ". Unfortunately, the" ,THUMB-CLICKS>
+			      <SETG VOGON-COUNTER 4>
+			      <TELL " ">
+			      <I-VOGONS>
+			      <RTRUE>)
+			     (T
+			      <TELL "." CR CR>
+			      <JIGS-UP
+"However often you do it, you are still stunned by the shock of
+dematerialisation. The scene around is ripped away like a flimsy backcloth.">
+			      <RTRUE>)>)
+		      (T
+		       <CRLF>)>)
+	       (<EQUAL? ,VOGON-COUNTER 5>
+		<TELL "The Earth is destroyed by the " D ,FLEET>
+		<COND (,FLUFF-TO-GOWN
+		       <FSET ,COUNTRY-LANE ,REVISITBIT>)>
+		<JIGS-UP ".">
+		<RTRUE>)>>
+
+<ROUTINE GO-TO-LANE ()
+	 <SETG LYING-DOWN <>>
+	 <TELL CR "You hear sounds of panic from the street. You ">
+	 <COND (<AND <EQUAL? ,IDENTITY-FLAG ,FORD>
+		     <NOT <IN? ,ARTHUR ,HERE>>>
+		<TELL "leave the Pub and run into Arthur..." CR CR>)
+	       (T
+		<COND (<EQUAL? ,IDENTITY-FLAG ,FORD>
+		       <TELL "and Arthur">)
+		      (T
+		       <TELL "and Ford">)>
+		<TELL " rush outside..." CR CR>)>
+	 <GOTO ,COUNTRY-LANE>
+	 <COND (<EQUAL? ,IDENTITY-FLAG ,FORD>
+		<MOVE ,ARTHUR ,COUNTRY-LANE>)
+	       (T
+		<MOVE ,FORD ,COUNTRY-LANE>)>>
+
+<GLOBAL FORD-TABLE
+	<TABLE 0 0 0 0 0 0>>
+
+<OBJECT FLEET
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "fleet of Vogon Constructor ships")
+	(SYNONYM FLEET SHIP SHIPS SPACESHIP)
+	(ADJECTIVE VOGON CONSTRUCT HUGE UGLY YELLOW)
+	(FLAGS NDESCBIT)
+	(ACTION FLEET-F)>
+
+<ROUTINE FLEET-F ()
+	 <COND (<VERB? ENJOY>
+		<TELL ,ZEN CR>)
+	       (<VERB? WALK-TO THROUGH>
+		<SETG AWAITING-REPLY 11>
+		<ENABLE <QUEUE I-REPLY 2>>
+		<TELL "From here?" CR>)
+	       (<AND <VERB? EXAMINE>
+		     <NOT <EQUAL? ,HERE ,HOLD ,AIRLOCK ,CAPTAINS-QUARTERS>>>
+		<TELL
+"The fleet consists of terrifying numbers of huge, ugly, yellow ships, all
+scarred with the results of many such past demolition jobs. Chicago's John
+Hancock tower, knocked about a bit and painted yellow, is what they each look
+like. That is, knocked about a bit, painted yellow, and flying." CR>)>>
+
+<GLOBAL EARTH-DEMOLISHED <>>
+
+<ROUTINE LEAVE-EARTH ()
+	 <DISABLE <INT I-HOUSEWRECK>>
+	 <DISABLE <INT I-BULLDOZER>>
+	 <DISABLE <INT I-PROSSER>>
+	 <DISABLE <INT I-FORD>>
+	 <DISABLE <INT I-VOGONS>>
+	 <SETG HEADACHE <>>
+	 <SETG BULLDOZER-COUNTER 0>
+	 <SETG PROSSER-COUNTER 0>
+	 <SETG PROSSER-LYING <>>
+	 <SETG FORD-COUNTER 0>
+	 <SETG DRUNK-LEVEL 0>
+	 <SETG HOUSE-DEMOLISHED <>>
+	 <SETG VOGON-COUNTER 0>
+	 <SETG EARTH-DEMOLISHED T>
+	 <SETG IDENTITY-FLAG ,ARTHUR>
+	 <MOVE ,ARTHUR ,GLOBAL-OBJECTS>
+	 <MOVE ,DOG ,LOCAL-GLOBALS>
+	 <MOVE ,FLEET ,LOCAL-GLOBALS>
+	 <MOVE ,FORD ,LOCAL-GLOBALS>
+	 <COND (<AND <NOT <HELD? ,SANDWICH>>
+		     ,SANDWICH-BOUGHT>
+		<MOVE ,SANDWICH ,LOCAL-GLOBALS>)>
+	 <FSET ,BEER ,NDESCBIT>
+	 <FCLEAR ,PROSSER ,TOUCHBIT>
+	 <FCLEAR ,FRONT-OF-HOUSE ,NDESCBIT>
+	 <FCLEAR ,FRONT-OF-HOUSE ,TOUCHBIT>
+	 <FCLEAR ,COUNTRY-LANE ,TOUCHBIT>>
+
+;"second time around"
+
+<OBJECT ARTHUR
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "Arthur Dent")
+	(LDESC "Arthur Dent is here.")
+	(SYNONYM ARTHUR DENT)
+	(ADJECTIVE ARTHUR)
+	(FLAGS NARTICLEBIT VOWELBIT ACTORBIT)
+	(ACTION ARTHUR-F)>
+
+<ROUTINE ARTHUR-F ()
+	 <COND (<EQUAL? ,IDENTITY-FLAG ,ARTHUR>
+		<COND (<EQUAL? ,ARTHUR ,PRSO>
+		       <PERFORM ,PRSA ,ME ,PRSI>
+		       <RTRUE>)
+		      (T
+		       <PERFORM ,PRSA ,PRSO ,ME>
+		       <RTRUE>)>)
+	       (<EQUAL? ,ARTHUR ,WINNER>
+		<COND (<IN? ,FLEET ,HERE>
+		       <TELL ,ABOVE-NOISE CR>)
+		      (<AND <VERB? FOLLOW>
+			    <EQUAL? ,HERE ,FRONT-OF-HOUSE>
+			    <PRSO? ,ME>>
+		       <COND (,PROSSER-LYING
+			      <TELL "Arthur seems willing to do so." CR>)
+			     (T
+			      <BUT-THAT-MAN "Arthur exclaims">
+			      <CRLF>)>)
+		      (<AND <VERB? DRINK>
+			    <PRSO? ,BEER>>
+		       <COND (<FSET? ,BEER ,NDESCBIT>
+			      <SETG WINNER ,PROTAGONIST>
+			      <PERFORM ,V?DRINK ,BEER>
+			      <SETG WINNER ,ARTHUR>
+			      <RTRUE>)
+			     (T
+			      <TELL
+"Arthur seems to be waiting to follow your lead." CR>)>)
+		      (T
+		       <TELL "Arthur looks too confused to respond." CR>)>
+		<FUCKING-CLEAR>)
+	       (<AND <VERB? HELLO TELL ASK-FOR ASK-ABOUT TELL-ABOUT>
+		     <EQUAL? ,IDENTITY-FLAG ,TRILLIAN>
+		     <PRSO? ,ARTHUR>>
+		<COND (,FLUFF-REMOVED
+		       <FSET ,ARTHUR ,RLANDBIT> ;"prevent leading CR"
+		       <I-ARTHUR>)
+		      (T
+		       <TELL
+"You approach Arthur. He seems to find your tone a little cool, smiles
+unhappily, and wanders to the other end of the room." CR>)>
+		<ENABLE <QUEUE I-ARTHUR 2>>
+		<FUCKING-CLEAR>)
+	       (<AND <VERB? TELL-ABOUT ASK-ABOUT ASK-FOR>
+		     <PRSO? ,ARTHUR>
+		     <EQUAL? ,IDENTITY-FLAG ,TRILLIAN>>
+		<PERFORM ,V?HELLO ,ARTHUR>
+		<RTRUE>)
+	       (<AND <VERB? CARVE>
+		     <PRSI? ,MEMORIAL>>
+		<PERFORM ,V?CARVE ,YOUR-NAME ,MEMORIAL>
+		<RTRUE>)
+	       (<AND <VERB? GIVE>
+		     <PRSO? ,TOWEL>
+		     <EQUAL? ,HERE ,FRONT-OF-HOUSE>
+		     <NOT ,TOWEL-OFFERED>>
+		<SETG TOWEL-OFFERED T>
+	        <TELL
+"Inexplicably, Arthur takes no notice of the towel which, magnificently, you
+are trying to return to him. Instead, he says, \"Ford, what about my home?\"|
+|
+You start guiltily. Does he actually KNOW that the Earth is about to be
+destroyed? You start to ask him, then stop. If he knows, what the Zark is he
+doing lying here in the mud in front of...|
+|
+You look around. You notice the " D ,BULLDOZER " properly for the first time.
+You notice Arthur's house. You notice the workmen. The penny drops. His HOUSE
+is about to be demolished. You feel like a complete...what's the word?">
+		<COND (<IDIOT?>
+		       <TELL
+"Thank you. An idiot is exactly what you feel like.">)
+		      (T
+		       <TELL
+"No, actually, \"idiot\" was the word I was looking for.">)>
+		<TELL CR CR
+"In a reckless moment you go completely mad and decide that you ought to take
+Arthur with you. You try to tell Arthur about the importance of getting a
+drink, but he's rambling on about a man called Prosser." CR>
+		<RFATAL>)
+	       (<AND <PRSO? ,SANDWICH>
+		     <VERB? GIVE>>
+		<MOVE ,SANDWICH ,ARTHUR>
+		<TELL
+"Arthur takes it, sniffs it suspiciously, and wisely decides that it's
+safer in his pocket than in his stomach." CR>)
+	       (<AND <VERB? GIVE>
+		     <PRSO? ,SATCHEL-FLUFF>>
+		<COND (,HOUSE-DEMOLISHED
+		       <MOVE ,SATCHEL-FLUFF ,LOCAL-GLOBALS>
+		       <SETG FLUFF-TO-GOWN T>
+		       <TELL
+"Arthur hiccups, takes the fluff, and sticks it in his pocket." CR>)
+		      (T
+		       <TELL
+"Arthur blinks several times, but doesn't take the fluff. Perhaps if he
+had a few drinks in him..." CR>)>)
+	       (<AND <VERB? EXAMINE>
+		     <EQUAL? ,IDENTITY-FLAG ,TRILLIAN>>
+		<TELL
+"Arthur seems nice and well meaning, but also terribly shy.">
+		<COND (<NOT ,FLUFF-REMOVED>
+		       <MOVE ,JACKET-FLUFF ,HERE>
+		       <ENABLE <QUEUE I-ARTHUR -1>>
+		       <TELL
+" He has tried to start a " D ,CONVERSATION " with you several times, but still
+hasn't gotten past \"Hello.\" He has an enormous, unsightly ball of fluff
+on his jacket.">)>
+		<CRLF>)
+	       (<AND <VERB? FOLLOW>
+		     <EQUAL? ,FOLLOW-FLAG 4>>
+		<DO-WALK ,P?EAST>)
+	       (<AND <VERB? PICK-UP>
+		     <EQUAL? ,IDENTITY-FLAG ,TRILLIAN>>
+		<PERFORM ,V?PICK-UP ,ZAPHOD>
+		<RTRUE>)
+	       (<AND <VERB? LISTEN>
+		     <EQUAL? ,IDENTITY-FLAG ,TRILLIAN>
+		     ,FLUFF-REMOVED>
+		<TELL "Unfortunately, you seem to have no choice." CR>)>> 
+
+<ROUTINE IDIOT? ()
+	 <CRLF> <CRLF>
+	 <PRINTI ">">
+	 <PUTB ,P-INBUF 1 0>
+	 <READ ,P-INBUF ,P-LEXV>
+	 <COND (<EQUAL? <GET ,P-LEXV 1> ,W?IDIOT>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<GLOBAL UNEASY-COUNTER 0>
+
+<GLOBAL IDENTITY-FLAG <>>
+
+<ROUTINE I-UNEASY ()
+	 <SETG UNEASY-COUNTER <+ ,UNEASY-COUNTER 1>>
+	 <COND (<NOT <EQUAL? ,HERE ,PUB>>
+		<DISABLE <INT I-UNEASY>>
+		<RFALSE>)>
+	 <CRLF>
+	 <COND (<EQUAL? ,UNEASY-COUNTER 1>
+		<TELL "You feel uneasy about something." CR>)
+	       (<EQUAL? ,UNEASY-COUNTER 2 3 4>
+		<TELL "You still feel uneasy." CR>)
+	       (T
+		<TELL
+"The sense of uneasiness you've been so busy ignoring now utterly engulfs you,
+as you realise that you've broken the fundamental rule of time travel: \"Do as
+you would have done by.\" The rational foundation of the Universe crashes and
+within a few seconds the whole of creation ceases ever to have exis" CR CR CR>
+		<QUIT>)>>
+
+<ROUTINE I-ARTHUR ()
+	 <ENABLE <QUEUE I-ARTHUR -1>>
+	 <COND (<EQUAL? ,IDENTITY-FLAG ,TRILLIAN>
+		<COND (,FLUFF-REMOVED
+		       <COND (<NOT <FSET? ,ARTHUR ,RLANDBIT>>
+			      <CRLF>)>
+		       <FCLEAR ,ARTHUR ,RLANDBIT>
+		       <COND (<NOT <IN? ,ARTHUR ,HERE>>
+			      <MOVE ,ARTHUR ,HERE>
+			      <TELL
+"Arthur follows you like an eager puppy." CR>)
+			     (T
+			      <TELL
+"Arthur tries, unsuccessfully, to interest you by talking about "
+<PICK-ONE ,BORES> CR>)>)
+		      (<PROB 20>
+		       <MOVE ,ARTHUR ,HERE>
+		       <MOVE ,JACKET-FLUFF ,HERE>
+		       <TELL CR
+"Arthur walks up and says, \"Hello, again.\" He looks shy, embarrassed and stuck
+for anything else to say, and quickly walks to the other end of the room." CR>)
+		      (T
+		       <RFALSE>)>)
+	       (<IN? ,ARTHUR ,HERE>
+		<RFALSE>)
+	       (T
+		<MOVE ,ARTHUR ,HERE>
+		<TELL "Arthur follows you." CR>)>>
+
+<GLOBAL BORES
+	<PLTABLE
+"newts he has known."
+"cricket."
+"how badly Americans make tea."
+"the deteriorating condition of the motorways."
+"a recent visit to Tiverton."
+"a new book by Douglas Adams."
+"computers.">>
+
+<ROUTINE SCENE-THROUGH-WINDOW ()
+	 <MOVE ,ARTHUR ,FRONT-OF-HOUSE>
+	 <DISABLE <INT I-ARTHUR>>
+	 <SETG HOUSE-DEMOLISHED T>
+	 <SETG PROSSER-LYING <>>
+	 <SETG FOLLOW-FLAG 4>
+	 <ENABLE <QUEUE I-FOLLOW 2>>
+	 <TELL
+" You hear a muffled crash. It's probably Arthur's little house getting knocked
+down, which you tell him. This DOES upset him, and he tears out the door.|
+|
+Through the window, you see him running up the lane. A small dog chases after
+him, yapping, ">
+	 <COND (<OR ,DOG-FED
+		    <IN? ,SANDWICH ,ARTHUR>>
+		<SETG DOG-FED T>
+		<TELL "and he throws it a " D ,SANDWICH
+". The dog devours the sandwich" ,WITH-PASSION CR>)
+	       (T
+		<TELL "but he ignores it. The dog gulps uncomfortably." CR>)>>
\ No newline at end of file
diff --git a/globals.zabstr b/globals.zabstr
new file mode 100644
index 0000000..c85393e
--- /dev/null
+++ b/globals.zabstr
@@ -0,0 +1,338 @@
+
+<CONSTANT S-TEXT 0> 
+<CONSTANT S-WINDOW 1> 
+<CONSTANT H-NORMAL 0> 
+<CONSTANT H-INVERSE 1> 
+<CONSTANT H-BOLD 2> 
+<CONSTANT H-ITALIC 4> 
+<CONSTANT D-SCREEN-ON 1> 
+<CONSTANT D-SCREEN-OFF -1> 
+<CONSTANT D-PRINTER-ON 2> 
+<CONSTANT D-PRINTER-OFF -2> 
+<CONSTANT D-TABLE-ON 3> 
+<CONSTANT D-TABLE-OFF -3> 
+<CONSTANT D-RECORD-ON 4> 
+<CONSTANT D-RECORD-OFF -4> 
+<GLOBAL HOST:NUMBER 0> 
+<GLOBAL WIDTH:NUMBER 0> 
+<DEFINE-ROUTINE INIT-STATUS-LINE> 
+<CONSTANT SL-TABLE:TABLE <ITABLE NONE 80>> 
+<GLOBAL OHERE:OBJECT <>> 
+<GLOBAL OLD-LEN:NUMBER 0> 
+<DEFINE-ROUTINE UPDATE-STATUS-LINE> 
+<DEFINE-ROUTINE PRINT-SPACES> 
+<DEFINE-ROUTINE SAY-HERE> 
+<GLOBAL LYING-DOWN <>> 
+<GLOBAL HERE <>> 
+<GLOBAL LIT <>> 
+<GLOBAL MOVES 0> 
+<GLOBAL SCORE 0> 
+<CONSTANT INDENTS <PTABLE "" "  " "    " "      " "        " "          ">> 
+<OBJECT GLOBAL-OBJECTS (FLAGS INVISIBLE TOUCHBIT SURFACEBIT TRYTAKEBIT OPENBIT
+REVISITBIT SEARCHBIT TRANSBIT WEARBIT MUNGEDBIT ONBIT RLANDBIT WORNBIT)> 
+<OBJECT LOCAL-GLOBALS (LOC GLOBAL-OBJECTS) (SYNONYM ZZMGCK) (DESCFCN 0) (GLOBAL
+GLOBAL-OBJECTS) (FDESC "F") (LDESC "F") (SIZE 0) (TEXT "") (CAPACITY 0)> 
+<OBJECT FOOBAR (LOC LOCAL-GLOBALS) (SYNONYM FOOBAR) (ACTION V-WALK)> 
+<OBJECT ROOMS (IN TO ROOMS)> 
+<OBJECT IT (LOC GLOBAL-OBJECTS) (SYNONYM IT THEM HER HIM) (DESC "it") (FLAGS
+VOWELBIT NARTICLEBIT NDESCBIT TOUCHBIT)> 
+<OBJECT INTNUM (LOC GLOBAL-OBJECTS) (DESC "number") (SYNONYM INTNUM) (ADJECTIVE
+NUMBER)> 
+<OBJECT NOT-HERE-OBJECT (DESC "it") (FLAGS NARTICLEBIT) (ACTION
+NOT-HERE-OBJECT-F)> 
+<DEFINE-ROUTINE NOT-HERE-OBJECT-F> 
+<DEFINE-ROUTINE FIND-NOT-HERE> 
+<DEFINE-ROUTINE NOT-HERE-PRINT> 
+<OBJECT LIGHT (LOC GLOBAL-OBJECTS) (DESC "light") (SYNONYM LIGHT LIGHTS LAMP) (
+FLAGS LIGHTBIT) (ACTION LIGHT-F)> 
+<DEFINE-ROUTINE LIGHT-F> 
+<OBJECT GLOBAL-SLEEP (LOC GLOBAL-OBJECTS) (DESC "sleep") (SYNONYM SLEEP NAP
+SNOOZE) (FLAGS NARTICLEBIT) (ACTION GLOBAL-SLEEP-F)> 
+<DEFINE-ROUTINE GLOBAL-SLEEP-F> 
+<OBJECT SPEECH (LOC GLOBAL-OBJECTS) (DESC "speech") (SYNONYM SPEECH) (ACTION
+SPEECH-F)> 
+<DEFINE-ROUTINE SPEECH-F> 
+<OBJECT GROUND (LOC GLOBAL-OBJECTS) (SYNONYM FLOOR GROUND MUD) (DESC "ground")
+(ACTION GROUND-F)> 
+<DEFINE-ROUTINE GROUND-F> 
+<OBJECT WALLS (LOC GLOBAL-OBJECTS) (FLAGS NDESCBIT TOUCHBIT) (DESC "wall") (
+SYNONYM WALL WALLS) (ACTION WALLS-F)> 
+<DEFINE-ROUTINE WALLS-F> 
+<OBJECT CEILING (LOC GLOBAL-OBJECTS) (FLAGS NDESCBIT TOUCHBIT) (DESC "ceiling")
+(SYNONYM CEILING ROOF) (ACTION CEILING-F)> 
+<DEFINE-ROUTINE CEILING-F> 
+<OBJECT WINDOW (LOC LOCAL-GLOBALS) (DESC "window") (SYNONYM WINDOW) (FLAGS
+TRANSBIT) (ACTION WINDOW-F)> 
+<DEFINE-ROUTINE WINDOW-F> 
+<OBJECT STAIRS (LOC LOCAL-GLOBALS) (DESC "stairs") (SYNONYM STAIR STAIRS
+STAIRWAY GANGWAY) (FLAGS NARTICLEBIT NDESCBIT) (ACTION STAIRS-F)> 
+<DEFINE-ROUTINE STAIRS-F> 
+<OBJECT AIR (LOC GLOBAL-OBJECTS) (DESC "air") (SYNONYM AIR) (FLAGS VOWELBIT)> 
+<OBJECT SKY (LOC GLOBAL-OBJECTS) (DESC "sky") (SYNONYM SKY) (ACTION SKY-F)> 
+<DEFINE-ROUTINE SKY-F> 
+<OBJECT STAR (LOC GLOBAL-OBJECTS) (DESC "sun") (SYNONYM STAR SUN SYSTEM SOL) (
+ADJECTIVE APPROACHI STAR SOLAR SMALL UNREGARDE YELLOW ORANGE) (FLAGS NDESCBIT)
+(ACTION STAR-F)> 
+<DEFINE-ROUTINE STAR-F> 
+<OBJECT HANDS (LOC GLOBAL-OBJECTS) (SYNONYM HANDS HAND) (ADJECTIVE BARE MY YOUR
+) (DESC "your hand") (FLAGS NDESCBIT TOUCHBIT NARTICLEBIT) (ACTION HANDS-F)> 
+<DEFINE-ROUTINE HANDS-F> 
+<OBJECT TEETH (LOC GLOBAL-OBJECTS) (DESC "your teeth") (SYNONYM TEETH TOOTH) (
+ADJECTIVE YOUR MY) (FLAGS NARTICLEBIT)> 
+<OBJECT HEAD (LOC GLOBAL-OBJECTS) (DESC "your head") (SYNONYM HEAD FACE) (
+ADJECTIVE YOUR MY) (FLAGS NARTICLEBIT)> 
+<OBJECT EYES (LOC GLOBAL-OBJECTS) (DESC "your eyes") (SYNONYM EYE EYES) (
+ADJECTIVE YOUR MY) (FLAGS NARTICLEBIT) (ACTION EYES-F)> 
+<DEFINE-ROUTINE EYES-F> 
+<OBJECT EARS (LOC GLOBAL-OBJECTS) (DESC "your ears") (SYNONYM EAR EARS) (
+ADJECTIVE YOUR MY) (FLAGS NARTICLEBIT)> 
+<OBJECT PROTAGONIST (SYNONYM PROTAGONI) (DESC "it") (FLAGS NDESCBIT INVISIBLE)
+(ACTION PROTAGONIST-F)> 
+<DEFINE-ROUTINE PROTAGONIST-F> 
+<OBJECT ME (LOC GLOBAL-OBJECTS) (SYNONYM I ME MYSELF SELF) (DESC "yourself") (
+FLAGS ACTORBIT TOUCHBIT NARTICLEBIT) (ACTION ME-F)> 
+<DEFINE-ROUTINE ME-F> 
+<OBJECT GLOBAL-ROOM (LOC GLOBAL-OBJECTS) (DESC "room") (SYNONYM ROOM CHAMBER
+PLACE HALL) (ADJECTIVE AREA) (ACTION GLOBAL-ROOM-F)> 
+<DEFINE-ROUTINE GLOBAL-ROOM-F> 
+<OBJECT OBJECT-OF-GAME (LOC GLOBAL-OBJECTS) (DESC "object of the game") (
+SYNONYM OBJECT GAME GOAL) (FLAGS VOWELBIT) (ACTION OBJECT-OF-GAME-F)> 
+<DEFINE-ROUTINE OBJECT-OF-GAME-F> 
+<OBJECT CONTROLS (LOC LOCAL-GLOBALS) (DESC "the controls") (SYNONYM CONTROLS
+PANEL CONSOLE) (ADJECTIVE CONTROL) (FLAGS NARTICLEBIT) (ACTION CONTROLS-F)> 
+<DEFINE-ROUTINE CONTROLS-F> 
+<OBJECT CONVERSATION (LOC LOCAL-GLOBALS) (DESC "conversation") (SYNONYM
+CONVERSAT) (FLAGS DARKBIT INVISIBLE) (ACTION CONVERSATION-F)> 
+<DEFINE-ROUTINE CONVERSATION-F> 
+<OBJECT GUARDS (LOC LOCAL-GLOBALS) (DESC "one of the guards") (SYNONYM ONE
+GUARD GUARDS) (ADJECTIVE VOGON) (FLAGS VOWELBIT NARTICLEBIT NDESCBIT ACTORBIT
+CONTBIT SEARCHBIT OPENBIT) (ACTION GUARDS-F)> 
+<DEFINE-ROUTINE GUARDS-F> 
+<DEFINE-ROUTINE WEAPON-PSEUDO> 
+<OBJECT FRUSTATION (LOC GLOBAL-OBJECTS) (DESC "problem") (SYNONYM FRUSTRATI
+PROBLEM PUZZLE) (ACTION FRUSTRATION-F)> 
+<DEFINE-ROUTINE FRUSTRATION-F> 
+<DEFINE-ROUTINE UNIMPORTANT-THING-F> 
+<DEFINE-ROUTINE DONT-F> 
+<GLOBAL VOGON-PROB 100> 
+<GLOBAL HEART-PROB 0> 
+<GLOBAL TRAAL-PROB 60> 
+<GLOBAL FLEET-PROB 0> 
+<GLOBAL WHALE-PROB 0> 
+<GLOBAL TRILLIAN-PROB 15> 
+<GLOBAL ZAPHOD-PROB 0> 
+<GLOBAL FORD-PROB 15> 
+<GLOBAL DREAMING <>> 
+<GLOBAL DARK-COUNTER 0> 
+<GLOBAL DARK-FLAG <>> 
+<GLOBAL CURRENT-EXIT 0> 
+<GLOBAL GROGGY <>> 
+<GLOBAL LYING-COUNTER 0> 
+<GLOBAL GUTS-ROOM <>> 
+<ROOM DARK (LOC ROOMS) (SYNONYM SUNGLASSE GLASSES JANTA) (ADJECTIVE JOO JANTA
+PERIL SENSITIVE) (DESC "Dark") (FLAGS RLANDBIT ONBIT) (ACTION DARK-F)> 
+<DEFINE-ROUTINE DARK-F> 
+<OBJECT DARK-OBJECT (LOC GLOBAL-OBJECTS) (DESC "darkness") (SYNONYM DARK
+DARKNESS NOTHING) (FLAGS NDESCBIT NARTICLEBIT)> 
+<OBJECT SHADOW (LOC LOCAL-GLOBALS) (DESC "shadow") (SYNONYM SHADOW) (FLAGS
+NDESCBIT)> 
+<OBJECT LIQUID (LOC LOCAL-GLOBALS) (DESC "liquid") (SYNONYM LIQUID) (ADJECTIVE
+HOT COLD WARM WET SQUISHY) (FLAGS NDESCBIT DRINKBIT)> 
+<OBJECT PAINFUL-LIGHT (LOC LOCAL-GLOBALS) (DESC "light") (SYNONYM LIGHT) (
+ADJECTIVE PAINFUL BRIGHT) (FLAGS NDESCBIT)> 
+<OBJECT STAR-DRIVE (LOC LOCAL-GLOBALS) (DESC "star drive") (SYNONYM DRIVE HUM)
+(ADJECTIVE STAR DEEP DISTANT) (FLAGS NDESCBIT)> 
+<DEFINE-ROUTINE DARK-FUNCTION> 
+<CONSTANT DARK-EXIT-TABLE <PTABLE HOLD COUNTRY-LANE LIVING-ROOM ENTRY-BAY LAIR
+SPEEDBOAT INSIDE-WHALE WAR-CHAMBER>> 
+<DEFINE-ROUTINE LEAVE-DARK> 
+<DEFINE-ROUTINE MISSING?> 
+<DEFINE-ROUTINE DARK-ONE> 
+<DEFINE-ROUTINE DARK-TWO> 
+<DEFINE-ROUTINE DARK-THREE> 
+<DEFINE-ROUTINE DARK-FOUR> 
+<DEFINE-ROUTINE BEAST-GUARD-FORD> 
+<DEFINE-ROUTINE I-BRAIN-DEATH> 
+<OBJECT TOOTHBRUSH (LOC BEDROOM) (DESC "toothbrush") (SYNONYM TOOTHBRUS BRUSH
+TOOL TOOLS) (ADJECTIVE TOOTH MY PROPER) (FLAGS TAKEBIT TRYTAKEBIT TOOLBIT) (
+SIZE 3) (GENERIC TWEEZERS) (ACTION TOOTHBRUSH-F)> 
+<DEFINE-ROUTINE TOOTHBRUSH-F> 
+<OBJECT SCREWDRIVER (LOC BEDROOM) (DESC "flathead screwdriver") (SYNONYM
+SCREWDRIV TOOL TOOLS) (ADJECTIVE FLATHEAD PROPER) (FLAGS TAKEBIT TRYTAKEBIT
+TOOLBIT) (SIZE 3) (GENERIC TWEEZERS)> 
+<OBJECT WRENCH (LOC TOOLBOX) (DESC "laser-assisted monkey wrench") (SYNONYM
+WRENCH TOOL TOOLS) (ADJECTIVE LASER ASSISTED LASER-ASS MONKEY PROPER) (FLAGS
+TAKEBIT TOOLBIT) (SIZE 3) (GENERIC TWEEZERS)> 
+<OBJECT CHISEL (LOC PANTRY) (DESC "thermo-fusion chisel") (SYNONYM CHISEL TOOL
+TOOLS) (ADJECTIVE THERMO FUSION THERMO-FU PROPER) (FLAGS TAKEBIT TOOLBIT) (SIZE
+3) (GENERIC TWEEZERS)> 
+<OBJECT AWL (LOC WAR-CHAMBER) (DESC "ultra-plasmic vacuum awl") (SYNONYM AWL
+TOOL TOOLS) (ADJECTIVE ULTRA PLASMIC ULTRA-PLA VACUUM PROPER) (FLAGS TAKEBIT
+VOWELBIT TOOLBIT) (SIZE 3) (GENERIC TWEEZERS)> 
+<OBJECT PLIERS (LOC LOCAL-GLOBALS) (DESC "pair of hypersonic pliers") (SYNONYM
+PAIR PLIERS TOOL TOOLS) (ADJECTIVE HYPERSONI PROPER) (FLAGS TAKEBIT TOOLBIT) (
+SIZE 3) (GENERIC TWEEZERS)> 
+<OBJECT TWEEZERS (LOC HANDBAG) (DESC "pair of tweezers") (SYNONYM TWEEZERS
+TWEEZER PAIR TOOL TOOLS) (ADJECTIVE PROPER) (FLAGS TAKEBIT TOOLBIT) (SIZE 3) (
+GENERIC TWEEZERS)> 
+<OBJECT PINCER (LOC BRIDGE) (DESC "molecular hyperwave pincer") (SYNONYM PINCER
+TOOL TOOLS) (ADJECTIVE MOLECULAR HYPERWAVE PROPER) (FLAGS TAKEBIT TOOLBIT) (
+SIZE 3) (GENERIC TWEEZERS)> 
+<OBJECT RASP (LOC LOCAL-GLOBALS) (DESC "ionic diffusion rasp") (SYNONYM RASP
+TOOL TOOLS) (ADJECTIVE IONIC DIFFUSION PROPER) (FLAGS TAKEBIT VOWELBIT TOOLBIT)
+(SIZE 3) (GENERIC TWEEZERS)> 
+<OBJECT CHIPPER (LOC LOCAL-GLOBALS) (DESC
+"number twelve asteroid paint chipper") (SYNONYM CHIPPER TOOL TOOLS) (ADJECTIVE
+NUMBER TWELVE ASTEROID PAINT PROPER) (FLAGS TAKEBIT TOOLBIT) (SIZE 3) (GENERIC
+TWEEZERS)> 
+<CONSTANT TOOL-LIST <PLTABLE SCREWDRIVER WRENCH CHISEL AWL PLIERS TWEEZERS
+PINCER RASP CHIPPER TOOTHBRUSH>> 
+<GLOBAL HOLDING-NO-TEA T> 
+<DEFINE-ROUTINE LIQUID-SPILL> 
+<DEFINE-ROUTINE ANTI-LITTER> 
+<OBJECT TEA (LOC PAD) (DESC "tea") (DESCFCN TEA-DESCFCN) (SYNONYM TEA CUP) (
+ADJECTIVE REAL NICE HOT) (FLAGS NARTICLEBIT TAKEBIT TRYTAKEBIT DRINKBIT) (
+ACTION TEA-F)> 
+<DEFINE-ROUTINE TEA-DESCFCN> 
+<DEFINE-ROUTINE DESCRIBE-DRINK> 
+<DEFINE-ROUTINE TEA-F> 
+<OBJECT NO-TEA (LOC GLOBAL-OBJECTS) (DESC "no tea") (SYNONYM TEA) (ADJECTIVE NO
+) (FLAGS NARTICLEBIT TRYTAKEBIT) (ACTION NO-TEA-F)> 
+<DEFINE-ROUTINE NO-TEA-F> 
+<DEFINE-ROUTINE TEA-PRINT> 
+<OBJECT THUMB (LOC SATCHEL) (DESC "electronic Sub-Etha signaling device") (
+SYNONYM THUMB DEVICE SENSO) (ADJECTIVE ELECTRONI SUB-ETHA SIGNALING SMALL BLACK
+LITTLE BLINKING) (SIZE 10) (FLAGS TAKEBIT VOWELBIT CONTBIT OPENBIT) (ACTION
+THUMB-F)> 
+<DEFINE-ROUTINE THUMB-F> 
+<OBJECT RED-BUTTON (LOC THUMB) (DESC "red button") (SYNONYM BUTTON) (ADJECTIVE
+RED SMALL) (FLAGS NDESCBIT INTEGRALBIT) (SIZE 1) (ACTION RED-BUTTON-F)> 
+<DEFINE-ROUTINE RED-BUTTON-F> 
+<OBJECT GREEN-BUTTON (LOC THUMB) (DESC "green button") (SYNONYM BUTTON) (
+ADJECTIVE GREEN SMALL HITCHHIKE) (FLAGS NDESCBIT INTEGRALBIT) (SIZE 1) (ACTION
+GREEN-BUTTON-F)> 
+<DEFINE-ROUTINE GREEN-BUTTON-F> 
+<OBJECT GUARANTEE (LOC THUMB) (DESC "guarantee") (SYNONYM GUARANTEE WARRANTY
+PLAQUE) (ADJECTIVE LIFETIME) (FLAGS NDESCBIT INTEGRALBIT) (SIZE 2) (ACTION
+GUARANTEE-F)> 
+<DEFINE-ROUTINE GUARANTEE-F> 
+<OBJECT ENGINEER (LOC LOCAL-GLOBALS) (DESC "Engineer robot") (SYNONYM ROBOT
+ENGINEER) (ADJECTIVE ENGINE) (FLAGS VOWELBIT ACTORBIT CONTBIT OPENBIT SEARCHBIT
+) (ACTION ENGINEER-F)> 
+<DEFINE-ROUTINE ENGINEER-F> 
+<GLOBAL ENGINEER-COUNTER 0> 
+<GLOBAL THUMB-SHOWN 0> 
+<DEFINE-ROUTINE ENGINEER-LEAVE> 
+<DEFINE-ROUTINE I-ENGINEER> 
+<OBJECT BIKE (LOC LOCAL-GLOBALS) (DESC "bike") (SYNONYM BIKE CYCLE) (ADJECTIVE
+ION) (FLAGS NDESCBIT TRYTAKEBIT)> 
+<OBJECT GUIDE (LOC SATCHEL) (DESC "The Hitchhiker's Guide") (DESCFCN
+GUIDE-DESCFCN) (SYNONYM COPY GUIDE) (ADJECTIVE HITCHHIKE SUB-ETHA) (SIZE 10) (
+FLAGS NARTICLEBIT TAKEBIT READBIT) (TEXT
+"Try: CONSULT GUIDE ABOUT (something).") (ACTION GUIDE-F)> 
+<DEFINE-ROUTINE GUIDE-DESCFCN> 
+<DEFINE-ROUTINE GUIDE-F> 
+<CONSTANT SPACE-TEXT
+"If you hyperventilate and then empty your lungs, you will last about thirty
+seconds in the vacuum of space. However, because space is so vastly hugely
+mind-bogglingly big, getting picked up by another ship within those thirty
+seconds is almost infinitely improbable."> 
+<DEFINE-ROUTINE CANT-SEE> 
+<DEFINE-ROUTINE TELL-ME-HOW> 
+<DEFINE-ROUTINE OUT-OF-FIRST> 
+<DEFINE-ROUTINE PRIVATE> 
+<DEFINE-ROUTINE NOT-VERY-GOOD> 
+<DEFINE-ROUTINE FACTOR> 
+<DEFINE-ROUTINE REMOVING-BIT> 
+<DEFINE-ROUTINE PART-OF> 
+<DEFINE-ROUTINE BUT-THAT-MAN> 
+<DEFINE-ROUTINE CUSHION> 
+<DEFINE-ROUTINE FINE-PRODUCT> 
+<DEFINE-ROUTINE MAKE-WAY-FOR> 
+<DEFINE-ROUTINE OWN-FEET> 
+<CONSTANT DOWN-WELL "It goes down well."> 
+<CONSTANT NOT-PLUGGED "It's not plugged into anything!"> 
+<CONSTANT LYING-ABOUT-EXIT "(We were lying about the exit to port.) "> 
+<CONSTANT ROARS-OFF " roars off on his ion bike into the Sub-Etha"> 
+<CONSTANT FIDDLES
+"He fiddles with the Thumb for a moment or two before handing it back. "> 
+<CONSTANT LOOK-AROUND "Look around you."> 
+<CONSTANT TOO-DARK "It's too dark to see!"> 
+<CONSTANT CANT-GO "You can't go that way."> 
+<CONSTANT YOU-ARE "You already are!"> 
+<CONSTANT ALREADY-OPEN "It is already open."> 
+<CONSTANT ALREADY-CLOSED "It is already closed."> 
+<CONSTANT REFERRING "I don't see what you're referring to."> 
+<CONSTANT WHILE-LYING "You can't do that while you're lying down!"> 
+<CONSTANT WITH-TOWEL "With a towel wrapped around your head!?!"> 
+<CONSTANT ZEN "A brave, Zen-like effort. It fails."> 
+<CONSTANT BULLDOZER-PILES "The bulldozer piles into the side of your home."> 
+<CONSTANT IT-LOOKS-LIKE "It looks like"> 
+<CONSTANT CLAWS " its tungsten carbide Vast-Pain claws"> 
+<CONSTANT PRESIDENT " President of the Galaxy"> 
+<CONSTANT SCC "Sirius Cybernetics Corporation"> 
+<CONSTANT BEAM " matter transference beam"> 
+<CONSTANT FLEET-PLUNGES "The battle fleet plunges toward Earth and"> 
+<CONSTANT ABOVE-NOISE "He can't hear you above the noise."> 
+<CONSTANT BATTLE-SHORTS " black jewelled battle shorts, "> 
+<CONSTANT CLOUD-OF-STEAM " in a cloud of green, sweet-smelling steam. "> 
+<CONSTANT GUIDE-NAME "The Hitchhiker's Guide to the Galaxy"> 
+<CONSTANT ALREADY-KNOW-THAT
+" But then again you must already know that, since you bought one."> 
+<CONSTANT THUMB-CLICKS " Thumb merely makes a few feeble clicking noises."> 
+<CONSTANT BROWNIAN " Brownian motion"> 
+<CONSTANT ASK-ABOUT-OBJECT
+"\"Oh...you're trying to figure that out also? The
+manual's not much help, is it? By the way, do you know your score? I don't.
+My computer doesn't have a status line.\""> 
+<CONSTANT DRIVEN-BACK
+"You struggle to reach the Thumb, but the wind is too
+fierce and you are driven back."> 
+<CONSTANT GUARDS-REALIZE
+"A wisp of an inkling of a thought penetrates the
+three-inch thickness of solid bone surrounding the guards' very tiny brains
+that something suspicious is going on. "> 
+<CONSTANT GETTING-CLOSE " You're getting close, though."> 
+<CONSTANT GPP "Genuine People Personalities"> 
+<CONSTANT ALSO-SEE ". Also see the entries on "> 
+<CONSTANT JUST-AS
+"Just as the Beast is trying to work out where you've disappeared to, it "> 
+<CONSTANT BUDGE "It won't budge."> 
+<CONSTANT BEAST-DESC
+"You notice the Beast's Lasero-Zap eyes, its Swivel Shear Teeth, and its
+several dozen tungsten carbide Vast-Pain claws, forged in the sun furnaces
+of Zangrijad. It has skin like a motorway and breath like a 747."> 
+<CONSTANT NOT-HOLDING "You're not holding"> 
+<CONSTANT WITH-PASSION
+" with passion, and ignores a passing microscopic space fleet."> 
+<CONSTANT DIALING-TONE
+" A moment later, the dialing tone is suddenly cut off.
+Glancing through the window you can't help but notice the large old oak tree of
+which you are particularly fond crashing down through the phone cable."> 
+<CONSTANT ANNOUNCEMENT "\"Announcement, announcement. This is "> 
+<CONSTANT HANDS-OFF "The barman snaps \"Hands off until you pay for it!\""> 
+<CONSTANT ARRESTED "Do you want to get arrested for indecent exposure?"> 
+<CONSTANT AGENCY "Galactic Security Agency"> 
+<CONSTANT LOST-PLANET " the legendary lost planet of Magrathea"> 
+<CONSTANT DONT-MIX
+"Despite your hangover, you recall that Zaphod and water don't mix."> 
+<CONSTANT CROWD-CHEERS "The crowd cheers wildly! It thinks you're terrific."> 
+<CONSTANT HUMANS "Humans are so depressingly "> 
+<CONSTANT EYE-STALK "electronic eye stalk shoots up from the hood, "> 
+<CONSTANT SLOWLY-DAWNS
+" Slowly it dawns on the creature that someone is trying to make a fool
+of it. It starts to look for you again."> 
+<CONSTANT IID " Infinite Improbability Drive"> 
+<CONSTANT FIG "finite Improbability Generator"> 
+<CONSTANT ROBOT-FLIES-IN
+"A small upper-half-of-the-room cleaning robot flies into the room, "> 
+<CONSTANT ON-OTHER-SIDE "standing on the other side"> 
+<CONSTANT MOP " the manual override receptacle"> 
+<CONSTANT NICE-DAY
+"t's a bright morning, the sun is shining, the birds are
+singing, the meadows are blooming"> 
+<CONSTANT GET-RID " you've been trying to get rid of it for years."> 
+<CONSTANT THUMB-FUMBLE
+"You fumble with the Thumb as you hold onto the tree
+against the fierce wind. It falls to the ground near Arthur's feet."> 
+<CONSTANT ENGAGED " all circuits are currently engaged by the "> 
\ No newline at end of file
diff --git a/globals.zap b/globals.zap
new file mode 100644
index 0000000..532c9f6
--- /dev/null
+++ b/globals.zap
@@ -0,0 +1,1753 @@
+
+
+	.FUNCT	INIT-STATUS-LINE
+	LESS?	WIDTH,38 \?CND1
+	PRINTI	"[Screen too narrow.]"
+	CRLF	
+	QUIT	
+?CND1:	SET	'OHERE,FALSE-VALUE
+	SET	'OLD-LEN,0
+	SPLIT	1
+	SCREEN	S-WINDOW
+	HLIGHT	H-INVERSE
+	CURSET	1,1
+	ICALL2	PRINT-SPACES,WIDTH
+	GRTR?	WIDTH,74 \?CND5
+	CURSET	1,51
+	PRINTI	"Score:"
+	CURSET	1,64
+	PRINTI	"Moves:"
+?CND5:	HLIGHT	H-NORMAL
+	SCREEN	S-TEXT
+	RTRUE	
+
+
+	.FUNCT	UPDATE-STATUS-LINE
+	SCREEN	S-WINDOW
+	HLIGHT	H-NORMAL
+	HLIGHT	H-INVERSE
+	EQUAL?	HERE,OHERE /?CND1
+	SET	'OHERE,HERE
+	DIROUT	D-TABLE-ON,SL-TABLE
+	ICALL1	SAY-HERE
+	DIROUT	D-TABLE-OFF
+	CURSET	1,2
+	ICALL2	PRINT-SPACES,OLD-LEN
+	GET	SL-TABLE,0 >OLD-LEN
+	CURSET	1,2
+	ICALL1	SAY-HERE
+?CND1:	GRTR?	WIDTH,74 \?CCL5
+	CURSET	1,58
+	PRINTN	SCORE
+	PRINTC	32
+	CURSET	1,71
+	PRINTN	MOVES
+	JUMP	?CND3
+?CCL5:	DIROUT	D-TABLE-ON,SL-TABLE
+	PRINTN	SCORE
+	PRINTC	47
+	PRINTN	MOVES
+	PRINTC	32
+	DIROUT	D-TABLE-OFF
+	GET	SL-TABLE,0
+	ADD	STACK,1
+	SUB	WIDTH,STACK
+	CURSET	1,STACK
+	PRINTN	SCORE
+	PRINTC	47
+	PRINTN	MOVES
+	PRINTC	32
+?CND3:	HLIGHT	H-NORMAL
+	SCREEN	S-TEXT
+	RTRUE	
+
+
+	.FUNCT	PRINT-SPACES,CNT
+?PRG1:	DLESS?	'CNT,0 /TRUE
+	PRINTC	32
+	JUMP	?PRG1
+
+
+	.FUNCT	SAY-HERE
+	ZERO?	LIT \?PRG6
+	PRINTI	"Darkness"
+	RTRUE	
+?PRG6:	PRINTD	HERE
+	GRTR?	WIDTH,74 \TRUE
+	IN?	PROTAGONIST,POETRY-APPRECIATION-CHAIR \?CCL12
+	PRINTI	", in the chair"
+	RTRUE	
+?CCL12:	IN?	PROTAGONIST,HERE /?CCL16
+	PRINTI	", in the "
+	LOC	PROTAGONIST
+	PRINTD	STACK
+	RTRUE	
+?CCL16:	ZERO?	LYING-DOWN /TRUE
+	PRINTI	", lying down"
+	RTRUE	
+
+
+	.FUNCT	NOT-HERE-OBJECT-F,TBL,PRSO?,OBJ,X
+	SET	'PRSO?,TRUE-VALUE
+	EQUAL?	PRSO,NOT-HERE-OBJECT \?CCL3
+	EQUAL?	PRSI,NOT-HERE-OBJECT \?CCL3
+	PRINTR	"Those things aren't here!"
+?CCL3:	EQUAL?	PRSO,NOT-HERE-OBJECT \?CCL9
+	SET	'TBL,P-PRSO
+	JUMP	?CND1
+?CCL9:	SET	'TBL,P-PRSI
+	SET	'PRSO?,FALSE-VALUE
+?CND1:	ZERO?	PRSO? /?CCL12
+	EQUAL?	PRSA,V?FIND,V?FOLLOW,V?CALL /?CCL14
+	EQUAL?	PRSA,V?WHAT,V?WHERE,V?WHO /?CCL14
+	EQUAL?	PRSA,V?WAIT-FOR,V?WALK-TO,V?WHAT-ABOUT /?CCL14
+	EQUAL?	PRSA,V?I-AM,V?CARVE,V?CALL-WITH \?CND10
+?CCL14:	SET	'X,TRUE-VALUE
+	CALL	FIND-NOT-HERE,TBL,PRSO? >OBJ
+	ZERO?	OBJ /FALSE
+	EQUAL?	OBJ,NOT-HERE-OBJECT /?CND10
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?ASK-ABOUT,V?ASK-FOR,V?TELL-ABOUT /?CCL25
+	EQUAL?	PRSA,V?MY-NAME \?CND10
+?CCL25:	SET	'X,TRUE-VALUE
+	CALL	FIND-NOT-HERE,TBL,PRSO? >OBJ
+	ZERO?	OBJ /FALSE
+	EQUAL?	OBJ,NOT-HERE-OBJECT \TRUE
+?CND10:	ZERO?	X /?CCL35
+	PRINTI	"You'll have to be more specific, I'm afraid."
+	CRLF	
+	JUMP	?CND33
+?CCL35:	EQUAL?	WINNER,PROTAGONIST \?CCL39
+	PRINTI	"You can't "
+	EQUAL?	P-XNAM,W?POEM,W?POETRY,W?CONVERSAT \?PRG47
+	PRINTI	"hear"
+	JUMP	?CND42
+?PRG47:	PRINTI	"see"
+?CND42:	CALL2	NAME?,P-XNAM
+	ZERO?	STACK \?CND49
+	PRINTI	" any"
+?CND49:	ICALL2	NOT-HERE-PRINT,PRSO?
+	PRINTI	" here!"
+	CRLF	
+	JUMP	?CND33
+?CCL39:	EQUAL?	WINNER,FORD \?PRD58
+	ZERO?	FORD-SLEEPING \FALSE
+?PRD58:	EQUAL?	WINNER,BEAST \?PRG63
+	FSET?	BEAST,MUNGEDBIT /FALSE
+?PRG63:	PRINTI	"Looking confused,"
+	ICALL	ARTICLE,WINNER,TRUE-VALUE
+	PRINTI	" says, ""I don't see"
+	CALL2	NAME?,P-XNAM
+	ZERO?	STACK \?CND67
+	PRINTI	" any"
+?CND67:	ICALL2	NOT-HERE-PRINT,PRSO?
+	PRINTI	" here!"""
+	CRLF	
+?CND33:	CALL1	FUCKING-CLEAR
+	RSTACK	
+
+
+	.FUNCT	FIND-NOT-HERE,TBL,PRSO?,M-F,OBJ
+	CALL2	MOBY-FIND,TBL >M-F
+	EQUAL?	1,M-F \?CCL3
+	ZERO?	PRSO? /?CCL6
+	SET	'PRSO,P-MOBY-FOUND
+	RFALSE	
+?CCL6:	SET	'PRSI,P-MOBY-FOUND
+	RFALSE	
+?CCL3:	EQUAL?	P-XNAM,W?FLUFF \?CCL8
+	ZERO?	PRSO? /?CCL11
+	SET	'PRSO,POCKET-FLUFF
+	RFALSE	
+?CCL11:	SET	'PRSI,POCKET-FLUFF
+	RFALSE	
+?CCL8:	EQUAL?	P-XNAM,W?TOOL,W?TOOLS \?CCL13
+	ZERO?	PRSO? /?CCL16
+	SET	'PRSO,TWEEZERS
+	RFALSE	
+?CCL16:	SET	'PRSI,TWEEZERS
+	RFALSE	
+?CCL13:	RETURN	NOT-HERE-OBJECT
+
+
+	.FUNCT	NOT-HERE-PRINT,PRSO?,?TMP1
+	ZERO?	P-OFLAG /?CCL3
+	ZERO?	P-XADJ /?CND4
+	PRINTC	32
+	PRINTB	P-XADJ
+?CND4:	ZERO?	P-XNAM /FALSE
+	PRINTC	32
+	PRINTB	P-XNAM
+	RTRUE	
+?CCL3:	ZERO?	PRSO? /?CCL14
+	GET	P-ITBL,P-NC1 >?TMP1
+	GET	P-ITBL,P-NC1L
+	CALL	BUFFER-PRINT,?TMP1,STACK,FALSE-VALUE
+	RSTACK	
+?CCL14:	GET	P-ITBL,P-NC2 >?TMP1
+	GET	P-ITBL,P-NC2L
+	CALL	BUFFER-PRINT,?TMP1,STACK,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	LIGHT-F
+	IN?	FLEET,HERE /?PRD5
+	EQUAL?	HERE,AIRLOCK,INSIDE-WHALE \?CCL3
+?PRD5:	CALL2	VISIBLE?,THUMB
+	ZERO?	STACK /?CCL3
+	EQUAL?	LIGHT,PRSI \?CCL10
+	ICALL	PERFORM,PRSA,PRSO,THUMB
+	RTRUE	
+?CCL10:	ICALL	PERFORM,PRSA,THUMB,PRSI
+	RTRUE	
+?CCL3:	EQUAL?	HERE,GALLEY \?CCL12
+	CALL1	UNIMPORTANT-THING-F
+	RSTACK	
+?CCL12:	EQUAL?	LIGHT,PRSO \?CCL14
+	EQUAL?	PRSA,V?WHAT,V?FOLLOW,V?FIND /FALSE
+	EQUAL?	PRSA,V?WHAT-ABOUT,V?WALK-TO,V?WHERE /FALSE
+?CCL14:	EQUAL?	LIGHT,PRSI \?CCL20
+	EQUAL?	PRSA,V?TELL-ABOUT,V?ASK-ABOUT /FALSE
+?CCL20:	EQUAL?	HERE,BEDROOM /?CCL24
+	CALL2	CANT-SEE,LIGHT
+	RSTACK	
+?CCL24:	EQUAL?	PRSA,V?LAMP-ON \?CCL26
+	FSET?	HERE,ONBIT \?CCL29
+	PRINTR	"It is."
+?CCL29:	SET	'LIT,TRUE-VALUE
+	FSET	HERE,ONBIT
+	FSET	DARK-OBJECT,DARKBIT
+	MOVE	DARK-OBJECT,DARK
+	PRINTI	"Good start to the day. Pity it's going to be the worst one of your life. The light is now on."
+	CRLF	
+	CRLF	
+	ICALL1	V-LOOK
+	SET	'OHERE,FALSE-VALUE
+	RTRUE	
+?CCL26:	EQUAL?	PRSA,V?LAMP-OFF \FALSE
+	CALL1	V-DIG
+	RSTACK	
+
+
+	.FUNCT	GLOBAL-SLEEP-F
+	EQUAL?	PRSA,V?TAKE,V?WALK-TO \FALSE
+	ICALL2	PERFORM,V?SLEEP
+	RTRUE	
+
+
+	.FUNCT	SPEECH-F
+	EQUAL?	PRSA,V?MAKE,V?GIVE \?CCL3
+	PRINTI	"This isn't the time"
+	EQUAL?	HERE,DAIS /?PRG10
+	PRINTI	" or the place"
+?PRG10:	PRINTR	" for making speeches."
+?CCL3:	EQUAL?	PRSA,V?READ \FALSE
+	PRINTR	"It's extemporaneous."
+
+
+	.FUNCT	GROUND-F
+	EQUAL?	PRSA,V?THROUGH \?CCL3
+	EQUAL?	HERE,ACCESS-SPACE \?CCL3
+	PRINTR	"The mesh is too fine."
+?CCL3:	EQUAL?	PRSA,V?CLIMB-FOO,V?CLIMB-ON,V?CLIMB-UP /?CTR8
+	EQUAL?	PRSA,V?BOARD \?CCL9
+?CTR8:	CALL1	V-DIG
+	RSTACK	
+?CCL9:	EQUAL?	PRSA,V?LOOK-UNDER \?CCL13
+	CALL1	V-COUNT
+	RSTACK	
+?CCL13:	EQUAL?	PRSA,V?LEAVE \?CCL15
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+?CCL15:	EQUAL?	PRSA,V?LIE-DOWN \?CCL17
+	IN?	PROTAGONIST,BED \?CCL20
+	CALL2	OUT-OF-FIRST,BED
+	RSTACK	
+?CCL20:	ZERO?	LYING-DOWN /?CCL22
+	PRINT	YOU-ARE
+	CRLF	
+	RTRUE	
+?CCL22:	EQUAL?	HERE,FRONT-OF-HOUSE \?CCL26
+	ICALL	PERFORM,V?BLOCK,BULLDOZER
+	SET	'P-IT-OBJECT,GROUND
+	RTRUE	
+?CCL26:	SET	'LYING-DOWN,TRUE-VALUE
+	SET	'OHERE,FALSE-VALUE
+	PRINTR	"You are now lying on the ground."
+?CCL17:	EQUAL?	PRSA,V?EXAMINE \?CCL30
+	EQUAL?	HERE,GUTS-ROOM \?CCL33
+	PRINTR	"The walls, floor, and ceiling are covered with little pieces of flesh and bone."
+?CCL33:	EQUAL?	HERE,ACCESS-SPACE \FALSE
+	PRINTR	"The floor is an open metal mesh, like the floor of a catwalk."
+?CCL30:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL41
+	EQUAL?	HERE,ACCESS-SPACE \?CCL41
+	ICALL	PERFORM,V?LOOK-INSIDE,FISH-HOLE
+	SET	'P-IT-OBJECT,GROUND
+	RTRUE	
+?CCL41:	EQUAL?	PRSA,V?ENJOY \FALSE
+	EQUAL?	HERE,FRONT-OF-HOUSE \FALSE
+	ZERO?	LYING-DOWN /FALSE
+	PRINTR	"It occurs to you that you've never deliberately lain in any mud before and that it's actually a pleasant sort of squishy sensation. You let the mud ooze between your toes. You may be here for some time, so you may as well make the most of it."
+
+
+	.FUNCT	WALLS-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	EQUAL?	HERE,GUTS-ROOM \FALSE
+	ICALL	PERFORM,V?EXAMINE,GROUND
+	RTRUE	
+
+
+	.FUNCT	CEILING-F
+	EQUAL?	PRSA,V?LOOK-UNDER \?CCL3
+	ICALL2	PERFORM,V?LOOK
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	EQUAL?	HERE,GUTS-ROOM \FALSE
+	ICALL	PERFORM,V?EXAMINE,GROUND
+	RTRUE	
+
+
+	.FUNCT	WINDOW-F
+	ZERO?	LIT \?CCL3
+	PRINT	TOO-DARK
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?MUNG \?CCL7
+	ICALL	PERFORM,V?KILL,WINDOW
+	RTRUE	
+?CCL7:	EQUAL?	HERE,BEDROOM \?CCL9
+	EQUAL?	PRSA,V?EXAMINE,V?LOOK-INSIDE \?CCL12
+	ICALL	PERFORM,V?OPEN,CURTAINS
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	PRINTR	"The bloody thing's been jammed shut for months, now."
+?CCL9:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL18
+	PRINTR	"You see the country lane."
+?CCL18:	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	PRINT	BUDGE
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	STAIRS-F
+	EQUAL?	PRSA,V?CLIMB-FOO,V?CLIMB-UP \?CCL3
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?CLIMB-DOWN \FALSE
+	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+
+
+	.FUNCT	SKY-F
+	FSET?	HERE,OUTSIDEBIT /?CCL3
+	CALL2	CANT-SEE,SKY
+	RSTACK	
+?CCL3:	IN?	FLEET,HERE \FALSE
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"The sky is filled with the ships of the "
+	PRINTD	FLEET
+	PRINTR	"."
+
+
+	.FUNCT	STAR-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	EQUAL?	HERE,WAR-CHAMBER \?CCL6
+	PRINTI	"The approaching star is a small, unregarded yellow sun, with nine planets of varying sizes. The "
+	PRINTD	THIRD-PLANET
+	PRINTR	" catches your attention."
+?CCL6:	EQUAL?	HERE,DAIS,SPEEDBOAT \?CCL10
+	PRINTR	"The sun is a smallish orange star."
+?CCL10:	EQUAL?	HERE,FRONT-OF-HOUSE,COUNTRY-LANE,BACK-OF-HOUSE \?CCL14
+	PRINTR	"The sun is a smallish yellow star."
+?CCL14:	CALL2	CANT-SEE,STAR
+	RSTACK	
+
+
+	.FUNCT	HANDS-F,ACTOR
+	EQUAL?	PRSA,V?WAVE \?CCL3
+	SET	'PRSO,FALSE-VALUE
+	ICALL2	PERFORM,V?WAVE-AT
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?SHAKE \FALSE
+	CALL	FIND-IN,HERE,ACTORBIT >ACTOR
+	ZERO?	ACTOR /?PRG9
+	ICALL	PERFORM,V?THANK,ACTOR
+	RTRUE	
+?PRG9:	PRINTR	"Pleased to meet you."
+
+
+	.FUNCT	EYES-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	PRINTR	"They are."
+?CCL3:	EQUAL?	PRSA,V?CLOSE \FALSE
+	IN?	BEAST,HERE \?PRG13
+	PRINTI	"The Beast doesn't notice."
+	PRINT	GETTING-CLOSE
+	CRLF	
+	RTRUE	
+?PRG13:	PRINTR	"That won't help."
+
+
+	.FUNCT	PROTAGONIST-F
+	EQUAL?	PRSO,NO-TEA \FALSE
+	ZERO?	PRSI /FALSE
+	CALL1	NO-TEA-F
+	RSTACK	
+
+
+	.FUNCT	ME-F,OLIT
+	EQUAL?	PRSA,V?TELL \?CCL3
+	PRINTI	"Talking to yourself is a sign of impending mental collapse."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?LISTEN \?CCL7
+	PRINTR	"Yes?"
+?CCL7:	EQUAL?	PRSA,V?ALARM \?CCL11
+	PRINT	YOU-ARE
+	CRLF	
+	RTRUE	
+?CCL11:	EQUAL?	PRSA,V?GIVE \?CCL15
+	EQUAL?	PRSI,ME \?CCL15
+	IN?	PRSO,PROTAGONIST \?CCL20
+	EQUAL?	PRSO,BABEL-FISH,NO-TEA /?CCL20
+	CALL1	PRE-TAKE
+	RSTACK	
+?CCL20:	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?CCL15:	EQUAL?	PRSA,V?MOVE \?CCL24
+	CALL1	V-WALK-AROUND
+	RSTACK	
+?CCL24:	EQUAL?	PRSA,V?SEARCH \?CCL26
+	ICALL1	V-INVENTORY
+	RTRUE	
+?CCL26:	EQUAL?	PRSA,V?MUNG,V?KILL /?CTR27
+	EQUAL?	PRSA,V?SHOOT \?CCL28
+	EQUAL?	PRSI,BLASTER \?CCL28
+?CTR27:	ICALL2	JIGS-UP,STR?169
+	RTRUE	
+?CCL28:	EQUAL?	PRSA,V?FIND \?CCL34
+	PRINTR	"You're right here!"
+?CCL34:	EQUAL?	PRSA,V?WHO \?CCL38
+	PRINTI	"You are "
+	PRINTD	IDENTITY-FLAG
+	PRINTR	"."
+?CCL38:	EQUAL?	PRSA,V?EXAMINE \?CCL42
+	EQUAL?	HERE,MAZE \?CCL42
+	PRINTR	"You look perfectly normal (except that you're two microns tall)."
+?CCL42:	EQUAL?	PRSA,V?PULL-TOGETHER \?CCL48
+	PRINT	ZEN
+	CRLF	
+	RTRUE	
+?CCL48:	EQUAL?	PRSA,V?FOLLOW \FALSE
+	PRINTR	"I'd like to, but like most computers I don't have legs."
+
+
+	.FUNCT	GLOBAL-ROOM-F
+	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE,V?LOOK \?CCL3
+	ICALL1	V-LOOK
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \?CCL5
+	CALL1	V-WALK-AROUND
+	RSTACK	
+?CCL5:	EQUAL?	PRSA,V?EXIT,V?LEAVE \?CCL7
+	CALL2	DO-WALK,P?OUT
+	RSTACK	
+?CCL7:	EQUAL?	PRSA,V?WALK-AROUND \?CCL9
+	EQUAL?	HERE,CAPTAINS-QUARTERS \?PRG13
+	CALL1	V-STAND
+	RSTACK	
+?PRG13:	PRINTR	"Walking around the room reveals nothing new. To move elsewhere, just type the desired direction."
+?CCL9:	EQUAL?	PRSA,V?LAMP-ON \FALSE
+	ICALL	PERFORM,V?LAMP-ON,LIGHT
+	RTRUE	
+
+
+	.FUNCT	OBJECT-OF-GAME-F
+	EQUAL?	PRSA,V?WHAT \FALSE
+	PRINTR	"That's for me to know and you to find out."
+
+
+	.FUNCT	CONTROLS-F
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	EQUAL?	HERE,SPEEDBOAT \?CCL6
+	PRINTI	"The only control, other than those related to steering the boat, is the large red "
+	PRINTD	AUTOPILOT-BUTTON
+	PRINTC	46
+	ICALL1	FINE-PRODUCT
+	CRLF	
+	RTRUE	
+?CCL6:	EQUAL?	HERE,BRIDGE \FALSE
+	PRINTI	"Most of the controls are beyond your comprehension. "
+	IN?	LARGE-RECEPTACLE,HERE \?PRG23
+	PRINTI	"The simplest one is a "
+	PRINTD	LARGE-RECEPTACLE
+	PRINTI	" of some kind."
+	ZERO?	DRIVE-TO-CONTROLS /?CCL20
+	PRINTC	32
+	ICALL	PERFORM,V?EXAMINE,LARGE-RECEPTACLE
+	RTRUE	
+?CCL20:	CRLF	
+	RTRUE	
+?PRG23:	PRINTR	"A fused spot shows where a receptacle once was."
+
+
+	.FUNCT	CONVERSATION-F
+	EQUAL?	PRSA,V?LISTEN \FALSE
+	EQUAL?	HERE,FRONT-OF-HOUSE \?CCL6
+	PRINTR	"You can't hear anything from here."
+?CCL6:	ICALL	PERFORM,V?LISTEN,VLHURG
+	RTRUE	
+
+
+	.FUNCT	GUARDS-F
+	EQUAL?	GUARDS,WINNER \?CCL3
+	EQUAL?	PRSA,V?TELL-ABOUT \?CCL6
+	EQUAL?	PRSO,ME \?CCL6
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,GUARDS,PRSI
+	SET	'WINNER,GUARDS
+	RTRUE	
+?CCL6:	EQUAL?	PRSA,V?HELLO \?CCL10
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?HELLO,GUARDS
+	SET	'WINNER,GUARDS
+	RTRUE	
+?CCL10:	EQUAL?	HERE,DAIS \?CCL12
+	IN?	RIFLES,GUARDS \?PRD17
+	EQUAL?	PRSA,V?SHOOT \?PRD17
+	ZERO?	DONT-FLAG \?CTR14
+?PRD17:	IN?	RIFLES,GUARDS \?CCL15
+	ZERO?	DONT-FLAG \?CCL15
+	EQUAL?	PRSA,V?DROP \?CCL15
+	EQUAL?	PRSO,RIFLES \?CCL15
+?CTR14:	FCLEAR	RIFLES,NDESCBIT
+	CALL	QUEUE,I-GUARDS,8
+	PUT	STACK,0,1
+	MOVE	RIFLES,HERE
+	FSET	RIFLES,TAKEBIT
+	FSET	RIFLES,TRYTAKEBIT
+	PRINTR	"The guards hesitate, then toss their photon rifles into a pile in front of you."
+?CCL15:	EQUAL?	PRSA,V?SHOOT \?CCL28
+	IN?	RIFLES,GUARDS \?PRG32
+	CALL2	JIGS-UP,STR?170
+	RSTACK	
+?PRG32:	PRINTR	"Someone around here is being very stupid. Let's say it's the guards, since they're only fictitious characters and therefore not potential Infocom customers. The poor fictitious saps don't understand how they can shoot without rifles."
+?CCL28:	EQUAL?	PRSA,V?TAKE \?CCL35
+	EQUAL?	PRSO,RIFLES \?CCL35
+	IN?	RIFLES,GUARDS \?CCL40
+	PRINTR	"""We already have them!"""
+?CCL40:	MOVE	RIFLES,GUARDS
+	CALL	QUEUE,I-GUARDS,5
+	PUT	STACK,0,1
+	PRINTR	"They do so."
+?CCL35:	EQUAL?	PRSA,V?LEAVE \?PRG49
+	PRINTR	"""We can't leave while you're in trouble, Mr. President!"""
+?PRG49:	PRINTI	"You have failed to issue one of the small set of commands that the guards' military intelligences are trained to understand."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL12:	CALL	HELD?,BABEL-FISH,PROTAGONIST
+	ZERO?	STACK /?PRG56
+	PRINTI	"""Resistance is useless!"""
+	CRLF	
+	JUMP	?CND51
+?PRG56:	PRINTI	"""I"
+	ICALL2	PRODUCE-GIBBERISH,1
+	CRLF	
+?CND51:	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	EQUAL?	HERE,CAPTAINS-QUARTERS \?CCL59
+	EQUAL?	PRSA,V?THANK,V?HELLO,V?TELL \?CCL59
+	ICALL	PERFORM,V?TELL,VOGON-CAPTAIN
+	RTRUE	
+?CCL59:	EQUAL?	HERE,CAPTAINS-QUARTERS \?CCL63
+	EQUAL?	PRSA,V?ASK-FOR,V?ASK-ABOUT \?CCL63
+	EQUAL?	GUARDS,PRSO \?CCL63
+	ICALL	PERFORM,V?TELL,VOGON-CAPTAIN
+	RTRUE	
+?CCL63:	EQUAL?	PRSA,V?EXAMINE \?CCL68
+	IN?	RIFLES,GUARDS \?CCL68
+	PRINTR	"They're holding their photon rifles."
+?CCL68:	EQUAL?	HERE,DAIS \?CCL74
+	EQUAL?	PRSA,V?SHOOT \?CCL74
+	CALL1	BLASTER-HOLD
+	ZERO?	STACK \TRUE
+	PRINT	GUARDS-REALIZE
+	ICALL2	JIGS-UP,STR?171
+	RTRUE	
+?CCL74:	EQUAL?	PRSA,V?GIVE \?CCL82
+	EQUAL?	PRSO,BLASTER \?CCL82
+	PRINTI	"The guards are more than glad to disarm you. They"
+	ICALL1	GUARD-DEATH
+	RTRUE	
+?CCL82:	EQUAL?	PRSA,V?COUNT \FALSE
+	EQUAL?	HERE,HOLD \?CCL91
+	PRINTR	"One."
+?CCL91:	EQUAL?	HERE,CAPTAINS-QUARTERS \?PRG98
+	PRINTR	"Several."
+?PRG98:	PRINTR	"Many."
+
+
+	.FUNCT	WEAPON-PSEUDO
+	IN?	GUARDS,HERE /?CCL3
+	PRINTR	"What weapon?"
+?CCL3:	EQUAL?	PRSA,V?SHOOT \FALSE
+	PRINT	NOT-HOLDING
+	PRINTR	" it."
+
+
+	.FUNCT	FRUSTRATION-F
+	EQUAL?	PRSA,V?ENJOY \FALSE
+	PRINT	ZEN
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	UNIMPORTANT-THING-F
+	EQUAL?	PRSA,V?ASK-ABOUT \?PRG6
+	EQUAL?	PRSO,GUIDE /FALSE
+?PRG6:	PRINTR	"That's not important; leave it alone."
+
+
+	.FUNCT	DONT-F
+	EQUAL?	PRSA,V?PANIC \?CCL3
+	RANDOM	100
+	LESS?	50,STACK /?PRG9
+	PRINTR	"Very clever. It looks like there's a lot you should be panicking about."
+?PRG9:	PRINTR	"Why not? Your position appears quite hopeless."
+?CCL3:	EQUAL?	PRSA,V?LOOK \?CCL12
+	SET	'DONT-FLAG,FALSE-VALUE
+	ICALL	PERFORM,V?CLOSE,EYES
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?WAIT \?CCL14
+	PRINTR	"Time doesn't pass..."
+?CCL14:	EQUAL?	PRSA,V?TAKE \?CCL18
+	PRINTR	"Not taken."
+?CCL18:	EQUAL?	PRSA,V?LISTEN \?PRG25
+	CALL2	VISIBLE?,POETRY
+	ZERO?	STACK /?PRG25
+	SET	'DONT-FLAG,FALSE-VALUE
+	ICALL	PERFORM,V?LISTEN,POETRY
+	RTRUE	
+?PRG25:	PRINTR	"Not done."
+
+
+	.FUNCT	DARK-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	PUTP	PROTAGONIST,P?ACTION,DARK-FUNCTION
+	ICALL	ROB,PROTAGONIST,DARK-OBJECT
+	FSET	CONVERSATION,INVISIBLE
+	SET	'DREAMING,FALSE-VALUE
+	SET	'LYING-DOWN,FALSE-VALUE
+?PRG4:	RANDOM	100
+	LESS?	HEART-PROB,STACK /?CCL8
+	SET	'HEART-PROB,0
+	SET	'VOGON-PROB,10
+	SET	'DARK-FLAG,ENTRY-BAY
+	SET	'CURRENT-EXIT,3
+	JUMP	?CND6
+?CCL8:	RANDOM	100
+	LESS?	VOGON-PROB,STACK /?CCL10
+	SET	'VOGON-PROB,0
+	SET	'HEART-PROB,100
+	SET	'DARK-FLAG,HOLD
+	SET	'CURRENT-EXIT,0
+	JUMP	?CND6
+?CCL10:	RANDOM	100
+	LESS?	TRAAL-PROB,STACK /?CCL12
+	EQUAL?	TRAAL-PROB,10 /?CND13
+	SET	'TRAAL-PROB,10
+	SET	'TRILLIAN-PROB,25
+	SET	'FORD-PROB,25
+	SET	'ZAPHOD-PROB,25
+?CND13:	SET	'DARK-FLAG,LAIR
+	SET	'CURRENT-EXIT,4
+	JUMP	?CND6
+?CCL12:	RANDOM	100
+	LESS?	TRILLIAN-PROB,STACK /?CCL16
+	SET	'TRILLIAN-PROB,10
+	SET	'DARK-FLAG,LIVING-ROOM
+	SET	'CURRENT-EXIT,2
+	JUMP	?CND6
+?CCL16:	RANDOM	100
+	LESS?	FORD-PROB,STACK /?CCL18
+	SET	'FORD-PROB,10
+	SET	'DARK-FLAG,COUNTRY-LANE
+	SET	'CURRENT-EXIT,1
+	JUMP	?CND6
+?CCL18:	RANDOM	100
+	LESS?	ZAPHOD-PROB,STACK /?CCL20
+	SET	'ZAPHOD-PROB,10
+	SET	'DARK-FLAG,SPEEDBOAT
+	SET	'CURRENT-EXIT,5
+	JUMP	?CND6
+?CCL20:	RANDOM	100
+	LESS?	FLEET-PROB,STACK /?CCL22
+	SET	'FLEET-PROB,10
+	SET	'DARK-FLAG,WAR-CHAMBER
+	SET	'CURRENT-EXIT,7
+	JUMP	?CND6
+?CCL22:	RANDOM	100
+	LESS?	WHALE-PROB,STACK /?CND6
+	PRINTI	"Bug #60"
+	CRLF	
+	SET	'DARK-FLAG,INSIDE-WHALE
+	SET	'CURRENT-EXIT,6
+?CND6:	ZERO?	DARK-FLAG /?PRG4
+	RFALSE	
+?CCL3:	EQUAL?	RARG,M-LOOK /TRUE
+	RFALSE	
+
+
+	.FUNCT	DARK-FUNCTION
+	EQUAL?	PRSA,V?RESTORE,V?RESTART,V?QUIT /FALSE
+	EQUAL?	PRSA,V?SAVE,V?VERSION,V?SCORE /FALSE
+	EQUAL?	PRSA,V?BRIEF,V?VERBOSE,V?HINTS /FALSE
+	EQUAL?	PRSA,V?UNSCRIPT,V?SCRIPT,V?SUPERBRIEF /FALSE
+	EQUAL?	PRSA,V?FOOTNOTE /FALSE
+	ZERO?	DONT-FLAG \FALSE
+	EQUAL?	PRSA,V?YELL,V?PANIC \?CCL12
+	PRINTR	"You yell as loudly as you can, but no sound emerges."
+?CCL12:	EQUAL?	PRSA,V?RELAX /?PRG21
+	EQUAL?	PRSA,V?ENJOY \?CCL16
+	EQUAL?	PRSO,DARK-OBJECT \?CCL16
+?PRG21:	PRINTR	"You achieve a state of Negative Capability, and are able to be in uncertainties, mysteries, doubts, without any irritable searching after fact and reason (Footnote 1)."
+?CCL16:	EQUAL?	DARK-FLAG,ENTRY-BAY,WAR-CHAMBER \?CCL24
+	EQUAL?	PRSA,V?LISTEN \?CCL24
+	EQUAL?	PRSO,DARK-OBJECT \?CCL24
+	CALL1	MISSING?
+	ZERO?	STACK /?CCL24
+	MOVE	STAR-DRIVE,HERE
+	SET	'P-IT-OBJECT,STAR-DRIVE
+	PRINTI	"You hear the deep and distant hum of a "
+	PRINTD	STAR-DRIVE
+	PRINTI	" coming from far "
+	EQUAL?	DARK-FLAG,ENTRY-BAY \?PRG36
+	PRINTI	"above"
+	JUMP	?PRG38
+?PRG36:	PRINTI	"below"
+?PRG38:	PRINTR	". There is an exit to port."
+?CCL24:	EQUAL?	PRSA,V?WALK \?CCL41
+	CALL1	MISSING?
+	ZERO?	STACK /?CCL41
+	EQUAL?	DARK-FLAG,WAR-CHAMBER,ENTRY-BAY \?CCL41
+	IN?	STAR-DRIVE,HERE \?CCL41
+	EQUAL?	PRSO,P?SOUTH \?PRG55
+	LESS?	LYING-COUNTER,4 \?PRG53
+	PRINT	LYING-ABOUT-EXIT
+?PRG53:	PRINTI	"You emerge from a small doorway..."
+	CALL1	LEAVE-DARK
+	RSTACK	
+?PRG55:	PRINT	CANT-GO
+	EQUAL?	PRSO,P?WEST \?CND57
+	INC	'LYING-COUNTER
+	EQUAL?	LYING-COUNTER,4 \?CND57
+	PRINTC	32
+	PRINT	LYING-ABOUT-EXIT
+	PRINTR	"There is an exit aft..."
+?CND57:	CRLF	
+	RTRUE	
+?CCL41:	EQUAL?	PRSO,STAR-DRIVE /?PRD66
+	EQUAL?	PRSI,STAR-DRIVE \?CCL64
+?PRD66:	EQUAL?	PRSA,V?WALK /?CCL64
+	EQUAL?	DARK-FLAG,ENTRY-BAY,WAR-CHAMBER /?CCL71
+	CALL2	CANT-SEE,STAR-DRIVE
+	RSTACK	
+?CCL71:	EQUAL?	PRSA,V?LISTEN \FALSE
+	PRINTI	"The sound comes from far "
+	EQUAL?	DARK-FLAG,ENTRY-BAY \?PRG81
+	PRINTI	"above"
+	JUMP	?PRG83
+?PRG81:	PRINTI	"below"
+?PRG83:	PRINTR	"."
+?CCL64:	EQUAL?	DARK-FLAG,COUNTRY-LANE,SPEEDBOAT \?CCL86
+	EQUAL?	PRSA,V?EXAMINE \?CCL86
+	EQUAL?	PRSO,DARK-OBJECT \?CCL86
+	CALL1	MISSING?
+	ZERO?	STACK /?CCL86
+	MOVE	PAINFUL-LIGHT,HERE
+	SET	'P-IT-OBJECT,PAINFUL-LIGHT
+	PRINTI	"You see a painfully bright light that stabs at the "
+	EQUAL?	DARK-FLAG,COUNTRY-LANE \?PRG98
+	PRINTI	"front"
+	JUMP	?PRG100
+?PRG98:	PRINTI	"back"
+?PRG100:	PRINTR	" of your eyes."
+?CCL86:	EQUAL?	PRSO,PAINFUL-LIGHT /?PRD105
+	EQUAL?	PRSI,PAINFUL-LIGHT \?CCL103
+?PRD105:	EQUAL?	PRSA,V?WALK /?CCL103
+	EQUAL?	DARK-FLAG,SPEEDBOAT,COUNTRY-LANE /?CCL110
+	CALL2	CANT-SEE,PAINFUL-LIGHT
+	RSTACK	
+?CCL110:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"The light resolves itself into the bright "
+	EQUAL?	DARK-FLAG,COUNTRY-LANE \?PRG120
+	PRINTI	"yellow Sun of Earth"
+	JUMP	?PRG122
+?PRG120:	PRINTI	"orange Sun of "
+	PRINTD	DAMOGRAN
+?PRG122:	PRINTC	46
+	CALL1	LEAVE-DARK
+	RSTACK	
+?CCL103:	EQUAL?	DARK-FLAG,LIVING-ROOM,INSIDE-WHALE \?CCL125
+	EQUAL?	PRSA,V?RUB \?CCL125
+	EQUAL?	PRSO,DARK-OBJECT \?CCL125
+	CALL1	MISSING?
+	ZERO?	STACK /?CCL125
+	MOVE	LIQUID,HERE
+	SET	'P-IT-OBJECT,LIQUID
+	PRINTI	"It does feel a bit "
+	EQUAL?	DARK-FLAG,LIVING-ROOM \?PRG137
+	PRINTI	"cold"
+	JUMP	?PRG139
+?PRG137:	PRINTI	"warm"
+?PRG139:	PRINTR	" and wet and squishy. There seems to be some liquid at your fingertips."
+?CCL125:	EQUAL?	PRSO,LIQUID /?PRD144
+	EQUAL?	PRSI,LIQUID \?CCL142
+?PRD144:	EQUAL?	PRSA,V?WALK /?CCL142
+	EQUAL?	DARK-FLAG,LIVING-ROOM,INSIDE-WHALE /?CCL149
+	CALL2	CANT-SEE,LIQUID
+	RSTACK	
+?CCL149:	EQUAL?	DARK-FLAG,LIVING-ROOM \?CCL151
+	EQUAL?	PRSA,V?RUB,V?EXAMINE \?CCL154
+	PRINTR	"It seems coldish."
+?CCL154:	EQUAL?	PRSA,V?DRINK,V?TASTE \FALSE
+	PRINTI	"It tastes just like wine. In fact, you realise with growing embarrassment that "
+	PRINTD	HANDS
+	PRINTI	" is sitting in a "
+	PRINTD	WINE
+	PRINTC	46
+	CALL1	LEAVE-DARK
+	RSTACK	
+?CCL151:	EQUAL?	DARK-FLAG,INSIDE-WHALE \FALSE
+	EQUAL?	PRSA,V?RUB,V?EXAMINE \?CCL165
+	PRINTR	"It seems warmish."
+?CCL165:	EQUAL?	PRSA,V?DRINK,V?TASTE \FALSE
+	PRINTI	"Yucchhh! You are jerked to your senses by the realisation that you are licking the lining of a whale's stomach."
+	CALL1	LEAVE-DARK
+	RSTACK	
+?CCL142:	EQUAL?	DARK-FLAG,HOLD,LAIR \?CCL173
+	EQUAL?	PRSA,V?SMELL \?CCL173
+	EQUAL?	PRSO,DARK-OBJECT \?CCL173
+	CALL1	MISSING?
+	ZERO?	STACK /?CCL173
+	MOVE	SHADOW,HERE
+	SET	'P-IT-OBJECT,SHADOW
+	PRINTI	"It does smell a bit. There's something pungent "
+	EQUAL?	DARK-FLAG,HOLD \?PRG185
+	PRINTI	"being waved"
+	JUMP	?PRG187
+?PRG185:	PRINTI	"waving"
+?PRG187:	PRINTR	" under your nose. Your head begins to clear. You can make out a shadow moving in the dark."
+?CCL173:	EQUAL?	PRSO,SHADOW /?PRD192
+	EQUAL?	PRSI,SHADOW \?CCL190
+?PRD192:	EQUAL?	PRSA,V?WALK /?CCL190
+	EQUAL?	DARK-FLAG,HOLD,LAIR /?CCL197
+	CALL2	CANT-SEE,SHADOW
+	RSTACK	
+?CCL197:	EQUAL?	PRSA,V?EXAMINE \?CCL199
+	PRINTI	"The shadow is vaguely "
+	ICALL1	BEAST-GUARD-FORD
+	PRINTI	"-shaped."
+	CALL1	LEAVE-DARK
+	RSTACK	
+?CCL199:	EQUAL?	PRSA,V?RUB \?CCL205
+	PRINTI	"The shadow turns out to be a solid object of a "
+	ICALL1	BEAST-GUARD-FORD
+	PRINTI	"-like nature."
+	CALL1	LEAVE-DARK
+	RSTACK	
+?CCL205:	EQUAL?	PRSA,V?SMELL \FALSE
+	PRINTI	"The shadow has a sort of "
+	ICALL1	BEAST-GUARD-FORD
+	PRINTI	"y smell to it."
+	CALL1	LEAVE-DARK
+	RSTACK	
+?CCL190:	INC	'DARK-COUNTER
+	ZERO?	DARK-CONTROLLED /?CND216
+	INC	'CURRENT-EXIT
+	EQUAL?	CURRENT-EXIT,8 \?CND218
+	SET	'CURRENT-EXIT,0
+?CND218:	GET	DARK-EXIT-TABLE,CURRENT-EXIT >DARK-FLAG
+?CND216:	EQUAL?	PRSA,V?LOOK \?CND220
+	PRINTI	"Dark"
+	CRLF	
+?CND220:	RANDOM	100
+	LESS?	25,STACK /?CCL226
+	ICALL1	DARK-ONE
+	ICALL1	FUCKING-CLEAR
+	JUMP	?CND224
+?CCL226:	RANDOM	100
+	LESS?	33,STACK /?CCL228
+	ICALL1	DARK-TWO
+	ICALL1	FUCKING-CLEAR
+	JUMP	?CND224
+?CCL228:	RANDOM	100
+	LESS?	50,STACK /?CCL230
+	ICALL1	DARK-THREE
+	ICALL1	FUCKING-CLEAR
+	JUMP	?CND224
+?CCL230:	ICALL1	DARK-FOUR
+	ICALL1	FUCKING-CLEAR
+?CND224:	EQUAL?	DARK-COUNTER,18 \?CCL233
+	CRLF	
+	PRINTR	"When will you come to your senses and solve this puzzle?"
+?CCL233:	EQUAL?	DARK-COUNTER,33 \?CCL237
+	CRLF	
+	PRINTR	"4 out of 5 sensitive people solve this puzzle right away."
+?CCL237:	EQUAL?	DARK-COUNTER,48 \?CCL241
+	CRLF	
+	PRINTR	"Don't count your senses before they hatch."
+?CCL241:	EQUAL?	DARK-COUNTER,63 \TRUE
+	EQUAL?	DARK-FLAG,HOLD \TRUE
+	CRLF	
+	PRINTR	"Something stinks around here, and I'm not just talking about your puzzle-solving ability!"
+
+
+	.FUNCT	LEAVE-DARK
+	CRLF	
+	CRLF	
+	PUTP	PROTAGONIST,P?ACTION,PROTAGONIST-F
+	SET	'DARK-COUNTER,0
+	SET	'LYING-COUNTER,0
+	SET	'DARK-CONTROLLED,FALSE-VALUE
+	ICALL	ROB,DARK-OBJECT,PROTAGONIST
+	ICALL	ROB,MEMORIAL,PROTAGONIST
+	MOVE	SHADOW,LOCAL-GLOBALS
+	MOVE	PAINFUL-LIGHT,LOCAL-GLOBALS
+	MOVE	LIQUID,LOCAL-GLOBALS
+	MOVE	STAR-DRIVE,LOCAL-GLOBALS
+	ZERO?	FLUFF-TO-GOWN /?CND1
+	MOVE	SATCHEL-FLUFF,GOWN
+	SET	'FLUFF-TO-GOWN,FALSE-VALUE
+?CND1:	EQUAL?	DARK-FLAG,WAR-CHAMBER \?CCL5
+	FSET?	WAR-CHAMBER,REVISITBIT \?CCL5
+	CALL	QUEUE,I-BRAIN-DEATH,6
+	PUT	STACK,0,1
+	CALL2	META-LOC,SPARE-DRIVE >HERE
+	MOVE	PROTAGONIST,HERE
+	MOVE	NAME,HERE
+	SET	'OHERE,FALSE-VALUE
+	SET	'GUTS-ROOM,HERE
+	PRINTI	"There is a violent explosion around you, leaving you standing in"
+	ICALL	ARTICLE,HERE,TRUE-VALUE
+	PRINTI	". "
+	ICALL	PERFORM,V?EXAMINE,GROUND
+	CRLF	
+	PRINTI	"Apparently, you just materialised inside your own brain. This is very very very nasty. You have two choices: quit now, or experience this materialisation from the other end, in about five turns."
+	CRLF	
+	JUMP	?CND3
+?CCL5:	EQUAL?	DARK-FLAG,SPEEDBOAT \?CCL15
+	FSET?	SPEEDBOAT,REVISITBIT \?CCL15
+	ICALL2	GOTO,DAIS
+	JUMP	?CND3
+?CCL15:	EQUAL?	DARK-FLAG,ENTRY-BAY /?CND18
+	MOVE	MAIN-DRIVE,LOCAL-GLOBALS
+?CND18:	ICALL2	GOTO,DARK-FLAG
+?CND3:	SET	'DARK-FLAG,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	MISSING?
+	ZERO?	DARK-CONTROLLED \TRUE
+	GRTR?	DARK-COUNTER,3 /TRUE
+	RFALSE	
+
+
+	.FUNCT	DARK-ONE
+	PRINTI	"You can "
+	CALL1	MISSING?
+	ZERO?	STACK /?PRG7
+	EQUAL?	DARK-FLAG,WAR-CHAMBER,ENTRY-BAY /?CND3
+?PRG7:	PRINTI	"hear nothing, "
+?CND3:	CALL1	MISSING?
+	ZERO?	STACK /?PRG13
+	EQUAL?	DARK-FLAG,HOLD,LAIR /?PRG15
+?PRG13:	PRINTI	"smell nothing, "
+?PRG15:	PRINTI	"taste nothing, "
+	CALL1	MISSING?
+	ZERO?	STACK /?PRG21
+	EQUAL?	DARK-FLAG,COUNTRY-LANE,SPEEDBOAT /?CND17
+?PRG21:	PRINTI	"see nothing, "
+?CND17:	CALL1	MISSING?
+	ZERO?	STACK /?PRG27
+	EQUAL?	DARK-FLAG,LIVING-ROOM,INSIDE-WHALE /?PRG29
+?PRG27:	PRINTI	"feel nothing, "
+?PRG29:	PRINTR	"and are not even certain who you are."
+
+
+	.FUNCT	DARK-TWO
+	PRINTI	"You can "
+	CALL1	MISSING?
+	ZERO?	STACK /?PRG7
+	EQUAL?	DARK-FLAG,COUNTRY-LANE,SPEEDBOAT /?CND3
+?PRG7:	PRINTI	"see nothing, "
+?CND3:	CALL1	MISSING?
+	ZERO?	STACK /?PRG13
+	EQUAL?	DARK-FLAG,LIVING-ROOM,INSIDE-WHALE /?CND9
+?PRG13:	PRINTI	"feel nothing, "
+?CND9:	CALL1	MISSING?
+	ZERO?	STACK /?PRG19
+	EQUAL?	DARK-FLAG,WAR-CHAMBER,ENTRY-BAY /?PRG21
+?PRG19:	PRINTI	"hear nothing, "
+?PRG21:	PRINTI	"taste nothing, "
+	CALL1	MISSING?
+	ZERO?	STACK /?PRG27
+	EQUAL?	DARK-FLAG,HOLD,LAIR /?PRG29
+?PRG27:	PRINTI	"smell nothing, "
+?PRG29:	PRINTR	"and are not entirely certain who you are."
+
+
+	.FUNCT	DARK-THREE
+	PRINTI	"You can't "
+	CALL1	MISSING?
+	ZERO?	STACK /?PRG7
+	EQUAL?	DARK-FLAG,WAR-CHAMBER,ENTRY-BAY /?CND3
+?PRG7:	PRINTI	"hear anything, "
+?CND3:	CALL1	MISSING?
+	ZERO?	STACK /?PRG13
+	EQUAL?	DARK-FLAG,COUNTRY-LANE,SPEEDBOAT /?CND9
+?PRG13:	PRINTI	"see anything, "
+?CND9:	CALL1	MISSING?
+	ZERO?	STACK /?PRG19
+	EQUAL?	DARK-FLAG,HOLD,LAIR /?CND15
+?PRG19:	PRINTI	"smell anything, "
+?CND15:	CALL1	MISSING?
+	ZERO?	STACK /?PRG25
+	EQUAL?	DARK-FLAG,LIVING-ROOM,INSIDE-WHALE /?PRG27
+?PRG25:	PRINTI	"feel anything, "
+?PRG27:	PRINTR	"or taste anything, and do not even know where you are or who you are or how you got there."
+
+
+	.FUNCT	DARK-FOUR
+	PRINTI	"There's nothing you can taste, "
+	CALL1	MISSING?
+	ZERO?	STACK /?PRG7
+	EQUAL?	DARK-FLAG,COUNTRY-LANE,SPEEDBOAT /?CND3
+?PRG7:	PRINTI	"nothing you can see, "
+?CND3:	CALL1	MISSING?
+	ZERO?	STACK /?PRG13
+	EQUAL?	DARK-FLAG,WAR-CHAMBER,ENTRY-BAY /?CND9
+?PRG13:	PRINTI	"nothing you can hear, "
+?CND9:	CALL1	MISSING?
+	ZERO?	STACK /?PRG19
+	EQUAL?	DARK-FLAG,LIVING-ROOM,INSIDE-WHALE /?CND15
+?PRG19:	PRINTI	"nothing you can feel, "
+?CND15:	CALL1	MISSING?
+	ZERO?	STACK /?PRG25
+	EQUAL?	DARK-FLAG,HOLD,LAIR /?PRG27
+?PRG25:	PRINTI	"nothing you can smell, "
+?PRG27:	PRINTR	"you do not even know who you are."
+
+
+	.FUNCT	BEAST-GUARD-FORD
+	EQUAL?	DARK-FLAG,LAIR \?CCL3
+	PRINTI	"Bugblatter Beast"
+	RTRUE	
+?CCL3:	FSET?	HOLD,REVISITBIT \?PRG10
+	PRINTI	"guard"
+	RTRUE	
+?PRG10:	PRINTD	FORD
+	RTRUE	
+
+
+	.FUNCT	I-BRAIN-DEATH
+	CRLF	
+	PRINTI	"The "
+	PRINTD	ARTHUR
+	ICALL2	JIGS-UP,STR?172
+	RTRUE	
+
+
+	.FUNCT	TOOTHBRUSH-F
+	EQUAL?	PRSA,V?TAKE \FALSE
+	FSET?	TOOTHBRUSH,TOUCHBIT /FALSE
+	MOVE	TOOTHBRUSH,PROTAGONIST
+	FSET	TOOTHBRUSH,TOUCHBIT
+	FCLEAR	TOOTHBRUSH,TRYTAKEBIT
+	PRINTI	"As you pick up the "
+	PRINTD	TOOTHBRUSH
+	PRINTI	" a tree outside the window collapses. There is no causal relationship between these two events."
+	FSET?	PHONE,TOUCHBIT \?CND8
+	ICALL1	TWO-TREES
+?CND8:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	LIQUID-SPILL
+	EQUAL?	PRSI,PLANT,FLOWERPOT \?CCL3
+	ICALL	PERFORM,V?WATER,PRSI,PRSO
+	RTRUE	
+?CCL3:	MOVE	PRSO,LOCAL-GLOBALS
+	EQUAL?	PRSO,BROWNIAN-SOURCE \?CCL6
+	SET	'BROWNIAN-SOURCE,FALSE-VALUE
+	JUMP	?PRG8
+?CCL6:	EQUAL?	PRSO,PANEL-BLOCKER \?PRG8
+	SET	'PANEL-BLOCKER,FALSE-VALUE
+?PRG8:	PRINTI	"It spills all over and then evaporates."
+	EQUAL?	PRSO,MINERAL-WATER \?CCL12
+	ICALL2	ANTI-LITTER,STR?173
+	JUMP	?CND10
+?CCL12:	ICALL2	ANTI-LITTER,STR?10
+?CND10:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	ANTI-LITTER,STRING
+	PRINTI	" The "
+	PRINT	STRING
+	PRINTI	" itself vaporises, part of the Galactic Anti-Litter Program."
+	RTRUE	
+
+
+	.FUNCT	TEA-DESCFCN,X
+	CALL2	DESCRIBE-DRINK,TEA
+	RSTACK	
+
+
+	.FUNCT	DESCRIBE-DRINK,DRINK
+	PRINTI	"There is a nice, hot cup of "
+	PRINTD	DRINK
+	PRINTR	" here."
+
+
+	.FUNCT	TEA-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	EQUAL?	PRSO,TEA \?CCL3
+	MOVE	TEA,PROTAGONIST
+	SET	'HOLDING-NO-TEA,FALSE-VALUE
+	PRINTR	"no tea: Dropped."
+?CCL3:	EQUAL?	PRSA,V?DROP \?CCL9
+	MOVE	TEA,HERE
+	EQUAL?	HERE,ACCESS-SPACE \?CCL12
+	SET	'HOLDING-NO-TEA,TRUE-VALUE
+	CALL1	V-DROP
+	RSTACK	
+?CCL12:	ZERO?	HOLDING-NO-TEA /?CCL14
+	PRINTR	"Dropped."
+?CCL14:	SET	'HOLDING-NO-TEA,TRUE-VALUE
+	PRINTR	"no tea: Taken."
+?CCL9:	EQUAL?	PRSA,V?DRINK-FROM,V?ENJOY,V?DRINK \?CCL20
+	CALL2	HELD?,PRSO
+	ZERO?	STACK \?CND21
+	PRINT	NOT-HOLDING
+	PRINTR	" the cup!"
+?CND21:	ADD	SCORE,100 >SCORE
+	MOVE	TEA,LOCAL-GLOBALS
+	SET	'HOLDING-NO-TEA,TRUE-VALUE
+	EQUAL?	TEA,BROWNIAN-SOURCE \?PRG27
+	SET	'BROWNIAN-SOURCE,FALSE-VALUE
+?PRG27:	PRINTI	"It is the finest tea you have ever tasted. It has almost made this entire misadventure seem worthwhile. You experience several moments of complete happiness and relaxation."
+	ICALL2	ANTI-LITTER,STR?10
+	CRLF	
+	RTRUE	
+?CCL20:	EQUAL?	PRSA,V?THROW,V?POUR \?CCL30
+	CALL1	LIQUID-SPILL
+	RSTACK	
+?CCL30:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \FALSE
+	PRINT	IT-LOOKS-LIKE
+	PRINTI	" it has even more"
+	PRINT	BROWNIAN
+	PRINTI	" than "
+	PRINTD	SUBSTITUTE
+	PRINTC	33
+	EQUAL?	PRSO,BROWNIAN-SOURCE \?CCL37
+	PRINTC	32
+	ICALL	PERFORM,V?EXAMINE,DANGLY-BIT
+	RTRUE	
+?CCL37:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	NO-TEA-F
+	EQUAL?	PRSA,V?DROP,V?PICK-UP,V?TAKE \?CCL3
+	EQUAL?	PRSO,NO-TEA \?CCL3
+	FSET?	PARTICLE,MUNGEDBIT /?CCL3
+	PRINTR	"Your common sense tells you that you can't do that."
+?CCL3:	EQUAL?	PRSA,V?PICK-UP,V?TAKE \?CCL10
+	EQUAL?	PRSO,NO-TEA \?CCL10
+	ZERO?	HOLDING-NO-TEA \?CCL10
+	SET	'HOLDING-NO-TEA,TRUE-VALUE
+	PRINTR	"no tea: Taken."
+?CCL10:	EQUAL?	PRSA,V?GIVE,V?SHOW \?CCL17
+	EQUAL?	PRSI,SCREENING-DOOR /FALSE
+?CCL17:	EQUAL?	PRSA,V?ASK-ABOUT \?CCL21
+	EQUAL?	PRSO,GUIDE /FALSE
+?CCL21:	EQUAL?	PRSA,V?ASK-FOR \?PRG28
+	EQUAL?	PRSO,NUTRIMAT \?PRG28
+	ICALL	PERFORM,V?RUB,PAD
+	RTRUE	
+?PRG28:	PRINTR	"You're talking complete nonsense; pull yourself together."
+
+
+	.FUNCT	TEA-PRINT,OBJ
+	EQUAL?	OBJ,TEA,NO-TEA \TRUE
+	EQUAL?	PRSA,V?SHOW /TRUE
+	EQUAL?	OBJ,TEA \?CCL7
+	EQUAL?	PRSA,V?TAKE \?CCL10
+	CALL2	HELD?,TEA
+	ZERO?	STACK \TRUE
+	ZERO?	PRSI /FALSE
+	LOC	PRSO
+	EQUAL?	PRSI,STACK /FALSE
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?DROP \FALSE
+	ZERO?	HOLDING-NO-TEA /FALSE
+	RFALSE	
+?CCL7:	EQUAL?	OBJ,NO-TEA \TRUE
+	EQUAL?	PRSA,V?TAKE \TRUE
+	ZERO?	HOLDING-NO-TEA \TRUE
+	RFALSE	
+
+
+	.FUNCT	THUMB-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The "
+	PRINTD	THUMB
+	PRINTI	" is shaped like a small fist with an extended thumb. Various lights along its ""knuckles"" are currently "
+	IN?	FLEET,HERE /?PRG11
+	EQUAL?	HERE,AIRLOCK,INSIDE-WHALE \?PRG13
+?PRG11:	PRINTI	"blinking wildly, indicating a spaceship in the vicinity"
+	JUMP	?PRG15
+?PRG13:	PRINTI	"dark"
+?PRG15:	PRINTI	". It has two small buttons, a red one labelled ""Call Engineer"" and a green one labelled ""Hitchhike."""
+	ICALL1	FINE-PRODUCT
+	PRINTI	" Affixed to the Thumb is a lifetime "
+	PRINTD	GUARANTEE
+	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL20
+	EQUAL?	IDENTITY-FLAG,FORD \?CCL20
+	IN?	FLEET,HERE \?CCL20
+	IN?	THUMB,SATCHEL /?CCL20
+	PRINT	DRIVEN-BACK
+	CRLF	
+	RTRUE	
+?CCL20:	EQUAL?	PRSA,V?LOOK-INSIDE,V?CLOSE,V?OPEN \FALSE
+	PRINTR	"Impossible."
+
+
+	.FUNCT	RED-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \FALSE
+	CALL2	HELD?,THUMB
+	ZERO?	STACK \?CCL6
+	ICALL	PERFORM,V?PUSH,GREEN-BUTTON
+	RTRUE	
+?CCL6:	IN?	ENGINEER,HERE \?CCL8
+	PRINTI	"Another "
+	PRINTD	ENGINEER
+	PRINTR	" zips up, spots the first one, looks confused, and leaves again."
+?CCL8:	MOVE	ENGINEER,HERE
+	MOVE	BIKE,HERE
+	CALL	QUEUE,I-ENGINEER,2
+	PUT	STACK,0,1
+	PRINTI	"With a screech of ion brakes a "
+	PRINT	SCC
+	PRINTR	" Repair Robot pulls up on a bike from out of the Sub-Etha."
+
+
+	.FUNCT	GREEN-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \FALSE
+	CALL2	HELD?,THUMB
+	ZERO?	STACK \?CCL6
+	PRINT	NOT-HOLDING
+	PRINTI	" the "
+	PRINTD	THUMB
+	PRINTC	46
+	CRLF	
+	SET	'P-IT-OBJECT,THUMB
+	RETURN	P-IT-OBJECT
+?CCL6:	EQUAL?	IDENTITY-FLAG,FORD \?CCL10
+	IN?	FLEET,HERE \?CCL10
+	MOVE	THUMB,HERE
+	PRINT	THUMB-FUMBLE
+	CRLF	
+	RTRUE	
+?CCL10:	FSET?	THUMB,MUNGEDBIT \?CCL16
+	PRINTI	"The"
+	PRINT	THUMB-CLICKS
+	CRLF	
+	RTRUE	
+?CCL16:	IN?	FLEET,HERE \?CCL20
+	EQUAL?	DRUNK-LEVEL,3 \?PRG26
+	PRINTI	"Lights whirl sickeningly around your head, the ground arches away beneath your feet, and every atom of your being is scrambled, an experience you're probably going to have to get used to. You are in..."
+	CRLF	
+	CRLF	
+	ICALL1	LEAVE-EARTH
+	CALL2	GOTO,DARK
+	RSTACK	
+?PRG26:	PRINTC	65
+	PRINT	BEAM
+	ICALL2	JIGS-UP,STR?174
+	RTRUE	
+?CCL20:	EQUAL?	HERE,AIRLOCK,INSIDE-WHALE \?CCL29
+	PRINTI	"Every molecule in your body gets pulled away from every other molecule. Then suddenly they snap back together again like elastic, and you find, with a dizzy head and very sore molecules, that you are in..."
+	CRLF	
+	CRLF	
+	SET	'HEART-PROB,100
+	CALL2	GOTO,DARK
+	RSTACK	
+?CCL29:	FSET	THUMB,MUNGEDBIT
+	PRINTR	"The Thumb winks and flashes for a second. Nothing further happens."
+
+
+	.FUNCT	GUARANTEE-F
+	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
+	PRINTI	"The lifetime "
+	PRINTD	GUARANTEE
+	PRINTI	" states that the Thumb will be repaired on site by trained "
+	PRINT	SCC
+	PRINTR	" Field Engineers."
+
+
+	.FUNCT	ENGINEER-F
+	EQUAL?	ENGINEER,WINNER \?CCL3
+	CALL	QUEUE,I-ENGINEER,2
+	PUT	STACK,0,1
+	EQUAL?	PRSA,V?TELL-ABOUT \?CCL6
+	EQUAL?	PRSO,ME \?CCL6
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,ENGINEER,PRSI
+	SET	'WINNER,ENGINEER
+	RTRUE	
+?CCL6:	EQUAL?	PRSA,V?HELLO \?CCL10
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?HELLO,ENGINEER
+	SET	'WINNER,ENGINEER
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?REPAIR \?CCL12
+	EQUAL?	PRSO,THUMB \?CCL12
+	IN?	THUMB,ENGINEER \?CND15
+	PRINTR	"""I'm doing my best..."""
+?CND15:	SET	'WINNER,PROTAGONIST
+	MOVE	THUMB,PROTAGONIST
+	ICALL	PERFORM,V?GIVE,THUMB,ENGINEER
+	SET	'WINNER,ENGINEER
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?REPAIR \?CCL20
+	PRINTI	"""I repair only "
+	PRINTD	THUMB
+	PRINTR	"s!"""
+?CCL20:	EQUAL?	PRSA,V?YES \?CCL24
+	EQUAL?	AWAITING-REPLY,12 \?CCL24
+	CALL1	V-YES
+	RSTACK	
+?CCL24:	EQUAL?	PRSA,V?NO \?PRG31
+	EQUAL?	AWAITING-REPLY,12 \?PRG31
+	CALL1	V-NO
+	RSTACK	
+?PRG31:	PRINTI	"""Can't chat, pal, I'm attending to an important repair call."""
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?SHOW,V?GIVE \?CCL34
+	EQUAL?	PRSO,THUMB \?CCL34
+	FSET?	THUMB,MUNGEDBIT \?CCL39
+	CALL	QUEUE,I-ENGINEER,2
+	PUT	STACK,0,1
+	SET	'THUMB-SHOWN,1
+	MOVE	THUMB,ENGINEER
+	PRINTI	"The "
+	PRINTD	ENGINEER
+	PRINTI	" takes it, looks at it with horror, shakes his head, sighs, and says, ""Who sold you this then?"""
+	CRLF	
+	CRLF	
+	PRINTC	62
+	PUTB	P-INBUF,1,0
+	READ	P-INBUF,P-LEXV
+	PRINTI	"The "
+	PRINTD	ENGINEER
+	PRINTR	" ignores your reply and shakes the Thumb despondently. ""This is a model 13X,"" he says. ""Not meant for this sort of job. Anyway, it's discontinued. Can't get the parts."""
+?CCL39:	MOVE	THUMB,PROTAGONIST
+	ICALL1	ENGINEER-LEAVE
+	PRINTI	"The "
+	PRINTD	ENGINEER
+	PRINTI	" takes the Thumb, shakes it, looks it up and down. ""Seems to be working OK to me. Unusual for a 13X."" He hands it back and"
+	PRINT	ROARS-OFF
+	PRINTR	"."
+?CCL34:	EQUAL?	PRSA,V?SHOW,V?GIVE \FALSE
+	EQUAL?	PRSO,GUARANTEE \FALSE
+	FSET?	THUMB,MUNGEDBIT /?CND50
+	ICALL	PERFORM,V?GIVE,THUMB,ENGINEER
+	RTRUE	
+?CND50:	FCLEAR	THUMB,MUNGEDBIT
+	ICALL1	ENGINEER-LEAVE
+	MOVE	THUMB,PROTAGONIST
+	ZERO?	THUMB-SHOWN \?CCL54
+	PRINTI	"The "
+	PRINTD	ENGINEER
+	PRINTI	" looks quizzically at the "
+	PRINTD	GUARANTEE
+	PRINTI	" and says it's expired but he'll see what he can do. "
+	PRINT	FIDDLES
+	PRINTI	"""Can't promise anything."" He"
+	PRINT	ROARS-OFF
+	PRINTR	"."
+?CCL54:	SET	'THUMB-SHOWN,0
+	PRINTI	"The "
+	PRINTD	ENGINEER
+	PRINTI	" looks at it sceptically. ""Guaranteed to work normally for life,"" he mutters. ""Well, it's perfectly normal for a 13X to break down. And this one's reached the end of its life anyway. But I'll see what I can do."""
+	CRLF	
+	CRLF	
+	PRINT	FIDDLES
+	PRINTI	"""Best I can do for a 13X on an expired "
+	PRINTD	GUARANTEE
+	PRINTI	","" he says. ""Can't promise anything."" He"
+	PRINT	ROARS-OFF
+	PRINTR	"."
+
+
+	.FUNCT	ENGINEER-LEAVE
+	IN?	THUMB,ENGINEER \?CND1
+	IN?	ENGINEER,HERE \?CCL5
+	MOVE	THUMB,PROTAGONIST
+	JUMP	?CND1
+?CCL5:	LOC	ENGINEER
+	MOVE	THUMB,STACK
+?CND1:	MOVE	ENGINEER,LOCAL-GLOBALS
+	MOVE	BIKE,LOCAL-GLOBALS
+	CALL2	INT,I-ENGINEER
+	PUT	STACK,0,0
+	SET	'THUMB-SHOWN,0
+	SET	'ENGINEER-COUNTER,0
+	RETURN	ENGINEER-COUNTER
+
+
+	.FUNCT	I-ENGINEER
+	CALL	QUEUE,I-ENGINEER,-1
+	PUT	STACK,0,1
+	INC	'ENGINEER-COUNTER
+	IN?	ENGINEER,HERE /?CND1
+	ICALL1	ENGINEER-LEAVE
+	RFALSE	
+?CND1:	CRLF	
+	EQUAL?	THUMB-SHOWN,1 \?CCL5
+	SET	'THUMB-SHOWN,2
+	PRINTI	"The "
+	PRINTD	ENGINEER
+	PRINTR	" ignores you completely. ""See, this is the model with the 5kz booster,"" he says. ""Hopeless."" He shakes his head grimly."
+?CCL5:	EQUAL?	THUMB-SHOWN,2 \?CCL9
+	PRINTI	"The "
+	PRINTD	ENGINEER
+	PRINTI	" ignores you. ""What you want, you see, is one of the new Mk7's. Only you can't get them. Out of stock till Zarkmas. Sorry."" He"
+	IN?	THUMB,ENGINEER \?CND12
+	PRINTI	" gives the defunct Thumb back and"
+?CND12:	ICALL1	ENGINEER-LEAVE
+	PRINT	ROARS-OFF
+	PRINTR	"."
+?CCL9:	EQUAL?	ENGINEER-COUNTER,1 \?CCL19
+	SET	'AWAITING-REPLY,12
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTI	"The "
+	PRINTD	ENGINEER
+	PRINTR	" looks around. ""Somebody call the repair service?"""
+?CCL19:	EQUAL?	ENGINEER-COUNTER,2 \?CCL23
+	PRINTI	"The "
+	PRINTD	ENGINEER
+	PRINTR	" looks impatient and guns the throttle of his cycle."
+?CCL23:	ICALL1	ENGINEER-LEAVE
+	PRINTI	"""Probably a kid playing around with someone else's Thumb,"" grumbles the "
+	PRINTD	ENGINEER
+	PRINTI	" and"
+	PRINT	ROARS-OFF
+	PRINTR	"."
+
+
+	.FUNCT	GUIDE-DESCFCN,X
+	PRINTI	"There is a copy of "
+	PRINT	GUIDE-NAME
+	PRINTR	" here."
+
+
+	.FUNCT	GUIDE-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTR	"The Guide is a Mark II model. Its only resemblance to the Mark IV pictured in the brochure in your game package is the large, friendly ""Don't Panic!"" on its cover.
+
+The Guide is a Sub-Etha Relay. You can use it to tap information from a huge and distant data bank by consulting the Guide about some item or subject."
+?CCL3:	EQUAL?	PRSA,V?ASK-ABOUT \FALSE
+	EQUAL?	PRSO,GUIDE \FALSE
+	FSET?	TOWEL,WORNBIT \?CCL12
+	PRINT	WITH-TOWEL
+	CRLF	
+	RTRUE	
+?CCL12:	EQUAL?	PRSI,ACCESS-SPACE \?PRG18
+	PRINTI	"Suddenly, agents of the "
+	PRINT	AGENCY
+	PRINTI	" pop in using Sub-Etha belts, rough you up a bit, tell you there's no such thing as the "
+	PRINT	AGENCY
+	PRINTI	" and never to consult "
+	PRINTD	GUIDE
+	PRINTI	" about the "
+	PRINT	AGENCY
+	PRINTR	" again; then they leave."
+?PRG18:	PRINTI	"The Guide checks through its Sub-Etha-Net database and eventually comes up with the following entry:"
+	CRLF	
+	CRLF	
+	EQUAL?	PRSI,GUIDE \?CCL22
+	PRINTD	GUIDE
+	PRINTI	" is a wholly remarkable product."
+	PRINT	ALREADY-KNOW-THAT
+	CRLF	
+	RTRUE	
+?CCL22:	EQUAL?	PRSI,LARGE-PLUG,SMALL-RECEPTACLE,DANGLY-BIT /?PRG29
+	EQUAL?	PRSI,RED-BUTTON,GREEN-BUTTON,SMALL-PLUG \?CCL26
+?PRG29:	PRINTI	"Part of"
+	EQUAL?	PRSI,LARGE-PLUG \?CCL33
+	IN?	LARGE-PLUG,SPARE-DRIVE /?CCL33
+	ICALL2	ARTICLE,SPARE-DRIVE
+	JUMP	?PRG36
+?CCL33:	LOC	PRSI
+	ICALL2	ARTICLE,STACK
+?PRG36:	PRINTR	"."
+?CCL26:	EQUAL?	PRSI,WAR-CHAMBER \?CCL39
+	PRINTR	"If you have to consult the Guide about that, you're probably in serious shape. Consult a medic instead."
+?CCL39:	EQUAL?	PRSI,DAMOGRAN \?CCL43
+	PRINTD	DAMOGRAN
+	PRINTI	" is a planet whose surface is mostly water. It is a favourite spot for Presidential dedication ceremonies"
+	PRINT	ALSO-SEE
+	PRINTR	"France."
+?CCL43:	EQUAL?	PRSI,CLIFF \?CCL47
+	PRINTI	"France is the largest landmass on the planet "
+	PRINTD	DAMOGRAN
+	PRINTR	"."
+?CCL47:	EQUAL?	PRSI,HEART-OF-GOLD \?CCL51
+	PRINTI	"There is absolutely no such spaceship as "
+	PRINTD	HEART-OF-GOLD
+	PRINTI	" and anything you've ever read in this spot to the contrary was just a prank.
+   -- "
+	PRINT	AGENCY
+	CRLF	
+	RTRUE	
+?CCL51:	EQUAL?	PRSI,POETRY \?CCL55
+	PRINTD	POETRY
+	PRINTI	" is so awful that even the Sarkopsi of Burphon XII, whose religion strictly forbids the taking of one's life, consider suicide a preferable alternative to a "
+	PRINTD	POETRY
+	PRINTR	" reading."
+?CCL55:	EQUAL?	PRSI,FLEET,VOGON-CAPTAIN \?CCL59
+	PRINTI	"Vogons, whose specialties are bureaucracy and planet-smashing, are the most unpleasant race in the Galaxy. They wouldn't think twice about throwing someone into space, and wouldn't lift a finger to save their own grandmother from the "
+	PRINTD	BEAST
+	PRINT	ALSO-SEE
+	PRINTD	POETRY
+	PRINTI	" and the "
+	PRINTD	BEAST
+	PRINTR	"."
+?CCL59:	EQUAL?	PRSI,PUB,BEER \?CCL63
+	PRINTI	"Alcohol, in addition to its familiar enjoyable effects, also helps cushion the shock of"
+	PRINT	BEAM
+	PRINTR	"s."
+?CCL63:	EQUAL?	PRSI,BRIDGE \?CCL67
+	PRINTI	"The best randomness generator is simple"
+	PRINT	BROWNIAN
+	PRINTR	". Any hot gas or liquid is a good source."
+?CCL67:	EQUAL?	PRSI,GALLEY \?CCL71
+	PRINTI	"The "
+	PRINT	SCC
+	PRINTR	" incompetently produces a wide range of inefficient and unreliable high-tech machinery. However, thanks to SCC's ruthless marketing division, this junk accounts for over 95% of the high-tech machinery sold in the Galaxy. (SCC's marketing division will be the first against the wall when the revolution comes.)"
+?CCL71:	EQUAL?	PRSI,PANTRY \?CCL75
+	PRINTI	"Thirty million generations of philosophers have debated the definition of intelligence. The most popular definition appears in the "
+	PRINT	SCC
+	PRINTR	" android manuals: ""Intelligence is the ability to reconcile totally contradictory situations without going completely bonkers -- for example, having a stomach ache and not having a stomach ache at the same time, holding a hole without the doughnut, having good luck and bad luck simultaneously, or seeing a real estate agent waive his fee."""
+?CCL75:	EQUAL?	PRSI,SCREENING-DOOR \?CCL79
+	PRINTI	"These "
+	PRINT	SCC
+	PRINTI	" doors screen visitors for such qualities as intelligence and ability to time travel"
+	PRINT	ALSO-SEE
+	PRINT	SCC
+	PRINTI	", "
+	PRINT	GPP
+	PRINTR	", Intelligence, and Time Travel."
+?CCL79:	EQUAL?	PRSI,EDDIE,MARVIN,HATCHWAY \?CCL83
+	PRINT	GPP
+	PRINTI	" are a misguided attempt by the "
+	PRINT	SCC
+	PRINTR	" to make their machines behave more like people. Among the more miserable failures: paranoid-depressive robots and overprotective computers."
+?CCL83:	EQUAL?	PRSI,DARK \?CCL87
+	PRINTR	"A must for the serious hitchhiker, peril-sensitive sunglasses darken at the first hint of danger, thus shielding the wearer from seeing anything alarming. Recommended brand: Joo Janta."
+?CCL87:	EQUAL?	PRSI,RAMP \?CCL91
+	PRINTI	"According to legend, Magrathea was a planet that amassed incredible wealth by manufacturing "
+	PRINTD	OTHER-PLANETS
+	PRINTR	". The legends also mention it as the setting of the very eagerly awaited second Infocom Hitchhiker's game."
+?CCL91:	EQUAL?	PRSI,SPARE-DRIVE,MAIN-DRIVE,ENGINE-ROOM \?CCL95
+	PRINTI	"Scientists have long known how to produce FINITE amounts of improbability, using a "
+	PRINT	FIG
+	PRINTI	", an "
+	PRINTD	PLOTTER
+	PRINTI	" and a good source of"
+	PRINT	BROWNIAN
+	PRINTI	". Recently, however, they have learned to generate INFINITE amounts, thanks to the invention of the In"
+	PRINT	FIG
+	PRINTI	". It is rumored that an"
+	PRINT	IID
+	PRINTI	", based on this new generator, is currently under development"
+	PRINT	ALSO-SEE
+	PRINTD	PLOTTER
+	PRINTI	" and"
+	PRINT	BROWNIAN
+	PRINTR	"."
+?CCL95:	EQUAL?	PRSI,PLOTTER \?CCL99
+	PRINTI	"The "
+	PRINTD	PLOTTER
+	PRINTR	" is one of the primary application devices of Improbability Physics."
+?CCL99:	EQUAL?	PRSI,HOLD,PEANUTS \?CCL103
+	PRINTI	"Sources of protein, such as the common peanut, are carried by all serious hitchhikers. Protein loss occurs in"
+	PRINT	BEAM
+	PRINTR	"s and you will become groggy unless you replace it immediately."
+?CCL103:	EQUAL?	PRSI,NUT-COM-INTERFACE,NUTRIMAT \?CCL107
+	PRINTI	"A typically unreliable "
+	PRINT	SCC
+	PRINTI	" product, the "
+	PRINTD	NUTRIMAT
+	PRINTR	" analyses the user's neural paths to provide the (supposedly) ideal offering. Its computing power is frankly abysmal, so the optional computer interface is a good thing to go for."
+?CCL107:	EQUAL?	PRSI,SATCHEL-FLUFF,JACKET-FLUFF,POCKET-FLUFF /?PRG114
+	EQUAL?	PRSI,CUSHION-FLUFF \?CCL111
+?PRG114:	PRINTR	"Fluff is interesting stuff: a deadly poison on Bodega Minor, the diet staple of Frazelon V, the unit of currency on the moons of the Blurfoid system, and the major crop of the laundry supplies planet, Blastus III.
+One ancient legend claims that four pieces of fluff lie scattered around the Galaxy; each forming one quarter of the seedling of a tree with amazing properties, the sole survivor of the tropical planet Fuzzbol (Footnote 8).
+The ultimate source of fluff is still a mystery, with the scientific community torn between the Big Lint Bang theory and the White Lint Hole theory."
+?CCL111:	EQUAL?	PRSI,ZAPHOD /?PRG122
+	EQUAL?	PRSI,ME \?CCL117
+	EQUAL?	IDENTITY-FLAG,ZAPHOD \?CCL117
+?PRG122:	PRINTD	ZAPHOD
+	PRINTI	" is the current"
+	PRINT	PRESIDENT
+	PRINTR	"."
+?CCL117:	EQUAL?	PRSI,BABEL-FISH \?CCL125
+	PRINTI	"A mind-bogglingly improbable creature. A "
+	PRINTD	BABEL-FISH
+	PRINTR	", when placed in one's ear, allows one to understand any language."
+?CCL125:	EQUAL?	PRSI,TOWEL \?CCL129
+	PRINTR	"A towel is the most useful thing (besides the Guide) a Galactic hitchhiker can have. Its uses include travel, combat, communications, protection from the elements, hand-drying and reassurance. Towels have great symbolic value, with many associated points of honour. Never mock the towel of another, even if it has little pink and blue flowers on it. Never do something to somebody else's towel that you would not want them to do to yours. And, if you borrow the towel of another, you MUST return it before leaving their world."
+?CCL129:	EQUAL?	PRSI,GUARANTEE,THUMB \?CCL133
+	PRINTI	"The Electronic Sub-Etha Auto Hitching Thumb is a wonderful thing, but should not be mistreated. If used while a ship is near, you will be transported there. If no ship is in the vicinity, you will place a heavy strain on the Thumb's logic circuits, which could lead to malfunction. The Thumb carries the usual "
+	PRINT	SCC
+	PRINTI	" lifetime "
+	PRINTD	GUARANTEE
+	PRINTR	"s."
+?CCL133:	EQUAL?	PRSI,MINERAL-WATER \?CCL137
+	PRINTR	"A strong body of opinion holds that this is not water at all, despite the claims on the label about how pure the spring is, and all that tosh about sparkling babbling brooks and so on. There is something highly suspect about the water on Santraginus Five, as anyone who's ever met any of their fish will tell you."
+?CCL137:	EQUAL?	PRSI,BEAST \?CCL141
+	PRINTI	"The "
+	PRINTD	BEAST
+	PRINTR	" is a mind-bogglingly stupid animal. It has almost no capacity for learning from experience and is therefore surprised by virtually everything that happens to it. Here is an example of how stupid it is: it thinks that if you can't see it, it can't see you.
+Its behaviour would be quite endearing if it wasn't spoilt by this one thing: it is the most violently carnivorous creature in the Galaxy. Avoid, avoid, avoid."
+?CCL141:	EQUAL?	PRSI,FRONT-PORCH \?CCL145
+	PRINTI	"A thoroughly unpleasant means of travelling which involves tearing you apart in one place and slamming you back together in another. (Of course, it's better than the older method, where disassembled people would be transmitted down phone lines and arrive in a garbled and sometimes completely disconnected state.) You should have a drink or two or three before going through one"
+	PRINT	ALSO-SEE
+	PRINTR	"Galaxia Woonbeam, Alcohol and Protein."
+?CCL145:	EQUAL?	PRSI,FRONT-OF-HOUSE \?CCL149
+	PRINTR	"Galaxia Woonbeam is the author of ""Slimmer's Guide to Weightloss During Matter Disassembly Transition."" This text is currently the subject of the biggest suit for criminal negligence damages in history and is unavailable at this time."
+?CCL149:	EQUAL?	PRSI,ENTRY-BAY \?CCL153
+	PRINTR	"The best drink in existence; somewhat like having your brains smashed out by a slice of lemon wrapped around a large gold brick."
+?CCL153:	EQUAL?	PRSI,MAZE,THIRD-PLANET \?CCL157
+	PRINTR	"Mostly harmless."
+?CCL157:	EQUAL?	PRSI,COUNTRY-LANE \?CCL161
+	PRINT	SPACE-TEXT
+	CRLF	
+	RTRUE	
+?CCL161:	FSET?	PRSI,TOOLBIT \?CCL165
+	PRINTR	"The editor responsible for entries under this heading has been out to lunch for a couple of years but is expected back soon, at which point there will be rapid updates. Until then, don't panic, unless your situation is really a life or death one, in which case, sure, go ahead, panic."
+?CCL165:	EQUAL?	PRSI,BLASTER,RIFLES,BEDROOM /?PRG174
+	EQUAL?	PRSI,BEAST-GUN,NO-TEA,TEA /?PRG174
+	EQUAL?	PRSI,AIRLOCK,AFT-CORRIDOR,SUBSTITUTE /?PRG174
+	EQUAL?	PRSI,INSIDE-WHALE \?PRG176
+?PRG174:	PRINTR	"Sorry, that portion of our Sub-Etha database was accidentally deleted last night during a wild office party. The lost data will be restored as soon as we find someone who knows where the back-up tapes are kept, if indeed any are kept at all."
+?PRG176:	PRINTR	"That is one of the Great Unanswered Questions. For a list of the others, consult the Guide."
+
+
+	.FUNCT	CANT-SEE,OBJ
+	PRINTI	"You can't see"
+	CALL2	NAME?,OBJ
+	ZERO?	STACK \?CND3
+	PRINTI	" any"
+?CND3:	EQUAL?	OBJ,PRSO \?CCL9
+	ICALL1	PRSO-PRINT
+	JUMP	?PRG10
+?CCL9:	ICALL1	PRSI-PRINT
+?PRG10:	PRINTI	" here."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+
+
+	.FUNCT	TELL-ME-HOW
+	PRINTI	"You must tell me how to do that to"
+	ICALL2	ARTICLE,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	OUT-OF-FIRST,VEHICLE
+	PRINTI	"You'll have to get out of the "
+	PRINTD	VEHICLE
+	PRINTR	" first."
+
+
+	.FUNCT	PRIVATE,STRING
+	PRINTI	"You can't. It's not yours. It's "
+	PRINT	STRING
+	PRINTR	"'s and it's private."
+
+
+	.FUNCT	NOT-VERY-GOOD,STRING
+	PRINTI	"It's not a very good "
+	PRINT	STRING
+	PRINTR	", is it?"
+
+
+	.FUNCT	FACTOR,STRING
+	PRINTI	" at an improbability factor of 2 to the "
+	PRINT	STRING
+	PRINTI	"th power to 1 against."
+	RTRUE	
+
+
+	.FUNCT	REMOVING-BIT
+	PRINTI	"(removing the "
+	PRINTD	DANGLY-BIT
+	PRINTR	" first)"
+
+
+	.FUNCT	PART-OF
+	PRINTI	"You can't --"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTI	" is an integral part of"
+	LOC	PRSO
+	ICALL	ARTICLE,STACK,TRUE-VALUE
+	PRINTR	"."
+
+
+	.FUNCT	BUT-THAT-MAN,STRING
+	PRINTI	"Pointing toward Prosser, "
+	PRINT	STRING
+	PRINTI	", ""But that man "
+	ZERO?	HOUSE-DEMOLISHED /?PRG8
+	PRINTI	"just knocked"
+	JUMP	?PRG10
+?PRG8:	PRINTI	"wants to knock"
+?PRG10:	PRINTI	" my house down!"""
+	RTRUE	
+
+
+	.FUNCT	CUSHION
+	PRINTI	" cushion your system against the coming shock of the"
+	PRINT	BEAM
+	PRINTC	46
+	RTRUE	
+
+
+	.FUNCT	FINE-PRODUCT
+	PRINTI	" It bears a small label which reads ""Another fine product of the "
+	PRINT	SCC
+	PRINTI	"."""
+	RTRUE	
+
+
+	.FUNCT	MAKE-WAY-FOR
+	PRINTI	" a "
+	PRINTD	FLEET
+	PRINTR	" unexpectedly arrives and demolishes the Earth to make way for a new hyperspace bypass."
+
+
+	.FUNCT	OWN-FEET
+	PRINTR	"You are now on your feet."
+
+	.ENDI
diff --git a/globals.zil b/globals.zil
new file mode 100644
index 0000000..ea808a3
--- /dev/null
+++ b/globals.zil
@@ -0,0 +1,2304 @@
+"GLOBALS for
+		  THE HITCHHIKER'S GUIDE TO THE GALAXY
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved."
+
+
+;"status line stuff"
+
+<CONSTANT S-TEXT 0>
+<CONSTANT S-WINDOW 1>
+
+<CONSTANT H-NORMAL 0>
+<CONSTANT H-INVERSE 1>
+<CONSTANT H-BOLD 2>
+<CONSTANT H-ITALIC 4>
+
+<CONSTANT D-SCREEN-ON 1>
+<CONSTANT D-SCREEN-OFF -1>
+<CONSTANT D-PRINTER-ON 2>
+<CONSTANT D-PRINTER-OFF -2>
+<CONSTANT D-TABLE-ON 3>
+<CONSTANT D-TABLE-OFF -3>
+<CONSTANT D-RECORD-ON 4>
+<CONSTANT D-RECORD-OFF -4>
+
+<GLOBAL HOST:NUMBER 0> "Host machine."
+<GLOBAL WIDTH:NUMBER 0> "Width of screen in chars."
+;<GLOBAL MIDSCREEN:NUMBER 0> "Center of screen."
+;<GLOBAL CWIDTH:NUMBER 0> "Pixel width of characters."
+;<GLOBAL CHEIGHT:NUMBER 0> "Pixel height of characters."
+
+<ROUTINE INIT-STATUS-LINE ()
+	 <COND (<L? ,WIDTH 38>
+		<TELL "[Screen too narrow.]" CR>
+		<QUIT>)>
+	 ;<SETG MIDSCREEN <+ </ ,WIDTH 2> 1>>
+	 ;<SETG CHEIGHT <LOWCORE (FWRD 1)>>
+	 <SETG OHERE <>>
+	 <SETG OLD-LEN 0>
+	 ;<SETG DO-WINDOW <>>
+	 <SPLIT 1>
+	 <SCREEN ,S-WINDOW>
+	 <HLIGHT ,H-INVERSE>
+	 <CURSET 1 1>	 
+	 ;<ERASE 1> ;"This semi by Jeff"
+	 ;<PRINT-SPACES <LOWCORE SCRH>>
+	 <PRINT-SPACES ,WIDTH>
+	 <COND (<G? ,WIDTH 74>       ;"C-128 SCRH is 75 wide"
+		<CURSET 1 51>
+		<TELL "Score:">
+		<CURSET 1 64>
+		<TELL "Moves:">)>
+	 <HLIGHT ,H-NORMAL>
+	 <SCREEN ,S-TEXT>
+	 <RTRUE>>
+
+<CONSTANT SL-TABLE:TABLE <ITABLE NONE 80>>   "status line constructed here"
+<GLOBAL OHERE:OBJECT <>>
+<GLOBAL OLD-LEN:NUMBER 0>
+
+;<GLOBAL MIDSCREEN:NUMBER 0>
+
+<ROUTINE UPDATE-STATUS-LINE ()
+	 <SCREEN ,S-WINDOW>
+	 ;<BUFOUT <>>
+	 <HLIGHT ,H-NORMAL>
+	 <HLIGHT ,H-INVERSE>
+	 <COND (<NOT <EQUAL? ,HERE ,OHERE>>
+		<SETG OHERE ,HERE>
+		;<DIROUT ,D-SCREEN-OFF>	        ; "Screen off."
+		<DIROUT ,D-TABLE-ON ,SL-TABLE>  ; "Table on."
+		<SAY-HERE>
+		<DIROUT ,D-TABLE-OFF> 	        ; "Table off."
+	        ;<DIROUT ,D-SCREEN-ON>		; "Screen on."
+		<CURSET 1 2>
+		<PRINT-SPACES ,OLD-LEN>  ; "Erase old HERE desc"
+		<SETG OLD-LEN <GET ,SL-TABLE 0>> ; "Print new HERE desc."
+		<CURSET 1 2>
+		<SAY-HERE>)>
+	 <COND (<G? ,WIDTH 74>      ;"C-128 is 75 wide"
+		<CURSET 1 58>
+		<TELL N ,SCORE " "> ;"space fixes 110 to 80 score bug"
+		<CURSET 1 71>
+		<TELL N ,MOVES>)
+	       (T
+		<DIROUT ,D-TABLE-ON ,SL-TABLE>
+		<TELL N ,SCORE "/" N ,MOVES " "> ;"110 to 80 bug"
+		<DIROUT ,D-TABLE-OFF>
+		<CURSET 1 <- ,WIDTH <+ <GET ,SL-TABLE 0> 1>>>
+		<TELL N ,SCORE "/" N ,MOVES " ">)>  ;"110 to 80 bug"
+	 <HLIGHT ,H-NORMAL>
+	 <SCREEN ,S-TEXT>  ;"Back to main screen."
+	 <RTRUE>>
+
+<ROUTINE PRINT-SPACES (CNT)
+	 <REPEAT ()
+		 <COND (<L? <SET CNT <- .CNT 1>> 0>
+			<RETURN>)
+		       (T
+			<PRINTC 32>)>>>
+
+<ROUTINE SAY-HERE ()
+	 <COND (<ZERO? ,LIT>
+		<TELL "Darkness">)
+	       (T
+		<TELL D ,HERE>
+	        <COND (<G? ,WIDTH 74>
+		       <COND (<IN? ,PROTAGONIST ,POETRY-APPRECIATION-CHAIR>
+			      <TELL ", in the chair">)       
+			     (<NOT <IN? ,PROTAGONIST ,HERE>>
+		              <TELL ", in the " D <LOC ,PROTAGONIST>>)
+			     (,LYING-DOWN
+			      <TELL ", lying down">)>)>)>
+	 <RTRUE>>
+
+<GLOBAL LYING-DOWN <>>
+
+<GLOBAL HERE <>>
+
+<GLOBAL LIT <>>
+
+<GLOBAL MOVES 0>
+
+<GLOBAL SCORE 0>
+
+<CONSTANT INDENTS
+	<PTABLE ""
+	        "  "
+	        "    "
+	        "      "
+	        "        "
+	        "          ">>
+
+;"global objects and associated routines"
+
+<OBJECT GLOBAL-OBJECTS
+	(FLAGS INVISIBLE TOUCHBIT SURFACEBIT TRYTAKEBIT OPENBIT REVISITBIT
+	       SEARCHBIT TRANSBIT WEARBIT MUNGEDBIT ONBIT RLANDBIT WORNBIT)>
+
+<OBJECT LOCAL-GLOBALS
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM ZZMGCK)
+	(DESCFCN 0)
+        (GLOBAL GLOBAL-OBJECTS)
+	(FDESC "F")
+	(LDESC "F")
+	(SIZE 0)
+	(TEXT "")
+	(CAPACITY 0)>
+;"Yes, this synonym for LOCAL-GLOBALS needs to exist... sigh"
+
+<OBJECT FOOBAR
+	(LOC LOCAL-GLOBALS)
+	(SYNONYM FOOBAR)
+	(ACTION V-WALK)>
+
+<OBJECT ROOMS
+	(IN TO ROOMS)>
+
+<OBJECT IT
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM IT THEM HER HIM)
+	(DESC "it")
+	(FLAGS VOWELBIT NARTICLEBIT NDESCBIT TOUCHBIT)>
+
+<OBJECT INTNUM
+	(LOC GLOBAL-OBJECTS)
+	(DESC "number")
+	(SYNONYM INTNUM)
+	(ADJECTIVE NUMBER)>
+
+;<OBJECT PSEUDO-OBJECT
+	(DESC "pseudo")
+	(ACTION ME-F)>
+
+<OBJECT NOT-HERE-OBJECT
+	(DESC "it")
+	(FLAGS NARTICLEBIT)
+	(ACTION NOT-HERE-OBJECT-F)>
+
+<ROUTINE NOT-HERE-OBJECT-F ("AUX" TBL (PRSO? T) OBJ (X <>))
+	 <COND (<AND <PRSO? ,NOT-HERE-OBJECT>
+		     <PRSI? ,NOT-HERE-OBJECT>>
+		<TELL "Those things aren't here!" CR>
+		<RTRUE>)
+	       (<PRSO? ,NOT-HERE-OBJECT>
+		<SET TBL ,P-PRSO>)
+	       (T
+		<SET TBL ,P-PRSI>
+		<SET PRSO? <>>)>
+	 <COND (.PRSO?
+		<COND (<OR <EQUAL? ,PRSA ,V?FIND ,V?FOLLOW ,V?CALL>
+			   <EQUAL? ,PRSA ,V?WHAT ,V?WHERE ,V?WHO>
+			   <EQUAL? ,PRSA ,V?WAIT-FOR ,V?WALK-TO ,V?WHAT-ABOUT>
+			   <EQUAL? ,PRSA ,V?I-AM ,V?CARVE ,V?CALL-WITH>>
+		       <SET X T>
+		       <COND (<SET OBJ <FIND-NOT-HERE .TBL .PRSO?>>
+			      <COND (<NOT <EQUAL? .OBJ ,NOT-HERE-OBJECT>>
+				     <RTRUE>)>)
+			     (T
+			      <RFALSE>)>)>)
+	       
+	       (T
+		<COND (<OR <EQUAL? ,PRSA ,V?ASK-ABOUT ,V?ASK-FOR ,V?TELL-ABOUT>
+			   <EQUAL? ,PRSA ,V?MY-NAME>>
+		       <SET X T>
+		       <COND (<SET OBJ <FIND-NOT-HERE .TBL .PRSO?>>
+			      <COND (<NOT <EQUAL? .OBJ ,NOT-HERE-OBJECT>>
+				     <RTRUE>)>)
+			     (T
+			      <RFALSE>)>)>)>
+;"Here is the default 'cant see any' printer"
+	 <COND (.X
+		<TELL "You'll have to be more specific, I'm afraid." CR>)
+	       (<EQUAL? ,WINNER ,PROTAGONIST>
+		<TELL "You can't ">
+		<COND (<EQUAL? ,P-XNAM ,W?POEM ,W?POETRY ,W?CONVERSAT>
+		       <TELL "hear">)
+		      (T
+		       <TELL "see">)>
+		<COND (<NOT <NAME? ,P-XNAM>>
+		       <TELL " any">)> 
+		<NOT-HERE-PRINT .PRSO?>
+		<TELL " here!" CR>)
+	       (<OR <AND <EQUAL? ,WINNER ,FORD>
+			 ,FORD-SLEEPING>
+		    <AND <EQUAL? ,WINNER ,BEAST>
+			 <FSET? ,BEAST ,MUNGEDBIT>>>
+		<RFALSE>)
+	       (T
+		<TELL "Looking confused,">
+		<ARTICLE ,WINNER T>
+		<TELL " says, \"I don't see">
+		<COND (<NOT <NAME? ,P-XNAM>>
+		       <TELL " any">)>
+		<NOT-HERE-PRINT .PRSO?>
+		<TELL " here!\"" CR>)>
+	 <FUCKING-CLEAR>>
+
+<ROUTINE FIND-NOT-HERE (TBL PRSO? "AUX" M-F OBJ)
+;"Special-case code goes here. <MOBY-FIND .TBL> returns # of matches. If 1,
+then P-MOBY-FOUND is it. You can treat the 0 and >1 cases alike or differently.
+Always return RFALSE (not handled) if you have resolved the problem."
+	<SET M-F <MOBY-FIND .TBL>>
+	;<COND (,DEBUG
+	       <TELL "[Found " N .M-F " obj]" CR>)>
+	<COND (<EQUAL? 1 .M-F>
+	       ;<COND (,DEBUG
+		      <TELL "[Namely: " D ,P-MOBY-FOUND "]" CR>)>
+	       <COND (.PRSO?
+		      <SETG PRSO ,P-MOBY-FOUND>)
+		     (T
+		      <SETG PRSI ,P-MOBY-FOUND>)>
+	       <RFALSE>)
+	      (<EQUAL? ,P-XNAM ,W?FLUFF>
+	       <COND (.PRSO?
+		      <SETG PRSO ,POCKET-FLUFF>)
+		     (T
+		      <SETG PRSI ,POCKET-FLUFF>)>
+	       <RFALSE>)
+	      (<EQUAL? ,P-XNAM ,W?TOOL ,W?TOOLS>
+	       <COND (.PRSO?
+		      <SETG PRSO ,TWEEZERS>)
+		     (T
+		      <SETG PRSI ,TWEEZERS>)>
+	       <RFALSE>)
+	      (T
+	       ,NOT-HERE-OBJECT)>>
+
+<ROUTINE NOT-HERE-PRINT (PRSO?)
+	 <COND ;(<NAME? ,P-XNAM>
+		<TELL "one by that name">)
+	       (,P-OFLAG
+	        <COND (,P-XADJ
+		       <TELL " ">
+		       <PRINTB ,P-XADJ ;N ;"GTB">)>
+	        <COND (,P-XNAM
+		       <TELL " ">
+		       <PRINTB ,P-XNAM>)>)
+               (.PRSO?
+	        <BUFFER-PRINT <GET ,P-ITBL ,P-NC1> <GET ,P-ITBL ,P-NC1L> <>>)
+               (T
+	        <BUFFER-PRINT <GET ,P-ITBL ,P-NC2> <GET ,P-ITBL ,P-NC2L> <>>)>>
+
+<OBJECT LIGHT
+	(LOC GLOBAL-OBJECTS)
+	(DESC "light")
+	(SYNONYM LIGHT LIGHTS LAMP)
+	(FLAGS LIGHTBIT)
+        (ACTION LIGHT-F)>
+
+<ROUTINE LIGHT-F ()
+	 <COND (<AND <OR <IN? ,FLEET ,HERE>
+			 <EQUAL? ,HERE ,AIRLOCK ,INSIDE-WHALE>>
+		     <VISIBLE? ,THUMB>>
+		<COND (<EQUAL? ,LIGHT ,PRSI>
+		       <PERFORM ,PRSA ,PRSO ,THUMB>
+		       <RTRUE>)
+		      (T
+		       <PERFORM ,PRSA ,THUMB ,PRSI>
+		       <RTRUE>)>)
+	       (<EQUAL? ,HERE ,GALLEY>
+		<UNIMPORTANT-THING-F>)
+	       (<AND <EQUAL? ,LIGHT ,PRSO>
+		     <VERB? FIND FOLLOW WHAT WHERE WALK-TO WHAT-ABOUT>>
+		<RFALSE>)
+	       (<AND <EQUAL? ,LIGHT ,PRSI>
+		     <VERB? ASK-ABOUT TELL-ABOUT>>
+		<RFALSE>)
+	       (<NOT <EQUAL? ,HERE ,BEDROOM>>
+		<CANT-SEE ,LIGHT>)
+	       (<VERB? LAMP-ON>
+		<COND (<FSET? ,HERE ,ONBIT>
+		       <TELL "It is." CR>)
+		      (T
+		       <SETG LIT T>
+		       <FSET ,HERE ,ONBIT>
+		       <FSET ,DARK-OBJECT ,DARKBIT>
+		       <MOVE ,DARK-OBJECT ,DARK>
+		       <TELL
+"Good start to the day. Pity it's going to be the worst one of your
+life. The light is now on." CR CR>
+		       <V-LOOK>
+		       <SET OHERE <>>
+		       <RTRUE>)>)
+	       (<VERB? LAMP-OFF>
+		<V-DIG>)>>
+
+<OBJECT GLOBAL-SLEEP
+	(LOC GLOBAL-OBJECTS)
+	(DESC "sleep")
+	(SYNONYM SLEEP NAP SNOOZE)
+	(FLAGS NARTICLEBIT)
+	(ACTION GLOBAL-SLEEP-F)>
+
+<ROUTINE GLOBAL-SLEEP-F ()
+	 <COND (<VERB? WALK-TO TAKE>
+		<PERFORM ,V?SLEEP>
+		<RTRUE>)>>
+
+<OBJECT SPEECH
+	(LOC GLOBAL-OBJECTS)
+	(DESC "speech")
+	(SYNONYM SPEECH)
+	(ACTION SPEECH-F)>
+
+<ROUTINE SPEECH-F ()
+	 <COND (<VERB? GIVE MAKE>
+		<TELL "This isn't the time">
+		<COND (<NOT <EQUAL? ,HERE ,DAIS>>
+		       <TELL " or the place">)>
+		<TELL " for making speeches." CR>)
+	       (<VERB? READ>
+		<TELL "It's extemporaneous." CR>)>>
+
+<OBJECT GROUND
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM FLOOR GROUND MUD)
+	(DESC "ground")
+	(ACTION GROUND-F)>
+
+<ROUTINE GROUND-F ()
+	 <COND (<AND <VERB? THROUGH>
+		     <EQUAL? ,HERE ,ACCESS-SPACE>>
+		<TELL "The mesh is too fine." CR>)
+	       (<VERB? CLIMB-UP CLIMB-ON CLIMB-FOO BOARD>
+		<V-DIG>)
+	       (<VERB? LOOK-UNDER>
+		<V-COUNT>)
+	       (<VERB? LEAVE>
+		<DO-WALK ,P?UP>)
+	       (<VERB? LIE-DOWN>
+		<COND (<IN? ,PROTAGONIST ,BED>
+		       <OUT-OF-FIRST ,BED>)
+		      (,LYING-DOWN
+		       <TELL ,YOU-ARE CR>)
+		      (<EQUAL? ,HERE ,FRONT-OF-HOUSE>
+		       <PERFORM ,V?BLOCK ,BULLDOZER>
+		       <SETG P-IT-OBJECT ,GROUND>
+		       <RTRUE>)
+		      (T
+		       <SETG LYING-DOWN T>
+		       <SETG OHERE <>>
+		       <TELL "You are now lying on the ground." CR>)>)
+	       (<VERB? EXAMINE>
+		<COND (<EQUAL? ,HERE ,GUTS-ROOM>
+		       <TELL
+"The walls, floor, and ceiling are covered with little pieces of
+flesh and bone." CR>)
+		      (<EQUAL? ,HERE ,ACCESS-SPACE>
+		       <TELL
+"The floor is an open metal mesh, like the floor of a catwalk." CR>)>)
+	       (<AND <VERB? LOOK-INSIDE>
+		     <EQUAL? ,HERE ,ACCESS-SPACE>>
+		<PERFORM ,V?LOOK-INSIDE ,FISH-HOLE>
+		<SETG P-IT-OBJECT ,GROUND>
+		<RTRUE>)
+	       (<AND <VERB? ENJOY>
+		     <EQUAL? ,HERE ,FRONT-OF-HOUSE>
+		     ,LYING-DOWN>
+		<TELL
+"It occurs to you that you've never deliberately lain in any mud before and
+that it's actually a pleasant sort of squishy sensation. You let the mud ooze
+between your toes. You may be here for some time, so you may as well make the
+most of it." CR>)>>
+
+<OBJECT WALLS
+	(LOC GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "wall")
+	(SYNONYM WALL WALLS)
+	(ACTION WALLS-F)>
+
+<ROUTINE WALLS-F ()
+	 <COND (<AND <VERB? EXAMINE>
+		     <EQUAL? ,HERE ,GUTS-ROOM>>
+		<PERFORM ,V?EXAMINE ,GROUND>
+		<RTRUE>)>>
+
+<OBJECT CEILING
+	(LOC GLOBAL-OBJECTS)
+	(FLAGS NDESCBIT TOUCHBIT)
+	(DESC "ceiling")
+	(SYNONYM CEILING ROOF)
+	(ACTION CEILING-F)>
+
+<ROUTINE CEILING-F ()
+	 <COND (<VERB? LOOK-UNDER>
+		<PERFORM ,V?LOOK>
+		<RTRUE>)
+	       (<AND <VERB? EXAMINE>
+		     <EQUAL? ,HERE ,GUTS-ROOM>>
+		<PERFORM ,V?EXAMINE ,GROUND>
+		<RTRUE>)>>
+
+<OBJECT WINDOW
+	(LOC LOCAL-GLOBALS)
+	(DESC "window")
+	(SYNONYM WINDOW)
+	(FLAGS TRANSBIT)
+	(ACTION WINDOW-F)>
+
+<ROUTINE WINDOW-F ()
+	 <COND (<NOT ,LIT>
+		<TELL ,TOO-DARK CR>)
+	       (<VERB? MUNG>
+	        <PERFORM ,V?KILL ,WINDOW>
+	        <RTRUE>)
+	       (<EQUAL? ,HERE ,BEDROOM>
+		<COND (<VERB? LOOK-INSIDE EXAMINE>
+		       <PERFORM ,V?OPEN ,CURTAINS>
+		       <RTRUE>)
+		      (<VERB? OPEN CLOSE>
+		       <TELL
+"The bloody thing's been jammed shut for months, now." CR>)>)
+	       (<VERB? LOOK-INSIDE>
+		<TELL "You see the country lane." CR>)
+	       (<VERB? OPEN CLOSE>
+		<TELL ,BUDGE CR>)>>
+
+<OBJECT STAIRS
+	(LOC LOCAL-GLOBALS)
+	(DESC "stairs")
+	(SYNONYM STAIR STAIRS STAIRWAY GANGWAY)
+	(FLAGS NARTICLEBIT NDESCBIT)
+	(ACTION STAIRS-F)>
+
+<ROUTINE STAIRS-F ()
+	 <COND (<VERB? CLIMB-UP CLIMB-FOO>
+		<DO-WALK ,P?UP>)
+	       (<VERB? CLIMB-DOWN>
+		<DO-WALK ,P?DOWN>)>>
+
+<OBJECT AIR
+	(LOC GLOBAL-OBJECTS)
+	(DESC "air")
+	(SYNONYM AIR)
+	(FLAGS VOWELBIT)>
+
+<OBJECT SKY
+	(LOC GLOBAL-OBJECTS)
+	(DESC "sky")
+	(SYNONYM SKY)
+	(ACTION SKY-F)>
+
+<ROUTINE SKY-F ()
+	 <COND (<NOT <FSET? ,HERE ,OUTSIDEBIT>>
+		<CANT-SEE ,SKY>)
+	       (<AND <IN? ,FLEET ,HERE>
+		     <VERB? EXAMINE>>
+		<TELL
+"The sky is filled with the ships of the " D ,FLEET "." CR>)>>
+
+<OBJECT STAR
+	(LOC GLOBAL-OBJECTS)
+	(DESC "sun")
+	(SYNONYM STAR SUN SYSTEM SOL)
+	(ADJECTIVE APPROACHI STAR SOLAR SMALL UNREGARDE YELLOW ORANGE)
+	(FLAGS NDESCBIT)
+	(ACTION STAR-F)>
+
+<ROUTINE STAR-F ()
+     <COND (<VERB? EXAMINE>
+	    <COND (<EQUAL? ,HERE ,WAR-CHAMBER>
+		   <TELL
+"The approaching star is a small, unregarded yellow sun, with nine planets of
+varying sizes. The " D ,THIRD-PLANET " catches your attention.">
+		   <CRLF>)
+		  (<EQUAL? ,HERE ,DAIS ,SPEEDBOAT>
+		   <TELL "The sun is a smallish orange star." CR>)
+		  (<EQUAL? ,HERE ,FRONT-OF-HOUSE ,COUNTRY-LANE ,BACK-OF-HOUSE>
+		   <TELL "The sun is a smallish yellow star." CR>)
+		  (T
+		   <CANT-SEE ,STAR>)>)>>
+
+<OBJECT HANDS
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM HANDS HAND)
+	(ADJECTIVE BARE MY YOUR)
+	(DESC "your hand")
+	(FLAGS NDESCBIT TOUCHBIT NARTICLEBIT)
+	(ACTION HANDS-F)>
+
+<ROUTINE HANDS-F (ACTOR)
+	 <COND (<VERB? WAVE>
+		<SETG PRSO <>>
+		<PERFORM ,V?WAVE-AT>
+		<RTRUE>)
+	       (<VERB? SHAKE>
+		<COND (<SET ACTOR <FIND-IN ,HERE ,ACTORBIT>>
+		       <PERFORM ,V?THANK .ACTOR>
+		       <RTRUE>)
+		      (T
+		       <TELL "Pleased to meet you." CR>)>)>>
+
+<OBJECT TEETH
+	(LOC GLOBAL-OBJECTS)
+	(DESC "your teeth")
+	(SYNONYM TEETH TOOTH)
+	(ADJECTIVE YOUR MY)
+	(FLAGS NARTICLEBIT)>
+
+<OBJECT HEAD
+	(LOC GLOBAL-OBJECTS)
+	(DESC "your head")
+	(SYNONYM HEAD FACE)
+	(ADJECTIVE YOUR MY)
+	(FLAGS NARTICLEBIT)>
+
+<OBJECT EYES
+	(LOC GLOBAL-OBJECTS)
+	(DESC "your eyes")
+	(SYNONYM EYE EYES)
+	(ADJECTIVE YOUR MY)
+	(FLAGS NARTICLEBIT)
+	(ACTION EYES-F)>
+
+<ROUTINE EYES-F ()
+	 <COND (<VERB? OPEN>
+		<TELL "They are." CR>)
+	       (<VERB? CLOSE>
+		<COND (<IN? ,BEAST ,HERE>
+		       <TELL "The Beast doesn't notice." ,GETTING-CLOSE CR>)
+		      (T
+		       <TELL "That won't help." CR>)>)>>
+
+<OBJECT EARS
+	(LOC GLOBAL-OBJECTS)
+	(DESC "your ears")
+	(SYNONYM EAR EARS)
+	(ADJECTIVE YOUR MY)
+	(FLAGS NARTICLEBIT)>
+
+<OBJECT PROTAGONIST
+	(SYNONYM PROTAGONI)
+	(DESC "it")
+	(FLAGS NDESCBIT INVISIBLE)
+	(ACTION PROTAGONIST-F)>
+
+<ROUTINE PROTAGONIST-F ()
+	 <COND (<AND <PRSO? ,NO-TEA>
+		     ,PRSI>
+		<NO-TEA-F>)>>
+
+<OBJECT ME
+	(LOC GLOBAL-OBJECTS)
+	(SYNONYM I ME MYSELF SELF)
+	(DESC "yourself")
+	(FLAGS ACTORBIT TOUCHBIT NARTICLEBIT)
+	(ACTION ME-F)>
+
+<ROUTINE ME-F ("AUX" OLIT) 
+	 <COND (<VERB? TELL>
+		<TELL
+"Talking to yourself is a sign of impending mental collapse." CR>
+		<FUCKING-CLEAR>)
+	       (<VERB? LISTEN>
+		<TELL "Yes?" CR>)
+	       (<VERB? ALARM>
+		<TELL ,YOU-ARE CR>)
+	       (<AND <VERB? GIVE>
+		     <PRSI? ,ME>>
+		<COND (<AND <IN? ,PRSO ,PROTAGONIST>
+		            <NOT <PRSO? ,NO-TEA ,BABEL-FISH>>>
+		       <PRE-TAKE>)
+		      (T
+		       <PERFORM ,V?TAKE ,PRSO>
+		       <RTRUE>)>)
+	       (<VERB? MOVE>
+		<V-WALK-AROUND>)
+	       (<VERB? SEARCH>
+		<V-INVENTORY>
+		<RTRUE>)
+	       (<OR <VERB? KILL MUNG>
+		    <AND <VERB? SHOOT>
+			 <PRSI? ,BLASTER>>>
+		<JIGS-UP "Done.">
+		<RTRUE>)
+	       (<VERB? FIND>
+		<TELL "You're right here!" CR>)
+	       (<VERB? WHO>
+		<TELL "You are " D ,IDENTITY-FLAG "." CR>)
+	       (<AND <VERB? EXAMINE>
+		     <EQUAL? ,HERE ,MAZE>>
+		<TELL
+"You look perfectly normal (except that you're two microns tall)." CR>)
+	       (<VERB? PULL-TOGETHER>
+		<TELL ,ZEN CR>)
+	       (<VERB? FOLLOW>
+		<TELL
+"I'd like to, but like most computers I don't have legs." CR>)>>
+
+<OBJECT GLOBAL-ROOM
+	(LOC GLOBAL-OBJECTS)
+	(DESC "room")
+	(SYNONYM ROOM CHAMBER PLACE HALL)
+	(ADJECTIVE AREA)
+	(ACTION GLOBAL-ROOM-F)>
+
+<ROUTINE GLOBAL-ROOM-F ()
+	 <COND (<VERB? LOOK EXAMINE LOOK-INSIDE>
+		<V-LOOK>
+		<RTRUE>)
+	       (<VERB? THROUGH WALK-TO>
+		<V-WALK-AROUND>)
+	       (<VERB? LEAVE EXIT>
+		<DO-WALK ,P?OUT>)
+	       (<VERB? WALK-AROUND>
+		<COND (<EQUAL? ,HERE ,CAPTAINS-QUARTERS>
+		       <V-STAND>)
+		      (T
+		       <TELL
+"Walking around the room reveals nothing new. To move elsewhere, just type
+the desired direction." CR>)>)
+	       (<VERB? LAMP-ON>
+		<PERFORM ,V?LAMP-ON ,LIGHT>
+		<RTRUE>)>>
+
+<OBJECT OBJECT-OF-GAME
+	(LOC GLOBAL-OBJECTS)
+	(DESC "object of the game")
+	(SYNONYM OBJECT GAME GOAL)
+	(FLAGS VOWELBIT)
+	(ACTION OBJECT-OF-GAME-F)>
+
+<ROUTINE OBJECT-OF-GAME-F ()
+	 <COND (<VERB? WHAT>
+		<TELL "That's for me to know and you to find out." CR>)>>
+
+<OBJECT CONTROLS
+	(LOC LOCAL-GLOBALS)
+	(DESC "the controls")
+	(SYNONYM CONTROLS PANEL CONSOLE)
+	(ADJECTIVE CONTROL)
+	(FLAGS NARTICLEBIT)
+	(ACTION CONTROLS-F)>
+
+<ROUTINE CONTROLS-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (<EQUAL? ,HERE ,SPEEDBOAT>
+		       <TELL
+"The only control, other than those related to steering the boat, is the large
+red " D ,AUTOPILOT-BUTTON ".">
+		       <FINE-PRODUCT>
+		       <CRLF>)
+		      (<EQUAL? ,HERE ,BRIDGE>
+		       <TELL
+"Most of the controls are beyond your comprehension. ">
+		       <COND (<IN? ,LARGE-RECEPTACLE ,HERE>
+			      <TELL
+"The simplest one is a " D ,LARGE-RECEPTACLE " of some kind.">
+			      <COND (,DRIVE-TO-CONTROLS
+				     <TELL " ">
+				     <PERFORM ,V?EXAMINE ,LARGE-RECEPTACLE>
+				     <RTRUE>)
+				    (T
+				     <CRLF>)>)
+			     (T
+			      <TELL
+"A fused spot shows where a receptacle once was." CR>)>)>)>>
+
+<OBJECT CONVERSATION
+	(LOC LOCAL-GLOBALS)
+	(DESC "conversation")
+	(SYNONYM CONVERSAT)
+	(FLAGS DARKBIT INVISIBLE)
+	(ACTION CONVERSATION-F)>
+
+<ROUTINE CONVERSATION-F ()
+	 <COND (<VERB? LISTEN>
+		<COND (<EQUAL? ,HERE ,FRONT-OF-HOUSE>
+		       <TELL "You can't hear anything from here." CR>)
+		      (T
+		       <PERFORM ,V?LISTEN ,VLHURG>
+		       <RTRUE>)>)>>
+
+<OBJECT GUARDS
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "one of the guards")
+	(SYNONYM ONE GUARD GUARDS)
+	(ADJECTIVE VOGON)
+        (FLAGS VOWELBIT NARTICLEBIT NDESCBIT ACTORBIT
+	       CONTBIT SEARCHBIT OPENBIT)
+	(ACTION GUARDS-F)>
+
+<ROUTINE GUARDS-F ()
+	 <COND (<EQUAL? ,GUARDS ,WINNER>
+		<COND (<AND <VERB? TELL-ABOUT>
+			    <PRSO? ,ME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,GUARDS ,PRSI>
+		       <SETG WINNER ,GUARDS>
+		       <RTRUE>)
+		      (<VERB? HELLO>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?HELLO ,GUARDS>
+		       <SETG WINNER ,GUARDS>
+		       <RTRUE>)
+		      (<EQUAL? ,HERE ,DAIS>
+		       <COND (<OR <AND <IN? ,RIFLES ,GUARDS>
+				       <VERB? SHOOT>
+				       ,DONT-FLAG>
+				  <AND <IN? ,RIFLES ,GUARDS>
+				       <NOT ,DONT-FLAG>
+				       <VERB? DROP>
+				       <PRSO? ,RIFLES>>>
+			      <FCLEAR ,RIFLES ,NDESCBIT>
+			      <ENABLE <QUEUE I-GUARDS 8>>
+			      <MOVE ,RIFLES ,HERE>
+			      <FSET ,RIFLES ,TAKEBIT>
+			      <FSET ,RIFLES ,TRYTAKEBIT>
+			      <TELL "The guards hesitate, then toss their photon rifles into a pile in front of you." CR>)
+			     (<VERB? SHOOT>
+			      <COND (<IN? ,RIFLES ,GUARDS>
+				     <JIGS-UP
+"The air becomes thick with photon beams.">)
+				    (T
+				     <TELL
+"Someone around here is being very stupid. Let's say it's the guards,
+since they're only fictitious characters and therefore not potential
+Infocom customers. The poor fictitious saps don't understand how they
+can shoot without rifles." CR>)>)
+			     (<AND <VERB? TAKE>
+				   <PRSO? ,RIFLES>>
+			      <COND (<IN? ,RIFLES ,GUARDS>
+				     <TELL "\"We already have them!\"" CR>)
+				    (T
+				     <MOVE ,RIFLES ,GUARDS>
+				     <ENABLE <QUEUE I-GUARDS 5>>
+				     <TELL "They do so." CR>)>)
+			     (<VERB? LEAVE>
+			      <TELL
+"\"We can't leave while you're in trouble, Mr. President!\"" CR>)
+			     (T
+			      <TELL
+"You have failed to issue one of the small set of commands that the
+guards' military intelligences are trained to understand." CR>
+			      <FUCKING-CLEAR>)>)
+		      (T
+		       <COND (<HELD? ,BABEL-FISH ,PROTAGONIST>
+			      <TELL "\"Resistance is useless!\"" CR>)
+			     (T
+			      <TELL "\"I">
+			      <PRODUCE-GIBBERISH 1>
+			      <CRLF>)>
+		       <FUCKING-CLEAR>)>)
+	       (<AND <EQUAL? ,HERE ,CAPTAINS-QUARTERS>
+		     <VERB? TELL HELLO THANK>>
+		<PERFORM ,V?TELL ,VOGON-CAPTAIN>
+		<RTRUE>)
+	       (<AND <EQUAL? ,HERE ,CAPTAINS-QUARTERS>
+		     <AND <VERB? ASK-ABOUT ASK-FOR>
+			  <EQUAL? ,GUARDS ,PRSO>>>
+		<PERFORM ,V?TELL ,VOGON-CAPTAIN>
+		<RTRUE>)
+	       (<AND <VERB? EXAMINE>
+		     <IN? ,RIFLES ,GUARDS>>
+		<TELL "They're holding their photon rifles." CR>)
+	       (<AND <EQUAL? ,HERE ,DAIS>		     
+		     <VERB? SHOOT>>
+		<COND (<BLASTER-HOLD>
+		       <RTRUE>)>
+		<TELL ,GUARDS-REALIZE>
+		<JIGS-UP
+"Although you incinerate many, other guards arrive and incinerate you.">
+		<RTRUE>)
+	       (<AND <VERB? GIVE>
+		     <PRSO? ,BLASTER>>
+		<TELL "The guards are more than glad to disarm you. They">
+		<GUARD-DEATH>
+		<RTRUE>)
+	       (<VERB? COUNT>
+		<COND (<EQUAL? ,HERE ,HOLD>
+		       <TELL "One." CR>)
+		      (<EQUAL? ,HERE ,CAPTAINS-QUARTERS>
+		       <TELL "Several." CR>)
+		      (T
+		       <TELL "Many." CR>)>)>>
+
+<ROUTINE WEAPON-PSEUDO ()
+	 <COND (<NOT <IN? ,GUARDS ,HERE>>
+		<TELL "What weapon?" CR>)
+	       (<VERB? SHOOT>
+		<TELL ,NOT-HOLDING " it." CR>)>>
+
+<OBJECT FRUSTATION
+	(LOC GLOBAL-OBJECTS)
+	(DESC "problem")
+	(SYNONYM FRUSTRATI PROBLEM PUZZLE)
+	(ACTION FRUSTRATION-F)>
+
+<ROUTINE FRUSTRATION-F ()
+	 <COND (<VERB? ENJOY>
+		<TELL ,ZEN CR>)>>
+
+<ROUTINE UNIMPORTANT-THING-F ()
+	 <COND (<AND <VERB? ASK-ABOUT>
+		     <PRSO? ,GUIDE>>
+		<RFALSE>)
+	       (T
+		<TELL "That's not important; leave it alone." CR>)>>
+
+;"DONT stuff"
+
+<ROUTINE DONT-F ()
+	 <COND (<VERB? PANIC>
+		<COND (<PROB 50>
+		       <TELL 
+"Very clever. It looks like there's a lot you should be panicking about." CR>)
+		      (T
+		       <TELL
+"Why not? Your position appears quite hopeless." CR>)>)
+	       (<VERB? LOOK>
+		<SETG DONT-FLAG <>>
+		<PERFORM ,V?CLOSE ,EYES>
+		<RTRUE>)
+	       (<VERB? WAIT>
+		<TELL "Time doesn't pass..." CR>)
+	       (<VERB? TAKE>
+		<TELL "Not taken." CR>)
+	       (<AND <VERB? LISTEN>
+		     <VISIBLE? ,POETRY>>
+		<SETG DONT-FLAG <>>
+		<PERFORM ,V?LISTEN ,POETRY>
+		<RTRUE>)
+	       (T
+		<TELL "Not done." CR>)>>
+
+;"DARK stuff"
+
+<GLOBAL VOGON-PROB 100>
+
+<GLOBAL HEART-PROB 0>
+
+<GLOBAL TRAAL-PROB 60>
+
+<GLOBAL FLEET-PROB 0>
+
+<GLOBAL WHALE-PROB 0>
+
+<GLOBAL TRILLIAN-PROB 15>
+
+<GLOBAL ZAPHOD-PROB 0>
+
+<GLOBAL FORD-PROB 15>
+
+<GLOBAL DREAMING <>>
+
+<GLOBAL DARK-COUNTER 0>
+
+<GLOBAL DARK-FLAG <>>
+
+<GLOBAL CURRENT-EXIT 0>
+
+<GLOBAL GROGGY <>>
+
+<GLOBAL LYING-COUNTER 0>
+
+<GLOBAL GUTS-ROOM <>>
+
+<ROOM DARK
+      (LOC ROOMS)
+      (SYNONYM SUNGLASSE GLASSES JANTA)
+      (ADJECTIVE JOO JANTA PERIL SENSITIVE)
+      (DESC "Dark")
+      (FLAGS RLANDBIT ONBIT)
+      (ACTION DARK-F)>
+
+<ROUTINE DARK-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<PUTP ,PROTAGONIST ,P?ACTION ,DARK-FUNCTION>
+		<ROB ,PROTAGONIST ,DARK-OBJECT>
+		<FSET ,CONVERSATION ,INVISIBLE>
+		<SETG DREAMING <>>
+		<SETG LYING-DOWN <>>
+		<REPEAT ()
+			<COND (<PROB ,HEART-PROB>
+			       <SETG HEART-PROB 0>
+			       <SETG VOGON-PROB 10>
+			       <SETG DARK-FLAG ,ENTRY-BAY>
+			       <SETG CURRENT-EXIT 3>)
+			      (<PROB ,VOGON-PROB>
+			       <SETG VOGON-PROB 0>
+			       <SETG HEART-PROB 100>
+			       <SETG DARK-FLAG ,HOLD>
+			       <SETG CURRENT-EXIT 0>)
+			      (<PROB ,TRAAL-PROB>
+			       <COND (<NOT <EQUAL? ,TRAAL-PROB 10>>
+				      <SETG TRAAL-PROB 10>
+				      <SETG TRILLIAN-PROB 25>
+				      <SETG FORD-PROB 25>
+				      <SETG ZAPHOD-PROB 25>)>
+			       <SETG DARK-FLAG ,LAIR>
+			       <SETG CURRENT-EXIT 4>)
+			      (<PROB ,TRILLIAN-PROB>
+			       <SETG TRILLIAN-PROB 10>
+			       <SETG DARK-FLAG ,LIVING-ROOM>
+			       <SETG CURRENT-EXIT 2>)
+			      (<PROB ,FORD-PROB>
+			       <SETG FORD-PROB 10>
+			       <SETG DARK-FLAG ,COUNTRY-LANE>
+			       <SETG CURRENT-EXIT 1>)
+			      (<PROB ,ZAPHOD-PROB>
+			       <SETG ZAPHOD-PROB 10>
+			       <SETG DARK-FLAG ,SPEEDBOAT>
+			       <SETG CURRENT-EXIT 5>)
+			      (<PROB ,FLEET-PROB>
+			       <SETG FLEET-PROB 10>
+			       <SETG DARK-FLAG ,WAR-CHAMBER>
+			       <SETG CURRENT-EXIT 7>)
+			      (<PROB ,WHALE-PROB> ;"this should always be 0"
+			       <TELL "Bug #60" CR>
+			       <SETG DARK-FLAG ,INSIDE-WHALE>
+			       <SETG CURRENT-EXIT 6>)>
+			<COND (,DARK-FLAG
+			       <RETURN>)>>
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<RTRUE>)>>
+
+<OBJECT DARK-OBJECT
+	(LOC GLOBAL-OBJECTS) ;"gets moved to Dark when you turn on the light"
+	(DESC "darkness")
+	(SYNONYM DARK DARKNESS NOTHING)
+	(FLAGS NDESCBIT NARTICLEBIT)>
+
+<OBJECT SHADOW
+	(LOC LOCAL-GLOBALS)
+	(DESC "shadow")
+	(SYNONYM SHADOW)
+	(FLAGS NDESCBIT)>
+
+<OBJECT LIQUID
+	(LOC LOCAL-GLOBALS)
+	(DESC "liquid")
+	(SYNONYM LIQUID)
+	(ADJECTIVE HOT COLD WARM WET SQUISHY)
+	(FLAGS NDESCBIT DRINKBIT)>
+
+<OBJECT PAINFUL-LIGHT
+	(LOC LOCAL-GLOBALS)
+	(DESC "light")
+	(SYNONYM LIGHT)
+	(ADJECTIVE PAINFUL BRIGHT)
+	(FLAGS NDESCBIT)>
+
+<OBJECT STAR-DRIVE
+	(LOC LOCAL-GLOBALS)
+	(DESC "star drive")
+	(SYNONYM DRIVE HUM)
+	(ADJECTIVE STAR DEEP DISTANT)
+	(FLAGS NDESCBIT)>
+
+<ROUTINE DARK-FUNCTION ()
+	 <COND (<VERB? QUIT RESTART RESTORE SCORE VERSION SAVE ;AGAIN HINTS
+		       VERBOSE BRIEF SUPERBRIEF SCRIPT UNSCRIPT FOOTNOTE>
+		<>)
+	       (,DONT-FLAG
+		<>)
+	       (<VERB? PANIC YELL>
+		<TELL
+"You yell as loudly as you can, but no sound emerges." CR>)
+	       (<OR <VERB? RELAX>
+		    <AND <VERB? ENJOY>
+			 <PRSO? ,DARK-OBJECT>>>
+		<TELL
+"You achieve a state of Negative Capability, and are able to be in
+uncertainties, mysteries, doubts, without any irritable searching
+after fact and reason (Footnote 1)." CR>)
+	       (<AND <EQUAL? ,DARK-FLAG ,ENTRY-BAY ,WAR-CHAMBER>
+		     <VERB? LISTEN>
+		     <PRSO? ,DARK-OBJECT>
+		     <MISSING?>>		
+		<MOVE ,STAR-DRIVE ,HERE>
+		<SETG P-IT-OBJECT ,STAR-DRIVE>
+		<TELL
+"You hear the deep and distant hum of a " D ,STAR-DRIVE " coming from far ">
+		<COND (<EQUAL? ,DARK-FLAG ,ENTRY-BAY>
+		       <TELL "above">)
+		      (T
+		       <TELL "below">)>
+		<TELL ". There is an exit to port." CR>)
+	       (<AND <VERB? WALK>
+		     <MISSING?>
+		     <EQUAL? ,DARK-FLAG ,WAR-CHAMBER ,ENTRY-BAY>
+		     <IN? ,STAR-DRIVE ,HERE>>
+		<COND (<PRSO? ,P?SOUTH>
+		       <COND (<L? ,LYING-COUNTER 4>
+			      <TELL ,LYING-ABOUT-EXIT>)>
+		       <TELL "You emerge from a small doorway...">
+		       <LEAVE-DARK>)
+		      (T
+		       <TELL ,CANT-GO>
+		       <COND (<PRSO? ,P?WEST>
+			      <SETG LYING-COUNTER <+ ,LYING-COUNTER 1>>
+			      <COND (<EQUAL? ,LYING-COUNTER 4>
+				     <TELL
+" " ,LYING-ABOUT-EXIT "There is an exit aft...">)>)>
+		       <CRLF>)>)
+	       (<AND <OR <PRSO? ,STAR-DRIVE>
+		         <PRSI? ,STAR-DRIVE>>
+		     <NOT <VERB? WALK>>>
+		<COND (<NOT <EQUAL? ,DARK-FLAG ,ENTRY-BAY ,WAR-CHAMBER>>
+		       <CANT-SEE ,STAR-DRIVE>)
+		      (<VERB? LISTEN>
+		       <TELL "The sound comes from far ">
+		       <COND (<EQUAL? ,DARK-FLAG ,ENTRY-BAY>
+			      <TELL "above">)
+			     (T
+			      <TELL "below">)>
+		       <TELL "." CR>)
+		      (T
+		       <>)>)
+	       (<AND <EQUAL? ,DARK-FLAG ,COUNTRY-LANE ,SPEEDBOAT>
+		     <VERB? EXAMINE>
+		     <PRSO? ,DARK-OBJECT>
+		     <MISSING?>>
+		<MOVE ,PAINFUL-LIGHT ,HERE>
+		<SETG P-IT-OBJECT ,PAINFUL-LIGHT>
+		<TELL "You see a painfully bright light that stabs at the ">
+		<COND (<EQUAL? ,DARK-FLAG ,COUNTRY-LANE>
+		       <TELL "front">)
+		      (T
+		       <TELL "back">)>
+		<TELL " of your eyes." CR>)
+	       (<AND <OR <PRSO? ,PAINFUL-LIGHT>
+		         <PRSI? ,PAINFUL-LIGHT>>
+		     <NOT <VERB? WALK>>>
+		<COND (<NOT <EQUAL? ,DARK-FLAG ,SPEEDBOAT ,COUNTRY-LANE>>
+		       <CANT-SEE ,PAINFUL-LIGHT>)
+		      (<VERB? EXAMINE>
+		       <TELL "The light resolves itself into the bright ">
+		       <COND (<EQUAL? ,DARK-FLAG ,COUNTRY-LANE>
+			      <TELL "yellow Sun of Earth">)
+			     (T
+			      <TELL "orange Sun of " D ,DAMOGRAN>)>
+		       <TELL ".">
+		       <LEAVE-DARK>)>)
+	       (<AND <EQUAL? ,DARK-FLAG ,LIVING-ROOM ,INSIDE-WHALE>
+		     <VERB? RUB>
+		     <PRSO? ,DARK-OBJECT>
+		     <MISSING?>>
+	        <MOVE ,LIQUID ,HERE>
+		<SETG P-IT-OBJECT ,LIQUID>
+		<TELL "It does feel a bit ">
+		<COND (<EQUAL? ,DARK-FLAG ,LIVING-ROOM>
+		       <TELL "cold">)
+		      (T
+		       <TELL "warm">)>
+		<TELL
+" and wet and squishy. There seems to be some liquid at your fingertips." CR>)
+	       (<AND <OR <PRSO? ,LIQUID>
+			 <PRSI? ,LIQUID>>
+		     <NOT <VERB? WALK>>>
+		<COND (<NOT <EQUAL? ,DARK-FLAG ,LIVING-ROOM ,INSIDE-WHALE>>
+		       <CANT-SEE ,LIQUID>)
+		      (<EQUAL? ,DARK-FLAG ,LIVING-ROOM>
+		       <COND (<VERB? EXAMINE RUB>
+			      <TELL "It seems coldish." CR>)
+			     (<VERB? TASTE DRINK>
+			      <TELL
+"It tastes just like wine. In fact, you realise with growing embarrassment
+that " D ,HANDS " is sitting in a " D ,WINE ".">
+			      <LEAVE-DARK>)>)
+		      (<EQUAL? ,DARK-FLAG ,INSIDE-WHALE>
+		       <COND (<VERB? EXAMINE RUB>
+			      <TELL "It seems warmish." CR>)
+			     (<VERB? TASTE DRINK>
+			      <TELL
+"Yucchhh! You are jerked to your senses by the realisation that you are
+licking the lining of a whale's stomach.">
+			      <LEAVE-DARK>)>)>)
+	       (<AND <EQUAL? ,DARK-FLAG ,HOLD ,LAIR>
+		     <VERB? SMELL>
+		     <PRSO? ,DARK-OBJECT>
+		     <MISSING?>>
+		<MOVE ,SHADOW ,HERE>
+		<SETG P-IT-OBJECT ,SHADOW>
+		<TELL "It does smell a bit. There's something pungent ">
+		<COND (<EQUAL? ,DARK-FLAG ,HOLD>
+		       <TELL "being waved">)
+		      (T
+		       <TELL "waving">)>
+		<TELL
+" under your nose. Your head begins to clear. You can make out a shadow
+moving in the dark." CR>)
+	       (<AND <OR <PRSO? ,SHADOW>
+			 <PRSI? ,SHADOW>>
+		     <NOT <VERB? WALK>>>
+		<COND (<NOT <EQUAL? ,DARK-FLAG ,HOLD ,LAIR>>
+		       <CANT-SEE ,SHADOW>)
+		      (<VERB? EXAMINE>
+		       <TELL "The shadow is vaguely ">
+		       <BEAST-GUARD-FORD>
+		       <TELL "-shaped.">
+		       <LEAVE-DARK>)
+		      (<VERB? RUB>
+		       <TELL "The shadow turns out to be a solid object of a ">
+		       <BEAST-GUARD-FORD>
+		       <TELL "-like nature.">
+		       <LEAVE-DARK>)
+		      (<VERB? SMELL>
+		       <TELL "The shadow has a sort of ">
+		       <BEAST-GUARD-FORD>
+		       <TELL "y smell to it.">
+		       <LEAVE-DARK>)
+		      (T
+		       <>)>)
+	       (T
+		<SETG DARK-COUNTER <+ ,DARK-COUNTER 1>>
+		<COND (,DARK-CONTROLLED
+		       <SETG CURRENT-EXIT <+ ,CURRENT-EXIT 1>>
+		       <COND (<EQUAL? ,CURRENT-EXIT 8>
+			      <SETG CURRENT-EXIT 0>)>
+		       <SETG DARK-FLAG <GET ,DARK-EXIT-TABLE ,CURRENT-EXIT>>)>
+		<COND (<VERB? LOOK>
+		       <TELL "Dark" CR>)>
+		<COND (<PROB 25>
+		       <DARK-ONE>
+		       <FUCKING-CLEAR>)
+		      (<PROB 33>
+		       <DARK-TWO>
+		       <FUCKING-CLEAR>)
+		      (<PROB 50>
+		       <DARK-THREE>
+		       <FUCKING-CLEAR>)
+		      (T
+		       <DARK-FOUR>
+		       <FUCKING-CLEAR>)>
+		<COND (<EQUAL? ,DARK-COUNTER 18>
+		       <TELL CR
+"When will you come to your senses and solve this puzzle?" CR>)
+		      (<EQUAL? ,DARK-COUNTER 33>
+		       <TELL CR
+"4 out of 5 sensitive people solve this puzzle right away." CR>)
+		      (<EQUAL? ,DARK-COUNTER 48>
+		       <TELL CR
+"Don't count your senses before they hatch." CR>)
+		      (<AND <EQUAL? ,DARK-COUNTER 63>
+		            <EQUAL? ,DARK-FLAG ,HOLD>>
+		       <TELL CR
+"Something stinks around here, and I'm not just talking about your
+puzzle-solving ability!" CR>)
+		      (T
+		       <RTRUE>)>)>>  
+
+<CONSTANT DARK-EXIT-TABLE
+	<PTABLE
+	 HOLD
+	 COUNTRY-LANE
+	 LIVING-ROOM
+	 ENTRY-BAY
+	 LAIR
+	 SPEEDBOAT
+	 INSIDE-WHALE
+	 WAR-CHAMBER>>
+
+<ROUTINE LEAVE-DARK ()
+	 <CRLF> <CRLF>
+	 <PUTP ,PROTAGONIST ,P?ACTION ,PROTAGONIST-F>
+	 <SETG DARK-COUNTER 0>
+	 <SETG LYING-COUNTER 0>
+	 <SETG DARK-CONTROLLED <>>
+	 <ROB ,DARK-OBJECT ,PROTAGONIST>
+	 <ROB ,MEMORIAL ,PROTAGONIST>
+	 <MOVE ,SHADOW ,LOCAL-GLOBALS>
+	 <MOVE ,PAINFUL-LIGHT ,LOCAL-GLOBALS>
+	 <MOVE ,LIQUID ,LOCAL-GLOBALS>
+	 <MOVE ,STAR-DRIVE ,LOCAL-GLOBALS>
+	 <COND (,FLUFF-TO-GOWN
+		<MOVE ,SATCHEL-FLUFF ,GOWN>
+		<SETG FLUFF-TO-GOWN <>>)>
+	 <COND (<AND <EQUAL? ,DARK-FLAG ,WAR-CHAMBER>
+		     <FSET? ,WAR-CHAMBER ,REVISITBIT>>
+		<ENABLE <QUEUE I-BRAIN-DEATH 6>>
+		<SETG HERE <META-LOC ,SPARE-DRIVE>>
+		<MOVE ,PROTAGONIST ,HERE>
+		<MOVE ,NAME ,HERE>
+		<SETG OHERE <>>
+		<SETG GUTS-ROOM ,HERE>
+		<TELL
+"There is a violent explosion around you, leaving you standing in">
+		<ARTICLE ,HERE T>
+		<TELL ". ">
+		<PERFORM ,V?EXAMINE ,GROUND>
+		<TELL CR
+"Apparently, you just materialised inside your own brain. This is very very
+very nasty. You have two choices: quit now, or experience this materialisation
+from the other end, in about five turns." CR>)
+	       (<AND <EQUAL? ,DARK-FLAG ,SPEEDBOAT>
+		     <FSET? ,SPEEDBOAT ,REVISITBIT>>
+		<GOTO ,DAIS>)
+	       (T
+		<COND (<NOT <EQUAL? ,DARK-FLAG ,ENTRY-BAY>>
+		       <MOVE ,MAIN-DRIVE ,LOCAL-GLOBALS>)>
+		<GOTO ,DARK-FLAG>)>
+	 <SETG DARK-FLAG <>>
+	 <RTRUE>>
+
+<ROUTINE MISSING? ()
+	 <COND (<OR ,DARK-CONTROLLED
+		    <G? ,DARK-COUNTER 3>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE DARK-ONE ()
+	 <TELL "You can ">
+	 <COND (<NOT <AND <MISSING?>
+		          <EQUAL? ,DARK-FLAG ,WAR-CHAMBER ,ENTRY-BAY>>>
+		<TELL "hear nothing, ">)>
+	 <COND (<NOT <AND <MISSING?>
+		          <EQUAL? ,DARK-FLAG ,HOLD ,LAIR>>>
+		<TELL "smell nothing, ">)>
+	 <TELL "taste nothing, ">
+	 <COND (<NOT <AND <MISSING?>
+		          <EQUAL? ,DARK-FLAG ,COUNTRY-LANE ,SPEEDBOAT>>>
+		<TELL "see nothing, ">)>
+	 <COND (<NOT <AND <MISSING?>
+			  <EQUAL? ,DARK-FLAG ,LIVING-ROOM ,INSIDE-WHALE>>>
+		<TELL "feel nothing, ">)>
+	 <TELL "and are not even certain who you are." CR>>
+
+<ROUTINE DARK-TWO ()
+	 <TELL "You can ">
+	 <COND (<NOT <AND <MISSING?>
+		          <EQUAL? ,DARK-FLAG ,COUNTRY-LANE ,SPEEDBOAT>>>
+		<TELL "see nothing, ">)>
+	 <COND (<NOT <AND <MISSING?>
+			  <EQUAL? ,DARK-FLAG ,LIVING-ROOM ,INSIDE-WHALE>>>
+		<TELL "feel nothing, ">)>
+	 <COND (<NOT <AND <MISSING?>
+		          <EQUAL? ,DARK-FLAG ,WAR-CHAMBER ,ENTRY-BAY>>>
+		<TELL "hear nothing, ">)>
+	 <TELL "taste nothing, ">
+	 <COND (<NOT <AND <MISSING?>
+		          <EQUAL? ,DARK-FLAG ,HOLD ,LAIR>>>
+		<TELL "smell nothing, ">)>
+	 <TELL "and are not entirely certain who you are." CR>>
+
+<ROUTINE DARK-THREE ()
+	 <TELL "You can't ">
+	 <COND (<NOT <AND <MISSING?>
+		          <EQUAL? ,DARK-FLAG ,WAR-CHAMBER ,ENTRY-BAY>>>
+		<TELL "hear anything, ">)>
+	 <COND (<NOT <AND <MISSING?>
+		          <EQUAL? ,DARK-FLAG ,COUNTRY-LANE ,SPEEDBOAT>>>
+		<TELL "see anything, ">)>
+	 <COND (<NOT <AND <MISSING?>
+		          <EQUAL? ,DARK-FLAG ,HOLD ,LAIR>>>
+		<TELL "smell anything, ">)>
+	 <COND (<NOT <AND <MISSING?>
+			  <EQUAL? ,DARK-FLAG ,LIVING-ROOM ,INSIDE-WHALE>>>
+		<TELL "feel anything, ">)>
+	 <TELL "or taste anything, and do not even know where you are
+or who you are or how you got there." CR>>
+
+<ROUTINE DARK-FOUR ()
+	 <TELL "There's nothing you can taste, ">
+	 <COND (<NOT <AND <MISSING?>
+		          <EQUAL? ,DARK-FLAG ,COUNTRY-LANE ,SPEEDBOAT>>>
+		<TELL "nothing you can see, ">)>
+	 <COND (<NOT <AND <MISSING?>
+		          <EQUAL? ,DARK-FLAG ,WAR-CHAMBER ,ENTRY-BAY>>>
+		<TELL "nothing you can hear, ">)>
+	 <COND (<NOT <AND <MISSING?>
+			  <EQUAL? ,DARK-FLAG ,LIVING-ROOM ,INSIDE-WHALE>>>
+		<TELL "nothing you can feel, ">)>
+	 <COND (<NOT <AND <MISSING?>
+		          <EQUAL? ,DARK-FLAG ,HOLD ,LAIR>>>
+		<TELL "nothing you can smell, ">)>
+	 <TELL "you do not even know who you are." CR>>
+
+<ROUTINE BEAST-GUARD-FORD ()
+	 <COND (<EQUAL? ,DARK-FLAG ,LAIR>
+		<TELL "Bugblatter Beast">)
+	       (<FSET? ,HOLD ,REVISITBIT>
+		<TELL "guard">)
+	       (T
+		<TELL D ,FORD>)>>
+
+<ROUTINE I-BRAIN-DEATH ()
+	 <CRLF>
+	 <TELL "The " D ,ARTHUR>
+	 <JIGS-UP
+" of five turns ago suddenly materialises inside your brain. There is an
+incredibly nasty, cracking, scrunching noise, and blood and bone fly everywhere
+as your head, to be perfectly frank about this, explodes. We did warn you.">
+	 <RTRUE>>
+
+;"tools"
+
+<OBJECT TOOTHBRUSH
+	(LOC BEDROOM)
+	(DESC "toothbrush")
+	(SYNONYM TOOTHBRUS BRUSH TOOL TOOLS)
+	(ADJECTIVE TOOTH MY PROPER)
+	(FLAGS TAKEBIT TRYTAKEBIT TOOLBIT)
+	(SIZE 3)
+	(GENERIC TWEEZERS)
+	(ACTION TOOTHBRUSH-F)>
+
+<ROUTINE TOOTHBRUSH-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <NOT <FSET? ,TOOTHBRUSH ,TOUCHBIT>>>
+		<MOVE ,TOOTHBRUSH ,PROTAGONIST>
+		<FSET ,TOOTHBRUSH ,TOUCHBIT>
+		<FCLEAR ,TOOTHBRUSH ,TRYTAKEBIT>
+		<TELL
+"As you pick up the " D ,TOOTHBRUSH " a tree outside the window collapses.
+There is no causal relationship between these two events.">
+		<COND (<FSET? ,PHONE ,TOUCHBIT>
+		       <TWO-TREES>)>
+		<CRLF>)>>
+
+<OBJECT SCREWDRIVER
+	(LOC BEDROOM)
+	(DESC "flathead screwdriver")
+	(SYNONYM SCREWDRIV TOOL TOOLS)
+	(ADJECTIVE FLATHEAD PROPER)
+	(FLAGS TAKEBIT TRYTAKEBIT TOOLBIT)
+	(SIZE 3)
+	(GENERIC TWEEZERS)>
+
+<OBJECT WRENCH
+	(LOC TOOLBOX)
+	(DESC "laser-assisted monkey wrench")
+	(SYNONYM WRENCH TOOL TOOLS)
+	(ADJECTIVE LASER ASSISTED LASER-ASS MONKEY PROPER)
+	(FLAGS TAKEBIT TOOLBIT)
+	(SIZE 3)
+	(GENERIC TWEEZERS)>
+
+<OBJECT CHISEL
+	(LOC PANTRY)
+	(DESC "thermo-fusion chisel")
+	(SYNONYM CHISEL TOOL TOOLS)
+	(ADJECTIVE THERMO FUSION THERMO-FU PROPER)
+	(FLAGS TAKEBIT TOOLBIT)
+	(SIZE 3)
+	(GENERIC TWEEZERS)>
+
+<OBJECT AWL
+	(LOC WAR-CHAMBER)
+	(DESC "ultra-plasmic vacuum awl")
+	(SYNONYM AWL TOOL TOOLS)
+	(ADJECTIVE ULTRA PLASMIC ULTRA-PLA VACUUM PROPER)
+	(FLAGS TAKEBIT VOWELBIT TOOLBIT)
+	(SIZE 3)
+	(GENERIC TWEEZERS)>
+
+<OBJECT PLIERS
+	(LOC LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
+	(DESC "pair of hypersonic pliers")
+	(SYNONYM PAIR PLIERS TOOL TOOLS)
+	(ADJECTIVE HYPERSONI PROPER)
+	(FLAGS TAKEBIT TOOLBIT)
+	(SIZE 3)
+	(GENERIC TWEEZERS)>
+
+<OBJECT TWEEZERS
+	(LOC HANDBAG)
+	(DESC "pair of tweezers")
+	(SYNONYM TWEEZERS TWEEZER PAIR TOOL TOOLS)
+	(ADJECTIVE PROPER)
+	(FLAGS TAKEBIT TOOLBIT)
+	(SIZE 3)
+	(GENERIC TWEEZERS)>
+
+<OBJECT PINCER
+	(LOC BRIDGE)
+	(DESC "molecular hyperwave pincer")
+	(SYNONYM PINCER TOOL TOOLS)
+	(ADJECTIVE MOLECULAR HYPERWAVE PROPER)
+	(FLAGS TAKEBIT TOOLBIT)
+	(SIZE 3)
+	(GENERIC TWEEZERS)>
+
+<OBJECT RASP
+	(LOC LOCAL-GLOBALS) ;"for the sake of MOBY-FIND"
+	(DESC "ionic diffusion rasp")
+	(SYNONYM RASP TOOL TOOLS)
+	(ADJECTIVE IONIC DIFFUSION PROPER)
+	(FLAGS TAKEBIT VOWELBIT TOOLBIT)
+	(SIZE 3)
+	(GENERIC TWEEZERS)> 
+
+<OBJECT CHIPPER
+	(LOC LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
+	(DESC "number twelve asteroid paint chipper")
+	(SYNONYM CHIPPER TOOL TOOLS)
+	(ADJECTIVE NUMBER TWELVE ASTEROID PAINT PROPER)
+	(FLAGS TAKEBIT TOOLBIT)
+	(SIZE 3)
+	(GENERIC TWEEZERS)>
+
+<CONSTANT TOOL-LIST
+	<PLTABLE
+	 SCREWDRIVER
+	 WRENCH
+	 CHISEL
+	 AWL
+	 PLIERS
+	 TWEEZERS
+	 PINCER
+	 RASP
+	 CHIPPER
+	 TOOTHBRUSH>>
+
+;"TEA stuff"
+
+<GLOBAL HOLDING-NO-TEA T>
+
+<ROUTINE LIQUID-SPILL ()
+	 <COND (<PRSI? ,FLOWERPOT ,PLANT>
+		<PERFORM ,V?WATER ,PRSI ,PRSO>
+		<RTRUE>)
+	       (T
+		<MOVE ,PRSO ,LOCAL-GLOBALS>
+		<COND (<PRSO? ,BROWNIAN-SOURCE>
+		       <SETG BROWNIAN-SOURCE <>>)
+		      (<PRSO? ,PANEL-BLOCKER>
+		       <SETG PANEL-BLOCKER <>>)>
+		<TELL "It spills all over and then evaporates.">
+		<COND (<PRSO? ,MINERAL-WATER>
+		       <ANTI-LITTER "bottle">)
+		      (T
+		       <ANTI-LITTER "cup">)>
+		<CRLF>)>>
+
+<ROUTINE ANTI-LITTER (STRING)
+	 <TELL " The " .STRING
+" itself vaporises, part of the Galactic Anti-Litter Program.">>
+
+<OBJECT TEA
+	(LOC PAD)
+        (DESC "tea")
+	(DESCFCN TEA-DESCFCN)
+	(SYNONYM TEA CUP)
+	(ADJECTIVE REAL NICE HOT)
+	(FLAGS NARTICLEBIT TAKEBIT TRYTAKEBIT DRINKBIT)
+	(ACTION TEA-F)>
+
+<ROUTINE TEA-DESCFCN ("OPTIONAL" X)
+	 <DESCRIBE-DRINK ,TEA>>
+
+<ROUTINE DESCRIBE-DRINK (DRINK)
+	 <TELL "There is a nice, hot cup of " D .DRINK " here." CR>>
+
+<ROUTINE TEA-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <PRSO? ,TEA>>
+		<MOVE ,TEA ,PROTAGONIST>
+		<SETG HOLDING-NO-TEA <>>
+		<TELL "no tea: Dropped." CR>)
+	       (<VERB? DROP>
+		<MOVE ,TEA ,HERE>
+		<COND (<EQUAL? ,HERE ,ACCESS-SPACE>
+		       <SETG HOLDING-NO-TEA T>
+		       <V-DROP>)
+		      (,HOLDING-NO-TEA
+		       <TELL "Dropped." CR>)
+		      (T
+		       <SETG HOLDING-NO-TEA T>
+		       <TELL "no tea: Taken." CR>)>)
+	       (<VERB? DRINK ENJOY DRINK-FROM>
+		<COND (<NOT <HELD? ,PRSO>>
+		       <TELL ,NOT-HOLDING " the cup!" CR>
+		       <RTRUE>)>
+		<SETG SCORE <+ ,SCORE 100>>
+		<MOVE ,TEA ,LOCAL-GLOBALS>
+		<SETG HOLDING-NO-TEA T>
+		<COND (<EQUAL? ,TEA ,BROWNIAN-SOURCE>
+		       <SETG BROWNIAN-SOURCE <>>)>
+		<TELL
+"It is the finest tea you have ever tasted. It has almost made this
+entire misadventure seem worthwhile. You experience several moments
+of complete happiness and relaxation.">
+		<ANTI-LITTER "cup">
+		<CRLF>)
+	       (<VERB? POUR THROW>
+		<LIQUID-SPILL>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL
+,IT-LOOKS-LIKE " it has even more" ,BROWNIAN " than " D ,SUBSTITUTE "!">
+		<COND (<PRSO? ,BROWNIAN-SOURCE>
+		       <TELL " ">
+		       <PERFORM ,V?EXAMINE ,DANGLY-BIT>
+		       <RTRUE>)
+		      (T
+		       <CRLF>)>)>>
+
+<OBJECT NO-TEA
+	(LOC GLOBAL-OBJECTS)
+	(DESC "no tea")
+	(SYNONYM TEA)
+	(ADJECTIVE NO)
+	(FLAGS NARTICLEBIT TRYTAKEBIT)
+	(ACTION NO-TEA-F)>
+
+<ROUTINE NO-TEA-F ()
+	 <COND (<AND <VERB? TAKE PICK-UP DROP>
+		     <PRSO? ,NO-TEA>
+		     <NOT <FSET? ,PARTICLE ,MUNGEDBIT>>>
+		<TELL
+"Your common sense tells you that you can't do that." CR>)
+	       (<AND <VERB? TAKE PICK-UP>
+		     <PRSO? ,NO-TEA>
+		     <NOT ,HOLDING-NO-TEA>>
+		<SETG HOLDING-NO-TEA T>
+		<TELL "no tea: Taken." CR>)
+	       (<AND <VERB? SHOW GIVE>
+		     <PRSI? ,SCREENING-DOOR>>
+		<RFALSE>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSO? ,GUIDE>>
+		<RFALSE>)
+	       (<AND <VERB? ASK-FOR>
+		     <PRSO? ,NUTRIMAT>>
+		<PERFORM ,V?RUB ,PAD>
+		<RTRUE>)
+	       (T
+		<TELL
+"You're talking complete nonsense; pull yourself together." CR>)>>
+
+<ROUTINE TEA-PRINT (OBJ) ;"tells MAIN-LOOP when to print OBJ: with VERB ALL"
+	 <COND (<NOT <EQUAL? .OBJ ,TEA ,NO-TEA>>
+		<RTRUE>)
+	       (<VERB? SHOW>
+		<RTRUE>)
+	       (<EQUAL? .OBJ ,TEA>
+		<COND (<VERB? TAKE>
+		       <COND (<HELD? ,TEA>
+			      <RTRUE>)
+			     (<AND ,PRSI
+				   <NOT <PRSI? <LOC ,PRSO>>>>
+			      <RTRUE>)
+			     (T
+			      <RFALSE>)>)
+		      (<AND <VERB? DROP>
+			    <NOT ,HOLDING-NO-TEA>>
+		       <RFALSE>)>)
+	       (<AND <EQUAL? .OBJ ,NO-TEA>
+		     <VERB? TAKE>
+		     <NOT ,HOLDING-NO-TEA>>
+		<RFALSE>)
+	       (T
+		<RTRUE>)>>
+
+;"THUMB and GUIDE stuff"
+
+<OBJECT THUMB
+	(LOC SATCHEL)
+	(DESC "electronic Sub-Etha signaling device")
+	(SYNONYM THUMB DEVICE SENSO)
+	(ADJECTIVE ELECTRONI SUB-ETHA SIGNALING SMALL BLACK LITTLE BLINKING)
+	(SIZE 10)
+	(FLAGS TAKEBIT VOWELBIT CONTBIT OPENBIT)
+	(ACTION THUMB-F)>
+
+<ROUTINE THUMB-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The " D ,THUMB " is shaped like a small fist with an extended thumb. Various
+lights along its \"knuckles\" are currently ">
+		<COND (<OR <IN? ,FLEET ,HERE>
+			   <EQUAL? ,HERE ,AIRLOCK ,INSIDE-WHALE>>
+		       <TELL
+"blinking wildly, indicating a spaceship in the vicinity">)
+		      (T
+		       <TELL "dark">)>
+		<TELL
+". It has two small buttons, a red one labelled \"Call Engineer\" and a green
+one labelled \"Hitchhike.\"">
+		<FINE-PRODUCT>
+		<TELL
+" Affixed to the Thumb is a lifetime " D ,GUARANTEE "." CR>)
+	       (<AND <VERB? TAKE>
+		     <EQUAL? ,IDENTITY-FLAG ,FORD>
+		     <IN? ,FLEET ,HERE>
+		     <NOT <IN? ,THUMB ,SATCHEL>>>
+		<TELL ,DRIVEN-BACK CR>)
+	       (<VERB? OPEN CLOSE LOOK-INSIDE>
+		<TELL "Impossible." CR>)>>
+
+<OBJECT RED-BUTTON
+	(LOC THUMB)
+	(DESC "red button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE RED SMALL)
+	(FLAGS NDESCBIT INTEGRALBIT)
+	(SIZE 1)
+	(ACTION RED-BUTTON-F)>
+
+<ROUTINE RED-BUTTON-F ()
+	 <COND (<VERB? PUSH>
+		<COND (<NOT <HELD? ,THUMB>>
+		       <PERFORM ,V?PUSH ,GREEN-BUTTON>
+		       <RTRUE>)
+		      (<IN? ,ENGINEER ,HERE>
+		       <TELL
+"Another " D ,ENGINEER " zips up, spots the first one, looks confused,
+and leaves again." CR>)
+		      (T
+		       <MOVE ,ENGINEER ,HERE>
+		       <MOVE ,BIKE ,HERE>
+		       <ENABLE <QUEUE I-ENGINEER 2>>
+		       <TELL
+"With a screech of ion brakes a " ,SCC " Repair Robot pulls up on a bike
+from out of the Sub-Etha." CR>)>)>>
+
+<OBJECT GREEN-BUTTON
+	(LOC THUMB)
+	(DESC "green button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE GREEN SMALL HITCHHIKE)
+	(FLAGS NDESCBIT INTEGRALBIT)
+	(SIZE 1)
+	(ACTION GREEN-BUTTON-F)>
+
+<ROUTINE GREEN-BUTTON-F ()
+	 <COND (<VERB? PUSH>
+		<COND (<NOT <HELD? ,THUMB>>
+		       <TELL ,NOT-HOLDING " the " D ,THUMB "." CR>
+		       <SETG P-IT-OBJECT ,THUMB>)
+		      (<AND <EQUAL? ,IDENTITY-FLAG ,FORD>
+			    <IN? ,FLEET ,HERE>>
+		       <MOVE ,THUMB ,HERE>
+		       <TELL ,THUMB-FUMBLE CR>)
+		      (<FSET? ,THUMB ,MUNGEDBIT>
+		       <TELL "The" ,THUMB-CLICKS CR>)
+		      (<IN? ,FLEET ,HERE>
+		       <COND (<EQUAL? ,DRUNK-LEVEL 3>
+			      <TELL
+"Lights whirl sickeningly around your head, the ground arches away beneath
+your feet, and every atom of your being is scrambled, an experience you're
+probably going to have to get used to. You are in..." CR CR>
+			      <LEAVE-EARTH>
+			      <GOTO ,DARK>)
+			     (T
+			      <TELL "A" ,BEAM>
+			      <JIGS-UP
+" is certainly a shock to the system. Too bad you didn't consume
+enough alcohol to withstand it.">
+			      <RTRUE>)>)
+		      (<EQUAL? ,HERE ,AIRLOCK ,INSIDE-WHALE>
+		       <TELL
+"Every molecule in your body gets pulled away from every other molecule.
+Then suddenly they snap back together again like elastic, and you find,
+with a dizzy head and very sore molecules, that you are in..." CR CR>
+		       <SETG HEART-PROB 100>
+		       <GOTO ,DARK>)
+		      (T
+		       <FSET ,THUMB ,MUNGEDBIT>
+		       <TELL
+"The Thumb winks and flashes for a second. Nothing further happens." CR>)>)>>
+
+<OBJECT GUARANTEE
+	(LOC THUMB)
+	(DESC "guarantee")
+	(SYNONYM GUARANTEE WARRANTY PLAQUE)
+	(ADJECTIVE LIFETIME)
+	(FLAGS NDESCBIT INTEGRALBIT)
+	(SIZE 2)
+	(ACTION GUARANTEE-F)>
+
+<ROUTINE GUARANTEE-F ()
+	 <COND (<VERB? READ EXAMINE>
+		<TELL
+"The lifetime " D ,GUARANTEE " states that the Thumb will be repaired on site
+by trained " ,SCC " Field Engineers." CR>)>>
+
+<OBJECT ENGINEER
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "Engineer robot")
+	(SYNONYM ROBOT ENGINEER)
+	(ADJECTIVE ENGINE)
+	(FLAGS VOWELBIT ACTORBIT CONTBIT OPENBIT SEARCHBIT)
+	(ACTION ENGINEER-F)>
+
+<ROUTINE ENGINEER-F ()
+	 <COND (<EQUAL? ,ENGINEER ,WINNER>
+		<ENABLE <QUEUE I-ENGINEER 2>>
+		<COND (<AND <VERB? TELL-ABOUT>
+			    <PRSO? ,ME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,ENGINEER ,PRSI>
+		       <SETG WINNER ,ENGINEER>
+		       <RTRUE>)
+		      (<VERB? HELLO>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?HELLO ,ENGINEER>
+		       <SETG WINNER ,ENGINEER>
+		       <RTRUE>)
+		      (<AND <VERB? REPAIR>
+			    <PRSO? ,THUMB>>
+		       <COND (<IN? ,THUMB ,ENGINEER>
+			      <TELL "\"I'm doing my best...\"" CR>
+			      <RTRUE>)>
+		       <SETG WINNER ,PROTAGONIST>
+		       <MOVE ,THUMB ,PROTAGONIST>
+		       <PERFORM ,V?GIVE ,THUMB ,ENGINEER>
+		       <SETG WINNER ,ENGINEER>
+		       <RTRUE>)
+		      (<VERB? REPAIR>
+		       <TELL "\"I repair only " D ,THUMB "s!\"" CR>)
+		      (<AND <VERB? YES>
+			    <EQUAL? ,AWAITING-REPLY 12>>
+		       <V-YES>)
+		      (<AND <VERB? NO>
+			    <EQUAL? ,AWAITING-REPLY 12>>
+		       <V-NO>)
+		      (T
+		       <TELL
+"\"Can't chat, pal, I'm attending to an important repair call.\"" CR>
+		       <FUCKING-CLEAR>)>)
+	       (<AND <VERB? GIVE SHOW>
+		     <PRSO? ,THUMB>>
+		<COND (<FSET? ,THUMB ,MUNGEDBIT>
+		       <ENABLE <QUEUE I-ENGINEER 2>>
+		       <SETG THUMB-SHOWN 1>
+		       <MOVE ,THUMB ,ENGINEER>
+		       <TELL
+"The " D ,ENGINEER " takes it, looks at it with horror, shakes his head, sighs,
+and says, \"Who sold you this then?\"" CR CR>
+		       <PRINTI ">">
+		       <PUTB ,P-INBUF 1 0>
+		       <READ ,P-INBUF ,P-LEXV>
+		       <TELL
+"The " D ,ENGINEER " ignores your reply and shakes the Thumb despondently.
+\"This is a model 13X,\" he says. \"Not meant for this sort of job. Anyway,
+it's discontinued. Can't get the parts.\"" CR>)
+		      (T
+		       <MOVE ,THUMB ,PROTAGONIST>
+		       <ENGINEER-LEAVE>
+		       <TELL
+"The " D ,ENGINEER " takes the Thumb, shakes it, looks it up and down.
+\"Seems to be working OK to me. Unusual for a 13X.\" He hands it back
+and" ,ROARS-OFF "." CR>)>)
+	       (<AND <VERB? GIVE SHOW>
+		     <PRSO? ,GUARANTEE>>
+		<COND (<NOT <FSET? ,THUMB ,MUNGEDBIT>>
+		       <PERFORM ,V?GIVE ,THUMB ,ENGINEER>
+		       <RTRUE>)>
+		<FCLEAR ,THUMB ,MUNGEDBIT>
+		<ENGINEER-LEAVE>
+		<MOVE ,THUMB ,PROTAGONIST>
+		<COND (<EQUAL? ,THUMB-SHOWN 0>
+		       <TELL
+"The " D ,ENGINEER " looks quizzically at the " D ,GUARANTEE " and says it's
+expired but he'll see what he can do. " ,FIDDLES "\"Can't promise anything.\"
+He" ,ROARS-OFF "." CR>)
+		      (T
+		       <SETG THUMB-SHOWN 0>
+		       <TELL
+"The " D, ENGINEER " looks at it sceptically. \"Guaranteed to work normally for
+life,\" he mutters. \"Well, it's perfectly normal for a 13X to break down. And
+this one's reached the end of its life anyway. But I'll see what I can do.\""
+CR CR ,FIDDLES "\"Best I can do for a 13X on an expired " D ,GUARANTEE ",\" he
+says. \"Can't promise anything.\" He" ,ROARS-OFF "." CR>)>)>>
+
+<GLOBAL ENGINEER-COUNTER 0>
+
+<GLOBAL THUMB-SHOWN 0>
+
+<ROUTINE ENGINEER-LEAVE ()
+	 <COND (<IN? ,THUMB ,ENGINEER>
+		<COND (<IN? ,ENGINEER ,HERE>
+		       <MOVE ,THUMB ,PROTAGONIST>)
+		      (T
+		       <MOVE ,THUMB <LOC ,ENGINEER>>)>)>
+	 <MOVE ,ENGINEER ,LOCAL-GLOBALS>
+	 <MOVE ,BIKE ,LOCAL-GLOBALS>
+	 <DISABLE <INT I-ENGINEER>>
+	 <SETG THUMB-SHOWN 0>
+	 <SETG ENGINEER-COUNTER 0>>
+
+<ROUTINE I-ENGINEER ()
+	 <ENABLE <QUEUE I-ENGINEER -1>>
+	 <SETG ENGINEER-COUNTER <+ ,ENGINEER-COUNTER 1>>
+	 <COND (<NOT <IN? ,ENGINEER ,HERE>>
+		<ENGINEER-LEAVE>
+		<RFALSE>)>
+	 <CRLF>
+	 <COND (<EQUAL? ,THUMB-SHOWN 1>
+		<SETG THUMB-SHOWN 2>
+		<TELL
+"The " D ,ENGINEER " ignores you completely. \"See, this is the model with
+the 5kz booster,\" he says. \"Hopeless.\" He shakes his head grimly." CR>)
+	       (<EQUAL? ,THUMB-SHOWN 2>
+		<TELL
+"The " D ,ENGINEER " ignores you. \"What you want, you see, is one of the new
+Mk7's. Only you can't get them. Out of stock till Zarkmas. Sorry.\" He">
+		<COND (<IN? ,THUMB ,ENGINEER>
+		       <TELL " gives the defunct Thumb back and">)>
+		<ENGINEER-LEAVE>
+		<TELL ,ROARS-OFF "." CR>)
+	       (<EQUAL? ,ENGINEER-COUNTER 1>
+		<SETG AWAITING-REPLY 12>
+		<ENABLE <QUEUE I-REPLY 2>>
+		<TELL
+"The " D, ENGINEER " looks around. \"Somebody call the repair service?\"" CR>)
+	       (<EQUAL? ,ENGINEER-COUNTER 2>
+		<TELL
+"The " D ,ENGINEER " looks impatient and guns the throttle of his cycle." CR>)
+	       (T
+		<ENGINEER-LEAVE>
+		<TELL
+"\"Probably a kid playing around with someone else's Thumb,\" grumbles the "
+D ,ENGINEER " and" ,ROARS-OFF "." CR>)>>
+
+<OBJECT BIKE
+	(LOC LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
+	(DESC "bike")
+	(SYNONYM BIKE CYCLE)
+	(ADJECTIVE ION)
+	(FLAGS NDESCBIT TRYTAKEBIT)>
+
+<OBJECT GUIDE
+	(LOC SATCHEL)
+	(DESC "The Hitchhiker's Guide")
+	(DESCFCN GUIDE-DESCFCN)
+	(SYNONYM COPY GUIDE)
+	(ADJECTIVE HITCHHIKE SUB-ETHA)
+	(SIZE 10)
+	(FLAGS NARTICLEBIT TAKEBIT READBIT)
+	(TEXT "Try: CONSULT GUIDE ABOUT (something).")
+	(ACTION GUIDE-F)>
+
+<ROUTINE GUIDE-DESCFCN ("OPTIONAL" X)
+	 <TELL "There is a copy of " ,GUIDE-NAME " here." CR>>
+
+<ROUTINE GUIDE-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The Guide is a Mark II model. Its only resemblance to the Mark IV pictured
+in the brochure in your game package is the large, friendly \"Don't Panic!\"
+on its cover.|
+|
+The Guide is a Sub-Etha Relay. You can use it to tap information from a huge
+and distant data bank by consulting the Guide about some item or subject." CR>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSO? ,GUIDE>>
+		<COND (<FSET? ,TOWEL ,WORNBIT>
+		       <TELL ,WITH-TOWEL CR>
+		       <RTRUE>)
+		      (<PRSI? ,ACCESS-SPACE>
+		       <TELL
+"Suddenly, agents of the " ,AGENCY " pop in using Sub-Etha belts, rough you up
+a bit, tell you there's no such thing as the " ,AGENCY " and never to consult "
+D ,GUIDE " about the " ,AGENCY " again; then they leave." CR>
+		       <RTRUE>)>
+		<TELL
+"The Guide checks through its Sub-Etha-Net database and eventually comes
+up with the following entry:" CR CR>
+		<COND (<PRSI? ,GUIDE>
+		       <TELL
+D ,GUIDE " is a wholly remarkable product." ,ALREADY-KNOW-THAT CR>)
+		      (<PRSI? ,DANGLY-BIT ,SMALL-RECEPTACLE ,LARGE-PLUG
+			      ,SMALL-PLUG ,GREEN-BUTTON ,RED-BUTTON>
+		       <TELL "Part of">
+		       <COND (<AND <PRSI? ,LARGE-PLUG>
+				   <NOT <IN? ,LARGE-PLUG ,SPARE-DRIVE>>>
+			      <ARTICLE ,SPARE-DRIVE>)
+			     (T
+			      <ARTICLE <LOC ,PRSI>>)>
+		       <TELL "." CR>)
+		      (<PRSI? ,WAR-CHAMBER>
+		       <TELL
+"If you have to consult the Guide about that, you're probably in serious
+shape. Consult a medic instead." CR>)
+		      (<PRSI? ,DAMOGRAN>
+		       <TELL
+D ,DAMOGRAN " is a planet whose surface is mostly water. It is a favourite
+spot for Presidential dedication ceremonies" ,ALSO-SEE "France." CR>)
+		      (<PRSI? ,CLIFF>
+		       <TELL
+"France is the largest landmass on the planet " D ,DAMOGRAN "." CR>)
+		      (<PRSI? ,HEART-OF-GOLD>
+		       <TELL
+"There is absolutely no such spaceship as " D ,HEART-OF-GOLD " and anything
+you've ever read in this spot to the contrary was just a prank.|
+   -- " ,AGENCY CR>) 
+		      (<PRSI? ,POETRY>
+		       <TELL
+D ,POETRY " is so awful that even the Sarkopsi of Burphon XII, whose religion
+strictly forbids the taking of one's life, consider suicide a preferable
+alternative to a " D ,POETRY " reading." CR>)
+		      (<PRSI? ,VOGON-CAPTAIN ,FLEET>
+		       <TELL
+"Vogons, whose specialties are bureaucracy and planet-smashing, are the most
+unpleasant race in the Galaxy. They wouldn't think twice about throwing someone
+into space, and wouldn't lift a finger to save their own grandmother from the "
+D ,BEAST ,ALSO-SEE D ,POETRY " and the " D ,BEAST "." CR>)
+		      (<PRSI? ,BEER ,PUB>
+		       <TELL
+"Alcohol, in addition to its familiar enjoyable effects, also helps cushion
+the shock of" ,BEAM "s." CR>)
+		      (<PRSI? ,BRIDGE>
+		       <TELL
+"The best randomness generator is simple" ,BROWNIAN ". Any hot gas or
+liquid is a good source." CR>)
+		      (<PRSI? ,GALLEY>
+		       <TELL
+"The " ,SCC " incompetently produces a wide range of inefficient and unreliable
+high-tech machinery. However, thanks to SCC's ruthless marketing division, this
+junk accounts for over 95% of the high-tech machinery sold in the Galaxy.
+(SCC's marketing division will be the first against the wall when the
+revolution comes.)" CR>)
+		      (<PRSI? ,PANTRY>
+		       <TELL
+"Thirty million generations of philosophers have debated the definition of
+intelligence. The most popular definition appears in the " ,SCC " android
+manuals: \"Intelligence is the ability to reconcile totally contradictory
+situations without going completely bonkers -- for example, having a stomach
+ache and not having a stomach ache at the same time, holding a hole without
+the doughnut, having good luck and bad luck simultaneously, or seeing a real
+estate agent waive his fee.\"" CR>)
+		      (<PRSI? ,SCREENING-DOOR>
+		       <TELL
+"These " ,SCC " doors screen visitors for such qualities as intelligence
+and ability to time travel" ,ALSO-SEE ,SCC ", " ,GPP ", Intelligence,
+and Time Travel." CR>)
+		      (<PRSI? ,HATCHWAY ,MARVIN ,EDDIE>
+		       <TELL
+,GPP " are a misguided attempt by the " ,SCC " to make their machines behave
+more like people. Among the more miserable failures: paranoid-depressive
+robots and overprotective computers." CR>)
+		      (<PRSI? ,DARK>
+		       <TELL
+"A must for the serious hitchhiker, peril-sensitive sunglasses darken at the
+first hint of danger, thus shielding the wearer from seeing anything alarming.
+Recommended brand: Joo Janta." CR>)   
+		      (<PRSI? ,RAMP>
+		       <TELL
+"According to legend, Magrathea was a planet that amassed incredible wealth by
+manufacturing " D ,OTHER-PLANETS ". The legends also mention it as the setting
+of the very eagerly awaited second Infocom Hitchhiker's game." CR>)
+		      (<PRSI? ,ENGINE-ROOM ,MAIN-DRIVE ,SPARE-DRIVE>
+		       <TELL
+"Scientists have long known how to produce FINITE amounts of improbability,
+using a " ,FIG ", an " D ,PLOTTER " and a good source of" ,BROWNIAN ".
+Recently, however, they have learned to generate INFINITE amounts, thanks to
+the invention of the In" ,FIG ". It is rumored that an" ,IID ", based on this
+new generator, is currently under development" ,ALSO-SEE D ,PLOTTER " and"
+,BROWNIAN "." CR>)
+		      (<PRSI? ,PLOTTER>
+		       <TELL
+"The " D ,PLOTTER " is one of the primary application devices of
+Improbability Physics." CR>)
+		      (<PRSI? ,PEANUTS ,HOLD>
+		       <TELL
+"Sources of protein, such as the common peanut, are carried by all serious
+hitchhikers. Protein loss occurs in" ,BEAM "s and you will become groggy
+unless you replace it immediately." CR>)
+		      (<PRSI? ,NUTRIMAT ,NUT-COM-INTERFACE>
+		       <TELL
+"A typically unreliable " ,SCC " product, the " D ,NUTRIMAT " analyses
+the user's neural paths to provide the (supposedly) ideal offering. Its
+computing power is frankly abysmal, so the optional computer interface
+is a good thing to go for.">
+		       <CRLF>)
+		      (<PRSI? ,POCKET-FLUFF ,JACKET-FLUFF
+			      ,SATCHEL-FLUFF ,CUSHION-FLUFF>
+		       <TELL
+"Fluff is interesting stuff: a deadly poison on Bodega Minor, the diet staple
+of Frazelon V, the unit of currency on the moons of the Blurfoid system, and
+the major crop of the laundry supplies planet, Blastus III.|
+One ancient legend claims that four pieces of fluff lie scattered around the
+Galaxy; each forming one quarter of the seedling of a tree with amazing
+properties, the sole survivor of the tropical planet Fuzzbol (Footnote 8).|
+The ultimate source of fluff is still a mystery, with the scientific community
+torn between the Big Lint Bang theory and the White Lint Hole theory." CR>) 
+		      (<OR <PRSI? ,ZAPHOD>
+			   <AND <PRSI? ,ME>
+				<EQUAL? ,IDENTITY-FLAG ,ZAPHOD>>>
+		       <TELL D ,ZAPHOD " is the current" ,PRESIDENT "." CR>) 
+		      (<PRSI? ,BABEL-FISH>
+		       <TELL
+"A mind-bogglingly improbable creature. A " D ,BABEL-FISH ", when placed in
+one's ear, allows one to understand any language." CR>)
+		      (<PRSI? ,TOWEL>
+		       <TELL
+"A towel is the most useful thing (besides the Guide) a Galactic hitchhiker
+can have. Its uses include travel, combat, communications, protection from the
+elements, hand-drying and reassurance. Towels have great symbolic value, with
+many associated points of honour. Never mock the towel of another, even if it
+has little pink and blue flowers on it. Never do something to somebody else's
+towel that you would not want them to do to yours. And, if you borrow the towel
+of another, you MUST return it before leaving their world." CR>)
+		      (<PRSI? ,THUMB ,GUARANTEE>
+		       <TELL
+"The Electronic Sub-Etha Auto Hitching Thumb is a wonderful thing, but should
+not be mistreated. If used while a ship is near, you will be transported there.
+If no ship is in the vicinity, you will place a heavy strain on the Thumb's
+logic circuits, which could lead to malfunction. The Thumb carries the usual "
+,SCC " lifetime " D ,GUARANTEE "s." CR>)
+		      (<PRSI? ,MINERAL-WATER>
+		       <TELL
+"A strong body of opinion holds that this is not water at all, despite the
+claims on the label about how pure the spring is, and all that tosh about
+sparkling babbling brooks and so on. There is something highly suspect about
+the water on Santraginus Five, as anyone who's ever met any of their fish
+will tell you." CR>)
+		      (<PRSI? ,BEAST>
+		       <TELL
+"The " D ,BEAST " is a mind-bogglingly stupid animal. It has almost no capacity
+for learning from experience and is therefore surprised by virtually everything
+that happens to it. Here is an example of how stupid it is: it thinks that if
+you can't see it, it can't see you.|
+Its behaviour would be quite endearing if it wasn't spoilt by this one
+thing: it is the most violently carnivorous creature in the Galaxy. Avoid,
+avoid, avoid." CR>)
+		      (<PRSI? ,FRONT-PORCH>
+		       <TELL
+"A thoroughly unpleasant means of travelling which involves tearing you apart
+in one place and slamming you back together in another. (Of course, it's
+better than the older method, where disassembled people would be transmitted
+down phone lines and arrive in a garbled and sometimes completely disconnected
+state.) You should have a drink or two or three before going through one"
+,ALSO-SEE "Galaxia Woonbeam, Alcohol and Protein." CR>)
+		      (<PRSI? ,FRONT-OF-HOUSE>
+		       <TELL
+"Galaxia Woonbeam is the author of \"Slimmer's Guide to Weightloss During
+Matter Disassembly Transition.\" This text is currently the subject of the
+biggest suit for criminal negligence damages in history and is unavailable
+at this time." CR>)
+		      (<PRSI? ,ENTRY-BAY>
+		       <TELL
+"The best drink in existence; somewhat like having your brains smashed out by
+a slice of lemon wrapped around a large gold brick." CR>)
+		      (<PRSI? ,THIRD-PLANET ,MAZE>
+		       <TELL "Mostly harmless." CR>)
+		      (<PRSI? ,COUNTRY-LANE>
+		       <TELL ,SPACE-TEXT CR>)
+		      (<FSET? ,PRSI ,TOOLBIT>
+		       <TELL
+"The editor responsible for entries under this heading has been out to lunch
+for a couple of years but is expected back soon, at which point there will be
+rapid updates. Until then, don't panic, unless your situation is really a life
+or death one, in which case, sure, go ahead, panic." CR>)
+		      (<PRSI? ,BEDROOM ,RIFLES ,BLASTER ,TEA ,NO-TEA ,BEAST-GUN
+			      ,SUBSTITUTE ,AFT-CORRIDOR ,AIRLOCK ,INSIDE-WHALE>
+		       <TELL
+"Sorry, that portion of our Sub-Etha database was accidentally deleted last
+night during a wild office party. The lost data will be restored as soon as
+we find someone who knows where the back-up tapes are kept, if indeed any
+are kept at all." CR>)
+		      (T
+		       <TELL
+"That is one of the Great Unanswered Questions. For a list of the others,
+consult the Guide." CR>)>)>>
+
+<CONSTANT SPACE-TEXT
+"If you hyperventilate and then empty your lungs, you will last about thirty
+seconds in the vacuum of space. However, because space is so vastly hugely
+mind-bogglingly big, getting picked up by another ship within those thirty
+seconds is almost infinitely improbable.">
+
+;"shared stuff"
+
+<ROUTINE CANT-SEE (OBJ)
+	 <TELL "You can't see">
+	 <COND (<NOT <NAME? .OBJ>>
+		<TELL " any">)>
+	 <COND (<EQUAL? .OBJ ,PRSO>
+		<PRSO-PRINT>)
+	       (T
+		<PRSI-PRINT>)>
+	 <TELL " here." CR>
+	 <FUCKING-CLEAR>>
+
+<ROUTINE TELL-ME-HOW ()
+	 <TELL "You must tell me how to do that to">
+	 <ARTICLE ,PRSO>
+	 <TELL "." CR>>
+
+<ROUTINE OUT-OF-FIRST (VEHICLE)
+	 <TELL "You'll have to get out of the " D .VEHICLE " first." CR>>
+
+<ROUTINE PRIVATE (STRING)
+	 <TELL
+"You can't. It's not yours. It's " .STRING "'s and it's private." CR>>
+
+<ROUTINE NOT-VERY-GOOD (STRING)
+	 <TELL "It's not a very good " .STRING ", is it?" CR>>
+
+<ROUTINE FACTOR (STRING)
+	 <TELL
+" at an improbability factor of 2 to the " .STRING "th power to 1 against.">>
+
+<ROUTINE REMOVING-BIT ()
+	 <TELL "(removing the " D ,DANGLY-BIT " first)" CR>>
+
+<ROUTINE PART-OF ()
+	 <TELL "You can't --">
+	 <ARTICLE ,PRSO T>
+	 <TELL " is an integral part of">
+	 <ARTICLE <LOC ,PRSO> T>
+	 <TELL "." CR>>
+
+<ROUTINE BUT-THAT-MAN (STRING)
+	 <TELL
+"Pointing toward Prosser, " .STRING ", \"But that man ">
+	 <COND (,HOUSE-DEMOLISHED
+		<TELL "just knocked">)
+	       (T
+		<TELL "wants to knock">)>
+	 <TELL " my house down!\"">>
+
+<ROUTINE CUSHION ()
+	 <TELL
+" cushion your system against the coming shock of the" ,BEAM ".">>
+
+<ROUTINE FINE-PRODUCT ()
+	 <TELL " It bears a small label which reads \"Another fine product
+of the " ,SCC ".\"">>
+
+<ROUTINE MAKE-WAY-FOR ()
+	 <TELL
+" a " D ,FLEET " unexpectedly arrives and demolishes the Earth to make way
+for a new hyperspace bypass." CR>>
+
+<ROUTINE OWN-FEET ()
+	 <TELL "You are now on your feet." CR>>
+
+<CONSTANT DOWN-WELL "It goes down well.">
+
+<CONSTANT NOT-PLUGGED "It's not plugged into anything!">
+
+<CONSTANT LYING-ABOUT-EXIT "(We were lying about the exit to port.) ">
+
+<CONSTANT ROARS-OFF " roars off on his ion bike into the Sub-Etha">
+
+<CONSTANT FIDDLES
+"He fiddles with the Thumb for a moment or two before handing it back. ">
+
+<CONSTANT LOOK-AROUND "Look around you.">
+
+<CONSTANT TOO-DARK "It's too dark to see!">
+
+<CONSTANT CANT-GO "You can't go that way.">
+
+<CONSTANT YOU-ARE "You already are!">
+
+<CONSTANT ALREADY-OPEN "It is already open.">
+
+<CONSTANT ALREADY-CLOSED "It is already closed.">
+
+<CONSTANT REFERRING "I don't see what you're referring to.">
+
+<CONSTANT WHILE-LYING "You can't do that while you're lying down!">
+
+<CONSTANT WITH-TOWEL "With a towel wrapped around your head!?!">
+
+<CONSTANT ZEN "A brave, Zen-like effort. It fails.">
+
+<CONSTANT BULLDOZER-PILES "The bulldozer piles into the side of your home.">
+
+<CONSTANT IT-LOOKS-LIKE "It looks like">
+
+<CONSTANT CLAWS " its tungsten carbide Vast-Pain claws">
+
+<CONSTANT PRESIDENT " President of the Galaxy">
+
+<CONSTANT SCC "Sirius Cybernetics Corporation">
+
+<CONSTANT BEAM " matter transference beam">
+
+<CONSTANT FLEET-PLUNGES "The battle fleet plunges toward Earth and">
+
+<CONSTANT ABOVE-NOISE "He can't hear you above the noise." >
+
+<CONSTANT BATTLE-SHORTS " black jewelled battle shorts, ">
+
+<CONSTANT CLOUD-OF-STEAM " in a cloud of green, sweet-smelling steam. ">
+
+<CONSTANT GUIDE-NAME "The Hitchhiker's Guide to the Galaxy">
+
+<CONSTANT ALREADY-KNOW-THAT 
+" But then again you must already know that, since you bought one.">
+
+<CONSTANT THUMB-CLICKS " Thumb merely makes a few feeble clicking noises.">
+
+<CONSTANT BROWNIAN " Brownian motion">
+
+<CONSTANT ASK-ABOUT-OBJECT "\"Oh...you're trying to figure that out also? The
+manual's not much help, is it? By the way, do you know your score? I don't.
+My computer doesn't have a status line.\"">
+
+<CONSTANT DRIVEN-BACK "You struggle to reach the Thumb, but the wind is too
+fierce and you are driven back.">
+
+<CONSTANT GUARDS-REALIZE "A wisp of an inkling of a thought penetrates the
+three-inch thickness of solid bone surrounding the guards' very tiny brains
+that something suspicious is going on. ">
+
+<CONSTANT GETTING-CLOSE " You're getting close, though.">
+
+<CONSTANT GPP "Genuine People Personalities">
+
+<CONSTANT ALSO-SEE ". Also see the entries on ">
+
+<CONSTANT JUST-AS 
+"Just as the Beast is trying to work out where you've disappeared to, it ">
+
+<CONSTANT BUDGE "It won't budge.">
+
+<CONSTANT BEAST-DESC
+"You notice the Beast's Lasero-Zap eyes, its Swivel Shear Teeth, and its
+several dozen tungsten carbide Vast-Pain claws, forged in the sun furnaces
+of Zangrijad. It has skin like a motorway and breath like a 747.">
+
+<CONSTANT NOT-HOLDING "You're not holding">
+
+<CONSTANT WITH-PASSION
+" with passion, and ignores a passing microscopic space fleet.">
+
+<CONSTANT DIALING-TONE " A moment later, the dialing tone is suddenly cut off.
+Glancing through the window you can't help but notice the large old oak tree of
+which you are particularly fond crashing down through the phone cable.">
+
+<CONSTANT ANNOUNCEMENT "\"Announcement, announcement. This is ">
+
+<CONSTANT HANDS-OFF "The barman snaps \"Hands off until you pay for it!\"">
+
+<CONSTANT ARRESTED "Do you want to get arrested for indecent exposure?">
+
+<CONSTANT AGENCY "Galactic Security Agency">
+
+<CONSTANT LOST-PLANET " the legendary lost planet of Magrathea">
+
+<CONSTANT DONT-MIX
+"Despite your hangover, you recall that Zaphod and water don't mix.">
+
+<CONSTANT CROWD-CHEERS "The crowd cheers wildly! It thinks you're terrific.">
+
+<CONSTANT HUMANS "Humans are so depressingly ">
+
+<CONSTANT EYE-STALK "electronic eye stalk shoots up from the hood, ">
+
+<CONSTANT SLOWLY-DAWNS
+" Slowly it dawns on the creature that someone is trying to make a fool
+of it. It starts to look for you again.">
+
+<CONSTANT IID " Infinite Improbability Drive">
+
+<CONSTANT FIG "finite Improbability Generator">
+
+<CONSTANT ROBOT-FLIES-IN
+"A small upper-half-of-the-room cleaning robot flies into the room, ">
+
+<CONSTANT ON-OTHER-SIDE "standing on the other side">
+
+<CONSTANT MOP " the manual override receptacle">
+
+<CONSTANT NICE-DAY "t's a bright morning, the sun is shining, the birds are
+singing, the meadows are blooming">
+
+<CONSTANT GET-RID " you've been trying to get rid of it for years.">
+
+<CONSTANT THUMB-FUMBLE "You fumble with the Thumb as you hold onto the tree
+against the fierce wind. It falls to the ground near Arthur's feet.">
+
+<CONSTANT ENGAGED " all circuits are currently engaged by the ">
\ No newline at end of file
diff --git a/heart.zabstr b/heart.zabstr
new file mode 100644
index 0000000..b007e57
--- /dev/null
+++ b/heart.zabstr
@@ -0,0 +1,216 @@
+
+<DEFINE-ROUTINE IN-HEART?> 
+<OBJECT HEART-OF-GOLD (LOC LOCAL-GLOBALS) (DESC "the Heart of Gold") (SYNONYM
+HEART GOLD SHIP SPACES) (ADJECTIVE SPACE INCREDIBL NEW) (FLAGS NARTICLEBIT) (
+ACTION HEART-OF-GOLD-F)> 
+<DEFINE-ROUTINE HEART-OF-GOLD-F> 
+<GLOBAL TEA-SHOWN <>> 
+<GLOBAL SUBSTITUTE-DRUNK <>> 
+<ROOM PANTRY (LOC ROOMS) (SYNONYM INTELLIGE) (DESC "Marvin's Pantry") (LDESC
+"This is a small closet with an exit to starboard.") (EAST TO AFT-CORRIDOR) (
+OUT TO AFT-CORRIDOR) (FLAGS RLANDBIT ONBIT NARTICLEBIT) (GLOBAL HEART-OF-GOLD
+SCREENING-DOOR) (ACTION PANTRY-F)> 
+<OBJECT PANTRY-PSEUDO (LOC PANTRY) (SYNONYM PANTRY CLOSET) (ADJECTIVE MARVIN\'S
+) (DESC "pantry") (FLAGS NDESCBIT) (ACTION GLOBAL-ROOM-F)> 
+<DEFINE-ROUTINE PANTRY-F> 
+<OBJECT SCREENING-DOOR (LOC LOCAL-GLOBALS) (DESC "screening door") (SYNONYM
+DOOR) (ADJECTIVE SCREENING) (FLAGS DOORBIT NDESCBIT ACTORBIT) (ACTION
+SCREENING-DOOR-F)> 
+<DEFINE-ROUTINE SCREENING-DOOR-F> 
+<OBJECT MARVIN (LOC PANTRY) (DESC "Marvin") (LDESC
+"Marvin, the Paranoid Android, is here.") (SYNONYM MARVIN MARV ROBOT ANDROID) (
+ADJECTIVE DEPRESSED PARANOID) (FLAGS NARTICLEBIT ACTORBIT) (ACTION MARVIN-F)> 
+<DEFINE-ROUTINE MARVIN-F> 
+<DEFINE-ROUTINE I-MARVIN> 
+<DEFINE-ROUTINE MARVIN-BITCH> 
+<GLOBAL MARVIN-COUNTER 0> 
+<GLOBAL TOOL-REQUIRED <>> 
+<GLOBAL FLUFF-COUNTER 0> 
+<GLOBAL PLANT-BLOOMED <>> 
+<OBJECT FLOWERPOT (LOC INSIDE-WHALE) (DESC "flowerpot") (SYNONYM FLOWERPOT POT
+SOIL DIRT) (ADJECTIVE FLOWER FERTILE) (CAPACITY 1) (SIZE 15) (FLAGS TAKEBIT
+CONTBIT OPENBIT) (ACTION FLOWERPOT-F)> 
+<DEFINE-ROUTINE FLOWERPOT-F> 
+<DEFINE-ROUTINE I-PLANT> 
+<OBJECT PLANT (LOC LOCAL-GLOBALS) (DESC "plant") (SYNONYM PLANT SPROUT STEM
+STALK) (ADJECTIVE SMALL LARGE LEAFY) (FLAGS NDESCBIT INTEGRALBIT) (ACTION
+PLANT-F)> 
+<DEFINE-ROUTINE PLANT-F> 
+<OBJECT FRUIT (LOC LOCAL-GLOBALS) (DESC "fruit") (SYNONYM FRUIT) (ADJECTIVE
+LARGE SUCCULENT) (FLAGS NDESCBIT TRYTAKEBIT TAKEBIT EATBIT) (ACTION FRUIT-F)> 
+<DEFINE-ROUTINE FRUIT-F> 
+<ROOM GALLEY (LOC ROOMS) (SYNONYM CORPORATI SCC) (ADJECTIVE SIRIUS CYBERNETI) (
+DESC "Galley") (EAST TO FORE-CORRIDOR) (OUT TO FORE-CORRIDOR) (FLAGS RLANDBIT
+ONBIT) (GLOBAL HEART-OF-GOLD) (ACTION GALLEY-F)> 
+<OBJECT GALLEY-PSEUDO (LOC GALLEY) (SYNONYM GALLEY) (DESC "galley") (FLAGS
+NDESCBIT) (ACTION GLOBAL-ROOM-F)> 
+<DEFINE-ROUTINE GALLEY-F> 
+<OBJECT NUTRIMAT (LOC GALLEY) (DESC "Nutrimat") (SYNONYM NUTRIMAT MACHINE PANEL
+) (ADJECTIVE SERVICE) (FLAGS NDESCBIT ACTORBIT CONTBIT LIGHTBIT SEARCHBIT) (
+ACTION NUTRIMAT-F)> 
+<DEFINE-ROUTINE NUTRIMAT-F> 
+<OBJECT PAD (LOC GALLEY) (DESC "touch-sensitive pad") (SYNONYM PAD) (ADJECTIVE
+TOUCH SENSITIVE TOUCH-SEN) (FLAGS NDESCBIT) (ACTION PAD-F)> 
+<DEFINE-ROUTINE PAD-F> 
+<OBJECT SLOT (LOC GALLEY) (DESC "slot") (SYNONYM SLOT) (ADJECTIVE DISPENSER) (
+FLAGS NDESCBIT CONTBIT OPENBIT SEARCHBIT) (CAPACITY 20) (ACTION SLOT-F)> 
+<DEFINE-ROUTINE SLOT-F> 
+<OBJECT BOARD (LOC NUTRIMAT) (DESC "circuit board") (SYNONYM BOARD MESSAGE
+LETTER MICROCHIP) (ADJECTIVE CIRCUIT MICROSCOP PRINTED) (FLAGS TAKEBIT CONTBIT
+TRANSBIT) (ACTION BOARD-F)> 
+<DEFINE-ROUTINE BOARD-F> 
+<OBJECT DIPSWITCH (LOC BOARD) (DESC "dipswitch") (SYNONYM SWITCH DIPSWITCH) (
+ADJECTIVE DIP FIRST SECOND THIRD FOURTH FIFTH SIXTH SEVENT EIGHTH) (FLAGS
+NDESCBIT SWITCHBIT) (ACTION DIPSWITCH-F)> 
+<DEFINE-ROUTINE DIPSWITCH-F> 
+<OBJECT SUBSTITUTE (LOC PAD) (DESC "Advanced Tea Substitute") (DESCFCN
+SUBSTITUTE-DESCFCN) (SYNONYM CUP CUPFUL SUBSTITUT ATS) (ADJECTIVE TEA ADVANCED
+NICE HOT) (FLAGS NARTICLEBIT VOWELBIT TAKEBIT DRINKBIT) (ACTION SUBSTITUTE-F)> 
+<DEFINE-ROUTINE SUBSTITUTE-DESCFCN> 
+<DEFINE-ROUTINE SUBSTITUTE-F> 
+<OBJECT INTERFACE-BOX (LOC GALLEY) (DESC "shipping carton") (LDESC
+"A carton labelled \"Nutrimat/Computer Interface\" is sitting here.") (SYNONYM
+CARTON BOX) (ADJECTIVE SHIPPING) (FLAGS CONTBIT TAKEBIT SEARCHBIT READBIT) (
+SIZE 15) (CAPACITY 14) (ACTION INTERFACE-BOX-F)> 
+<DEFINE-ROUTINE INTERFACE-BOX-F> 
+<OBJECT BEAST-GUN (LOC INTERFACE-BOX) (DESC "strange gun") (SYNONYM GUN WEAPON)
+(ADJECTIVE STRANGE RAY ANTI-BUGB BEAST) (FLAGS TAKEBIT) (SIZE 4) (ACTION
+BEAST-GUN-F)> 
+<DEFINE-ROUTINE BEAST-GUN-F> 
+<GLOBAL GUN-COUNTER 0> 
+<GLOBAL TEA-COUNTER 0> 
+<GLOBAL LANDED <>> 
+<DEFINE-ROUTINE I-TEA> 
+<DEFINE-ROUTINE I-LANDING> 
+<ROOM BRIDGE (LOC ROOMS) (SYNONYM MOVEMENT MOTION RANDOM) (ADJECTIVE BROWNIAN)
+(DESC "Bridge") (DOWN TO FORE-CORRIDOR) (WEST PER SAUNA-ENTER-F) (FLAGS ONBIT
+RLANDBIT) (GLOBAL STAIRS CONTROLS HEART-OF-GOLD PEOPLE) (ACTION BRIDGE-F)> 
+<OBJECT SAUNA (LOC BRIDGE) (SYNONYM SAUNA) (DESC "sauna") (FLAGS NDESCBIT) (
+ACTION SAUNA-PSEUDO)> 
+<DEFINE-ROUTINE SAUNA-ENTER-F> 
+<DEFINE-ROUTINE BRIDGE-F> 
+<DEFINE-ROUTINE SAUNA-PSEUDO> 
+<DEFINE-ROUTINE PEOPLE-PSEUDO> 
+<OBJECT EDDIE (LOC BRIDGE) (DESC "Eddie (the shipboard computer)") (SYNONYM
+EDDIE ED COMPUTER) (ADJECTIVE SHIP\'S SHIPBOARD) (FLAGS VOWELBIT NARTICLEBIT
+NDESCBIT ACTORBIT LIGHTBIT ONBIT) (ACTION EDDIE-F)> 
+<DEFINE-ROUTINE EDDIE-F> 
+<OBJECT LARGE-RECEPTACLE (LOC BRIDGE) (DESC "large receptacle") (SYNONYM
+RECEPTACL) (ADJECTIVE LARGE MANUAL OVERRIDE) (FLAGS NDESCBIT) (ACTION
+LARGE-RECEPTACLE-F)> 
+<DEFINE-ROUTINE LARGE-RECEPTACLE-F> 
+<OBJECT PHIL (LOC LOCAL-GLOBALS) (DESC "Phil") (LDESC "Phil is here.") (SYNONYM
+PHIL) (FLAGS NARTICLEBIT ACTORBIT) (ACTION ZAPHOD-F)> 
+<OBJECT ZAPHOD (LOC BRIDGE) (DESC "Zaphod Beeblebrox") (SYNONYM BEEBLEBRO
+ZAPHOD PRESIDENT) (ADJECTIVE ZAPHOD PRESIDENT) (FLAGS NARTICLEBIT ACTORBIT
+NDESCBIT) (ACTION ZAPHOD-F)> 
+<DEFINE-ROUTINE ZAPHOD-F> 
+<DEFINE-ROUTINE I-ZAPHOD> 
+<OBJECT TRILLIAN (LOC BRIDGE) (DESC "Trillian") (SYNONYM TRILLIAN MCMILLAN
+WOMAN TRICIA) (ADJECTIVE TRICIA DARK-HAIR DARK HAIRED) (FLAGS NARTICLEBIT
+ACTORBIT NDESCBIT CONTBIT OPENBIT) (ACTION TRILLIAN-F)> 
+<DEFINE-ROUTINE TRILLIAN-F> 
+<OBJECT HANDBAG (LOC TRILLIAN) (DESC "handbag") (SYNONYM HANDBAG BAG PURSE) (
+FLAGS CONTBIT TAKEBIT TRYTAKEBIT SEARCHBIT NDESCBIT) (SIZE 15) (CAPACITY 10) (
+ACTION HANDBAG-F)> 
+<DEFINE-ROUTINE HANDBAG-F> 
+<ROOM FORE-CORRIDOR (LOC ROOMS) (DESC "Corridor, Fore End") (UP TO BRIDGE) (
+NORTH TO ENTRY-BAY) (WEST TO GALLEY) (SOUTH TO AFT-CORRIDOR) (FLAGS ONBIT
+RLANDBIT) (GLOBAL STAIRS HEART-OF-GOLD) (ACTION FORE-CORRIDOR-F)> 
+<DEFINE-ROUTINE FORE-CORRIDOR-F> 
+<ROOM AFT-CORRIDOR (LOC ROOMS) (SYNONYM ROBOT ROBOTS) (ADJECTIVE CLEANING UPPER
+LOWER) (DESC "Corridor, Aft End") (SOUTH PER ENGINE-ROOM-ENTER-F) (NORTH TO
+FORE-CORRIDOR) (WEST TO PANTRY IF SCREENING-DOOR IS OPEN) (DOWN TO HATCHWAY) (
+FLAGS RLANDBIT ONBIT) (GLOBAL STAIRS HEART-OF-GOLD SCREENING-DOOR) (ACTION
+AFT-CORRIDOR-F)> 
+<DEFINE-ROUTINE AFT-CORRIDOR-F> 
+<DEFINE-ROUTINE I-REPLY> 
+<GLOBAL AWAITING-REPLY <>> 
+<GLOBAL ARGUMENT-COUNTER 0> 
+<GLOBAL LOOK-COUNTER 0> 
+<DEFINE-ROUTINE ENGINE-ROOM-ENTER-F> 
+<DEFINE-ROUTINE I-ARGUMENT> 
+<ROOM ENTRY-BAY (LOC ROOMS) (SYNONYM BLASTER) (ADJECTIVE PAN-GALACT GARGLE) (
+DESC "Entry Bay Number Two") (LDESC
+"This is an entry bay for the Heart of Gold. A corridor lies aft of here.") (
+SOUTH TO FORE-CORRIDOR) (FLAGS RLANDBIT ONBIT NARTICLEBIT) (GLOBAL
+HEART-OF-GOLD) (ACTION ENTRY-BAY-F)> 
+<DEFINE-ROUTINE ENTRY-BAY-F> 
+<OBJECT SALES-BROCHURE (LOC ENTRY-BAY) (DESC "sales brochure") (SYNONYM
+BROCHURE) (ADJECTIVE SALES) (FLAGS TAKEBIT READBIT) (ACTION SALES-BROCHURE-F)> 
+<DEFINE-ROUTINE SALES-BROCHURE-F> 
+<ROOM ENGINE-ROOM (LOC ROOMS) (SYNONYM IMPROBABI PHYSICS DRIVES PROBABILI) (
+ADJECTIVE IMPROBABI INFINITY) (DESC "Engine Room") (NORTH TO AFT-CORRIDOR) (OUT
+TO AFT-CORRIDOR) (FLAGS RLANDBIT ONBIT) (GLOBAL HEART-OF-GOLD) (ACTION
+ENGINE-ROOM-F)> 
+<DEFINE-ROUTINE ENGINE-ROOM-F> 
+<OBJECT MAIN-DRIVE (LOC LOCAL-GLOBALS) (DESC "main Improbability Drive") (
+SYNONYM DRIVE GENERATOR) (ADJECTIVE MAIN INFININY IMPROBABI) (FLAGS NDESCBIT
+LIGHTBIT) (GENERIC SPARE-DRIVE) (ACTION MAIN-DRIVE-F)> 
+<DEFINE-ROUTINE MAIN-DRIVE-F> 
+<GLOBAL DRIVE-TO-CONTROLS <>> 
+<GLOBAL DRIVE-TO-PLOTTER <>> 
+<GLOBAL BROWNIAN-SOURCE <>> 
+<GLOBAL DARK-CONTROLLED <>> 
+<OBJECT SPARE-DRIVE (LOC LOCAL-GLOBALS) (DESC "spare Improbability Drive") (
+FDESC "Sitting in the corner is a spare, portable Improbability Generator.") (
+SYNONYM DRIVE GENERATOR) (ADJECTIVE SPARE PORTABLE INFINITY IMPROBABI) (FLAGS
+TAKEBIT TRANSBIT CONTBIT LIGHTBIT) (SIZE 50) (GENERIC SPARE-DRIVE) (ACTION
+SPARE-DRIVE-F)> 
+<DEFINE-ROUTINE SPARE-DRIVE-F> 
+<OBJECT LARGE-PLUG (LOC SPARE-DRIVE) (DESC "large plug") (SYNONYM CORD PLUG) (
+ADJECTIVE LARGE LONG) (FLAGS NDESCBIT INTEGRALBIT) (SIZE 1) (ACTION
+LARGE-PLUG-F)> 
+<DEFINE-ROUTINE LARGE-PLUG-F> 
+<OBJECT SMALL-PLUG (LOC SPARE-DRIVE) (DESC "small plug") (SYNONYM CORD PLUG) (
+ADJECTIVE SMALL SHORT) (FLAGS NDESCBIT INTEGRALBIT) (SIZE 1) (ACTION
+SMALL-PLUG-F)> 
+<DEFINE-ROUTINE SMALL-PLUG-F> 
+<OBJECT SWITCH (LOC SPARE-DRIVE) (DESC "generator switch") (SYNONYM SWITCH) (
+ADJECTIVE GENERATOR) (FLAGS NDESCBIT SWITCHBIT) (SIZE 1) (ACTION SWITCH-F)> 
+<DEFINE-ROUTINE SWITCH-F> 
+<GLOBAL DARK-ENTRANCES <PLTABLE
+"You are disoriented. Blackness swims toward you like a shoal of eels who
+have just seen something that eels like a lot..."
+"Like fog rolling in off the ocean, a shroud of blackness billows toward
+you. Unlike fog rolling in off the ocean, the blackness hits you like
+a sixteen-tonne truck..."
+"A mist spins round your head. You fall into what seems like a bottomless
+pit. Suddenly, you hit the bottom so hard that you wish it had been
+bottomless...">> 
+<OBJECT PLOTTER (LOC GLASS-CASE) (DESC "atomic vector plotter") (DESCFCN
+PLOTTER-DESCFCN) (SYNONYM PLOTTER) (ADJECTIVE ATOMIC VECTOR) (FLAGS VOWELBIT
+TAKEBIT CONTBIT TRANSBIT TRYTAKEBIT) (SIZE 20) (ACTION PLOTTER-F)> 
+<DEFINE-ROUTINE PLOTTER-DESCFCN> 
+<DEFINE-ROUTINE PLOTTER-F> 
+<OBJECT SMALL-RECEPTACLE (LOC PLOTTER) (DESC "small receptacle") (SYNONYM
+RECEPTACL) (ADJECTIVE SMALL) (SIZE 1) (FLAGS NDESCBIT INTEGRALBIT)> 
+<OBJECT DANGLY-BIT (LOC PLOTTER) (DESC "long, dangly bit") (SYNONYM BIT) (
+ADJECTIVE LONG DANGLY) (FLAGS NDESCBIT INTEGRALBIT) (SIZE 1) (ACTION
+DANGLY-BIT-F)> 
+<DEFINE-ROUTINE DANGLY-BIT-F> 
+<ROOM HATCHWAY (LOC ROOMS) (SYNONYM GPP PERSONALI) (ADJECTIVE GENUINE PEOPLE) (
+DESC "Hatchway") (UP TO AFT-CORRIDOR) (DOWN TO RAMP IF HATCH IS OPEN) (OUT TO
+RAMP IF HATCH IS OPEN) (EAST PER ACCESS-SPACE-ENTER-F) (FLAGS ONBIT RLANDBIT) (
+GLOBAL STAIRS HEART-OF-GOLD) (ACTION HATCHWAY-F)> 
+<DEFINE-ROUTINE HATCHWAY-F> 
+<DEFINE-ROUTINE ACCESS-SPACE-ENTER-F> 
+<DEFINE-ROUTINE ACCESS-SPACE-LOOP> 
+<OBJECT HATCH (LOC LOCAL-GLOBALS) (DESC "hatch") (SYNONYM HATCH HATCHWAY) (
+ACTION HATCH-F)> 
+<DEFINE-ROUTINE HATCH-F> 
+<OBJECT MECHANISM (LOC LOCAL-GLOBALS) (DESC "mechanism") (SYNONYM MECHANISM) (
+ADJECTIVE HATCH HATCHWAY) (ACTION MECHANISM-F)> 
+<DEFINE-ROUTINE MECHANISM-F> 
+<ROOM ACCESS-SPACE (LOC ROOMS) (SYNONYM AGENCY) (ADJECTIVE GALACTIC SECURITY) (
+DESC "Access Space") (OUT TO HATCHWAY) (WEST TO HATCHWAY) (FLAGS ONBIT RLANDBIT
+) (GLOBAL HEART-OF-GOLD) (ACTION ACCESS-SPACE-F)> 
+<OBJECT MESH (LOC ACCESS-SPACE) (SYNONYM MESH) (DESC "mesh") (FLAGS NDESCBIT) (
+ACTION MESH-PSEUDO)> 
+<DEFINE-ROUTINE ACCESS-SPACE-F> 
+<DEFINE-ROUTINE MESH-PSEUDO> 
+<ROOM RAMP (LOC ROOMS) (SYNONYM PLANET MAGRATHEA) (ADJECTIVE LEGENDARY) (DESC
+"Ramp") (LDESC "The wind moans. Dust drifts across the surface of the alien world. Zaphod,
+Ford, and Trillian appear and urge you forward.") (FLAGS RLANDBIT ONBIT) (
+ACTION RAMP-F)> 
+<DEFINE-ROUTINE RAMP-F> 
\ No newline at end of file
diff --git a/heart.zap b/heart.zap
new file mode 100644
index 0000000..f2707a3
--- /dev/null
+++ b/heart.zap
@@ -0,0 +1,1640 @@
+
+
+	.FUNCT	IN-HEART?,OBJ
+	CALL2	META-LOC,OBJ
+	EQUAL?	STACK,ENTRY-BAY,FORE-CORRIDOR,AFT-CORRIDOR /TRUE
+	CALL2	META-LOC,OBJ
+	EQUAL?	STACK,GALLEY,BRIDGE,ENGINE-ROOM /TRUE
+	CALL2	META-LOC,OBJ
+	EQUAL?	STACK,HATCHWAY,PANTRY,ACCESS-SPACE /TRUE
+	RFALSE	
+
+
+	.FUNCT	HEART-OF-GOLD-F
+	EQUAL?	PRSA,V?DISEMBARK,V?EXIT,V?LEAVE \?CCL3
+	EQUAL?	HERE,HATCHWAY \?CCL6
+	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+?CCL6:	EQUAL?	HERE,DAIS \?CCL8
+	PRINT	LOOK-AROUND
+	CRLF	
+	RTRUE	
+?CCL8:	CALL1	V-WALK-AROUND
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?BOARD,V?WALK-TO,V?THROUGH \FALSE
+	EQUAL?	HERE,DAIS \?CCL15
+	CALL2	DO-WALK,P?EAST
+	RSTACK	
+?CCL15:	CALL2	IN-HEART?,PROTAGONIST
+	ZERO?	STACK /FALSE
+	PRINT	LOOK-AROUND
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PANTRY-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	ZERO?	LANDED \?CND4
+	MOVE	MARVIN,HERE
+	CALL2	INT,I-MARVIN
+	PUT	STACK,0,0
+?CND4:	FSET?	SCREENING-DOOR,MUNGEDBIT \?PRG10
+	PRINTI	"As you pass the door, it slams against you, bruising your upper arm, and then opens again. ""Take that, door-kicker."""
+	CRLF	
+	CRLF	
+?PRG10:	PRINTI	"Upon entering the room, you are battered by tidal waves of depression. "
+	LESS?	SCORE,300 \?CCL14
+	ICALL2	JIGS-UP,STR?8
+	RTRUE	
+?CCL14:	FSET?	PANTRY,REVISITBIT /?PRG17
+	FSET	PANTRY,REVISITBIT
+	ADD	SCORE,25 >SCORE
+?PRG17:	PRINTI	"However, the happiness derived from your high score and that thoroughly excellent cup of tea you had recently help you to survive."
+	CRLF	
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SCREENING-DOOR-F
+	EQUAL?	SCREENING-DOOR,WINNER \?CCL3
+	EQUAL?	PRSA,V?TELL-ABOUT \?CCL6
+	EQUAL?	PRSO,ME \?CCL6
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,SCREENING-DOOR,PRSI
+	SET	'WINNER,SCREENING-DOOR
+	RTRUE	
+?CCL6:	EQUAL?	PRSA,V?HELLO \?CCL10
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?HELLO,SCREENING-DOOR
+	SET	'WINNER,SCREENING-DOOR
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?WHAT \?PRG15
+	EQUAL?	PRSO,OBJECT-OF-GAME \?PRG15
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,SCREENING-DOOR,OBJECT-OF-GAME
+	SET	'WINNER,SCREENING-DOOR
+	RTRUE	
+?PRG15:	PRINTI	"""Unless you're here to show me some clear sign of your intelligence, please leave me alone. I'm a very busy door."""
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	FSET?	SCREENING-DOOR,OPENBIT \?CCL18
+	EQUAL?	PRSA,V?KNOCK,V?GIVE,V?SHOW /?PRG23
+	EQUAL?	PRSA,V?OPEN \?CCL18
+?PRG23:	PRINTR	"You already induced the door to open."
+?CCL18:	FSET?	SCREENING-DOOR,OPENBIT \?CCL26
+	EQUAL?	PRSA,V?CLOSE \?CCL26
+	PRINTR	"The door snaps, ""Hey! I'm resting. I've had a very busy day."""
+?CCL26:	EQUAL?	PRSA,V?KICK \?CCL32
+	FSET	SCREENING-DOOR,MUNGEDBIT
+	PRINTR	"""I suppose you think that since you have legs and I have not, you can get away with that sort of thing. Well,"" the door continues stiffly, ""maybe you can and maybe you can't."""
+?CCL32:	EQUAL?	PRSA,V?GIVE,V?SHOW \?CCL36
+	EQUAL?	PRSO,NO-TEA,TEA \?CCL39
+	ZERO?	TEA-SHOWN /?CCL39
+	CALL2	HELD?,TEA
+	ZERO?	STACK /?CCL39
+	ZERO?	HOLDING-NO-TEA /?CCL39
+	EQUAL?	PRSO,TEA-SHOWN /?CCL39
+	ICALL	PERFORM,V?KNOCK,SCREENING-DOOR
+	RTRUE	
+?CCL39:	EQUAL?	PRSO,NO-TEA,TEA \?CND45
+	SET	'TEA-SHOWN,PRSO
+?CND45:	RANDOM	100
+	LESS?	50,STACK /?PRG54
+	PRINTI	"The door says, ""Big deal. Anyone can have"
+	ICALL2	ARTICLE,PRSO
+	PRINTR	"."""
+?PRG54:	PRINTR	"The door yawns."
+?CCL36:	EQUAL?	PRSA,V?KNOCK,V?OPEN \?CCL57
+	CALL2	HELD?,TEA
+	ZERO?	STACK /?PRG65
+	ZERO?	HOLDING-NO-TEA /?PRG65
+	FSET	SCREENING-DOOR,OPENBIT
+	PRINTR	"The door is almost speechless with admiration. ""Wow. Simultaneous tea and no tea. My apologies. You are clearly a heavy-duty philosopher."" It opens respectfully."
+?PRG65:	PRINTR	"The door explains, in a haughty tone, that the room is occupied by a superintelligent robot and that lesser beings (by which it means you) are not to be admitted. ""Show me some tiny example of your intelligence,"" it says, ""and maybe, just maybe, I might reconsider."""
+?CCL57:	EQUAL?	PRSA,V?ASK-ABOUT \?CCL68
+	EQUAL?	PRSI,OBJECT-OF-GAME \?CCL68
+	PRINTR	"""To keep out subintelligent beings."""
+?CCL68:	EQUAL?	PRSA,V?THROUGH \?CCL74
+	EQUAL?	HERE,PANTRY \?CCL77
+	CALL2	DO-WALK,P?EAST
+	RSTACK	
+?CCL77:	CALL2	DO-WALK,P?WEST
+	RSTACK	
+?CCL74:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	FCLEAR	SCREENING-DOOR,ACTORBIT
+	ICALL1	V-LOOK-INSIDE
+	FSET	SCREENING-DOOR,ACTORBIT
+	RTRUE	
+
+
+	.FUNCT	MARVIN-F
+	EQUAL?	MARVIN,WINNER \?CCL3
+	EQUAL?	PRSA,V?TELL-ABOUT \?CCL6
+	EQUAL?	PRSO,ME \?CCL6
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,MARVIN,PRSI
+	SET	'WINNER,MARVIN
+	RTRUE	
+?CCL6:	EQUAL?	PRSA,V?HELLO \?CCL10
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?HELLO,MARVIN
+	SET	'WINNER,MARVIN
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?WHAT \?CCL12
+	EQUAL?	PRSO,OBJECT-OF-GAME \?CCL12
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,MARVIN,OBJECT-OF-GAME
+	SET	'WINNER,MARVIN
+	RTRUE	
+?CCL12:	EQUAL?	HERE,PANTRY \?PRG50
+	EQUAL?	PRSA,V?OPEN,V?REPAIR \?CCL19
+	EQUAL?	PRSO,MECHANISM,HATCH \?CCL19
+	ZERO?	LANDED \?CCL24
+	PRINTC	34
+	PRINT	HUMANS
+	PRINTR	"stupid. Are you aware,"" he asks, ""that this ship is in space, that space is an almost perfect vacuum, and that the hatch is the only thing holding in all the air?"""
+?CCL24:	EQUAL?	MARVIN-COUNTER,3 \?CCL28
+	PRINTI	"""After the help I got last time? "
+	PRINT	HUMANS
+	PRINTR	"ungrateful. Go away."""
+?CCL28:	EQUAL?	MARVIN-COUNTER,4 \?CCL32
+	PRINTR	"""I did."""
+?CCL32:	GRTR?	MARVIN-COUNTER,0 \?CCL36
+	PRINTI	"""Yes, I said I'd do it! "
+	PRINT	HUMANS
+	PRINTR	"repetitious."""
+?CCL36:	SET	'MARVIN-COUNTER,1
+	CALL	QUEUE,I-MARVIN,12
+	PUT	STACK,0,1
+	PRINTC	34
+	PRINT	HUMANS
+	PRINTI	"demanding. Do this. Pick up that. Unjam the opening mechanism of the other. Meet me in the hatchway "
+	PRINTD	ACCESS-SPACE
+	PRINTR	" in twelve turns. I suppose,"" he mutters, ""you can count up to twelve. So hard to know with morons. And don't forget to bring the proper tool."""
+?CCL19:	EQUAL?	PRSA,V?WHAT \?PRG48
+	EQUAL?	PRSO,TWEEZERS \?PRG48
+	GRTR?	MARVIN-COUNTER,0 \?PRG48
+	PRINTR	"Marvin looks scornful. ""How did you get past my door if you're so primordially benighted that you don't even know which tool is needed for a job like this?"""
+?PRG48:	PRINTI	"""Please don't feel you have to take any notice of me. I'm just a menial robot."""
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?PRG50:	PRINTI	"""I think you ought to know I'm feeling very depressed."""
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?ASK-ABOUT \?CCL53
+	EQUAL?	PRSI,OBJECT-OF-GAME \?CCL53
+	PRINTR	"""Being clever doesn't always make you happy, you know. Look at me, brain the size of a planet, how many points do you think I've got? Minus thirty zillion at the last count."""
+?CCL53:	EQUAL?	PRSA,V?FOLLOW \?CCL59
+	EQUAL?	FOLLOW-FLAG,2 \?CCL59
+	IN?	MARVIN,PANTRY \?CCL64
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+?CCL64:	LOC	MARVIN
+	CALL2	GOTO,STACK
+	RSTACK	
+?CCL59:	EQUAL?	PRSA,V?FOLLOW \?CCL66
+	EQUAL?	FOLLOW-FLAG,7 \?CCL66
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+?CCL66:	EQUAL?	PRSA,V?GIVE \FALSE
+	EQUAL?	MARVIN-COUNTER,2 \FALSE
+	EQUAL?	PRSO,TOOL-REQUIRED \?PRG78
+	ADD	SCORE,25 >SCORE
+	SET	'MARVIN-COUNTER,4
+	SET	'FOLLOW-FLAG,7
+	CALL	QUEUE,I-FOLLOW,2
+	PUT	STACK,0,1
+	CALL2	INT,I-MARVIN
+	PUT	STACK,0,0
+	FSET	HATCH,OPENBIT
+	MOVE	MARVIN,PANTRY
+	MOVE	TOOL-REQUIRED,MARVIN
+	PRINTI	"Marvin fiddles inside the "
+	PRINTD	MECHANISM
+	PRINTI	" with the "
+	PRINTD	TOOL-REQUIRED
+	PRINTR	" for about three tenths of a second. You hear the hatchway slide open. ""I don't expect you to be grateful,"" says Marvin, ""or even interested, but that was probably more complicated than every single action you'll ever perform in your entire life put together."" He limps away. ""And me,"" you hear him mutter as he goes, ""with this terrible pain in all the diodes down my left side."""
+?PRG78:	PRINTI	"""That's not"
+	ICALL2	ARTICLE,TOOL-REQUIRED
+	PRINTR	"."""
+
+
+	.FUNCT	I-MARVIN
+	CALL	QUEUE,I-MARVIN,-1
+	PUT	STACK,0,1
+	EQUAL?	MARVIN-COUNTER,2 \?CCL3
+	SET	'MARVIN-COUNTER,3
+	CRLF	
+	EQUAL?	HERE,HATCHWAY \?PRG8
+	PRINTI	"Marvin emerges from the "
+	PRINTD	ACCESS-SPACE
+	PRINTI	". "
+?PRG8:	PRINTC	34
+	ICALL1	MARVIN-BITCH
+	SET	'MARVIN-COUNTER,3
+	RETURN	MARVIN-COUNTER
+?CCL3:	IN?	MARVIN,ACCESS-SPACE \?CCL11
+	EQUAL?	HERE,ACCESS-SPACE \?PRG25
+	ZERO?	TOOL-REQUIRED \?CND15
+?PRG17:	CALL2	PICK-ONE,TOOL-LIST >TOOL-REQUIRED
+	CALL	HELD?,TOOL-REQUIRED,PROTAGONIST
+	ZERO?	STACK \?PRG17
+?CND15:	SET	'P-IT-OBJECT,TOOL-REQUIRED
+	SET	'MARVIN-COUNTER,2
+	PRINTI	"Marvin, looking bored, says, ""Hand me"
+	ICALL2	ARTICLE,TOOL-REQUIRED
+	PRINTR	"."""
+?PRG25:	CRLF	
+	PRINTI	"Marvin wanders up to you. ""I went to the "
+	PRINTD	ACCESS-SPACE
+	PRINTI	" but you never showed up. "
+	ICALL1	MARVIN-BITCH
+	SET	'MARVIN-COUNTER,3
+	RETURN	MARVIN-COUNTER
+?CCL11:	EQUAL?	MARVIN-COUNTER,1 \?CCL28
+	MOVE	MARVIN,ACCESS-SPACE
+	EQUAL?	HERE,ACCESS-SPACE \FALSE
+	PRINTR	"Marvin shambles in."
+?CCL28:	IN?	MARVIN,HERE \?CCL35
+	CALL	QUEUE,I-FOLLOW,2
+	PUT	STACK,0,1
+	SET	'FOLLOW-FLAG,2
+	CRLF	
+	EQUAL?	HERE,HATCHWAY,GALLEY,ENTRY-BAY /?PRG41
+	EQUAL?	HERE,FORE-CORRIDOR,ENGINE-ROOM,BRIDGE \?CCL38
+?PRG41:	PRINTI	"Marvin wanders off."
+	CRLF	
+	EQUAL?	HERE,FORE-CORRIDOR,ENGINE-ROOM,HATCHWAY \?CCL45
+	MOVE	MARVIN,AFT-CORRIDOR
+	RTRUE	
+?CCL45:	MOVE	MARVIN,FORE-CORRIDOR
+	RTRUE	
+?CCL38:	EQUAL?	HERE,AFT-CORRIDOR \?PRG50
+	MOVE	MARVIN,PANTRY
+	PRINTR	"Marvin enters a room to port, and the door closes behind him."
+?PRG50:	PRINTI	"Bug #17"
+	RTRUE	
+?CCL35:	IN?	MARVIN,PANTRY /?CCL53
+	MOVE	MARVIN,PANTRY
+	RFALSE	
+?CCL53:	CALL2	IN-HEART?,PROTAGONIST
+	ZERO?	STACK /FALSE
+	EQUAL?	HERE,ACCESS-SPACE /FALSE
+	FSET?	SCREENING-DOOR,OPENBIT /FALSE
+	ZERO?	AWAITING-REPLY \FALSE
+	EQUAL?	HERE,ENGINE-ROOM \?CCL61
+	LESS?	LOOK-COUNTER,3 /FALSE
+?CCL61:	RANDOM	100
+	LESS?	8,STACK /FALSE
+	MOVE	MARVIN,HERE
+	CRLF	
+	PRINTR	"You feel a wave of depression sweep over you, and you turn to see that Marvin the robot has stalked miserably into the room."
+
+
+	.FUNCT	MARVIN-BITCH
+	CALL2	INT,I-MARVIN
+	PUT	STACK,0,0
+	MOVE	MARVIN,PANTRY
+	PRINTI	"Ah. I was misled into thinking that you wanted me to open the hatch, probably by the fact that you asked me to. Obviously you changed your mind or I misunderstood you or you are a moronic imbecile. I wonder which"
+	EQUAL?	HERE,PANTRY /?PRG7
+	PRINTI	". I'm going back to my pantry to be alone with my grief"
+?PRG7:	PRINTR	"."" Marvin stalks miserably away."
+
+
+	.FUNCT	FLOWERPOT-F
+	EQUAL?	PRSA,V?WATER \?CCL3
+	EQUAL?	PRSO,FLOWERPOT \?CCL3
+	IN?	PLANT,FLOWERPOT \?CCL3
+	ICALL	PERFORM,V?WATER,PLANT,PRSI
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE,V?READ,V?EXAMINE \?CCL8
+	PRINTI	"The pot is filled with fertile soil"
+	IN?	PLANT,FLOWERPOT \?PRG23
+	PRINTI	", out of which has sprouted a "
+	ZERO?	PLANT-BLOOMED /?PRG21
+	PRINTI	"large, leafy plant"
+	JUMP	?PRG25
+?PRG21:	PRINTI	"tiny plant stalk"
+	JUMP	?PRG25
+?PRG23:	PRINTI	". It is inscribed ""Inertial Guidance System -- Magrathean Missile Company."" It must have been created by the same burst of improbability that created the whale itself"
+?PRG25:	PRINTR	"."
+?CCL8:	EQUAL?	PRSA,V?PUT \?CCL28
+	EQUAL?	PRSO,SATCHEL-FLUFF,JACKET-FLUFF,POCKET-FLUFF /?CTR27
+	EQUAL?	PRSO,CUSHION-FLUFF \?CCL28
+?CTR27:	MOVE	PRSO,LOCAL-GLOBALS
+	INC	'FLUFF-COUNTER
+	EQUAL?	FLUFF-COUNTER,4 \?PRG35
+	CALL	QUEUE,I-PLANT,10
+	PUT	STACK,0,1
+?PRG35:	PRINTI	"You dig a "
+	PRINTD	FISH-HOLE
+	PRINTR	", gingerly place the fluff at the bottom, and cover it over."
+?CCL28:	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	EQUAL?	PRSO,FLOWERPOT \FALSE
+	CALL1	TELL-ME-HOW
+	RSTACK	
+
+
+	.FUNCT	I-PLANT
+	MOVE	PLANT,FLOWERPOT
+	CALL2	VISIBLE?,FLOWERPOT
+	ZERO?	STACK /FALSE
+	CRLF	
+	PRINTI	"You notice a tiny movement from the "
+	PRINTD	FLOWERPOT
+	PRINTR	". You look closely, and see a tiny sprout poking out of the soil."
+
+
+	.FUNCT	PLANT-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	ZERO?	PLANT-BLOOMED /?PRG15
+	PRINTI	"The plant is now large and leafy."
+	FSET?	FRUIT,NDESCBIT \?CND9
+	CALL2	VISIBLE?,FRUIT
+	ZERO?	STACK /?CND9
+	PRINTR	" Hanging from it is a large, succulent fruit."
+?CND9:	CRLF	
+	RTRUE	
+?PRG15:	PRINTR	"The plant is just a tiny stem."
+?CCL3:	EQUAL?	PRSA,V?DROP,V?TAKE \?CCL18
+	EQUAL?	PRSO,PLANT \?CCL18
+	ZERO?	PRSI /?CCL23
+	CALL1	PART-OF
+	RSTACK	
+?CCL23:	ICALL	PERFORM,PRSA,FLOWERPOT,PRSI
+	RTRUE	
+?CCL18:	EQUAL?	PRSA,V?WATER \FALSE
+	ZERO?	PLANT-BLOOMED \FALSE
+	EQUAL?	PRSI,TEA,SUBSTITUTE,MINERAL-WATER \FALSE
+	MOVE	PRSI,LOCAL-GLOBALS
+	MOVE	PLANT,LOCAL-GLOBALS
+	PRINTI	"After several seconds, the plant shrivels up."
+	ICALL2	ANTI-LITTER,STR?10
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	FRUIT-F,X
+	EQUAL?	PRSA,V?PICK,V?TAKE \?CCL3
+	FSET?	FRUIT,TRYTAKEBIT \?CCL3
+	FCLEAR	FRUIT,TRYTAKEBIT
+	FCLEAR	FRUIT,NDESCBIT
+	MOVE	FRUIT,PROTAGONIST
+	PRINTR	"Done."
+?CCL3:	EQUAL?	PRSA,V?THROW,V?DROP \?CCL9
+	FSET?	FRUIT,TRYTAKEBIT \?CCL9
+	FCLEAR	FRUIT,TRYTAKEBIT
+	FCLEAR	FRUIT,NDESCBIT
+	MOVE	FRUIT,HERE
+	EQUAL?	PRSA,V?DROP \?PRG17
+	PRINTR	"Dropped."
+?PRG17:	PRINTR	"Thrown."
+?CCL9:	EQUAL?	PRSA,V?EAT \FALSE
+?PRG21:	CALL2	PICK-ONE,TOOL-LIST >TOOL-REQUIRED
+	INC	'X
+	CALL2	IN-HEART?,TOOL-REQUIRED
+	ZERO?	STACK /?REP22
+	GRTR?	X,50 \?PRG21
+?REP22:	MOVE	FRUIT,LOCAL-GLOBALS
+	PRINTI	"The fruit has a zesty taste, and you devour it greedily. Suddenly, your vision wavers, and you see yourself, as though from a distance, standing near Marvin, who asks you for"
+	ICALL2	ARTICLE,TOOL-REQUIRED
+	PRINTI	". Then, the image vanishes like a movie when the film breaks, and you find yourself still in"
+	ICALL	ARTICLE,HERE,TRUE-VALUE
+	PRINTR	".
+
+It seems that this plant is a rare horticultural phenomenon long thought to be extinct: The Tree of Foreknowledge."
+
+
+	.FUNCT	GALLEY-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"You are in the Galley area of the ship, containing a machine which is the state of the art in Nutritional Technology, a "
+	PRINT	SCC
+	PRINTC	32
+	PRINTD	NUTRIMAT
+	PRINTR	". There is an exit to starboard."
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	CALL2	RUNNING?,I-TEA
+	ZERO?	STACK \FALSE
+	RANDOM	100
+	LESS?	3,STACK /FALSE
+	SET	'FOLLOW-FLAG,6
+	CALL	QUEUE,I-FOLLOW,2
+	PUT	STACK,0,1
+	CRLF	
+	PRINTD	ZAPHOD
+	PRINTI	" walks in and presses the "
+	PRINTD	PAD
+	PRINTI	". The "
+	PRINTD	NUTRIMAT
+	PRINTR	" produces a huge, ice-cold Pan-Galactic Gargle Blaster. Zaphod heads off toward the sauna, sipping loudly."
+
+
+	.FUNCT	NUTRIMAT-F
+	EQUAL?	NUTRIMAT,WINNER \?CCL3
+	EQUAL?	PRSA,V?TELL-ABOUT \?CCL6
+	EQUAL?	PRSO,ME \?CCL6
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,NUTRIMAT,PRSI
+	SET	'WINNER,NUTRIMAT
+	RTRUE	
+?CCL6:	EQUAL?	PRSA,V?HELLO \?CCL10
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?HELLO,NUTRIMAT
+	SET	'WINNER,NUTRIMAT
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?WHAT \?CCL12
+	EQUAL?	PRSO,OBJECT-OF-GAME \?CCL12
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,NUTRIMAT,OBJECT-OF-GAME
+	SET	'WINNER,NUTRIMAT
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?SGIVE \?PRD18
+	EQUAL?	PRSO,ME /?CTR15
+?PRD18:	EQUAL?	PRSA,V?GIVE \?CCL16
+	EQUAL?	PRSI,ME \?CCL16
+?CTR15:	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-FOR,NUTRIMAT,PRSI
+	SET	'WINNER,NUTRIMAT
+	RTRUE	
+?CCL16:	EQUAL?	PRSA,V?MAKE \?PRG27
+	EQUAL?	PRSO,NO-TEA,TEA \?PRG27
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?RUB,PAD
+	SET	'WINNER,NUTRIMAT
+	RTRUE	
+?PRG27:	PRINTI	"The "
+	PRINTD	NUTRIMAT
+	PRINTI	" ignores you."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL30
+	PRINTI	"The "
+	PRINTD	NUTRIMAT
+	PRINTI	" has a "
+	PRINTD	PAD
+	PRINTI	", a dispensing slot, and a service panel which is "
+	FSET?	NUTRIMAT,OPENBIT \?PRG38
+	PRINTI	"open"
+	JUMP	?PRG40
+?PRG38:	PRINTI	"closed"
+?PRG40:	PRINTC	46
+	ICALL1	FINE-PRODUCT
+	CALL2	RUNNING?,I-TEA
+	ZERO?	STACK /?CCL44
+	PRINTC	32
+	ICALL	PERFORM,V?LISTEN,NUTRIMAT
+	RTRUE	
+?CCL44:	CRLF	
+	RTRUE	
+?CCL30:	EQUAL?	PRSA,V?LISTEN \?CCL48
+	CALL2	RUNNING?,I-TEA
+	ZERO?	STACK /?CCL48
+	PRINTI	"The "
+	PRINTD	NUTRIMAT
+	PRINTR	" is making a faint whirring noise."
+?CCL48:	EQUAL?	PRSA,V?ASK-FOR \?CCL54
+	EQUAL?	PRSI,SUBSTITUTE,TEA \?CCL54
+	ICALL	PERFORM,V?RUB,PAD
+	RTRUE	
+?CCL54:	EQUAL?	PRSA,V?LAMP-ON \?CCL58
+	ICALL	PERFORM,V?RUB,PAD
+	RTRUE	
+?CCL58:	EQUAL?	PRSA,V?LAMP-OFF \?CCL60
+	CALL2	RUNNING?,I-TEA
+	ZERO?	STACK /?CCL60
+	ICALL	PERFORM,V?RUB,PAD
+	RTRUE	
+?CCL60:	EQUAL?	PRSA,V?SHAKE,V?KICK,V?KILL \?CCL64
+	ZERO?	SUBSTITUTE-DRUNK /?CCL64
+	PRINTI	"The "
+	PRINTD	NUTRIMAT
+	PRINTI	" says, "
+	RANDOM	100
+	LESS?	50,STACK /?PRG74
+	PRINTR	"""Share and Enjoy."""
+?PRG74:	PRINTR	"""If you have enjoyed the experience of this drink, why not share it with your friends?"""
+?CCL64:	EQUAL?	PRSA,V?PLUG,V?PUT \?CCL77
+	EQUAL?	PRSI,NUTRIMAT \?CCL77
+	FSET?	NUTRIMAT,OPENBIT /?CCL82
+	PRINTR	"The panel is closed."
+?CCL82:	FIRST?	NUTRIMAT \?CCL86
+	PRINTR	"There's no room."
+?CCL86:	EQUAL?	PRSO,NUT-COM-INTERFACE,BOARD \?CCL90
+	MOVE	PRSO,NUTRIMAT
+	PRINTR	"Done."
+?CCL90:	CALL1	V-PLUG
+	RSTACK	
+?CCL77:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL94
+	FSET?	NUTRIMAT,OPENBIT /?CCL97
+	ICALL	PERFORM,V?OPEN,NUTRIMAT
+	RTRUE	
+?CCL97:	IN?	BOARD,NUTRIMAT \?CCL99
+	PRINTI	"There is a "
+	PRINTD	BOARD
+	PRINTR	" there."
+?CCL99:	IN?	NUT-COM-INTERFACE,NUTRIMAT \?PRG106
+	PRINTI	"There is a "
+	PRINTD	NUT-COM-INTERFACE
+	PRINTR	" there."
+?PRG106:	PRINTI	"There's nothing in the "
+	PRINTD	NUTRIMAT
+	PRINTR	"."
+?CCL94:	EQUAL?	PRSA,V?ASK-ABOUT \FALSE
+	EQUAL?	PRSI,OBJECT-OF-GAME \FALSE
+	PRINTR	"""To provide a nutritious and flavour-enhanced diet."""
+
+
+	.FUNCT	PAD-F
+	EQUAL?	PRSA,V?PUSH,V?RUB \FALSE
+	IN?	NUT-COM-INTERFACE,NUTRIMAT \?CCL6
+	CALL2	RUNNING?,I-TEA
+	ZERO?	STACK /?CCL9
+	PRINTI	"""Please wait..."
+	PRINTD	NUTRIMAT
+	PRINTR	" engaged."""
+?CCL9:	IN?	TEA,PAD \?PRG16
+	CALL	QUEUE,I-TEA,-1
+	PUT	STACK,0,1
+	PRINTI	"The "
+	PRINTD	NUTRIMAT
+	PRINTI	" is puzzled that you want something made by pouring boiling water on dead leaves and squirting stuff from a cow in it, and says that it will need some help from "
+	PRINTD	EDDIE
+	PRINTR	"."
+?PRG16:	PRINTI	"""I won't go through that again. If "
+	PRINTD	SUBSTITUTE
+	PRINTR	" isn't good enough, too bad."""
+?CCL6:	IN?	SUBSTITUTE,PAD \?PRG22
+	MOVE	SUBSTITUTE,SLOT
+	SET	'P-IT-OBJECT,SUBSTITUTE
+	PRINTI	"The "
+	PRINTD	NUTRIMAT
+	PRINTI	" makes an instant but highly detailed examination of your taste buds, a spectroscopic analysis of your metabolism and sends tiny experimental signals down your neural pathways to see what you like.
+A cupful of "
+	PRINTD	SUBSTITUTE
+	PRINTR	" appears in the dispensing slot."
+?PRG22:	PRINTI	"""You still haven't drunk the nutritious and flavour-enhanced cupful of "
+	PRINTD	SUBSTITUTE
+	PRINTI	" I already gave you,"" scolds the "
+	PRINTD	NUTRIMAT
+	PRINTR	"."
+
+
+	.FUNCT	SLOT-F
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	EQUAL?	PRSO,SLOT \FALSE
+	CALL1	TELL-ME-HOW
+	RSTACK	
+
+
+	.FUNCT	BOARD-F
+	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL3
+	EQUAL?	PRSO,BOARD \?CCL3
+	CALL1	TELL-ME-HOW
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL7
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTI	" is square, about ten inches on each side. It has a number of microchips, some printed circuitry, and a message printed in microscopic letters. There are also eight "
+	PRINTD	DIPSWITCH
+	PRINTR	"es, marked:
+  1  Cholesterol Register
+  2  MSG Specifier
+  3  Thiamin Stack
+  4  Piquant-O-Mat
+  5  Flavour Dump
+  6  Vitamin Interrupts
+  7  Nose Sequencer
+  8  Bouquet Arbitration Bus"
+?CCL7:	EQUAL?	PRSA,V?MUNG \?CCL11
+	MOVE	BOARD,LOCAL-GLOBALS
+	PRINTR	"It's all the device deserves. It shatters with a satisfying crunch."
+?CCL11:	EQUAL?	PRSA,V?EXAMINE-THROUGH,V?READ \?CCL15
+	EQUAL?	PRSI,MAGNIFYING-GLASS \?CCL15
+	PRINTR	"The message reads ""This is just a satirical device. It has no practical function."""
+?CCL15:	EQUAL?	PRSA,V?READ \FALSE
+	PRINTR	"The message is too small for you to read."
+
+
+	.FUNCT	DIPSWITCH-F
+	EQUAL?	PRSA,V?LAMP-ON,V?THROW,V?TURN /?PRG6
+	EQUAL?	PRSA,V?MOVE,V?PUSH,V?LAMP-OFF \FALSE
+?PRG6:	PRINTI	"Switched."
+	IN?	BOARD,NUTRIMAT \?CCL10
+	PRINTI	" Some lights on the "
+	PRINTD	NUTRIMAT
+	PRINTR	" flash briefly. A promising hum quickly dies away."
+?CCL10:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SUBSTITUTE-DESCFCN,X
+	CALL2	DESCRIBE-DRINK,SUBSTITUTE
+	RSTACK	
+
+
+	.FUNCT	SUBSTITUTE-F
+	EQUAL?	PRSA,V?DRINK-FROM,V?ENJOY,V?DRINK \?CCL3
+	CALL2	HELD?,SUBSTITUTE
+	ZERO?	STACK \?CCL6
+	PRINT	NOT-HOLDING
+	PRINTR	" the cup!"
+?CCL6:	GRTR?	SCORE,300 \?CCL10
+	PRINTR	"You'd rather continue savouring that delicious tea."
+?CCL10:	ZERO?	SUBSTITUTE-DRUNK /?CND4
+	SUB	SCORE,30 >SCORE
+	SET	'DREAMING,FALSE-VALUE
+	PRINTI	"That last gulp of the vile "
+	PRINTD	SUBSTITUTE
+	ICALL2	JIGS-UP,STR?11
+	RTRUE	
+?CND4:	EQUAL?	SUBSTITUTE,BROWNIAN-SOURCE \?CND16
+	SET	'BROWNIAN-SOURCE,FALSE-VALUE
+?CND16:	SET	'SUBSTITUTE-DRUNK,TRUE-VALUE
+	SUB	SCORE,30 >SCORE
+	MOVE	SUBSTITUTE,PAD
+	PRINTI	"It tastes almost, but not quite, entirely unlike tea. It's absolutely disgusting."
+	ICALL2	ANTI-LITTER,STR?10
+	EQUAL?	HERE,GALLEY \?CND20
+	PRINTC	32
+	ICALL	PERFORM,V?KILL,NUTRIMAT
+	RTRUE	
+?CND20:	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE,V?EXAMINE \?CCL25
+	PRINTI	"About the only characteristic it shares with tea is that of"
+	PRINT	BROWNIAN
+	PRINTC	46
+	EQUAL?	PRSO,BROWNIAN-SOURCE \?CCL30
+	PRINTC	32
+	ICALL	PERFORM,V?EXAMINE,DANGLY-BIT
+	RTRUE	
+?CCL30:	CRLF	
+	RTRUE	
+?CCL25:	EQUAL?	PRSA,V?THROW,V?POUR \FALSE
+	CALL1	LIQUID-SPILL
+	RSTACK	
+
+
+	.FUNCT	INTERFACE-BOX-F
+	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
+	PRINTI	"The carton is labelled """
+	PRINTD	NUT-COM-INTERFACE
+	PRINTI	"."""
+	CRLF	
+	EQUAL?	PRSA,V?EXAMINE /FALSE
+	RTRUE	
+
+
+	.FUNCT	BEAST-GUN-F
+	EQUAL?	PRSA,V?READ,V?EXAMINE \FALSE
+	PRINTI	"The gun has a large label which reads ""Anti-Bugblatter Beast Ray Gun."""
+	ICALL1	FINE-PRODUCT
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	I-TEA
+	INC	'TEA-COUNTER
+	EQUAL?	HERE,GALLEY /?CND1
+	LESS?	TEA-COUNTER,7 /FALSE
+?CND1:	CRLF	
+	EQUAL?	TEA-COUNTER,1 \?CCL7
+	PRINTR	"The nutrimat begins to whirr."
+?CCL7:	EQUAL?	TEA-COUNTER,2 \?CCL11
+	PRINTR	"A red sign lights up saying:
+   MEMORY OVERLOAD"
+?CCL11:	EQUAL?	TEA-COUNTER,3 \?CCL15
+	PRINTR	"Another red sign lights up saying:
+   RESERVE MEMORY OVERLOAD"
+?CCL15:	EQUAL?	TEA-COUNTER,4 \?CCL19
+	PRINTR	"A third sign lights up:
+   PROCESSOR OVERLOAD,
+   SWITCH TO TERMINAL MODE"
+?CCL19:	EQUAL?	TEA-COUNTER,5 \?CCL23
+	PRINTR	"A blue sign lights up:
+   NUTRIMAT GOING ON LINE"
+?CCL23:	EQUAL?	TEA-COUNTER,6 \?CCL27
+	PRINTR	"More and more signs light up:
+   SHIPBOARD COMPUTER ACCESSED
+   MAIN MEMORY OVERLOAD
+   RESERVE MEMORY ACCESSED
+   PARALLEL PROCESSORS ON LINE
+
+   ****************************
+   ** NUMBERS BEING CRUNCHED **
+   ****************************"
+?CCL27:	EQUAL?	TEA-COUNTER,7 \?CCL31
+	FSET	THUMB,MUNGEDBIT
+	PRINT	ANNOUNCEMENT
+	PRINTD	EDDIE
+	PRINTI	". Emergency situation! Nuclear missiles have just been launched at us from the approaching planet, which my data banks indicate is"
+	PRINT	LOST-PLANET
+	PRINTI	". I cannot perform evasive maneuvers because"
+	PRINT	ENGAGED
+	PRINTD	NUTRIMAT
+	PRINTR	". The missiles will turn this ship into a huge atomic fireball in approximately eight turns. By the way, somebody didn't finish their spinach at dinner."""
+?CCL31:	LESS?	TEA-COUNTER,15 \?CCL35
+	PRINTR	"You hear distant sounds of panic: shouts of anger, cries of alarm, pounding feet."
+?CCL35:	CALL2	INT,I-TEA
+	PUT	STACK,0,0
+	PRINTI	"It seems that the missiles struck "
+	PRINTD	HEART-OF-GOLD
+	ICALL2	JIGS-UP,STR?13
+	RTRUE	
+
+
+	.FUNCT	I-LANDING
+	CALL2	IN-HEART?,PROTAGONIST
+	ZERO?	STACK \?CCL3
+	CALL	QUEUE,I-LANDING,12
+	PUT	STACK,0,1
+	RFALSE	
+?CCL3:	MOVE	MARVIN,PANTRY
+	CALL2	INT,I-MARVIN
+	PUT	STACK,0,0
+	SET	'LANDED,TRUE-VALUE
+	CRLF	
+	PRINT	ANNOUNCEMENT
+	PRINTD	EDDIE
+	PRINTI	". We have just landed on"
+	PRINT	LOST-PLANET
+	PRINTR	". I don't want anyone going outside until I've checked the atmosphere, climatic conditions, existence of dangerous wildlife, airborne diseases, volcanic activity, presence of real estate agents, and more than eight thousand other possible dangers. This routine check will take 14.9 years. And don't even think about leaving until I finish, because I'm jamming the hatch."""
+
+
+	.FUNCT	SAUNA-ENTER-F
+	ICALL1	UNPLUG-HELD-STUFF
+	RANDOM	12
+	ADD	10,STACK
+	ADD	MOVES,STACK >MOVES
+	PRINTI	"You enter the sauna. After several "
+	CALL2	RUNNING?,I-FORD
+	ZERO?	STACK /?PRG8
+	PRINTI	"minutes"
+	JUMP	?PRG10
+?PRG8:	PRINTI	"hours"
+?PRG10:	PRINTI	", you come out a changed man."
+	CALL2	HELD?,FLOWERPOT
+	ZERO?	STACK /?CND12
+	IN?	PLANT,FLOWERPOT \?CND12
+	ZERO?	PLANT-BLOOMED \?CND12
+	SET	'PLANT-BLOOMED,TRUE-VALUE
+	ADD	SCORE,25 >SCORE
+	MOVE	FRUIT,FLOWERPOT
+	PRINTI	" You have with you a changed plant."
+?CND12:	CRLF	
+	IN?	MARVIN,BRIDGE \FALSE
+	MOVE	MARVIN,PANTRY
+	RFALSE	
+
+
+	.FUNCT	BRIDGE-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is the bridge of "
+	PRINTD	HEART-OF-GOLD
+	PRINTI	". A gangway leads down, and steam comes from an entrance to port. Next to the control console is "
+	PRINTD	EDDIE
+	PRINTC	46
+	ZERO?	DRIVE-TO-CONTROLS /?CCL8
+	PRINTC	32
+	ICALL	PERFORM,V?EXAMINE,LARGE-RECEPTACLE
+	JUMP	?CND6
+?CCL8:	CRLF	
+?CND6:	FSET?	BRIDGE,NDESCBIT /FALSE
+	FSET	BRIDGE,NDESCBIT
+	CRLF	
+	PRINTR	"At the controls, apparently expecting you and Ford, are a man with more than the usual number of heads (the name ""Zaphod"" is stitched on his shirt) and a dark-haired woman, holding a handbag. Both seem somehow familiar."
+
+
+	.FUNCT	SAUNA-PSEUDO
+	EQUAL?	PRSA,V?BOARD,V?WALK-TO,V?THROUGH \FALSE
+	EQUAL?	HERE,BRIDGE \FALSE
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+
+
+	.FUNCT	PEOPLE-PSEUDO
+	IN?	ZAPHOD,HERE /?CCL3
+	PRINTR	"What people?"
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	ICALL	PERFORM,V?EXAMINE,ZAPHOD
+	ICALL	PERFORM,V?EXAMINE,TRILLIAN
+	RTRUE	
+
+
+	.FUNCT	EDDIE-F
+	EQUAL?	EDDIE,WINNER \?CCL3
+	EQUAL?	PRSA,V?TELL-ABOUT \?CCL6
+	EQUAL?	PRSO,ME \?CCL6
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,EDDIE,PRSI
+	SET	'WINNER,EDDIE
+	RTRUE	
+?CCL6:	EQUAL?	PRSA,V?HELLO \?CCL10
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?HELLO,EDDIE
+	SET	'WINNER,EDDIE
+	RTRUE	
+?CCL10:	EQUAL?	PRSA,V?WHAT \?CCL12
+	EQUAL?	PRSO,OBJECT-OF-GAME \?CCL12
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,EDDIE,OBJECT-OF-GAME
+	SET	'WINNER,EDDIE
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?LAMP-ON \?CCL16
+	EQUAL?	PRSO,SPARE-DRIVE,MAIN-DRIVE \?CCL16
+	CALL2	RUNNING?,I-TEA
+	ZERO?	STACK /?PRG24
+	PRINTI	"""Sorry,"
+	PRINT	ENGAGED
+	PRINTD	NUTRIMAT
+	PRINTR	". I can't do everything, you know."""
+?PRG24:	PRINTI	"""Sorry, current course for"
+	PRINT	LOST-PLANET
+	PRINTI	" can be countermanded only by "
+	PRINTD	ZAPHOD
+	PRINTR	"."""
+?CCL16:	EQUAL?	PRSA,V?OPEN,V?REPAIR \?CCL27
+	EQUAL?	PRSO,HATCH \?CCL27
+	ZERO?	LANDED /?CCL27
+	PRINTR	"""Not until I completely check out the safety of this planet. Please wait approximately fourteen years. In the meantime, have you brushed your teeth lately?"""
+?CCL27:	EQUAL?	PRSA,V?YES \?CCL34
+	EQUAL?	AWAITING-REPLY,18 \?CCL34
+	CALL1	V-YES
+	RSTACK	
+?CCL34:	EQUAL?	PRSA,V?NO \?CCL38
+	EQUAL?	AWAITING-REPLY,18 \?CCL38
+	CALL1	V-NO
+	RSTACK	
+?CCL38:	SET	'AWAITING-REPLY,18
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTI	"Eddie sighs deeply. ""I can't talk right now. Do you know how difficult it is to pilot a ship as complicated as this one?"""
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?LAMP-OFF \?CCL44
+	PRINTR	"You don't know how (fortunately)."
+?CCL44:	EQUAL?	PRSA,V?ASK-ABOUT \FALSE
+	EQUAL?	PRSI,OBJECT-OF-GAME \FALSE
+	SET	'AWAITING-REPLY,19
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTI	"""To pilot "
+	PRINTD	HEART-OF-GOLD
+	PRINTI	", process data requests from the "
+	PRINTD	NUTRIMAT
+	PRINTR	" and keep the crew healthy. Read your manual! How do you expect to get anywhere in life? But don't read unless there's enough light."""
+
+
+	.FUNCT	LARGE-RECEPTACLE-F
+	ZERO?	DRIVE-TO-CONTROLS /FALSE
+	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"A "
+	PRINTD	SPARE-DRIVE
+	PRINTR	" is plugged into the large receptacle."
+
+
+	.FUNCT	ZAPHOD-F
+	EQUAL?	IDENTITY-FLAG,ZAPHOD \?CCL3
+	EQUAL?	PRSO,PHIL,ZAPHOD \?CCL6
+	ICALL	PERFORM,PRSA,ME,PRSI
+	RTRUE	
+?CCL6:	ICALL	PERFORM,PRSA,PRSO,ME
+	RTRUE	
+?CCL3:	EQUAL?	WINNER,ZAPHOD \?CCL8
+	EQUAL?	PRSA,V?TELL-ABOUT \?CCL11
+	EQUAL?	PRSO,ME \?CCL11
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,ZAPHOD,PRSI
+	SET	'WINNER,ZAPHOD
+	RTRUE	
+?CCL11:	EQUAL?	PRSA,V?HELLO \?CCL15
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?HELLO,ZAPHOD
+	SET	'WINNER,ZAPHOD
+	RTRUE	
+?CCL15:	EQUAL?	PRSA,V?WHAT \?PRG22
+	EQUAL?	PRSO,OBJECT-OF-GAME \?PRG22
+	PRINT	ASK-ABOUT-OBJECT
+	CRLF	
+	RTRUE	
+?PRG22:	PRINTI	"""Shut up, Earthman."""
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL8:	EQUAL?	IDENTITY-FLAG,TRILLIAN \?CCL25
+	EQUAL?	PRSI,PHIL \?CCL28
+	EQUAL?	PRSA,V?GIVE,V?SHOW \?CCL28
+	ICALL	PERFORM,V?HELLO,PHIL
+	RTRUE	
+?CCL28:	EQUAL?	PRSA,V?TELL,V?HELLO,V?SGIVE /?PRD34
+	EQUAL?	PRSA,V?ASK-FOR,V?ASK-ABOUT \?CCL32
+?PRD34:	EQUAL?	PRSO,PHIL \?CCL32
+	IN?	PHIL,HERE /?CND37
+	PRINTR	"Phil's not here anymore!"
+?CND37:	FSET?	JACKET-FLUFF,TRYTAKEBIT /?PRG43
+	CALL	QUEUE,I-ZAPHOD,3
+	PUT	STACK,0,1
+?PRG43:	PRINTI	"Phil must not have noticed you, because he just moved into the "
+	EQUAL?	HERE,LIVING-ROOM \?CCL47
+	MOVE	PHIL,DINING-ROOM
+	MOVE	CAGE,DINING-ROOM
+	PRINTD	DINING-ROOM
+	JUMP	?PRG56
+?CCL47:	EQUAL?	HERE,DINING-ROOM \?CCL51
+	MOVE	PHIL,KITCHEN
+	MOVE	CAGE,KITCHEN
+	PRINTD	KITCHEN
+	JUMP	?PRG56
+?CCL51:	MOVE	PHIL,LIVING-ROOM
+	MOVE	CAGE,LIVING-ROOM
+	PRINTD	LIVING-ROOM
+?PRG56:	PRINTC	46
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL32:	EQUAL?	PRSA,V?EXAMINE \?CCL59
+	PRINTR	"He is very attractive, if a little weird, and has a slight otherworldly look. You suspect he's a party crasher, an impression reinforced by his inappropriate garb; he seems clothed for a fancy dress party or something, because he has what appears to be a large birdcage on his shoulder with a black drape over it. The bird inside must be asleep, because you can hear snoring coming from inside it."
+?CCL59:	EQUAL?	PRSA,V?PICK-UP \FALSE
+	PRINTR	"You're not that kind of girl."
+?CCL25:	EQUAL?	PRSA,V?EXAMINE \?CCL67
+	PRINTR	"Zaphod has two heads."
+?CCL67:	EQUAL?	PRSA,V?FOLLOW \?CCL71
+	EQUAL?	FOLLOW-FLAG,3 \?CCL74
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+?CCL74:	EQUAL?	FOLLOW-FLAG,6 \FALSE
+	CALL2	DO-WALK,P?EAST
+	RSTACK	
+?CCL71:	EQUAL?	PRSA,V?ASK-ABOUT \FALSE
+	EQUAL?	PRSI,OBJECT-OF-GAME \FALSE
+	PRINT	ASK-ABOUT-OBJECT
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	I-ZAPHOD
+	ZERO?	ITEM-DROPPED-AT-PARTY /?CCL3
+	CALL	QUEUE,I-ZAPHOD,3
+	PUT	STACK,0,1
+	CALL2	RUNNING?,I-HOSTESS
+	ZERO?	STACK /FALSE
+	MOVE	PHIL,HERE
+	MOVE	CAGE,HERE
+	CRLF	
+	PRINTR	"Out of the corner of your eye, you see Phil leering at you. He starts to approach, but then notices the hostess with you and veers away."
+?CCL3:	ADD	SCORE,25 >SCORE
+	FSET	LIVING-ROOM,REVISITBIT
+	FSET	HOSTESS,NDESCBIT
+	CRLF	
+	ICALL2	JIGS-UP,STR?15
+	RTRUE	
+
+
+	.FUNCT	TRILLIAN-F
+	EQUAL?	IDENTITY-FLAG,TRILLIAN \?CCL3
+	EQUAL?	TRILLIAN,PRSO \?CCL6
+	ICALL	PERFORM,PRSA,ME,PRSI
+	RTRUE	
+?CCL6:	ICALL	PERFORM,PRSA,PRSO,ME
+	RTRUE	
+?CCL3:	EQUAL?	TRILLIAN,WINNER \?CCL8
+	EQUAL?	PRSA,V?TELL-ABOUT \?CCL11
+	EQUAL?	PRSO,ME \?CCL11
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,TRILLIAN,PRSI
+	SET	'WINNER,TRILLIAN
+	RTRUE	
+?CCL11:	EQUAL?	PRSA,V?HELLO \?CCL15
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?HELLO,TRILLIAN
+	SET	'WINNER,TRILLIAN
+	RTRUE	
+?CCL15:	EQUAL?	PRSA,V?WHAT \?CCL17
+	EQUAL?	PRSO,OBJECT-OF-GAME \?CCL17
+	PRINT	ASK-ABOUT-OBJECT
+	CRLF	
+	RTRUE	
+?CCL17:	EQUAL?	PRSA,V?SHOOT \?PRD25
+	IN?	BLASTER,TRILLIAN \?PRD25
+	EQUAL?	PRSO,RIFLES /?CTR22
+?PRD25:	EQUAL?	PRSA,V?SSHOOT \?CCL23
+	IN?	BLASTER,TRILLIAN \?CCL23
+	EQUAL?	PRSI,RIFLES \?CCL23
+?CTR22:	MOVE	BLASTER,PROTAGONIST
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?SHOOT,RIFLES,BLASTER
+	SET	'WINNER,TRILLIAN
+	MOVE	BLASTER,TRILLIAN
+	RTRUE	
+?CCL23:	EQUAL?	IDENTITY-FLAG,ZAPHOD \?PRG36
+	PRINTI	"""Shut up, you jerk!"" hisses "
+	PRINTD	TRILLIAN
+	PRINTI	". ""Just get on with the plan."""
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?PRG36:	PRINTD	TRILLIAN
+	PRINTI	" smiles disinterestedly at you and looks away."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL8:	EQUAL?	PRSA,V?SHOOT \?CCL39
+	EQUAL?	PRSI,BLASTER \?CCL39
+	PRINTI	"How heartless! Fortunately, justice prevails as the guards"
+	ICALL1	GUARD-DEATH
+	RTRUE	
+?CCL39:	EQUAL?	PRSA,V?ASK-ABOUT \?CCL45
+	EQUAL?	PRSI,OBJECT-OF-GAME \?CCL45
+	PRINT	ASK-ABOUT-OBJECT
+	CRLF	
+	RTRUE	
+?CCL45:	EQUAL?	FOLLOW-FLAG,3 \?CCL51
+	EQUAL?	PRSA,V?FOLLOW \?CCL51
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+?CCL51:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	IN?	BLASTER,TRILLIAN \FALSE
+	PRINTR	"She's holding a blaster at your head."
+
+
+	.FUNCT	HANDBAG-F
+	EQUAL?	PRSA,V?THROW,V?DROP \?CCL3
+	EQUAL?	IDENTITY-FLAG,TRILLIAN \?CCL3
+	CALL1	DROP-AT-PARTY
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?TAKE \FALSE
+	IN?	HANDBAG,TRILLIAN \FALSE
+	PRINTD	TRILLIAN
+	PRINTR	" pulls it away."
+
+
+	.FUNCT	FORE-CORRIDOR-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is one end of a short corridor that continues "
+	EQUAL?	HERE,FORE-CORRIDOR \?PRG11
+	PRINTI	"aft"
+	JUMP	?PRG13
+?PRG11:	PRINTI	"fore"
+?PRG13:	PRINTI	" along the main deck of "
+	PRINTD	HEART-OF-GOLD
+	PRINTI	". Doorways lead to "
+	EQUAL?	HERE,FORE-CORRIDOR \?PRG20
+	PRINTI	"fore"
+	JUMP	?PRG22
+?PRG20:	PRINTI	"aft"
+?PRG22:	PRINTI	" and port. In addition, a gangway leads "
+	EQUAL?	HERE,FORE-CORRIDOR \?PRG29
+	PRINTI	"up"
+	JUMP	?PRG31
+?PRG29:	PRINTI	"down"
+?PRG31:	PRINTR	"ward."
+
+
+	.FUNCT	AFT-CORRIDOR-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	FCLEAR	HATCH,DOORBIT
+	RFALSE	
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	CALL2	FORE-CORRIDOR-F,M-LOOK
+	RSTACK	
+
+
+	.FUNCT	I-REPLY
+	SET	'AWAITING-REPLY,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	ENGINE-ROOM-ENTER-F
+	INC	'ARGUMENT-COUNTER
+	EQUAL?	ARGUMENT-COUNTER,1 \?CCL3
+	SET	'AWAITING-REPLY,1
+	CALL	QUEUE,I-ARGUMENT,2
+	PUT	STACK,0,1
+	PRINTI	"That entrance leads to the"
+	PRINT	IID
+	PRINTI	" chamber. It's supposed to be a terribly dangerous area of the ship. Are you sure you want to go in there?"
+	CRLF	
+	RFALSE	
+?CCL3:	EQUAL?	ARGUMENT-COUNTER,2 \?CCL7
+	SET	'AWAITING-REPLY,1
+	CALL	QUEUE,I-ARGUMENT,2
+	PUT	STACK,0,1
+	PRINTI	"Absolutely sure?"
+	CRLF	
+	RFALSE	
+?CCL7:	EQUAL?	ARGUMENT-COUNTER,3 \?CCL11
+	CALL2	INT,I-ARGUMENT
+	PUT	STACK,0,0
+	SET	'AWAITING-REPLY,100
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTI	"I can tell you don't want to really. You stride away with a spring in your step, wisely leaving the Drive Chamber safely behind you. Telegrams arrive from well-wishers in all corners of the Galaxy congratulating you on your prudence and wisdom, cheering you up immensely."
+	CRLF	
+	RFALSE	
+?CCL11:	EQUAL?	ARGUMENT-COUNTER,4 \?CCL15
+	CALL	QUEUE,I-ARGUMENT,2
+	PUT	STACK,0,1
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	SET	'AWAITING-REPLY,2
+	PRINTI	"What? You're joking, of course. Can I ask you to reconsider?"
+	CRLF	
+	RFALSE	
+?CCL15:	GRTR?	ARGUMENT-COUNTER,4 \FALSE
+	CALL2	INT,I-ARGUMENT
+	PUT	STACK,0,0
+	SET	'AWAITING-REPLY,FALSE-VALUE
+	RETURN	ENGINE-ROOM
+
+
+	.FUNCT	I-ARGUMENT
+	EQUAL?	PRSA,V?NO \?PRD5
+	EQUAL?	AWAITING-REPLY,1 /?CND1
+?PRD5:	EQUAL?	PRSA,V?YES \?CCL3
+	EQUAL?	AWAITING-REPLY,2 /?CND1
+?CCL3:	CRLF	
+?CND1:	SET	'AWAITING-REPLY,FALSE-VALUE
+	SET	'ARGUMENT-COUNTER,0
+	PRINTR	"I knew you weren't serious about entering that extremely dangerous area."
+
+
+	.FUNCT	ENTRY-BAY-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	SET	'IDENTITY-FLAG,ARTHUR
+	MOVE	HATCH,GLOBAL-OBJECTS
+	MOVE	MECHANISM,GLOBAL-OBJECTS
+	MOVE	ARTHUR,GLOBAL-OBJECTS
+	FSET?	ENTRY-BAY,NDESCBIT \?CCL6
+	MOVE	FORD,LOCAL-GLOBALS
+	MOVE	TRILLIAN,LOCAL-GLOBALS
+	MOVE	ZAPHOD,LOCAL-GLOBALS
+	RFALSE	
+?CCL6:	FSET	ENTRY-BAY,NDESCBIT
+	CALL	QUEUE,I-FORD,1
+	PUT	STACK,0,1
+	RFALSE	
+
+
+	.FUNCT	SALES-BROCHURE-F
+	EQUAL?	PRSA,V?READ \FALSE
+	PRINTI	"""Equipped with a sensational breakthrough in Improbability Physics, "
+	PRINTD	HEART-OF-GOLD
+	PRINTI	" will make you the envy of every major government. When the ship's"
+	PRINT	IID
+	PRINTI	" is activated, "
+	PRINTD	HEART-OF-GOLD
+	PRINTI	" passes through every point in the universe simultaneously, making travel to any single location a breeze!""
+
+The "
+	PRINTD	SALES-BROCHURE
+	PRINTI	" goes on to describe the ship's complement of "
+	PRINT	SCC
+	PRINTI	"-designed robots and computers, all equipped with GPP ("
+	PRINT	GPP
+	PRINTR	")."
+
+
+	.FUNCT	ENGINE-ROOM-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	INC	'LOOK-COUNTER
+	EQUAL?	LOOK-COUNTER,1 \?CCL6
+	PRINTI	"You're in the"
+	PRINT	IID
+	PRINTR	" chamber. Nothing happens; there is nothing to see."
+?CCL6:	EQUAL?	LOOK-COUNTER,2 \?CCL10
+	PRINTR	"I mean it! There's nothing to see here!"
+?CCL10:	GRTR?	LOOK-COUNTER,2 \FALSE
+	EQUAL?	LOOK-COUNTER,3 \?PRG19
+	MOVE	MAIN-DRIVE,GLOBAL-OBJECTS
+	MOVE	SPARE-DRIVE,HERE
+	MOVE	PLIERS,HERE
+	MOVE	RASP,HERE
+	ADD	SCORE,25 >SCORE
+	PRINTI	"Okay, okay, there are a FEW things to see here. "
+?PRG19:	PRINTI	"This is the room that houses the powerful In"
+	PRINT	FIG
+	PRINTI	" that drives "
+	PRINTD	HEART-OF-GOLD
+	PRINTR	". An exit lies fore of here."
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	EQUAL?	LOOK-COUNTER,3 \FALSE
+	SET	'LOOK-COUNTER,4
+	CRLF	
+	PRINTR	"(Footnote 10)"
+
+
+	.FUNCT	MAIN-DRIVE-F
+	EQUAL?	PRSA,V?RUB,V?EXAMINE \?CCL3
+	EQUAL?	HERE,ENGINE-ROOM /?CCL3
+	CALL2	CANT-SEE,MAIN-DRIVE
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?LAMP-ON \FALSE
+	PRINTI	"Only "
+	PRINTD	EDDIE
+	PRINTR	" can activate the drive."
+
+
+	.FUNCT	SPARE-DRIVE-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The "
+	PRINTD	SPARE-DRIVE
+	PRINTI	" has a switch"
+	IN?	LARGE-PLUG,SPARE-DRIVE \?PRG18
+	PRINTI	", a long cord "
+	ZERO?	DRIVE-TO-CONTROLS /?PRG16
+	PRINTI	"plugged into the control console,"
+	JUMP	?PRG20
+?PRG16:	PRINTI	"ending with a "
+	PRINTD	LARGE-PLUG
+	PRINTC	44
+	JUMP	?PRG20
+?PRG18:	PRINTI	", a fused spot where a long cord once began,"
+?PRG20:	PRINTI	" and a short cord "
+	ZERO?	DRIVE-TO-PLOTTER /?PRG27
+	PRINTI	"plugged into the "
+	PRINTD	PLOTTER
+	JUMP	?PRG29
+?PRG27:	PRINTI	"ending with a "
+	PRINTD	SMALL-PLUG
+?PRG29:	PRINTC	46
+	ICALL1	FINE-PRODUCT
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?TIE,V?PLUG \?PRD34
+	EQUAL?	PRSO,SPARE-DRIVE /?CTR31
+?PRD34:	EQUAL?	PRSA,V?PUT \?CCL32
+	EQUAL?	PRSI,SMALL-RECEPTACLE,LARGE-RECEPTACLE \?CCL32
+?CTR31:	IN?	LARGE-PLUG,SPARE-DRIVE \?CCL41
+	PRINTI	"In case you hadn't noticed, there are two connections leading from the "
+	PRINTD	SPARE-DRIVE
+	PRINTR	"..."
+?CCL41:	ICALL	PERFORM,V?PLUG,SMALL-PLUG,PRSI
+	RTRUE	
+?CCL32:	EQUAL?	PRSA,V?UNPLUG \?CCL45
+	ZERO?	DRIVE-TO-CONTROLS \?CTR47
+	ZERO?	DRIVE-TO-PLOTTER /?PRG53
+?CTR47:	SET	'DRIVE-TO-PLOTTER,FALSE-VALUE
+	SET	'DRIVE-TO-CONTROLS,FALSE-VALUE
+	FCLEAR	SPARE-DRIVE,NDESCBIT
+	PRINTR	"Done."
+?PRG53:	PRINT	NOT-PLUGGED
+	CRLF	
+	RTRUE	
+?CCL45:	EQUAL?	PRSA,V?LAMP-ON \?CCL56
+	ICALL	PERFORM,V?LAMP-ON,SWITCH
+	RTRUE	
+?CCL56:	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	CALL1	V-CARVE
+	RSTACK	
+
+
+	.FUNCT	LARGE-PLUG-F
+	EQUAL?	PRSA,V?TIE,V?PUT,V?PLUG \?CCL3
+	EQUAL?	PRSI,CONTROLS,LARGE-RECEPTACLE \?CCL3
+	ZERO?	DRIVE-TO-CONTROLS /?CND6
+	PRINTR	"It already is!"
+?CND6:	SET	'DRIVE-TO-CONTROLS,TRUE-VALUE
+	FSET	SPARE-DRIVE,NDESCBIT
+	PRINTI	"Plugged."
+	CALL2	RUNNING?,I-TEA
+	ZERO?	STACK \?CND12
+	PRINTC	32
+	PRINTD	EDDIE
+	PRINTI	" says, ""You shouldn't be playing around with a "
+	PRINTD	SPARE-DRIVE
+	PRINTI	". Who knows where it's been?"""
+	CRLF	
+	CRLF	
+	PRINT	ANNOUNCEMENT
+	PRINTD	EDDIE
+	PRINTI	". Someone has connected a "
+	PRINTD	SPARE-DRIVE
+	PRINTI	" to"
+	PRINT	MOP
+	PRINTR	". Better be an emergency, that's all I have to say."""
+?CND12:	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL17
+	EQUAL?	PRSI,CONTROLS \?CCL17
+	ICALL	PERFORM,V?UNPLUG,LARGE-PLUG
+	RTRUE	
+?CCL17:	EQUAL?	PRSA,V?REMOVE,V?UNPLUG \FALSE
+	ZERO?	DRIVE-TO-CONTROLS /?PRG27
+	SET	'DRIVE-TO-CONTROLS,FALSE-VALUE
+	FCLEAR	SPARE-DRIVE,NDESCBIT
+	PRINTR	"Done."
+?PRG27:	PRINT	NOT-PLUGGED
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SMALL-PLUG-F
+	EQUAL?	PRSA,V?TIE,V?PUT,V?PLUG \?CCL3
+	EQUAL?	PRSI,PLOTTER,SMALL-RECEPTACLE \?CCL3
+	ZERO?	DRIVE-TO-PLOTTER /?CND6
+	PRINTR	"It already is!"
+?CND6:	SET	'DRIVE-TO-PLOTTER,TRUE-VALUE
+	PRINTR	"Plugged."
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL13
+	EQUAL?	PRSI,PLOTTER \?CCL13
+	ICALL	PERFORM,V?UNPLUG,SMALL-PLUG
+	RTRUE	
+?CCL13:	EQUAL?	PRSA,V?REMOVE,V?UNPLUG \FALSE
+	ZERO?	DRIVE-TO-PLOTTER /?PRG23
+	SET	'DRIVE-TO-PLOTTER,FALSE-VALUE
+	PRINTR	"Done."
+?PRG23:	PRINT	NOT-PLUGGED
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	SWITCH-F
+	EQUAL?	PRSA,V?PUSH,V?TURN,V?LAMP-ON /?CCL3
+	EQUAL?	PRSA,V?THROW,V?MOVE \FALSE
+?CCL3:	ZERO?	DRIVE-TO-PLOTTER /?PRG48
+	ZERO?	BROWNIAN-SOURCE /?PRG48
+	MOVE	SPARE-DRIVE,HERE
+	MOVE	PLOTTER,HERE
+	MOVE	BROWNIAN-SOURCE,HERE
+	EQUAL?	BROWNIAN-SOURCE,TEA \?CND11
+	SET	'HOLDING-NO-TEA,TRUE-VALUE
+?CND11:	ZERO?	DRIVE-TO-CONTROLS /?CCL15
+	PRINTI	"As you flip the switch, sparks fly from the large receptacle. "
+	CALL2	RUNNING?,I-TEA
+	ZERO?	STACK /?PRG25
+	GRTR?	TEA-COUNTER,6 \?PRG25
+	PRINTI	"""My new control console!"" wails "
+	PRINTD	EDDIE
+	PRINTI	". ""This is the thanks I get"
+	JUMP	?PRG27
+?PRG25:	PRINTI	"""Now look what you've done. You've destroyed"
+	PRINT	MOP
+	PRINTI	". Don't you know it's only for emergencies"
+?PRG27:	PRINTI	"?"""
+	CRLF	
+	CRLF	
+	SET	'DRIVE-TO-CONTROLS,FALSE-VALUE
+	FCLEAR	SPARE-DRIVE,NDESCBIT
+	MOVE	LARGE-PLUG,LOCAL-GLOBALS
+	MOVE	LARGE-RECEPTACLE,LOCAL-GLOBALS
+	CALL2	RUNNING?,I-TEA
+	ZERO?	STACK /?CCL31
+	GRTR?	TEA-COUNTER,6 \?CCL31
+	MOVE	TEA,SLOT
+	CALL2	INT,I-TEA
+	PUT	STACK,0,0
+	CALL	QUEUE,I-LANDING,24
+	PUT	STACK,0,1
+	SET	'FOLLOW-FLAG,3
+	CALL	QUEUE,I-FOLLOW,2
+	PUT	STACK,0,1
+	PRINTI	"The universe goes crazy for a moment."
+	CRLF	
+	CRLF	
+	PRINT	ANNOUNCEMENT
+	PRINTD	EDDIE
+	PRINTI	". The missiles have turned into a sperm whale"
+	ICALL2	FACTOR,STR?18
+	PRINTI	" The whale is currently plummeting toward"
+	PRINT	LOST-PLANET
+	PRINTI	". I hope this will teach you to listen to me when I say that legendary lost planets can be dangerous. I am proceeding with the preset landing instructions.""
+
+Ford, Zaphod, and "
+	PRINTD	TRILLIAN
+	PRINTR	" saunter by on their way back to the sauna. ""Good work, kid,"" says Zaphod, slamming you on the back."
+?CCL31:	CALL2	INT,I-TEA
+	PUT	STACK,0,0
+	SUB	SCORE,30 >SCORE
+	PRINT	ANNOUNCEMENT
+	PRINTD	EDDIE
+	PRINTI	". Someone has activated a "
+	PRINTD	SPARE-DRIVE
+	PRINTI	" at"
+	PRINT	MOP
+	PRINTI	", moving us 8 billion parsecs away from our destination, adding seven weeks to our trip. As if that isn't bad enough, all 300 members of the Fronurbdi Planetary Senate appeared in the "
+	PRINTD	HATCHWAY
+	ICALL2	FACTOR,STR?19
+	PRINTR	" I'm flushing them into space now, but who knows what sort of germs they've dragged into the ship? Everyone should take extra vitamins today."""
+?CCL15:	CALL2	RUNNING?,I-TEA
+	ZERO?	STACK /?CCL43
+	SET	'DREAMING,TRUE-VALUE
+	CALL2	INT,I-TEA
+	PUT	STACK,0,0
+	ICALL2	JIGS-UP,STR?20
+	RTRUE	
+?CCL43:	EQUAL?	BROWNIAN-SOURCE,TEA \?CND44
+	SET	'DARK-CONTROLLED,TRUE-VALUE
+?CND44:	MOVE	HATCH,LOCAL-GLOBALS
+	MOVE	MECHANISM,LOCAL-GLOBALS
+	CALL2	PICK-ONE,DARK-ENTRANCES
+	PRINT	STACK
+	CRLF	
+	CRLF	
+	ICALL2	GOTO,DARK
+	RTRUE	
+?PRG48:	PRINTR	"Nothing happens."
+
+
+	.FUNCT	PLOTTER-DESCFCN,X
+	PRINTI	"Lying on the deck is a plotter"
+	ZERO?	DRIVE-TO-PLOTTER /?PRG8
+	PRINTI	" connected to a "
+	PRINTD	SPARE-DRIVE
+	PRINTC	46
+	JUMP	?CND3
+?PRG8:	PRINTC	46
+?CND3:	ZERO?	BROWNIAN-SOURCE /?CND10
+	PRINTI	" The plotter's "
+	PRINTD	DANGLY-BIT
+	PRINTI	" is submerged in "
+	PRINTD	BROWNIAN-SOURCE
+	PRINTR	"."
+?CND10:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PLOTTER-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTI	" has a "
+	PRINTD	SMALL-RECEPTACLE
+	PRINTI	" and a "
+	PRINTD	DANGLY-BIT
+	ZERO?	BROWNIAN-SOURCE /?CND6
+	PRINTI	" which is sitting in "
+	PRINTD	BROWNIAN-SOURCE
+?CND6:	ZERO?	DRIVE-TO-PLOTTER /?PRG14
+	PRINTI	". The short cord from the "
+	PRINTD	SPARE-DRIVE
+	PRINTI	" is plugged in the receptacle"
+?PRG14:	PRINTC	46
+	ICALL1	FINE-PRODUCT
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?PLUG \?CCL17
+	EQUAL?	PRSI,SPARE-DRIVE \?CCL17
+	ICALL	PERFORM,V?PLUG,SPARE-DRIVE,PLOTTER
+	RTRUE	
+?CCL17:	EQUAL?	PRSA,V?UNPLUG \?CCL21
+	ZERO?	DRIVE-TO-PLOTTER /?PRG27
+	SET	'DRIVE-TO-PLOTTER,FALSE-VALUE
+	PRINTR	"Unplugged."
+?PRG27:	PRINT	NOT-PLUGGED
+	CRLF	
+	RTRUE	
+?CCL21:	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	CALL1	V-CARVE
+	RSTACK	
+
+
+	.FUNCT	DANGLY-BIT-F
+	EQUAL?	PRSA,V?PUT \?CCL3
+	EQUAL?	PRSI,TEA,SUBSTITUTE \?CCL3
+	ZERO?	BROWNIAN-SOURCE /?CND6
+	PRINTI	"But the "
+	PRINTD	DANGLY-BIT
+	PRINTI	" is already in"
+	ICALL	ARTICLE,BROWNIAN-SOURCE,TRUE-VALUE
+	PRINTR	"!"
+?CND6:	SET	'BROWNIAN-SOURCE,PRSI
+	EQUAL?	PRSI,TEA \?PRG16
+	ZERO?	CARELESS-WORDS-FLAG \?PRG16
+	SET	'CARELESS-WORDS-FLAG,TRUE-VALUE
+	ICALL2	SAVE-INPUT,FIRST-BUFFER
+	CALL	QUEUE,I-CARELESS-WORDS,3
+	PUT	STACK,0,1
+?PRG16:	PRINTR	"Done."
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL19
+	ZERO?	BROWNIAN-SOURCE /?CCL19
+	PRINTI	"The "
+	PRINTD	DANGLY-BIT
+	PRINTI	" is suspended in the cup of "
+	PRINTD	BROWNIAN-SOURCE
+	PRINTR	"."
+?CCL19:	EQUAL?	PRSA,V?REMOVE \FALSE
+	ZERO?	BROWNIAN-SOURCE /FALSE
+	PRINTI	"The "
+	PRINTD	DANGLY-BIT
+	PRINTI	" is no longer suspended in"
+	ICALL	ARTICLE,BROWNIAN-SOURCE,TRUE-VALUE
+	PRINTC	46
+	CRLF	
+	SET	'BROWNIAN-SOURCE,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	HATCHWAY-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"You are at the bottom of a gangway. A hatch below you is "
+	FSET?	HATCH,OPENBIT \?PRG11
+	PRINTI	"open"
+	JUMP	?PRG13
+?PRG11:	PRINTI	"closed"
+?PRG13:	PRINTR	". There is a small access space to starboard."
+?CCL3:	EQUAL?	RARG,M-ENTER \FALSE
+	FSET	HATCH,DOORBIT
+	RFALSE	
+
+
+	.FUNCT	ACCESS-SPACE-ENTER-F
+	CALL2	ACCESS-SPACE-LOOP,PROTAGONIST
+	GRTR?	STACK,1 \?CCL3
+	PRINTI	"That entrance is so narrow that you probably couldn't pass by holding anything. Well, maybe ONE thing."
+	CRLF	
+	RFALSE	
+?CCL3:	FCLEAR	HATCH,DOORBIT
+	RETURN	ACCESS-SPACE
+
+
+	.FUNCT	ACCESS-SPACE-LOOP,CONT,X,NUMBER
+	FIRST?	CONT >X /?PRG2
+?PRG2:	ZERO?	X \?CND4
+	RETURN	NUMBER
+?CND4:	FSET?	X,WORNBIT /?CND6
+	FSET?	X,INTEGRALBIT /?CND6
+	EQUAL?	X,BABEL-FISH /?CND6
+	INC	'NUMBER
+?CND6:	FIRST?	X \?CND11
+	CALL2	ACCESS-SPACE-LOOP,X
+	ADD	NUMBER,STACK >NUMBER
+?CND11:	NEXT?	X >X /?PRG2
+	JUMP	?PRG2
+
+
+	.FUNCT	HATCH-F
+	EQUAL?	HERE,HATCHWAY /?CCL3
+	EQUAL?	PRSA,V?EXAMINE,V?CLOSE,V?OPEN /?CTR2
+	EQUAL?	PRSA,V?RUB \?CCL3
+?CTR2:	CALL2	CANT-SEE,HATCH
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?THROUGH,V?OPEN \?CCL9
+	ZERO?	LANDED \?CCL9
+	PRINTR	"Loud sirens blare, fantastically bright red lights flash from all sides, and a soft female voice mentions that opening this hatch in space will evacuate the air from the ship."
+?CCL9:	EQUAL?	PRSA,V?THROUGH,V?OPEN \FALSE
+	FSET?	HATCH,OPENBIT /FALSE
+	PRINTR	"The hatch appears to be jammed shut."
+
+
+	.FUNCT	MECHANISM-F
+	EQUAL?	HERE,ACCESS-SPACE /?CCL3
+	EQUAL?	PRSA,V?RUB,V?SMELL,V?EXAMINE /?CTR2
+	EQUAL?	PRSA,V?REPAIR \?CCL3
+?CTR2:	CALL2	CANT-SEE,MECHANISM
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?REPAIR \?CCL9
+	ICALL	PERFORM,V?REPAIR,HATCH
+	RTRUE	
+?CCL9:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"I don't even understand it, and I'm a computer!"
+
+
+	.FUNCT	ACCESS-SPACE-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This tiny area, with an exit to port, is for working on the hatch "
+	PRINTD	MECHANISM
+	PRINTI	", which is vastly more complicated than your rather ordinary intelligence can comprehend. "
+	ICALL	PERFORM,V?EXAMINE,GROUND
+	RTRUE	
+
+
+	.FUNCT	MESH-PSEUDO
+	EQUAL?	PRSI,MESH \?CCL3
+	ICALL	PERFORM,PRSA,PRSO,GROUND
+	RTRUE	
+?CCL3:	ICALL	PERFORM,PRSA,GROUND,PRSI
+	RTRUE	
+
+
+	.FUNCT	RAMP-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	ICALL1	INIT-STATUS-LINE
+	ICALL1	UPDATE-STATUS-LINE
+	PRINTI	"You step onto the landing ramp leading down toward the surface of"
+	PRINT	LOST-PLANET
+	PRINTI	". "
+	PRINT	ANNOUNCEMENT
+	PRINTD	EDDIE
+	PRINTI	". Someone is leaving the ship on a strange planet without wrapping up all nice and warm. It'll all end in tears, I just know it..."" The voice fades behind you."
+	CRLF	
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	CRLF	
+	PRINTI	"Slowly, nervously, you step downwards, the cold thin air rasping in your lungs. You set one single foot on the ancient dust -- and almost instantly the most incredible adventure starts which you'll have to buy the next game to find out about."
+	CRLF	
+	CRLF	
+	CRLF	
+	PRINTI	"By the way, there WAS a causal relationship between your taking the "
+	PRINTD	TOOTHBRUSH
+	PRINTI	" and the tree collapsing at the very beginning of the game. We apologise for this slight inaccuracy."
+	CRLF	
+	CALL1	FINISH
+	RSTACK	
+
+	.ENDI
diff --git a/heart.zil b/heart.zil
new file mode 100644
index 0000000..3d60ce0
--- /dev/null
+++ b/heart.zil
@@ -0,0 +1,1950 @@
+"HEART for
+		  THE HITCHHIKER'S GUIDE TO THE GALAXY
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved."
+
+<ROUTINE IN-HEART? (OBJ)
+   <COND (<OR <EQUAL? <META-LOC .OBJ> ,ENTRY-BAY ,FORE-CORRIDOR ,AFT-CORRIDOR>
+	      <EQUAL? <META-LOC .OBJ> ,GALLEY ,BRIDGE ,ENGINE-ROOM>
+	      <EQUAL? <META-LOC .OBJ> ,HATCHWAY ,PANTRY ,ACCESS-SPACE>>
+	  <RTRUE>)
+	 (T
+	  <RFALSE>)>>
+
+<OBJECT HEART-OF-GOLD
+	(LOC LOCAL-GLOBALS)
+	(DESC "the Heart of Gold")
+	(SYNONYM HEART GOLD SHIP SPACES)
+	(ADJECTIVE SPACE INCREDIBL NEW)
+	(FLAGS NARTICLEBIT)
+	(ACTION HEART-OF-GOLD-F)>
+
+<ROUTINE HEART-OF-GOLD-F ()
+	 <COND (<VERB? LEAVE EXIT DISEMBARK>
+		<COND (<EQUAL? ,HERE ,HATCHWAY>
+		       <DO-WALK ,P?DOWN>)
+		      (<EQUAL? ,HERE ,DAIS>
+		       <TELL ,LOOK-AROUND CR>)
+		      (T
+		       <V-WALK-AROUND>)>)
+	       (<VERB? THROUGH WALK-TO BOARD>
+		<COND (<EQUAL? ,HERE ,DAIS>
+		       <DO-WALK ,P?EAST>)
+		      (<IN-HEART? ,PROTAGONIST>
+		       <TELL ,LOOK-AROUND CR>)>)>>
+
+<GLOBAL TEA-SHOWN <>>
+
+<GLOBAL SUBSTITUTE-DRUNK <>>
+
+<ROOM PANTRY
+      (LOC ROOMS)
+      (SYNONYM INTELLIGE)
+      (DESC "Marvin's Pantry")
+      (LDESC "This is a small closet with an exit to starboard.")
+      (EAST TO AFT-CORRIDOR)
+      (OUT TO AFT-CORRIDOR)
+      (FLAGS RLANDBIT ONBIT NARTICLEBIT)
+      (GLOBAL HEART-OF-GOLD SCREENING-DOOR)
+      (ACTION PANTRY-F)>
+
+<OBJECT PANTRY-PSEUDO
+      (LOC PANTRY)
+      (SYNONYM PANTRY CLOSET)
+      (ADJECTIVE MARVIN\'S)
+      (DESC "pantry")
+      (FLAGS NDESCBIT)
+      (ACTION GLOBAL-ROOM-F)> 
+
+<ROUTINE PANTRY-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<COND (<NOT ,LANDED>
+		       <MOVE ,MARVIN ,HERE>
+		       <DISABLE <INT I-MARVIN>>)>
+		<COND (<FSET? ,SCREENING-DOOR ,MUNGEDBIT>
+		       <TELL
+"As you pass the door, it slams against you, bruising your upper arm, and then
+opens again. \"Take that, door-kicker.\"" CR CR>)>
+		<TELL
+"Upon entering the room, you are battered by tidal waves of depression. ">
+		<COND (<L? ,SCORE 300>
+		       <JIGS-UP "In fact, a lethal dose.">
+		       <RTRUE>)
+		      (T
+		       <COND (<NOT <FSET? ,PANTRY ,REVISITBIT>>
+			      <FSET ,PANTRY ,REVISITBIT>
+			      <SETG SCORE <+ ,SCORE 25>>)>
+		       <TELL
+"However, the happiness derived from your high score and that thoroughly
+excellent cup of tea you had recently help you to survive." CR CR>)>)>> 
+
+<OBJECT SCREENING-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "screening door")
+	(SYNONYM DOOR)
+	(ADJECTIVE SCREENING)
+	(FLAGS DOORBIT NDESCBIT ACTORBIT)
+	(ACTION SCREENING-DOOR-F)>
+
+<ROUTINE SCREENING-DOOR-F ()
+	 <COND (<EQUAL? ,SCREENING-DOOR ,WINNER>
+		<COND (<AND <VERB? TELL-ABOUT>
+			    <PRSO? ,ME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,SCREENING-DOOR ,PRSI>
+		       <SETG WINNER ,SCREENING-DOOR>
+		       <RTRUE>)
+		      (<VERB? HELLO>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?HELLO ,SCREENING-DOOR>
+		       <SETG WINNER ,SCREENING-DOOR>
+		       <RTRUE>)
+		      (<AND <VERB? WHAT>
+			    <PRSO? ,OBJECT-OF-GAME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,SCREENING-DOOR ,OBJECT-OF-GAME>
+		       <SETG WINNER ,SCREENING-DOOR>
+		       <RTRUE>)
+		      (T
+		       <TELL
+"\"Unless you're here to show me some clear sign of your intelligence, please
+leave me alone. I'm a very busy door.\"" CR>
+		       <FUCKING-CLEAR>)>)
+	       (<AND <FSET? ,SCREENING-DOOR ,OPENBIT>
+		     <VERB? SHOW GIVE KNOCK OPEN>>
+		<TELL "You already induced the door to open." CR>)
+	       (<AND <FSET? ,SCREENING-DOOR ,OPENBIT>
+		     <VERB? CLOSE>>
+		<TELL
+"The door snaps, \"Hey! I'm resting. I've had a very busy day.\"" CR>)
+	       (<VERB? KICK>
+		<FSET ,SCREENING-DOOR ,MUNGEDBIT>
+		<TELL
+"\"I suppose you think that since you have legs and I have not, you can get
+away with that sort of thing. Well,\" the door continues stiffly, \"maybe you
+can and maybe you can't.\"" CR>)
+	       (<VERB? SHOW GIVE>
+		<COND (<AND <PRSO? ,TEA ,NO-TEA>
+			    ,TEA-SHOWN
+			    <HELD? ,TEA>
+			    ,HOLDING-NO-TEA
+			    <NOT <PRSO? ,TEA-SHOWN>>>
+		       <PERFORM ,V?KNOCK ,SCREENING-DOOR>
+		       <RTRUE>)
+		      (T
+		       <COND (<PRSO? ,TEA ,NO-TEA>
+			      <SETG TEA-SHOWN ,PRSO>)>
+		       <COND (<PROB 50>
+			      <TELL
+"The door says, \"Big deal. Anyone can have">
+			      <ARTICLE ,PRSO>
+			      <TELL ".\"" CR>)
+			     (T
+			      <TELL "The door yawns." CR>)>)>)
+	       (<VERB? OPEN KNOCK>
+		<COND (<AND <HELD? ,TEA>
+			    ,HOLDING-NO-TEA>
+		       <FSET ,SCREENING-DOOR ,OPENBIT>
+		       <TELL
+"The door is almost speechless with admiration. \"Wow. Simultaneous tea
+and no tea. My apologies. You are clearly a heavy-duty philosopher.\" It
+opens respectfully." CR>)
+		      (T
+		       <TELL
+"The door explains, in a haughty tone, that the room is occupied by a
+superintelligent robot and that lesser beings (by which it means you)
+are not to be admitted. \"Show me some tiny example of your intelligence,\"
+it says, \"and maybe, just maybe, I might reconsider.\"" CR>)>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSI? ,OBJECT-OF-GAME>>
+		<TELL "\"To keep out subintelligent beings.\"" CR>)
+	       (<VERB? THROUGH>
+		<COND (<EQUAL? ,HERE ,PANTRY>
+		       <DO-WALK ,P?EAST>)
+		      (T
+		       <DO-WALK ,P?WEST>)>)
+	       (<VERB? EXAMINE>
+		<FCLEAR ,SCREENING-DOOR ,ACTORBIT>
+		<V-LOOK-INSIDE>
+		<FSET ,SCREENING-DOOR ,ACTORBIT>)>>
+
+<OBJECT MARVIN
+	(LOC PANTRY)
+	(DESC "Marvin")
+	(LDESC "Marvin, the Paranoid Android, is here.")
+	(SYNONYM MARVIN MARV ROBOT ANDROID)
+	(ADJECTIVE DEPRESSED PARANOID)
+	(FLAGS NARTICLEBIT ACTORBIT)
+	(ACTION MARVIN-F)>
+
+<ROUTINE MARVIN-F ()
+	 <COND (<EQUAL? ,MARVIN ,WINNER>
+		<COND (<AND <VERB? TELL-ABOUT>
+			    <PRSO? ,ME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,MARVIN ,PRSI>
+		       <SETG WINNER ,MARVIN>
+		       <RTRUE>)
+		      (<VERB? HELLO>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?HELLO ,MARVIN>
+		       <SETG WINNER ,MARVIN>
+		       <RTRUE>)
+		      (<AND <VERB? WHAT>
+			    <PRSO? ,OBJECT-OF-GAME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,MARVIN ,OBJECT-OF-GAME>
+		       <SETG WINNER ,MARVIN>
+		       <RTRUE>)
+		      (<EQUAL? ,HERE ,PANTRY>
+		       <COND (<AND <VERB? REPAIR OPEN>
+				   <PRSO? ,HATCH ,MECHANISM>>
+			      <COND (<NOT ,LANDED>
+				     <TELL
+"\"" ,HUMANS "stupid. Are you aware,\" he asks, \"that this ship is in
+space, that space is an almost perfect vacuum, and that the hatch is the
+only thing holding in all the air?\"" CR>)
+				    (<EQUAL? ,MARVIN-COUNTER 3>
+				     <TELL
+"\"After the help I got last time? " ,HUMANS "ungrateful. Go away.\""CR>)
+				    (<EQUAL? ,MARVIN-COUNTER 4>
+				     <TELL "\"I did.\"" CR>)
+				    (<G? ,MARVIN-COUNTER 0>
+				     <TELL
+"\"Yes, I said I'd do it! " ,HUMANS "repetitious.\"" CR>)
+				    (T
+				     <SETG MARVIN-COUNTER 1>
+				     <ENABLE <QUEUE I-MARVIN 12>>
+				     <TELL
+"\"" ,HUMANS "demanding. Do this. Pick up that. Unjam the opening mechanism
+of the other. Meet me in the hatchway " D ,ACCESS-SPACE " in twelve turns. I
+suppose,\" he mutters, \"you can count up to twelve. So hard to know with
+morons. And don't forget to bring the proper tool.\"" CR>)>)
+			     (<AND <VERB? WHAT>
+				   <PRSO? ,TWEEZERS>
+				   <G? ,MARVIN-COUNTER 0>>
+			      <TELL
+"Marvin looks scornful. \"How did you get past my door if you're so
+primordially benighted that you don't even know which tool is needed
+for a job like this?\"" CR>)
+			     (T
+			      <TELL "\"Please don't feel you have
+to take any notice of me. I'm just a menial robot.\"" CR>
+			      <FUCKING-CLEAR>)>) 
+		      (T
+		       <TELL
+"\"I think you ought to know I'm feeling very depressed.\"" CR>
+		       <FUCKING-CLEAR>)>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSI? ,OBJECT-OF-GAME>>
+		<TELL
+"\"Being clever doesn't always make you happy, you know. Look at me, brain
+the size of a planet, how many points do you think I've got? Minus thirty
+zillion at the last count.\"" CR>)
+	       (<AND <VERB? FOLLOW>
+		     <EQUAL? ,FOLLOW-FLAG 2>>
+		<COND (<IN? ,MARVIN ,PANTRY>
+		       <DO-WALK ,P?WEST>)
+		      (T
+		       <GOTO <LOC ,MARVIN>>)>)
+	       (<AND <VERB? FOLLOW>
+		     <EQUAL? ,FOLLOW-FLAG 7>>
+		<DO-WALK ,P?WEST>)
+	       (<AND <VERB? GIVE>
+		     <EQUAL? ,MARVIN-COUNTER 2>>
+		<COND (<PRSO? ,TOOL-REQUIRED>
+		       <SETG SCORE <+ ,SCORE 25>>
+		       <SETG MARVIN-COUNTER 4>
+		       <SETG FOLLOW-FLAG 7>
+		       <ENABLE <QUEUE I-FOLLOW 2>>
+		       <DISABLE <INT I-MARVIN>>
+		       <FSET ,HATCH ,OPENBIT>
+		       <MOVE ,MARVIN ,PANTRY>
+		       <MOVE ,TOOL-REQUIRED ,MARVIN>
+		       <TELL
+"Marvin fiddles inside the " D ,MECHANISM " with the " D ,TOOL-REQUIRED " for
+about three tenths of a second. You hear the hatchway slide open. \"I don't
+expect you to be grateful,\" says Marvin, \"or even interested, but that was
+probably more complicated than every single action you'll ever perform in your
+entire life put together.\" He limps away. \"And me,\" you hear him mutter as
+he goes, \"with this terrible pain in all the diodes down my left side.\"" CR>)
+		      (T
+		       <TELL "\"That's not">
+		       <ARTICLE ,TOOL-REQUIRED>
+		       <TELL ".\"" CR>)>)>>
+
+<ROUTINE I-MARVIN ()
+      <ENABLE <QUEUE I-MARVIN -1>>
+      <COND (<EQUAL? ,MARVIN-COUNTER 2>
+	     <SETG MARVIN-COUNTER 3>
+	     <CRLF>
+	     <COND (<EQUAL? ,HERE ,HATCHWAY>
+		    <TELL "Marvin emerges from the " D, ACCESS-SPACE ". ">)>
+	     <TELL "\"">
+	     <MARVIN-BITCH>
+	     <SETG MARVIN-COUNTER 3>)
+	    (<IN? ,MARVIN ,ACCESS-SPACE>
+	     <COND (<EQUAL? ,HERE ,ACCESS-SPACE>
+		    <COND (<NOT ,TOOL-REQUIRED>
+			   <REPEAT ()
+			      <SETG TOOL-REQUIRED <PICK-ONE ,TOOL-LIST>>
+			      <COND (<NOT <HELD? ,TOOL-REQUIRED ,PROTAGONIST>>
+				     <RETURN>)>>)>
+		    <SETG P-IT-OBJECT ,TOOL-REQUIRED>
+		    <SETG MARVIN-COUNTER 2>
+		    <TELL "Marvin, looking bored, says, \"Hand me">
+		    <ARTICLE ,TOOL-REQUIRED>
+		    <TELL ".\"" CR>)
+		   (T
+		    <TELL CR "Marvin wanders up to you. \"I went to the "
+			  D ,ACCESS-SPACE " but you never showed up. ">
+		    <MARVIN-BITCH>
+		    <SETG MARVIN-COUNTER 3>)>)
+	    (<EQUAL? ,MARVIN-COUNTER 1>
+	     <MOVE ,MARVIN ,ACCESS-SPACE>
+	     <COND (<EQUAL? ,HERE ,ACCESS-SPACE>
+		    <TELL "Marvin shambles in." CR>)
+		   (T
+		    <RFALSE>)>)
+	    (<IN? ,MARVIN ,HERE>
+	     <ENABLE <QUEUE I-FOLLOW 2>>
+	     <SETG FOLLOW-FLAG 2>
+	     <CRLF>
+	     <COND (<OR <EQUAL? ,HERE ,HATCHWAY ,GALLEY ,ENTRY-BAY>
+			<EQUAL? ,HERE ,FORE-CORRIDOR ,ENGINE-ROOM ,BRIDGE>>
+		    <TELL "Marvin wanders off." CR>
+		    <COND (<EQUAL? ,HERE ,FORE-CORRIDOR 
+				   ,ENGINE-ROOM ,HATCHWAY>
+			   <MOVE ,MARVIN ,AFT-CORRIDOR>)
+			  (T
+			   <MOVE ,MARVIN ,FORE-CORRIDOR>)>)
+		   (<EQUAL? ,HERE ,AFT-CORRIDOR>
+		    <MOVE ,MARVIN ,PANTRY>
+		    <TELL
+"Marvin enters a room to port, and the door closes behind him." CR>)
+		   (T
+		    <TELL "Bug #17">)>)
+	    (<NOT <IN? ,MARVIN ,PANTRY>>
+	     <MOVE ,MARVIN ,PANTRY>
+	     <RFALSE>)
+	    (<OR <NOT <IN-HEART? ,PROTAGONIST>>
+		 <EQUAL? ,HERE ,ACCESS-SPACE>
+		 <FSET? ,SCREENING-DOOR ,OPENBIT>
+		 ,AWAITING-REPLY>
+	     <RFALSE>)
+	    (<AND <EQUAL? ,HERE ,ENGINE-ROOM>
+		  <L? ,LOOK-COUNTER 3>>
+	     <RFALSE>)
+	    (<PROB 8>
+	     <MOVE ,MARVIN ,HERE>
+	     <TELL CR
+"You feel a wave of depression sweep over you, and you turn to see that
+Marvin the robot has stalked miserably into the room." CR>)
+	    (T
+	     <RFALSE>)>>
+
+<ROUTINE MARVIN-BITCH ()
+	 <DISABLE <INT I-MARVIN>>
+	 <MOVE ,MARVIN ,PANTRY>
+	 <TELL
+"Ah. I was misled into thinking that you wanted me to open the hatch,
+probably by the fact that you asked me to. Obviously you changed your mind
+or I misunderstood you or you are a moronic imbecile. I wonder which">
+	 <COND (<NOT <EQUAL? ,HERE ,PANTRY>>
+		<TELL
+". I'm going back to my pantry to be alone with my grief">)>
+	 <TELL ".\" Marvin stalks miserably away." CR>>
+
+<GLOBAL MARVIN-COUNTER 0>
+;"1 = Marvin's been asked to fix hatch.
+  2 = Marvin's waiting for you to hand him the right tool.
+  3 = Marvin's pissed because you weren't there or gave him the wrong tool.
+  4 = Marvin's already opened the hatch."
+
+<GLOBAL TOOL-REQUIRED <>>
+
+<GLOBAL FLUFF-COUNTER 0>
+
+<GLOBAL PLANT-BLOOMED <>>
+
+<OBJECT FLOWERPOT
+	(LOC INSIDE-WHALE)
+	(DESC "flowerpot")
+	(SYNONYM FLOWERPOT POT SOIL DIRT)
+	(ADJECTIVE FLOWER FERTILE)
+	(CAPACITY 1)
+	(SIZE 15)
+	(FLAGS TAKEBIT CONTBIT OPENBIT)
+	(ACTION FLOWERPOT-F)>
+
+<ROUTINE FLOWERPOT-F ()
+	 <COND (<AND <VERB? WATER>
+		     <PRSO? ,FLOWERPOT>
+		     <IN? ,PLANT ,FLOWERPOT>>
+		<PERFORM ,V?WATER ,PLANT ,PRSI>
+		<RTRUE>)
+	       (<VERB? EXAMINE READ LOOK-INSIDE>
+		<TELL "The pot is filled with fertile soil">
+		<COND (<IN? ,PLANT ,FLOWERPOT>
+		       <TELL ", out of which has sprouted a ">
+		       <COND (,PLANT-BLOOMED
+		       	      <TELL "large, leafy plant">)
+			     (T
+			      <TELL "tiny plant stalk">)>)
+		      (T
+		       <TELL
+". It is inscribed \"Inertial Guidance System -- Magrathean Missile Company.\"
+It must have been created by the same burst of improbability that created
+the whale itself">)>
+		<TELL "." CR>)
+	       (<AND <VERB? PUT>
+		     <PRSO? ,POCKET-FLUFF ,JACKET-FLUFF
+			    ,SATCHEL-FLUFF ,CUSHION-FLUFF>>
+		<MOVE ,PRSO ,LOCAL-GLOBALS>
+		<SETG FLUFF-COUNTER <+ ,FLUFF-COUNTER 1>>
+		<COND (<EQUAL? ,FLUFF-COUNTER 4>
+		       <ENABLE <QUEUE I-PLANT 10>>)>
+		<TELL
+"You dig a " D ,FISH-HOLE ", gingerly place the fluff at the bottom, and
+cover it over." CR>)
+	       (<AND <VERB? OPEN CLOSE>
+		     <PRSO? ,FLOWERPOT>>
+		<TELL-ME-HOW>)>>
+
+<ROUTINE I-PLANT ()
+	 <MOVE ,PLANT ,FLOWERPOT>
+	 <COND (<VISIBLE? ,FLOWERPOT>
+		<TELL CR
+"You notice a tiny movement from the " D ,FLOWERPOT ". You look closely, and
+see a tiny sprout poking out of the soil." CR>)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT PLANT
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "plant")
+	(SYNONYM PLANT SPROUT STEM STALK)
+	(ADJECTIVE SMALL LARGE LEAFY)
+	(FLAGS NDESCBIT INTEGRALBIT)
+	(ACTION PLANT-F)>
+
+<ROUTINE PLANT-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (,PLANT-BLOOMED
+		       <TELL "The plant is now large and leafy.">
+		       <COND (<AND <FSET? ,FRUIT ,NDESCBIT>
+				   <VISIBLE? ,FRUIT>>
+			      <TELL
+" Hanging from it is a large, succulent fruit.">)>
+		       <CRLF>)
+		      (T
+		       <TELL "The plant is just a tiny stem." CR>)>)
+	       (<AND <VERB? TAKE DROP>
+		     <PRSO? ,PLANT>>
+		<COND (,PRSI
+		       <PART-OF>)
+		      (T
+		       <PERFORM ,PRSA ,FLOWERPOT ,PRSI>
+		       <RTRUE>)>)
+	       (<AND <VERB? WATER>
+		     <NOT ,PLANT-BLOOMED>
+		     <PRSI? ,MINERAL-WATER ,SUBSTITUTE ,TEA>>
+		<MOVE ,PRSI ,LOCAL-GLOBALS>
+		<MOVE ,PLANT ,LOCAL-GLOBALS>
+		<TELL "After several seconds, the plant shrivels up.">
+		<ANTI-LITTER "cup">
+		<CRLF>)>>
+
+<OBJECT FRUIT
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "fruit")
+	(SYNONYM FRUIT)
+	(ADJECTIVE LARGE SUCCULENT)
+	(FLAGS NDESCBIT TRYTAKEBIT TAKEBIT EATBIT)
+	(ACTION FRUIT-F)>
+
+<ROUTINE FRUIT-F ("AUX" X)
+	 <COND (<AND <VERB? TAKE PICK>
+		     <FSET? ,FRUIT ,TRYTAKEBIT>>
+		<FCLEAR ,FRUIT ,TRYTAKEBIT>
+		<FCLEAR ,FRUIT ,NDESCBIT>
+		<MOVE ,FRUIT ,PROTAGONIST>
+		<TELL "Done." CR>)
+	       (<AND <VERB? DROP THROW>
+		     <FSET? ,FRUIT ,TRYTAKEBIT>>
+		<FCLEAR ,FRUIT ,TRYTAKEBIT>
+		<FCLEAR ,FRUIT ,NDESCBIT>
+		<MOVE ,FRUIT ,HERE>
+		<COND (<VERB? DROP>
+		       <TELL "Dropped." CR>)
+		      (T
+		       <TELL "Thrown." CR>)>)
+	       (<VERB? EAT>
+		<REPEAT ()
+			<SETG TOOL-REQUIRED <PICK-ONE ,TOOL-LIST>>
+			<SET X <+ .X 1>>
+			<COND (<OR <NOT <IN-HEART? ,TOOL-REQUIRED>>
+				   <G? .X 50>>
+			       <RETURN>)>>
+		<MOVE ,FRUIT ,LOCAL-GLOBALS>
+		<TELL
+"The fruit has a zesty taste, and you devour it greedily. Suddenly, your vision
+wavers, and you see yourself, as though from a distance, standing near Marvin,
+who asks you for">
+		<ARTICLE ,TOOL-REQUIRED>
+		<TELL
+". Then, the image vanishes like a movie when the film breaks, and you find
+yourself still in">
+		<ARTICLE ,HERE T>
+		<TELL ".|
+|
+It seems that this plant is a rare horticultural phenomenon long thought to
+be extinct: The Tree of Foreknowledge." CR>)>>
+
+<ROOM GALLEY
+      (LOC ROOMS)
+      (SYNONYM CORPORATI SCC)
+      (ADJECTIVE SIRIUS CYBERNETI)
+      (DESC "Galley")
+      (EAST TO FORE-CORRIDOR)
+      (OUT TO FORE-CORRIDOR)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL HEART-OF-GOLD)
+      (ACTION GALLEY-F)>
+
+<OBJECT GALLEY-PSEUDO
+      (LOC GALLEY)
+      (SYNONYM GALLEY)
+      (DESC "galley")
+      (FLAGS NDESCBIT)
+      (ACTION GLOBAL-ROOM-F)>
+
+<ROUTINE GALLEY-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are in the Galley area of the ship, containing a machine which is the
+state of the art in Nutritional Technology, a " ,SCC " " D ,NUTRIMAT ". There
+is an exit to starboard." CR>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <NOT <RUNNING? ,I-TEA>>
+		     <PROB 3>>
+		<SETG FOLLOW-FLAG 6>
+		<ENABLE <QUEUE I-FOLLOW 2>>
+		<TELL CR
+D ,ZAPHOD " walks in and presses the " D ,PAD ". The " D ,NUTRIMAT
+" produces a huge, ice-cold Pan-Galactic Gargle Blaster. Zaphod heads off
+toward the sauna, sipping loudly." CR>)>>
+
+<OBJECT NUTRIMAT
+	(LOC GALLEY)
+	(DESC "Nutrimat")
+	(SYNONYM NUTRIMAT MACHINE PANEL)
+	(ADJECTIVE SERVICE)
+	(FLAGS NDESCBIT ACTORBIT CONTBIT LIGHTBIT SEARCHBIT)
+	(ACTION NUTRIMAT-F)>
+
+<ROUTINE NUTRIMAT-F ()
+	 <COND (<EQUAL? ,NUTRIMAT ,WINNER>
+		<COND (<AND <VERB? TELL-ABOUT>
+			    <PRSO? ,ME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,NUTRIMAT ,PRSI>
+		       <SETG WINNER ,NUTRIMAT>
+		       <RTRUE>)
+		      (<VERB? HELLO>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?HELLO ,NUTRIMAT>
+		       <SETG WINNER ,NUTRIMAT>
+		       <RTRUE>)
+		      (<AND <VERB? WHAT>
+			    <PRSO? ,OBJECT-OF-GAME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,NUTRIMAT ,OBJECT-OF-GAME>
+		       <SETG WINNER ,NUTRIMAT>
+		       <RTRUE>)
+		      (<OR <AND <VERB? SGIVE>
+				<PRSO? ,ME>>
+			   <AND <VERB? GIVE>
+				<PRSI? ,ME>>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-FOR ,NUTRIMAT ,PRSI>
+		       <SETG WINNER ,NUTRIMAT>
+		       <RTRUE>)
+		      (<AND <VERB? MAKE>
+			    <PRSO? ,TEA ,NO-TEA>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?RUB ,PAD>
+		       <SETG WINNER ,NUTRIMAT>
+		       <RTRUE>)
+		      (T
+		       <TELL "The " D ,NUTRIMAT " ignores you." CR>
+		       <FUCKING-CLEAR>)>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The " D ,NUTRIMAT " has a " D ,PAD ", a dispensing slot, and a
+service panel which is ">
+		<COND (<FSET? ,NUTRIMAT ,OPENBIT>
+		       <TELL "open">)
+		      (T
+		       <TELL "closed">)>
+		<TELL ".">
+		<FINE-PRODUCT>
+		<COND (<RUNNING? ,I-TEA>
+		       <TELL " ">
+		       <PERFORM ,V?LISTEN ,NUTRIMAT>
+		       <RTRUE>)
+		      (T
+		       <CRLF>)>)
+	       (<AND <VERB? LISTEN>
+		     <RUNNING? ,I-TEA>>
+		<TELL
+"The " D ,NUTRIMAT " is making a faint whirring noise." CR>)
+	       (<AND <VERB? ASK-FOR>
+		     <PRSI? ,TEA ,SUBSTITUTE>>
+		<PERFORM ,V?RUB ,PAD>
+		<RTRUE>)
+	       (<VERB? LAMP-ON>
+		<PERFORM ,V?RUB ,PAD>
+		<RTRUE>)
+	       (<AND <VERB? LAMP-OFF>
+		     <RUNNING? ,I-TEA>>
+		<PERFORM ,V?RUB ,PAD>
+		<RTRUE>)
+	       (<AND <VERB? KILL KICK SHAKE>
+		     ,SUBSTITUTE-DRUNK>
+		<TELL "The " D ,NUTRIMAT " says, ">
+		<COND (<PROB 50>
+		       <TELL "\"Share and Enjoy.\"" CR>)
+		      (T
+		       <TELL
+"\"If you have enjoyed the experience of this drink, why not share it with
+your friends?\"" CR>)>)
+	       (<AND <VERB? PUT PLUG>
+		     <PRSI? ,NUTRIMAT>>
+		<COND (<NOT <FSET? ,NUTRIMAT ,OPENBIT>>
+		       <TELL "The panel is closed." CR>)
+		      (<FIRST? ,NUTRIMAT>
+		       <TELL "There's no room." CR>)
+		      (<PRSO? ,BOARD ,NUT-COM-INTERFACE>
+		       <MOVE ,PRSO ,NUTRIMAT>
+		       <TELL "Done." CR>)
+		      (T
+		       <V-PLUG>)>)
+	       (<VERB? LOOK-INSIDE>
+		<COND (<NOT <FSET? ,NUTRIMAT ,OPENBIT>>
+		       <PERFORM ,V?OPEN ,NUTRIMAT>
+		       <RTRUE>)
+		      (<IN? ,BOARD ,NUTRIMAT>
+		       <TELL "There is a " D ,BOARD " there." CR>)
+		      (<IN? ,NUT-COM-INTERFACE ,NUTRIMAT>
+		       <TELL "There is a " D ,NUT-COM-INTERFACE " there." CR>)
+		      (T
+		       <TELL "There's nothing in the " D ,NUTRIMAT "." CR>)>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSI? ,OBJECT-OF-GAME>>
+		<TELL
+"\"To provide a nutritious and flavour-enhanced diet.\"" CR>)>>
+
+<OBJECT PAD
+	(LOC GALLEY)
+	(DESC "touch-sensitive pad")
+	(SYNONYM PAD)
+	(ADJECTIVE TOUCH SENSITIVE TOUCH-SEN)
+	(FLAGS NDESCBIT)
+	(ACTION PAD-F)>
+
+<ROUTINE PAD-F ()
+	 <COND (<VERB? RUB PUSH>
+		<COND (<IN? ,NUT-COM-INTERFACE ,NUTRIMAT>
+		       <COND (<RUNNING? ,I-TEA>
+			      <TELL
+"\"Please wait..." D ,NUTRIMAT " engaged.\"" CR>)
+			     (<IN? ,TEA ,PAD>
+			      <ENABLE <QUEUE I-TEA -1>>
+			      <TELL
+"The " D ,NUTRIMAT " is puzzled that you want something made by pouring
+boiling water on dead leaves and squirting stuff from a cow in it, and
+says that it will need some help from " D ,EDDIE "." CR>)
+			     (T
+			      <TELL
+"\"I won't go through that again. If " D ,SUBSTITUTE " isn't good
+enough, too bad.\"" CR>)>)
+		      (<IN? ,SUBSTITUTE ,PAD>
+		       <MOVE ,SUBSTITUTE ,SLOT>
+		       <SETG P-IT-OBJECT ,SUBSTITUTE>
+		       <TELL
+"The " D ,NUTRIMAT " makes an instant but highly detailed examination of
+your taste buds, a spectroscopic analysis of your metabolism and
+sends tiny experimental signals down your neural pathways to see
+what you like.|
+A cupful of " D ,SUBSTITUTE " appears in the dispensing slot." CR>)
+		      (T
+		       <TELL
+"\"You still haven't drunk the nutritious and flavour-enhanced cupful of "
+D ,SUBSTITUTE " I already gave you,\" scolds the " D ,NUTRIMAT "." CR>)>)>>
+
+<OBJECT SLOT
+	(LOC GALLEY)
+	(DESC "slot")
+	(SYNONYM SLOT)
+	(ADJECTIVE DISPENSER)
+	(FLAGS NDESCBIT CONTBIT OPENBIT SEARCHBIT)
+	(CAPACITY 20)
+	(ACTION SLOT-F)>
+
+<ROUTINE SLOT-F ()
+	 <COND (<AND <VERB? OPEN CLOSE>
+		     <PRSO? ,SLOT>>
+		<TELL-ME-HOW>)>>
+
+<OBJECT BOARD
+	(LOC NUTRIMAT)
+	(DESC "circuit board")
+	(SYNONYM BOARD MESSAGE LETTER MICROCHIP)
+	(ADJECTIVE CIRCUIT MICROSCOP PRINTED)
+	(FLAGS TAKEBIT CONTBIT TRANSBIT)
+	(ACTION BOARD-F)>
+
+<ROUTINE BOARD-F ()
+	 <COND (<AND <VERB? OPEN CLOSE>
+		     <PRSO? ,BOARD>>
+		<TELL-ME-HOW>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The " D ,PRSO " is square, about ten inches on each side. It has a number
+of microchips, some printed circuitry, and a message printed in microscopic
+letters. There are also eight " D ,DIPSWITCH "es, marked:|
+  1  Cholesterol Register|
+  2  MSG Specifier|
+  3  Thiamin Stack|
+  4  Piquant-O-Mat|
+  5  Flavour Dump|
+  6  Vitamin Interrupts|
+  7  Nose Sequencer|
+  8  Bouquet Arbitration Bus" CR>)
+	       (<VERB? MUNG>
+		<MOVE ,BOARD ,LOCAL-GLOBALS>
+		<TELL
+"It's all the device deserves. It shatters with a satisfying crunch." CR>)
+	       (<AND <VERB? READ EXAMINE-THROUGH>
+		     <PRSI? ,MAGNIFYING-GLASS>>
+		<TELL
+"The message reads \"This is just a satirical device. It has no
+practical function.\"" CR>)
+	       (<VERB? READ>
+		<TELL "The message is too small for you to read." CR>)>>
+
+<OBJECT DIPSWITCH
+	(LOC BOARD)
+	(DESC "dipswitch")
+	(SYNONYM SWITCH DIPSWITCH)
+	(ADJECTIVE DIP FIRST SECOND THIRD FOURTH FIFTH SIXTH SEVENT EIGHTH)
+	(FLAGS NDESCBIT SWITCHBIT)
+	(ACTION DIPSWITCH-F)>
+
+<ROUTINE DIPSWITCH-F ()
+	 <COND (<VERB? TURN THROW LAMP-ON LAMP-OFF PUSH MOVE>
+		<TELL "Switched.">
+		<COND (<IN? ,BOARD ,NUTRIMAT>
+		       <TELL
+" Some lights on the " D ,NUTRIMAT " flash briefly. A promising hum
+quickly dies away." CR>)
+		      (T
+		       <CRLF>
+		       <RTRUE>)>)>>
+
+<OBJECT SUBSTITUTE
+	(LOC PAD)
+	(DESC "Advanced Tea Substitute")
+	(DESCFCN SUBSTITUTE-DESCFCN)
+	(SYNONYM CUP CUPFUL SUBSTITUT ATS)
+	(ADJECTIVE TEA ADVANCED NICE HOT)
+	(FLAGS NARTICLEBIT VOWELBIT TAKEBIT DRINKBIT)
+	(ACTION SUBSTITUTE-F)>
+
+<ROUTINE SUBSTITUTE-DESCFCN ("OPTIONAL" X)
+	 <DESCRIBE-DRINK ,SUBSTITUTE>>
+
+<ROUTINE SUBSTITUTE-F ()
+	 <COND (<VERB? DRINK ENJOY DRINK-FROM>
+		<COND (<NOT <HELD? ,SUBSTITUTE>>
+		       <TELL ,NOT-HOLDING " the cup!" CR>
+		       <RTRUE>)
+		      (<G? ,SCORE 300>
+		       <TELL
+"You'd rather continue savouring that delicious tea." CR>
+		       <RTRUE>)
+		      (,SUBSTITUTE-DRUNK
+		       <SETG SCORE <- ,SCORE 30>>
+		       <SETG DREAMING <>>
+		       <TELL "That last gulp of the vile " D ,SUBSTITUTE>
+		       <JIGS-UP
+" was a bit too much for you. You expire from sheer misery and unhappiness.">
+		       <RTRUE>)>
+		<COND (<EQUAL? ,SUBSTITUTE ,BROWNIAN-SOURCE>
+		       <SETG BROWNIAN-SOURCE <>>)>
+		<SETG SUBSTITUTE-DRUNK T>
+		<SETG SCORE <- ,SCORE 30>>
+		<MOVE ,SUBSTITUTE ,PAD>
+		<TELL
+"It tastes almost, but not quite, entirely unlike tea. It's absolutely
+disgusting.">
+		<ANTI-LITTER "cup">
+		<COND (<EQUAL? ,HERE ,GALLEY>
+		       <TELL " ">
+		       <PERFORM ,V?KILL ,NUTRIMAT>
+		       <RTRUE>)>
+		<CRLF>)
+	       (<VERB? EXAMINE LOOK-INSIDE>
+		<TELL
+"About the only characteristic it shares with tea is that of" ,BROWNIAN ".">
+		<COND (<PRSO? ,BROWNIAN-SOURCE>
+		       <TELL " ">
+		       <PERFORM ,V?EXAMINE ,DANGLY-BIT>
+		       <RTRUE>)
+		      (T
+		       <CRLF>)>)
+	       (<VERB? POUR THROW>
+		<LIQUID-SPILL>)>>
+
+<OBJECT INTERFACE-BOX
+	(LOC GALLEY)
+	(DESC "shipping carton")
+	(LDESC
+"A carton labelled \"Nutrimat/Computer Interface\" is sitting here.")
+	(SYNONYM CARTON BOX)
+	(ADJECTIVE SHIPPING)
+	(FLAGS CONTBIT TAKEBIT SEARCHBIT READBIT)
+	(SIZE 15)
+	(CAPACITY 14)
+	(ACTION INTERFACE-BOX-F)>
+
+<ROUTINE INTERFACE-BOX-F ()
+	 <COND (<VERB? READ EXAMINE>
+		<TELL
+"The carton is labelled \"" D ,NUT-COM-INTERFACE ".\"" CR>
+		<COND (<VERB? EXAMINE>
+		       <RFALSE>)
+		      (T
+		       <RTRUE>)>)>> 
+
+<OBJECT BEAST-GUN
+	(LOC INTERFACE-BOX)
+	(DESC "strange gun")
+	(SYNONYM GUN WEAPON)
+	(ADJECTIVE STRANGE RAY ANTI-BUGB BEAST)
+	(FLAGS TAKEBIT)
+	(SIZE 4)
+	(ACTION BEAST-GUN-F)>
+
+<ROUTINE BEAST-GUN-F ()
+	 <COND (<VERB? EXAMINE READ>
+		<TELL
+"The gun has a large label which reads \"Anti-Bugblatter Beast Ray Gun.\"">
+		<FINE-PRODUCT>
+		<CRLF>)>>
+
+<GLOBAL GUN-COUNTER 0>
+
+<GLOBAL TEA-COUNTER 0>
+
+<GLOBAL LANDED <>>
+
+<ROUTINE I-TEA ()
+	 <SETG TEA-COUNTER <+ ,TEA-COUNTER 1>>
+	 <COND (<AND <NOT <EQUAL? ,HERE ,GALLEY>>
+		     <L? ,TEA-COUNTER 7>>
+		<RFALSE>)>
+	 <CRLF>
+	 <COND (<EQUAL? ,TEA-COUNTER 1>
+		<TELL "The nutrimat begins to whirr." CR>)
+	       (<EQUAL? ,TEA-COUNTER 2>
+		<TELL
+"A red sign lights up saying:|
+   MEMORY OVERLOAD" CR>)
+	       (<EQUAL? ,TEA-COUNTER 3>
+		<TELL
+"Another red sign lights up saying:|
+   RESERVE MEMORY OVERLOAD" CR>)
+	       (<EQUAL? ,TEA-COUNTER 4>
+		<TELL
+"A third sign lights up:|
+   PROCESSOR OVERLOAD,|
+   SWITCH TO TERMINAL MODE" CR>)
+	       (<EQUAL? ,TEA-COUNTER 5>
+		<TELL
+"A blue sign lights up:|
+   NUTRIMAT GOING ON LINE" CR>)
+	       (<EQUAL? ,TEA-COUNTER 6>
+		<TELL
+"More and more signs light up:|
+   SHIPBOARD COMPUTER ACCESSED|
+   MAIN MEMORY OVERLOAD|
+   RESERVE MEMORY ACCESSED|
+   PARALLEL PROCESSORS ON LINE|
+|
+   ****************************|
+   ** NUMBERS BEING CRUNCHED **|
+   ****************************" CR>)
+	       (<EQUAL? ,TEA-COUNTER 7>
+		<FSET ,THUMB ,MUNGEDBIT>
+		<TELL ,ANNOUNCEMENT D ,EDDIE
+". Emergency situation! Nuclear missiles have just been launched at us from the
+approaching planet, which my data banks indicate is" ,LOST-PLANET ". I cannot
+perform evasive maneuvers because" ,ENGAGED D ,NUTRIMAT ". The missiles will
+turn this ship into a huge atomic fireball in approximately eight turns. By
+the way, somebody didn't finish their spinach at dinner.\"" CR>)
+	       (<L? ,TEA-COUNTER 15>
+		<TELL
+"You hear distant sounds of panic: shouts of anger, cries of alarm,
+pounding feet." CR>)
+	       (T
+		<DISABLE <INT I-TEA>>
+		<TELL "It seems that the missiles struck " D ,HEART-OF-GOLD>
+		<JIGS-UP
+" about three nanoseconds ago. Sure enough, here comes that huge atomic fireball.">
+		<RTRUE>)>>
+
+<ROUTINE I-LANDING ()
+	 <COND (<NOT <IN-HEART? ,PROTAGONIST>>
+		<ENABLE <QUEUE I-LANDING 12>>
+		<RFALSE>)
+	       (T
+		<MOVE ,MARVIN ,PANTRY>
+		<DISABLE <INT I-MARVIN>>
+		<SETG LANDED T>
+		<TELL CR ,ANNOUNCEMENT D ,EDDIE
+". We have just landed on" ,LOST-PLANET ". I don't want anyone going outside
+until I've checked the atmosphere, climatic conditions, existence of dangerous
+wildlife, airborne diseases, volcanic activity, presence of real estate agents,
+and more than eight thousand other possible dangers. This routine check will
+take 14.9 years. And don't even think about leaving until I finish, because
+I'm jamming the hatch.\"" CR>)>>
+
+<ROOM BRIDGE
+      (LOC ROOMS)
+      (SYNONYM MOVEMENT MOTION RANDOM)
+      (ADJECTIVE BROWNIAN)
+      (DESC "Bridge")
+      (DOWN TO FORE-CORRIDOR)
+      (WEST PER SAUNA-ENTER-F)
+      (FLAGS ONBIT RLANDBIT)
+      (GLOBAL STAIRS CONTROLS HEART-OF-GOLD PEOPLE)
+      (ACTION BRIDGE-F)>
+
+<OBJECT SAUNA
+      (LOC BRIDGE)
+      (SYNONYM SAUNA)
+      (DESC "sauna")
+      (FLAGS NDESCBIT)
+      (ACTION SAUNA-PSEUDO)>
+
+<ROUTINE SAUNA-ENTER-F ()
+	 <UNPLUG-HELD-STUFF>
+	 <SETG MOVES <+ ,MOVES <+ 10 <RANDOM 12>>>>
+	 <TELL "You enter the sauna. After several ">
+	 <COND (<RUNNING? ,I-FORD>
+		<TELL "minutes">)
+	       (T
+		<TELL "hours">)>
+	 <TELL ", you come out a changed man.">
+	 <COND (<AND <HELD? ,FLOWERPOT>
+		     <IN? ,PLANT ,FLOWERPOT>
+		     <NOT ,PLANT-BLOOMED>>
+		<SETG PLANT-BLOOMED T>
+		<SETG SCORE <+ ,SCORE 25>>
+		<MOVE ,FRUIT ,FLOWERPOT>
+		<TELL " You have with you a changed plant.">)>
+	 <CRLF>
+	 <COND (<IN? ,MARVIN ,BRIDGE>
+		<MOVE ,MARVIN ,PANTRY>)>
+	 <RFALSE>>
+
+<ROUTINE BRIDGE-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is the bridge of " D ,HEART-OF-GOLD ". A gangway leads down, and steam
+comes from an entrance to port. Next to the control console is " D ,EDDIE ".">
+		<COND (,DRIVE-TO-CONTROLS
+		       <TELL " ">
+		       <PERFORM ,V?EXAMINE ,LARGE-RECEPTACLE>)
+		      (T
+		       <CRLF>)>
+		<COND (<NOT <FSET? ,BRIDGE ,NDESCBIT>>
+		       <FSET ,BRIDGE ,NDESCBIT>
+		       <TELL CR
+"At the controls, apparently expecting you and Ford, are a man with more than
+the usual number of heads (the name \"Zaphod\" is stitched on his shirt) and a
+dark-haired woman, holding a handbag. Both seem somehow familiar." CR>)>)>>
+
+<ROUTINE SAUNA-PSEUDO ()
+	 <COND (<AND <VERB? THROUGH WALK-TO BOARD>
+		     <EQUAL? ,HERE ,BRIDGE>>
+		<DO-WALK ,P?WEST>)>>
+
+<ROUTINE PEOPLE-PSEUDO ()
+	 <COND (<NOT <IN? ,ZAPHOD ,HERE>>
+		<TELL "What people?" CR>)
+	       (<VERB? EXAMINE>
+		<PERFORM ,V?EXAMINE ,ZAPHOD>
+		<PERFORM ,V?EXAMINE ,TRILLIAN>
+		<RTRUE>)>>
+
+<OBJECT EDDIE
+	(LOC BRIDGE)
+	(DESC "Eddie (the shipboard computer)")
+	(SYNONYM EDDIE ED COMPUTER)
+	(ADJECTIVE SHIP\'S SHIPBOARD)
+	(FLAGS VOWELBIT NARTICLEBIT NDESCBIT ACTORBIT LIGHTBIT ONBIT)
+	(ACTION EDDIE-F)>
+
+<ROUTINE EDDIE-F ()
+	 <COND (<EQUAL? ,EDDIE ,WINNER>
+		<COND (<AND <VERB? TELL-ABOUT>
+			    <PRSO? ,ME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,EDDIE ,PRSI>
+		       <SETG WINNER ,EDDIE>
+		       <RTRUE>)
+		      (<VERB? HELLO>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?HELLO ,EDDIE>
+		       <SETG WINNER ,EDDIE>
+		       <RTRUE>)
+		      (<AND <VERB? WHAT>
+			    <PRSO? ,OBJECT-OF-GAME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,EDDIE ,OBJECT-OF-GAME>
+		       <SETG WINNER ,EDDIE>
+		       <RTRUE>)
+		      (<AND <VERB? LAMP-ON>
+			    <PRSO? ,MAIN-DRIVE ,SPARE-DRIVE>>
+		       <COND (<RUNNING? ,I-TEA>
+			      <TELL
+"\"Sorry," ,ENGAGED D ,NUTRIMAT ". I can't do everything, you know.\"" CR>)
+			     (T
+			      <TELL "\"Sorry, current course for"
+,LOST-PLANET " can be countermanded only by " D ,ZAPHOD ".\"" CR>)>)
+		      (<AND <VERB? REPAIR OPEN>
+			    <PRSO? ,HATCH>
+			    ,LANDED>
+		       <TELL
+"\"Not until I completely check out the safety of this planet. Please
+wait approximately fourteen years. In the meantime, have you brushed
+your teeth lately?\"" CR>)
+		      (<AND <VERB? YES>
+			    <EQUAL? ,AWAITING-REPLY 18>>
+		       <V-YES>)
+		      (<AND <VERB? NO>
+			    <EQUAL? ,AWAITING-REPLY 18>>
+		       <V-NO>) 
+		      (T
+		       <SETG AWAITING-REPLY 18>
+		       <ENABLE <QUEUE I-REPLY 2>>
+		       <TELL
+"Eddie sighs deeply. \"I can't talk right now. Do you know how difficult it is
+to pilot a ship as complicated as this one?\"" CR>
+		       <FUCKING-CLEAR>)>)
+	       (<VERB? LAMP-OFF>
+		<TELL "You don't know how (fortunately)." CR>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSI? ,OBJECT-OF-GAME>>
+		<SETG AWAITING-REPLY 19>
+		<ENABLE <QUEUE I-REPLY 2>>
+		<TELL
+"\"To pilot " D ,HEART-OF-GOLD ", process data requests from the " D ,NUTRIMAT
+" and keep the crew healthy. Read your manual! How do you expect to get
+anywhere in life? But don't read unless there's enough light.\"" CR>)>>
+
+<OBJECT LARGE-RECEPTACLE
+	(LOC BRIDGE)
+	(DESC "large receptacle")
+	(SYNONYM RECEPTACL)
+	(ADJECTIVE LARGE MANUAL OVERRIDE)
+	(FLAGS NDESCBIT)
+	(ACTION LARGE-RECEPTACLE-F)>
+
+<ROUTINE LARGE-RECEPTACLE-F ()
+	 <COND (<AND ,DRIVE-TO-CONTROLS
+		     <VERB? EXAMINE>>
+	        <TELL
+"A " D ,SPARE-DRIVE " is plugged into the large receptacle." CR>)>>
+
+<OBJECT PHIL
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "Phil")
+	(LDESC "Phil is here.")
+	(SYNONYM PHIL)
+	(FLAGS NARTICLEBIT ACTORBIT)
+	(ACTION ZAPHOD-F)>
+
+<OBJECT ZAPHOD
+	(LOC BRIDGE)
+	(DESC "Zaphod Beeblebrox")
+	(SYNONYM BEEBLEBRO ZAPHOD PRESIDENT)
+	(ADJECTIVE ZAPHOD PRESIDENT)
+	(FLAGS NARTICLEBIT ACTORBIT NDESCBIT)
+	(ACTION ZAPHOD-F)>
+
+<ROUTINE ZAPHOD-F ()
+	 <COND (<EQUAL? ,IDENTITY-FLAG ,ZAPHOD>
+		<COND (<PRSO? ,ZAPHOD ,PHIL>
+		       <PERFORM ,PRSA ,ME ,PRSI>
+		       <RTRUE>)
+		      (T
+		       <PERFORM ,PRSA ,PRSO ,ME>
+		       <RTRUE>)>)
+	       (<EQUAL? ,WINNER ,ZAPHOD>
+		<COND (<AND <VERB? TELL-ABOUT>
+			    <PRSO? ,ME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,ZAPHOD ,PRSI>
+		       <SETG WINNER ,ZAPHOD>
+		       <RTRUE>)
+		      (<VERB? HELLO>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?HELLO ,ZAPHOD>
+		       <SETG WINNER ,ZAPHOD>
+		       <RTRUE>)
+		      (<AND <VERB? WHAT>
+			    <PRSO? ,OBJECT-OF-GAME>>
+		       <TELL ,ASK-ABOUT-OBJECT CR>)
+		      (T
+		       <TELL "\"Shut up, Earthman.\"" CR>
+		       <FUCKING-CLEAR>)>)
+	       (<EQUAL? ,IDENTITY-FLAG ,TRILLIAN>
+		<COND (<AND <PRSI? ,PHIL>
+			    <VERB? SHOW GIVE>>
+		       <PERFORM ,V?HELLO ,PHIL>
+		       <RTRUE>)
+		      (<AND <VERB? SGIVE HELLO TELL ASK-ABOUT ASK-FOR>
+			    <PRSO? ,PHIL>>
+		       <COND (<NOT <IN? ,PHIL ,HERE>>
+			      ;"fixes GIVE ALL TO PHIL case"
+			      <TELL "Phil's not here anymore!" CR>
+			      <RTRUE>)>
+		       <COND (<NOT <FSET? ,JACKET-FLUFF ,TRYTAKEBIT>>
+			      <ENABLE <QUEUE I-ZAPHOD 3>>)>
+		       <TELL
+"Phil must not have noticed you, because he just moved into the ">
+		       <COND (<EQUAL? ,HERE ,LIVING-ROOM>
+			      <MOVE ,PHIL ,DINING-ROOM>
+			      <MOVE ,CAGE ,DINING-ROOM>
+			      <TELL D ,DINING-ROOM>)
+			     (<EQUAL? ,HERE ,DINING-ROOM>
+			      <MOVE ,PHIL ,KITCHEN>
+			      <MOVE ,CAGE ,KITCHEN>
+			      <TELL D ,KITCHEN>)
+			     (T
+			      <MOVE ,PHIL ,LIVING-ROOM>
+			      <MOVE ,CAGE ,LIVING-ROOM>
+			      <TELL D ,LIVING-ROOM>)>
+		       <TELL "." CR>
+		       <FUCKING-CLEAR>)
+		      (<VERB? EXAMINE>
+		       <TELL
+"He is very attractive, if a little weird, and has a slight otherworldly
+look. You suspect he's a party crasher, an impression reinforced by his
+inappropriate garb; he seems clothed for a fancy dress party or something,
+because he has what appears to be a large birdcage on his shoulder with a
+black drape over it. The bird inside must be asleep, because you can hear
+snoring coming from inside it." CR>)
+		      (<VERB? PICK-UP>
+		       <TELL "You're not that kind of girl." CR>)>)
+	       (<VERB? EXAMINE>
+		<TELL "Zaphod has two heads." CR>)
+	       (<VERB? FOLLOW>
+		<COND (<EQUAL? ,FOLLOW-FLAG 3>
+		       <DO-WALK ,P?WEST>)
+		      (<EQUAL? ,FOLLOW-FLAG 6>
+		       <DO-WALK ,P?EAST>)>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSI? ,OBJECT-OF-GAME>>
+		<TELL ,ASK-ABOUT-OBJECT CR>)>>
+
+<ROUTINE I-ZAPHOD ()
+	 <COND (,ITEM-DROPPED-AT-PARTY
+		<ENABLE <QUEUE I-ZAPHOD 3>>
+		<COND (<RUNNING? ,I-HOSTESS>
+		       <MOVE ,PHIL ,HERE>
+		       <MOVE ,CAGE ,HERE>
+		       <TELL CR
+"Out of the corner of your eye, you see Phil leering at you. He starts
+to approach, but then notices the hostess with you and veers away." CR>)>)
+	       (T
+		<SETG SCORE <+ ,SCORE 25>>
+		<FSET ,LIVING-ROOM ,REVISITBIT>
+		<FSET ,HOSTESS ,NDESCBIT>
+		<CRLF>
+		<JIGS-UP
+"Phil comes up and grips your shoulder. \"Hey babe, this guy boring you? Why
+not come with me instead? I'm from a different planet.\" He takes you out to
+the parking lot, where his flashy interorbital ion scooter is parked between
+two Volkswagens. After mounting it, the scooter accelerates at such a great
+speed that you black out almost immediately.">
+		<RTRUE>)>>
+
+<OBJECT TRILLIAN
+	(LOC BRIDGE)
+	(DESC "Trillian")
+	(SYNONYM TRILLIAN MCMILLAN WOMAN TRICIA)
+	(ADJECTIVE TRICIA DARK-HAIR DARK HAIRED)
+	(FLAGS NARTICLEBIT ACTORBIT NDESCBIT CONTBIT OPENBIT)
+	(ACTION TRILLIAN-F)>
+
+<ROUTINE TRILLIAN-F ()
+	 <COND (<EQUAL? ,IDENTITY-FLAG ,TRILLIAN>
+		<COND (<EQUAL? ,TRILLIAN ,PRSO>
+		       <PERFORM ,PRSA ,ME ,PRSI>
+		       <RTRUE>)
+		      (T
+		       <PERFORM ,PRSA ,PRSO ,ME>
+		       <RTRUE>)>)
+	       (<EQUAL? ,TRILLIAN ,WINNER>
+		<COND (<AND <VERB? TELL-ABOUT>
+			    <PRSO? ,ME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,TRILLIAN ,PRSI>
+		       <SETG WINNER ,TRILLIAN>
+		       <RTRUE>)
+		      (<VERB? HELLO>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?HELLO ,TRILLIAN>
+		       <SETG WINNER ,TRILLIAN>
+		       <RTRUE>)
+		      (<AND <VERB? WHAT>
+			    <PRSO? ,OBJECT-OF-GAME>>
+		       <TELL ,ASK-ABOUT-OBJECT CR>)
+		      (<OR <AND <VERB? SHOOT>
+				<IN? ,BLASTER ,TRILLIAN>
+				<PRSO? ,RIFLES>>
+			   <AND <VERB? SSHOOT>
+				<IN? ,BLASTER ,TRILLIAN>
+				<PRSI? ,RIFLES>>>
+		       <MOVE ,BLASTER ,PROTAGONIST>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?SHOOT ,RIFLES ,BLASTER>
+		       <SETG WINNER ,TRILLIAN>
+		       <MOVE ,BLASTER ,TRILLIAN>
+		       <RTRUE>)
+		      (<EQUAL? ,IDENTITY-FLAG ,ZAPHOD>
+		       <TELL "\"Shut up, you jerk!\" hisses " D ,TRILLIAN
+". \"Just get on with the plan.\"" CR>
+		       <FUCKING-CLEAR>)
+		      (T
+		       <TELL
+D ,TRILLIAN " smiles disinterestedly at you and looks away." CR>
+		       <FUCKING-CLEAR>)>)
+	       (<AND <VERB? SHOOT>
+		     <PRSI? ,BLASTER>>
+		<TELL
+"How heartless! Fortunately, justice prevails as the guards">
+		<GUARD-DEATH>
+		<RTRUE>) 
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSI? ,OBJECT-OF-GAME>>
+		<TELL ,ASK-ABOUT-OBJECT CR>)
+	       (<AND <EQUAL? ,FOLLOW-FLAG 3>
+		     <VERB? FOLLOW>>
+		<DO-WALK ,P?WEST>)
+	       (<AND <VERB? EXAMINE>
+		     <IN? ,BLASTER ,TRILLIAN>>
+		<TELL "She's holding a blaster at your head." CR>)>>
+
+<OBJECT HANDBAG
+	(LOC TRILLIAN)
+	(DESC "handbag")
+	(SYNONYM HANDBAG BAG PURSE)
+	(FLAGS CONTBIT TAKEBIT TRYTAKEBIT SEARCHBIT NDESCBIT)
+	(SIZE 15)
+	(CAPACITY 10)
+	(ACTION HANDBAG-F)>
+
+<ROUTINE HANDBAG-F ()
+	 <COND (<AND <VERB? DROP THROW>
+		     <EQUAL? ,IDENTITY-FLAG ,TRILLIAN>>
+		<DROP-AT-PARTY>)
+	       (<AND <VERB? TAKE>
+		     <IN? ,HANDBAG ,TRILLIAN>>
+		<TELL D ,TRILLIAN " pulls it away." CR>)>>
+
+<ROOM FORE-CORRIDOR
+      (LOC ROOMS)
+      (DESC "Corridor, Fore End")
+      (UP TO BRIDGE)
+      (NORTH TO ENTRY-BAY)
+      (WEST TO GALLEY)
+      (SOUTH TO AFT-CORRIDOR)
+      (FLAGS ONBIT RLANDBIT)
+      (GLOBAL STAIRS HEART-OF-GOLD)
+      (ACTION FORE-CORRIDOR-F)>
+
+<ROUTINE FORE-CORRIDOR-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL "This is one end of a short corridor that continues ">
+		<COND (<EQUAL? ,HERE ,FORE-CORRIDOR>
+		       <TELL "aft">)
+		      (T
+		       <TELL "fore">)>
+		<TELL
+" along the main deck of " D ,HEART-OF-GOLD ". Doorways lead to ">
+		<COND (<EQUAL? ,HERE ,FORE-CORRIDOR>
+		       <TELL "fore">)
+		      (T
+		       <TELL "aft">)>
+		<TELL " and port. In addition, a gangway leads ">
+		<COND (<EQUAL? ,HERE ,FORE-CORRIDOR>
+		       <TELL "up">)
+		      (T
+		       <TELL "down">)>
+		<TELL "ward." CR>)>>
+
+<ROOM AFT-CORRIDOR
+      (LOC ROOMS)
+      (SYNONYM ROBOT ROBOTS)
+      (ADJECTIVE CLEANING UPPER LOWER)
+      (DESC "Corridor, Aft End")
+      (SOUTH PER ENGINE-ROOM-ENTER-F)
+      (NORTH TO FORE-CORRIDOR)
+      (WEST TO PANTRY IF SCREENING-DOOR IS OPEN)
+      (DOWN TO HATCHWAY)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL STAIRS HEART-OF-GOLD SCREENING-DOOR)
+      (ACTION AFT-CORRIDOR-F)>
+
+<ROUTINE AFT-CORRIDOR-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<FCLEAR ,HATCH ,DOORBIT>
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<FORE-CORRIDOR-F ,M-LOOK>)>>
+
+<ROUTINE I-REPLY ()
+	 <SETG AWAITING-REPLY <>>
+	 <RFALSE>>
+
+<GLOBAL AWAITING-REPLY <>>
+
+<GLOBAL ARGUMENT-COUNTER 0>
+
+<GLOBAL LOOK-COUNTER 0>
+
+<ROUTINE ENGINE-ROOM-ENTER-F ()
+	 <SETG ARGUMENT-COUNTER <+ ,ARGUMENT-COUNTER 1>>
+	 <COND (<EQUAL? ,ARGUMENT-COUNTER 1>
+		<SETG AWAITING-REPLY 1>
+		<ENABLE <QUEUE I-ARGUMENT 2>>
+		<TELL
+"That entrance leads to the" ,IID " chamber. It's supposed to be a terribly
+dangerous area of the ship. Are you sure you want to go in there?" CR>
+		<RFALSE>)
+	       (<EQUAL? ,ARGUMENT-COUNTER 2>
+		<SETG AWAITING-REPLY 1>
+		<ENABLE <QUEUE I-ARGUMENT 2>>
+		<TELL "Absolutely sure?" CR>
+		<RFALSE>)
+	       (<EQUAL? ,ARGUMENT-COUNTER 3>
+		<DISABLE <INT I-ARGUMENT>>
+		<SETG AWAITING-REPLY 100>
+		<ENABLE <QUEUE I-REPLY 2>>
+		<TELL
+"I can tell you don't want to really. You stride away with a spring in your
+step, wisely leaving the Drive Chamber safely behind you. Telegrams arrive from
+well-wishers in all corners of the Galaxy congratulating you on your prudence
+and wisdom, cheering you up immensely." CR>
+		<RFALSE>)
+	       (<EQUAL? ,ARGUMENT-COUNTER 4>
+		<ENABLE <QUEUE I-ARGUMENT 2>>
+		<ENABLE <QUEUE I-REPLY 2>>
+		<SETG AWAITING-REPLY 2>
+		<TELL
+"What? You're joking, of course. Can I ask you to reconsider?" CR>
+		<RFALSE>)
+	       (<G? ,ARGUMENT-COUNTER 4>
+		<DISABLE <INT I-ARGUMENT>>
+		<SETG AWAITING-REPLY <>>
+		,ENGINE-ROOM)>>
+
+<ROUTINE I-ARGUMENT ()
+	 <COND (<OR <AND <VERB? NO>
+		         <EQUAL? ,AWAITING-REPLY 1>>
+		    <AND <VERB? YES>
+		         <EQUAL? ,AWAITING-REPLY 2>>>
+		T)
+	       (T
+		<CRLF>)>
+	 <SETG AWAITING-REPLY <>>
+	 <SETG ARGUMENT-COUNTER 0>
+	 <TELL
+"I knew you weren't serious about entering that extremely dangerous area." CR>>
+
+<ROOM ENTRY-BAY
+      (LOC ROOMS)
+      (SYNONYM BLASTER)
+      (ADJECTIVE PAN-GALACT GARGLE)
+      (DESC "Entry Bay Number Two")
+      (LDESC
+"This is an entry bay for the Heart of Gold. A corridor lies aft of here.")
+      (SOUTH TO FORE-CORRIDOR)
+      (FLAGS RLANDBIT ONBIT NARTICLEBIT)
+      (GLOBAL HEART-OF-GOLD)
+      (ACTION ENTRY-BAY-F)>
+
+<ROUTINE ENTRY-BAY-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<SETG IDENTITY-FLAG ,ARTHUR>
+		<MOVE ,HATCH ,GLOBAL-OBJECTS> ;"so you can ask Marv to fix it"
+		<MOVE ,MECHANISM ,GLOBAL-OBJECTS> ;"ditto"
+		<MOVE ,ARTHUR ,GLOBAL-OBJECTS>
+		<COND (<FSET? ,ENTRY-BAY ,NDESCBIT>
+		       <MOVE ,FORD ,LOCAL-GLOBALS>
+		       <MOVE ,TRILLIAN ,LOCAL-GLOBALS>
+		       <MOVE ,ZAPHOD ,LOCAL-GLOBALS>)
+		      (T
+		       <FSET ,ENTRY-BAY ,NDESCBIT>
+		       <ENABLE <QUEUE I-FORD 1>>)>
+		<RFALSE>)>>
+
+<OBJECT SALES-BROCHURE
+	(LOC ENTRY-BAY)
+	(DESC "sales brochure")
+	(SYNONYM BROCHURE)
+	(ADJECTIVE SALES)
+	(FLAGS TAKEBIT READBIT)
+	(ACTION SALES-BROCHURE-F)>
+
+<ROUTINE SALES-BROCHURE-F ()
+	 <COND (<VERB? READ>
+		<TELL
+"\"Equipped with a sensational breakthrough in Improbability Physics, "
+D ,HEART-OF-GOLD " will make you the envy of every major government. When the
+ship's" ,IID " is activated, " D ,HEART-OF-GOLD " passes through every point in
+the universe simultaneously, making travel to any single location a breeze!\"|
+|
+The " D ,SALES-BROCHURE " goes on to describe the ship's complement of " ,SCC
+"-designed robots and computers, all equipped with GPP (" ,GPP ")." CR>)>>  
+
+<ROOM ENGINE-ROOM
+      (LOC ROOMS)
+      (SYNONYM IMPROBABI PHYSICS DRIVES PROBABILI)
+      (ADJECTIVE IMPROBABI INFINITY)
+      (DESC "Engine Room")
+      (NORTH TO AFT-CORRIDOR)
+      (OUT TO AFT-CORRIDOR)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL HEART-OF-GOLD)
+      (ACTION ENGINE-ROOM-F)>
+
+<ROUTINE ENGINE-ROOM-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<SETG LOOK-COUNTER <+ ,LOOK-COUNTER 1>>
+		<COND (<EQUAL? ,LOOK-COUNTER 1>
+		       <TELL
+"You're in the" ,IID " chamber. Nothing happens; there is nothing to see." CR>)
+		      (<EQUAL? ,LOOK-COUNTER 2>
+		       <TELL "I mean it! There's nothing to see here!" CR>)
+		      (<G? ,LOOK-COUNTER 2>
+		       <COND (<EQUAL? ,LOOK-COUNTER 3>
+			      <MOVE ,MAIN-DRIVE ,GLOBAL-OBJECTS>
+			      	     	;"so you can ask Ed to turn it on"
+			      <MOVE ,SPARE-DRIVE ,HERE>
+			      <MOVE ,PLIERS ,HERE>
+			      <MOVE ,RASP ,HERE>
+			      <SETG SCORE <+ ,SCORE 25>>
+			      <TELL
+"Okay, okay, there are a FEW things to see here. ">)>
+		       <TELL
+"This is the room that houses the powerful In" ,FIG
+" that drives " D ,HEART-OF-GOLD ". An exit lies fore of here." CR>)>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <EQUAL? ,LOOK-COUNTER 3>>
+		<SETG LOOK-COUNTER 4>
+		<TELL CR "(Footnote 10)" CR>)>>
+
+<OBJECT MAIN-DRIVE
+	(LOC LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
+	(DESC "main Improbability Drive")
+	(SYNONYM DRIVE GENERATOR)
+	(ADJECTIVE MAIN INFININY IMPROBABI)
+	(FLAGS NDESCBIT LIGHTBIT)
+	(GENERIC SPARE-DRIVE)
+	(ACTION MAIN-DRIVE-F)>
+
+<ROUTINE MAIN-DRIVE-F ()
+	 <COND (<AND <VERB? EXAMINE RUB>
+		     <NOT <EQUAL? ,HERE ,ENGINE-ROOM>>>
+		<CANT-SEE ,MAIN-DRIVE>)
+	       (<VERB? LAMP-ON>
+		<TELL "Only " D ,EDDIE " can activate the drive." CR>)>>
+
+<GLOBAL DRIVE-TO-CONTROLS <>>
+
+<GLOBAL DRIVE-TO-PLOTTER <>>
+
+<GLOBAL BROWNIAN-SOURCE <>>
+
+<GLOBAL DARK-CONTROLLED <>>
+
+<OBJECT SPARE-DRIVE
+	(LOC LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
+	(DESC "spare Improbability Drive")
+	(FDESC
+"Sitting in the corner is a spare, portable Improbability Generator.")
+	(SYNONYM DRIVE GENERATOR)
+	(ADJECTIVE SPARE PORTABLE INFINITY IMPROBABI)
+	(FLAGS TAKEBIT TRANSBIT CONTBIT LIGHTBIT)
+	(SIZE 50)
+	(GENERIC SPARE-DRIVE)
+	(ACTION SPARE-DRIVE-F)>
+
+<ROUTINE SPARE-DRIVE-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The " D ,SPARE-DRIVE " has a switch">
+		<COND (<IN? ,LARGE-PLUG ,SPARE-DRIVE>
+		       <TELL ", a long cord ">
+		       <COND (,DRIVE-TO-CONTROLS
+			      <TELL "plugged into the control console,">)
+			     (T
+			      <TELL "ending with a " D ,LARGE-PLUG ",">)>)
+		      (T
+		       <TELL ", a fused spot where a long cord once began,">)>
+		<TELL " and a short cord ">
+		<COND (,DRIVE-TO-PLOTTER
+		       <TELL "plugged into the " D ,PLOTTER>)
+		      (T
+		       <TELL "ending with a " D ,SMALL-PLUG>)>
+		<TELL ".">
+		<FINE-PRODUCT>
+		<CRLF>)
+	       (<OR <AND <VERB? PLUG TIE>
+			 <PRSO? ,SPARE-DRIVE>>
+		    <AND <VERB? PUT>
+			 <PRSI? ,LARGE-RECEPTACLE ,SMALL-RECEPTACLE>>>
+		<COND (<IN? ,LARGE-PLUG ,SPARE-DRIVE>
+		       <TELL
+"In case you hadn't noticed, there are two connections leading from the "
+D ,SPARE-DRIVE "..." CR>)
+		      (T
+		       <PERFORM ,V?PLUG ,SMALL-PLUG ,PRSI>
+		       <RTRUE>)>)
+	       (<VERB? UNPLUG>
+		<COND (<OR ,DRIVE-TO-CONTROLS ,DRIVE-TO-PLOTTER>
+		       <SETG DRIVE-TO-PLOTTER <>>
+		       <SETG DRIVE-TO-CONTROLS <>>
+		       <FCLEAR ,SPARE-DRIVE ,NDESCBIT>
+		       <TELL "Done." CR>)
+		      (T
+		       <TELL ,NOT-PLUGGED CR>)>)
+	       (<VERB? LAMP-ON>
+		<PERFORM ,V?LAMP-ON ,SWITCH>
+		<RTRUE>)
+	       (<VERB? OPEN CLOSE>
+		<V-CARVE>)>>
+
+<OBJECT LARGE-PLUG
+	(LOC SPARE-DRIVE)
+	(DESC "large plug")
+	(SYNONYM CORD PLUG)
+	(ADJECTIVE LARGE LONG)
+	(FLAGS NDESCBIT INTEGRALBIT)
+	(SIZE 1)
+	(ACTION LARGE-PLUG-F)>
+
+<ROUTINE LARGE-PLUG-F ()
+	 <COND (<AND <VERB? PLUG PUT TIE>
+		     <PRSI? ,LARGE-RECEPTACLE ,CONTROLS>>
+		<COND (,DRIVE-TO-CONTROLS
+		       <TELL "It already is!" CR>
+		       <RTRUE>)>
+		<SETG DRIVE-TO-CONTROLS T>
+		<FSET ,SPARE-DRIVE ,NDESCBIT>
+		<TELL "Plugged.">
+		<COND (<NOT <RUNNING? ,I-TEA>>
+		       <TELL
+" " D ,EDDIE " says, \"You shouldn't be playing around with a " D ,SPARE-DRIVE
+". Who knows where it's been?\"" CR CR ,ANNOUNCEMENT D ,EDDIE ". Someone has
+connected a " D ,SPARE-DRIVE " to" ,MOP ". Better be an emergency, that's all
+I have to say.\"">)>
+		<CRLF>)
+	       (<AND <VERB? TAKE>
+		     <PRSI? ,CONTROLS>>
+		<PERFORM ,V?UNPLUG ,LARGE-PLUG>
+		<RTRUE>)
+	       (<VERB? UNPLUG REMOVE>
+		<COND (,DRIVE-TO-CONTROLS
+		       <SETG DRIVE-TO-CONTROLS <>>
+		       <FCLEAR ,SPARE-DRIVE ,NDESCBIT>
+		       <TELL "Done." CR>)
+		      (T
+		       <TELL ,NOT-PLUGGED CR>)>)>>
+
+<OBJECT SMALL-PLUG
+	(LOC SPARE-DRIVE)
+	(DESC "small plug")
+	(SYNONYM CORD PLUG)
+	(ADJECTIVE SMALL SHORT)
+	(FLAGS NDESCBIT INTEGRALBIT)
+	(SIZE 1)
+	(ACTION SMALL-PLUG-F)>
+
+<ROUTINE SMALL-PLUG-F ()
+	 <COND (<AND <VERB? PLUG PUT TIE>
+		     <PRSI? ,SMALL-RECEPTACLE ,PLOTTER>>
+		<COND (,DRIVE-TO-PLOTTER
+		       <TELL "It already is!" CR>
+		       <RTRUE>)>
+		<SETG DRIVE-TO-PLOTTER T>
+		<TELL "Plugged." CR>)
+	       (<AND <VERB? TAKE>
+		     <PRSI? ,PLOTTER>>
+		<PERFORM ,V?UNPLUG ,SMALL-PLUG>
+		<RTRUE>)
+	       (<VERB? UNPLUG REMOVE>
+		<COND (,DRIVE-TO-PLOTTER
+		       <SETG DRIVE-TO-PLOTTER <>>
+		       <TELL "Done." CR>)
+		      (T
+		       <TELL ,NOT-PLUGGED CR>)>)>>
+
+<OBJECT SWITCH
+	(LOC SPARE-DRIVE)
+	(DESC "generator switch")
+	(SYNONYM SWITCH)
+	(ADJECTIVE GENERATOR)
+	(FLAGS NDESCBIT SWITCHBIT)
+	(SIZE 1)
+	(ACTION SWITCH-F)>
+
+<ROUTINE SWITCH-F ()
+	 <COND (<VERB? LAMP-ON TURN PUSH MOVE THROW>
+		<COND (<AND ,DRIVE-TO-PLOTTER
+			    ,BROWNIAN-SOURCE>
+		       <MOVE ,SPARE-DRIVE ,HERE>
+		       <MOVE ,PLOTTER ,HERE>
+		       <MOVE ,BROWNIAN-SOURCE ,HERE>
+		       <COND (<EQUAL? ,BROWNIAN-SOURCE ,TEA>
+			      <SETG HOLDING-NO-TEA T>)>
+		       <COND (,DRIVE-TO-CONTROLS
+			      <TELL
+"As you flip the switch, sparks fly from the large receptacle. ">
+			      <COND (<AND <RUNNING? ,I-TEA>
+					  <G? ,TEA-COUNTER 6>>
+				     <TELL
+"\"My new control console!\" wails " D ,EDDIE ". \"This is the thanks I get">)
+				    (T
+				     <TELL
+"\"Now look what you've done. You've destroyed" ,MOP ". Don't you
+know it's only for emergencies">)>
+			      <TELL "?\"" CR CR>
+			      <SETG DRIVE-TO-CONTROLS <>>
+			      <FCLEAR ,SPARE-DRIVE ,NDESCBIT>
+			      <MOVE ,LARGE-PLUG ,LOCAL-GLOBALS>
+			      <MOVE ,LARGE-RECEPTACLE ,LOCAL-GLOBALS>
+			      <COND (<AND <RUNNING? ,I-TEA>
+					  <G? ,TEA-COUNTER 6>>
+				     <MOVE ,TEA ,SLOT>
+				     <DISABLE <INT I-TEA>>
+				     <ENABLE <QUEUE I-LANDING 24>>
+	       			     <SETG FOLLOW-FLAG 3>
+			      	     <ENABLE <QUEUE I-FOLLOW 2>>
+				     <TELL
+"The universe goes crazy for a moment." CR CR ,ANNOUNCEMENT D ,EDDIE ". The
+missiles have turned into a sperm whale">
+				     <FACTOR "39,745">
+				     <TELL
+" The whale is currently plummeting toward" ,LOST-PLANET ". I hope this will
+teach you to listen to me when I say that legendary lost planets can be
+dangerous. I am proceeding with the preset landing instructions.\"|
+|
+Ford, Zaphod, and " D ,TRILLIAN " saunter by on their way back to the sauna.
+\"Good work, kid,\" says Zaphod, slamming you on the back." CR>)
+				    (T
+				     <DISABLE <INT I-TEA>>
+				     <SETG SCORE <- ,SCORE 30>>
+				     <TELL
+,ANNOUNCEMENT D ,EDDIE ". Someone has activated a " D ,SPARE-DRIVE " at"
+,MOP ", moving us 8 billion parsecs away from our destination, adding seven
+weeks to our trip. As if that isn't bad enough, all 300 members of the
+Fronurbdi Planetary Senate appeared in the " D ,HATCHWAY>
+				     <FACTOR "79,818">
+				     <TELL
+" I'm flushing them into space now, but who knows what sort of germs they've
+dragged into the ship? Everyone should take extra vitamins today.\"" CR>)>)
+			     (<RUNNING? ,I-TEA>
+			      <SETG DREAMING T>
+			      <DISABLE <INT I-TEA>>
+			      <JIGS-UP
+"Everything becomes dark! But no, not quite everything ... There's a big bright
+planet below, just visible behind your mighty tail fin. Air begins rushing by,
+tickling your snout and dorsal fins ... you suddenly realise that, improbably
+enough, you've turned yourself into a sperm whale and are plummeting through
+the atmosphere of a planet! You begin experimenting with your new body, opening
+and closing your spout and wagging your enormous tail. Just as you are getting
+used to being a whale, the ground rushes up and hits you at about 200 mph.">
+			      <RTRUE>)
+			     (T
+			      <COND (<EQUAL? ,BROWNIAN-SOURCE ,TEA>
+				     <SETG DARK-CONTROLLED T>)>
+			      <MOVE ,HATCH ,LOCAL-GLOBALS>
+			      <MOVE ,MECHANISM ,LOCAL-GLOBALS>
+			      <TELL <PICK-ONE ,DARK-ENTRANCES> CR CR>
+			      <GOTO ,DARK>
+			      <RTRUE>)>)
+		      (T
+		       <TELL "Nothing happens." CR>)>)>>
+
+<GLOBAL DARK-ENTRANCES
+	<PLTABLE
+"You are disoriented. Blackness swims toward you like a shoal of eels who
+have just seen something that eels like a lot..."
+"Like fog rolling in off the ocean, a shroud of blackness billows toward
+you. Unlike fog rolling in off the ocean, the blackness hits you like
+a sixteen-tonne truck..." 
+"A mist spins round your head. You fall into what seems like a bottomless
+pit. Suddenly, you hit the bottom so hard that you wish it had been
+bottomless...">>
+
+<OBJECT PLOTTER
+	(LOC GLASS-CASE)
+	(DESC "atomic vector plotter")
+	(DESCFCN PLOTTER-DESCFCN)
+	(SYNONYM PLOTTER)
+	(ADJECTIVE ATOMIC VECTOR)
+	(FLAGS VOWELBIT TAKEBIT CONTBIT TRANSBIT TRYTAKEBIT)
+	(SIZE 20)
+	(ACTION PLOTTER-F)>
+
+<ROUTINE PLOTTER-DESCFCN ("OPTIONAL" X)
+	 <TELL "Lying on the deck is a plotter">
+	 <COND (,DRIVE-TO-PLOTTER
+		<TELL " connected to a " D ,SPARE-DRIVE ".">)
+	       (T
+		<TELL ".">)>
+	 <COND (,BROWNIAN-SOURCE
+		<TELL
+" The plotter's " D ,DANGLY-BIT " is submerged in " D ,BROWNIAN-SOURCE ".">)>
+	 <CRLF>>
+
+<ROUTINE PLOTTER-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The " D ,PRSO " has a " D ,SMALL-RECEPTACLE " and a " D ,DANGLY-BIT>
+		<COND (,BROWNIAN-SOURCE
+		       <TELL " which is sitting in " D ,BROWNIAN-SOURCE>)>
+		<COND (,DRIVE-TO-PLOTTER
+		       <TELL
+". The short cord from the " D ,SPARE-DRIVE " is plugged in the receptacle">)>
+		<TELL ".">
+		<FINE-PRODUCT>
+		<CRLF>)
+	       (<AND <VERB? PLUG>
+		     <PRSI? ,SPARE-DRIVE>>
+		<PERFORM ,V?PLUG ,SPARE-DRIVE ,PLOTTER>
+		<RTRUE>)
+	       (<VERB? UNPLUG>
+		<COND (,DRIVE-TO-PLOTTER
+		       <SETG DRIVE-TO-PLOTTER <>>
+		       <TELL "Unplugged." CR>)
+		      (T
+		       <TELL ,NOT-PLUGGED CR>)>)
+	       (<VERB? OPEN CLOSE>
+		<V-CARVE>)>>
+
+<OBJECT SMALL-RECEPTACLE
+	(LOC PLOTTER)
+	(DESC "small receptacle")
+	(SYNONYM RECEPTACL)
+	(ADJECTIVE SMALL)
+	(SIZE 1)
+	(FLAGS NDESCBIT INTEGRALBIT)>
+
+<OBJECT DANGLY-BIT
+	(LOC PLOTTER)
+	(DESC "long, dangly bit")
+	(SYNONYM BIT)
+	(ADJECTIVE LONG DANGLY)
+	(FLAGS NDESCBIT INTEGRALBIT)
+	(SIZE 1)
+	(ACTION DANGLY-BIT-F)>
+
+<ROUTINE DANGLY-BIT-F ()
+	 <COND (<AND <VERB? PUT>
+		     <PRSI? ,SUBSTITUTE ,TEA>>
+		<COND (,BROWNIAN-SOURCE
+		       <TELL "But the " D ,DANGLY-BIT " is already in">
+		       <ARTICLE ,BROWNIAN-SOURCE T>
+		       <TELL "!" CR>
+		       <RTRUE>)>
+		<SETG BROWNIAN-SOURCE ,PRSI>
+		<COND (<AND <PRSI? ,TEA>
+			    <NOT ,CARELESS-WORDS-FLAG>>
+		       <SETG CARELESS-WORDS-FLAG T>
+		       <SAVE-INPUT ,FIRST-BUFFER>
+		       <ENABLE <QUEUE I-CARELESS-WORDS 3>>)>
+		<TELL "Done." CR>)
+	       (<AND <VERB? EXAMINE>
+		     ,BROWNIAN-SOURCE>
+		<TELL
+"The " D ,DANGLY-BIT " is suspended in the cup of " D ,BROWNIAN-SOURCE "." CR>)
+	       (<AND <VERB? REMOVE>
+		     ,BROWNIAN-SOURCE>
+		<TELL "The " D ,DANGLY-BIT " is no longer suspended in">
+		<ARTICLE ,BROWNIAN-SOURCE T>
+		<TELL "." CR>
+		<SETG BROWNIAN-SOURCE <>>
+		<RTRUE>)>>
+
+<ROOM HATCHWAY
+      (LOC ROOMS)
+      (SYNONYM GPP PERSONALI)
+      (ADJECTIVE GENUINE PEOPLE)
+      (DESC "Hatchway")
+      (UP TO AFT-CORRIDOR)
+      (DOWN TO RAMP IF HATCH IS OPEN)
+      (OUT TO RAMP IF HATCH IS OPEN)
+      (EAST PER ACCESS-SPACE-ENTER-F)
+      (FLAGS ONBIT RLANDBIT)
+      (GLOBAL STAIRS HEART-OF-GOLD)
+      (ACTION HATCHWAY-F)>
+
+<ROUTINE HATCHWAY-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"You are at the bottom of a gangway. A hatch below you is ">
+		<COND (<FSET? ,HATCH ,OPENBIT>
+		       <TELL "open">)
+		      (T
+		       <TELL "closed">)>
+		<TELL ". There is a small access space to starboard." CR>)
+	       (<EQUAL? .RARG ,M-ENTER>
+		<FSET ,HATCH ,DOORBIT>
+		<RFALSE>)>>
+
+<ROUTINE ACCESS-SPACE-ENTER-F ()
+	 <COND (<G? <ACCESS-SPACE-LOOP ,PROTAGONIST> 1>
+		<TELL
+"That entrance is so narrow that you probably couldn't pass by holding
+anything. Well, maybe ONE thing." CR>
+		<RFALSE>)
+	       (T
+		<FCLEAR ,HATCH ,DOORBIT>
+		,ACCESS-SPACE)>>
+
+<ROUTINE ACCESS-SPACE-LOOP (CONT "AUX" X NUMBER)
+	 <SET X <FIRST? .CONT>>
+	 <REPEAT ()
+		 <COND (<NOT .X>
+			<RETURN>)>
+		 <COND (<AND <NOT <FSET? .X ,WORNBIT>>
+			     <NOT <FSET? .X ,INTEGRALBIT>>
+			     <NOT <EQUAL? .X ,BABEL-FISH>>>
+			<SET NUMBER <+ .NUMBER 1>>)>
+		 <COND (<FIRST? .X>
+			<SET NUMBER <+ .NUMBER <ACCESS-SPACE-LOOP .X>>>)>
+		 <SET X <NEXT? .X>>>
+	 <RETURN .NUMBER>>
+
+<OBJECT HATCH
+	(LOC LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
+	(DESC "hatch")
+	(SYNONYM HATCH HATCHWAY)
+	(ACTION HATCH-F)>
+
+<ROUTINE HATCH-F ()
+	 <COND (<AND <NOT <EQUAL? ,HERE ,HATCHWAY>>
+		     <VERB? OPEN CLOSE EXAMINE RUB>>
+		<CANT-SEE ,HATCH>)
+	       (<AND <VERB? OPEN THROUGH>
+		     <NOT ,LANDED>>
+		<TELL
+"Loud sirens blare, fantastically bright red lights flash from all sides, and
+a soft female voice mentions that opening this hatch in space will evacuate
+the air from the ship." CR>)
+	       (<AND <VERB? OPEN THROUGH>
+		     <NOT <FSET? ,HATCH ,OPENBIT>>>
+		<TELL "The hatch appears to be jammed shut." CR>)>>
+
+<OBJECT MECHANISM
+	(LOC LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
+	(DESC "mechanism")
+	(SYNONYM MECHANISM)
+	(ADJECTIVE HATCH HATCHWAY)
+	(ACTION MECHANISM-F)>
+
+<ROUTINE MECHANISM-F ()
+	 <COND (<AND <NOT <EQUAL? ,HERE ,ACCESS-SPACE>>
+		     <VERB? EXAMINE SMELL RUB REPAIR>>
+		<CANT-SEE ,MECHANISM>)
+	       (<VERB? REPAIR>
+		<PERFORM ,V?REPAIR ,HATCH>
+		<RTRUE>)
+	       (<VERB? EXAMINE>
+		<TELL
+"I don't even understand it, and I'm a computer!" CR>)>>
+
+<ROOM ACCESS-SPACE
+      (LOC ROOMS)
+      (SYNONYM AGENCY)
+      (ADJECTIVE GALACTIC SECURITY)
+      (DESC "Access Space")
+      (OUT TO HATCHWAY)
+      (WEST TO HATCHWAY)
+      (FLAGS ONBIT RLANDBIT)
+      (GLOBAL HEART-OF-GOLD)
+      (ACTION ACCESS-SPACE-F)>
+
+<OBJECT MESH
+      (LOC ACCESS-SPACE)
+      (SYNONYM MESH)
+      (DESC "mesh")
+      (FLAGS NDESCBIT)
+      (ACTION MESH-PSEUDO)>
+
+<ROUTINE ACCESS-SPACE-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This tiny area, with an exit to port, is for working on the hatch
+" D ,MECHANISM ", which is vastly more complicated than your rather
+ordinary intelligence can comprehend. ">
+		<PERFORM ,V?EXAMINE ,GROUND>
+		<RTRUE>)>>
+
+<ROUTINE MESH-PSEUDO ()
+	 <COND (<PRSI? ,MESH>
+		<PERFORM ,PRSA ,PRSO ,GROUND>
+		<RTRUE>)
+	       (T
+		<PERFORM ,PRSA ,GROUND ,PRSI>
+		<RTRUE>)>>
+
+<ROOM RAMP
+      (LOC ROOMS)
+      (SYNONYM PLANET MAGRATHEA)
+      (ADJECTIVE LEGENDARY)
+      (DESC "Ramp")
+      (LDESC
+"The wind moans. Dust drifts across the surface of the alien world. Zaphod,
+Ford, and Trillian appear and urge you forward.")
+      (FLAGS RLANDBIT ONBIT)
+      (ACTION RAMP-F)>
+
+<ROUTINE RAMP-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<INIT-STATUS-LINE>
+		<UPDATE-STATUS-LINE>
+		<TELL
+"You step onto the landing ramp leading down toward the surface of"
+,LOST-PLANET ". " ,ANNOUNCEMENT D ,EDDIE ". Someone is leaving the ship
+on a strange planet without wrapping up all nice and warm. It'll all end
+in tears, I just know it...\" The voice fades behind you." CR CR>)
+	       (<EQUAL? .RARG ,M-END>
+		<TELL CR
+"Slowly, nervously, you step downwards, the cold thin air rasping in your
+lungs. You set one single foot on the ancient dust -- and almost instantly
+the most incredible adventure starts which you'll have to buy the next game
+to find out about." CR CR>
+		;<V-SCORE>
+		<TELL CR
+"By the way, there WAS a causal relationship between your taking the "
+D ,TOOTHBRUSH " and the tree collapsing at the very beginning of the game.
+We apologise for this slight inaccuracy." CR>
+		<FINISH>)>>
\ No newline at end of file
diff --git a/hints.zabstr b/hints.zabstr
new file mode 100644
index 0000000..7eac8da
--- /dev/null
+++ b/hints.zabstr
@@ -0,0 +1,771 @@
+
+<FILE-FLAGS CLEAN-STACK?> 
+<GLOBAL HINT-WARNING <>> 
+<GLOBAL HINTS-OFF <>> 
+<DEFINE-ROUTINE V-HINTS-NO> 
+<DEFINE-ROUTINE V-HINTS> 
+<DEFINE-ROUTINE PICK-QUESTION> 
+<GLOBAL LINE-TABLE <PTABLE 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22>> 
+<GLOBAL COLUMN-TABLE <PTABLE 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4>> 
+<GLOBAL CUR-POS 0> 
+<GLOBAL QUEST-NUM 1> 
+<GLOBAL CHAPT-NUM 1> 
+<DEFINE-ROUTINE ERASE-CURSOR> 
+<DEFINE-ROUTINE NEW-CURSOR> 
+<DEFINE-ROUTINE INVERSE-LINE> 
+<DEFINE-ROUTINE DISPLAY-HINT> 
+<DEFINE-ROUTINE PUT-UP-QUESTIONS> 
+<DEFINE-ROUTINE PUT-UP-CHAPTERS> 
+<DEFINE-ROUTINE INIT-HINT-SCREEN> 
+<DEFINE-ROUTINE CENTER-LINE> 
+<DEFINE-ROUTINE LEFT-LINE> 
+<DEFINE-ROUTINE RIGHT-LINE> 
+<GLOBAL DIROUT-TBL <TABLE 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0>> 
+<GLOBAL HINTS <PLTABLE <PLTABLE "ON THE EARTH" <LTABLE 3
+"How do I get out of the dark?" "TURN ON THE LIGHT."> <LTABLE 3
+"Why can't I pick things up?" "Are you out of the bed with the light on?"
+"The room is spinning because you have a hangover."
+"There is ONE thing you can pick up." "It's the gown."> <LTABLE 3
+"How can I get out of the bedroom?"
+"You bounce off the doorframe because the room is spinning from your hangover."
+"You'll have to get rid of it." "See the previous question."
+"There's an aspirin in the pocket of the gown."
+"TAKE GOWN. PUT IT ON. OPEN THE POCKET. TAKE THE ANALGESIC."> <LTABLE 3
+"Is the pile of mail important?" "Have you read the mail?"
+"Now you know what's going on outside."
+"Take it along, it might prove useful later."> <LTABLE 3
+"What's that bulldozer doing outside?"
+"Have you read the pile of mail on your Front Porch?"
+"It's there to knock down your house to make way for a new highway bypass."> <
+LTABLE 3 "How do I stop the bulldozer?"
+"There's a tried and true method for stopping bulldozers."
+"Have you tried phoning the police?"
+"Have you tried to PROTEST or asked PROSSER, STOP THE BULLDOZER?"
+"Have you tried to STAND IN FRONT OF THE BULLDOZER?"
+"In case you haven't figured it out from these subtle clues, you want to LIE DOWN IN FRONT OF THE BULLDOZER."
+"BLOCK THE BULLDOZER, STOP THE BULLDOZER, or LIE DOWN also work."
+"You'll have to wait a few turns after you lie down before the bulldozer finally grinds to a halt."
+> <LTABLE 3 "What should I do with Ford Prefect?"
+"If you take the towel he's trying to give you, he'll walk away."
+"Standing up to follow him is fatal."
+"Without Ford you'll never survive the upcoming destruction of the Earth."
+"Ford is oblivious to your problem. If you wait, he'll notice the bulldozer, and help you out."
+"Or you can say FORD, WHAT ABOUT MY HOME? as soon as he arrives."> <LTABLE 3
+"Should I go with Ford to the Pub?"
+"Don't stand up until Prosser is lying down in your place."
+"This will happen if you wait a few turns after Ford shows up."
+"At this point, listen to Ford and follow him to the Pub."> <LTABLE 3
+"What should I do in the Pub?" "You came here because of Ford, right?"
+"Why not do as he says?" "Drink some beer."
+"Also, have you noticed the shelf of items behind the bar?"> <LTABLE 3
+"How much beer should I drink?"
+"Ford will keep urging you to drink beer until you've had enough."
+"If you have fewer than three beers, the shock of the matter transference beam will kill you."
+"If you have more than three beers, you'll get drunk and end up partying through the end of the world."
+"Drink the beer three times."> <LTABLE 3 "How can I buy beer?" "You can't."
+"But so what? Ford buys some for you."> <LTABLE 3
+"How can I buy a packet of peanuts?" "You can't."
+"At least, not when you're Arthur."> <LTABLE 3
+"How can I buy a cheese sandwich?" "How about BUY A CHEESE SANDWICH."
+"Or BARTENDER, GIVE ME A CHEESE SANDWICH."
+"Perhaps ASK BARTENDER FOR A SANDWICH is more up your alley."> <LTABLE 3
+"My home's being wrecked. What now?" "There's not much you can do about it."
+"You might return to survey the rubble, or to have it out with Prosser."> <
+LTABLE 3 "What should I do about the dog?" "Have you examined the dog?"
+"If you haven't figured it out, you'll find out more later."> <LTABLE 3
+"How do I survive Earth's demolition?" "DON'T PANIC."
+"Read everything carefully."
+"Remember Ford's reason for drinking all that beer?"
+"It has to do with that small black device that Ford drops after the fleet arrives."
+"Have you tried picking it up?" "Have you tried examining it?"
+"You want to hitch a ride aboard one of the Vogon ships."
+"PUSH THE GREEN BUTTON."> <LTABLE 3 "Why do I die during transference?"
+"You didn't drink enough beer."
+"See the question about how much beer to drink.">> <PLTABLE "IN THE DARK" <
+LTABLE 3 "Help! I'm stuck in the Dark!"
+"If this \"Dark\" is at the very beginning of the game, you're in the wrong place. Look at the very first question."
+"You've been through a matter transference beam, and still haven't recovered from the shock of it."
+"Recovery takes time..."
+"...but in this case, you'll have to do more than just wait."> <LTABLE 3
+"How do I get out of this Dark?" "Have patience." "Read carefully."
+"If you've waited enough you'll begin to get some clues."
+"Read each response to WAITing in the Dark very carefully."
+"There's an important difference between the third and fourth responses."
+"You are no longer told that you can't smell anything."
+"Try SMELL THE DARKNESS or SMELL NOTHING or even just SMELL."> <LTABLE 3
+"What's this shadow I see?" "That's your way out of Dark."
+"EXAMINE THE SHADOW."> <LTABLE 3 "Help! I'm in the blasted Dark AGAIN!"
+"Unless you've been to the Vogon Hold, you're at the wrong question."
+"You've been through Dark at least once before, so you know what's going on."
+"This time, though, it isn't smell that goes away on the fourth description."
+"It's hearing." "Try HEAR NOTHING or LISTEN TO DARKNESS."
+"There is an exit to port. Try going that way."
+"Be persistent. Try going PORT a few more times."
+"Perhaps AFT would be more productive, come to think of it."> <LTABLE 3
+"Exactly how does Dark work?"
+"You enter Dark when Earth is destroyed, and other times throughout the game."
+"At the fourth turn in Dark, one of your five senses will disappear."
+"You should type the sense that no longer appears, such as SMELL or SEE."
+"The first time, smell will go away. See the first question in this section."
+"The second time, hearing will go away. See the third question in this section."
+"On subsequent visits to Dark, the sense that disappears will be fairly random. See the following question for more details."
+> <LTABLE 3 "Can I control my exit from Darkness?" "Not usually."
+"Don't continue until you have a cup of tea."
+"Don't continue until you have real tea, not merely Advanced Tea Substitute."
+"Have you ever examined the cup of tea?"
+"Tea is a better source of Brownian Motion for the Improbability Drive than the Advanced Tea Substitute (ATS). Try it."
+"Notice anything different about Dark when you use tea instead of ATS?"
+"For one thing, a sense is missing right away, rather than after three WAITs."
+"More importantly, with tea, a different sense will be missing each time you WAIT. Thus, you can \"control Dark.\""
+"There are eight exits from Dark (taste never goes away), so there are two Dark exits for each missing sense."
+"There is a way to differentiate between each pair."
+"For example, when smell disappears, type SMELL DARK. If the object is \"being waved,\" then the exit leads to the Vogon Hold. If the object is \"waving,\" the exit is the Lair of the Ravenous Bugblatter Beast of Traal."
+"When hearing is missing: If the sound is \"far above you,\" then your exit is Entry Bay Number Two of the Heart of Gold. If it's \"far below you,\" then it's the War Chamber of the battle fleet."
+"If seeing is the missing sense: When the light stabs at the \"front\" of your eyes, then your exit is the Country Lane. When it's at the \"back\" of your eyes, then you go onto the Presidential Speedboat."
+"When feel is missing: If it feels \"cold\" and wet and squishy, the exit is to the Living Room party. When it's \"warm,\" your exit is into the sperm whale."
+"When you are controlling dark and have determined your current exit, but you don't want to go there, simply WAIT and you will get a new missing sense. NOTE: You will never get the whale exit unless you are using real tea for your Brownian Motion source."
+>> <PLTABLE "THE VOGON SHIP" <LTABLE 3 "Where the heck am I?"
+"As your status line says, you are in the Vogon Hold."
+"ASK FORD ABOUT THE EARTH."
+"The Earth has been destroyed by the Vogon fleet. You and Ford have hitched a ride aboard one of the ships of the Vogon Fleet by using the electronic Sub-Etha signaling device, also known as a Thumb."
+> <LTABLE 3 "Why do I get groggy and die?"
+"This is caused by your protein loss during the matter transference beams."
+"Do you have anything with a lot of protein in it?"
+"It's something that Ford just gave you."
+"It's frequently found on shelves behind bars in Pubs." "EAT THE PEANUTS."> <
+LTABLE 3 "What's this Guide Ford gives me?"
+"That's the Hitchhiker's Guide to the Galaxy."
+"It's the single most useful thing an intergalactic hitchhiker (or Infocom game player) can have."
+"See the Hitchhiker's Guide question in the General Questions section for more information."
+> <LTABLE 3 "How can I wake Ford?" "Have you tried WAKE FORD?"
+"You can't wake Ford." "You'll have to get the babel fish on your own."> <
+LTABLE 3 "How do I open the case?"
+"There's a switch and a keyboard attached to the case."
+"SAVE first, then try typing on the keyboard. For example, TYPE \"HELLO.\""
+"Well, perhaps that wasn't such a great idea. Try flipping the switch."
+"If the recording was gibberish, you'll have to find a way to translate it."
+"See the question about the babel fish."
+"Once you have the babel fish, flip the switch again."
+"Now you know what to type. Just wait around to hear the captain's poetry reading and see the question about what's going on in the Captain's Quarters."
+> <LTABLE 3 "What is the tall dispensing machine?" "Examine it."> <LTABLE 3
+"Why does the machine go \"click\"?" "It's out of fish. Time to RESTORE."> <
+LTABLE 3 "What is a babel fish?" "Consult the Guide."> <LTABLE 3
+"How can I get a babel fish?" "Have you pressed the dispenser button?"
+"You need to block the small hole." "Use the hook above the hole."
+"Hang something on the hook." "Examine the gown."
+"Hang the gown on the hook, then press the button again."
+"You'll have to block the drain."
+"There's only one thing large enough to completely cover the drain."
+"Cover the drain with the towel, then push the button again."
+"You have to block the tiny robot panel."
+"Standing or lying in front of the panel won't work."
+"You have to put some object in front of the panel."
+"If it isn't bulky enough, the cleaning robot dashes around it."
+"The satchel is bulky. Put it in front of the panel, then push the button again."
+"At this point, brave men have been known to break down and cry."
+"Read, very carefully, the paragraph when Ford goes to sleep."
+"When you placed the satchel in front of the panel, the satchel is now LYING ON ITS SIDE in front of the panel."
+"You can put an object on top of the satchel."
+"Put something on the satchel, then push the button again."
+"The upper-half-of-the-room cleaning robot just manages to catch the second item."
+"If there were several items on the satchel, they would all fly into the air and confuse the flying robot."
+"Unfortunately, there's only room for one object on the satchel."
+"Is there an object that when flung into the air might act as many items?"
+"When the upper-half-of-the-room cleaning robot grabbed the babel fish the first time it said that the fish was \"the only flying junk\" that the robot found."
+"Put the junk mail on the satchel, then press the button one last time."> <
+LTABLE 3 "What's the gibberish I hear?" "It's an announcement in Vogonese."
+"If you want to understand the announcement, you'll have to discover a way to translate it."
+"See the questions about the babel fish."
+"The announcement will begin 18 turns after you enter the Vogon Hold, or 3 turns after you obtain the babel fish."
+> <LTABLE 3 "Why are the guards dragging me away?"
+"See the question about the gibberish from the intercom."
+"The guards will arrive 36 turns after you arrive in the Vogon Hold, or 5 turns after you obtain a babel fish."
+> <LTABLE 3 "What happens in Captain's Quarters?"
+"Don't go on unless you've translated the garbled announcement."
+"Don't go on until you've figured out what's going on with the glass case and switch and keyboard."
+"You are at a Vogon Poetry Appreciation Session. The Vogon Captain is about to read you his favourite poem. The Guide's entry on Vogon Poetry makes clear that this is extremely nasty."
+"You should now know that you have to listen to the second verse (not line) of the poem in order to get the atomic vector plotter."
+"This poetry is painfully awful. Have you tried to STOP THE POETRY or COVER MY EARS or DON'T LISTEN TO THE VOGON POETRY."
+"When he finishes the first verse the Captain says, \"You didn't look like you enjoyed my poetry at all!\" and then has you thrown into space."
+"Why not relax and enjoy it?"
+"ENJOY THE POETRY while the Captain reads the first verse. He will continue on and read the second verse."
+"Now that you've heard the glass case's recording AND the second verse of the poem, you know what to type on the keyboard to get the atomic vector plotter. (When the guards drag you back into the Vogon Hold, of course.)"
+"For example, if the recording asked you to type the second word from the second verse, and the word was \"lyshus,\" you should type TYPE \"LYSHUS\" when you get back to the Vogon Hold. NOTE: Each time you play the game, the lines of the second verse come in different orders. Similarly, the glass case's recording asks for a different number word each time you play."
+> <LTABLE 3 "Can I stop being put in the airlock?"
+"There's no way to prevent this."
+"However, you should make sure that you've accomplished everything that needs to be accomplished aboard the Vogon ship before this occurs."
+"You should have gotten the atomic vector plotter."> <LTABLE 3
+"Can I survive in outer space?"
+"Yes. In fact, there's no way to NOT survive it."
+"If you wait, you'll find yourself in the Dark again."
+"Examine the Thumb while in the Airlock."
+"Apparently, there's another spaceship nearby. Try hitchhiking by pressing the green button."
+"This sends you through a matter transference beam, and you find yourself in the Dark again."
+"Both methods of surviving the Airlock are equivalent.">> <PLTABLE
+"THE HEART OF GOLD" <LTABLE 3 "Who picked us up hitchhiking?" "Listen to Ford."
+"Read the sales brochure that's in the Entry Bay."
+"You've just been picked up by a fantastic new spaceship powered by something called an Infinite Improbability Drive. Find out more about the drive."
+"To find out who owns the ship, stick around on the bridge and pay attention to what everyone is saying."
+"The woman is Tricia MacMillan, known as Trillian. She's an Earthwoman whom you met at a party in Islington not too long ago, at which time you totally failed to impress her. She eventually left the party with a guy named Phil...who is, you realize, the two-headed man standing next to her."
+"The man is Zaphod Beeblebrox, current President of the Galaxy, who has stolen this revolutionary new Infinite Improbability Drive-powered spaceship in order to locate the legendary lost planet of Magrathea. Zaphod and Ford know each other."
+"That you should be picked up in the vast emptiness of space by a ship inhabited by an acquaintance from your now destroyed native planet as well as your travelling companion's semi-cousin, can only be considered highly improbable. But then, with Infinite Improbability Drives at work, the infinitely improbable is not only possible but quite likely."
+> <LTABLE 3 "How can I enter the sauna?" "From the Bridge, walk to port."
+"There is no way to actually STAY in the sauna."
+"Therefore, once Ford, Zaphod, and Trillian enter the sauna, they will be effectively inaccessible to you for the remainder of the game."
+> <LTABLE 3 "Is Eddie, the ship computer, of use?"
+"Without Eddie, who would make all those fun announcements?"
+"Eddie is the only one who can turn on the main drive."
+"But he won't obey your order to do that, only Zaphod's."
+"Eddie's help is indirectly necessary to obtain a cup of tea."
+"But in terms of solving puzzles, you can basically ignore Eddie."> <LTABLE 3
+"Are the Bridge controls useful?" "Have you examined them?"
+"The large receptacle is important."
+"Don't go on until you've figured out how to set up and use the spare Improbability Drive."
+"The large plug from the spare Drive can be plugged into the large receptacle."
+"But that isn't necessarily the right thing to do."
+"In fact, when you plug in the spare Drive at the wrong time, Eddie warns you that it's only for emergencies."
+"When you use the drive while it's plugged into the large receptacle, both the large receptacle and the large plug are destroyed."
+"You can only use the drive while connected to the controls ONCE during the course of the game."
+"See the question about the missile attack at the end of this section."> <
+LTABLE 3 "How does the Nutrimat work?"
+"All you have to do is touch the touch-sensitive pad."
+"The Nutrimat does all the rest, and in seconds you'll have your very own cup of incredibly delicious Advanced Tea Substitute (ATS)."
+"Well, maybe not so delicious. But at least useful."
+"Actually, there is a way to get something else from the Nutrimat."
+"It's a cup of tea (REAL tea, not ATS)."
+"But first, you'll need something that isn't in the Galley."
+"In fact, it isn't even in the Heart of Gold."
+"Don't go on unless you have the Nutrimat/Computer Interface (not to be confused with the shipping carton for the interface)."
+"Use the interface."
+"Open the service panel and remove the circuit board. Now, put the interface inside the Nutrimat. Finally, touch the pad!"
+"Still having trouble getting tea? See the question about the missile attack. It's the last question in this section."
+> <LTABLE 3 "What is the Advanced Tea Substitute?"
+"ATS is useful, although drinking it is a bad idea."
+"Have you ever examined it?"
+"Have you discovered a need for a source of Brownian Motion?"
+"See the question about the spare Improbability Drive."> <LTABLE 3
+"Is the cup of tea important?"
+"Don't go on unless you actually have the cup of tea."
+"Don't go on unless this cup of tea is REAL tea, not just Advanced Tea Substitute (ATS)."
+"Have you ever examined the tea?"
+"Because it has even more Brownian Motion than the ATS, it will make a better source of it for the spare Improbability Drive. Try it."
+"See the question about controlling where you go when you leave Dark, in the section called \"In the Dark\"."
+> <LTABLE 3 "How do I adjust the circuit board?"
+"You can remove it from the Nutrimat." "Have you examined it?"
+"You can flip any of the eight dipswitches."
+"You can even flip them while the circuit board is still in the Nutrimat."
+"Have you noticed the message in tiny letters on the board?"
+"There IS a way to read that message."
+"Don't go on until you've been on Damogran."
+"Don't go on until you've opened the toolbox."
+"READ THE MESSAGE THROUGH THE MAGNIFYING GLASS."> <LTABLE 3
+"Is the shipping carton important?" "Try examining or reading it."
+"Have you opened the carton?"
+"The Sirius Cybernetics Corporation has apparently screwed up (a common occurrence) and put the wrong item inside the shipping carton."
+"You'll be able to find the Nutrimat/Computer Interface elsewhere in the game."
+> <LTABLE 3 "Is the strange gun important?" "Have you examined or read it?"
+"Don't go on unless you've been in the Lair."
+"Have you tried shooting the gun at the Beast?"
+"Have you tried it several times?"
+"The gun is completely worthless, useless, and unimportant."> <LTABLE 3
+"Can I go aft from Corridor, Aft End?" "Yes, but not without a fight."
+"You'll have to argue with the game for a few turns."
+"Usually, YES or NO responses are sufficient."
+"The proper sequence, from the Corridor, Aft End is AFT. YES. YES. AFT. NO."> <
+LTABLE 3 "Is anything in the Engine Room?"
+"Have you gotten into the Engine Room? If not, you should do so before looking at the next hint."
+"The game claims that there's nothing interesting there."
+"However, after losing that argument with you, the game is probably a bit peeved and is acting petulant."
+"You'll have to be persistent if you want to find out what's in the Engine Room."
+"Type LOOK three times. The game will then give in and describe the room and the stuff there."
+> <LTABLE 3 "Is the spare Drive important?"
+"Read the Guide entry on Improbability Physics."
+"You'll need the atomic vector plotter from the Vogon Hold. If you never got it while you were aboard the Vogon ship, you'll have to start the game over or go back to a saved position."
+"You'll also need a good source of Brownian Motion."
+"Consult the Hitchhiker's Guide about Brownian Motion."
+"Have you seen any hot liquids?"
+"You'll need the cup of Advanced Tea Substitute (ATS), which you can get from the Nutrimat in the Galley."
+"Now that you have all three items (spare Drive, plotter, and cup of ATS), you should be able to figure out how to hook them together."
+"Examine all three items."
+"You want to plug the small plug (from the drive) into the small receptacle (in the atomic vector plotter). Put the plotter's long dangly bit into the cup of ATS."
+"That still leaves the drive's large plug unattached. See the question about the controls on the Bridge."
+> <LTABLE 3 "How can I open the screening door?"
+"This is a very difficult problem."
+"Furthermore, you won't be able to tackle it until you're pretty far into the game. Don't let it worry you until you get up around 200 points."
+"Don't develop any further unless you've gotten the cup of tea (real tea, not Advanced Tea Substitute)."
+"Presumably you've tried OPEN THE DOOR."
+"You have to show an example of your intelligence to the screening door."
+"Read the Guide entry on INTELLIGENCE."
+"Can you think of anything contradictory that you could have or do?"
+"To show your intelligence, there are two specific items that you must be holding at the same time."
+"Have you noticed what happens when you take or drop the (real) tea?"
+"To prove your intelligence to the door, you must be holding TEA and NO TEA at the same time."
+"Try going back to the beginning of the game and taking or dropping NO TEA."
+"Does the response to that ring any bells?"
+"Have you ever read or examined the black particle in the Maze?"
+"Do you know where you are when you are in the Maze? If not, see the questions on the Maze."
+"The Maze is your own brain, and the particle is your common sense. Once you have removed the particle, you will no longer be fettered by common sense and can take NO TEA."
+"Spelling it out step by step: First, acquire a cup of tea. Then get rid of the common sense particle in the Maze. TAKE TEA THEN TAKE NO TEA. Finally, SHOW THE TEA AND THE NO TEA TO THE SCREENING DOOR."
+"Did you die upon passing through the screening door? It's because Marvin lives in the room beyond the door, and his awesome depression pervades the place."
+"You'll have to make yourself very happy before entering."
+"Have you ever done anything that made you very happy and contented?"
+"Drink the cup of tea before you enter."> <LTABLE 3 "Is Marvin important?"
+"Yes, but not right away."
+"Until a point, he won't do anything you tell him to do."
+"After that point, he'll grudgingly consent to ONE task."
+"Have you ever followed Marvin when he appears around the Heart of Gold?"
+"He always disappears through a certain door."
+"Before Marvin will perform his one task, you must get past the screening door near the aft end of the corridor."
+"Don't go on until you've been in Marvin's Pantry."
+"Congratulations. You've now impressed Marvin enough for him to listen to one request from you. Do you have any idea what order to give him?"
+"What puzzles or obstacles still remain that he might help with?"
+"Try examining the mechanism in the Access Space."
+"If you've ever seen the fruit, eating it would provide a big hint."
+"You want to order Marvin to open the hatch (as in MARVIN, OPEN THE HATCH). See the question about opening the hatch for more information."
+> <LTABLE 3 "How can I open the hatch?" "Have you tried OPEN THE HATCH?"
+"If sirens and lights went off when you tried to open the hatch, then the ship is still in space. Wait until the ship has landed."
+"Do you remember an announcement when the Heart of Gold landed on Magrathea?"
+"Eddie (the shipboard computer) jammed the hatch to prevent anyone from leaving the ship until he's checked to make sure the environment is safe."
+"If you wait the 14.9 years such a check will take, you'll probably die of boredom."
+"You'll have to figure out how to override Eddie's wishes by fixing the hatchway mechanism in the Access Space."
+"You don't have the necessary intelligence for the task." "Someone else does."
+"Marvin. See the question about Marvin to figure out how to get him to open the hatch."
+"Once Marvin has agreed to open the hatch, he tells you to meet him in the Access Space in twelve turns. Make sure you're on hand for that meeting. (Hell hath no depression like a paranoid android scorned.)"
+"Marvin will ask you for the tool he needs to fix the mechanism."
+"You must give him the proper tool or you've blown your one chance to get the hatchway open."
+"There are a total of ten tools scattered throughout the game. For a complete list of them, see the quesion about the tools in the General Questions section."
+"Even if you've collected all ten tools, you can only carry one at a time into the Access Space..."
+"...and you don't have time to go out and get a different one before Marvin gives up and leaves..."
+"...and Marvin will NEVER ask for the tool you happen to be holding."
+"There's a way to figure out in advance what tool Marvin will ask you for."
+"See the question about the fluff." "Don't go on until you've seen the fruit."
+"Eat the fruit."
+"The glimpse of the future provided by the fruit tells you what tool to bring into the Access Space."
+"If you meet Marvin there and give him that tool when he asks for it, he will fix the mechanism and open the hatch."
+"You're now awesomely close to the end of the game."
+"Go down through the hatch."
+"Start waiting for the next exciting Hitchhiker's game."> <LTABLE 3
+"How do I stop the missile attack?" "This is a good point for a SAVE."
+"The computer is helpless because you've tied it up with the Nutrimat interface."
+"You'll have to save the ship yourself."
+"The computer is tied up, so it can't turn on the main Drive during this emergency."
+"There's a spare Drive for use during emergencies." "Turn on the spare Drive."
+"That didn't work? Have you examined the spare Drive and the control console on the Bridge?"
+"If there are fused spots where the large plug and large receptacle used to be, you plugged the drive in at the wrong time."
+"Note that when the spare Drive is NOT connected to the control console and you turn it on, the effect is always directed at you personally. When the spare Drive IS connected to the console, activating it has an effect on the entire ship."
+"Turning on the spare Drive while it's plugged into the control console destroys the large plug and large receptacle, so you can only do it once during the game. The one time you want to activate the drive while plugged into the control console is during the missile attack."
+>> <PLTABLE "ON TRAAL" <LTABLE 3 "How do I go southwest from the Lair?"
+"Figuring out how to subdue the Beast would help."> <LTABLE 3
+"Can I stop the Beast from eating me?"
+"The Beast will devour you about five turns after you pop up in its Lair."
+"Leaving the room (EAST) will buy you some time."
+"Have you read the Guide entry on the Ravenous Bugblatter Beast of Traal?"
+"You must find a way to prevent yourself from seeing the Beast. The Beast will then decide that since you can't see it, it can't see you!"
+"Closing your eyes isn't obvious enough for the Beast to notice."
+"You have to cover your head with something."
+"It's something important, which no interstellar hitchhiker should ever be without."
+"The towel. COVER MY HEAD WITH THE TOWEL or PUT THE TOWEL OVER MY EYES or WRAP THE TOWEL AROUND MY HEAD."
+"Unfortunately, you can't move around very well with a towel over your eyes. Furthermore, as you may have already noticed, this method is also only temporarily effective."
+> <LTABLE 3 "Why does the beast ask me my name?"
+"A good question. Have you tried figuring out the answer yourself?"
+"Have you been in the Beast's Outer Lair?"
+"Have you ever tried saying your name as the Beast demands?"
+"There are at least a dozen ways to say your name: SAY MY NAME or SAY \"ARTHUR DENT\" or SAY \"MY NAME IS ARTHUR DENT\" are some."
+"You have to give your correct name to the Beast, or (in a rare moment of Bugblatter Beast perceptivity) it will be able to tell that you're lying. In addition, you can't tell the Beast your name if the Beast thinks it can't see you."
+"The Beast's response when you told it your name should provide an additional hint toward why the Beast wants to know your name and how to solve this entire Traal puzzle."
+"Still stuck? Go on to the next question."> <LTABLE 3
+"What use is the sandstone memorial?"
+"Have you figured out why the Beast wants to know your name?"
+"The Beast wants to carve your name in this, his memorial of remembrance, after he has devoured you."
+"Have you figured out how to stop the Beast from attacking you, at least on a temporary basis?"
+"Don't go on until you have figured out how to convince the Beast that it can't see you."
+"There's a way to confuse the Beast into thinking that it has already eaten you."
+"You want to carve your name in the memorial, as in CARVE MY NAME ON THE SANDSTONE MEMORIAL."
+"Of course, you'll need something to carve with." "It's not any of the tools."
+"It's something found on Traal."
+"Use one of the sharp stones that are lying on the ground."
+"First you have to tell the Beast your name and cover your head with the towel."
+"It is now safe to remove the towel from your head, and to go southwest from the Lair."
+> <LTABLE 3 "Are the tall walls important?"
+"If you could climb them, you might be able to escape the Beast."
+"If you could collapse them onto the Beast, that just might do it in."
+"If you could transmute them into steaming mounds of Qurmeesian Mega-Rhino flank steaks, the Beast might start in on those and ignore your few measly pounds of stringy flesh."
+"Unfortunately, you can't do any of the above."> <LTABLE 3
+"Are the bleached bones important?"
+"Don't go on until you've found the black paint."
+"Have you tried painting the bones with the paint?"
+"Where does the Beast go when he sees the black bones?"
+"Black paint? There's no black paint. You're looking at answers you shouldn't be."
+> <LTABLE 3 "Are the sharp stones important?" "Have you examined them?"
+"See the question about the sandstone memorial."> <LTABLE 3
+"What's the point of the Traal scene?"
+"First you'll have to figure out how to \"neutralize\" the Beast."
+"Don't go on until the Beast is sleeping." "Have you been in the Inner Lair?"
+"Go southwest from the Lair."
+"The entire point of this scene is to get that Nutrimat/Computer Interface."
+"You have a limited number of moves to get the interface, after the Beast falls asleep and before the Fronurbdian Beasthunters arrive."
+>> <PLTABLE "ON DAMOGRAN" <LTABLE 3 "Who am I?"
+"Ask the game! (Type WHO AM I?)"> <LTABLE 3 "Where am I?"
+"You're on Damogran. If you'd like to know more about it, consult the Hitchhiker's Guide."
+> <LTABLE 3 "How can I open the toolbox?"
+"Since it's locked, you'll need to find a key."
+"Try typing WHERE IS THE KEY while on the speedboat."
+"There aren't a lot of hiding places around the boat."
+"SEARCH THE PILOT SEAT or LOOK UNDER THE CUSHION."> <LTABLE 3
+"Can I stop the boat from crashing?" "EXAMINE THE CONTROLS."
+"PUSH THE AUTOPILOT BUTTON."
+"The autopilot doesn't seem concerned about your situation, since it just takes a look around and then shuts itself off."
+"You need to give the autopilot some impetus to go to work."
+"Instead of steering toward the channel, try steering toward the cliff or the rocky spire."
+"After three turns of heading toward an obstacle, the autopilot will kick on and navigate you safely to your destination."
+> <LTABLE 3 "What do I do when the boat docks?"
+"Leave the boat. Type NORTH or LEAVE THE BOAT."> <LTABLE 3
+"What do I do when I reach the Dais?"
+"You're here for the dedication ceremonies of the Heart of Gold. You obviously have the crowd eating out of your hands."
+"You might try smiling, or waving, or making a speech."
+"Mainly, though, you just need to wait until Trillian shows up."> <LTABLE 3
+"What do I do about the Guards?"
+"Don't go on unless you're on the Dais and Trillian is there."
+"Trillian isn't really attacking you. It's just part of your plan to steal the Heart of Gold."
+"The guards don't know that you're planning to steal the Heart of Gold, so they're on your side."
+"You're President of the Galaxy! The guards will probably listen to your orders."
+"You should say GUARDS, DON'T SHOOT or GUARDS, DROP THE PHOTON RIFLES."
+"If you're still having troubles with the guards, see the next question."> <
+LTABLE 3 "How can I enter the Heart of Gold?"
+"Until Trillian shows up, the game won't even let you try."
+"After Trillian shows up, attempting to enter the Heart of Gold is deadly."
+"Don't go on unless you've disarmed the guards (see the previous question)."
+"This isn't helpful all by itself, since the guards pick up their rifles and still shoot you if you break for the ship."
+"You have to figure out a way to get rid of the guards or the rifles permanently."
+"The guards will NOT leave the scene, no matter what you do."
+"Trying to shoot the guards doesn't work either."
+"There is, however, a way to dispose of the rifles."
+"Take the blaster from Trillian and shoot the rifles. Alternatively you can just ASK TRILLIAN TO SHOOT THE PILE OF RIFLES."
+"Once you've destroyed the rifles, it's safe to enter the ship."> <LTABLE 3
+"What's the point of Damogran?"
+"Don't go on until you ended the scene by successfully entering the Heart of Gold. (If you were killed by the guards, you were NOT successful.)"
+"Have you opened the toolbox?"
+"If you've opened the toolbox, then you've certainly found both the seat cushion fluff and the laser-assisted monkey wrench. Getting these two items are the ultimate goal of the Damogran scene."
+>> <PLTABLE "AT THE PARTY" <LTABLE 3 "Who am I?"
+"Ask the game. (Type WHO AM I?)"> <LTABLE 3 "Where am I?"
+"Remember what happened when you first reached the Bridge of the Heart of Gold?"
+"This is the Party where Arthur Dent tried to pick up Tricia MacMillan (but, you'll recall, failed completely)."
+"Thanks to the wild vagaries of Improbability Physics, you have not only travelled back in time, you have changed your identity as well."
+> <LTABLE 3 "What should I do about Phil?"
+"If you try to talk to Phil, he doesn't notice, and invariably leaves the room."
+"Have you examined him?"
+"The draped cage on his shoulder does NOT contain a bird."
+"The cage is hiding Phil's second head."
+"Phil is actually Zaphod Beeblebrox in disguise. He has undoubtedly dropped by this Islington party as part of some interstellar party-crashing hop."
+"If you recall from the events on the Bridge of the Heart of Gold, you (Trillian) eventually left ... er, will leave ... the party with Zaphod/Phil."
+"But that won't happen until you do something else. See the question about the point of the party scene."
+> <LTABLE 3 "What should I do about Arthur?"
+"Arthur keeps trying to start a conversation with you, but he's too shy and embarrassed. If you try to talk to him, he finds your tone rather cool, and moves away."
+"Have you examined him?" "Notice the fluff?"
+"If you take the fluff from his jacket, it will \"break the ice\" and Arthur will begin jabbering."
+"Did you notice that you can't take the fluff until you drop one of the other things you're carrying (handbag, wine, hors d'oeuvres)? You can't hold more than three things while you're at the party."
+> <LTABLE 3 "What should I do about the hostess?"
+"You're usually able to avoid her."
+"If you try to talk to her, you'll learn the meaning of the phrase \"bored to death.\""
+"If you drop your glass of wine, your handbag, or your plate of hors d'oeuvres, the hostess will come over and pester you about it. She won't leave you alone until you take the item that you dropped."
+> <LTABLE 3 "How can I leave the apartment?"
+"Try going south from the Living Room."
+"Dying will get you back to Dark, but that's probably not what you had in mind."
+"There is a way to leave the apartment, but you'll have to solve a puzzle first. See the next question."
+> <LTABLE 3 "What's the point of the party scene?"
+"There's an item at the party that you have to get back to the Heart of Gold."
+"That item is the unsightly piece of jacket fluff."
+"See the previous questions in this section of the hint booklet."
+"You want to get \"picked up\" by Phil. However, he won't take any notice of you until you take the fluff and get Arthur talking to you."
+"In order to take the fluff, though, you'll have to drop something. This will cause the hostess to start hovering around you. Phil is much too smart to approach you when you're with the hostess."
+"So, to get Phil to come over, you'll have to take the item that the hostess keeps offering you. To do so, you'll have to drop something, and the piece of fluff is the only thing you have that you can drop without setting off the hostess again."
+"There IS a way to stop holding the fluff WITHOUT dropping it."
+"Look at what you're carrying again." "You can put the fluff in your handbag."
+"Naturally, the fluff is still in the handbag when you eventually get back to the Heart of Gold. You need only go to the Bridge or wherever you left the handbag, open it, and take the jacket fluff."
+"If you're still confused, one sequence of moves that will \"solve\" the party scene is:  EXAMINE ARTHUR. DROP THE WINE. TAKE THE JACKET FLUFF. OPEN THE HANDBAG. PUT THE FLUFF IN THE HANDBAG. TAKE THE WINE. Then just WAIT until Phil comes up and escorts you away. You will end up in Dark."
+>> <PLTABLE "EARTH, REVISITED" <LTABLE 3 "Who am I?"
+"Ask the game. (Type WHO AM I?)"> <LTABLE 3 "Where should I go?"
+"You are reliving the last few minutes before the destruction of the Earth."
+"But this time as Ford Prefect rather than Arthur Dent."
+"The Improbability Drive has sent you back in time and has also changed your identity."
+"You want to do what Ford did when you were Arthur."
+"Go north to Front of House."> <LTABLE 3 "How can I lose my uneasy feeling?"
+"Have you tried waiting a few turns?"
+"Obviously, you're doing the wrong thing."
+"You shouldn't be in the Pub at this point." "See the previous question."> <
+LTABLE 3 "What should I do about Arthur?"
+"According to the introductory text for this scene, why did you come here?"
+"What did Ford do at this point when you were Arthur?"
+"Try to give the towel to Arthur." "The towel is inside your satchel."> <LTABLE
+3 "What should I do about Prosser?"
+"Don't go on until you've done the step called for by the previous question."
+"You want Arthur to come with you to the Pub."
+"If you recall from when you were Arthur, it would mean the destruction of Arthur's house if he stood up at this point."
+"He won't stand up until you've safeguarded his house."
+"You have to talk to Prosser." "But he can't hear you from here."
+"So you have to APPROACH PROSSER or WALK AROUND THE BULLDOZER. Now you can talk to him."
+"You want him to lie down in front of the bulldozer."
+"Try PROSSER, LIE DOWN IN FRONT OF THE BULLDOZER."
+"Arthur is now willing to follow you to the Pub."> <LTABLE 3
+"What should I do in the Pub?"
+"Unless Arthur is with you, you are here prematurely."
+"Once again, think back to what Ford did when you were Arthur."
+"The first thing to do is BUY SOME BEER."
+"Then DRINK THE BEER. Arthur will follow your example. You need to do this twice."
+"You can BUY SOME PEANUTS, but it isn't necessary to do so."
+"When Arthur's house is destroyed, he will rush out of the Pub. It would be a good idea to stay with him."
+> <LTABLE 3 "What should I do about the dog?"
+"There's not much you can do about the dog at this point."
+"You may find out more about the dog later."> <LTABLE 3
+"What's the point of this scene?"
+"You learn a lot about Ford's motivations, thus making for a more cohesive, internally consistent story line."
+"Oh, right. You're more interested in puzzle solutions. The entire point of this scene is acquiring one particular item for use on the Heart of Gold."
+"It's in the satchel." "It's the satchel fluff."
+"There's a way to transfer it to something, other than the satchel, so that it will be accessible when you get back to the Heart of Gold."
+"That something is Arthur Dent." "Give the fluff to Arthur."
+"This is a rather weird action, and Arthur won't accept the fluff until he's had enough beer."
+"After Arthur runs back to his house (now rubble), follow him and give him the fluff. He'll accept it at this point and put it in his pocket. Then just wait for events to run their course, and you'll soon find yourself back in Dark. When you get back to the Heart of Gold, the satchel fluff should be in the pocket of your gown."
+>> <PLTABLE "WAR CHAMBER/MAZE" <LTABLE 3 "What's going on in the War Chamber?"
+"Have you tried listening to the conversation?"
+"Have you examined the approaching star system?"
+"Do you remember the long piece of text that appeared when your careless words set off an interstellar war?"
+"Those two warring races have now set off on a quest for vengeance against the world (Earth) that spawned the person (you) whose remark set off their war."
+> <LTABLE 3 "How can I get the awl?" "Just TAKE AWL!"
+"Then solve the puzzle involving the giant dog."> <LTABLE 3
+"How do I not get eaten by the dog?" "The dog really isn't a giant dog."
+"It's a normal-sized dog. The spaceship you're aboard is microscopic."
+"Have you seen a dog anywhere else?"
+"This is the very same dog you ran into in the Country Lane back at the beginning of the game."
+"The dog swallows the space fleet for one particular reason."
+"If you examine the dog at the beginning of the game, you'll notice that it's very hungry."
+"You need to feed the dog back at the beginning of the game."
+"If you want to avoid starting over from the beginning, there's another way to feed the dog."
+"You must become Ford Prefect first."
+"During the scene where you're Ford, buy a sandwich, then give the sandwich to Arthur. When Arthur dashes out of the Pub, he'll feed the sandwich to the dog."
+"Once the dog has been fed, you can survive the War Chamber scene and go on to the Maze."
+> <LTABLE 3 "Where is this Maze?" "Synapses? Gray Matter?"
+"Remember you were just teleported over from a microscopic space fleet..."
+"...so you must be microscopic-sized yourself." "You're inside a brain."
+"Ah, but whose brain?"
+"Remember, the Vl'Hurgs and G'Gugvunts were teleporting you back to the Heart of Gold."
+"You are, improbably enough, inside your own brain!"> <LTABLE 3
+"Can the Maze be mapped?" "No. The Maze is totally unmappable."
+"In fact, the directions in the Maze are totally random, so it makes no difference which direction you move in."
+"The third time you successfully move to a new Maze room (as opposed to being blocked by a synaptic discharge), you'll run across the black particle."
+"If you ignore the particle, you'll run across it again later."> <LTABLE 3
+"What is this black particle for?"
+"Have you read the markings on the particle?"
+"The particle is your own common sense!"
+"You have an opportunity here to remove your own common sense."
+"Does that ring a bell?"
+"See the question about no tea in the General Questions section."
+"Taking the particle also has the beneficial side effect of getting you out of the Maze."
+> <LTABLE 3 "Where did the black particle go?"
+"Particle physicists have two theories on what happened to the particle."
+"The first theory states that the particle is too small to see when you recover from being microscopic."
+"The second theory states that the particle was destroyed in the electrical impulse that resulted when you reopened the synapse."
+"Take your pick."> <LTABLE 3 "What's the point of this section?"
+"You should be able to figure it out for yourself."
+"Do you know the answers to all the other questions in this section?"
+"There are two goals for the War Chamber/Maze scene."
+"The first goal is to get the awl."
+"The second goal is to remove your particle of common sense.">> <PLTABLE
+"INSIDE THE WHALE" <LTABLE 3 "Who am I?" "You're still Arthur in this scene.">
+<LTABLE 3 "Where am I?" "You're inside a sperm whale, obviously."
+"Note the sound of rushing air."
+"The Improbability Drive, in one of its nastier coincidences, has transported you inside the very same whale you created when you used the Drive to save the ship during the missile attack."
+"If you recall, the missiles were turned into a sperm whale, which was last seen plummeting through the atmosphere of Magrathea. This explains why, after a few turns, the whale invariably splats (and you along with it)."
+> <LTABLE 3 "How can I get out of the whale?"
+"There are no exits in any direction."
+"If you wait long enough, you'll splat and return to Dark."
+"There's one other way to get out of the whale."
+"It's a method you've used before." "It will also leave you in Dark."
+"Hitchhike using the Thumb."
+"The Thumb is probably broken, though. You'll have to get it fixed by an Engineer robot."
+> <LTABLE 3 "Can I stop the whale from splatting?" "You can't."
+"No matter what you do, you've only got ten moves in the whale before it splats."
+> <LTABLE 3 "How do I get the pot from the whale?"
+"There are two ways to do this." "One way involves the Thumb."
+"The other method involves the thing your aunt gave you which you don't know what it is."
+"To obtain the flowerpot using the thumb, just pick up the pot and hitchhike."
+"For more details, see the question on getting out of the whale."
+"To obtain the flowerpot using the aunt's gift: the aunt's gift has an unusual property you may not have discovered. See the question about the aunt's gift."
+"Just put the flowerpot inside the aunt's gift and then wait until the whale splats. Within a few turns after leaving Dark, the aunt's gift should reappear, containing the pot."
+> <LTABLE 3 "What's the point of the whale?" "Isn't it obvious?"
+"There really isn't much here."
+"The only point of this scene is to get the flowerpot.">> <PLTABLE
+"GENERAL QUESTIONS" <LTABLE 3 "Is there a significance to \"no tea\"?" "Yes."
+"It's a hint that at some point, getting tea will be important."
+"Also, see the question about the screening door in the HEART OF GOLD section."
+> <LTABLE 3 "What is the thing my aunt gave me?" "Have you tried examining it?"
+"Have you tried getting rid of it?"
+"You've probably noticed that it keeps turning up."
+"If you leave it behind, it will pop up about a dozen moves later, sometimes on the ground where you are, sometimes in your inventory, and sometimes in your gown pocket. (The thing will only \"follow\" you when you are Arthur.)"
+"There's something else that you probably haven't noticed about the thing your aunt gave you."
+"You can put things in it. In fact, you can put almost every takeable item into the thing at the same time."
+"This is useful for transporting more objects than you can carry, but it isn't ever necessary to do so."
+"Because of these two properties (auto-return and containment) the thing your aunt gave you provides an alternate solution of one of the puzzles in the game."
+"It's a puzzle toward the very end of the game."
+"It's the puzzle of getting the flowerpot out of the whale."> <LTABLE 3
+"Is the Hitchhiker's Guide important?" "Well, the game IS named after it..."
+"The various entries in the Guide contain all sorts of useful information and hints that you'll need to solve the puzzles in the game."
+"The proper syntax for reading a particular Guide entry is CONSULT GUIDE ABOUT (item). For example, you could type CONSULT GUIDE ABOUT MUSHROOMS."
+"Once you know the solutions to all the puzzles, you could play to the end of the game without ever using the Guide."
+"There are 39 Guide entries in the game. A complete list of the topics appears in the MISCELLANEOUS section."
+> <LTABLE 3 "How does the Thumb work?"
+"The Thumb is an electronic Sub-Etha Auto-Hitching Device. If used properly, it will allow you to hitch rides aboard passing spaceships."
+"You should read the Guide entry on the Thumb."
+"You can examine the Thumb to determine whether a spaceship is within range. (If the lights are flashing, a ship is nearby.)"
+"If a ship is within range, you can transport yourself to the ship (via a matter transference beam) by pushing the green button."
+"If you press the green button when there is no ship around, you'll break the Thumb."
+"Also, the Thumb will break down on its own over the course of the game."
+"If the Thumb is broken, you will not be transported when you press the green button, even if a ship is nearby."
+"A broken Thumb can be mended."
+"To do so, push the red button to summon a repair robot. See the following question for further details on repairing the Thumb."
+"There are three points in the game when you can use the Thumb."
+"The first is near the beginning of the game, when you use it to get to the Vogon ship."
+"The second is in the Airlock of the Vogon ship. It isn't necessary to use the Thumb here, because simply waiting a few turns has the same result."
+"The third is Inside the Sperm Whale. Once again, there's an alternative to using the Thumb, but in this case it's not as simple as just waiting. See the INSIDE THE WHALE section for more information."
+> <LTABLE 3 "How do I fix the thumb?"
+"You can't. Only the Engineer robot can fix the Thumb."
+"Once you've summoned the Engineer robot, SHOW (or GIVE) THE THUMB TO THE ENGINEER ROBOT."
+"If the robot claims that there's nothing wrong with the Thumb, then it wasn't broken."
+"If the Thumb is broken, the Engineer robot won't agree to fix it unless you also SHOW THE GUARANTEE TO THE ENGINEER ROBOT."
+"Actually, you can shortcut by showing the guarantee first."> <LTABLE 3
+"What's this nonsense about fluff?"
+"There does seem to be a lot of it scattered throughout the game."
+"Have you consulted the Guide about fluff?"
+"The ancient legend is of particular interest."
+"There are a total of four pieces of fluff in the game. You'll have to find and obtain all four."
+"Try finding them yourself. When you're stumped, return to this question."
+"Hint: You have four different roles over the course of the game: Arthur, Ford, Trillian, and Zaphod."
+"You can obtain one piece of fluff during each role."
+"A list of all four fluff, and their locations, follows. You shouldn't look at this list unless you're completely stumped, because it will give away a lot."
+"Pocket fluff: in the pocket of your gown at the start of the game. Satchel fluff: inside Ford's satchel (see EARTH, REVISITED). Jacket fluff: on Arthur's jacket (see AT THE PARTY). Seat cushion fluff: under the pilot seat of the speedboat (see ON DAMOGRAN)."
+"Now that you have all four pieces of fluff, any idea what to do with them?"
+"Don't continue until you have the flowerpot."
+"You should plant each piece of fluff in the flowerpot." "Now wait."
+"A tiny plant will sprout around ten moves later."
+"For more information, see the next question."> <LTABLE 3
+"What do I do about the plant?"
+"Left to itself, the tiny sprout will never grow any further."
+"You have nothing to water the plant with."
+"Read the Guide entry on fluff again."
+"Notice that this rare plant once grew on a tropical world."
+"Can you think of anything around that's similar to a tropical environment?"
+"Carry the plant into the sauna." "Now examine the plant."
+"Now see the question about opening the hatch in the Heart of Gold section."> <
+LTABLE 3 "What are all these tools for?" "Have you examined them?"
+"Many of them are rather excitingly high-tech, aren't they?"
+"They don't really have much use..." "...until the very end of the game."
+"See the question about opening the hatch in the Heart of Gold section."
+"Marvin will ask for one of ten different tools."
+"A list of all ten, and their locations, follows. You shouldn't look at this list unless you're completely stumped, because it will give away a lot."
+"Flathead screwdriver: in your Bedroom. Toothbrush: in your Bedroom. Tweezers: inside Trillian's handbag. Molecular hyperwave pincer: on the Bridge. Ionic diffusion rasp: in the Engine Room. Hypersonic pliers: in the Engine Room. Thermo-fusion chisel: in Marvin's Pantry. Laser-assisted monkey wrench: inside the toolbox on the speedboat. Ultra-plasmic vacuum awl: in the War Chamber. Number twelve asteroid paint chipper: you're holding it when you return from your adventure at the end of the Traal scene."
+> <LTABLE 3 "What is the goal of the game?"
+"Have you tried asking some of the other characters in the story?"
+"Have fun, be happy." "Solve all the puzzles, reach the end."
+"The ultimate goal of the game is to step out onto the surface of Magrathea."
+"Knowing this fact is of virtually no help in getting through the game."> <
+LTABLE 3 "How can I read the footnotes?"
+"You obviously didn't read your manual very carefully. That's explained in the section entitled Important Commands."
+>> <PLTABLE "MISCELLANEOUS" <LTABLE 3 "HOW ALL THE POINTS ARE SCORED"
+"This section should only be used as a last resort, or for your own interest after you've completed the game."
+"SCORE  ACTION" "   10  Take the buffered analgesic"
+"    5  Drinking the beer (1st time)" "    5  Drinking the beer (2nd time)"
+"    5  Drinking the beer (3rd time)" "    8   Arriving at the Vogon Hold"
+"   12   Getting the babel fish" "   15   Enjoying the Vogon poetry"
+"   25   Opening the glass case" "   25   Entering the Engine Room"
+"   25   Getting the Interface" "   15   Drinking the beer (as Ford)"
+"   25   Leaving the party with Phil" "   25   Stealing the Heart of Gold"
+"   25   Taking the black particle" "  100   Drinking the tea"
+"   25   Entering Marvin's Pantry" "   25   Blooming the plant"
+"   25   Get Marvin to open the hatch" "  400   TOTAL POINTS"
+"NOTE: You LOSE 30 points each for eating the cheese sandwich, drinking the Advanced Tea Substitute, or turning on the spare Drive while plugged into the large receptacle before the missile attack begins."
+> <LTABLE 3 "FOR YOUR AMUSEMENT"
+"You shouldn't develop anything in this section until you've finished the game. Things in the section will invariably give away the answers to puzzles in the game."
+"Have you tried..." "looking under your bed?"
+"enjoying the mud while you're lying in front of the bulldozer?"
+"to PHONE HOME from your bedroom?" "asking Prosser for the time?"
+"to GET DRUNK in the pub?" "buying peanuts (as Arthur)?"
+"listening to the jukebox music (several times, then again when you're Ford)?"
+"petting or kicking the dog?"
+"feeding peanuts to the dog? (You can only do this as Ford, of course.)"
+"hitting Prosser (before and after your house is demolished)?"
+"enjoying your house after it's been demolished?"
+"asking PROSSER, WHAT ABOUT MY HOME after it's been demolished?"
+"giving the towel, the thing your aunt gave you, or the satchel to Prosser? (You can only do the last one when you're Ford, of course.)"
+"talking to Prosser after the Vogon fleet has arrived?"
+"eating the cheese sandwich when you're Ford?"
+"going straight to the Pub when you're Ford, instead of giving Arthur the towel, and then waiting a few turns?"
+"yelling in the Dark?"
+"waiting about 60 turns in Dark to see the hints you get?"
+"not eating the peanuts in the Vogon Hold?"
+"drinking the Santraginean Mineral Water?"
+"asking FORD, WHAT ABOUT THE EARTH once it's been destroyed?"
+"enjoying the Vogon poetry without the babel fish?"
+"opening the hatch in the Heart of Gold before landing on Magrathea?"
+"kicking the screening door, then entering Marvin's Pantry?"
+"closing the screening door once you've opened it?"
+"reading the tiny message on the circuit board with the magnifying glass?"
+"smashing the circuit board?"
+"turning on the spare Drive, plugged into the control panel, before the missile attack begins?"
+"turning on the spare Drive during the missile attack, without first plugging it into the control panel?"
+"asking Eddie to open the hatch after the ship has landed?"
+"not going to the Access Space after asking Marvin to fix the hatch?"
+"saying something other than your name when the Beast asks for it?"
+"saying your name with the towel over your eyes?"
+"to CARVE NAME ON MEMORIAL (rather than CARVE MY NAME ON MEMORIAL)?"
+"carving one of the names suggested by the previous item?"
+"carving the Beast's name on the memorial?"
+"reading the memorial (both before and after carving your name)?"
+"showing the thing your aunt gave you to the Beast?"
+"waking the sleeping Beast?" "drinking the wine at the party?"
+"eating one of the hors d'oeuvres? (Try several times.)"
+"throwing the glass of wine or the plate of hors d'oeuvres?"
+"to PICK UP ARTHUR or PICK UP PHIL at the party?"
+"jumping into the water from the Presidential Speedboat?"
+"throwing something into the water from the boat?"
+"shooting the crowd, the guards, Trillian, yourself, the toolbox?"
+"ordering GUARDS, SHOOT both before and after they've dropped their photon rifles?"
+"examining the approaching star system and the third planet from the War Chamber of the battle fleet?"
+"talking to the Vl'Hurg leader or G'Gugvunt leader?"
+"dropping something in the Maze (your brain) and then walking around once you've gotten out?"
+"talking to the bulldozer driver, the Vogon Captain, or the hostess?"
+"closing the thing your aunt gave you?"
+"wrapping the towel around your head anywhere except Traal?"
+"typing I AM ARTHUR DENT to the game (as opposed to while talking to a character in the game)?"
+"pushing the red button on the Thumb when an Engineer robot is already present?"
+"counting the hors d'oeuvres, the crowd at the Dais, or the guards (at various points)?"
+"typing PANIC?  How about DON'T PANIC?"
+"typing DON'T LOOK or DON'T WAIT or DON'T (anything else)?"
+"typing GIVE UP or THROW IN THE TOWEL or PULL MYSELF TOGETHER?"
+"brushing your teeth with the toothbrush?" "typing ESCAPE at any point?"
+"filling anything?"
+"returning to various scenes after you've successfully completed them? Examples: returning to Damogran after stealing the Heart of Gold. Returning to Traal after getting the interface."
+"typing APPLAUD at any point (other than during the poetry reading)?"
+"answering the game's various rhetorical questions, such as \"Did you have a particular direction in mind?\" or \"Don't you think it would be a bad idea to leave the ceremonies?\", by typing YES or NO?"
+"typing APPRECIATE [something]?"
+"asking various characters about the object of the game? (Especially Prosser, Ford, Marvin, Eddie, the Nutrimat, the screening door, and the Beast.)"
+> <LTABLE 3 "GUIDE ENTRIES"
+"Here's a complete list of things that you can CONSULT the Hitchhiker's Guide about. You should use it only as a last resort, or for your interest once you've finished the game."
+"ALCOHOL" "ATOMIC VECTOR PLOTTER" "BABEL FISH" "BROWNIAN MOTION" "DAMOGRAN"
+"EARTH" "FLUFF" "FRANCE" "GALACTIC SECURITY AGENCY" "GALAXIA WOONBEAM"
+"GENUINE PEOPLE PERSONALITIES" "GREEN BUTTON" "HEART OF GOLD"
+"HITCHHIKER'S GUIDE" "IMPROBABILITY DRIVES" "INFOCOM" "INTELLIGENCE"
+"LARGE PLUG" "LONG DANGLY BIT" "MAGRATHEA" "MATTER TRANSFERENCE BEAMS"
+"NUTRIMAT" "PAN-GALACTIC GARGLE BLASTER" "PERIL-SENSITIVE SUNGLASSES" "PROTEIN"
+"RAVENOUS BUGBLATTER BEAST OF TRAAL" "RED BUTTON" "SANTRAGINEAN MINERAL WATER"
+"SIRIUS CYBERNETICS CORPORATION" "SMALL PLUG" "SMALL RECEPTACLE" "SPACE"
+"THUMB" "TOWEL" "VOGON POETRY" "VOGONS" "WALKING" "various tools"
+"various weapons"> <LTABLE 3 "FOOTNOTES"
+"The section tells where each footnote is referenced in the game. Once again, you shouldn't develop this section until you've finished."
+"FN# HOW TO GET IT" " 1  ENJOY THE DARKNESS in the Dark"
+" 2  Type FORD, WHAT ABOUT MY HOUSE?" " 3  Upon arrival at the Speedboat"
+" 4  Listen to the music in the Pub" " 5  Remove the towel (beast asleep)"
+" 6  Type FOOTNOTE without any number" " 7  Shoot the Beast three times"
+" 8  Consult the Guide about fluff" " 9  ASK GUIDE ABOUT SPACE in space"
+"10  Looking in the Engine Room" "11  This footnote is not referenced"
+"12  This footnote is self referenced" "13  Push the autopilot button thrice"
+"14  When Ford hands you the Guide" "15  Read the banner at the Dais">>>> 
\ No newline at end of file
diff --git a/hints.zap b/hints.zap
new file mode 100644
index 0000000..7a96696
--- /dev/null
+++ b/hints.zap
@@ -0,0 +1,320 @@
+
+
+	.FUNCT	V-HINTS-NO
+	EQUAL?	PRSO,ROOMS /?CCL3
+	PRINTI	"I don't understand what you mean."
+	CRLF	
+	RETURN	2
+?CCL3:	SET	'HINTS-OFF,TRUE-VALUE
+	PRINTI	"[Hints have been disallowed for this session.]"
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-HINTS,CHR,MAXC,C,Q,WHO
+?FCN:	ZERO?	HINTS-OFF /?CCL3
+	ICALL	PERFORM,V?HINTS-NO,ROOMS
+	RETURN	2
+?CCL3:	ZERO?	HINT-WARNING \?CND1
+	SET	'HINT-WARNING,TRUE-VALUE
+	PRINTI	"[Warning: It is recognized that the temptation for help may at times be so exceedingly strong that you might fetch hints prematurely. Therefore, you may at any time during the story type HINTS OFF, and this will disallow the seeking out of help for the present session of the story. If you still want a hint now, indicate HINT.]"
+	CRLF	
+	RETURN	2
+?CND1:	GET	HINTS,0 >MAXC
+	ICALL1	INIT-HINT-SCREEN
+	CURSET	5,1
+	ICALL1	PUT-UP-CHAPTERS
+	SUB	CHAPT-NUM,1 >CUR-POS
+	ICALL1	NEW-CURSOR
+?PRG11:	INPUT	1 >CHR
+	EQUAL?	CHR,81,113 \?CCL15
+	SET	'Q,TRUE-VALUE
+	JUMP	?REP12
+?CCL15:	EQUAL?	CHR,78,110 \?CCL17
+	ICALL1	ERASE-CURSOR
+	EQUAL?	CHAPT-NUM,MAXC \?CCL20
+	SET	'CUR-POS,0
+	SET	'CHAPT-NUM,1
+	SET	'QUEST-NUM,1
+	JUMP	?CND18
+?CCL20:	INC	'CUR-POS
+	INC	'CHAPT-NUM
+	SET	'QUEST-NUM,1
+?CND18:	ICALL1	NEW-CURSOR
+	JUMP	?PRG11
+?CCL17:	EQUAL?	CHR,80,112 \?CCL22
+	ICALL1	ERASE-CURSOR
+	EQUAL?	CHAPT-NUM,1 \?CCL25
+	SET	'CHAPT-NUM,MAXC
+	SUB	CHAPT-NUM,1 >CUR-POS
+	SET	'QUEST-NUM,1
+	JUMP	?CND23
+?CCL25:	DEC	'CUR-POS
+	DEC	'CHAPT-NUM
+	SET	'QUEST-NUM,1
+?CND23:	ICALL1	NEW-CURSOR
+	JUMP	?PRG11
+?CCL22:	EQUAL?	CHR,13,10 \?PRG11
+	ICALL1	PICK-QUESTION
+?REP12:	ZERO?	Q /?FCN
+	CLEAR	-1
+	ICALL1	INIT-STATUS-LINE
+	CRLF	
+	PRINTI	"Back to the story..."
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	PICK-QUESTION,CHR,MAXQ,Q
+?FCN:	ICALL2	INIT-HINT-SCREEN,FALSE-VALUE
+	ICALL	LEFT-LINE,3,STR?237
+	ICALL	RIGHT-LINE,3,STR?238,13
+	GET	HINTS,CHAPT-NUM
+	GET	STACK,0
+	SUB	STACK,1 >MAXQ
+	CURSET	5,1
+	ICALL1	PUT-UP-QUESTIONS
+	SUB	QUEST-NUM,1 >CUR-POS
+	ICALL1	NEW-CURSOR
+?PRG1:	INPUT	1 >CHR
+	EQUAL?	CHR,81,113 \?CCL5
+	SET	'Q,TRUE-VALUE
+	JUMP	?REP2
+?CCL5:	EQUAL?	CHR,78,110 \?CCL7
+	ICALL1	ERASE-CURSOR
+	EQUAL?	QUEST-NUM,MAXQ \?CCL10
+	SET	'CUR-POS,0
+	SET	'QUEST-NUM,1
+	JUMP	?CND8
+?CCL10:	INC	'CUR-POS
+	INC	'QUEST-NUM
+?CND8:	ICALL1	NEW-CURSOR
+	JUMP	?PRG1
+?CCL7:	EQUAL?	CHR,80,112 \?CCL12
+	ICALL1	ERASE-CURSOR
+	EQUAL?	QUEST-NUM,1 \?CCL15
+	SET	'QUEST-NUM,MAXQ
+	SUB	QUEST-NUM,1 >CUR-POS
+	JUMP	?CND13
+?CCL15:	DEC	'CUR-POS
+	DEC	'QUEST-NUM
+?CND13:	ICALL1	NEW-CURSOR
+	JUMP	?PRG1
+?CCL12:	EQUAL?	CHR,13,10 \?PRG1
+	ICALL1	DISPLAY-HINT
+?REP2:	ZERO?	Q /?FCN
+	RFALSE	
+
+
+	.FUNCT	ERASE-CURSOR,?TMP1
+	GET	LINE-TABLE,CUR-POS >?TMP1
+	GET	COLUMN-TABLE,CUR-POS
+	SUB	STACK,2
+	CURSET	?TMP1,STACK
+	PRINTC	32
+	RTRUE	
+
+
+	.FUNCT	NEW-CURSOR,?TMP1
+	GET	LINE-TABLE,CUR-POS >?TMP1
+	GET	COLUMN-TABLE,CUR-POS
+	SUB	STACK,2
+	CURSET	?TMP1,STACK
+	PRINTC	62
+	RTRUE	
+
+
+	.FUNCT	INVERSE-LINE,CENTER-HALF
+	HLIGHT	H-INVERSE
+	GETB	0,33
+	ICALL2	PRINT-SPACES,STACK
+	HLIGHT	H-NORMAL
+	RTRUE	
+
+
+	.FUNCT	DISPLAY-HINT,H,MX,MXC,CNT,CHR,FLG,N,?TMP1
+	SET	'CNT,2
+	SET	'FLG,TRUE-VALUE
+	CLEAR	-1
+	SPLIT	3
+	SCREEN	S-WINDOW
+	CURSET	1,1
+	ICALL1	INVERSE-LINE
+	ICALL	CENTER-LINE,1,STR?239,16
+	CURSET	3,1
+	ICALL1	INVERSE-LINE
+	ICALL	LEFT-LINE,3,STR?237
+	ICALL	RIGHT-LINE,3,STR?240,17
+	CURSET	2,1
+	ICALL1	INVERSE-LINE
+	HLIGHT	H-BOLD
+	GET	HINTS,CHAPT-NUM >?TMP1
+	ADD	QUEST-NUM,1
+	GET	?TMP1,STACK >H
+	GET	H,2
+	ICALL	CENTER-LINE,2,STACK
+	HLIGHT	H-NORMAL
+	GET	H,0 >MX
+	GET	HINTS,0 >MXC
+	SCREEN	S-TEXT
+	CRLF	
+?PRG1:	GET	H,1
+	EQUAL?	CNT,STACK /?PRG8
+	GET	H,CNT
+	PRINT	STACK
+	CRLF	
+	INC	'CNT
+	JUMP	?PRG1
+?PRG8:	ZERO?	FLG /?CCL12
+	GRTR?	CNT,MX \?CCL12
+	SET	'FLG,FALSE-VALUE
+	PRINTI	"[That's all.]"
+	CRLF	
+	JUMP	?CND10
+?CCL12:	ZERO?	FLG /?CND10
+	SUB	MX,CNT
+	ADD	STACK,1 >N
+	EQUAL?	CHAPT-NUM,MXC /?PRG28
+	PRINTN	N
+	PRINTI	" hint"
+	EQUAL?	N,1 /?PRG26
+	PRINTC	115
+?PRG26:	PRINTI	" left "
+?PRG28:	PRINTI	"-> "
+	SET	'FLG,FALSE-VALUE
+?CND10:	INPUT	1 >CHR
+	EQUAL?	CHR,81,113 \?CCL32
+	PUT	H,1,CNT
+	RTRUE	
+?CCL32:	EQUAL?	CHR,13,10 \?PRG8
+	GRTR?	CNT,MX /?PRG8
+	SET	'FLG,TRUE-VALUE
+	GET	H,CNT
+	PRINT	STACK
+	CRLF	
+	IGRTR?	'CNT,MX \?PRG8
+	SET	'FLG,FALSE-VALUE
+	PRINTI	"[That's all.]"
+	CRLF	
+	JUMP	?PRG8
+
+
+	.FUNCT	PUT-UP-QUESTIONS,ST,MXQ,MXL,?TMP1
+	SET	'ST,1
+	GET	HINTS,CHAPT-NUM
+	GET	STACK,0
+	SUB	STACK,1 >MXQ
+	GETB	0,32
+	SUB	STACK,1 >MXL
+?PRG1:	GRTR?	ST,MXQ /TRUE
+	SUB	ST,1
+	GET	LINE-TABLE,STACK >?TMP1
+	SUB	ST,1
+	GET	COLUMN-TABLE,STACK
+	SUB	STACK,1
+	CURSET	?TMP1,STACK
+	PRINTC	32
+	GET	HINTS,CHAPT-NUM >?TMP1
+	ADD	ST,1
+	GET	?TMP1,STACK
+	GET	STACK,2
+	PRINT	STACK
+	INC	'ST
+	JUMP	?PRG1
+
+
+	.FUNCT	PUT-UP-CHAPTERS,ST,MXC,MXL,?TMP1
+	SET	'ST,1
+	GET	HINTS,0 >MXC
+	GETB	0,32
+	SUB	STACK,1 >MXL
+?PRG1:	GRTR?	ST,MXC /TRUE
+	SUB	ST,1
+	GET	LINE-TABLE,STACK >?TMP1
+	SUB	ST,1
+	GET	COLUMN-TABLE,STACK
+	SUB	STACK,1
+	CURSET	?TMP1,STACK
+	PRINTC	32
+	GET	HINTS,ST
+	GET	STACK,1
+	PRINT	STACK
+	INC	'ST
+	JUMP	?PRG1
+
+
+	.FUNCT	INIT-HINT-SCREEN,THIRD
+	ASSIGNED?	'THIRD /?CND1
+	SET	'THIRD,TRUE-VALUE
+?CND1:	CLEAR	-1
+	GETB	0,32
+	SUB	STACK,1
+	SPLIT	STACK
+	SCREEN	S-WINDOW
+	CURSET	1,1
+	ICALL1	INVERSE-LINE
+	CURSET	2,1
+	ICALL1	INVERSE-LINE
+	CURSET	3,1
+	ICALL1	INVERSE-LINE
+	ICALL	CENTER-LINE,1,STR?239,16
+	ICALL	LEFT-LINE,2,STR?241
+	ICALL	RIGHT-LINE,2,STR?242,12
+	ZERO?	THIRD /FALSE
+	ICALL	LEFT-LINE,3,STR?243
+	CALL	RIGHT-LINE,3,STR?244,16
+	RSTACK	
+
+
+	.FUNCT	CENTER-LINE,LN,STR,LEN,INV
+	ASSIGNED?	'INV /?CND1
+	SET	'INV,TRUE-VALUE
+?CND1:	ZERO?	LEN \?CND3
+	DIROUT	D-TABLE-ON,DIROUT-TBL
+	PRINT	STR
+	DIROUT	D-TABLE-OFF
+	GET	DIROUT-TBL,0 >LEN
+?CND3:	GETB	0,33
+	SUB	STACK,LEN
+	DIV	STACK,2
+	ADD	STACK,1
+	CURSET	LN,STACK
+	ZERO?	INV /?PRG9
+	HLIGHT	H-INVERSE
+?PRG9:	PRINT	STR
+	ZERO?	INV /FALSE
+	HLIGHT	H-NORMAL
+	RTRUE	
+
+
+	.FUNCT	LEFT-LINE,LN,STR,INV
+	ASSIGNED?	'INV /?CND1
+	SET	'INV,TRUE-VALUE
+?CND1:	CURSET	LN,1
+	ZERO?	INV /?PRG5
+	HLIGHT	H-INVERSE
+?PRG5:	PRINT	STR
+	ZERO?	INV /FALSE
+	HLIGHT	H-NORMAL
+	RTRUE	
+
+
+	.FUNCT	RIGHT-LINE,LN,STR,LEN,INV
+	ASSIGNED?	'INV /?CND1
+	SET	'INV,TRUE-VALUE
+?CND1:	ZERO?	LEN \?CND3
+	DIROUT	3,DIROUT-TBL
+	PRINT	STR
+	DIROUT	-3
+	GET	DIROUT-TBL,0 >LEN
+?CND3:	GETB	0,33
+	SUB	STACK,LEN
+	CURSET	LN,STACK
+	ZERO?	INV /?PRG9
+	HLIGHT	H-INVERSE
+?PRG9:	PRINT	STR
+	ZERO?	INV /FALSE
+	HLIGHT	H-NORMAL
+	RTRUE	
+
+	.ENDI
diff --git a/hints.zil b/hints.zil
new file mode 100644
index 0000000..7b78672
--- /dev/null
+++ b/hints.zil
@@ -0,0 +1,1307 @@
+"HINTS for HITCHHIKERS GUIDE TO THE GALAXY
+(c) Copyright 1987 Infocom, Inc.  All Rights Reserved."
+
+<FILE-FLAGS CLEAN-STACK?>
+
+<GLOBAL HINT-WARNING <>>
+
+<GLOBAL HINTS-OFF <>>
+
+<ROUTINE V-HINTS-NO ()
+	<COND (<NOT <PRSO? ,ROOMS>>
+	       <TELL "I don't understand what you mean." CR>)
+	      (T
+	       <SETG HINTS-OFF T>
+	       <TELL "[Hints have been disallowed for this session.]" CR>)>
+	<RFATAL>>
+
+<ROUTINE V-HINTS ("AUX" CHR MAXC (C <>) Q WHO)
+	<COND (,HINTS-OFF
+	       <PERFORM ,V?HINTS-NO ,ROOMS>
+	       <RFATAL>)
+	      (<NOT ,HINT-WARNING>
+	       <SETG HINT-WARNING T>
+	       <TELL
+"[Warning: It is recognized that the temptation for help may at times be so
+exceedingly strong that you might fetch hints prematurely. Therefore, you may
+at any time during the story type HINTS OFF, and this will disallow the
+seeking out of help for the present session of the story. If you still want a
+hint now, indicate HINT.]" CR>
+	       <RFATAL>)>
+       	<SET MAXC <GET ,HINTS 0>>
+	<INIT-HINT-SCREEN>
+	<CURSET 5 1>
+	<PUT-UP-CHAPTERS>
+	<SETG CUR-POS <- ,CHAPT-NUM 1>>
+	<NEW-CURSOR>
+	<REPEAT ()
+		<SET CHR <INPUT 1>>
+		<COND (<EQUAL? .CHR %<ASCII !\Q> %<ASCII !\q>>
+		       <SET Q T>
+		       <RETURN>)
+		      (<EQUAL? .CHR %<ASCII !\N> %<ASCII !\n>>
+		       <ERASE-CURSOR>
+		       <COND (<EQUAL? ,CHAPT-NUM .MAXC>
+			      <SETG CUR-POS 0>
+			      <SETG CHAPT-NUM 1>
+			      <SETG QUEST-NUM 1>)
+			     (T 
+			      <SETG CUR-POS <+ ,CUR-POS 1>>
+			      <SETG CHAPT-NUM <+ ,CHAPT-NUM 1>>
+			      <SETG QUEST-NUM 1>)>
+		       <NEW-CURSOR>)
+		      (<EQUAL? .CHR %<ASCII !\P> %<ASCII !\p>>
+		       <ERASE-CURSOR>
+		       <COND (<EQUAL? ,CHAPT-NUM 1>
+			      <SETG CHAPT-NUM .MAXC>
+			      <SETG CUR-POS <- ,CHAPT-NUM 1>>
+			      <SETG QUEST-NUM 1>)
+			     (T
+			      <SETG CUR-POS <- ,CUR-POS 1>>
+			      <SETG CHAPT-NUM <- ,CHAPT-NUM 1>>
+			      <SETG QUEST-NUM 1>)>
+		       <NEW-CURSOR>)
+		      (<EQUAL? .CHR 13 10>
+		       <PICK-QUESTION>
+		       <RETURN>)>>
+	<COND (<NOT .Q>
+	       <AGAIN>	;"AGAIN does whole routine?")>
+	<CLEAR -1>
+	<INIT-STATUS-LINE>
+	<TELL CR "Back to the story..." CR>
+	<RFATAL>>
+
+
+<ROUTINE PICK-QUESTION ("AUX" CHR MAXQ (Q <>))
+	<INIT-HINT-SCREEN <>>
+	<LEFT-LINE 3 " RETURN = See hint">
+	<RIGHT-LINE 3 "Q = Main menu" %<LENGTH "Q = Main menu">>
+	<SET MAXQ <- <GET <GET ,HINTS ,CHAPT-NUM> 0> 1>>
+	<CURSET 5 1>
+	<PUT-UP-QUESTIONS>
+	<SETG CUR-POS <- ,QUEST-NUM 1>>
+	<NEW-CURSOR>
+	<REPEAT ()
+		<SET CHR <INPUT 1>>
+		<COND (<EQUAL? .CHR %<ASCII !\Q> %<ASCII !\q>>
+		       <SET Q T>
+		       <RETURN>)
+		      (<EQUAL? .CHR %<ASCII !\N> %<ASCII !\n>>
+		       <ERASE-CURSOR>
+		       <COND (<EQUAL? ,QUEST-NUM .MAXQ>
+			      <SETG CUR-POS 0>
+			      <SETG QUEST-NUM 1>)
+			     (T
+			      <SETG CUR-POS <+ ,CUR-POS 1>>
+			      <SETG QUEST-NUM <+ ,QUEST-NUM 1>>)>
+		       <NEW-CURSOR>)
+		      (<EQUAL? .CHR %<ASCII !\P> %<ASCII !\p>>
+		       <ERASE-CURSOR>
+		       <COND (<EQUAL? ,QUEST-NUM 1>
+			      <SETG QUEST-NUM .MAXQ>
+			      <SETG CUR-POS <- ,QUEST-NUM 1>>)
+			     (T
+			      <SETG CUR-POS <- ,CUR-POS 1>> 
+			      <SETG QUEST-NUM <- ,QUEST-NUM 1>>)>
+		       <NEW-CURSOR>)
+		      (<EQUAL? .CHR 13 10>
+		       <DISPLAY-HINT>
+		       <RETURN>)>>
+	<COND (<NOT .Q>
+	       <AGAIN>)>>
+
+;"zeroth (first) element is 5"
+<GLOBAL LINE-TABLE
+	<PTABLE
+	  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22>>
+
+;"zeroth (first) element is 4"
+<GLOBAL COLUMN-TABLE
+	<PTABLE
+	  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4>>
+
+<GLOBAL CUR-POS 0>	;"determines where to place the highlight cursor
+			  Can go up to 17 Questions"
+
+<GLOBAL QUEST-NUM 1>	;"shows in HINT-TBL ltable which QUESTION it's on"
+
+<GLOBAL CHAPT-NUM 1>	;"shows in HINT-TBL ltable which CHAPTER it's on"
+
+<ROUTINE ERASE-CURSOR ()
+	<CURSET <GET ,LINE-TABLE ,CUR-POS>
+		<- <GET ,COLUMN-TABLE ,CUR-POS> 2 ;1>>
+	<TELL " ">	;"erase previous highlight cursor">
+
+;"go back 2 spaces from question text, print cursor and flash is between
+the cursor and text"
+
+<ROUTINE NEW-CURSOR ()
+	<CURSET <GET ,LINE-TABLE ,CUR-POS>
+		<- <GET ,COLUMN-TABLE ,CUR-POS> 2 ;1>>
+	<TELL ">">	;"print the new cursor">
+
+<ROUTINE INVERSE-LINE ("AUX" (CENTER-HALF <>)) 
+	<HLIGHT ,H-INVERSE>
+	<PRINT-SPACES <LOWCORE SCRH>>
+	<HLIGHT ,H-NORMAL>>
+
+;"cnt (3) is where in table answers begin. (2) in table is # of hints-seen"
+<ROUTINE DISPLAY-HINT ("AUX" H MX MXC (CNT 2) CHR (FLG T) N)
+	;<SPLIT 0>
+	<CLEAR -1>
+	<SPLIT 3>
+	<SCREEN ,S-WINDOW>
+	<CURSET 1 1>
+	<INVERSE-LINE>
+	<CENTER-LINE 1 "INVISICLUES (tm)" %<LENGTH "INVISICLUES (tm)">>
+	<CURSET 3 1>
+	<INVERSE-LINE>
+	<LEFT-LINE 3 " RETURN = See hint">
+	<RIGHT-LINE 3 "Q = See hint menu" %<LENGTH "Q = See hint menu">>
+	<CURSET 2 1>
+	<INVERSE-LINE>
+	<HLIGHT ,H-BOLD>
+	<SET H <GET <GET ,HINTS ,CHAPT-NUM> <+ ,QUEST-NUM 1>>>
+	<CENTER-LINE 2 <GET .H 2>>
+	<HLIGHT ,H-NORMAL>
+	<SET MX <GET .H 0>>
+	<SET MXC <GET ,HINTS 0>> 
+	<SCREEN ,S-TEXT>
+	<CRLF>
+	<REPEAT ()
+	       <COND (<EQUAL? .CNT <GET .H 1>>
+		      <RETURN>)
+		     (T
+		      <TELL <GET .H .CNT> CR ;CR>
+		      <SET CNT <+ .CNT 1>>)>>
+	<REPEAT ()
+	      <COND (<AND .FLG <G? .CNT .MX>>
+		     <SET FLG <>>
+		     <TELL "[That's all.]" CR>)
+		    (.FLG
+		     <SET N <+ <- .MX .CNT> 1>> ;"added +1 - Jeff"
+		     <COND (<NOT <EQUAL? ,CHAPT-NUM .MXC>> ;"add cond-GARY" 
+		            <TELL N .N " hint">
+		            <COND (<NOT <EQUAL? .N 1>>
+			           <TELL "s">)>
+		            <TELL " left " ;CR ;CR>)> ;"removed CRs - GARY"
+		     <TELL "-> ">
+		     <SET FLG <>>)>
+	      <SET CHR <INPUT 1>>
+	      <COND (<EQUAL? .CHR %<ASCII !\Q> %<ASCII !\q>>
+		     <PUT .H 1 .CNT>
+		     <RETURN>)
+		    (<EQUAL? .CHR 13 10>
+		     <COND (<NOT <G? .CNT .MX>>
+			    <SET FLG T>	;".cnt starts as 3" 
+			    <TELL <GET .H .CNT>>
+			    ;<CRLF> ;"extra CRLF removed by GARY"
+			    <CRLF>
+			    <SET CNT <+ .CNT 1>>
+			    <COND (<G? .CNT .MX>
+				   <SET FLG <>>
+				   <TELL "[That's all.]" CR>)>)>)>>>
+
+<ROUTINE PUT-UP-QUESTIONS ("AUX" (ST 1) MXQ MXL)
+	<SET MXQ <- <GET <GET ,HINTS ,CHAPT-NUM> 0> 1>>
+	<SET MXL <- <LOWCORE SCRV> 1>>
+	<REPEAT ()
+		<COND (<G? .ST .MXQ>
+		       <RETURN>)
+		      (T                        ;"zeroth"
+		       <CURSET <GET ,LINE-TABLE <- .ST 1>>
+			       <- <GET ,COLUMN-TABLE <- .ST 1>> 1>>)>
+		<TELL " " <GET <GET <GET ,HINTS ,CHAPT-NUM> <+ .ST 1>> 2>>
+		<SET ST <+ .ST 1>>>>
+
+<ROUTINE PUT-UP-CHAPTERS ("AUX" (ST 1) MXC MXL)
+	<SET MXC <GET ,HINTS 0>>
+	<SET MXL <- <LOWCORE SCRV> 1>>
+	<REPEAT ()
+		<COND (<G? .ST .MXC>
+		       <RETURN>)
+		      (T                        ;"zeroth"
+		       <CURSET <GET ,LINE-TABLE <- .ST 1>>
+			       <- <GET ,COLUMN-TABLE <- .ST 1>> 1>>)>
+		<TELL " " <GET <GET ,HINTS .ST> 1>>
+		<SET ST <+ .ST 1>>>>
+
+<ROUTINE INIT-HINT-SCREEN ("OPTIONAL" (THIRD T))
+	;<SPLIT 0>
+	<CLEAR -1>
+	<SPLIT <- <GETB 0 32> 1>>
+	<SCREEN ,S-WINDOW>
+	<CURSET 1 1>
+	<INVERSE-LINE>
+	<CURSET 2 1>
+	<INVERSE-LINE>
+	<CURSET 3 1>
+	<INVERSE-LINE>
+	<CENTER-LINE 1 "INVISICLUES (tm)" %<LENGTH "INVISICLUES (tm)">>
+	<LEFT-LINE 2 " N = Next">
+	<RIGHT-LINE 2 "P = Previous" %<LENGTH "P = Previous">>
+	<COND (<T? .THIRD>
+	      <LEFT-LINE 3 " RETURN = See topics">
+	      <RIGHT-LINE 3 "Q = Resume story" %<LENGTH "Q = Resume story">>)>>
+
+<ROUTINE CENTER-LINE (LN STR "OPTIONAL" (LEN 0) (INV T))
+	<COND (<ZERO? .LEN>
+	       <DIROUT ,D-TABLE-ON ,DIROUT-TBL>
+	       <TELL .STR>
+	       <DIROUT ,D-TABLE-OFF>
+	       <SET LEN <GET ,DIROUT-TBL 0>>)>
+	<CURSET .LN <+ </ <- <LOWCORE SCRH> .LEN> 2> 1>>
+	<COND (.INV
+	       <HLIGHT ,H-INVERSE>)>
+	<TELL .STR>
+	<COND (.INV
+	       <HLIGHT ,H-NORMAL>)>>
+
+<ROUTINE LEFT-LINE (LN STR "OPTIONAL" (INV T))
+	<CURSET .LN 1>
+	<COND (.INV
+	       <HLIGHT ,H-INVERSE>)>
+	<TELL .STR>
+	<COND (.INV
+	       <HLIGHT ,H-NORMAL>)>>
+
+<ROUTINE RIGHT-LINE (LN STR "OPTIONAL" (LEN 0) (INV T))
+	<COND (<ZERO? .LEN>
+	       <DIROUT 3 ,DIROUT-TBL>
+	       <TELL .STR>
+	       <DIROUT -3>
+	       <SET LEN <GET ,DIROUT-TBL 0>>)>
+	<CURSET .LN <- <LOWCORE SCRH> .LEN>>
+	<COND (.INV
+	       <HLIGHT ,H-INVERSE>)>
+	<TELL .STR>
+	<COND (.INV
+	       <HLIGHT ,H-NORMAL>)>>
+
+<GLOBAL DIROUT-TBL
+	<TABLE 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+	       0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 >>
+
+;"longest hint topic can be 17 questions long, longest question 36 characters"
+
+<GLOBAL HINTS
+   <PLTABLE
+    ;"Table of chapters."
+      <PLTABLE 
+       "ON THE EARTH"
+         <LTABLE 3
+	  "How do I get out of the dark?"
+      	  "TURN ON THE LIGHT.">
+	 <LTABLE 3
+       	  "Why can't I pick things up?"
+	  "Are you out of the bed with the light on?"
+	  "The room is spinning because you have a hangover."
+	  "There is ONE thing you can pick up."
+	  "It's the gown.">
+	 <LTABLE 3
+	  "How can I get out of the bedroom?"
+	  "You bounce off the doorframe because the room is spinning from your hangover."
+	  "You'll have to get rid of it."
+	  "See the previous question."
+	  "There's an aspirin in the pocket of the gown."
+	  "TAKE GOWN. PUT IT ON. OPEN THE POCKET. TAKE THE ANALGESIC.">
+	 <LTABLE 3
+	  "Is the pile of mail important?"
+	  "Have you read the mail?"
+	  "Now you know what's going on outside."
+	  "Take it along, it might prove useful later.">
+	 <LTABLE 3
+	  "What's that bulldozer doing outside?"
+	  "Have you read the pile of mail on your Front Porch?"
+	  "It's there to knock down your house to make way for a new highway bypass.">
+	 <LTABLE 3
+	  "How do I stop the bulldozer?"
+	  "There's a tried and true method for stopping bulldozers."
+	  "Have you tried phoning the police?"
+	  "Have you tried to PROTEST or asked PROSSER, STOP THE BULLDOZER?"
+	  "Have you tried to STAND IN FRONT OF THE BULLDOZER?"
+	  "In case you haven't figured it out from these subtle clues, you want to LIE DOWN IN FRONT OF THE BULLDOZER."
+	  "BLOCK THE BULLDOZER, STOP THE BULLDOZER, or LIE DOWN also work."
+	  "You'll have to wait a few turns after you lie down before the bulldozer finally grinds to a halt.">
+	 <LTABLE 3
+	  "What should I do with Ford Prefect?"
+	  "If you take the towel he's trying to give you, he'll walk away."
+	  "Standing up to follow him is fatal."
+	  "Without Ford you'll never survive the upcoming destruction of the Earth."
+	  "Ford is oblivious to your problem. If you wait, he'll notice the bulldozer, and help you out."
+	  "Or you can say FORD, WHAT ABOUT MY HOME? as soon as he arrives.">
+	 <LTABLE 3
+	  "Should I go with Ford to the Pub?"
+	  "Don't stand up until Prosser is lying down in your place."
+	  "This will happen if you wait a few turns after Ford shows up."
+	  "At this point, listen to Ford and follow him to the Pub.">
+	 <LTABLE 3
+	  "What should I do in the Pub?"
+	  "You came here because of Ford, right?"
+	  "Why not do as he says?"
+	  "Drink some beer."
+	  "Also, have you noticed the shelf of items behind the bar?">
+	 <LTABLE 3
+	  "How much beer should I drink?"
+	  "Ford will keep urging you to drink beer until you've had enough."
+	  "If you have fewer than three beers, the shock of the matter transference beam will kill you."
+	  "If you have more than three beers, you'll get drunk and end up partying through the end of the world."
+	  "Drink the beer three times.">
+	 <LTABLE 3
+	  "How can I buy beer?"
+	  "You can't."
+	  "But so what? Ford buys some for you.">
+	 <LTABLE 3
+	  "How can I buy a packet of peanuts?"
+	  "You can't."
+	  "At least, not when you're Arthur.">
+	 <LTABLE 3
+	  "How can I buy a cheese sandwich?"
+	  "How about BUY A CHEESE SANDWICH."
+	  "Or BARTENDER, GIVE ME A CHEESE SANDWICH."
+	  "Perhaps ASK BARTENDER FOR A SANDWICH is more up your alley.">
+	 <LTABLE 3
+	  "My home's being wrecked. What now?"
+	  "There's not much you can do about it."
+	  "You might return to survey the rubble, or to have it out with Prosser.">
+	 <LTABLE 3
+	  "What should I do about the dog?"
+	  "Have you examined the dog?"
+	  "If you haven't figured it out, you'll find out more later.">
+	 <LTABLE 3
+	  "How do I survive Earth's demolition?"
+	  "DON'T PANIC."
+	  "Read everything carefully."
+	  "Remember Ford's reason for drinking all that beer?"
+	  "It has to do with that small black device that Ford drops after the fleet arrives."
+	  "Have you tried picking it up?"
+	  "Have you tried examining it?"
+	  "You want to hitch a ride aboard one of the Vogon ships."
+	  "PUSH THE GREEN BUTTON.">
+	 <LTABLE 3
+	  "Why do I die during transference?"
+	  "You didn't drink enough beer."
+	  "See the question about how much beer to drink.">>
+      <PLTABLE
+       "IN THE DARK"
+         <LTABLE 3
+	  "Help! I'm stuck in the Dark!"
+	  "If this \"Dark\" is at the very beginning of the game, you're in the wrong place. Look at the very first question."
+	  "You've been through a matter transference beam, and still haven't recovered from the shock of it."
+	  "Recovery takes time..."
+	  "...but in this case, you'll have to do more than just wait.">
+	 <LTABLE 3
+	  "How do I get out of this Dark?"
+	  "Have patience."
+	  "Read carefully."
+	  "If you've waited enough you'll begin to get some clues."
+	  "Read each response to WAITing in the Dark very carefully."
+	  "There's an important difference between the third and fourth responses."
+	  "You are no longer told that you can't smell anything."
+	  "Try SMELL THE DARKNESS or SMELL NOTHING or even just SMELL.">
+	 <LTABLE 3
+	  "What's this shadow I see?"
+	  "That's your way out of Dark."
+	  "EXAMINE THE SHADOW.">
+	 <LTABLE 3
+	  "Help! I'm in the blasted Dark AGAIN!"
+	  "Unless you've been to the Vogon Hold, you're at the wrong question."
+	  "You've been through Dark at least once before, so you know what's going on."
+	  "This time, though, it isn't smell that goes away on the fourth description."
+	  "It's hearing."
+	  "Try HEAR NOTHING or LISTEN TO DARKNESS."
+	  "There is an exit to port. Try going that way."
+	  "Be persistent. Try going PORT a few more times."
+	  "Perhaps AFT would be more productive, come to think of it.">
+	 <LTABLE 3
+	  "Exactly how does Dark work?"
+	  "You enter Dark when Earth is destroyed, and other times throughout the game."
+	  "At the fourth turn in Dark, one of your five senses will disappear."
+	  "You should type the sense that no longer appears, such as SMELL or SEE."
+	  "The first time, smell will go away. See the first question in this section."
+	  "The second time, hearing will go away. See the third question in this section."
+	  "On subsequent visits to Dark, the sense that disappears will be fairly random. See the following question for more details.">
+	 <LTABLE 3
+	  "Can I control my exit from Darkness?"
+	  "Not usually."
+	  "Don't continue until you have a cup of tea."
+	  "Don't continue until you have real tea, not merely Advanced Tea Substitute."
+	  "Have you ever examined the cup of tea?"
+	  "Tea is a better source of Brownian Motion for the Improbability Drive than the Advanced Tea Substitute (ATS). Try it."
+	  "Notice anything different about Dark when you use tea instead of ATS?"
+	  "For one thing, a sense is missing right away, rather than after three WAITs."
+	  "More importantly, with tea, a different sense will be missing each time you WAIT. Thus, you can \"control Dark.\""
+	  "There are eight exits from Dark (taste never goes away), so there are two Dark exits for each missing sense."
+	  "There is a way to differentiate between each pair."
+	  "For example, when smell disappears, type SMELL DARK. If the object is \"being waved,\" then the exit leads to the Vogon Hold. If the object is \"waving,\" the exit is the Lair of the Ravenous Bugblatter Beast of Traal."
+	  "When hearing is missing: If the sound is \"far above you,\" then your exit is Entry Bay Number Two of the Heart of Gold. If it's \"far below you,\" then it's the War Chamber of the battle fleet."
+	  "If seeing is the missing sense: When the light stabs at the \"front\" of your eyes, then your exit is the Country Lane. When it's at the \"back\" of your eyes, then you go onto the Presidential Speedboat."
+	  "When feel is missing: If it feels \"cold\" and wet and squishy, the exit is to the Living Room party. When it's \"warm,\" your exit is into the sperm whale."
+	  "When you are controlling dark and have determined your current exit, but you don't want to go there, simply WAIT and you will get a new missing sense. NOTE: You will never get the whale exit unless you are using real tea for your Brownian Motion source.">>
+      <PLTABLE
+       "THE VOGON SHIP"
+         <LTABLE 3
+	  "Where the heck am I?"
+	  "As your status line says, you are in the Vogon Hold."
+	  "ASK FORD ABOUT THE EARTH."
+	  "The Earth has been destroyed by the Vogon fleet. You and Ford have hitched a ride aboard one of the ships of the Vogon Fleet by using the electronic Sub-Etha signaling device, also known as a Thumb.">
+	 <LTABLE 3
+	  "Why do I get groggy and die?"
+	  "This is caused by your protein loss during the matter transference beams."
+	  "Do you have anything with a lot of protein in it?"
+	  "It's something that Ford just gave you."
+	  "It's frequently found on shelves behind bars in Pubs."
+	  "EAT THE PEANUTS.">
+	 <LTABLE 3
+	  "What's this Guide Ford gives me?"
+	  "That's the Hitchhiker's Guide to the Galaxy."
+	  "It's the single most useful thing an intergalactic hitchhiker (or Infocom game player) can have."
+	  "See the Hitchhiker's Guide question in the General Questions section for more information.">
+	 <LTABLE 3
+	  "How can I wake Ford?"
+	  "Have you tried WAKE FORD?"
+	  "You can't wake Ford."
+	  "You'll have to get the babel fish on your own.">
+	 <LTABLE 3
+	  "How do I open the case?"
+	  "There's a switch and a keyboard attached to the case."
+	  "SAVE first, then try typing on the keyboard. For example, TYPE \"HELLO.\""
+	  "Well, perhaps that wasn't such a great idea. Try flipping the switch."
+	  "If the recording was gibberish, you'll have to find a way to translate it."
+	  "See the question about the babel fish."
+	  "Once you have the babel fish, flip the switch again."
+	  "Now you know what to type. Just wait around to hear the captain's poetry reading and see the question about what's going on in the Captain's Quarters.">
+	 <LTABLE 3
+	  "What is the tall dispensing machine?"
+	  "Examine it.">
+	 <LTABLE 3
+	  "Why does the machine go \"click\"?"
+	  "It's out of fish. Time to RESTORE.">
+	 <LTABLE 3
+	  "What is a babel fish?"
+	  "Consult the Guide.">
+	 <LTABLE 3
+	  "How can I get a babel fish?"
+	  "Have you pressed the dispenser button?"
+	  "You need to block the small hole."
+	  "Use the hook above the hole."
+	  "Hang something on the hook."
+	  "Examine the gown."
+	  "Hang the gown on the hook, then press the button again."
+	  "You'll have to block the drain."
+	  "There's only one thing large enough to completely cover the drain."
+	  "Cover the drain with the towel, then push the button again."
+	  "You have to block the tiny robot panel."
+	  "Standing or lying in front of the panel won't work."
+	  "You have to put some object in front of the panel."
+	  "If it isn't bulky enough, the cleaning robot dashes around it."
+	  "The satchel is bulky. Put it in front of the panel, then push the button again."
+	  "At this point, brave men have been known to break down and cry."
+	  "Read, very carefully, the paragraph when Ford goes to sleep."
+	  "When you placed the satchel in front of the panel, the satchel is now LYING ON ITS SIDE in front of the panel."
+	  "You can put an object on top of the satchel."
+	  "Put something on the satchel, then push the button again."
+	  "The upper-half-of-the-room cleaning robot just manages to catch the second item."
+	  "If there were several items on the satchel, they would all fly into the air and confuse the flying robot."
+	  "Unfortunately, there's only room for one object on the satchel."
+	  "Is there an object that when flung into the air might act as many items?"
+	  "When the upper-half-of-the-room cleaning robot grabbed the babel fish the first time it said that the fish was \"the only flying junk\" that the robot found."
+	  "Put the junk mail on the satchel, then press the button one last time.">
+	 <LTABLE 3
+	  "What's the gibberish I hear?"
+	  "It's an announcement in Vogonese."
+	  "If you want to understand the announcement, you'll have to discover a way to translate it."
+	  "See the questions about the babel fish."
+	  "The announcement will begin 18 turns after you enter the Vogon Hold, or 3 turns after you obtain the babel fish.">
+	 <LTABLE 3
+	  "Why are the guards dragging me away?"
+	  "See the question about the gibberish from the intercom."
+	  "The guards will arrive 36 turns after you arrive in the Vogon Hold, or 5 turns after you obtain a babel fish.">
+	 <LTABLE 3
+	  "What happens in Captain's Quarters?"
+	  "Don't go on unless you've translated the garbled announcement."
+	  "Don't go on until you've figured out what's going on with the glass case and switch and keyboard."
+	  "You are at a Vogon Poetry Appreciation Session. The Vogon Captain is about to read you his favourite poem. The Guide's entry on Vogon Poetry makes clear that this is extremely nasty."
+	  "You should now know that you have to listen to the second verse (not line) of the poem in order to get the atomic vector plotter."
+	  "This poetry is painfully awful. Have you tried to STOP THE POETRY or COVER MY EARS or DON'T LISTEN TO THE VOGON POETRY."
+	  "When he finishes the first verse the Captain says, \"You didn't look like you enjoyed my poetry at all!\" and then has you thrown into space."
+	  "Why not relax and enjoy it?"
+	  "ENJOY THE POETRY while the Captain reads the first verse. He will continue on and read the second verse."
+	  "Now that you've heard the glass case's recording AND the second verse of the poem, you know what to type on the keyboard to get the atomic vector plotter. (When the guards drag you back into the Vogon Hold, of course.)"
+	  "For example, if the recording asked you to type the second word from the second verse, and the word was \"lyshus,\" you should type TYPE \"LYSHUS\" when you get back to the Vogon Hold. NOTE: Each time you play the game, the lines of the second verse come in different orders. Similarly, the glass case's recording asks for a different number word each time you play.">
+	 <LTABLE 3
+	  "Can I stop being put in the airlock?"
+	  "There's no way to prevent this."
+	  "However, you should make sure that you've accomplished everything that needs to be accomplished aboard the Vogon ship before this occurs."
+	  "You should have gotten the atomic vector plotter.">
+	 <LTABLE 3
+	  "Can I survive in outer space?"
+	  "Yes. In fact, there's no way to NOT survive it."
+	  "If you wait, you'll find yourself in the Dark again."
+	  "Examine the Thumb while in the Airlock."
+	  "Apparently, there's another spaceship nearby. Try hitchhiking by pressing the green button."
+	  "This sends you through a matter transference beam, and you find yourself in the Dark again."
+	  "Both methods of surviving the Airlock are equivalent.">>
+      <PLTABLE
+       "THE HEART OF GOLD"
+         <LTABLE 3
+	  "Who picked us up hitchhiking?"
+	  "Listen to Ford."
+	  "Read the sales brochure that's in the Entry Bay."
+	  "You've just been picked up by a fantastic new spaceship powered by something called an Infinite Improbability Drive. Find out more about the drive."
+	  "To find out who owns the ship, stick around on the bridge and pay attention to what everyone is saying."
+	  "The woman is Tricia MacMillan, known as Trillian. She's an Earthwoman whom you met at a party in Islington not too long ago, at which time you totally failed to impress her. She eventually left the party with a guy named Phil...who is, you realize, the two-headed man standing next to her."
+	  "The man is Zaphod Beeblebrox, current President of the Galaxy, who has stolen this revolutionary new Infinite Improbability Drive-powered spaceship in order to locate the legendary lost planet of Magrathea. Zaphod and Ford know each other."
+	  "That you should be picked up in the vast emptiness of space by a ship inhabited by an acquaintance from your now destroyed native planet as well as your travelling companion's semi-cousin, can only be considered highly improbable. But then, with Infinite Improbability Drives at work, the infinitely improbable is not only possible but quite likely.">
+	 <LTABLE 3
+	  "How can I enter the sauna?"
+	  "From the Bridge, walk to port."
+	  "There is no way to actually STAY in the sauna."
+	  "Therefore, once Ford, Zaphod, and Trillian enter the sauna, they will be effectively inaccessible to you for the remainder of the game.">
+	 <LTABLE 3
+	  "Is Eddie, the ship computer, of use?"
+	  "Without Eddie, who would make all those fun announcements?"
+	  "Eddie is the only one who can turn on the main drive."
+	  "But he won't obey your order to do that, only Zaphod's."
+	  "Eddie's help is indirectly necessary to obtain a cup of tea."
+	  "But in terms of solving puzzles, you can basically ignore Eddie.">
+	 <LTABLE 3
+	  "Are the Bridge controls useful?"
+	  "Have you examined them?"
+	  "The large receptacle is important."
+	  "Don't go on until you've figured out how to set up and use the spare Improbability Drive."
+	  "The large plug from the spare Drive can be plugged into the large receptacle."
+	  "But that isn't necessarily the right thing to do."
+	  "In fact, when you plug in the spare Drive at the wrong time, Eddie warns you that it's only for emergencies."
+	  "When you use the drive while it's plugged into the large receptacle, both the large receptacle and the large plug are destroyed."
+	  "You can only use the drive while connected to the controls ONCE during the course of the game."
+	  "See the question about the missile attack at the end of this section.">
+	 <LTABLE 3
+	  "How does the Nutrimat work?"
+	  "All you have to do is touch the touch-sensitive pad."
+	  "The Nutrimat does all the rest, and in seconds you'll have your very own cup of incredibly delicious Advanced Tea Substitute (ATS)."
+	  "Well, maybe not so delicious. But at least useful."
+	  "Actually, there is a way to get something else from the Nutrimat."
+	  "It's a cup of tea (REAL tea, not ATS)."
+	  "But first, you'll need something that isn't in the Galley."
+	  "In fact, it isn't even in the Heart of Gold."
+	  "Don't go on unless you have the Nutrimat/Computer Interface (not to be confused with the shipping carton for the interface)."
+	  "Use the interface."
+	  "Open the service panel and remove the circuit board. Now, put the interface inside the Nutrimat. Finally, touch the pad!"
+	  "Still having trouble getting tea? See the question about the missile attack. It's the last question in this section.">
+	 <LTABLE 3
+	  "What is the Advanced Tea Substitute?"
+	  "ATS is useful, although drinking it is a bad idea."
+	  "Have you ever examined it?"
+	  "Have you discovered a need for a source of Brownian Motion?"
+	  "See the question about the spare Improbability Drive.">
+	 <LTABLE 3
+	  "Is the cup of tea important?"
+	  "Don't go on unless you actually have the cup of tea."
+	  "Don't go on unless this cup of tea is REAL tea, not just Advanced Tea Substitute (ATS)."
+	  "Have you ever examined the tea?"
+	  "Because it has even more Brownian Motion than the ATS, it will make a better source of it for the spare Improbability Drive. Try it."
+	  "See the question about controlling where you go when you leave Dark, in the section called \"In the Dark\".">
+	 <LTABLE 3
+	  "How do I adjust the circuit board?"
+	  "You can remove it from the Nutrimat."
+	  "Have you examined it?"
+	  "You can flip any of the eight dipswitches."
+	  "You can even flip them while the circuit board is still in the Nutrimat."
+	  "Have you noticed the message in tiny letters on the board?"
+	  "There IS a way to read that message."
+	  "Don't go on until you've been on Damogran."
+	  "Don't go on until you've opened the toolbox."
+	  "READ THE MESSAGE THROUGH THE MAGNIFYING GLASS.">
+	 <LTABLE 3
+	  "Is the shipping carton important?"
+	  "Try examining or reading it."
+	  "Have you opened the carton?"
+	  "The Sirius Cybernetics Corporation has apparently screwed up (a common occurrence) and put the wrong item inside the shipping carton."
+	  "You'll be able to find the Nutrimat/Computer Interface elsewhere in the game.">
+	 <LTABLE 3
+	  "Is the strange gun important?"
+	  "Have you examined or read it?"
+	  "Don't go on unless you've been in the Lair."
+	  "Have you tried shooting the gun at the Beast?"
+	  "Have you tried it several times?"
+	  "The gun is completely worthless, useless, and unimportant.">
+	 <LTABLE 3
+	  "Can I go aft from Corridor, Aft End?"
+	  "Yes, but not without a fight."
+	  "You'll have to argue with the game for a few turns."
+	  "Usually, YES or NO responses are sufficient."
+	  "The proper sequence, from the Corridor, Aft End is AFT. YES. YES. AFT. NO.">
+	 <LTABLE 3
+	  "Is anything in the Engine Room?"
+	  "Have you gotten into the Engine Room? If not, you should do so before looking at the next hint."
+	  "The game claims that there's nothing interesting there."
+	  "However, after losing that argument with you, the game is probably a bit peeved and is acting petulant."
+	  "You'll have to be persistent if you want to find out what's in the Engine Room."
+	  "Type LOOK three times. The game will then give in and describe the room and the stuff there.">
+	 <LTABLE 3
+	  "Is the spare Drive important?"
+	  "Read the Guide entry on Improbability Physics."
+	  "You'll need the atomic vector plotter from the Vogon Hold. If you never got it while you were aboard the Vogon ship, you'll have to start the game over or go back to a saved position."
+	  "You'll also need a good source of Brownian Motion."
+	  "Consult the Hitchhiker's Guide about Brownian Motion."
+	  "Have you seen any hot liquids?"
+	  "You'll need the cup of Advanced Tea Substitute (ATS), which you can get from the Nutrimat in the Galley."
+	  "Now that you have all three items (spare Drive, plotter, and cup of ATS), you should be able to figure out how to hook them together."
+	  "Examine all three items."
+	  "You want to plug the small plug (from the drive) into the small receptacle (in the atomic vector plotter). Put the plotter's long dangly bit into the cup of ATS."
+	  "That still leaves the drive's large plug unattached. See the question about the controls on the Bridge.">
+	 <LTABLE 3
+	  "How can I open the screening door?"
+	  "This is a very difficult problem."
+	  "Furthermore, you won't be able to tackle it until you're pretty far into the game. Don't let it worry you until you get up around 200 points."
+	  "Don't develop any further unless you've gotten the cup of tea (real tea, not Advanced Tea Substitute)."
+	  "Presumably you've tried OPEN THE DOOR."
+	  "You have to show an example of your intelligence to the screening door."
+	  "Read the Guide entry on INTELLIGENCE."
+	  "Can you think of anything contradictory that you could have or do?"
+	  "To show your intelligence, there are two specific items that you must be holding at the same time."
+	  "Have you noticed what happens when you take or drop the (real) tea?"
+	  "To prove your intelligence to the door, you must be holding TEA and NO TEA at the same time."
+	  "Try going back to the beginning of the game and taking or dropping NO TEA."
+	  "Does the response to that ring any bells?"
+	  "Have you ever read or examined the black particle in the Maze?"
+	  "Do you know where you are when you are in the Maze? If not, see the questions on the Maze."
+	  "The Maze is your own brain, and the particle is your common sense. Once you have removed the particle, you will no longer be fettered by common sense and can take NO TEA."
+	  "Spelling it out step by step: First, acquire a cup of tea. Then get rid of the common sense particle in the Maze. TAKE TEA THEN TAKE NO TEA. Finally, SHOW THE TEA AND THE NO TEA TO THE SCREENING DOOR."
+	  "Did you die upon passing through the screening door? It's because Marvin lives in the room beyond the door, and his awesome depression pervades the place."
+	  "You'll have to make yourself very happy before entering."
+	  "Have you ever done anything that made you very happy and contented?"
+	  "Drink the cup of tea before you enter.">
+	 <LTABLE 3
+	  "Is Marvin important?"
+	  "Yes, but not right away."
+	  "Until a point, he won't do anything you tell him to do."
+	  "After that point, he'll grudgingly consent to ONE task."
+	  "Have you ever followed Marvin when he appears around the Heart of Gold?"
+	  "He always disappears through a certain door."
+	  "Before Marvin will perform his one task, you must get past the screening door near the aft end of the corridor."
+	  "Don't go on until you've been in Marvin's Pantry."
+	  "Congratulations. You've now impressed Marvin enough for him to listen to one request from you. Do you have any idea what order to give him?"
+	  "What puzzles or obstacles still remain that he might help with?"
+	  "Try examining the mechanism in the Access Space."
+	  "If you've ever seen the fruit, eating it would provide a big hint."
+	  "You want to order Marvin to open the hatch (as in MARVIN, OPEN THE HATCH). See the question about opening the hatch for more information.">
+	 <LTABLE 3
+	  "How can I open the hatch?"
+	  "Have you tried OPEN THE HATCH?"
+	  "If sirens and lights went off when you tried to open the hatch, then the ship is still in space. Wait until the ship has landed."
+	  "Do you remember an announcement when the Heart of Gold landed on Magrathea?"
+	  "Eddie (the shipboard computer) jammed the hatch to prevent anyone from leaving the ship until he's checked to make sure the environment is safe."
+	  "If you wait the 14.9 years such a check will take, you'll probably die of boredom."
+	  "You'll have to figure out how to override Eddie's wishes by fixing the hatchway mechanism in the Access Space."
+	  "You don't have the necessary intelligence for the task."
+	  "Someone else does."
+	  "Marvin. See the question about Marvin to figure out how to get him to open the hatch."
+          "Once Marvin has agreed to open the hatch, he tells you to meet him in the Access Space in twelve turns. Make sure you're on hand for that meeting. (Hell hath no depression like a paranoid android scorned.)"
+	  "Marvin will ask you for the tool he needs to fix the mechanism."
+	  "You must give him the proper tool or you've blown your one chance to get the hatchway open."
+	  "There are a total of ten tools scattered throughout the game. For a complete list of them, see the quesion about the tools in the General Questions section."
+	  "Even if you've collected all ten tools, you can only carry one at a time into the Access Space..."
+	  "...and you don't have time to go out and get a different one before Marvin gives up and leaves..."
+	  "...and Marvin will NEVER ask for the tool you happen to be holding."
+	  "There's a way to figure out in advance what tool Marvin will ask you for."
+	  "See the question about the fluff."
+	  "Don't go on until you've seen the fruit."
+	  "Eat the fruit."
+	  "The glimpse of the future provided by the fruit tells you what tool to bring into the Access Space."
+	  "If you meet Marvin there and give him that tool when he asks for it, he will fix the mechanism and open the hatch."
+	  "You're now awesomely close to the end of the game."
+	  "Go down through the hatch."
+	  "Start waiting for the next exciting Hitchhiker's game.">
+	 <LTABLE 3
+	  "How do I stop the missile attack?"
+	  "This is a good point for a SAVE."
+	  "The computer is helpless because you've tied it up with the Nutrimat interface."
+	  "You'll have to save the ship yourself."
+	  "The computer is tied up, so it can't turn on the main Drive during this emergency."
+	  "There's a spare Drive for use during emergencies."
+	  "Turn on the spare Drive."
+	  "That didn't work? Have you examined the spare Drive and the control console on the Bridge?"
+	  "If there are fused spots where the large plug and large receptacle used to be, you plugged the drive in at the wrong time."
+	  "Note that when the spare Drive is NOT connected to the control console and you turn it on, the effect is always directed at you personally. When the spare Drive IS connected to the console, activating it has an effect on the entire ship."
+	  "Turning on the spare Drive while it's plugged into the control console destroys the large plug and large receptacle, so you can only do it once during the game. The one time you want to activate the drive while plugged into the control console is during the missile attack.">>
+      <PLTABLE
+       "ON TRAAL"
+         <LTABLE 3
+	  "How do I go southwest from the Lair?"
+	  "Figuring out how to subdue the Beast would help.">
+	 <LTABLE 3
+	  "Can I stop the Beast from eating me?"
+	  "The Beast will devour you about five turns after you pop up in its Lair."
+	  "Leaving the room (EAST) will buy you some time."
+	  "Have you read the Guide entry on the Ravenous Bugblatter Beast of Traal?"
+	  "You must find a way to prevent yourself from seeing the Beast. The Beast will then decide that since you can't see it, it can't see you!"
+	  "Closing your eyes isn't obvious enough for the Beast to notice."
+	  "You have to cover your head with something."
+	  "It's something important, which no interstellar hitchhiker should ever be without."
+	  "The towel. COVER MY HEAD WITH THE TOWEL or PUT THE TOWEL OVER MY EYES or WRAP THE TOWEL AROUND MY HEAD."
+	  "Unfortunately, you can't move around very well with a towel over your eyes. Furthermore, as you may have already noticed, this method is also only temporarily effective.">
+	 <LTABLE 3
+	  "Why does the beast ask me my name?"
+	  "A good question. Have you tried figuring out the answer yourself?"
+	  "Have you been in the Beast's Outer Lair?"
+	  "Have you ever tried saying your name as the Beast demands?"
+	  "There are at least a dozen ways to say your name: SAY MY NAME or SAY \"ARTHUR DENT\" or SAY \"MY NAME IS ARTHUR DENT\" are some."
+	  "You have to give your correct name to the Beast, or (in a rare moment of Bugblatter Beast perceptivity) it will be able to tell that you're lying. In addition, you can't tell the Beast your name if the Beast thinks it can't see you."
+	  "The Beast's response when you told it your name should provide an additional hint toward why the Beast wants to know your name and how to solve this entire Traal puzzle."
+	  "Still stuck? Go on to the next question.">
+	 <LTABLE 3
+	  "What use is the sandstone memorial?"
+	  "Have you figured out why the Beast wants to know your name?"
+	  "The Beast wants to carve your name in this, his memorial of remembrance, after he has devoured you."
+	  "Have you figured out how to stop the Beast from attacking you, at least on a temporary basis?"
+	  "Don't go on until you have figured out how to convince the Beast that it can't see you."
+	  "There's a way to confuse the Beast into thinking that it has already eaten you."
+	  "You want to carve your name in the memorial, as in CARVE MY NAME ON THE SANDSTONE MEMORIAL."
+	  "Of course, you'll need something to carve with."
+	  "It's not any of the tools."
+	  "It's something found on Traal."
+	  "Use one of the sharp stones that are lying on the ground."
+	  "First you have to tell the Beast your name and cover your head with the towel."
+	  "It is now safe to remove the towel from your head, and to go southwest from the Lair.">
+	 <LTABLE 3
+	  "Are the tall walls important?"
+	  "If you could climb them, you might be able to escape the Beast."
+	  "If you could collapse them onto the Beast, that just might do it in."
+	  "If you could transmute them into steaming mounds of Qurmeesian Mega-Rhino flank steaks, the Beast might start in on those and ignore your few measly pounds of stringy flesh."
+	  "Unfortunately, you can't do any of the above.">
+	 <LTABLE 3
+	  "Are the bleached bones important?"
+	  "Don't go on until you've found the black paint."
+	  "Have you tried painting the bones with the paint?"
+	  "Where does the Beast go when he sees the black bones?"
+	  "Black paint? There's no black paint. You're looking at answers you shouldn't be.">
+	 <LTABLE 3
+	  "Are the sharp stones important?"
+	  "Have you examined them?"
+	  "See the question about the sandstone memorial.">
+	 <LTABLE 3
+	  "What's the point of the Traal scene?"
+	  "First you'll have to figure out how to \"neutralize\" the Beast."
+	  "Don't go on until the Beast is sleeping."
+	  "Have you been in the Inner Lair?"
+	  "Go southwest from the Lair."
+	  "The entire point of this scene is to get that Nutrimat/Computer Interface."
+	  "You have a limited number of moves to get the interface, after the Beast falls asleep and before the Fronurbdian Beasthunters arrive.">>
+      <PLTABLE
+       "ON DAMOGRAN"
+         <LTABLE 3
+	  "Who am I?"
+	  "Ask the game! (Type WHO AM I?)">
+	 <LTABLE 3
+	  "Where am I?"
+	  "You're on Damogran. If you'd like to know more about it, consult the Hitchhiker's Guide.">
+	 <LTABLE 3
+	  "How can I open the toolbox?"
+	  "Since it's locked, you'll need to find a key."
+	  "Try typing WHERE IS THE KEY while on the speedboat."
+	  "There aren't a lot of hiding places around the boat."
+	  "SEARCH THE PILOT SEAT or LOOK UNDER THE CUSHION.">
+	 <LTABLE 3
+	  "Can I stop the boat from crashing?"
+	  "EXAMINE THE CONTROLS."
+	  "PUSH THE AUTOPILOT BUTTON."
+	  "The autopilot doesn't seem concerned about your situation, since it just takes a look around and then shuts itself off."
+	  "You need to give the autopilot some impetus to go to work."
+	  "Instead of steering toward the channel, try steering toward the cliff or the rocky spire."
+	  "After three turns of heading toward an obstacle, the autopilot will kick on and navigate you safely to your destination.">
+	 <LTABLE 3
+	  "What do I do when the boat docks?"
+	  "Leave the boat. Type NORTH or LEAVE THE BOAT.">
+	 <LTABLE 3
+	  "What do I do when I reach the Dais?"
+	  "You're here for the dedication ceremonies of the Heart of Gold. You obviously have the crowd eating out of your hands."
+	  "You might try smiling, or waving, or making a speech."
+	  "Mainly, though, you just need to wait until Trillian shows up.">
+	 <LTABLE 3
+	  "What do I do about the Guards?"
+	  "Don't go on unless you're on the Dais and Trillian is there."
+	  "Trillian isn't really attacking you. It's just part of your plan to steal the Heart of Gold."
+	  "The guards don't know that you're planning to steal the Heart of Gold, so they're on your side."
+	  "You're President of the Galaxy! The guards will probably listen to your orders."
+	  "You should say GUARDS, DON'T SHOOT or GUARDS, DROP THE PHOTON RIFLES."
+	  "If you're still having troubles with the guards, see the next question.">
+	 <LTABLE 3
+	  "How can I enter the Heart of Gold?"
+	  "Until Trillian shows up, the game won't even let you try."
+	  "After Trillian shows up, attempting to enter the Heart of Gold is deadly."
+	  "Don't go on unless you've disarmed the guards (see the previous question)."
+	  "This isn't helpful all by itself, since the guards pick up their rifles and still shoot you if you break for the ship."
+	  "You have to figure out a way to get rid of the guards or the rifles permanently."
+	  "The guards will NOT leave the scene, no matter what you do."
+	  "Trying to shoot the guards doesn't work either."
+	  "There is, however, a way to dispose of the rifles."
+	  "Take the blaster from Trillian and shoot the rifles. Alternatively you can just ASK TRILLIAN TO SHOOT THE PILE OF RIFLES."
+	  "Once you've destroyed the rifles, it's safe to enter the ship.">
+	 <LTABLE 3
+	  "What's the point of Damogran?"
+	  "Don't go on until you ended the scene by successfully entering the Heart of Gold. (If you were killed by the guards, you were NOT successful.)"
+	  "Have you opened the toolbox?"
+	  "If you've opened the toolbox, then you've certainly found both the seat cushion fluff and the laser-assisted monkey wrench. Getting these two items are the ultimate goal of the Damogran scene.">>
+      <PLTABLE
+       "AT THE PARTY"
+         <LTABLE 3
+	  "Who am I?"
+	  "Ask the game. (Type WHO AM I?)">
+	 <LTABLE 3
+	  "Where am I?"
+	  "Remember what happened when you first reached the Bridge of the Heart of Gold?"
+	  "This is the Party where Arthur Dent tried to pick up Tricia MacMillan (but, you'll recall, failed completely)."
+	  "Thanks to the wild vagaries of Improbability Physics, you have not only travelled back in time, you have changed your identity as well.">
+	 <LTABLE 3
+	  "What should I do about Phil?"
+	  "If you try to talk to Phil, he doesn't notice, and invariably leaves the room."
+	  "Have you examined him?"
+	  "The draped cage on his shoulder does NOT contain a bird."
+	  "The cage is hiding Phil's second head."
+	  "Phil is actually Zaphod Beeblebrox in disguise. He has undoubtedly dropped by this Islington party as part of some interstellar party-crashing hop."
+	  "If you recall from the events on the Bridge of the Heart of Gold, you (Trillian) eventually left ... er, will leave ... the party with Zaphod/Phil."
+	  "But that won't happen until you do something else. See the question about the point of the party scene.">
+	 <LTABLE 3
+	  "What should I do about Arthur?"
+	  "Arthur keeps trying to start a conversation with you, but he's too shy and embarrassed. If you try to talk to him, he finds your tone rather cool, and moves away."
+	  "Have you examined him?"
+	  "Notice the fluff?"
+	  "If you take the fluff from his jacket, it will \"break the ice\" and Arthur will begin jabbering."
+	  "Did you notice that you can't take the fluff until you drop one of the other things you're carrying (handbag, wine, hors d'oeuvres)? You can't hold more than three things while you're at the party.">
+	 <LTABLE 3
+	  "What should I do about the hostess?"
+	  "You're usually able to avoid her."
+	  "If you try to talk to her, you'll learn the meaning of the phrase \"bored to death.\""
+	  "If you drop your glass of wine, your handbag, or your plate of hors d'oeuvres, the hostess will come over and pester you about it. She won't leave you alone until you take the item that you dropped.">
+	 <LTABLE 3
+	  "How can I leave the apartment?"
+	  "Try going south from the Living Room."
+	  "Dying will get you back to Dark, but that's probably not what you had in mind."
+	  "There is a way to leave the apartment, but you'll have to solve a puzzle first. See the next question.">
+	 <LTABLE 3
+	  "What's the point of the party scene?"
+	  "There's an item at the party that you have to get back to the Heart of Gold."
+	  "That item is the unsightly piece of jacket fluff."
+	  "See the previous questions in this section of the hint booklet."
+	  "You want to get \"picked up\" by Phil. However, he won't take any notice of you until you take the fluff and get Arthur talking to you."
+	  "In order to take the fluff, though, you'll have to drop something. This will cause the hostess to start hovering around you. Phil is much too smart to approach you when you're with the hostess."
+	  "So, to get Phil to come over, you'll have to take the item that the hostess keeps offering you. To do so, you'll have to drop something, and the piece of fluff is the only thing you have that you can drop without setting off the hostess again."
+	  "There IS a way to stop holding the fluff WITHOUT dropping it."
+	  "Look at what you're carrying again."
+	  "You can put the fluff in your handbag."
+	  "Naturally, the fluff is still in the handbag when you eventually get back to the Heart of Gold. You need only go to the Bridge or wherever you left the handbag, open it, and take the jacket fluff."
+	  "If you're still confused, one sequence of moves that will \"solve\" the party scene is:  EXAMINE ARTHUR. DROP THE WINE. TAKE THE JACKET FLUFF. OPEN THE HANDBAG. PUT THE FLUFF IN THE HANDBAG. TAKE THE WINE. Then just WAIT until Phil comes up and escorts you away. You will end up in Dark.">>
+      <PLTABLE
+       "EARTH, REVISITED"
+         <LTABLE 3
+	  "Who am I?"
+	  "Ask the game. (Type WHO AM I?)">
+	 <LTABLE 3
+	  "Where should I go?"
+	  "You are reliving the last few minutes before the destruction of the Earth."
+	  "But this time as Ford Prefect rather than Arthur Dent."
+	  "The Improbability Drive has sent you back in time and has also changed your identity."
+	  "You want to do what Ford did when you were Arthur."
+	  "Go north to Front of House.">
+	 <LTABLE 3
+	  "How can I lose my uneasy feeling?"
+	  "Have you tried waiting a few turns?"
+	  "Obviously, you're doing the wrong thing."
+	  "You shouldn't be in the Pub at this point."
+	  "See the previous question.">
+	 <LTABLE 3
+	  "What should I do about Arthur?"
+	  "According to the introductory text for this scene, why did you come here?"
+	  "What did Ford do at this point when you were Arthur?"
+	  "Try to give the towel to Arthur."
+	  "The towel is inside your satchel.">
+	 <LTABLE 3
+	  "What should I do about Prosser?"
+	  "Don't go on until you've done the step called for by the previous question."
+	  "You want Arthur to come with you to the Pub."
+	  "If you recall from when you were Arthur, it would mean the destruction of Arthur's house if he stood up at this point."
+	  "He won't stand up until you've safeguarded his house."
+	  "You have to talk to Prosser."
+	  "But he can't hear you from here."
+	  "So you have to APPROACH PROSSER or WALK AROUND THE BULLDOZER. Now you can talk to him."
+	  "You want him to lie down in front of the bulldozer."
+	  "Try PROSSER, LIE DOWN IN FRONT OF THE BULLDOZER."
+	  "Arthur is now willing to follow you to the Pub.">
+	 <LTABLE 3
+	  "What should I do in the Pub?"
+	  "Unless Arthur is with you, you are here prematurely."
+	  "Once again, think back to what Ford did when you were Arthur."
+	  "The first thing to do is BUY SOME BEER."
+	  "Then DRINK THE BEER. Arthur will follow your example. You need to do this twice."
+	  "You can BUY SOME PEANUTS, but it isn't necessary to do so."
+	  "When Arthur's house is destroyed, he will rush out of the Pub. It would be a good idea to stay with him.">
+	 <LTABLE 3
+	  "What should I do about the dog?"
+          "There's not much you can do about the dog at this point."
+	  "You may find out more about the dog later.">
+	 <LTABLE 3
+	  "What's the point of this scene?"
+	  "You learn a lot about Ford's motivations, thus making for a more cohesive, internally consistent story line."
+	  "Oh, right. You're more interested in puzzle solutions. The entire point of this scene is acquiring one particular item for use on the Heart of Gold."
+	  "It's in the satchel."
+	  "It's the satchel fluff."
+	  "There's a way to transfer it to something, other than the satchel, so that it will be accessible when you get back to the Heart of Gold."
+	  "That something is Arthur Dent."
+	  "Give the fluff to Arthur."
+	  "This is a rather weird action, and Arthur won't accept the fluff until he's had enough beer."
+	  "After Arthur runs back to his house (now rubble), follow him and give him the fluff. He'll accept it at this point and put it in his pocket. Then just wait for events to run their course, and you'll soon find yourself back in Dark. When you get back to the Heart of Gold, the satchel fluff should be in the pocket of your gown.">>
+      <PLTABLE
+       "WAR CHAMBER/MAZE"
+         <LTABLE 3
+	  "What's going on in the War Chamber?"
+	  "Have you tried listening to the conversation?"
+	  "Have you examined the approaching star system?"
+	  "Do you remember the long piece of text that appeared when your careless words set off an interstellar war?"
+	  "Those two warring races have now set off on a quest for vengeance against the world (Earth) that spawned the person (you) whose remark set off their war.">
+	 <LTABLE 3
+	  "How can I get the awl?"
+	  "Just TAKE AWL!"
+	  "Then solve the puzzle involving the giant dog.">
+	 <LTABLE 3
+	  "How do I not get eaten by the dog?"
+	  "The dog really isn't a giant dog."
+	  "It's a normal-sized dog. The spaceship you're aboard is microscopic."
+	  "Have you seen a dog anywhere else?"
+	  "This is the very same dog you ran into in the Country Lane back at the beginning of the game."
+	  "The dog swallows the space fleet for one particular reason."
+	  "If you examine the dog at the beginning of the game, you'll notice that it's very hungry."
+	  "You need to feed the dog back at the beginning of the game."
+	  "If you want to avoid starting over from the beginning, there's another way to feed the dog."
+	  "You must become Ford Prefect first."
+	  "During the scene where you're Ford, buy a sandwich, then give the sandwich to Arthur. When Arthur dashes out of the Pub, he'll feed the sandwich to the dog."
+	  "Once the dog has been fed, you can survive the War Chamber scene and go on to the Maze.">
+	 <LTABLE 3
+	  "Where is this Maze?"
+	  "Synapses? Gray Matter?"
+	  "Remember you were just teleported over from a microscopic space fleet..."
+	  "...so you must be microscopic-sized yourself."
+	  "You're inside a brain."
+	  "Ah, but whose brain?"
+	  "Remember, the Vl'Hurgs and G'Gugvunts were teleporting you back to the Heart of Gold."
+	  "You are, improbably enough, inside your own brain!">
+	 <LTABLE 3
+	  "Can the Maze be mapped?"
+	  "No. The Maze is totally unmappable."
+          "In fact, the directions in the Maze are totally random, so it makes no difference which direction you move in."
+	  "The third time you successfully move to a new Maze room (as opposed to being blocked by a synaptic discharge), you'll run across the black particle."
+	  "If you ignore the particle, you'll run across it again later.">
+	 <LTABLE 3
+	  "What is this black particle for?"
+	  "Have you read the markings on the particle?"
+	  "The particle is your own common sense!"
+	  "You have an opportunity here to remove your own common sense."
+	  "Does that ring a bell?"
+	  "See the question about no tea in the General Questions section."
+	  "Taking the particle also has the beneficial side effect of getting you out of the Maze.">
+	 <LTABLE 3
+	  "Where did the black particle go?"
+	  "Particle physicists have two theories on what happened to the particle."
+ 	  "The first theory states that the particle is too small to see when you recover from being microscopic."
+	  "The second theory states that the particle was destroyed in the electrical impulse that resulted when you reopened the synapse."
+	  "Take your pick.">
+	 <LTABLE 3
+	  "What's the point of this section?"
+	  "You should be able to figure it out for yourself."
+	  "Do you know the answers to all the other questions in this section?"
+	  "There are two goals for the War Chamber/Maze scene."
+	  "The first goal is to get the awl."
+	  "The second goal is to remove your particle of common sense.">>
+      <PLTABLE
+       "INSIDE THE WHALE"
+         <LTABLE 3
+	  "Who am I?"
+	  "You're still Arthur in this scene.">
+	 <LTABLE 3
+	  "Where am I?"
+	  "You're inside a sperm whale, obviously."
+	  "Note the sound of rushing air."
+	  "The Improbability Drive, in one of its nastier coincidences, has transported you inside the very same whale you created when you used the Drive to save the ship during the missile attack."
+	  "If you recall, the missiles were turned into a sperm whale, which was last seen plummeting through the atmosphere of Magrathea. This explains why, after a few turns, the whale invariably splats (and you along with it).">
+	 <LTABLE 3
+	  "How can I get out of the whale?"
+	  "There are no exits in any direction."
+	  "If you wait long enough, you'll splat and return to Dark."
+	  "There's one other way to get out of the whale."
+	  "It's a method you've used before."
+	  "It will also leave you in Dark."
+	  "Hitchhike using the Thumb."
+	  "The Thumb is probably broken, though. You'll have to get it fixed by an Engineer robot.">
+	 <LTABLE 3
+	  "Can I stop the whale from splatting?"
+	  "You can't."
+	  "No matter what you do, you've only got ten moves in the whale before it splats.">
+	 <LTABLE 3
+	  "How do I get the pot from the whale?"
+	  "There are two ways to do this."
+	  "One way involves the Thumb."
+	  "The other method involves the thing your aunt gave you which you don't know what it is."
+	  "To obtain the flowerpot using the thumb, just pick up the pot and hitchhike."
+	  "For more details, see the question on getting out of the whale."
+	  "To obtain the flowerpot using the aunt's gift: the aunt's gift has an unusual property you may not have discovered. See the question about the aunt's gift."
+	  "Just put the flowerpot inside the aunt's gift and then wait until the whale splats. Within a few turns after leaving Dark, the aunt's gift should reappear, containing the pot.">
+	 <LTABLE 3
+	  "What's the point of the whale?"
+	  "Isn't it obvious?"
+	  "There really isn't much here."
+	  "The only point of this scene is to get the flowerpot.">>
+      <PLTABLE
+       "GENERAL QUESTIONS"
+	 <LTABLE 3
+	  "Is there a significance to \"no tea\"?"
+	  "Yes."
+	  "It's a hint that at some point, getting tea will be important."
+	  "Also, see the question about the screening door in the HEART OF GOLD section.">
+	 <LTABLE 3
+	  "What is the thing my aunt gave me?"
+	  "Have you tried examining it?"
+	  "Have you tried getting rid of it?"
+	  "You've probably noticed that it keeps turning up."
+	  "If you leave it behind, it will pop up about a dozen moves later, sometimes on the ground where you are, sometimes in your inventory, and sometimes in your gown pocket. (The thing will only \"follow\" you when you are Arthur.)"
+	  "There's something else that you probably haven't noticed about the thing your aunt gave you."
+	  "You can put things in it. In fact, you can put almost every takeable item into the thing at the same time."
+	  "This is useful for transporting more objects than you can carry, but it isn't ever necessary to do so."
+	  "Because of these two properties (auto-return and containment) the thing your aunt gave you provides an alternate solution of one of the puzzles in the game."
+	  "It's a puzzle toward the very end of the game."
+	  "It's the puzzle of getting the flowerpot out of the whale.">
+	 <LTABLE 3
+	  "Is the Hitchhiker's Guide important?"
+	  "Well, the game IS named after it..."
+	  "The various entries in the Guide contain all sorts of useful information and hints that you'll need to solve the puzzles in the game."
+	  "The proper syntax for reading a particular Guide entry is CONSULT GUIDE ABOUT (item). For example, you could type CONSULT GUIDE ABOUT MUSHROOMS."
+	  "Once you know the solutions to all the puzzles, you could play to the end of the game without ever using the Guide."
+	  "There are 39 Guide entries in the game. A complete list of the topics appears in the MISCELLANEOUS section.">
+	 <LTABLE 3
+	  "How does the Thumb work?"
+	  "The Thumb is an electronic Sub-Etha Auto-Hitching Device. If used properly, it will allow you to hitch rides aboard passing spaceships."
+	  "You should read the Guide entry on the Thumb."
+	  "You can examine the Thumb to determine whether a spaceship is within range. (If the lights are flashing, a ship is nearby.)"
+	  "If a ship is within range, you can transport yourself to the ship (via a matter transference beam) by pushing the green button."
+	  "If you press the green button when there is no ship around, you'll break the Thumb."
+	  "Also, the Thumb will break down on its own over the course of the game."
+	  "If the Thumb is broken, you will not be transported when you press the green button, even if a ship is nearby."
+	  "A broken Thumb can be mended."
+	  "To do so, push the red button to summon a repair robot. See the following question for further details on repairing the Thumb."
+	  "There are three points in the game when you can use the Thumb."
+	  "The first is near the beginning of the game, when you use it to get to the Vogon ship."
+	  "The second is in the Airlock of the Vogon ship. It isn't necessary to use the Thumb here, because simply waiting a few turns has the same result."
+	  "The third is Inside the Sperm Whale. Once again, there's an alternative to using the Thumb, but in this case it's not as simple as just waiting. See the INSIDE THE WHALE section for more information.">
+	 <LTABLE 3
+	  "How do I fix the thumb?"
+	  "You can't. Only the Engineer robot can fix the Thumb."
+	  "Once you've summoned the Engineer robot, SHOW (or GIVE) THE THUMB TO THE ENGINEER ROBOT."
+	  "If the robot claims that there's nothing wrong with the Thumb, then it wasn't broken."
+	  "If the Thumb is broken, the Engineer robot won't agree to fix it unless you also SHOW THE GUARANTEE TO THE ENGINEER ROBOT."
+	  "Actually, you can shortcut by showing the guarantee first.">
+	 <LTABLE 3
+	  "What's this nonsense about fluff?"
+	  "There does seem to be a lot of it scattered throughout the game."
+	  "Have you consulted the Guide about fluff?"
+	  "The ancient legend is of particular interest."
+	  "There are a total of four pieces of fluff in the game. You'll have to find and obtain all four."
+	  "Try finding them yourself. When you're stumped, return to this question."
+	  "Hint: You have four different roles over the course of the game: Arthur, Ford, Trillian, and Zaphod."
+	  "You can obtain one piece of fluff during each role."
+	  "A list of all four fluff, and their locations, follows. You shouldn't look at this list unless you're completely stumped, because it will give away a lot."
+	  "Pocket fluff: in the pocket of your gown at the start of the game. Satchel fluff: inside Ford's satchel (see EARTH, REVISITED). Jacket fluff: on Arthur's jacket (see AT THE PARTY). Seat cushion fluff: under the pilot seat of the speedboat (see ON DAMOGRAN)."
+	  "Now that you have all four pieces of fluff, any idea what to do with them?"
+	  "Don't continue until you have the flowerpot."
+	  "You should plant each piece of fluff in the flowerpot."
+	  "Now wait."
+	  "A tiny plant will sprout around ten moves later."
+	  "For more information, see the next question.">
+	 <LTABLE 3
+	  "What do I do about the plant?"
+	  "Left to itself, the tiny sprout will never grow any further."
+	  "You have nothing to water the plant with."
+	  "Read the Guide entry on fluff again."
+	  "Notice that this rare plant once grew on a tropical world."
+	  "Can you think of anything around that's similar to a tropical environment?"
+	  "Carry the plant into the sauna."
+	  "Now examine the plant."
+	  "Now see the question about opening the hatch in the Heart of Gold section.">
+	 <LTABLE 3
+	  "What are all these tools for?"
+	  "Have you examined them?"
+	  "Many of them are rather excitingly high-tech, aren't they?"
+	  "They don't really have much use..."
+	  "...until the very end of the game."
+	  "See the question about opening the hatch in the Heart of Gold section."
+	  "Marvin will ask for one of ten different tools."
+	  "A list of all ten, and their locations, follows. You shouldn't look at this list unless you're completely stumped, because it will give away a lot."
+	  "Flathead screwdriver: in your Bedroom. Toothbrush: in your Bedroom. Tweezers: inside Trillian's handbag. Molecular hyperwave pincer: on the Bridge. Ionic diffusion rasp: in the Engine Room. Hypersonic pliers: in the Engine Room. Thermo-fusion chisel: in Marvin's Pantry. Laser-assisted monkey wrench: inside the toolbox on the speedboat. Ultra-plasmic vacuum awl: in the War Chamber. Number twelve asteroid paint chipper: you're holding it when you return from your adventure at the end of the Traal scene.">
+	 <LTABLE 3
+	  "What is the goal of the game?"
+	  "Have you tried asking some of the other characters in the story?"
+	  "Have fun, be happy."
+	  "Solve all the puzzles, reach the end."
+	  "The ultimate goal of the game is to step out onto the surface of Magrathea."
+	  "Knowing this fact is of virtually no help in getting through the game.">
+	 <LTABLE 3
+	  "How can I read the footnotes?"
+	  "You obviously didn't read your manual very carefully. That's explained in the section entitled Important Commands.">>
+      <PLTABLE
+       "MISCELLANEOUS"
+         <LTABLE 3
+	  "HOW ALL THE POINTS ARE SCORED"
+	  "This section should only be used as a last resort, or for your own interest after you've completed the game."
+	  "SCORE  ACTION"
+	  "   10  Take the buffered analgesic"
+	  "    5  Drinking the beer (1st time)"
+	  "    5  Drinking the beer (2nd time)"
+	  "    5  Drinking the beer (3rd time)"
+	  "    8   Arriving at the Vogon Hold"
+	  "   12   Getting the babel fish"
+	  "   15   Enjoying the Vogon poetry"
+	  "   25   Opening the glass case"
+	  "   25   Entering the Engine Room"
+	  "   25   Getting the Interface"
+	  "   15   Drinking the beer (as Ford)"
+	  "   25   Leaving the party with Phil"
+	  "   25   Stealing the Heart of Gold"
+	  "   25   Taking the black particle"
+	  "  100   Drinking the tea"
+	  "   25   Entering Marvin's Pantry"
+	  "   25   Blooming the plant"
+	  "   25   Get Marvin to open the hatch"
+	  "  400   TOTAL POINTS"
+	  "NOTE: You LOSE 30 points each for eating the cheese sandwich, drinking the Advanced Tea Substitute, or turning on the spare Drive while plugged into the large receptacle before the missile attack begins.">
+	 <LTABLE 3
+	  "FOR YOUR AMUSEMENT"
+	  "You shouldn't develop anything in this section until you've finished the game. Things in the section will invariably give away the answers to puzzles in the game."
+	  "Have you tried..."
+          "looking under your bed?"
+	  "enjoying the mud while you're lying in front of the bulldozer?"
+	  "to PHONE HOME from your bedroom?"
+	  "asking Prosser for the time?"
+	  "to GET DRUNK in the pub?"
+	  "buying peanuts (as Arthur)?"
+	  "listening to the jukebox music (several times, then again when you're Ford)?"
+	  "petting or kicking the dog?"
+	  "feeding peanuts to the dog? (You can only do this as Ford, of course.)"
+	  "hitting Prosser (before and after your house is demolished)?"
+	  "enjoying your house after it's been demolished?"
+	  "asking PROSSER, WHAT ABOUT MY HOME after it's been demolished?"
+	  "giving the towel, the thing your aunt gave you, or the satchel to Prosser? (You can only do the last one when you're Ford, of course.)"
+	  "talking to Prosser after the Vogon fleet has arrived?"
+	  "eating the cheese sandwich when you're Ford?"
+	  "going straight to the Pub when you're Ford, instead of giving Arthur the towel, and then waiting a few turns?"
+	  "yelling in the Dark?"
+	  "waiting about 60 turns in Dark to see the hints you get?"
+	  "not eating the peanuts in the Vogon Hold?"
+	  "drinking the Santraginean Mineral Water?"
+	  "asking FORD, WHAT ABOUT THE EARTH once it's been destroyed?"
+	  "enjoying the Vogon poetry without the babel fish?"
+	  "opening the hatch in the Heart of Gold before landing on Magrathea?"
+	  "kicking the screening door, then entering Marvin's Pantry?"
+	  "closing the screening door once you've opened it?"
+	  "reading the tiny message on the circuit board with the magnifying glass?"
+	  "smashing the circuit board?"
+	  "turning on the spare Drive, plugged into the control panel, before the missile attack begins?"
+	  "turning on the spare Drive during the missile attack, without first plugging it into the control panel?"
+	  "asking Eddie to open the hatch after the ship has landed?"
+	  "not going to the Access Space after asking Marvin to fix the hatch?"
+	  "saying something other than your name when the Beast asks for it?"
+	  "saying your name with the towel over your eyes?"
+	  "to CARVE NAME ON MEMORIAL (rather than CARVE MY NAME ON MEMORIAL)?"
+	  "carving one of the names suggested by the previous item?"
+	  "carving the Beast's name on the memorial?"
+	  "reading the memorial (both before and after carving your name)?"
+	  "showing the thing your aunt gave you to the Beast?"
+	  "waking the sleeping Beast?"
+	  "drinking the wine at the party?"
+	  "eating one of the hors d'oeuvres? (Try several times.)"
+	  "throwing the glass of wine or the plate of hors d'oeuvres?"
+	  "to PICK UP ARTHUR or PICK UP PHIL at the party?"
+	  "jumping into the water from the Presidential Speedboat?"
+	  "throwing something into the water from the boat?"
+	  "shooting the crowd, the guards, Trillian, yourself, the toolbox?"
+	  "ordering GUARDS, SHOOT both before and after they've dropped their photon rifles?"
+	  "examining the approaching star system and the third planet from the War Chamber of the battle fleet?"
+	  "talking to the Vl'Hurg leader or G'Gugvunt leader?"
+	  "dropping something in the Maze (your brain) and then walking around once you've gotten out?"
+	  "talking to the bulldozer driver, the Vogon Captain, or the hostess?"
+	  "closing the thing your aunt gave you?"
+	  "wrapping the towel around your head anywhere except Traal?"
+	  "typing I AM ARTHUR DENT to the game (as opposed to while talking to a character in the game)?"          
+	  "pushing the red button on the Thumb when an Engineer robot is already present?"
+	  "counting the hors d'oeuvres, the crowd at the Dais, or the guards (at various points)?"
+	  "typing PANIC?  How about DON'T PANIC?"
+	  "typing DON'T LOOK or DON'T WAIT or DON'T (anything else)?"
+	  "typing GIVE UP or THROW IN THE TOWEL or PULL MYSELF TOGETHER?"
+	  "brushing your teeth with the toothbrush?"
+	  "typing ESCAPE at any point?"
+	  "filling anything?"
+	  "returning to various scenes after you've successfully completed them? Examples: returning to Damogran after stealing the Heart of Gold. Returning to Traal after getting the interface."
+	  "typing APPLAUD at any point (other than during the poetry reading)?"
+	  "answering the game's various rhetorical questions, such as \"Did you have a particular direction in mind?\" or \"Don't you think it would be a bad idea to leave the ceremonies?\", by typing YES or NO?"
+	  "typing APPRECIATE [something]?"
+	  "asking various characters about the object of the game? (Especially Prosser, Ford, Marvin, Eddie, the Nutrimat, the screening door, and the Beast.)">
+	 <LTABLE 3
+	  "GUIDE ENTRIES"
+	  "Here's a complete list of things that you can CONSULT the Hitchhiker's Guide about. You should use it only as a last resort, or for your interest once you've finished the game."
+	  "ALCOHOL"
+	  "ATOMIC VECTOR PLOTTER"
+	  "BABEL FISH"
+	  "BROWNIAN MOTION"
+	  "DAMOGRAN"
+	  "EARTH"
+	  "FLUFF"
+	  "FRANCE"
+	  "GALACTIC SECURITY AGENCY"
+	  "GALAXIA WOONBEAM"
+	  "GENUINE PEOPLE PERSONALITIES"
+	  "GREEN BUTTON"
+	  "HEART OF GOLD"
+	  "HITCHHIKER'S GUIDE"
+	  "IMPROBABILITY DRIVES"
+	  "INFOCOM"
+	  "INTELLIGENCE"
+	  "LARGE PLUG"
+	  "LONG DANGLY BIT"
+	  "MAGRATHEA"
+	  "MATTER TRANSFERENCE BEAMS"
+	  "NUTRIMAT"
+	  "PAN-GALACTIC GARGLE BLASTER"
+	  "PERIL-SENSITIVE SUNGLASSES"
+	  "PROTEIN"
+	  "RAVENOUS BUGBLATTER BEAST OF TRAAL"
+	  "RED BUTTON"
+	  "SANTRAGINEAN MINERAL WATER"
+	  "SIRIUS CYBERNETICS CORPORATION"
+	  "SMALL PLUG"
+	  "SMALL RECEPTACLE"
+	  "SPACE"
+	  "THUMB"
+	  "TOWEL"
+	  "VOGON POETRY"
+	  "VOGONS"
+	  "WALKING"
+	  "various tools"
+	  "various weapons">
+	 <LTABLE 3
+	  "FOOTNOTES"
+	  "The section tells where each footnote is referenced in the game. Once again, you shouldn't develop this section until you've finished."
+	  "FN# HOW TO GET IT"
+	  " 1  ENJOY THE DARKNESS in the Dark"
+	  " 2  Type FORD, WHAT ABOUT MY HOUSE?"
+	  " 3  Upon arrival at the Speedboat"
+	  " 4  Listen to the music in the Pub"
+	  " 5  Remove the towel (beast asleep)"
+	  " 6  Type FOOTNOTE without any number"
+	  " 7  Shoot the Beast three times"
+	  " 8  Consult the Guide about fluff"
+	  " 9  ASK GUIDE ABOUT SPACE in space"
+	  "10  Looking in the Engine Room"
+	  "11  This footnote is not referenced"
+	  "12  This footnote is self referenced"
+	  "13  Push the autopilot button thrice"
+	  "14  When Ford hands you the Guide"
+	  "15  Read the banner at the Dais">>
+>>
\ No newline at end of file
diff --git a/misc.zabstr b/misc.zabstr
new file mode 100644
index 0000000..d2ebd63
--- /dev/null
+++ b/misc.zabstr
@@ -0,0 +1,72 @@
+
+<SETG C-ENABLED? 0> 
+<SETG C-ENABLED 1> 
+<SETG C-DISABLED 0> 
+<DEFINE-ROUTINE RUNNING?> 
+<DEFMAC TELL ("ARGS" A) <FORM PROG () !<MAPF ,LIST <FUNCTION ("AUX" E P O) <
+COND (<EMPTY? .A> <MAPSTOP>) (<SET E <NTH .A 1>> <SET A <REST .A>>)> <COND (<
+TYPE? .E ATOM> <COND (<OR <=? <SET P <SPNAME .E>> "CRLF"> <=? .P "CR">> <MAPRET
+'<CRLF>>) (<EMPTY? .A> <ERROR INDICATOR-AT-END? .E>) (ELSE <SET O <NTH .A 1>> <
+SET A <REST .A>> <COND (<OR <=? <SET P <SPNAME .E>> "DESC"> <=? .P "D"> <=? .P
+"OBJ"> <=? .P "O">> <MAPRET <FORM PRINTD .O>>) (<OR <=? .P "NUM"> <=? .P "N">>
+<MAPRET <FORM PRINTN .O>>) (<OR <=? .P "CHAR"> <=? .P "CHR"> <=? .P "C">> <
+MAPRET <FORM PRINTC .O>>) (ELSE <MAPRET <FORM PRINT <FORM GETP .O .E>>>)>)>) (<
+TYPE? .E STRING ZSTRING> <MAPRET <FORM PRINTI .E>>) (<TYPE? .E FORM LVAL GVAL>
+<MAPRET <FORM PRINT .E>>) (ELSE <ERROR UNKNOWN-TYPE .E>)>>!>>> 
+<DEFMAC VERB? ("ARGS" ATMS) <MULTIFROB PRSA .ATMS>> 
+<DEFMAC PRSO? ("ARGS" ATMS) <MULTIFROB PRSO .ATMS>> 
+<DEFMAC PRSI? ("ARGS" ATMS) <MULTIFROB PRSI .ATMS>> 
+<DEFMAC ROOM? ("ARGS" ATMS) <MULTIFROB HERE .ATMS>> 
+<DEFINE MULTIFROB (X ATMS "AUX" (OO (OR)) (O .OO) (L ()) ATM) <REPEAT () <COND
+(<EMPTY? .ATMS> <RETURN <COND (<LENGTH? .OO 1> <ERROR .X>) (<LENGTH? .OO 2> <
+NTH .OO 2>) (ELSE <CHTYPE .OO FORM>)>>)> <REPEAT () <COND (<EMPTY? .ATMS> <
+RETURN>)> <SET ATM <NTH .ATMS 1>> <SET L (<COND (<TYPE? .ATM ATOM> <FORM GVAL <
+COND (<==? .X PRSA> <PARSE <STRING "V?" <SPNAME .ATM>>>) (ELSE .ATM)>>) (ELSE .
+ATM)> !.L)> <SET ATMS <REST .ATMS>> <COND (<==? <LENGTH .L> 3> <RETURN>)>> <SET
+O <REST <PUTREST .O (<FORM EQUAL? <FORM GVAL .X> !.L>)>>> <SET L ()>>> 
+<DEFMAC BSET ('OBJ "ARGS" BITS) <MULTIBITS FSET .OBJ .BITS>> 
+<DEFMAC BCLEAR ('OBJ "ARGS" BITS) <MULTIBITS FCLEAR .OBJ .BITS>> 
+<DEFMAC BSET? ('OBJ "ARGS" BITS) <MULTIBITS FSET? .OBJ .BITS>> 
+<DEFINE MULTIBITS (X OBJ ATMS "AUX" (O ()) ATM) <REPEAT () <COND (<EMPTY? .ATMS
+> <RETURN <COND (<LENGTH? .O 1> <NTH .O 1>) (<EQUAL? .X FSET?> <FORM OR !.O>) (
+ELSE <FORM PROG () !.O>)>>)> <SET ATM <NTH .ATMS 1>> <SET ATMS <REST .ATMS>> <
+SET O (<FORM .X .OBJ <COND (<TYPE? .ATM FORM> .ATM) (ELSE <FORM GVAL .ATM>)>>
+!.O)>>> 
+<DEFMAC RMGL-SIZE ('TBL) <COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> <FORM -
+<FORM / <FORM PTSIZE .TBL> 2> 1>) (T <FORM - <FORM PTSIZE .TBL> 1>)>> 
+<DEFMAC RFATAL () '<PROG () <PUSH 2> <RSTACK>>> 
+<DEFMAC PROB ('BASE?) <FORM NOT <FORM L? .BASE? '<RANDOM 100>>>> 
+<DEFINE-ROUTINE PICK-ONE> 
+<DEFMAC ENABLE ('INT) <FORM PUT .INT ,C-ENABLED? 1>> 
+<DEFMAC DISABLE ('INT) <FORM PUT .INT ,C-ENABLED? 0>> 
+<GLOBAL PLAYER <>> 
+<GLOBAL P-WON <>> 
+<CONSTANT M-FATAL 2> 
+<CONSTANT M-BEG 1> 
+<CONSTANT M-END 6> 
+<CONSTANT M-ENTER 2> 
+<CONSTANT M-LOOK 3> 
+<CONSTANT M-FLASH 4> 
+<CONSTANT M-OBJDESC 5> 
+<DEFINE-ROUTINE GO> 
+<DEFINE-ROUTINE MAIN-LOOP> 
+<GLOBAL FIRST-BUFFER <ITABLE BYTE 100>> 
+<DEFINE-ROUTINE SAVE-INPUT> 
+<DEFINE-ROUTINE RESTORE-INPUT> 
+<GLOBAL P-MULT <>> 
+<GLOBAL P-NOT-HERE 0> 
+<DEFINE-ROUTINE FAKE-ORPHAN> 
+<DEFINE-ROUTINE PERFORM> 
+<DEFINE-ROUTINE THIS-IS-IT> 
+<DEFINE-ROUTINE D-APPLY> 
+<GLOBAL CLOCK-WAIT <>> 
+<GLOBAL C-TABLE <ITABLE NONE 105>> 
+<CONSTANT C-TABLELEN 210> 
+<GLOBAL C-INTS 210> 
+<CONSTANT C-INTLEN 6> 
+<CONSTANT C-ENABLED? 0> 
+<CONSTANT C-TICK 1> 
+<CONSTANT C-RTN 2> 
+<DEFINE-ROUTINE QUEUE> 
+<DEFINE-ROUTINE INT> 
+<DEFINE-ROUTINE CLOCKER> 
\ No newline at end of file
diff --git a/misc.zap b/misc.zap
new file mode 100644
index 0000000..66a055e
--- /dev/null
+++ b/misc.zap
@@ -0,0 +1,431 @@
+
+
+	.FUNCT	RUNNING?,RTN,C,E,TICK
+	ADD	C-TABLE,C-TABLELEN >E
+	ADD	C-TABLE,C-INTS >C
+?PRG1:	EQUAL?	C,E /FALSE
+	GET	C,C-RTN
+	EQUAL?	STACK,RTN \?CND3
+	GET	C,C-ENABLED?
+	ZERO?	STACK /FALSE
+	GET	C,C-TICK >TICK
+	ZERO?	TICK /FALSE
+	GRTR?	TICK,1 /FALSE
+	RTRUE	
+?CND3:	ADD	C,C-INTLEN >C
+	JUMP	?PRG1
+
+
+	.FUNCT	PICK-ONE,FROB
+	GET	FROB,0
+	RANDOM	STACK
+	GET	FROB,STACK
+	RSTACK	
+
+
+	.FUNCT	GO
+START::
+
+?FCN:	PUTB	P-LEXV,0,59
+	GETB	0,30 >HOST
+	GETB	0,33 >WIDTH
+	CALL	QUEUE,I-HOUSEWRECK,20
+	PUT	STACK,0,1
+	CALL	QUEUE,I-THING,21
+	PUT	STACK,0,1
+	CALL	QUEUE,I-VOGONS,50
+	PUT	STACK,0,1
+	SET	'WINNER,PROTAGONIST
+	SET	'PLAYER,PROTAGONIST
+	SET	'HERE,BEDROOM
+	SET	'IDENTITY-FLAG,ARTHUR
+	MOVE	ARTHUR,GLOBAL-OBJECTS
+	SET	'LYING-DOWN,TRUE-VALUE
+	MOVE	PROTAGONIST,BED
+	CLEAR	-1
+	ICALL1	INIT-STATUS-LINE
+	ICALL1	V-VERSION
+	CRLF	
+	PRINTI	"You wake up. The room is spinning very gently round your head. Or at least it would be if you could see it which you can't."
+	CRLF	
+	CRLF	
+	ICALL1	V-LOOK
+	ICALL1	MAIN-LOOP
+	JUMP	?FCN
+
+
+	.FUNCT	MAIN-LOOP,ICNT,OCNT,NUM,CNT,OBJ,TBL,V,PTBL,OBJ1,TMP,?TMP1
+?PRG1:	SET	'CNT,0
+	SET	'OBJ,FALSE-VALUE
+	SET	'PTBL,TRUE-VALUE
+	CALL1	PARSER >P-WON
+	ZERO?	P-WON /?CCL5
+	GET	P-PRSI,P-MATCHLEN >ICNT
+	GET	P-PRSO,P-MATCHLEN >OCNT
+	ZERO?	P-IT-OBJECT /?CND6
+	CALL2	ACCESSIBLE?,P-IT-OBJECT
+	ZERO?	STACK /?CND6
+	SET	'TMP,FALSE-VALUE
+?PRG10:	IGRTR?	'CNT,ICNT /?REP11
+	GET	P-PRSI,CNT
+	EQUAL?	STACK,IT \?PRG10
+	PUT	P-PRSI,CNT,P-IT-OBJECT
+	SET	'TMP,TRUE-VALUE
+?REP11:	ZERO?	TMP \?CND17
+	SET	'CNT,0
+?PRG19:	IGRTR?	'CNT,OCNT /?CND17
+	GET	P-PRSO,CNT
+	EQUAL?	STACK,IT \?PRG19
+	PUT	P-PRSO,CNT,P-IT-OBJECT
+?CND17:	SET	'CNT,0
+?CND6:	ZERO?	OCNT \?CCL28
+	SET	'NUM,OCNT
+	JUMP	?CND26
+?CCL28:	GRTR?	OCNT,1 \?CCL30
+	SET	'TBL,P-PRSO
+	ZERO?	ICNT \?CCL33
+	SET	'OBJ,FALSE-VALUE
+	JUMP	?CND31
+?CCL33:	GET	P-PRSI,1 >OBJ
+?CND31:	SET	'NUM,OCNT
+	JUMP	?CND26
+?CCL30:	GRTR?	ICNT,1 \?CCL35
+	SET	'PTBL,FALSE-VALUE
+	SET	'TBL,P-PRSI
+	GET	P-PRSO,1 >OBJ
+	SET	'NUM,ICNT
+	JUMP	?CND26
+?CCL35:	SET	'NUM,1
+?CND26:	ZERO?	OBJ \?CND36
+	EQUAL?	ICNT,1 \?CND36
+	GET	P-PRSI,1 >OBJ
+?CND36:	EQUAL?	PRSA,V?WALK \?CCL42
+	ZERO?	P-WALK-DIR \?CTR41
+	ZERO?	PRSO /?CCL42
+?CTR41:	CALL	PERFORM,PRSA,PRSO >V
+	JUMP	?CND40
+?CCL42:	ZERO?	NUM \?CCL48
+	GETB	P-SYNTAX,P-SBITS
+	BAND	STACK,P-SONUMS
+	ZERO?	STACK \?CCL51
+	CALL2	PERFORM,PRSA >V
+	SET	'PRSO,FALSE-VALUE
+	JUMP	?CND40
+?CCL51:	ZERO?	LIT \?PRG56
+	PRINT	TOO-DARK
+	CRLF	
+	ICALL1	FUCKING-CLEAR
+	JUMP	?CND40
+?PRG56:	PRINTI	"There isn't anything to "
+	GET	P-ITBL,P-VERBN >TMP
+	EQUAL?	PRSA,V?TELL \?CCL60
+	PRINTI	"talk to"
+	JUMP	?PRG67
+?CCL60:	ZERO?	P-OFLAG \?CTR63
+	ZERO?	P-MERGED /?CCL64
+?CTR63:	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?PRG67
+?CCL64:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+?PRG67:	PRINTC	33
+	CRLF	
+	SET	'V,FALSE-VALUE
+	ICALL1	FUCKING-CLEAR
+	JUMP	?CND40
+?CCL48:	SET	'P-NOT-HERE,0
+	SET	'P-MULT,FALSE-VALUE
+	GRTR?	NUM,1 \?CND69
+	SET	'P-MULT,TRUE-VALUE
+?CND69:	SET	'TMP,FALSE-VALUE
+?PRG71:	IGRTR?	'CNT,NUM \?CCL75
+	GRTR?	P-NOT-HERE,0 \?CCL78
+	PRINTI	"The "
+	EQUAL?	P-NOT-HERE,NUM /?PRG85
+	PRINTI	"other "
+?PRG85:	PRINTI	"object"
+	EQUAL?	P-NOT-HERE,1 /?PRG91
+	PRINTC	115
+?PRG91:	PRINTI	" that you mentioned "
+	EQUAL?	P-NOT-HERE,1 /?PRG98
+	PRINTI	"are"
+	JUMP	?PRG100
+?PRG98:	PRINTI	"is"
+?PRG100:	PRINTI	"n't here."
+	CRLF	
+	JUMP	?CND40
+?CCL78:	ZERO?	TMP \?CND40
+	PRINT	REFERRING
+	CRLF	
+	JUMP	?CND40
+?CCL75:	ZERO?	PTBL /?CCL107
+	GET	P-PRSO,CNT >OBJ1
+	JUMP	?CND105
+?CCL107:	GET	P-PRSI,CNT >OBJ1
+?CND105:	ZERO?	PTBL /?CCL110
+	SET	'PRSO,OBJ1
+	JUMP	?CND108
+?CCL110:	SET	'PRSO,OBJ
+?CND108:	ZERO?	PTBL /?CCL113
+	SET	'PRSI,OBJ
+	JUMP	?CND111
+?CCL113:	SET	'PRSI,OBJ1
+?CND111:	GRTR?	NUM,1 /?CCL115
+	GET	P-ITBL,P-NC1
+	GET	STACK,0
+	EQUAL?	STACK,W?ALL \?CND114
+?CCL115:	EQUAL?	OBJ1,NOT-HERE-OBJECT \?CCL120
+	INC	'P-NOT-HERE
+	JUMP	?PRG71
+?CCL120:	EQUAL?	P-GETFLAGS,P-ALL \?CCL122
+	EQUAL?	PRSA,V?PICK-UP,V?TAKE \?CCL122
+	LOC	OBJ1
+	EQUAL?	STACK,WINNER,HERE,PRSI /?PRD127
+	LOC	OBJ1
+	FSET?	STACK,SURFACEBIT \?PRG71
+?PRD127:	FSET?	OBJ1,TAKEBIT /?CCL122
+	FSET?	OBJ1,TRYTAKEBIT \?PRG71
+?CCL122:	EQUAL?	PRSA,V?PICK-UP,V?TAKE \?CCL133
+	ZERO?	PRSI /?CCL133
+	IN?	PRSO,PRSI \?PRG71
+?CCL133:	EQUAL?	P-GETFLAGS,P-ALL \?CCL138
+	EQUAL?	PRSA,V?DROP \?CCL138
+	IN?	OBJ1,WINNER \?PRG71
+?CCL138:	EQUAL?	P-GETFLAGS,P-ALL \?CCL143
+	ZERO?	PRSI /?CCL143
+	EQUAL?	PRSO,PRSI /?PRG71
+?CCL143:	EQUAL?	P-GETFLAGS,P-ALL \?CCL148
+	EQUAL?	PRSA,V?PUT \?CCL148
+	CALL	HELD?,PRSO,PRSI
+	ZERO?	STACK \?PRG71
+?CCL148:	CALL2	ACCESSIBLE?,OBJ1
+	ZERO?	STACK /?PRG71
+	EQUAL?	OBJ1,IT \?CCL156
+	PRINTD	P-IT-OBJECT
+	JUMP	?CND154
+?CCL156:	CALL2	TEA-PRINT,OBJ1
+	ZERO?	STACK /?CND154
+	PRINTD	OBJ1
+?CND154:	CALL2	TEA-PRINT,OBJ1
+	ZERO?	STACK /?CND114
+	PRINTI	": "
+?CND114:	SET	'TMP,TRUE-VALUE
+	CALL	PERFORM,PRSA,PRSO,PRSI >V
+	EQUAL?	V,M-FATAL \?PRG71
+?CND40:	EQUAL?	V,M-FATAL /?CND164
+	EQUAL?	PRSA,V?SUPERBRIEF,V?BRIEF,V?TELL /?CND164
+	EQUAL?	PRSA,V?SAVE,V?HINTS,V?VERBOSE /?CND164
+	EQUAL?	PRSA,V?SCRIPT,V?RESTORE,V?VERSION /?CND164
+	EQUAL?	PRSA,V?UNSCRIPT /?CND164
+	LOC	WINNER
+	GETP	STACK,P?ACTION
+	CALL	STACK,M-END >V
+?CND164:	EQUAL?	V,M-FATAL \?CND3
+	SET	'P-CONT,FALSE-VALUE
+	JUMP	?CND3
+?CCL5:	SET	'P-CONT,FALSE-VALUE
+?CND3:	ZERO?	P-WON /?CCL177
+	EQUAL?	PRSA,V?SUPERBRIEF,V?BRIEF,V?TELL /?CND178
+	EQUAL?	PRSA,V?QUIT,V?VERSION,V?VERBOSE /?CND178
+	EQUAL?	PRSA,V?RESTORE,V?SAVE,V?SCORE /?CND178
+	EQUAL?	PRSA,V?FOOTNOTE,V?UNSCRIPT,V?SCRIPT /?CND178
+	EQUAL?	PRSA,V?RESTART,V?HINTS /?CND178
+	EQUAL?	PRSA,V?WAIT \?CCL187
+	ZERO?	DONT-FLAG \?CND178
+?CCL187:	CALL1	CLOCKER >V
+?CND178:	SET	'PRSA,FALSE-VALUE
+	SET	'PRSO,FALSE-VALUE
+	SET	'PRSI,FALSE-VALUE
+	JUMP	?PRG1
+?CCL177:	GETB	P-LEXV,P-LEXWORDS
+	GRTR?	STACK,3 \?PRG1
+	ZERO?	CARELESS-WORDS-FLAG \?PRG1
+	ZERO?	EARTH-DEMOLISHED /?PRG1
+	CALL2	SAVE-INPUT,FIRST-BUFFER
+	ZERO?	STACK /?PRG1
+	SET	'CARELESS-WORDS-FLAG,TRUE-VALUE
+	CALL	QUEUE,I-CARELESS-WORDS,3
+	PUT	STACK,0,1
+	JUMP	?PRG1
+
+
+	.FUNCT	SAVE-INPUT,TBL,OFFS,CNT,TMP,?TMP1
+	MUL	4,P-INPUT-WORDS >TMP
+	GETB	P-LEXV,TMP >?TMP1
+	ADD	TMP,1
+	GETB	P-LEXV,STACK
+	ADD	?TMP1,STACK >CNT
+	ZERO?	CNT /FALSE
+	DEC	'CNT
+?PRG3:	EQUAL?	OFFS,CNT \?CCL7
+	PUTB	TBL,OFFS,0
+	RTRUE	
+?CCL7:	ADD	OFFS,1
+	GETB	P-INBUF,STACK
+	PUTB	TBL,OFFS,STACK
+	INC	'OFFS
+	JUMP	?PRG3
+
+
+	.FUNCT	RESTORE-INPUT,TBL,CHR
+	INC	'TBL
+?PRG1:	GETB	TBL,0 >CHR
+	ZERO?	CHR /TRUE
+	PRINTC	CHR
+	INC	'TBL
+	JUMP	?PRG1
+
+
+	.FUNCT	FAKE-ORPHAN,TMP,?TMP1
+	ICALL	ORPHAN,P-SYNTAX,FALSE-VALUE
+	PRINTI	"Be specific: what object do"
+	ZERO?	DONT-FLAG /?PRG7
+	PRINTI	"n't"
+?PRG7:	PRINTI	" you want to "
+	GET	P-OTBL,P-VERBN >TMP
+	ZERO?	TMP \?CCL11
+	PRINTI	"tell"
+	JUMP	?CND9
+?CCL11:	GETB	P-VTBL,2
+	ZERO?	STACK \?CCL15
+	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?CND9
+?CCL15:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+	PUTB	P-VTBL,2,0
+?CND9:	SET	'P-OFLAG,TRUE-VALUE
+	SET	'P-WON,FALSE-VALUE
+	GETB	P-SYNTAX,P-SPREP1
+	ICALL2	PREP-PRINT,STACK
+	PRINTR	"?"
+
+
+	.FUNCT	PERFORM,A,O,I,V,OA,OO,OI
+	SET	'OA,PRSA
+	SET	'OO,PRSO
+	SET	'OI,PRSI
+	SET	'PRSA,A
+	EQUAL?	IT,I,O \?CND1
+	ZERO?	P-WALK-DIR \?CND1
+	EQUAL?	A,V?WALK /?CND1
+	ZERO?	I \?PRG9
+	ICALL1	FAKE-ORPHAN
+	RETURN	2
+?PRG9:	PRINT	REFERRING
+	CRLF	
+	RETURN	2
+?CND1:	SET	'PRSO,O
+	SET	'PRSI,I
+	EQUAL?	A,V?WALK /?CND13
+	ZERO?	P-WALK-DIR \?CND13
+	EQUAL?	NOT-HERE-OBJECT,PRSO,PRSI \?CND13
+	CALL	D-APPLY,STR?1,NOT-HERE-OBJECT-F >V
+	ZERO?	V /?CND13
+	SET	'P-WON,FALSE-VALUE
+?CND13:	SET	'O,PRSO
+	SET	'I,PRSI
+	ICALL2	THIS-IS-IT,PRSI
+	ICALL2	THIS-IS-IT,PRSO
+	ZERO?	V \?CND20
+	GETP	WINNER,P?ACTION
+	CALL	D-APPLY,STR?2,STACK >V
+?CND20:	ZERO?	V \?CND22
+	ZERO?	DONT-FLAG /?CND22
+	CALL1	DONT-F >V
+?CND22:	ZERO?	V \?CND26
+	LOC	WINNER
+	ZERO?	STACK /?CND26
+	LOC	WINNER
+	GETP	STACK,P?ACTION
+	CALL	D-APPLY,STR?3,STACK,M-BEG >V
+?CND26:	ZERO?	V \?CND30
+	GET	PREACTIONS,A
+	CALL	D-APPLY,STR?4,STACK >V
+?CND30:	ZERO?	V \?CND32
+	ZERO?	I /?CND32
+	GETP	I,P?ACTION
+	CALL	D-APPLY,STR?5,STACK >V
+?CND32:	ZERO?	V \?CND36
+	ZERO?	O /?CND36
+	EQUAL?	A,V?WALK /?CND36
+	GETP	O,P?ACTION
+	CALL	D-APPLY,STR?6,STACK >V
+?CND36:	ZERO?	V \?CND41
+	GET	ACTIONS,A
+	CALL	D-APPLY,FALSE-VALUE,STACK >V
+?CND41:	SET	'PRSA,OA
+	SET	'PRSO,OO
+	SET	'PRSI,OI
+	RETURN	V
+
+
+	.FUNCT	THIS-IS-IT,OBJ
+	EQUAL?	OBJ,FALSE-VALUE,PROTAGONIST /TRUE
+	EQUAL?	OBJ,NOT-HERE-OBJECT,ME,GLOBAL-ROOM /TRUE
+	EQUAL?	PRSA,V?WALK \?CCL3
+	EQUAL?	PRSO,OBJ /TRUE
+?CCL3:	SET	'P-IT-OBJECT,OBJ
+	RETURN	P-IT-OBJECT
+
+
+	.FUNCT	D-APPLY,STR,FCN,FOO,RES
+	ZERO?	FCN /FALSE
+	ZERO?	FOO /?CCL6
+	CALL	FCN,FOO >RES
+	RETURN	RES
+?CCL6:	CALL	FCN >RES
+	RETURN	RES
+
+
+	.FUNCT	QUEUE,RTN,TICK,CINT
+	CALL2	INT,RTN >CINT
+	PUT	CINT,C-TICK,TICK
+	RETURN	CINT
+
+
+	.FUNCT	INT,RTN,E,C,INT
+	ADD	C-TABLE,C-TABLELEN >E
+	ADD	C-TABLE,C-INTS >C
+?PRG1:	EQUAL?	C,E \?CCL5
+	SUB	C-INTS,C-INTLEN >C-INTS
+	ADD	C-TABLE,C-INTS >INT
+	PUT	INT,C-RTN,RTN
+	RETURN	INT
+?CCL5:	GET	C,C-RTN
+	EQUAL?	STACK,RTN \?CND3
+	RETURN	C
+?CND3:	ADD	C,C-INTLEN >C
+	JUMP	?PRG1
+
+
+	.FUNCT	CLOCKER,C,E,TICK,FLG
+	ZERO?	CLOCK-WAIT /?CND1
+	SET	'CLOCK-WAIT,FALSE-VALUE
+	RFALSE	
+?CND1:	ZERO?	P-WON \?CCL5
+	PUSH	0
+	JUMP	?CND3
+?CCL5:	PUSH	C-INTS
+?CND3:	ADD	C-TABLE,STACK >C
+	ADD	C-TABLE,C-TABLELEN >E
+?PRG6:	EQUAL?	C,E \?CCL10
+	INC	'MOVES
+	RETURN	FLG
+?CCL10:	GET	C,C-ENABLED?
+	ZERO?	STACK /?CND8
+	GET	C,C-TICK >TICK
+	ZERO?	TICK /?CND8
+	SUB	TICK,1
+	PUT	C,C-TICK,STACK
+	GRTR?	TICK,1 /?CND8
+	GET	C,C-RTN
+	CALL	STACK
+	ZERO?	STACK /?CND8
+	SET	'FLG,TRUE-VALUE
+?CND8:	ADD	C,C-INTLEN >C
+	JUMP	?PRG6
+
+	.ENDI
diff --git a/misc.zil b/misc.zil
new file mode 100644
index 0000000..1f9d073
--- /dev/null
+++ b/misc.zil
@@ -0,0 +1,667 @@
+"MISC for
+		  THE HITCHHIKER'S GUIDE TO THE GALAXY
+	     (c) 1984 by Infocom, Inc.  All Rights Reserved."
+
+;"former MACROS.ZIL stuff"
+
+<SETG C-ENABLED? 0>
+
+<SETG C-ENABLED 1>
+
+<SETG C-DISABLED 0>
+
+<ROUTINE RUNNING? (RTN "AUX" C E TICK)
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <SET C <REST ,C-TABLE ,C-INTS>>
+	 <REPEAT ()
+		 <COND (<==? .C .E> <RFALSE>)
+		       (<EQUAL? <GET .C ,C-RTN> .RTN>
+			<COND (<OR <0? <GET .C ,C-ENABLED?>>
+				   <0? <SET TICK <GET .C ,C-TICK>>>
+				   <G? .TICK 1>>
+			       <RFALSE>)
+			      (T <RTRUE>)>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
+
+<DEFMAC TELL ("ARGS" A)
+	<FORM PROG ()
+	      !<MAPF ,LIST
+		     <FUNCTION ("AUX" E P O)
+			  <COND (<EMPTY? .A> <MAPSTOP>)
+				(<SET E <NTH .A 1>>
+				 <SET A <REST .A>>)>
+			  <COND (<TYPE? .E ATOM>
+				 <COND (<OR <=? <SET P <SPNAME .E>>
+						"CRLF">
+					    <=? .P "CR">>
+					<MAPRET '<CRLF>>)
+				       (<EMPTY? .A>
+					<ERROR INDICATOR-AT-END? .E>)
+				       (ELSE
+					<SET O <NTH .A 1>>
+					<SET A <REST .A>>
+					<COND (<OR <=? <SET P <SPNAME .E>>
+						       "DESC">
+						   <=? .P "D">
+						   <=? .P "OBJ">
+						   <=? .P "O">>
+					       <MAPRET <FORM PRINTD .O>>)
+					      (<OR <=? .P "NUM">
+						   <=? .P "N">>
+					       <MAPRET <FORM PRINTN .O>>)
+					      (<OR <=? .P "CHAR">
+						   <=? .P "CHR">
+						   <=? .P "C">>
+					       <MAPRET <FORM PRINTC .O>>)
+					      (ELSE
+					       <MAPRET
+						 <FORM PRINT
+						       <FORM GETP .O .E>>>)>)>)
+				(<TYPE? .E STRING ZSTRING>
+				 <MAPRET <FORM PRINTI .E>>)
+				(<TYPE? .E FORM LVAL GVAL>
+				 <MAPRET <FORM PRINT .E>>)
+				(ELSE <ERROR UNKNOWN-TYPE .E>)>>>>>
+
+<DEFMAC VERB? ("ARGS" ATMS)
+	<MULTIFROB PRSA .ATMS>>
+
+<DEFMAC PRSO? ("ARGS" ATMS)
+	<MULTIFROB PRSO .ATMS>>
+
+<DEFMAC PRSI? ("ARGS" ATMS)
+	<MULTIFROB PRSI .ATMS>>
+
+<DEFMAC ROOM? ("ARGS" ATMS)
+	<MULTIFROB HERE .ATMS>>
+
+<DEFINE MULTIFROB (X ATMS "AUX" (OO (OR)) (O .OO) (L ()) ATM) 
+	<REPEAT ()
+		<COND (<EMPTY? .ATMS>
+		       <RETURN!- <COND (<LENGTH? .OO 1> <ERROR .X>)
+				       (<LENGTH? .OO 2> <NTH .OO 2>)
+				       (ELSE <CHTYPE .OO FORM>)>>)>
+		<REPEAT ()
+			<COND (<EMPTY? .ATMS> <RETURN!->)>
+			<SET ATM <NTH .ATMS 1>>
+			<SET L
+			     (<COND (<TYPE? .ATM ATOM>
+				     <FORM GVAL
+					   <COND (<==? .X PRSA>
+						  <PARSE
+						    <STRING "V?"
+							    <SPNAME .ATM>>>)
+						 (ELSE .ATM)>>)
+				    (ELSE .ATM)>
+			      !.L)>
+			<SET ATMS <REST .ATMS>>
+			<COND (<==? <LENGTH .L> 3> <RETURN!->)>>
+		<SET O <REST <PUTREST .O (<FORM EQUAL? <FORM GVAL .X> !.L>)>>>
+		<SET L ()>>>
+
+<DEFMAC BSET ('OBJ "ARGS" BITS)
+	<MULTIBITS FSET .OBJ .BITS>>
+
+<DEFMAC BCLEAR ('OBJ "ARGS" BITS)
+	<MULTIBITS FCLEAR .OBJ .BITS>>
+
+<DEFMAC BSET? ('OBJ "ARGS" BITS)
+	<MULTIBITS FSET? .OBJ .BITS>>
+
+<DEFINE MULTIBITS (X OBJ ATMS "AUX" (O ()) ATM) 
+	<REPEAT ()
+		<COND (<EMPTY? .ATMS>
+		       <RETURN!- <COND (<LENGTH? .O 1> <NTH .O 1>)
+				       (<EQUAL? .X FSET?> <FORM OR !.O>)
+				       (ELSE <FORM PROG () !.O>)>>)>
+		<SET ATM <NTH .ATMS 1>>
+		<SET ATMS <REST .ATMS>>
+		<SET O
+		     (<FORM .X
+			    .OBJ
+			    <COND (<TYPE? .ATM FORM> .ATM)
+				  (ELSE <FORM GVAL .ATM>)>>
+		      !.O)>>>
+
+<DEFMAC RMGL-SIZE ('TBL)
+	<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
+	       <FORM - <FORM / <FORM PTSIZE .TBL> 2> 1>)
+	      (T <FORM - <FORM PTSIZE .TBL> 1>)>>
+
+<DEFMAC RFATAL ()
+	'<PROG () <PUSH 2> <RSTACK>>>
+
+<DEFMAC PROB ('BASE?)
+	<FORM NOT <FORM L? .BASE? '<RANDOM 100>>>>
+
+<ROUTINE PICK-ONE (FROB)
+	 <GET .FROB <RANDOM <GET .FROB 0>>>>
+
+<DEFMAC ENABLE ('INT)
+	<FORM PUT .INT ,C-ENABLED? 1>>
+
+<DEFMAC DISABLE ('INT)
+	<FORM PUT .INT ,C-ENABLED? 0>>
+
+;"former MAIN.ZIL stuff"
+
+<GLOBAL PLAYER <>>
+
+<GLOBAL P-WON <>>
+
+<CONSTANT M-FATAL 2>
+<CONSTANT M-BEG 1>
+<CONSTANT M-END 6>
+<CONSTANT M-ENTER 2>
+<CONSTANT M-LOOK 3>
+<CONSTANT M-FLASH 4>
+<CONSTANT M-OBJDESC 5>
+
+<ROUTINE GO () 
+	 <PUTB ,P-LEXV 0 59>
+;"read in system parameters"
+	 <SETG HOST <LOWCORE INTID>>
+	 ;<SETG CWIDTH <LOWCORE (FWRD 0)>>
+	 ;<SETG WIDTH </ <LOWCORE HWRD> ,CWIDTH>>
+	 <SETG WIDTH <LOWCORE SCRH>> ;"C-128 SCRH NOT = HWRD/FWRD"
+;"put interrupts on clock chain"
+	 <ENABLE <QUEUE I-HOUSEWRECK 20>>
+	 <ENABLE <QUEUE I-THING 21>>
+	 <ENABLE <QUEUE I-VOGONS 50>>	 
+;"set up and go"
+	 <SETG WINNER ,PROTAGONIST>
+	 <SETG PLAYER ,PROTAGONIST>
+	 <SETG HERE ,BEDROOM>
+	 <SETG IDENTITY-FLAG ,ARTHUR>
+	 <MOVE ,ARTHUR ,GLOBAL-OBJECTS>
+	 <SETG LYING-DOWN T>
+	 <MOVE ,PROTAGONIST ,BED>
+	 <CLEAR -1>
+	 <INIT-STATUS-LINE>
+	 <V-VERSION>
+	 <CRLF>
+	 <TELL
+"You wake up. The room is spinning very gently round your head. Or at least
+it would be if you could see it which you can't." CR CR>
+	 <V-LOOK>
+	 <MAIN-LOOP>
+	 <AGAIN>>    
+
+<ROUTINE MAIN-LOOP ("AUX" ICNT OCNT NUM CNT OBJ TBL V PTBL OBJ1 TMP)
+   <REPEAT ()
+     <SET CNT 0>
+     <SET OBJ <>>
+     <SET PTBL T>
+     <COND (<SETG P-WON <PARSER>>
+	    <SET ICNT <GET ,P-PRSI ,P-MATCHLEN>>
+	    <SET OCNT <GET ,P-PRSO ,P-MATCHLEN>>
+	    <COND (<AND ,P-IT-OBJECT <ACCESSIBLE? ,P-IT-OBJECT>>
+		   <SET TMP <>>
+		   <REPEAT ()
+			   <COND (<G? <SET CNT <+ .CNT 1>> .ICNT>
+				  <RETURN>)
+				 (T
+				  <COND (<EQUAL? <GET ,P-PRSI .CNT> ,IT>
+					 <PUT ,P-PRSI .CNT ,P-IT-OBJECT>
+					 <SET TMP T>
+					 <RETURN>)>)>>
+		   <COND (<NOT .TMP>
+			  <SET CNT 0>
+			  <REPEAT ()
+			   <COND (<G? <SET CNT <+ .CNT 1>> .OCNT>
+				  <RETURN>)
+				 (T
+				  <COND (<EQUAL? <GET ,P-PRSO .CNT> ,IT>
+					 <PUT ,P-PRSO .CNT ,P-IT-OBJECT>
+					 <RETURN>)>)>>)>
+		   <SET CNT 0>)>
+	    <SET NUM
+		 <COND (<0? .OCNT> .OCNT)
+		       (<G? .OCNT 1>
+			<SET TBL ,P-PRSO>
+			<COND (<0? .ICNT> <SET OBJ <>>)
+			      (T <SET OBJ <GET ,P-PRSI 1>>)>
+			.OCNT)
+		       (<G? .ICNT 1>
+			<SET PTBL <>>
+			<SET TBL ,P-PRSI>
+			<SET OBJ <GET ,P-PRSO 1>>
+			.ICNT)
+		       (T 1)>>
+	    <COND (<AND <NOT .OBJ>
+			<1? .ICNT>>
+		   <SET OBJ <GET ,P-PRSI 1>>)>
+	    <COND (<AND <EQUAL? ,PRSA ,V?WALK> ;"modified by GTB per XZIP"
+		        <OR <T? ,P-WALK-DIR>
+			    <T? ,PRSO>>>
+		   <SET V <PERFORM ,PRSA ,PRSO>>)
+		  (<0? .NUM>
+		   <COND (<0? <BAND <GETB ,P-SYNTAX ,P-SBITS> ,P-SONUMS>>
+			  <SET V <PERFORM ,PRSA>>
+			  <SETG PRSO <>>)
+			 (<NOT ,LIT>
+			  <TELL ,TOO-DARK CR>
+			  <FUCKING-CLEAR>)
+			 (T
+			  <TELL "There isn't anything to ">
+			  <SET TMP <GET ,P-ITBL ,P-VERBN>>
+			  <COND (<VERB? TELL>
+				 <TELL "talk to">)
+				(<OR ,P-OFLAG ,P-MERGED>
+				 <PRINTB <GET .TMP 0>>)
+				(T
+				 <WORD-PRINT <GETB .TMP 2>
+					     <GETB .TMP 3>>)>
+			  <TELL "!" CR>
+			  <SET V <>>
+			  <FUCKING-CLEAR>)>)
+		  (T
+		   <SETG P-NOT-HERE 0>
+		   <SETG P-MULT <>>
+		   <COND (<G? .NUM 1> <SETG P-MULT T>)>
+		   <SET TMP <>>
+		   <REPEAT ()
+			   <COND (<G? <SET CNT <+ .CNT 1>> .NUM>
+				  <COND (<G? ,P-NOT-HERE 0>
+					 <TELL "The ">
+					 <COND (<NOT <EQUAL? ,P-NOT-HERE .NUM>>
+						<TELL "other ">)>
+					 <TELL "object">
+					 <COND (<NOT <EQUAL? ,P-NOT-HERE 1>>
+						<TELL "s">)>
+					 <TELL " that you mentioned ">
+					 <COND (<NOT <EQUAL? ,P-NOT-HERE 1>>
+						<TELL "are">)
+					       (T <TELL "is">)>
+					 <TELL "n't here." CR>)
+					(<NOT .TMP>
+					 <TELL ,REFERRING CR>)>
+				  <RETURN>)
+				 (T
+				  <COND (.PTBL <SET OBJ1 <GET ,P-PRSO .CNT>>)
+					(T <SET OBJ1 <GET ,P-PRSI .CNT>>)>
+				  <SETG PRSO <COND (.PTBL .OBJ1) (T .OBJ)>>
+				  <SETG PRSI <COND (.PTBL .OBJ) (T .OBJ1)>>
+				  <COND (<OR <G? .NUM 1>
+					     <EQUAL? <GET <GET ,P-ITBL ,P-NC1>
+							  0>
+						     ,W?ALL>>
+					 <COND (<EQUAL? .OBJ1
+							,NOT-HERE-OBJECT>
+						<SETG P-NOT-HERE
+						      <+ ,P-NOT-HERE 1>>
+						<AGAIN>)
+					       (<AND <EQUAL? ,P-GETFLAGS
+							     ,P-ALL>
+						     <VERB? TAKE PICK-UP>
+						     <OR <AND <NOT <EQUAL?
+							       <LOC .OBJ1>
+							       ,WINNER
+							       ,HERE
+							       ,PRSI>>
+							      <NOT <FSET?
+								  <LOC .OBJ1>
+								 ,SURFACEBIT>>>
+							 <AND <NOT <FSET? .OBJ1
+							             ,TAKEBIT>>
+							     <NOT <FSET? .OBJ1
+							       ,TRYTAKEBIT>>>>>
+						<AGAIN>)
+					       (<AND <VERB? TAKE PICK-UP>
+						     ,PRSI
+						     <NOT <IN? ,PRSO ,PRSI>>>
+						<AGAIN>)
+					       (<AND <EQUAL? ,P-GETFLAGS
+							     ,P-ALL>
+						     <VERB? DROP>
+						      <NOT <IN? .OBJ1 ,WINNER>>
+						      ;"next frob semied by JW"
+						      ;<NOT <IN? ,P-IT-OBJECT
+								,WINNER>>>
+						<AGAIN>)
+					       (<AND <EQUAL? ,P-GETFLAGS
+							     ,P-ALL>
+						     ,PRSI
+						     <==? ,PRSO ,PRSI>>
+						<AGAIN>)
+					       (<AND <EQUAL? ,P-GETFLAGS
+							     ,P-ALL>
+						     <VERB? PUT>
+						     <HELD? ,PRSO ,PRSI>>
+						<AGAIN>)
+					       (<NOT <ACCESSIBLE? .OBJ1>>
+						<AGAIN>)
+					       (T
+						<COND (<EQUAL? .OBJ1 ,IT>
+						       <PRINTD ,P-IT-OBJECT>)
+						      (<TEA-PRINT .OBJ1>
+						       <PRINTD .OBJ1>)>
+					        <COND (<TEA-PRINT .OBJ1>
+						       <TELL ": ">)>)>)>
+				  <SET TMP T>
+				  <SET V <PERFORM ,PRSA ,PRSO ,PRSI>>
+				  <COND (<EQUAL? .V ,M-FATAL> <RETURN>)>)>>)>
+	    <COND (<NOT <EQUAL? .V ,M-FATAL>>
+		   <COND (<VERB? TELL BRIEF SUPERBRIEF VERBOSE HINTS
+				 SAVE VERSION RESTORE SCRIPT UNSCRIPT>
+			  T)
+			 (T
+			  <SET V <APPLY <GETP <LOC ,WINNER> ,P?ACTION>
+					,M-END>>)>)>
+	    ;<COND (<VERB? ;AGAIN SAVE RESTORE SCRIPT UNSCRIPT
+			  VERBOSE BRIEF SUPERBRIEF>
+		   T)
+		  (,P-OFLAG T)
+		  ;(T
+		   <SETG L-PRSA ,PRSA>
+		   <SETG L-PRSO ,PRSO>
+		   <SETG L-PRSI ,PRSI>)>
+	    ;<COND (,DONT-FLAG
+		   <SETG L-DONT-FLAG T>)
+		  (T
+		   <SETG L-DONT-FLAG <>>)>
+	    ;<COND (,IN-FRONT-FLAG
+		   <SETG L-FRONT-FLAG T>)
+		  (T
+		   <SETG L-FRONT-FLAG <>>)>
+	    <COND (<EQUAL? .V ,M-FATAL>
+		   <SETG P-CONT <>>)>)
+	   (T
+	    <SETG P-CONT <>>)>
+     <COND (,P-WON
+	    <COND (<VERB? TELL BRIEF SUPERBRIEF VERBOSE VERSION QUIT SCORE
+			  SAVE RESTORE SCRIPT UNSCRIPT FOOTNOTE HINTS RESTART>
+		   T)
+		  ;(<AND <VERB? AGAIN>>
+			<OR <EQUAL? ,L-PRSA ,V?FIND ,V?FOLLOW ,V?CALL>
+			    <EQUAL? ,L-PRSA ,V?WHAT ,V?WHERE ,V?WAIT-FOR>
+			    <EQUAL? ,L-PRSA ,V?WHO ,V?WALK-TO ,V?WHAT-ABOUT>
+			    <EQUAL? ,L-PRSA ,V?ASK-ABOUT ,V?ASK-FOR ,V?I-AM>
+			    <EQUAL? ,L-PRSA ,V?MY-NAME ,V?CARVE ,V?SCORE>
+			    <EQUAL? ,L-PRSA ,V?VERSION ,V?FOOTNOTE ,V?HINTS>>
+		   T)
+		  (<AND <VERB? WAIT>
+			,DONT-FLAG>
+		   T)
+		  ;(<AND <VERB? AGAIN>
+			<EQUAL? ,L-PRSA ,V?WAIT>
+			,L-DONT-FLAG>
+		   T)
+		  (T
+		   <SET V <CLOCKER>>)>
+	    <SETG PRSA <>>
+	    <SETG PRSO <>>
+	    <SETG PRSI <>>)
+	   (<AND <G? <GETB ,P-LEXV ,P-LEXWORDS> 3>
+		 <NOT ,CARELESS-WORDS-FLAG>
+		 ,EARTH-DEMOLISHED
+		 <SAVE-INPUT ,FIRST-BUFFER>>
+	    <SETG CARELESS-WORDS-FLAG T>
+	    <ENABLE <QUEUE I-CARELESS-WORDS 3>>)>>>
+
+<GLOBAL FIRST-BUFFER <ITABLE BYTE 100>>
+
+<ROUTINE SAVE-INPUT (TBL "AUX" (OFFS 0) CNT TMP)
+	 <SET CNT <+ <GETB ,P-LEXV <SET TMP <* 4 ,P-INPUT-WORDS>>>
+		     <GETB ,P-LEXV <+ .TMP 1>>>>
+	 <COND (<EQUAL? .CNT 0> ;"failed"
+		<RFALSE>)>
+	 <SET CNT <- .CNT 1>>
+	 <REPEAT ()
+		 <COND (<EQUAL? .OFFS .CNT>
+			<PUTB .TBL .OFFS 0>
+			<RETURN>)
+		       (T
+			<PUTB .TBL .OFFS <GETB ,P-INBUF <+ .OFFS 1>>>)>
+		 <SET OFFS <+ .OFFS 1>>>
+	 <RTRUE>>
+
+<ROUTINE RESTORE-INPUT (TBL "AUX" CHR)
+	 <SET TBL <REST .TBL>>
+	 <REPEAT ()
+		 <COND (<EQUAL? <SET CHR <GETB .TBL 0>> 0>
+			<RETURN>)
+		       (T
+			<PRINTC .CHR>
+			<SET TBL <REST .TBL>>)>>>
+
+;<GLOBAL L-PRSA <>>  
+
+;<GLOBAL L-PRSO <>>  
+
+;<GLOBAL L-PRSI <>>  
+
+;<GLOBAL L-DONT-FLAG <>>
+
+;<GLOBAL L-FRONT-FLAG <>>
+
+<GLOBAL P-MULT <>>
+
+<GLOBAL P-NOT-HERE 0>
+
+
+<ROUTINE FAKE-ORPHAN ("AUX" TMP)
+	 <ORPHAN ,P-SYNTAX <>>
+	 <TELL "Be specific: what object do">
+	 <COND (,DONT-FLAG
+		<TELL "n't">)>
+	 <TELL " you want to ">
+	 <SET TMP <GET ,P-OTBL ,P-VERBN>>
+	 <COND (<EQUAL? .TMP 0>
+		<TELL "tell">)
+	       (<0? <GETB ,P-VTBL 2>>
+		<PRINTB <GET .TMP 0>>)
+	       (T
+		<WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>
+		<PUTB ,P-VTBL 2 0>)>
+	 <SETG P-OFLAG T>
+	 <SETG P-WON <>>
+	 <PREP-PRINT
+	     <GETB ,P-SYNTAX ,P-SPREP1>>
+	 <TELL "?" CR>>
+
+<ROUTINE PERFORM (A "OPTIONAL" (O <>) (I <>) "AUX" (V <>) OA OO OI)
+	 <SET OA ,PRSA>
+	 <SET OO ,PRSO>
+	 <SET OI ,PRSI>
+	 <SETG PRSA .A>
+	 <COND (<AND <EQUAL? ,IT .I .O>
+		     <ZERO? ,P-WALK-DIR>
+		     <NOT <EQUAL? .A ,V?WALK>>> ;"NE FIX"
+	        <COND (<NOT .I>
+		       <FAKE-ORPHAN>)
+		      (T
+		       <TELL ,REFERRING CR>)>
+	        <RFATAL>)>
+	 <SETG PRSO .O>
+	 <SETG PRSI .I>
+	 <COND (<AND <NOT <EQUAL? .A ,V?WALK>>
+		     <ZERO? ,P-WALK-DIR>
+		     <EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>>
+		<SET V <D-APPLY "Not Here" ,NOT-HERE-OBJECT-F>>
+		<COND (<T? .V>
+		       <SETG P-WON <>>)>)>
+	 <SET O ,PRSO>
+	 <SET I ,PRSI>
+	 <THIS-IS-IT ,PRSI>
+	 <THIS-IS-IT ,PRSO>
+	 <COND (<ZERO? .V>
+		<SET V <D-APPLY "Actor" <GETP ,WINNER ,P?ACTION>>>)>
+	 <COND (<AND <ZERO? .V>
+		     ,DONT-FLAG>
+		<SET V <DONT-F>>)>
+	 <COND (<ZERO? .V>
+		<COND (<T? <LOC ,WINNER>>
+		       <SET V <D-APPLY "M-Beg" <GETP <LOC ,WINNER> ,P?ACTION>
+				      ,M-BEG>>)>)>
+	 <COND (<ZERO? .V>
+		<SET V <D-APPLY "Preaction" <GET ,PREACTIONS .A>>>)>
+	 <COND (<AND <ZERO? .V>
+		     <T? .I>>
+	        <SET V <D-APPLY "PRSI" <GETP .I ,P?ACTION>>>)>
+	 <COND (<AND <ZERO? .V> 
+		     <T? .O>
+		     ;<ZERO? ,P-WALK-DIR>
+		     <NOT <EQUAL? .A ,V?WALK>>>
+	        <SET V <D-APPLY "PRSO" <GETP .O ,P?ACTION>>>)>
+	 <COND (<ZERO? .V>
+	        <SET V <D-APPLY <> <GET ,ACTIONS .A>>>)>
+	 <SETG PRSA .OA>
+	 <SETG PRSO .OO>
+	 <SETG PRSI .OI>
+	 .V>
+
+<ROUTINE THIS-IS-IT (OBJ)
+	 <COND (<OR <EQUAL? .OBJ <> ,PROTAGONIST> ;"is this necessary?"
+		    <EQUAL? .OBJ ,NOT-HERE-OBJECT ,ME ,GLOBAL-ROOM>
+		    <AND <VERB? WALK>
+			 <PRSO? .OBJ>> ;"PRSO is a direction">
+		<RTRUE>)  
+	       ;(<FSET? .OBJ ,PERSON>
+		<SETG P-HIM-OBJECT .OBJ>)
+	       (T
+		<SETG P-IT-OBJECT .OBJ>)>>
+
+
+;<ROUTINE PERFORM (A "OPTIONAL" (O <>) (I <>) "AUX" V OA OO OI)
+	;<COND (,DEBUG
+	       <TELL "[Perform: ">
+	       %<COND (<GASSIGNED? PREDGEN> '<TELL N .A>)
+		      (T '<PRINC <NTH ,ACTIONS <+ <* .A 2> 1>>>)>
+	       <COND (<AND .O <NOT <EQUAL? .A ,V?WALK>>>
+		      <TELL " / PRSO = " D .O>)>
+	       <COND (.I <TELL " / PRSI = " D .I>)>
+	       <TELL "]" CR>
+	       <COND (,IN-FRONT-FLAG
+		      <TELL "[IN-FRONT-FLAG is set]" CR>)>)>
+	<SET OA ,PRSA>
+	<SET OO ,PRSO>
+	<SET OI ,PRSI>
+	<SETG PRSA .A>
+	<COND (<AND <EQUAL? ,IT .O .I>
+		   <NOT <EQUAL? .A ,V?WALK>>>
+	       <COND (<NOT .I>
+		      <FAKE-ORPHAN>)
+		     (T
+		      <TELL ,REFERRING CR>)>
+	       <RFATAL>)>
+	<SETG PRSO .O>
+	<COND (<AND ,PRSO
+		    <NOT <VERB? WALK>>
+		    <NOT <PRSO? ,NOT-HERE-OBJECT>>>
+	       <SETG P-IT-OBJECT ,PRSO>)>
+	<SETG PRSI .I>
+	;<COND (<NOT <EQUAL? .A ,V?AGAIN>>
+	       <SETG L-PRSA .A>
+	       <COND (<EQUAL? .A ,V?WALK> <SETG L-PRSO <>>)
+		     (T <SETG L-PRSO .O>)>
+	       <SETG L-PRSI .I>)>
+	<COND (<AND <NOT <EQUAL? .A ,V?WALK>>
+		    <EQUAL? ,NOT-HERE-OBJECT ,PRSO ,PRSI>
+		    <SET V <D-APPLY "Not Here" ,NOT-HERE-OBJECT-F>>>
+	       <SETG P-WON <>>
+	       .V)
+	      (T
+	       <SET O ,PRSO>
+	       <SET I ,PRSI>
+	       <COND (<SET V <D-APPLY "Actor" <GETP ,WINNER ,P?ACTION>>>
+		      .V)
+		     (<AND ,DONT-FLAG <SET V <DONT-F>>>
+		      .V)
+		     (<SET V <D-APPLY "M-Beg" <GETP <LOC ,WINNER> ,P?ACTION>
+				      ,M-BEG>>
+		      .V)
+		     (<SET V <D-APPLY "Preaction" <GET ,PREACTIONS .A>>>
+		      .V)
+		     (<AND .I <SET V <D-APPLY "PRSI" <GETP .I ,P?ACTION>>>>
+		      .V)
+		     ;(<AND .O
+			   <NOT <EQUAL? .A ,V?WALK>>
+			   <LOC .O>
+			   <GETP <LOC .O> ,P?CONTFCN>
+			   <SET V <D-APPLY "Cont" <GETP <LOC .O> ,P?CONTFCN>>>>
+		      .V) 
+		     (<AND .O
+			   <NOT <EQUAL? .A ,V?WALK>>
+			   <SET V <D-APPLY "PRSO" <GETP .O ,P?ACTION>>>>
+		      .V)
+		     (<SET V <D-APPLY <> <GET ,ACTIONS .A>>>
+		      .V)>)>
+	<SETG PRSA .OA>
+	<SETG PRSO .OO>
+	<SETG PRSI .OI>
+	.V>
+
+<ROUTINE D-APPLY (STR FCN "OPTIONAL" (FOO <>) "AUX" RES)
+	<COND (<NOT .FCN> <>)
+	      (T
+	       ;<COND (,DEBUG
+		      <COND (<NOT .STR>
+			     <TELL CR "  Default ->" CR>)
+			    (T <TELL CR "  " .STR " -> ">)>)>
+	       <SET RES
+		    <COND (.FOO <APPLY .FCN .FOO>)
+			  (T <APPLY .FCN>)>>
+	       ;<COND (<AND ,DEBUG .STR>
+		      <COND (<EQUAL? .RES ,M-FATAL>
+			     <TELL "Fatal" CR>)
+			    (<NOT .RES>
+			     <TELL "Not handled">)
+			    (T <TELL "Handled" CR>)>)>
+	       .RES)>>
+
+
+;"former CLOCK.ZIL stuff"
+
+<GLOBAL CLOCK-WAIT <>>
+
+<GLOBAL C-TABLE %<COND (<GASSIGNED? PREDGEN>
+			'<ITABLE NONE 105>)
+		       (T
+			'<ITABLE NONE 210>)>>
+
+<CONSTANT C-TABLELEN 210>
+
+<GLOBAL C-INTS 210>
+
+<CONSTANT C-INTLEN 6>
+
+<CONSTANT C-ENABLED? 0>
+
+<CONSTANT C-TICK 1>
+
+<CONSTANT C-RTN 2>
+
+<ROUTINE QUEUE (RTN TICK "AUX" CINT)
+	 <PUT <SET CINT <INT .RTN>> ,C-TICK .TICK>
+	 .CINT>
+
+<ROUTINE INT (RTN "OPTIONAL" E C INT)
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <SET C <REST ,C-TABLE ,C-INTS>>
+	 <REPEAT ()
+		 <COND (<EQUAL? .C .E>
+			<SETG C-INTS <- ,C-INTS ,C-INTLEN>>
+			<SET INT <REST ,C-TABLE ,C-INTS>>
+			<PUT .INT ,C-RTN .RTN>
+			<RETURN .INT>)
+		       (<EQUAL? <GET .C ,C-RTN> .RTN> <RETURN .C>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
+
+<ROUTINE CLOCKER ("AUX" C E TICK (FLG <>))
+	 <COND (,CLOCK-WAIT <SETG CLOCK-WAIT <>> <RFALSE>)>
+	 <SET C <REST ,C-TABLE <COND (,P-WON ,C-INTS)>>>
+	 <SET E <REST ,C-TABLE ,C-TABLELEN>>
+	 <REPEAT ()
+		 <COND (<EQUAL? .C .E>
+			<SETG MOVES <+ ,MOVES 1>>
+			<RETURN .FLG>)
+		       (<NOT <0? <GET .C ,C-ENABLED?>>>
+			<SET TICK <GET .C ,C-TICK>>
+			<COND (<0? .TICK>)
+			      (T
+			       <PUT .C ,C-TICK <- .TICK 1>>
+			       <COND (<AND <NOT <G? .TICK 1>>
+					   <APPLY <GET .C ,C-RTN>>>
+				      <SET FLG T>)>)>)>
+		 <SET C <REST .C ,C-INTLEN>>>>
diff --git a/nhitch.chart b/nhitch.chart
new file mode 100644
index 0000000..53a3e96
--- /dev/null
+++ b/nhitch.chart
@@ -0,0 +1,34 @@
+-date-  -rel-	-size-	-pre-	-obj-	-glo-	-voc-
+11/10     -1	158230	26078	236	189	1019
+11/10     1	158234	26078	236	189	1019
+11/10     2	158118	26081	236	189	1019
+11/10     3	158182	26081	236	189	1019
+11/10     4	158182	26081	236	189	1019
+11/11     5	158182	26081	236	189	1019
+11/11     6	157514	26081	236	189	1019
+11/11     7	158234	26081	236	189	1019
+11/11     8	158234	26081	236	189	1019
+11/11     9	158222	26081	236	189	1019
+11/11     10	158266	26081	236	189	1019
+11/12     11	158226	26071	236	184	1019
+11/12     12	158170	26071	236	184	1019
+11/12     13	158170	26071	236	184	1019
+11/12     14	158194	26071	236	184	1019
+11/12     15	158186	26071	236	184	1019
+11/13     16	158178	26071	236	184	1019
+11/13     17	158178	26071	236	184	1019
+11/16     18	158138	26071	236	184	1019
+11/16     19	158138	26071	236	184	1019
+11/16     20	158434	28285	236	184	1019
+11/16     21	158466	28285	236	184	1019
+11/16     22	158462	28285	236	184	1019
+11/16     23	158462	28285	236	184	1019
+11/16     24	158450	28285	236	184	1019
+11/16     25	158438	28285	236	184	1019
+11/17     26	158438	28285	236	184	1019
+11/17     27	158438	28285	236	184	1019
+11/17     28	158450	28285	236	184	1019
+11/17     29	158430	28281	236	182	1019
+11/18     30	158438	28281	236	182	1019
+11/18     30	158418	28281	236	182	1019
+11/19     31	158410	28281	236	182	1019
diff --git a/nhitch.errors b/nhitch.errors
new file mode 100644
index 0000000..438f5de
--- /dev/null
+++ b/nhitch.errors
@@ -0,0 +1,24 @@
+Assembling NHITCH.ZAP.31 on Thursday, November 19, 1987 15:13:35
+Release: 31
+
+    64	Inserting NHITCHFREQ.ZAP.1	   (640 bytes)
+   704	Inserting NHITCHDAT.ZAP.31	 (27577 bytes)
+ 28281	Inserting NHITCHPUR.ZAP.31	   (580 bytes)
+ 28861	Inserting MISC.ZAP.33	  (1599 bytes)
+ 30460	Inserting HEART.ZAP.26	 (13541 bytes)
+ 44001	Inserting PARSER.ZAP.26	  (6557 bytes)
+ 50558	Inserting VERBS.ZAP.31	 (14839 bytes)
+ 65397	Inserting EARTH.ZAP.21	 (19426 bytes)
+ 84823	Inserting VOGON.ZAP.19	  (5784 bytes)
+ 90607	Inserting UNEARTH.ZAP.24	  (9726 bytes)
+100333	Inserting GLOBALS.ZAP.28	 (14665 bytes)
+114998	Inserting HINTS.ZAP.25	  (1302 bytes)
+116300	Inserting NHITCHSTR.ZAP.31	 (42110 bytes)
+236 objects.
+182 globals.
+1019 word vocabulary.
+
+158410 bytes (155K).
+ 28281 bytes of preload.
+ 15156 bytes of impure.
+Outputting symbol tables
diff --git a/nhitch.lowcore b/nhitch.lowcore
new file mode 100644
index 0000000..f2cc37e
--- /dev/null
+++ b/nhitch.lowcore
@@ -0,0 +1,2 @@
+
+0 
\ No newline at end of file
diff --git a/nhitch.record b/nhitch.record
new file mode 100644
index 0000000..fe4d4d1
--- /dev/null
+++ b/nhitch.record
@@ -0,0 +1,745 @@
+
+Combined ZIL Compiler Ver 2.0 (MIM)
+-----------------------------------
+Input file: SS:<S4.CHEAP>NHITCH.ZIL.2
+Compiling routine: RUNNING?
+Compiling routine: PICK-ONE
+Compiling routine: GO
+Compiling routine: MAIN-LOOP
+Compiling routine: SAVE-INPUT
+Compiling routine: RESTORE-INPUT
+Compiling routine: FAKE-ORPHAN
+Compiling routine: PERFORM
+Compiling routine: THIS-IS-IT
+Compiling routine: D-APPLY
+Compiling routine: QUEUE
+Compiling routine: INT
+Compiling routine: CLOCKER
+Compiling routine: IN-HEART?
+Compiling routine: HEART-OF-GOLD-F
+Compiling routine: PANTRY-F
+Compiling routine: SCREENING-DOOR-F
+Compiling routine: MARVIN-F
+Compiling routine: I-MARVIN
+Compiling routine: MARVIN-BITCH
+Compiling routine: FLOWERPOT-F
+Compiling routine: I-PLANT
+Compiling routine: PLANT-F
+Compiling routine: FRUIT-F
+Compiling routine: GALLEY-F
+Compiling routine: NUTRIMAT-F
+Compiling routine: PAD-F
+Compiling routine: SLOT-F
+Compiling routine: BOARD-F
+Compiling routine: DIPSWITCH-F
+Compiling routine: SUBSTITUTE-DESCFCN
+Compiling routine: SUBSTITUTE-F
+Compiling routine: INTERFACE-BOX-F
+Compiling routine: BEAST-GUN-F
+Compiling routine: I-TEA
+Compiling routine: I-LANDING
+Compiling routine: SAUNA-ENTER-F
+Compiling routine: BRIDGE-F
+Compiling routine: SAUNA-PSEUDO
+Compiling routine: PEOPLE-PSEUDO
+Compiling routine: EDDIE-F
+Compiling routine: LARGE-RECEPTACLE-F
+Compiling routine: ZAPHOD-F
+Compiling routine: I-ZAPHOD
+Compiling routine: TRILLIAN-F
+Compiling routine: HANDBAG-F
+Compiling routine: FORE-CORRIDOR-F
+Compiling routine: AFT-CORRIDOR-F
+Compiling routine: I-REPLY
+Compiling routine: ENGINE-ROOM-ENTER-F
+Compiling routine: I-ARGUMENT
+Compiling routine: ENTRY-BAY-F
+Compiling routine: SALES-BROCHURE-F
+Compiling routine: ENGINE-ROOM-F
+Compiling routine: MAIN-DRIVE-F
+Compiling routine: SPARE-DRIVE-F
+Compiling routine: LARGE-PLUG-F
+Compiling routine: SMALL-PLUG-F
+Compiling routine: SWITCH-F
+Compiling routine: PLOTTER-DESCFCN
+Compiling routine: PLOTTER-F
+Compiling routine: DANGLY-BIT-F
+Compiling routine: HATCHWAY-F
+Compiling routine: ACCESS-SPACE-ENTER-F
+Compiling routine: ACCESS-SPACE-LOOP
+Compiling routine: HATCH-F
+Compiling routine: MECHANISM-F
+Compiling routine: ACCESS-SPACE-F
+Compiling routine: MESH-PSEUDO
+Compiling routine: RAMP-F
+Compiling routine: PARSER
+Compiling routine: NEXT-WORD
+Compiling routine: CHANGE-LEXV
+Compiling routine: STUFF
+Compiling routine: INBUF-STUFF
+Compiling routine: INBUF-ADD
+Compiling routine: WT?
+Compiling routine: CLAUSE
+Compiling routine: NUMBER?
+Compiling routine: ORPHAN-MERGE
+Compiling routine: ACLAUSE-WIN
+Compiling routine: NCLAUSE-WIN
+Compiling routine: WORD-PRINT
+Compiling routine: UNKNOWN-WORD
+Compiling routine: CANT-USE
+Compiling routine: SYNTAX-CHECK
+Compiling routine: CANT-ORPHAN
+Compiling routine: ORPHAN
+Compiling routine: CLAUSE-PRINT
+Compiling routine: BUFFER-PRINT
+Compiling routine: NAME?
+Compiling routine: CAPITALIZE
+Compiling routine: PREP-PRINT
+Compiling routine: CLAUSE-COPY
+Compiling routine: CLAUSE-ADD
+Compiling routine: PREP-FIND
+Compiling routine: SYNTAX-FOUND
+Compiling routine: GWIM
+Compiling routine: SNARF-OBJECTS
+Compiling routine: BUT-MERGE
+Compiling routine: SNARFEM
+Compiling routine: ADJ-CHECK
+Compiling routine: GET-OBJECT
+Compiling routine: MOBY-FIND
+Compiling routine: WHICH-PRINT
+Compiling routine: GLOBAL-CHECK
+Compiling routine: DO-SL
+Compiling routine: SEARCH-LIST
+Compiling routine: OBJ-FOUND
+Compiling routine: TAKE-CHECK
+Compiling routine: ITAKE-CHECK
+Compiling routine: MANY-CHECK
+Compiling routine: LIT?
+Compiling routine: PRSO-PRINT
+Compiling routine: PRSI-PRINT
+Compiling routine: THIS-IT?
+Compiling routine: V-$REFRESH
+Compiling routine: V-VERBOSE
+Compiling routine: V-BRIEF
+Compiling routine: V-SUPERBRIEF
+Compiling routine: V-DIAGNOSE
+Compiling routine: V-INVENTORY
+Compiling routine: V-QUIT
+Compiling routine: V-RESTART
+Compiling routine: FINISH
+Compiling routine: YES?
+Compiling routine: V-RESTORE
+Compiling routine: V-SAVE
+Compiling routine: V-SCORE
+Compiling routine: V-SCRIPT
+Compiling routine: V-UNSCRIPT
+Compiling routine: COPR-NOTICE
+Compiling routine: V-$ID
+Compiling routine: V-VERSION
+Compiling routine: V-$VERIFY
+Compiling routine: V-ALARM
+Compiling routine: V-ANSWER
+Compiling routine: V-APPLAUD
+Compiling routine: V-APPRECIATE
+Compiling routine: V-ASK-ABOUT
+Compiling routine: V-ASK-FOR
+Compiling routine: V-BITE
+Compiling routine: V-BLOCK
+Compiling routine: V-BLOCK-WITH
+Compiling routine: PRE-BOARD
+Compiling routine: V-BOARD
+Compiling routine: V-BRUSH
+Compiling routine: V-BUY
+Compiling routine: V-CALL
+Compiling routine: V-CALL-WITH
+Compiling routine: PRE-CARVE
+Compiling routine: V-CARVE
+Compiling routine: V-CARVE-WITH
+Compiling routine: V-CHASTISE
+Compiling routine: V-CLEAN
+Compiling routine: V-CLIMB-DOWN
+Compiling routine: V-CLIMB-FOO
+Compiling routine: V-CLIMB-ON
+Compiling routine: V-CLIMB-OVER
+Compiling routine: V-CLIMB-UP
+Compiling routine: V-CLOSE
+Compiling routine: V-COUNT
+Compiling routine: V-CUT
+Compiling routine: V-DIG
+Compiling routine: V-DISEMBARK
+Compiling routine: V-DOZE
+Compiling routine: V-DRINK
+Compiling routine: V-DRINK-FROM
+Compiling routine: PRE-DROP
+Compiling routine: V-DROP
+Compiling routine: V-EAT
+Compiling routine: V-ENJOY
+Compiling routine: V-ENTER
+Compiling routine: V-ESCAPE
+Compiling routine: V-EXAMINE
+Compiling routine: V-EXAMINE-THROUGH
+Compiling routine: V-EXIT
+Compiling routine: V-FEED
+Compiling routine: V-FILL
+Compiling routine: V-FIND
+Compiling routine: V-FIRST-LOOK
+Compiling routine: V-FLIPSWITCH
+Compiling routine: V-FOLLOW
+Compiling routine: I-FOLLOW
+Compiling routine: V-FOOTNOTE
+Compiling routine: V-FRIPPING
+Compiling routine: V-GET-DRESSED
+Compiling routine: V-GET-DRUNK
+Compiling routine: V-GET-UNDRESSED
+Compiling routine: PRE-GIVE
+Compiling routine: V-GIVE
+Compiling routine: V-GIVE-UP
+Compiling routine: V-HANG
+Compiling routine: V-HELLO
+Compiling routine: V-HIDE
+Compiling routine: V-HITCHHIKE
+Compiling routine: V-I-AM
+Compiling routine: V-IDIOT
+Compiling routine: V-KICK
+Compiling routine: V-KILL
+Compiling routine: V-KNEEL
+Compiling routine: V-KNOCK
+Compiling routine: V-KISS
+Compiling routine: V-LAMP-OFF
+Compiling routine: V-LAMP-ON
+Compiling routine: V-LEAP
+Compiling routine: V-LEAVE
+Compiling routine: V-LIE-DOWN
+Compiling routine: V-LISTEN
+Compiling routine: V-LOCK
+Compiling routine: V-LOOK
+Compiling routine: V-LOOK-BEHIND
+Compiling routine: V-LOOK-DOWN
+Compiling routine: V-LOOK-INSIDE
+Compiling routine: V-LOOK-UNDER
+Compiling routine: V-LOOK-UP
+Compiling routine: V-LOWER
+Compiling routine: V-MAKE
+Compiling routine: V-MOVE
+Compiling routine: V-MUNG
+Compiling routine: V-MY-NAME
+Compiling routine: V-NO
+Compiling routine: V-OPEN
+Compiling routine: V-PANIC
+Compiling routine: V-PICK
+Compiling routine: V-PICK-UP
+Compiling routine: V-PLANT
+Compiling routine: V-PLUG
+Compiling routine: V-POINT
+Compiling routine: V-POUR
+Compiling routine: V-PROTEST
+Compiling routine: V-PULL-TOGETHER
+Compiling routine: V-PUSH
+Compiling routine: PRE-PUT
+Compiling routine: V-PUT
+Compiling routine: V-PUT-BEHIND
+Compiling routine: V-PUT-IN-FRONT
+Compiling routine: V-PUT-ON
+Compiling routine: V-PUT-UNDER
+Compiling routine: V-RAPE
+Compiling routine: V-RAISE
+Compiling routine: PRE-READ
+Compiling routine: V-READ
+Compiling routine: V-REFUSE
+Compiling routine: V-RELAX
+Compiling routine: V-REMOVE
+Compiling routine: V-REPLACE
+Compiling routine: V-REPAIR
+Compiling routine: V-REPLY
+Compiling routine: V-RUB
+Compiling routine: V-SAVE-SOMETHING
+Compiling routine: V-SAY
+Compiling routine: SAID-YOUR-NAME?
+Compiling routine: SAID-WITH-TOWEL
+Compiling routine: V-SAY-NAME
+Compiling routine: V-SEARCH
+Compiling routine: V-SGIVE
+Compiling routine: V-SHAKE
+Compiling routine: V-SHAKE-WITH
+Compiling routine: V-SHOOT
+Compiling routine: V-SHOW
+Compiling routine: V-SIT
+Compiling routine: V-SKIP
+Compiling routine: V-SLEEP
+Compiling routine: V-SMELL
+Compiling routine: V-SMILE
+Compiling routine: V-SPIN
+Compiling routine: V-SPUT-ON
+Compiling routine: V-SSHOOT
+Compiling routine: V-SSHOW
+Compiling routine: V-STAND
+Compiling routine: V-STAND-BEFORE
+Compiling routine: V-STAND-ON
+Compiling routine: V-STEER
+Compiling routine: PRE-TAKE
+Compiling routine: V-TAKE
+Compiling routine: V-TAKE-OFF
+Compiling routine: V-TASTE
+Compiling routine: V-TELL
+Compiling routine: V-TELL-ABOUT
+Compiling routine: V-TELL-TIME
+Compiling routine: V-TELL-NAME
+Compiling routine: V-THANK
+Compiling routine: V-THROUGH
+Compiling routine: PRE-THROW
+Compiling routine: V-THROW
+Compiling routine: V-THROW-OFF
+Compiling routine: V-THROW-IN-TOWEL
+Compiling routine: V-TIE
+Compiling routine: V-TIE-TOGETHER
+Compiling routine: V-TURN
+Compiling routine: V-TYPE
+Compiling routine: V-TYPE-ON
+Compiling routine: V-UNLOCK
+Compiling routine: V-UNPLUG
+Compiling routine: V-UNTIE
+Compiling routine: V-WALK
+Compiling routine: V-WALK-AROUND
+Compiling routine: V-WALK-TO
+Compiling routine: V-WAIT
+Compiling routine: V-WAIT-FOR
+Compiling routine: V-WATER
+Compiling routine: V-WAVE
+Compiling routine: V-WAVE-AT
+Compiling routine: V-WEAR
+Compiling routine: V-WHAT
+Compiling routine: V-WHAT-ABOUT
+Compiling routine: V-WHAT-TIME
+Compiling routine: V-WHERE
+Compiling routine: V-WHO
+Compiling routine: V-WHY
+Compiling routine: V-YELL
+Compiling routine: V-YES
+Compiling routine: ITAKE
+Compiling routine: IDROP
+Compiling routine: CCOUNT
+Compiling routine: WEIGHT
+Compiling routine: DESCRIBE-ROOM
+Compiling routine: DESCRIBE-OBJECTS
+Compiling routine: DESCRIBE-OBJECT
+Compiling routine: PRINT-CONT
+Compiling routine: PRINT-CONTENTS
+Compiling routine: FIRSTER
+Compiling routine: DESCRIBE-VEHICLE
+Compiling routine: GOTO
+Compiling routine: UNPLUG-HELD-STUFF
+Compiling routine: JIGS-UP
+Compiling routine: ACCESSIBLE?
+Compiling routine: VISIBLE?
+Compiling routine: META-LOC
+Compiling routine: OTHER-SIDE
+Compiling routine: HELD?
+Compiling routine: SEE-INSIDE?
+Compiling routine: GLOBAL-IN?
+Compiling routine: FIND-IN
+Compiling routine: LOC-CLOSED
+Compiling routine: DO-WALK
+Compiling routine: FUCKING-CLEAR
+Compiling routine: ROB
+Compiling routine: HOLDING-ONE-BUT-NOT-BOTH?
+Compiling routine: HACK-HACK
+Compiling routine: ARTICLE
+Compiling routine: HOME-F
+Compiling routine: HOUSE-F
+Compiling routine: I-HOUSEWRECK
+Compiling routine: BETTER-LUCK
+Compiling routine: HANGOVER-F
+Compiling routine: BEDROOM-F
+Compiling routine: BEDROOM-EXIT-F
+Compiling routine: PHONE-F
+Compiling routine: GLOBAL-BED-F
+Compiling routine: BED-F
+Compiling routine: CURTAINS-F
+Compiling routine: GOWN-F
+Compiling routine: SLEEVES-F
+Compiling routine: TWO-TREES
+Compiling routine: THING-F
+Compiling routine: I-THING
+Compiling routine: TABLET-F
+Compiling routine: CLOTHES-EXIT-F
+Compiling routine: MAIL-F
+Compiling routine: HOUSE-ENTER-F
+Compiling routine: FRONT-OF-HOUSE-F
+Compiling routine: I-BULLDOZER
+Compiling routine: BRICK-DEATH
+Compiling routine: BULLDOZER-DRIVER-F
+Compiling routine: BULLDOZER-F
+Compiling routine: I-PROSSER
+Compiling routine: PROSSER-DESCFCN
+Compiling routine: PROSSER-F
+Compiling routine: STAND-ASIDE
+Compiling routine: DIGITAL-WATCH-F
+Compiling routine: FORD-DESCFCN
+Compiling routine: FORD-F
+Compiling routine: FORD-DECIDES
+Compiling routine: I-FORD
+Compiling routine: SATCHEL-DESCFCN
+Compiling routine: ITEM-ON-SATCHEL-DESCRIPTION
+Compiling routine: SATCHEL-F
+Compiling routine: TOWEL-F
+Compiling routine: BACK-OF-HOUSE-F
+Compiling routine: TREE-PSEUDO
+Compiling routine: COUNTRY-LANE-F
+Compiling routine: I-DOG
+Compiling routine: DOG-F
+Compiling routine: PUB-OBJECT-F
+Compiling routine: PUB-F
+Compiling routine: BAR-F
+Compiling routine: PUB-SHELF-F
+Compiling routine: MUSIC-F
+Compiling routine: JUKEBOX-F
+Compiling routine: BARMAN-F
+Compiling routine: BEER-F
+Compiling routine: PEANUTS-F
+Compiling routine: SANDWICH-F
+Compiling routine: I-VOGONS
+Compiling routine: GO-TO-LANE
+Compiling routine: FLEET-F
+Compiling routine: LEAVE-EARTH
+Compiling routine: ARTHUR-F
+Compiling routine: IDIOT?
+Compiling routine: I-UNEASY
+Compiling routine: I-ARTHUR
+Compiling routine: SCENE-THROUGH-WINDOW
+Compiling routine: MINERAL-WATER-F
+Compiling routine: HOLD-F
+Compiling routine: I-GROGGY
+Compiling routine: DISPENSER-F
+Compiling routine: DISPENSER-BUTTON-F
+Compiling routine: FISH-HOLE-F
+Compiling routine: HOOK-F
+Compiling routine: DRAIN-F
+Compiling routine: ROBOT-PANEL-F
+Compiling routine: BABEL-FISH-F
+Compiling routine: GLASS-CASE-F
+Compiling routine: GLASS-CASE-OPENS
+Compiling routine: CASE-SWITCH-F
+Compiling routine: PRODUCE-GIBBERISH
+Compiling routine: I-ANNOUNCEMENT
+Compiling routine: I-GUARDS
+Compiling routine: CAPTAINS-QUARTERS-F
+Compiling routine: POETRY-APPRECIATION-CHAIR-F
+Compiling routine: VOGON-CAPTAIN-F
+Compiling routine: I-CAPTAIN
+Compiling routine: GUARDS-TO-AIRLOCK
+Compiling routine: POETRY-F
+Compiling routine: VOGON-CORRIDOR-DOOR-F
+Compiling routine: VOGON-AIRLOCK-DOOR-F
+Compiling routine: AIRLOCK-OBJECT-F
+Compiling routine: AIRLOCK-F
+Compiling routine: LAIR-OBJECT-F
+Compiling routine: INNER-LAIR-ENTER-F
+Compiling routine: LAIR-F
+Compiling routine: OUTER-LAIR-F
+Compiling routine: MEMORIAL-F
+Compiling routine: STONE-F
+Compiling routine: BEAST-DESCFCN
+Compiling routine: BEAST-F
+Compiling routine: I-BEAST
+Compiling routine: BEAST-DEATH
+Compiling routine: YOUR-NAME-F
+Compiling routine: NUT-COM-INTERFACE-F
+Compiling routine: I-CARELESS-WORDS
+Compiling routine: MICROSCOPIC-FLEET-F
+Compiling routine: CANOPY-F
+Compiling routine: WAR-CHAMBER-F
+Compiling routine: VLHURG-DESCFCN
+Compiling routine: VLHURG-F
+Compiling routine: GGUGVUNT-F
+Compiling routine: THIRD-PLANET-F
+Compiling routine: MAZE-EXIT-F
+Compiling routine: PARTICLE-F
+Compiling routine: APARTMENT-F
+Compiling routine: PARTY-DESC
+Compiling routine: PARTY-EXIT-F
+Compiling routine: LIVING-ROOM-F
+Compiling routine: APARTMENT-DOOR-F
+Compiling routine: DINING-ROOM-F
+Compiling routine: KITCHEN-F
+Compiling routine: WINE-F
+Compiling routine: APPETIZERS-F
+Compiling routine: DROP-AT-PARTY
+Compiling routine: SHRIEK
+Compiling routine: HOSTESS-F
+Compiling routine: I-HOSTESS
+Compiling routine: SPEEDBOAT-F
+Compiling routine: I-SPEEDBOAT
+Compiling routine: BOAT-OBJECT-F
+Compiling routine: WATER-PSEUDO
+Compiling routine: PILOT-SEAT-F
+Compiling routine: KEY-F
+Compiling routine: TOOLBOX-F
+Compiling routine: MAGNIFYING-GLASS-F
+Compiling routine: AUTOPILOT-BUTTON-F
+Compiling routine: DESTINATION-F
+Compiling routine: DAIS-EXIT-F
+Compiling routine: DAIS-F
+Compiling routine: DAIS-FUNCTION
+Compiling routine: CROWD-PSEUDO
+Compiling routine: PLATFORM-F
+Compiling routine: BLASTER-F
+Compiling routine: BLASTER-HOLD
+Compiling routine: RIFLES-F
+Compiling routine: GUARD-DEATH
+Compiling routine: INSIDE-WHALE-F
+Compiling routine: I-WHALE
+Compiling routine: WHALE-OBJECT-F
+Compiling routine: INIT-STATUS-LINE
+Compiling routine: UPDATE-STATUS-LINE
+Compiling routine: PRINT-SPACES
+Compiling routine: SAY-HERE
+Compiling routine: NOT-HERE-OBJECT-F
+Compiling routine: FIND-NOT-HERE
+Compiling routine: NOT-HERE-PRINT
+Compiling routine: LIGHT-F
+Compiling routine: GLOBAL-SLEEP-F
+Compiling routine: SPEECH-F
+Compiling routine: GROUND-F
+Compiling routine: WALLS-F
+Compiling routine: CEILING-F
+Compiling routine: WINDOW-F
+Compiling routine: STAIRS-F
+Compiling routine: SKY-F
+Compiling routine: STAR-F
+Compiling routine: HANDS-F
+Compiling routine: EYES-F
+Compiling routine: PROTAGONIST-F
+Compiling routine: ME-F
+Compiling routine: GLOBAL-ROOM-F
+Compiling routine: OBJECT-OF-GAME-F
+Compiling routine: CONTROLS-F
+Compiling routine: CONVERSATION-F
+Compiling routine: GUARDS-F
+Compiling routine: WEAPON-PSEUDO
+Compiling routine: FRUSTRATION-F
+Compiling routine: UNIMPORTANT-THING-F
+Compiling routine: DONT-F
+Compiling routine: DARK-F
+Compiling routine: DARK-FUNCTION
+Compiling routine: LEAVE-DARK
+Compiling routine: MISSING?
+Compiling routine: DARK-ONE
+Compiling routine: DARK-TWO
+Compiling routine: DARK-THREE
+Compiling routine: DARK-FOUR
+Compiling routine: BEAST-GUARD-FORD
+Compiling routine: I-BRAIN-DEATH
+Compiling routine: TOOTHBRUSH-F
+Compiling routine: LIQUID-SPILL
+Compiling routine: ANTI-LITTER
+Compiling routine: TEA-DESCFCN
+Compiling routine: DESCRIBE-DRINK
+Compiling routine: TEA-F
+Compiling routine: NO-TEA-F
+Compiling routine: TEA-PRINT
+Compiling routine: THUMB-F
+Compiling routine: RED-BUTTON-F
+Compiling routine: GREEN-BUTTON-F
+Compiling routine: GUARANTEE-F
+Compiling routine: ENGINEER-F
+Compiling routine: ENGINEER-LEAVE
+Compiling routine: I-ENGINEER
+Compiling routine: GUIDE-DESCFCN
+Compiling routine: GUIDE-F
+Compiling routine: CANT-SEE
+Compiling routine: TELL-ME-HOW
+Compiling routine: OUT-OF-FIRST
+Compiling routine: PRIVATE
+Compiling routine: NOT-VERY-GOOD
+Compiling routine: FACTOR
+Compiling routine: REMOVING-BIT
+Compiling routine: PART-OF
+Compiling routine: BUT-THAT-MAN
+Compiling routine: CUSHION
+Compiling routine: FINE-PRODUCT
+Compiling routine: MAKE-WAY-FOR
+Compiling routine: OWN-FEET
+Compiling routine: V-HINTS-NO
+Compiling routine: V-HINTS
+Compiling routine: PICK-QUESTION
+Compiling routine: ERASE-CURSOR
+Compiling routine: NEW-CURSOR
+Compiling routine: INVERSE-LINE
+Compiling routine: DISPLAY-HINT
+Compiling routine: PUT-UP-QUESTIONS
+Compiling routine: PUT-UP-CHAPTERS
+Compiling routine: INIT-HINT-SCREEN
+Compiling routine: CENTER-LINE
+Compiling routine: LEFT-LINE
+Compiling routine: RIGHT-LINE
+ ** Note: OBJECT has no properties: GLOBAL-OBJECTS
+Vocabulary: 1019
+
+Prepositions: 24
+
+ABOUT	   AWAY	      DRESSED	 IN	    OVER       UNDER
+ACROSS	   BEFORE     DRUNK	 OFF	    THROUGH    UNDRESSED
+AROUND	   BEHIND     FOR	 ON	    TO	       UP
+AT	   DOWN	      FROM	 OUT	    TOGETHER   WITH
+
+Real globals: 178
+
+AGAIN-DIR	       GUARDS-COUNTER	      P-MULT
+AGAIN-LEXV	       GUN-COUNTER	      P-NAM
+AIRLOCK-COUNTER	       GUTS-ROOM	      P-NCN
+ARGUMENT-COUNTER       HEADACHE		      P-NOT-HERE
+AUTOPILOT-COUNTER      HEART-COUNTER	      P-NUMBER
+AWAITING-REPLY	       HEART-PROB	      P-OCLAUSE
+BEARINGS-LOST	       HERE		      P-OFLAG
+BEAST-COUNTER	       HINT-WARNING	      P-ONEOBJ
+BOAT-COUNTER	       HINTS		      P-OTBL
+BOAT-DOCKED	       HINTS-OFF	      P-OVTBL
+BORES		       HOLDING-NO-TEA	      P-PRSA-WORD
+BRAIN-DAMAGED	       HOST		      P-PRSI
+BROWNIAN-SOURCE	       HOUSE-DEMOLISHED	      P-PRSO
+BULLDOZER-COUNTER      IDENTITY-FLAG	      P-SLOCBITS
+C-INTS		       IN-FRONT-FLAG	      P-SYNTAX
+C-TABLE		       ITEM-DROPPED-AT-PARTY  P-TABLE
+CAPTAIN-COUNTER	       ITEM-ON-SATCHEL	      P-VTBL
+CARELESS-WORDS-FLAG    LANDED		      P-WALK-DIR
+CHAPT-NUM	       LINE-A		      P-WON
+CLOCK-WAIT	       LINE-B		      P-XADJ
+COLUMN-TABLE	       LINE-C		      P-XNAM
+CRASH-COUNTER	       LINE-NUMBER	      PANEL-BLOCKER
+CUR-POS		       LINE-TABLE	      PARTY-TABLE
+CURRENT-EXIT	       LIT		      PEANUTS-BOUGHT
+DAIS-COUNTER	       LOOK-COUNTER	      PLANT-BLOOMED
+DARK-CONTROLLED	       LYING-COUNTER	      PLAYER
+DARK-COUNTER	       LYING-DOWN	      POEM-ENJOYED
+DARK-ENTRANCES	       MARVIN-COUNTER	      PROSSER-COUNTER
+DARK-FLAG	       MAZE-COUNTER	      PROSSER-LYING
+DEAD-COUNTER	       MOVES		      PRSA
+DESTINATION	       NAME-TOLD	      PRSI
+DIROUT-TBL	       NOUN-MISSING	      PRSO
+DOG-COUNTER	       OHERE		      QUEST-NUM
+DOG-FED		       OLD-LEN		      QUOTE-FLAG
+DONT-FLAG	       OOPS-INBUF	      RESERVE-INBUF
+DREAMING	       OOPS-TABLE	      RESERVE-LEXV
+DRIVE-TO-CONTROLS      P-AADJ		      RESERVE-PTR
+DRIVE-TO-PLOTTER       P-ACLAUSE	      SANDWICH-BOUGHT
+DRUNK-LEVEL	       P-ADJ		      SCORE
+EARTH-DEMOLISHED       P-ANAM		      SLEEVE-TIED
+ENGINEER-COUNTER       P-AND		      SUBSTITUTE-DRUNK
+FIRST-BUFFER	       P-BUTS		      TEA-COUNTER
+FISH-COUNTER	       P-CCTBL		      TEA-SHOWN
+FLEET-PROB	       P-CEPTR		      THUMB-SHOWN
+FLUFF-COUNTER	       P-CONT		      TOOL-REQUIRED
+FLUFF-REMOVED	       P-CSPTR		      TOWEL-MUDDY
+FLUFF-TO-GOWN	       P-END-ON-PREP	      TOWEL-OFFERED
+FOLLOW-FLAG	       P-GETFLAGS	      TRAAL-PROB
+FORD-COUNTER	       P-GWIMBIT	      TRILLIAN-PROB
+FORD-GONE	       P-INBUF		      UNEASY-COUNTER
+FORD-POINT	       P-INPUT-WORDS	      VERBOSITY
+FORD-PROB	       P-IT-OBJECT	      VOGON-COUNTER
+FORD-SLEEPING	       P-ITBL		      VOGON-PROB
+FORD-TABLE	       P-LEN		      WHALE-PROB
+GIBBERISH	       P-LEXV		      WIDTH
+GLASS-CASE-SCORE       P-MATCHLEN	      WINNER
+GONE-AROUND	       P-MERGE		      WORD-NUMBER
+GOWN-HUNG	       P-MERGED		      ZAPHOD-PROB
+GROGGY		       P-MOBY-FLAG
+GROGGY-COUNTER	       P-MOBY-FOUND
+
+Objects: 236
+
+ACCESS-SPACE		   FRUSTATION		      PLATFORM
+AFT-CORRIDOR		   GALLEY		      PLIERS
+AIR			   GALLEY-PSEUDO	      PLOTTER
+AIRLOCK			   GGUGVUNT		      POCKET-FLUFF
+AIRLOCK-OBJECT		   GLASS-CASE		      POETRY
+APARTMENT		   GLOBAL-BED		      POETRY-APPRECIATION-CHAIR
+
+APARTMENT-DOOR		   GLOBAL-OBJECTS	      PROSSER
+APPETIZERS		   GLOBAL-ROOM		      PROTAGONIST
+ARTHUR			   GLOBAL-SLEEP		      PUB
+AUTOPILOT-BUTTON	   GOWN			      PUB-FURNISHINGS
+AWL			   GRAY-MATTER		      PUB-OBJECT
+BABEL-FISH		   GREEN-BUTTON		      PUB-SHELF
+BACK-OF-HOUSE		   GROUND		      RAMP
+BANNER			   GUARANTEE		      RASP
+BAR			   GUARDS		      RED-BUTTON
+BARMAN			   GUIDE		      RIFLES
+BEAST			   HANDBAG		      ROBOT-PANEL
+BEAST-GUN		   HANDS		      ROOMS
+BEAST-NAME		   HANGOVER		      ROSES
+BED			   HATCH		      RUBBLE
+BEDROOM			   HATCHWAY		      SALES-BROCHURE
+BEDROOM-DOOR		   HEAD			      SANDWICH
+BEDROOM-FURNISHINGS	   HEART-OF-GOLD	      SARCASTIC-NAME
+BEDROOM-PSEUDO		   HOLD			      SATCHEL
+BEER			   HOLD-FURNISHINGS	      SATCHEL-FLUFF
+BIKE			   HOME			      SAUNA
+BIRDS			   HOOK			      SCREENING-DOOR
+BLASTER			   HOSTESS		      SCREWDRIVER
+BOARD			   HOUSE		      SHADOW
+BOAT-OBJECT		   INNER-LAIR		      SINK
+BONES			   INSIDE-WHALE		      SKELETON
+BRAIN			   INTERFACE-BOX	      SKY
+BRIDGE			   INTNUM		      SLEEVES
+BULLDOZER		   IT			      SLOT
+BULLDOZER-DRIVER	   JACKET-FLUFF		      SMALL-PLUG
+CAGE			   JUKEBOX		      SMALL-RECEPTACLE
+CANOPY			   KEY			      SPARE-DRIVE
+CAPTAINS-QUARTERS	   KEYBOARD		      SPEECH
+CASE-SWITCH		   KITCHEN		      SPEEDBOAT
+CEILING			   LAIR			      SPIRE
+CHANNEL			   LAIR-OBJECT		      STAIRS
+CHIPPER			   LARGE-PLUG		      STAR
+CHISEL			   LARGE-RECEPTACLE	      STAR-DRIVE
+CLIFF			   LIGHT		      STONE
+CONTROLS		   LIQUID		      STRAPS
+CONVERSATION		   LIVING-ROOM		      STUFF-UNDER-BED
+COUNTRY-LANE		   LOCAL-GLOBALS	      SUBSTITUTE
+CROWD			   MAGNIFYING-GLASS	      SWITCH
+CURTAINS		   MAIL			      SYNAPSE
+CUSHION-FLUFF		   MAIN-DRIVE		      TABLET
+DAIS			   MARVIN		      TEA
+DAMOGRAN		   MAZE			      TEETH
+DANGLY-BIT		   ME			      THING
+DARK			   MECHANISM		      THIRD-PLANET
+DARK-OBJECT		   MEMORIAL		      THUMB
+DIGITAL-WATCH		   MESH			      TIME
+DINING-ROOM		   MICROSCOPIC-FLEET	      TOOLBOX
+DIPSWITCH		   MINERAL-WATER	      TOOTHBRUSH
+DISPENSER		   MUSIC		      TOWEL
+DISPENSER-BUTTON	   NAME			      TREE
+DOG			   NO-TEA		      TRILLIAN
+DOORMAT			   NOT-HERE-OBJECT	      TWEEZERS
+DRAIN			   NUT-COM-INTERFACE	      VLHURG
+EARS			   NUTRIMAT		      VOGON-CAPTAIN
+EDDIE			   OBJECT-OF-GAME	      VOGON-CORRIDOR-DOOR
+ENGINE-ROOM		   OTHER-PLANETS	      VOGON-INNER-DOOR
+ENGINEER		   OUTER-LAIR		      VOGON-OUTER-DOOR
+ENTRY-BAY		   PAD			      WALLS
+EQUATIONS		   PAINFUL-LIGHT	      WAR-CHAMBER
+EYES			   PANTRY		      WATER
+FISH-HOLE		   PANTRY-PSEUDO	      WEAPON
+FLEET			   PARTICLE		      WHALE-OBJECT
+FLOWERPOT		   PEANUTS		      WILD-PARTY
+FOOBAR			   PEOPLE		      WINDOW
+FORD			   PHIL			      WINE
+FORE-CORRIDOR		   PHONE		      WRENCH
+FRONT-OF-HOUSE		   PILOT-SEAT		      YOUR-NAME
+FRONT-PORCH		   PINCER		      ZAPHOD
+FRUIT			   PLANT
+
+Properties: 24
+
+P?ACTION     P?DOWN	  P?GENERIC    P?NE	    P?SE	 P?SYNONYM
+P?ADJECTIVE  P?EAST	  P?GLOBAL     P?NORTH	    P?SIZE	 P?TEXT
+P?CAPACITY   P?FDESC	  P?IN	       P?NW	    P?SOUTH	 P?UP
+P?DESCFCN    P?FLAG	  P?LDESC      P?OUT	    P?SW	 P?WEST
+
+Flags: 31
+
+ACTORBIT     INTEGRALBIT  NDESCBIT     RLANDBIT	    TOUCHBIT	 WORNBIT
+CONTBIT	     INVISIBLE	  ONBIT	       SEARCHBIT    TRANSBIT
+DARKBIT	     LIGHTBIT	  OPENBIT      SURFACEBIT   TRYTAKEBIT
+DOORBIT	     LOCATION	  OUTSIDEBIT   SWITCHBIT    VEHBIT
+DRINKBIT     MUNGEDBIT	  READBIT      TAKEBIT	    VOWELBIT
+EATBIT	     NARTICLEBIT  REVISITBIT   TOOLBIT	    WEARBIT
diff --git a/nhitch.serial b/nhitch.serial
new file mode 100644
index 0000000..bb95160
--- /dev/null
+++ b/nhitch.serial
@@ -0,0 +1 @@
+33
diff --git a/nhitch.zap b/nhitch.zap
new file mode 100644
index 0000000..7c2e53f
--- /dev/null
+++ b/nhitch.zap
@@ -0,0 +1,51 @@
+	.NEW 5
+; Low core locations
+%ZVERSION::	.BYTE	5
+		.BYTE	FLAGS
+%ZORKID::	ZORKID
+%ENDLOD::	ENDLOD
+%START::	START
+%VOCAB::	VOCAB
+%OBJECT::	OBJECT
+%GLOBAL::	GLOBAL
+%PURBOT::	IMPURE
+%FLAGS::	.WORD 0
+%SERIAL::	.WORD	0
+%SERI1::	.WORD	0
+%SERI2::	.WORD	0
+%FWORDS::	WORDS
+%PLENTH::	.WORD	0
+%PCHKSM::	.WORD	0
+%INTWRD::	.WORD	0
+%SCRWRD::	.WORD	0
+%HWRD::	.WORD	0
+%VWRD::	.WORD	0
+%FWRD::	.WORD	0
+%LMRG::	.WORD	0
+%RMRG::	.WORD	0
+%CLRWRD::	.WORD	0
+%TCHAR::	TCHARS
+%CRCNT::	.WORD	0
+%CRFUNC::	.WORD	0
+%CHRSET::	.WORD	0
+%EXTAB::	0
+	.WORD	0
+	.WORD	0
+	.WORD	0
+	.WORD	0
+	.INSERT "SS:<S4.CHEAP>NHITCHFREQ"	;Frequent word table
+	.INSERT "SS:<S4.CHEAP>NHITCHDAT"	; Data file
+	.INSERT "SS:<S4.CHEAP>NHITCHPUR"
+	.INSERT "SS:<S4.CHEAP>MISC"
+	.INSERT "SS:<S4.CHEAP>HEART"
+	.INSERT "SS:<S4.CHEAP>PARSER"
+	.INSERT "SS:<S4.CHEAP>VERBS"
+	.INSERT "SS:<S4.CHEAP>EARTH"
+	.INSERT "SS:<S4.CHEAP>VOGON"
+	.INSERT "SS:<S4.CHEAP>UNEARTH"
+	.INSERT "SS:<S4.CHEAP>GLOBALS"
+	.INSERT "SS:<S4.CHEAP>HINTS"
+
+	.INSERT "SS:<S4.CHEAP>NHITCHSTR"
+
+	.END
diff --git a/nhitch.zil b/nhitch.zil
new file mode 100644
index 0000000..d132b45
--- /dev/null
+++ b/nhitch.zil
@@ -0,0 +1,30 @@
+"S4 for
+		  THE HITCHHIKER'S GUIDE TO THE GALAXY
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved."
+
+<PRINC "
+ *** THE HITCHHIKER'S GUIDE TO THE GALAXY: Interactive Science Fiction ***
+">
+
+<VERSION XZIP>
+<FREQUENT-WORDS?>
+<SETG PLUS-MODE T>
+<SETG NEW-VOC? T>
+<SET REDEFINE T>
+
+<DIRECTIONS ;"Do not change the order of the first 8 without consulting MARC!"
+ 	    NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
+
+<INSERT-FILE "MISC" T>
+<INSERT-FILE "HEART" T>
+<INSERT-FILE "PARSER" T>
+<INSERT-FILE "SYNTAX" T>
+<INSERT-FILE "VERBS" T>
+<INSERT-FILE "EARTH" T>
+<INSERT-FILE "VOGON" T>
+<INSERT-FILE "UNEARTH" T>
+<INSERT-FILE "GLOBALS" T>
+<INSERT-FILE "HINTS" T>
+
+<PROPDEF SIZE 5>
+<PROPDEF CAPACITY 0>
\ No newline at end of file
diff --git a/nhitch.zip b/nhitch.zip
new file mode 100644
index 0000000..5387993
Binary files /dev/null and b/nhitch.zip differ
diff --git a/nhitchdat.zap b/nhitchdat.zap
new file mode 100644
index 0000000..8a9ed19
--- /dev/null
+++ b/nhitchdat.zap
@@ -0,0 +1,15503 @@
+
+
+; TOP LEVEL DEFINITIONS
+
+	TRUE-VALUE=1
+	FALSE-VALUE=0
+	FATAL-VALUE=2
+
+	O?ANY=1
+
+	PS?OBJECT=128
+	PS?VERB=64
+	PS?ADJECTIVE=32
+	PS?DIRECTION=16
+	PS?PREPOSITION=8
+	PS?BUZZ-WORD=4
+
+	P1?NONE=0
+	P1?OBJECT=0
+	P1?VERB=1
+	P1?ADJECTIVE=2
+	P1?DIRECTION=3
+
+
+; OBJECT FLAGS ARE DEFINED HERE
+
+
+	TOOLBIT=17
+	FX?TOOLBIT=16384
+
+	MUNGEDBIT=18
+	FX?MUNGEDBIT=8192
+
+	REVISITBIT=19
+	FX?REVISITBIT=4096
+
+	TOUCHBIT=20
+	FX?TOUCHBIT=2048
+
+	INVISIBLE=21
+	FX?INVISIBLE=1024
+
+	OUTSIDEBIT=22
+	FX?OUTSIDEBIT=512
+
+	SURFACEBIT=23
+	FX?SURFACEBIT=256
+
+	WORNBIT=24
+	FX?WORNBIT=128
+
+	WEARBIT=25
+	FX?WEARBIT=64
+
+	LOCATION=26
+	FX?LOCATION=32
+
+	DARKBIT=27
+	FX?DARKBIT=16
+
+	VEHBIT=28
+	FX?VEHBIT=8
+
+	READBIT=29
+	FX?READBIT=4
+
+	DRINKBIT=30
+	FX?DRINKBIT=2
+
+	VOWELBIT=31
+	FX?VOWELBIT=1
+
+	SWITCHBIT=32
+	FX?SWITCHBIT=32768
+
+	TRANSBIT=33
+	FX?TRANSBIT=16384
+
+	SEARCHBIT=34
+	FX?SEARCHBIT=8192
+
+	LIGHTBIT=35
+	FX?LIGHTBIT=4096
+
+	EATBIT=36
+	FX?EATBIT=2048
+
+	TRYTAKEBIT=37
+	FX?TRYTAKEBIT=1024
+
+	INTEGRALBIT=38
+	FX?INTEGRALBIT=512
+
+	OPENBIT=39
+	FX?OPENBIT=256
+
+	CONTBIT=40
+	FX?CONTBIT=128
+
+	TAKEBIT=41
+	FX?TAKEBIT=64
+
+	ACTORBIT=42
+	FX?ACTORBIT=32
+
+	DOORBIT=43
+	FX?DOORBIT=16
+
+	NDESCBIT=44
+	FX?NDESCBIT=8
+
+	ONBIT=45
+	FX?ONBIT=4
+
+	RLANDBIT=46
+	FX?RLANDBIT=2
+
+	NARTICLEBIT=47
+	FX?NARTICLEBIT=1
+
+; ACTION IDENTIFIERS ARE ASSIGNED HERE
+
+	V?VERBOSE=0
+	V?BRIEF=1
+	V?SUPERBRIEF=2
+	V?DIAGNOSE=3
+	V?INVENTORY=4
+	V?I-AM=5
+	V?QUIT=6
+	V?RESTART=7
+	V?RESTORE=8
+	V?SAVE=9
+	V?SCORE=10
+	V?SCRIPT=11
+	V?UNSCRIPT=12
+	V?VERSION=13
+	V?$VERIFY=14
+	V?$REFRESH=15
+	V?TELL=16
+	V?ANSWER=17
+	V?REPLY=18
+	V?APPLAUD=19
+	V?APPRECIATE=20
+	V?WALK-TO=21
+	V?ASK-ABOUT=22
+	V?ASK-FOR=23
+	V?KILL=24
+	V?BITE=25
+	V?BLOCK=26
+	V?BLOCK-WITH=27
+	V?BOARD=28
+	V?BRUSH=29
+	V?BUY=30
+	V?CARVE=31
+	V?CARVE-WITH=32
+	V?CLIMB-FOO=33
+	V?CLIMB-ON=34
+	V?CLIMB-UP=35
+	V?CLIMB-DOWN=36
+	V?CLIMB-OVER=37
+	V?THROUGH=38
+	V?CLOSE=39
+	V?LAMP-OFF=40
+	V?PLUG=41
+	V?SPUT-ON=42
+	V?COUNT=43
+	V?CUT=44
+	V?MUNG=45
+	V?PUT=46
+	V?DIG=47
+	V?DISEMBARK=48
+	V?GET-UNDRESSED=49
+	V?DOZE=50
+	V?GET-DRESSED=51
+	V?DRINK=52
+	V?DRINK-FROM=53
+	V?DROP=54
+	V?PUT-IN-FRONT=55
+	V?PUT-ON=56
+	V?EAT=57
+	V?ENJOY=58
+	V?ENTER=59
+	V?EXIT=60
+	V?ESCAPE=61
+	V?EXAMINE=62
+	V?EXAMINE-THROUGH=63
+	V?LOOK-INSIDE=64
+	V?FIND=65
+	V?FEED=66
+	V?GIVE=67
+	V?SGIVE=68
+	V?FILL=69
+	V?FOLLOW=70
+	V?FOOTNOTE=71
+	V?FRIPPING=72
+	V?GIVE-UP=73
+	V?HANG=74
+	V?LISTEN=75
+	V?HELLO=76
+	V?HIDE=77
+	V?HINTS=78
+	V?SAVE-SOMETHING=79
+	V?HINTS-NO=80
+	V?HITCHHIKE=81
+	V?IDIOT=82
+	V?LEAP=83
+	V?KICK=84
+	V?KISS=85
+	V?KNEEL=86
+	V?KNOCK=87
+	V?LEAVE=88
+	V?LIE-DOWN=89
+	V?LAMP-ON=90
+	V?LOCK=91
+	V?LOOK=92
+	V?LOOK-DOWN=93
+	V?LOOK-UP=94
+	V?LOOK-UNDER=95
+	V?LOOK-BEHIND=96
+	V?CHASTISE=97
+	V?LOWER=98
+	V?MAKE=99
+	V?MOVE=100
+	V?FLIPSWITCH=101
+	V?PULL-TOGETHER=102
+	V?MY-NAME=103
+	V?NO=104
+	V?OPEN=105
+	V?PANIC=106
+	V?CALL=107
+	V?CALL-WITH=108
+	V?PICK=109
+	V?PICK-UP=110
+	V?PLANT=111
+	V?POINT=112
+	V?STEER=113
+	V?POUR=114
+	V?PROTEST=115
+	V?PUSH=116
+	V?PUT-UNDER=117
+	V?WEAR=118
+	V?PUT-BEHIND=119
+	V?RAISE=120
+	V?RAPE=121
+	V?READ=122
+	V?REFUSE=123
+	V?RELAX=124
+	V?REMOVE=125
+	V?TAKE=126
+	V?REPAIR=127
+	V?REPLACE=128
+	V?SAY-NAME=129
+	V?SAY=130
+	V?SEARCH=131
+	V?SHAKE=132
+	V?SHAKE-WITH=133
+	V?SHOOT=134
+	V?SSHOOT=135
+	V?SHOW=136
+	V?SSHOW=137
+	V?SIT=138
+	V?SKIP=139
+	V?SLEEP=140
+	V?SMELL=141
+	V?SMILE=142
+	V?SPIN=143
+	V?STAND=144
+	V?STAND-ON=145
+	V?STAND-BEFORE=146
+	V?TURN=147
+	V?GET-DRUNK=148
+	V?TAKE-OFF=149
+	V?TASTE=150
+	V?TELL-ABOUT=151
+	V?TELL-TIME=152
+	V?TELL-NAME=153
+	V?THANK=154
+	V?THROW=155
+	V?THROW-OFF=156
+	V?THROW-IN-TOWEL=157
+	V?TIE=158
+	V?TIE-TOGETHER=159
+	V?RUB=160
+	V?TYPE=161
+	V?TYPE-ON=162
+	V?UNLOCK=163
+	V?UNPLUG=164
+	V?UNTIE=165
+	V?WAIT=166
+	V?WAIT-FOR=167
+	V?ALARM=168
+	V?WALK-AROUND=169
+	V?WALK=170
+	V?CLEAN=171
+	V?WATER=172
+	V?WAVE=173
+	V?WAVE-AT=174
+	V?WHAT=175
+	V?WHAT-ABOUT=176
+	V?WHAT-TIME=177
+	V?WHERE=178
+	V?WHO=179
+	V?WHY=180
+	V?YELL=181
+	V?YES=182
+
+; PROPERTIES ARE DEFINED HERE
+
+	P?NORTH=63
+	P?NE=62
+	P?EAST=61
+	P?SE=60
+	P?SOUTH=59
+	P?SW=58
+	P?WEST=57
+	P?NW=56
+	P?UP=55
+	P?DOWN=54
+	P?IN=53
+	P?OUT=52
+	P?SYNONYM=51
+	P?ADJECTIVE=50
+	P?ACTION=49
+	P?LDESC=48
+	P?GLOBAL=47
+	P?CAPACITY=46
+	P?SIZE=45
+	P?DESCFCN=44
+	P?GENERIC=43
+	P?FDESC=42
+	P?TEXT=41
+	P?FLAG=40
+
+; ADJECTIVES ARE DEFINED HERE
+
+
+; BUZZ WORDS ARE DEFINED HERE
+
+
+; PREPOSITIONS ARE DEFINED HERE
+
+	PR?TO=255
+	PR?ABOUT=254
+	PR?ON=253
+	PR?FOR=252
+	PR?WITH=251
+	PR?IN=250
+	PR?UP=249
+	PR?DOWN=248
+	PR?OVER=247
+	PR?THROUGH=246
+	PR?OFF=245
+	PR?FROM=244
+	PR?BEFORE=243
+	PR?UNDER=242
+	PR?BEHIND=241
+	PR?ACROSS=240
+	PR?OUT=239
+	PR?AT=238
+	PR?AROUND=237
+	PR?TOGETHER=236
+	PR?DRESSED=235
+	PR?UNDRESSED=234
+	PR?DRUNK=233
+	PR?AWAY=232
+
+; DIRECTIONS ARE DEFINED HERE
+
+
+; ACTIONS ARE DEFINED HERE
+
+	ACT?KISS=255
+	ACT?I=254
+	ACT?SKIP=253
+	ACT?FRIPPING=252
+	ACT?PUT=251
+	ACT?RAPE=250
+	ACT?VERBOSE=249
+	ACT?WALK=248
+	ACT?QUIT=247
+	ACT?FIND=246
+	ACT?HEAR=245
+	ACT?YES=244
+	ACT?UNLOCK=243
+	ACT?READ=242
+	ACT?SAY=241
+	ACT?JUMP=240
+	ACT?POUR=239
+	ACT?WAIT=238
+	ACT?TAKE=237
+	ACT?NO=236
+	ACT?APPRECIAT=235
+	ACT?COUNT=234
+	ACT?DOZE=233
+	ACT?RAISE=232
+	ACT?ENJOY=231
+	ACT?FOLLOW=230
+	ACT?TYPE=229
+	ACT?REFUSE=228
+	ACT?$REFRESH=227
+	ACT?VERSION=226
+	ACT?CARVE=225
+	ACT?LIGHT=224
+	ACT?LIE=223
+	ACT?MOVE=222
+	ACT?BLOCK=221
+	ACT?OPEN=220
+	ACT?TASTE=219
+	ACT?TOUCH=218
+	ACT?WHY=217
+	ACT?APPROACH=216
+	ACT?SHOOT=215
+	ACT?KNOCK=214
+	ACT?INVENT=213
+	ACT?PICK=212
+	ACT?BOARD=211
+	ACT?ESCAPE=210
+	ACT?STAND=209
+	ACT?UNDRESS=208
+	ACT?LISTEN=207
+	ACT?TIE=206
+	ACT?WHERE=205
+	ACT?SHOW=204
+	ACT?SAVE=203
+	ACT?HELP=202
+	ACT?TELL=201
+	ACT?THROW=200
+	ACT?FEED=199
+	ACT?DRESS=198
+	ACT?LOWER=197
+	ACT?HIDE=196
+	ACT?SHAKE=195
+	ACT?MY=194
+	ACT?ATTACK=193
+	ACT?PLANT=192
+	ACT?ENTER=191
+	ACT?SEARCH=190
+	ACT?WEAR=189
+	ACT?PAY=188
+	ACT?DISEMBARK=187
+	ACT?SWITCH=186
+	ACT?PLUG=185
+	ACT?UNPLUG=184
+	ACT?UNTIE=183
+	ACT?CUT=182
+	ACT?WASH=181
+	ACT?UNSCRIPT=180
+	ACT?HANG=179
+	ACT?BRUSH=178
+	ACT?PUSH=177
+	ACT?SUPER=176
+	ACT?SIT=175
+	ACT?APPLAUD=174
+	ACT?ORDER=173
+	ACT?DIG=172
+	ACT?DISROBE=171
+	ACT?REPLACE=170
+	ACT?SCORE=169
+	ACT?DANGLE=168
+	ACT?COVER=167
+	ACT?DEMOLISH=166
+	ACT?CONNECT=165
+	ACT?LOOK=164
+	ACT?DROP=163
+	ACT?RELAX=162
+	ACT?KNEEL=161
+	ACT?LEAVE=160
+	ACT?HAND=159
+	ACT?WATER=158
+	ACT?SCRIPT=157
+	ACT?SPIN=156
+	ACT?$VERIFY=155
+	ACT?DESCEND=154
+	ACT?EXTINGUISH=153
+	ACT?RESTART=152
+	ACT?REPAIR=151
+	ACT?SMELL=150
+	ACT?BRIEF=149
+	ACT?DRAPE=148
+	ACT?PROTEST=147
+	ACT?DIAGNOSE=146
+	ACT?SLEEP=145
+	ACT?SMILE=144
+	ACT?WAKE=143
+	ACT?DRINK=142
+	ACT?REMOVE=141
+	ACT?ANSWER=140
+	ACT?HITCHHIKE=139
+	ACT?WHAT=138
+	ACT?YELL=137
+	ACT?PHONE=136
+	ACT?LOCK=135
+	ACT?KICK=134
+	ACT?BITE=133
+	ACT?POINT=132
+	ACT?START=131
+	ACT?WHO=130
+	ACT?IDIOT=129
+	ACT?MAKE=128
+	ACT?PANIC=127
+	ACT?RESTORE=126
+	ACT?CLOSE=125
+	ACT?FOOTNOTE=124
+	ACT?SLIDE=123
+	ACT?WAVE=122
+	ACT?ADDRESS=121
+	ACT?EXIT=120
+	ACT?EXAMINE=119
+	ACT?EAT=118
+	ACT?FILL=117
+	ACT?CLIMB=116
+	ACT?THANK=115
+	ACT?ASK=114
+	ACT?HELLO=113
+
+; USER DEFINED CONSTANTS ARE INITIALIZED HERE
+
+	SOG=16
+	SIR=32
+	DEXITSTR=2
+	XEQUAL?=4
+	P-ITBLLEN=9
+	P-SYNLEN=8
+	P-SRCTOP=0
+	C-INTLEN=6
+	O-START=1
+	DEXITOBJ=1
+	H-ITALIC=4
+	P-P1OFF=7
+	S-TEXT=0
+	O-PTR=0
+	O-LENGTH=2
+	C-TABLELEN=210
+	D-TABLE-OFF=-3
+	P-NC2=8
+	P-NC1=6
+	D-SCREEN-ON=1
+	P-WORDLEN=4
+	D-SCREEN-OFF=-1
+	P-VERBN=1
+	SERIAL=0
+	P-P1BITS=3
+	FEXIT=4
+	CC-SEPTR=1
+	P-SPREP1=1
+	CC-SBPTR=0
+	D-PRINTER-OFF=-2
+	P-PREP1=2
+	M-BEG=1
+	XDIV=3
+	M-FATAL=2
+	XGRTR?=5
+	NEXITSTR=0
+	NEXIT=3
+	P-SLOC2=6
+	SC=64
+	P-PREP1N=3
+	S-WINDOW=1
+	P-PSOFF=6
+	D-PRINTER-ON=2
+	XLESS?=6
+	P-VERB=0
+	M-ENTER=2
+	DEXIT=6
+	CC-DEPTR=3
+	SHAVE=2
+	H-NORMAL=0
+	P-SRCBOT=2
+	M-OBJDESC=5
+	CC-DBPTR=2
+	H-INVERSE=1
+	SMANY=4
+	STAKE=8
+	P-SPREP2=2
+	XSUB=1
+	XADD=0
+	CEXIT=5
+	H-BOLD=2
+	P-LEXSTART=1
+	M-LOOK=3
+	UEXIT=2
+	D-RECORD-ON=4
+	O-END=3
+	P-LEXELEN=2
+	P-LEXWORDS=1
+	P-ALL=1
+	XMUL=2
+	P-SFWIM1=3
+	CC-OCLAUSE=2
+	P-INHIBIT=4
+	CEXITFLAG=4
+	D-RECORD-OFF=-4
+	M-FLASH=4
+	FEXITFCN=0
+	D-TABLE-ON=3
+	P-SBITS=0
+	CEXITSTR=1
+	P-SRCALL=1
+	P-SLOC1=5
+	M-END=6
+	LOW-DIRECTION=52
+	P-PREP2=4
+	P-SONUMS=3
+	C-TICK=1
+	P-INBUF-LENGTH=120
+	P-NC2L=9
+	P-NC1L=7
+	P-ONE=2
+	P-SACTION=7
+	P-SFWIM2=4
+	C-ENABLED?=0
+	REXIT=0
+	SH=128
+	C-RTN=2
+
+; THE GLOBAL VARIABLES ARE ALL LOCATED HERE
+
+GLOBAL::.TABLE
+	.GVAR CURRENT-EXIT=0
+	.GVAR P-END-ON-PREP=0
+	.GVAR QUEST-NUM=1
+	.GVAR DEAD-COUNTER=0
+	.GVAR CUR-POS=0
+	.GVAR P-BUTS=T?1503,TABLE
+	.GVAR BULLDOZER-COUNTER=0
+	.GVAR FORD-PROB=15
+	.GVAR P-ACLAUSE=0
+	.GVAR TOOL-REQUIRED=0
+	.GVAR P-CSPTR=0
+	.GVAR CARELESS-WORDS-FLAG=0
+	.GVAR P-SLOCBITS=0
+	.GVAR GOWN-HUNG=0
+	.GVAR FIRST-BUFFER=T?101,TABLE
+	.GVAR BRAIN-DAMAGED=0
+	.GVAR DARK-ENTRANCES=PT?102,TABLE
+	.GVAR P-MATCHLEN=0
+	.GVAR FORD-GONE=0
+	.GVAR P-MULT=0
+	.GVAR CLOCK-WAIT=0
+	.GVAR P-OTBL=T?1003,TABLE
+	.GVAR PEANUTS-BOUGHT=0
+	.GVAR UNEASY-COUNTER=0
+	.GVAR LANDED=0
+	.GVAR P-NAM=0
+	.GVAR C-TABLE=T?201,TABLE
+	.GVAR FLUFF-TO-GOWN=0
+	.GVAR DRUNK-LEVEL=0
+	.GVAR P-XNAM=0
+	.GVAR DARK-FLAG=0
+	.GVAR HOLDING-NO-TEA=1
+	.GVAR P-MOBY-FOUND=0
+	.GVAR FISH-COUNTER=5
+	.GVAR OOPS-TABLE=T?803,TABLE
+	.GVAR P-WALK-DIR=0
+	.GVAR MARVIN-COUNTER=0
+	.GVAR P-ANAM=0
+	.GVAR PLAYER=0
+	.GVAR P-CEPTR=0
+	.GVAR P-CONT=0
+	.GVAR OHERE=0,OBJECT
+	.GVAR P-PRSI=T?1403,TABLE
+	.GVAR FLUFF-REMOVED=0
+	.GVAR AGAIN-LEXV=T?303,TABLE
+	.GVAR P-INPUT-WORDS=0
+	.GVAR VERBOSITY=1
+	.GVAR GUTS-ROOM=0
+	.GVAR RESERVE-INBUF=T?603,TABLE
+	.GVAR TOWEL-OFFERED=0
+	.GVAR BEAST-COUNTER=0
+	.GVAR PANEL-BLOCKER=0
+	.GVAR HEART-COUNTER=0
+	.GVAR HEART-PROB=0
+	.GVAR CRASH-COUNTER=0
+	.GVAR SANDWICH-BOUGHT=0
+	.GVAR LIT=0
+	.GVAR NOUN-MISSING=STR?26,STRING
+	.GVAR FOLLOW-FLAG=0
+	.GVAR P-VTBL=T?1103,TABLE
+	.GVAR RESERVE-LEXV=T?403,TABLE
+	.GVAR P-MOBY-FLAG=0
+	.GVAR MAZE-COUNTER=0
+	.GVAR P-ADJ=0
+	.GVAR GONE-AROUND=0
+	.GVAR P-LEN=0
+	.GVAR HOST=0,NUMBER
+	.GVAR ARGUMENT-COUNTER=0
+	.GVAR C-INTS=210
+	.GVAR P-CCTBL=T?103,TABLE
+	.GVAR P-LEXV=T?203,TABLE
+	.GVAR SLEEVE-TIED=0
+	.GVAR GUN-COUNTER=0
+	.GVAR IN-FRONT-FLAG=0
+	.GVAR PRSO=0
+	.GVAR DESTINATION=0
+	.GVAR P-MERGED=0
+	.GVAR LINE-NUMBER=0
+	.GVAR BOAT-COUNTER=0
+	.GVAR P-GWIMBIT=0
+	.GVAR HEADACHE=1
+	.GVAR ZAPHOD-PROB=0
+	.GVAR DARK-CONTROLLED=0
+	.GVAR P-OCLAUSE=T?1703,TABLE
+	.GVAR DAIS-COUNTER=0
+	.GVAR P-SYNTAX=0
+	.GVAR IDENTITY-FLAG=0
+	.GVAR DONT-FLAG=0
+	.GVAR FORD-SLEEPING=0
+	.GVAR P-XADJ=0
+	.GVAR SUBSTITUTE-DRUNK=0
+	.GVAR MOVES=0
+	.GVAR P-AADJ=0
+	.GVAR FORD-TABLE=T?106,TABLE
+	.GVAR PRSA=0
+	.GVAR P-PRSA-WORD=0
+	.GVAR DOG-COUNTER=0
+	.GVAR HINT-WARNING=0
+	.GVAR PROSSER-COUNTER=0
+	.GVAR FORD-COUNTER=0
+	.GVAR P-PRSO=T?1303,TABLE
+	.GVAR TRAAL-PROB=60
+	.GVAR BROWNIAN-SOURCE=0
+	.GVAR TEA-COUNTER=0
+	.GVAR P-AND=0
+	.GVAR SCORE=0
+	.GVAR P-ONEOBJ=0
+	.GVAR DREAMING=0
+	.GVAR LINE-C=STR?138,STRING
+	.GVAR P-INBUF=T?503,TABLE
+	.GVAR NAME-TOLD=0
+	.GVAR P-MERGE=T?1603,TABLE
+	.GVAR DRIVE-TO-PLOTTER=0
+	.GVAR TRILLIAN-PROB=15
+	.GVAR P-WON=0
+	.GVAR LYING-DOWN=0
+	.GVAR HERE=0
+	.GVAR TEA-SHOWN=0
+	.GVAR P-OVTBL=T?1203,TABLE
+	.GVAR FLEET-PROB=0
+	.GVAR FORD-POINT=15
+	.GVAR POEM-ENJOYED=0
+	.GVAR P-ITBL=T?903,TABLE
+	.GVAR GLASS-CASE-SCORE=0
+	.GVAR WORD-NUMBER=0
+	.GVAR QUOTE-FLAG=0
+	.GVAR P-TABLE=0
+	.GVAR WHALE-PROB=0
+	.GVAR LINE-B=STR?137,STRING
+	.GVAR AIRLOCK-COUNTER=0
+	.GVAR P-GETFLAGS=0
+	.GVAR GUARDS-COUNTER=0
+	.GVAR LINE-TABLE=PT?110,TABLE
+	.GVAR FLUFF-COUNTER=0
+	.GVAR PARTY-TABLE=T?108,TABLE
+	.GVAR OOPS-INBUF=T?703,TABLE
+	.GVAR BORES=PT?106,TABLE
+	.GVAR P-NUMBER=0
+	.GVAR EARTH-DEMOLISHED=0
+	.GVAR CHAPT-NUM=1
+	.GVAR P-OFLAG=0
+	.GVAR DOG-FED=0
+	.GVAR WINNER=0
+	.GVAR VOGON-COUNTER=0
+	.GVAR HINTS-OFF=0
+	.GVAR AGAIN-DIR=0
+	.GVAR ITEM-DROPPED-AT-PARTY=0
+	.GVAR PROSSER-LYING=0
+	.GVAR BEARINGS-LOST=0
+	.GVAR LINE-A=STR?136,STRING
+	.GVAR TOWEL-MUDDY=0
+	.GVAR AWAITING-REPLY=0
+	.GVAR P-IT-OBJECT=0
+	.GVAR HINTS=PT?1510,TABLE
+	.GVAR GIBBERISH=PT?107,TABLE
+	.GVAR LYING-COUNTER=0
+	.GVAR DARK-COUNTER=0
+	.GVAR LOOK-COUNTER=0
+	.GVAR PRSI=0
+	.GVAR RESERVE-PTR=0
+	.GVAR VOGON-PROB=100
+	.GVAR BOAT-DOCKED=0
+	.GVAR OLD-LEN=0,NUMBER
+	.GVAR DIROUT-TBL=T?110,TABLE
+	.GVAR ITEM-ON-SATCHEL=0
+	.GVAR GROGGY-COUNTER=0
+	.GVAR WIDTH=0,NUMBER
+	.GVAR PLANT-BLOOMED=0
+	.GVAR DRIVE-TO-CONTROLS=0
+	.GVAR THUMB-SHOWN=0
+	.GVAR ENGINEER-COUNTER=0
+	.GVAR HOUSE-DEMOLISHED=0
+	.GVAR P-NOT-HERE=0
+	.GVAR AUTOPILOT-COUNTER=0
+	.GVAR COLUMN-TABLE=PT?210,TABLE
+	.GVAR GROGGY=0
+	.GVAR P-NCN=0
+	.GVAR CAPTAIN-COUNTER=0
+	.GVAR PREPOSITIONS=PRTBL,TABLE
+	.GVAR ACTIONS=ATBL,TABLE
+	.GVAR PREACTIONS=PATBL,TABLE
+	.GVAR VERBS=VTBL,TABLE
+	.ENDT
+
+GLOEND::
+
+
+; PROPERTY DEFAULTS AND OBJECTS ARE DEFINED HERE
+
+OBJECT::.TABLE 
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;()
+	0			;(P?FLAG)
+	0			;(P?TEXT)
+	0			;(P?FDESC)
+	0			;(P?GENERIC)
+	0			;(P?DESCFCN)
+	5			;(P?SIZE)
+	0			;(P?CAPACITY)
+	0			;(P?GLOBAL)
+	0			;(P?LDESC)
+	0			;(P?ACTION)
+	0			;(P?ADJECTIVE)
+	0			;(P?SYNONYM)
+	0			;(P?OUT)
+	0			;(P?IN)
+	0			;(P?DOWN)
+	0			;(P?UP)
+	0			;(P?NW)
+	0			;(P?WEST)
+	0			;(P?SW)
+	0			;(P?SOUTH)
+	0			;(P?SE)
+	0			;(P?EAST)
+	0			;(P?NE)
+	0			;(P?NORTH)
+	.OBJECT LARGE-RECEPTACLE,0,0,FX?NDESCBIT,BRIDGE,EDDIE,0,T?LARGE-RECEPTACLE
+	.OBJECT AIR,0,FX?VOWELBIT,0,GLOBAL-OBJECTS,CEILING,0,T?AIR
+	.OBJECT FISH-HOLE,0,0,FX?NDESCBIT,HOLD,DISPENSER-BUTTON,0,T?FISH-HOLE
+	.OBJECT BULLDOZER-DRIVER,0,0,FX?ACTORBIT+FX?NDESCBIT,FRONT-OF-HOUSE,ROSES,0,T?BULLDOZER-DRIVER
+	.OBJECT CAGE,0,0,FX?NARTICLEBIT+FX?NDESCBIT,LOCAL-GLOBALS,JACKET-FLUFF,0,T?CAGE
+	.OBJECT HANDS,0,FX?TOUCHBIT,FX?NARTICLEBIT+FX?NDESCBIT,GLOBAL-OBJECTS,STAR,0,T?HANDS
+	.OBJECT PLOTTER,0,FX?VOWELBIT,FX?TRYTAKEBIT+FX?TRANSBIT+FX?CONTBIT+FX?TAKEBIT,GLASS-CASE,0,DANGLY-BIT,T?PLOTTER
+	.OBJECT KEY,0,0,FX?TAKEBIT,LOCAL-GLOBALS,WATER,0,T?KEY
+	.OBJECT TRILLIAN,0,0,FX?OPENBIT+FX?CONTBIT+FX?NDESCBIT+FX?ACTORBIT+FX?NARTICLEBIT,BRIDGE,ZAPHOD,HANDBAG,T?TRILLIAN
+	.OBJECT RUBBLE,0,0,FX?NDESCBIT,LOCAL-GLOBALS,HOUSE,0,T?RUBBLE
+	.OBJECT WINDOW,0,0,FX?TRANSBIT,LOCAL-GLOBALS,FOOBAR,0,T?WINDOW
+	.OBJECT PUB-FURNISHINGS,0,0,FX?NARTICLEBIT+FX?NDESCBIT,LOCAL-GLOBALS,PEOPLE,0,T?PUB-FURNISHINGS
+	.OBJECT SPEECH,0,0,0,GLOBAL-OBJECTS,GLOBAL-SLEEP,0,T?SPEECH
+	.OBJECT SINK,0,0,FX?NARTICLEBIT+FX?NDESCBIT,BEDROOM,GOWN,0,T?SINK
+	.OBJECT LIQUID,0,FX?DRINKBIT,FX?NDESCBIT,LOCAL-GLOBALS,SHADOW,0,T?LIQUID
+	.OBJECT HANGOVER,0,0,0,GLOBAL-OBJECTS,0,0,T?HANGOVER
+	.OBJECT CHISEL,0,FX?TOOLBIT,FX?TAKEBIT,PANTRY,MARVIN,0,T?CHISEL
+	.OBJECT GUARANTEE,0,0,FX?INTEGRALBIT+FX?NDESCBIT,THUMB,GREEN-BUTTON,0,T?GUARANTEE
+	.OBJECT ME,0,FX?TOUCHBIT,FX?NARTICLEBIT+FX?ACTORBIT,GLOBAL-OBJECTS,EARS,0,T?ME
+	.OBJECT FORD,0,0,FX?NARTICLEBIT+FX?OPENBIT+FX?SEARCHBIT+FX?CONTBIT+FX?ACTORBIT,LOCAL-GLOBALS,BULLDOZER,TOWEL,T?FORD
+	.OBJECT PUB-OBJECT,0,0,0,LOCAL-GLOBALS,DOG,0,T?PUB-OBJECT
+	.OBJECT HOOK,0,0,FX?NDESCBIT,HOLD,FISH-HOLE,0,T?HOOK
+	.OBJECT SPEEDBOAT,0,FX?OUTSIDEBIT,FX?RLANDBIT+FX?ONBIT,ROOMS,KITCHEN,CLIFF,T?SPEEDBOAT
+	.OBJECT HOME,0,0,FX?NARTICLEBIT,LOCAL-GLOBALS,MECHANISM,0,T?HOME
+	.OBJECT KITCHEN,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,DINING-ROOM,0,T?KITCHEN
+	.OBJECT PHIL,0,0,FX?ACTORBIT+FX?NARTICLEBIT,LOCAL-GLOBALS,FRUIT,0,T?PHIL
+	.OBJECT WINE,0,FX?DRINKBIT,FX?TAKEBIT,LOCAL-GLOBALS,WILD-PARTY,0,T?WINE
+	.OBJECT SYNAPSE,0,0,FX?NDESCBIT,MAZE,BRAIN,0,T?SYNAPSE
+	.OBJECT DINING-ROOM,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,LIVING-ROOM,0,T?DINING-ROOM
+	.OBJECT ROOMS,0,0,0,0,0,DARK,T?ROOMS
+	.OBJECT TOOTHBRUSH,0,FX?TOOLBIT,FX?TRYTAKEBIT+FX?TAKEBIT,BEDROOM,NAME,0,T?TOOTHBRUSH
+	.OBJECT SMALL-RECEPTACLE,0,0,FX?INTEGRALBIT+FX?NDESCBIT,PLOTTER,0,0,T?SMALL-RECEPTACLE
+	.OBJECT MARVIN,0,0,FX?ACTORBIT+FX?NARTICLEBIT,PANTRY,PANTRY-PSEUDO,0,T?MARVIN
+	.OBJECT HOLD-FURNISHINGS,0,0,FX?NARTICLEBIT+FX?NDESCBIT,LOCAL-GLOBALS,WEAPON,0,T?HOLD-FURNISHINGS
+	.OBJECT FLEET,0,0,FX?NDESCBIT,LOCAL-GLOBALS,PUB-FURNISHINGS,0,T?FLEET
+	.OBJECT YOUR-NAME,0,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,SARCASTIC-NAME,0,T?YOUR-NAME
+	.OBJECT LOCAL-GLOBALS,0,0,0,GLOBAL-OBJECTS,BEAST-NAME,BIKE,T?LOCAL-GLOBALS
+	.OBJECT GALLEY-PSEUDO,0,0,FX?NDESCBIT,GALLEY,0,0,T?GALLEY-PSEUDO
+	.OBJECT HEAD,0,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,TEETH,0,T?HEAD
+	.OBJECT INNER-LAIR,0,0,FX?RLANDBIT+FX?ONBIT,ROOMS,OUTER-LAIR,NUT-COM-INTERFACE,T?INNER-LAIR
+	.OBJECT CANOPY,0,0,FX?TRANSBIT+FX?NDESCBIT,WAR-CHAMBER,MICROSCOPIC-FLEET,0,T?CANOPY
+	.OBJECT MUSIC,0,0,FX?NDESCBIT+FX?NARTICLEBIT,PUB,PUB-SHELF,0,T?MUSIC
+	.OBJECT KEYBOARD,0,0,FX?TRYTAKEBIT+FX?NDESCBIT,HOLD,GLASS-CASE,0,T?KEYBOARD
+	.OBJECT POETRY,0,FX?DARKBIT,FX?NARTICLEBIT+FX?NDESCBIT,CAPTAINS-QUARTERS,VOGON-CAPTAIN,0,T?POETRY
+	.OBJECT WHALE-OBJECT,0,FX?VOWELBIT,FX?NDESCBIT,INSIDE-WHALE,FLOWERPOT,0,T?WHALE-OBJECT
+	.OBJECT LIGHT,0,0,FX?LIGHTBIT,GLOBAL-OBJECTS,INTNUM,0,T?LIGHT
+	.OBJECT GLOBAL-SLEEP,0,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,LIGHT,0,T?GLOBAL-SLEEP
+	.OBJECT BIKE,0,0,FX?TRYTAKEBIT+FX?NDESCBIT,LOCAL-GLOBALS,ENGINEER,0,T?BIKE
+	.OBJECT PILOT-SEAT,0,FX?SURFACEBIT+FX?VEHBIT,FX?OPENBIT+FX?SEARCHBIT+FX?CONTBIT,SPEEDBOAT,BOAT-OBJECT,0,T?PILOT-SEAT
+	.OBJECT CONTROLS,0,0,FX?NARTICLEBIT,LOCAL-GLOBALS,STAIRS,0,T?CONTROLS
+	.OBJECT HATCHWAY,0,0,FX?RLANDBIT+FX?ONBIT,ROOMS,ENGINE-ROOM,0,T?HATCHWAY
+	.OBJECT EDDIE,0,FX?VOWELBIT,FX?ONBIT+FX?LIGHTBIT+FX?ACTORBIT+FX?NDESCBIT+FX?NARTICLEBIT,BRIDGE,SAUNA,0,T?EDDIE
+	.OBJECT OBJECT-OF-GAME,0,FX?VOWELBIT,0,GLOBAL-OBJECTS,GLOBAL-ROOM,0,T?OBJECT-OF-GAME
+	.OBJECT SLEEVES,0,0,0,GLOBAL-OBJECTS,HANGOVER,0,T?SLEEVES
+	.OBJECT PARTICLE,0,FX?READBIT,FX?TRYTAKEBIT+FX?TAKEBIT,LOCAL-GLOBALS,THIRD-PLANET,0,T?PARTICLE
+	.OBJECT WILD-PARTY,0,0,0,LOCAL-GLOBALS,APARTMENT,0,T?WILD-PARTY
+	.OBJECT SKY,0,0,0,GLOBAL-OBJECTS,AIR,0,T?SKY
+	.OBJECT GLOBAL-OBJECTS,0,FX?WORNBIT+FX?MUNGEDBIT+FX?WEARBIT+FX?REVISITBIT+FX?SURFACEBIT+FX?TOUCHBIT+FX?INVISIBLE,FX?RLANDBIT+FX?ONBIT+FX?TRANSBIT+FX?SEARCHBIT+FX?OPENBIT+FX?TRYTAKEBIT,0,0,NO-TEA,T?GLOBAL-OBJECTS
+	.OBJECT ACCESS-SPACE,0,0,FX?RLANDBIT+FX?ONBIT,ROOMS,HATCHWAY,MESH,T?ACCESS-SPACE
+	.OBJECT STUFF-UNDER-BED,0,0,FX?NARTICLEBIT+FX?NDESCBIT,LOCAL-GLOBALS,GLOBAL-BED,0,T?STUFF-UNDER-BED
+	.OBJECT NAME,0,0,FX?NDESCBIT,BEDROOM,BEDROOM-FURNISHINGS,0,T?NAME
+	.OBJECT IT,0,FX?TOUCHBIT+FX?VOWELBIT,FX?NDESCBIT+FX?NARTICLEBIT,GLOBAL-OBJECTS,LOCAL-GLOBALS,0,T?IT
+	.OBJECT CURTAINS,0,0,FX?NARTICLEBIT+FX?NDESCBIT,BEDROOM,BED,0,T?CURTAINS
+	.OBJECT DRAIN,0,0,FX?NDESCBIT,HOLD,HOOK,0,T?DRAIN
+	.OBJECT AUTOPILOT-BUTTON,0,FX?VOWELBIT,FX?LIGHTBIT+FX?NDESCBIT,SPEEDBOAT,TOOLBOX,0,T?AUTOPILOT-BUTTON
+	.OBJECT WALLS,0,FX?TOUCHBIT,FX?NDESCBIT,GLOBAL-OBJECTS,GROUND,0,T?WALLS
+	.OBJECT DAIS,0,FX?OUTSIDEBIT,FX?ONBIT+FX?RLANDBIT,ROOMS,SPEEDBOAT,BANNER,T?DAIS
+	.OBJECT STAR-DRIVE,0,0,FX?NDESCBIT,LOCAL-GLOBALS,PAINFUL-LIGHT,0,T?STAR-DRIVE
+	.OBJECT AFT-CORRIDOR,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,FORE-CORRIDOR,0,T?AFT-CORRIDOR
+	.OBJECT LIVING-ROOM,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,MAZE,HOSTESS,T?LIVING-ROOM
+	.OBJECT FRONT-OF-HOUSE,0,FX?OUTSIDEBIT,FX?ONBIT+FX?RLANDBIT,ROOMS,FRONT-PORCH,PROSSER,T?FRONT-OF-HOUSE
+	.OBJECT BACK-OF-HOUSE,0,FX?OUTSIDEBIT,FX?ONBIT+FX?RLANDBIT,ROOMS,FRONT-OF-HOUSE,BIRDS,T?BACK-OF-HOUSE
+	.OBJECT BOARD,0,0,FX?TRANSBIT+FX?CONTBIT+FX?TAKEBIT,NUTRIMAT,0,DIPSWITCH,T?BOARD
+	.OBJECT BRIDGE,0,0,FX?RLANDBIT+FX?ONBIT,ROOMS,GALLEY,PINCER,T?BRIDGE
+	.OBJECT POCKET-FLUFF,0,0,FX?NARTICLEBIT+FX?TAKEBIT,GOWN,THING,0,T?POCKET-FLUFF
+	.OBJECT BLASTER,0,0,FX?TRYTAKEBIT+FX?TAKEBIT+FX?NDESCBIT,LOCAL-GLOBALS,PLATFORM,0,T?BLASTER
+	.OBJECT HOUSE,0,0,FX?NARTICLEBIT,LOCAL-GLOBALS,HOME,0,T?HOUSE
+	.OBJECT CUSHION-FLUFF,0,0,FX?NARTICLEBIT+FX?TAKEBIT,LOCAL-GLOBALS,KEY,0,T?CUSHION-FLUFF
+	.OBJECT TEA,0,FX?DRINKBIT,FX?TRYTAKEBIT+FX?TAKEBIT+FX?NARTICLEBIT,PAD,SUBSTITUTE,0,T?TEA
+	.OBJECT SATCHEL,0,0,FX?TRYTAKEBIT+FX?TAKEBIT+FX?SEARCHBIT+FX?CONTBIT,FORD,0,GUIDE,T?SATCHEL
+	.OBJECT NUT-COM-INTERFACE,0,0,FX?TAKEBIT+FX?TRYTAKEBIT+FX?NDESCBIT,INNER-LAIR,SKELETON,0,T?NUT-COM-INTERFACE
+	.OBJECT MEMORIAL,0,FX?READBIT,FX?NDESCBIT,OUTER-LAIR,BONES,0,T?MEMORIAL
+	.OBJECT SAUNA,0,0,FX?NDESCBIT,BRIDGE,0,0,T?SAUNA
+	.OBJECT ROBOT-PANEL,0,0,FX?NDESCBIT,HOLD,DRAIN,0,T?ROBOT-PANEL
+	.OBJECT RASP,0,FX?TOOLBIT+FX?VOWELBIT,FX?TAKEBIT,LOCAL-GLOBALS,PLIERS,0,T?RASP
+	.OBJECT SATCHEL-FLUFF,0,0,FX?NARTICLEBIT+FX?TAKEBIT,SATCHEL,0,0,T?SATCHEL-FLUFF
+	.OBJECT APARTMENT,0,FX?VOWELBIT,0,LOCAL-GLOBALS,PARTICLE,0,T?APARTMENT
+	.OBJECT MICROSCOPIC-FLEET,0,0,FX?NDESCBIT,WAR-CHAMBER,0,0,T?MICROSCOPIC-FLEET
+	.OBJECT INSIDE-WHALE,0,0,FX?NARTICLEBIT+FX?RLANDBIT+FX?ONBIT,ROOMS,DAIS,WHALE-OBJECT,T?INSIDE-WHALE
+	.OBJECT FLOWERPOT,0,0,FX?OPENBIT+FX?CONTBIT+FX?TAKEBIT,INSIDE-WHALE,0,0,T?FLOWERPOT
+	.OBJECT PLANT,0,0,FX?INTEGRALBIT+FX?NDESCBIT,LOCAL-GLOBALS,SCREENING-DOOR,0,T?PLANT
+	.OBJECT GUARDS,0,FX?VOWELBIT,FX?OPENBIT+FX?SEARCHBIT+FX?CONTBIT+FX?ACTORBIT+FX?NDESCBIT+FX?NARTICLEBIT,LOCAL-GLOBALS,CONVERSATION,0,T?GUARDS
+	.OBJECT FORE-CORRIDOR,0,0,FX?RLANDBIT+FX?ONBIT,ROOMS,BRIDGE,0,T?FORE-CORRIDOR
+	.OBJECT SANDWICH,0,0,FX?TRYTAKEBIT+FX?EATBIT+FX?NDESCBIT,PUB,PEANUTS,0,T?SANDWICH
+	.OBJECT HOSTESS,0,0,FX?ACTORBIT,LIVING-ROOM,APARTMENT-DOOR,0,T?HOSTESS
+	.OBJECT SWITCH,0,0,FX?SWITCHBIT+FX?NDESCBIT,SPARE-DRIVE,SMALL-PLUG,0,T?SWITCH
+	.OBJECT TREE,0,0,0,LOCAL-GLOBALS,STUFF-UNDER-BED,0,T?TREE
+	.OBJECT JUKEBOX,0,0,FX?ONBIT+FX?LIGHTBIT+FX?NDESCBIT,PUB,MUSIC,0,T?JUKEBOX
+	.OBJECT HOLD,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,PUB,VOGON-CORRIDOR-DOOR,T?HOLD
+	.OBJECT PAINFUL-LIGHT,0,0,FX?NDESCBIT,LOCAL-GLOBALS,LIQUID,0,T?PAINFUL-LIGHT
+	.OBJECT DOORMAT,0,0,FX?NDESCBIT,FRONT-PORCH,0,0,T?DOORMAT
+	.OBJECT BEDROOM-FURNISHINGS,0,0,FX?NARTICLEBIT+FX?NDESCBIT,BEDROOM,SINK,0,T?BEDROOM-FURNISHINGS
+	.OBJECT LAIR-OBJECT,0,0,0,LOCAL-GLOBALS,EQUATIONS,0,T?LAIR-OBJECT
+	.OBJECT BANNER,0,FX?READBIT,FX?NDESCBIT,DAIS,0,0,T?BANNER
+	.OBJECT SCREWDRIVER,0,FX?TOOLBIT,FX?TRYTAKEBIT+FX?TAKEBIT,BEDROOM,TOOTHBRUSH,0,T?SCREWDRIVER
+	.OBJECT LAIR,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,AIRLOCK,BEAST,T?LAIR
+	.OBJECT PLIERS,0,FX?TOOLBIT,FX?TAKEBIT,LOCAL-GLOBALS,STAR-DRIVE,0,T?PLIERS
+	.OBJECT BRAIN,0,0,FX?NDESCBIT,MAZE,GRAY-MATTER,0,T?BRAIN
+	.OBJECT RIFLES,0,0,FX?TRYTAKEBIT+FX?NDESCBIT,LOCAL-GLOBALS,BLASTER,0,T?RIFLES
+	.OBJECT CHANNEL,0,0,FX?NDESCBIT,SPEEDBOAT,AUTOPILOT-BUTTON,0,T?CHANNEL
+	.OBJECT PEOPLE,0,0,0,LOCAL-GLOBALS,PUB-OBJECT,0,T?PEOPLE
+	.OBJECT CLIFF,0,0,FX?NARTICLEBIT+FX?NDESCBIT,SPEEDBOAT,SPIRE,0,T?CLIFF
+	.OBJECT SHADOW,0,0,FX?NDESCBIT,LOCAL-GLOBALS,GUARDS,0,T?SHADOW
+	.OBJECT BED,0,FX?SURFACEBIT+FX?VEHBIT,FX?NDESCBIT+FX?OPENBIT+FX?SEARCHBIT+FX?CONTBIT,BEDROOM,PHONE,0,T?BED
+	.OBJECT WAR-CHAMBER,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,INNER-LAIR,AWL,T?WAR-CHAMBER
+	.OBJECT TABLET,0,0,FX?EATBIT+FX?TAKEBIT,GOWN,POCKET-FLUFF,0,T?TABLET
+	.OBJECT DISPENSER-BUTTON,0,0,FX?NDESCBIT,HOLD,DISPENSER,0,T?DISPENSER-BUTTON
+	.OBJECT SPARE-DRIVE,0,0,FX?LIGHTBIT+FX?CONTBIT+FX?TRANSBIT+FX?TAKEBIT,LOCAL-GLOBALS,MAIN-DRIVE,SWITCH,T?SPARE-DRIVE
+	.OBJECT GLOBAL-ROOM,0,0,0,GLOBAL-OBJECTS,ME,0,T?GLOBAL-ROOM
+	.OBJECT FRUSTATION,0,0,0,GLOBAL-OBJECTS,OBJECT-OF-GAME,0,T?FRUSTATION
+	.OBJECT TOWEL,0,0,FX?TRYTAKEBIT+FX?TAKEBIT,FORD,SATCHEL,0,T?TOWEL
+	.OBJECT CHIPPER,0,FX?TOOLBIT,FX?TAKEBIT,LOCAL-GLOBALS,RASP,0,T?CHIPPER
+	.OBJECT ENGINE-ROOM,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,ENTRY-BAY,0,T?ENGINE-ROOM
+	.OBJECT HEART-OF-GOLD,0,0,FX?NARTICLEBIT,LOCAL-GLOBALS,0,0,T?HEART-OF-GOLD
+	.OBJECT DARK,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,INSIDE-WHALE,0,T?DARK
+	.OBJECT TOOLBOX,0,0,FX?SEARCHBIT+FX?TAKEBIT+FX?CONTBIT,SPEEDBOAT,PILOT-SEAT,WRENCH,T?TOOLBOX
+	.OBJECT EYES,0,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,HEAD,0,T?EYES
+	.OBJECT GREEN-BUTTON,0,0,FX?INTEGRALBIT+FX?NDESCBIT,THUMB,RED-BUTTON,0,T?GREEN-BUTTON
+	.OBJECT PANTRY-PSEUDO,0,0,FX?NDESCBIT,PANTRY,0,0,T?PANTRY-PSEUDO
+	.OBJECT PLATFORM,0,0,0,LOCAL-GLOBALS,CUSHION-FLUFF,0,T?PLATFORM
+	.OBJECT STAR,0,0,FX?NDESCBIT,GLOBAL-OBJECTS,SKY,0,T?STAR
+	.OBJECT OTHER-PLANETS,0,FX?VOWELBIT,FX?NARTICLEBIT+FX?NDESCBIT,WAR-CHAMBER,GGUGVUNT,0,T?OTHER-PLANETS
+	.OBJECT COUNTRY-LANE,0,FX?OUTSIDEBIT,FX?ONBIT+FX?RLANDBIT,ROOMS,BACK-OF-HOUSE,0,T?COUNTRY-LANE
+	.OBJECT CASE-SWITCH,0,0,FX?SWITCHBIT+FX?NDESCBIT,HOLD,KEYBOARD,0,T?CASE-SWITCH
+	.OBJECT AIRLOCK,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,CAPTAINS-QUARTERS,0,T?AIRLOCK
+	.OBJECT BEAST-GUN,0,0,FX?TAKEBIT,INTERFACE-BOX,0,0,T?BEAST-GUN
+	.OBJECT MESH,0,0,FX?NDESCBIT,ACCESS-SPACE,0,0,T?MESH
+	.OBJECT GALLEY,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,PANTRY,INTERFACE-BOX,T?GALLEY
+	.OBJECT VOGON-CAPTAIN,0,0,FX?ACTORBIT,CAPTAINS-QUARTERS,POETRY-APPRECIATION-CHAIR,0,T?VOGON-CAPTAIN
+	.OBJECT THIRD-PLANET,0,0,FX?NDESCBIT,LOCAL-GLOBALS,LAIR-OBJECT,0,T?THIRD-PLANET
+	.OBJECT SMALL-PLUG,0,0,FX?INTEGRALBIT+FX?NDESCBIT,SPARE-DRIVE,LARGE-PLUG,0,T?SMALL-PLUG
+	.OBJECT HATCH,0,0,0,LOCAL-GLOBALS,SPARE-DRIVE,0,T?HATCH
+	.OBJECT DIPSWITCH,0,0,FX?SWITCHBIT+FX?NDESCBIT,BOARD,0,0,T?DIPSWITCH
+	.OBJECT SLOT,0,0,FX?SEARCHBIT+FX?OPENBIT+FX?CONTBIT+FX?NDESCBIT,GALLEY,PAD,0,T?SLOT
+	.OBJECT PANTRY,0,0,FX?NARTICLEBIT+FX?ONBIT+FX?RLANDBIT,ROOMS,0,CHISEL,T?PANTRY
+	.OBJECT DOG,0,0,0,LOCAL-GLOBALS,FORD,0,T?DOG
+	.OBJECT STONE,0,0,FX?TRYTAKEBIT+FX?TAKEBIT+FX?NDESCBIT,OUTER-LAIR,MEMORIAL,0,T?STONE
+	.OBJECT ENGINEER,0,FX?VOWELBIT,FX?SEARCHBIT+FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT,LOCAL-GLOBALS,CHIPPER,0,T?ENGINEER
+	.OBJECT ENTRY-BAY,0,0,FX?NARTICLEBIT+FX?ONBIT+FX?RLANDBIT,ROOMS,AFT-CORRIDOR,SALES-BROCHURE,T?ENTRY-BAY
+	.OBJECT BEDROOM,0,0,FX?RLANDBIT,ROOMS,RAMP,SCREWDRIVER,T?BEDROOM
+	.OBJECT PUB-SHELF,0,0,0,PUB,BAR,0,T?PUB-SHELF
+	.OBJECT ARTHUR,0,FX?VOWELBIT,FX?ACTORBIT+FX?NARTICLEBIT,LOCAL-GLOBALS,FLEET,0,T?ARTHUR
+	.OBJECT TWEEZERS,0,FX?TOOLBIT,FX?TAKEBIT,HANDBAG,0,0,T?TWEEZERS
+	.OBJECT CROWD,0,0,0,LOCAL-GLOBALS,DAMOGRAN,0,T?CROWD
+	.OBJECT PROSSER,0,0,FX?OPENBIT+FX?CONTBIT+FX?ACTORBIT+FX?NARTICLEBIT,FRONT-OF-HOUSE,BULLDOZER-DRIVER,DIGITAL-WATCH,T?PROSSER
+	.OBJECT BEER,0,FX?DRINKBIT,FX?NDESCBIT+FX?NARTICLEBIT,PUB,BARMAN,0,T?BEER
+	.OBJECT OUTER-LAIR,0,FX?OUTSIDEBIT,FX?ONBIT+FX?RLANDBIT,ROOMS,LAIR,STONE,T?OUTER-LAIR
+	.OBJECT HANDBAG,0,0,FX?NDESCBIT+FX?SEARCHBIT+FX?TRYTAKEBIT+FX?TAKEBIT+FX?CONTBIT,TRILLIAN,0,TWEEZERS,T?HANDBAG
+	.OBJECT DIGITAL-WATCH,0,0,FX?TRYTAKEBIT+FX?NDESCBIT,PROSSER,0,0,T?DIGITAL-WATCH
+	.OBJECT WEAPON,0,0,0,LOCAL-GLOBALS,ARTHUR,0,T?WEAPON
+	.OBJECT VOGON-INNER-DOOR,0,FX?VOWELBIT,FX?DOORBIT+FX?NDESCBIT,LOCAL-GLOBALS,BABEL-FISH,0,T?VOGON-INNER-DOOR
+	.OBJECT STAIRS,0,0,FX?NDESCBIT+FX?NARTICLEBIT,LOCAL-GLOBALS,WINDOW,0,T?STAIRS
+	.OBJECT TIME,0,0,0,GLOBAL-OBJECTS,SLEEVES,0,T?TIME
+	.OBJECT POETRY-APPRECIATION-CHAIR,0,FX?SURFACEBIT+FX?VEHBIT,FX?CONTBIT+FX?SEARCHBIT+FX?OPENBIT,CAPTAINS-QUARTERS,STRAPS,0,T?POETRY-APPRECIATION-CHAIR
+	.OBJECT MECHANISM,0,0,0,LOCAL-GLOBALS,HATCH,0,T?MECHANISM
+	.OBJECT GLOBAL-BED,0,FX?VEHBIT,0,LOCAL-GLOBALS,BEDROOM-DOOR,0,T?GLOBAL-BED
+	.OBJECT PUB,0,FX?OUTSIDEBIT,FX?ONBIT+FX?RLANDBIT,ROOMS,COUNTRY-LANE,SANDWICH,T?PUB
+	.OBJECT GRAY-MATTER,0,0,FX?NDESCBIT,MAZE,0,0,T?GRAY-MATTER
+	.OBJECT CONVERSATION,0,FX?INVISIBLE+FX?DARKBIT,0,LOCAL-GLOBALS,CONTROLS,0,T?CONVERSATION
+	.OBJECT SKELETON,0,0,FX?TRYTAKEBIT+FX?RLANDBIT,INNER-LAIR,0,0,T?SKELETON
+	.OBJECT WATER,0,0,FX?NARTICLEBIT,LOCAL-GLOBALS,CROWD,0,T?WATER
+	.OBJECT GROUND,0,0,0,GLOBAL-OBJECTS,SPEECH,0,T?GROUND
+	.OBJECT ROSES,0,0,FX?NARTICLEBIT+FX?NDESCBIT,FRONT-OF-HOUSE,0,0,T?ROSES
+	.OBJECT FRONT-PORCH,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,BEDROOM,MAIL,T?FRONT-PORCH
+	.OBJECT NOT-HERE-OBJECT,0,0,FX?NARTICLEBIT,0,0,0,T?NOT-HERE-OBJECT
+	.OBJECT FRUIT,0,0,FX?EATBIT+FX?TAKEBIT+FX?TRYTAKEBIT+FX?NDESCBIT,LOCAL-GLOBALS,PLANT,0,T?FRUIT
+	.OBJECT BIRDS,0,0,FX?NDESCBIT,BACK-OF-HOUSE,0,0,T?BIRDS
+	.OBJECT SARCASTIC-NAME,0,FX?INVISIBLE+FX?VOWELBIT,0,GLOBAL-OBJECTS,TIME,0,T?SARCASTIC-NAME
+	.OBJECT INTNUM,0,0,0,GLOBAL-OBJECTS,IT,0,T?INTNUM
+	.OBJECT SCREENING-DOOR,0,0,FX?ACTORBIT+FX?NDESCBIT+FX?DOORBIT,LOCAL-GLOBALS,HEART-OF-GOLD,0,T?SCREENING-DOOR
+	.OBJECT BABEL-FISH,0,0,FX?TAKEBIT,LOCAL-GLOBALS,HOLD-FURNISHINGS,0,T?BABEL-FISH
+	.OBJECT NUTRIMAT,0,0,FX?SEARCHBIT+FX?LIGHTBIT+FX?CONTBIT+FX?ACTORBIT+FX?NDESCBIT,GALLEY,GALLEY-PSEUDO,BOARD,T?NUTRIMAT
+	.OBJECT INTERFACE-BOX,0,FX?READBIT,FX?SEARCHBIT+FX?TAKEBIT+FX?CONTBIT,GALLEY,SLOT,BEAST-GUN,T?INTERFACE-BOX
+	.OBJECT BOAT-OBJECT,0,0,FX?NDESCBIT,SPEEDBOAT,0,0,T?BOAT-OBJECT
+	.OBJECT BAR,0,FX?SURFACEBIT,FX?OPENBIT+FX?CONTBIT+FX?NDESCBIT,PUB,0,0,T?BAR
+	.OBJECT DISPENSER,0,0,0,HOLD,0,0,T?DISPENSER
+	.OBJECT AWL,0,FX?TOOLBIT+FX?VOWELBIT,FX?TAKEBIT,WAR-CHAMBER,OTHER-PLANETS,0,T?AWL
+	.OBJECT CEILING,0,FX?TOUCHBIT,FX?NDESCBIT,GLOBAL-OBJECTS,WALLS,0,T?CEILING
+	.OBJECT ZAPHOD,0,0,FX?NDESCBIT+FX?ACTORBIT+FX?NARTICLEBIT,BRIDGE,LARGE-RECEPTACLE,0,T?ZAPHOD
+	.OBJECT PHONE,0,0,FX?TRYTAKEBIT+FX?TAKEBIT+FX?NDESCBIT,BEDROOM,BEDROOM-PSEUDO,0,T?PHONE
+	.OBJECT EARS,0,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,EYES,0,T?EARS
+	.OBJECT BONES,0,0,FX?NDESCBIT,OUTER-LAIR,0,0,T?BONES
+	.OBJECT BEDROOM-PSEUDO,0,0,FX?NDESCBIT,BEDROOM,0,0,T?BEDROOM-PSEUDO
+	.OBJECT DARK-OBJECT,0,0,FX?NARTICLEBIT+FX?NDESCBIT,GLOBAL-OBJECTS,FRUSTATION,0,T?DARK-OBJECT
+	.OBJECT LARGE-PLUG,0,0,FX?INTEGRALBIT+FX?NDESCBIT,SPARE-DRIVE,0,0,T?LARGE-PLUG
+	.OBJECT MAGNIFYING-GLASS,0,0,FX?TRANSBIT+FX?TAKEBIT,TOOLBOX,0,0,T?MAGNIFYING-GLASS
+	.OBJECT RED-BUTTON,0,0,FX?INTEGRALBIT+FX?NDESCBIT,THUMB,0,0,T?RED-BUTTON
+	.OBJECT MAIL,0,FX?READBIT,FX?TRYTAKEBIT+FX?TAKEBIT,FRONT-PORCH,DOORMAT,0,T?MAIL
+	.OBJECT SPIRE,0,0,FX?NDESCBIT,SPEEDBOAT,CHANNEL,0,T?SPIRE
+	.OBJECT VOGON-CORRIDOR-DOOR,0,0,FX?NDESCBIT+FX?DOORBIT,HOLD,CASE-SWITCH,0,T?VOGON-CORRIDOR-DOOR
+	.OBJECT GUIDE,0,FX?READBIT,FX?TAKEBIT+FX?NARTICLEBIT,SATCHEL,THUMB,0,T?GUIDE
+	.OBJECT PROTAGONIST,0,FX?INVISIBLE,FX?NDESCBIT,0,0,0,T?PROTAGONIST
+	.OBJECT DAMOGRAN,0,0,0,LOCAL-GLOBALS,CAGE,0,T?DAMOGRAN
+	.OBJECT APPETIZERS,0,0,FX?EATBIT+FX?TAKEBIT,LOCAL-GLOBALS,WINE,0,T?APPETIZERS
+	.OBJECT BEDROOM-DOOR,0,0,FX?NDESCBIT+FX?OPENBIT+FX?DOORBIT,LOCAL-GLOBALS,RUBBLE,0,T?BEDROOM-DOOR
+	.OBJECT GOWN,0,FX?WEARBIT,FX?SEARCHBIT+FX?NARTICLEBIT+FX?NDESCBIT+FX?CONTBIT+FX?TAKEBIT+FX?TRYTAKEBIT,BEDROOM,CURTAINS,TABLET,T?GOWN
+	.OBJECT VOGON-OUTER-DOOR,0,FX?VOWELBIT,FX?DOORBIT+FX?NDESCBIT,LOCAL-GLOBALS,VOGON-INNER-DOOR,0,T?VOGON-OUTER-DOOR
+	.OBJECT MINERAL-WATER,0,FX?DRINKBIT,FX?TAKEBIT+FX?NARTICLEBIT,SATCHEL,SATCHEL-FLUFF,0,T?MINERAL-WATER
+	.OBJECT AIRLOCK-OBJECT,0,FX?VOWELBIT,0,LOCAL-GLOBALS,VOGON-OUTER-DOOR,0,T?AIRLOCK-OBJECT
+	.OBJECT STRAPS,0,0,FX?NDESCBIT,CAPTAINS-QUARTERS,0,0,T?STRAPS
+	.OBJECT THUMB,0,FX?VOWELBIT,FX?OPENBIT+FX?CONTBIT+FX?TAKEBIT,SATCHEL,MINERAL-WATER,GUARANTEE,T?THUMB
+	.OBJECT PEANUTS,0,0,FX?EATBIT+FX?NARTICLEBIT+FX?NDESCBIT+FX?TRYTAKEBIT,PUB,BEER,0,T?PEANUTS
+	.OBJECT EQUATIONS,0,0,FX?NARTICLEBIT+FX?NDESCBIT,LOCAL-GLOBALS,AIRLOCK-OBJECT,0,T?EQUATIONS
+	.OBJECT PAD,0,0,FX?NDESCBIT,GALLEY,NUTRIMAT,TEA,T?PAD
+	.OBJECT VLHURG,0,0,FX?ACTORBIT,WAR-CHAMBER,CANOPY,0,T?VLHURG
+	.OBJECT THING,0,0,FX?OPENBIT+FX?SEARCHBIT+FX?CONTBIT+FX?TAKEBIT,GOWN,0,0,T?THING
+	.OBJECT GLASS-CASE,0,0,FX?SEARCHBIT+FX?TRANSBIT+FX?CONTBIT,HOLD,ROBOT-PANEL,PLOTTER,T?GLASS-CASE
+	.OBJECT RAMP,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,ACCESS-SPACE,0,T?RAMP
+	.OBJECT BEAST,0,0,FX?ACTORBIT,LAIR,0,0,T?BEAST
+	.OBJECT TEETH,0,0,FX?NARTICLEBIT,GLOBAL-OBJECTS,HANDS,0,T?TEETH
+	.OBJECT NO-TEA,0,0,FX?TRYTAKEBIT+FX?NARTICLEBIT,GLOBAL-OBJECTS,DARK-OBJECT,0,T?NO-TEA
+	.OBJECT SUBSTITUTE,0,FX?DRINKBIT+FX?VOWELBIT,FX?TAKEBIT+FX?NARTICLEBIT,PAD,0,0,T?SUBSTITUTE
+	.OBJECT WRENCH,0,FX?TOOLBIT,FX?TAKEBIT,TOOLBOX,MAGNIFYING-GLASS,0,T?WRENCH
+	.OBJECT DANGLY-BIT,0,0,FX?INTEGRALBIT+FX?NDESCBIT,PLOTTER,SMALL-RECEPTACLE,0,T?DANGLY-BIT
+	.OBJECT APARTMENT-DOOR,0,0,FX?NDESCBIT+FX?OPENBIT+FX?DOORBIT,LIVING-ROOM,0,0,T?APARTMENT-DOOR
+	.OBJECT BEAST-NAME,0,0,0,GLOBAL-OBJECTS,YOUR-NAME,0,T?BEAST-NAME
+	.OBJECT MAZE,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,WAR-CHAMBER,SYNAPSE,T?MAZE
+	.OBJECT BULLDOZER,0,FX?INVISIBLE,FX?NDESCBIT,LOCAL-GLOBALS,TREE,0,T?BULLDOZER
+	.OBJECT FOOBAR,0,0,0,LOCAL-GLOBALS,RIFLES,0,T?FOOBAR
+	.OBJECT BARMAN,0,0,FX?ACTORBIT,PUB,JUKEBOX,0,T?BARMAN
+	.OBJECT GGUGVUNT,0,0,FX?NDESCBIT+FX?ACTORBIT,WAR-CHAMBER,VLHURG,0,T?GGUGVUNT
+	.OBJECT JACKET-FLUFF,0,0,FX?NDESCBIT+FX?TRYTAKEBIT+FX?TAKEBIT+FX?NARTICLEBIT,LOCAL-GLOBALS,APPETIZERS,0,T?JACKET-FLUFF
+	.OBJECT CAPTAINS-QUARTERS,0,0,FX?ONBIT+FX?RLANDBIT,ROOMS,HOLD,POETRY,T?CAPTAINS-QUARTERS
+	.OBJECT MAIN-DRIVE,0,0,FX?LIGHTBIT+FX?NDESCBIT,LOCAL-GLOBALS,PHIL,0,T?MAIN-DRIVE
+	.OBJECT SALES-BROCHURE,0,FX?READBIT,FX?TAKEBIT,ENTRY-BAY,0,0,T?SALES-BROCHURE
+	.OBJECT PINCER,0,FX?TOOLBIT,FX?TAKEBIT,BRIDGE,TRILLIAN,0,T?PINCER
+	.ENDT
+
+; OBJECT PROPERTY TABLES ARE DEFINED HERE
+
+OBJPRP::
+
+T?LARGE-RECEPTACLE::	.TABLE			; TABLE FOR OBJECT LARGE-RECEPTACLE
+	.STRL "large receptacle"
+	.PROP 2,P?SYNONYM
+	W?RECEPTACL
+	.PROP 6,P?ADJECTIVE
+	W?LARGE
+	W?MANUAL
+	W?OVERRIDE
+	.PROP 2,P?ACTION
+	LARGE-RECEPTACLE-F
+	.BYTE	0
+	.ENDT
+
+T?AIR::	.TABLE			; TABLE FOR OBJECT AIR
+	.STRL "air"
+	.PROP 2,P?SYNONYM
+	W?AIR
+	.BYTE	0
+	.ENDT
+
+T?FISH-HOLE::	.TABLE			; TABLE FOR OBJECT FISH-HOLE
+	.STRL "small hole"
+	.PROP 2,P?SYNONYM
+	W?HOLE
+	.PROP 2,P?ADJECTIVE
+	W?SMALL
+	.PROP 2,P?ACTION
+	FISH-HOLE-F
+	.BYTE	0
+	.ENDT
+
+T?BULLDOZER-DRIVER::	.TABLE			; TABLE FOR OBJECT BULLDOZER-DRIVER
+	.STRL "bulldozer driver"
+	.PROP 2,P?SYNONYM
+	W?DRIVER
+	.PROP 4,P?ADJECTIVE
+	W?BULLDOZER
+	W?DOZER
+	.PROP 2,P?ACTION
+	BULLDOZER-DRIVER-F
+	.BYTE	0
+	.ENDT
+
+T?CAGE::	.TABLE			; TABLE FOR OBJECT CAGE
+	.STRL "it"
+	.PROP 8,P?SYNONYM
+	W?DRAPE
+	W?CAGE
+	W?BIRDCAGE
+	W?SNORING
+	.PROP 6,P?ADJECTIVE
+	W?LARGE
+	W?BLACK
+	W?BIRD
+	.PROP 2,P?ACTION
+	UNIMPORTANT-THING-F
+	.BYTE	0
+	.ENDT
+
+T?HANDS::	.TABLE			; TABLE FOR OBJECT HANDS
+	.STRL "your hand"
+	.PROP 4,P?SYNONYM
+	W?HANDS
+	W?HAND
+	.PROP 6,P?ADJECTIVE
+	W?BARE
+	W?MY
+	W?YOUR
+	.PROP 2,P?ACTION
+	HANDS-F
+	.BYTE	0
+	.ENDT
+
+T?PLOTTER::	.TABLE			; TABLE FOR OBJECT PLOTTER
+	.STRL "atomic vector plotter"
+	.PROP 2,P?SYNONYM
+	W?PLOTTER
+	.PROP 4,P?ADJECTIVE
+	W?ATOMIC
+	W?VECTOR
+	.PROP 2,P?ACTION
+	PLOTTER-F
+	.PROP 2,P?SIZE
+	20
+	.PROP 2,P?DESCFCN
+	PLOTTER-DESCFCN
+	.BYTE	0
+	.ENDT
+
+T?KEY::	.TABLE			; TABLE FOR OBJECT KEY
+	.STRL "small key"
+	.PROP 2,P?SYNONYM
+	W?KEY
+	.PROP 2,P?ADJECTIVE
+	W?SMALL
+	.PROP 2,P?ACTION
+	KEY-F
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?TRILLIAN::	.TABLE			; TABLE FOR OBJECT TRILLIAN
+	.STRL "Trillian"
+	.PROP 8,P?SYNONYM
+	W?TRILLIAN
+	W?MCMILLAN
+	W?WOMAN
+	W?TRICIA
+	.PROP 8,P?ADJECTIVE
+	W?TRICIA
+	W?DARK-HAIR
+	W?DARK
+	W?HAIRED
+	.PROP 2,P?ACTION
+	TRILLIAN-F
+	.BYTE	0
+	.ENDT
+
+T?RUBBLE::	.TABLE			; TABLE FOR OBJECT RUBBLE
+	.STRL "pile of rubble"
+	.PROP 6,P?SYNONYM
+	W?PILE
+	W?RUBBLE
+	W?DEBRIS
+	.PROP 2,P?ACTION
+	HOME-F
+	.BYTE	0
+	.ENDT
+
+T?WINDOW::	.TABLE			; TABLE FOR OBJECT WINDOW
+	.STRL "window"
+	.PROP 2,P?SYNONYM
+	W?WINDOW
+	.PROP 2,P?ACTION
+	WINDOW-F
+	.BYTE	0
+	.ENDT
+
+T?PUB-FURNISHINGS::	.TABLE			; TABLE FOR OBJECT PUB-FURNISHINGS
+	.STRL "it"
+	.PROP 12,P?SYNONYM
+	W?BEERMAT
+	W?BEERMATS
+	W?GLASS
+	W?GLASSES
+	W?BOTTLE
+	W?BOTTLES
+	.PROP 4,P?ADJECTIVE
+	W?USUAL
+	W?SOGGY
+	.PROP 2,P?ACTION
+	UNIMPORTANT-THING-F
+	.PROP 2,P?GENERIC
+	MINERAL-WATER
+	.BYTE	0
+	.ENDT
+
+T?SPEECH::	.TABLE			; TABLE FOR OBJECT SPEECH
+	.STRL "speech"
+	.PROP 2,P?SYNONYM
+	W?SPEECH
+	.PROP 2,P?ACTION
+	SPEECH-F
+	.BYTE	0
+	.ENDT
+
+T?SINK::	.TABLE			; TABLE FOR OBJECT SINK
+	.STRL "it"
+	.PROP 6,P?SYNONYM
+	W?BASIN
+	W?WASHBASIN
+	W?SINK
+	.PROP 2,P?ADJECTIVE
+	W?WASH
+	.PROP 2,P?ACTION
+	UNIMPORTANT-THING-F
+	.BYTE	0
+	.ENDT
+
+T?LIQUID::	.TABLE			; TABLE FOR OBJECT LIQUID
+	.STRL "liquid"
+	.PROP 2,P?SYNONYM
+	W?LIQUID
+	.PROP 10,P?ADJECTIVE
+	W?HOT
+	W?COLD
+	W?WARM
+	W?WET
+	W?SQUISHY
+	.BYTE	0
+	.ENDT
+
+T?HANGOVER::	.TABLE			; TABLE FOR OBJECT HANGOVER
+	.STRL "splitting headache"
+	.PROP 6,P?SYNONYM
+	W?HEADACHE
+	W?HANGOVER
+	W?THROBBER
+	.PROP 6,P?ADJECTIVE
+	W?SPLITTING
+	W?BIG
+	W?BLINDING
+	.PROP 2,P?ACTION
+	HANGOVER-F
+	.BYTE	0
+	.ENDT
+
+T?CHISEL::	.TABLE			; TABLE FOR OBJECT CHISEL
+	.STRL "thermo-fusion chisel"
+	.PROP 6,P?SYNONYM
+	W?CHISEL
+	W?TOOL
+	W?TOOLS
+	.PROP 8,P?ADJECTIVE
+	W?THERMO
+	W?FUSION
+	W?THERMO-FU
+	W?PROPER
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?GENERIC
+	TWEEZERS
+	.BYTE	0
+	.ENDT
+
+T?GUARANTEE::	.TABLE			; TABLE FOR OBJECT GUARANTEE
+	.STRL "guarantee"
+	.PROP 6,P?SYNONYM
+	W?GUARANTEE
+	W?WARRANTY
+	W?PLAQUE
+	.PROP 2,P?ADJECTIVE
+	W?LIFETIME
+	.PROP 2,P?ACTION
+	GUARANTEE-F
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?ME::	.TABLE			; TABLE FOR OBJECT ME
+	.STRL "yourself"
+	.PROP 8,P?SYNONYM
+	W?I
+	W?ME
+	W?MYSELF
+	W?SELF
+	.PROP 2,P?ACTION
+	ME-F
+	.BYTE	0
+	.ENDT
+
+T?FORD::	.TABLE			; TABLE FOR OBJECT FORD
+	.STRL "Ford Prefect"
+	.PROP 4,P?SYNONYM
+	W?FORD
+	W?PREFECT
+	.PROP 2,P?ADJECTIVE
+	W?FORD
+	.PROP 2,P?ACTION
+	FORD-F
+	.PROP 2,P?DESCFCN
+	FORD-DESCFCN
+	.BYTE	0
+	.ENDT
+
+T?PUB-OBJECT::	.TABLE			; TABLE FOR OBJECT PUB-OBJECT
+	.STRL "Pub"
+	.PROP 4,P?SYNONYM
+	W?PUB
+	W?GROOM
+	.PROP 4,P?ADJECTIVE
+	W?HORSE
+	W?'N
+	.PROP 2,P?ACTION
+	PUB-OBJECT-F
+	.BYTE	0
+	.ENDT
+
+T?HOOK::	.TABLE			; TABLE FOR OBJECT HOOK
+	.STRL "metal hook"
+	.PROP 2,P?SYNONYM
+	W?HOOK
+	.PROP 2,P?ADJECTIVE
+	W?METAL
+	.PROP 2,P?ACTION
+	HOOK-F
+	.BYTE	0
+	.ENDT
+
+T?SPEEDBOAT::	.TABLE			; TABLE FOR OBJECT SPEEDBOAT
+	.STRL "Presidential Speedboat"
+	.PROP 5,P?NORTH		; CONDITIONAL EXIT
+	DAIS		; TO ROOM
+	0		; FAILURE MESSAGE
+	.BYTE BOAT-DOCKED		; IF FLAG IS TRUE
+	.PROP 5,P?OUT		; CONDITIONAL EXIT
+	DAIS		; TO ROOM
+	0		; FAILURE MESSAGE
+	.BYTE BOAT-DOCKED		; IF FLAG IS TRUE
+	.PROP 2,P?ACTION
+	SPEEDBOAT-F
+	.PROP 10,P?GLOBAL
+	CONTROLS
+	DAMOGRAN
+	PLATFORM
+	CROWD
+	WATER
+	.BYTE	0
+	.ENDT
+
+T?HOME::	.TABLE			; TABLE FOR OBJECT HOME
+	.STRL "your home"
+	.PROP 2,P?SYNONYM
+	W?HOME
+	.PROP 4,P?ADJECTIVE
+	W?MY
+	W?YOUR
+	.PROP 2,P?ACTION
+	HOME-F
+	.BYTE	0
+	.ENDT
+
+T?KITCHEN::	.TABLE			; TABLE FOR OBJECT KITCHEN
+	.STRL "Kitchen"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	DINING-ROOM		; TO ROOM
+	.PROP 2,P?NE		; UNCONDITIONAL EXIT
+	LIVING-ROOM		; TO ROOM
+	.PROP 2,P?ACTION
+	KITCHEN-F
+	.PROP 4,P?GLOBAL
+	APARTMENT
+	WILD-PARTY
+	.BYTE	0
+	.ENDT
+
+T?PHIL::	.TABLE			; TABLE FOR OBJECT PHIL
+	.STRL "Phil"
+	.PROP 2,P?SYNONYM
+	W?PHIL
+	.PROP 2,P?ACTION
+	ZAPHOD-F
+	.PROP 2,P?LDESC
+	STR?14
+	.BYTE	0
+	.ENDT
+
+T?WINE::	.TABLE			; TABLE FOR OBJECT WINE
+	.STRL "glass of white wine"
+	.PROP 4,P?SYNONYM
+	W?GLASS
+	W?WINE
+	.PROP 2,P?ADJECTIVE
+	W?WHITE
+	.PROP 2,P?ACTION
+	WINE-F
+	.PROP 2,P?SIZE
+	15
+	.BYTE	0
+	.ENDT
+
+T?SYNAPSE::	.TABLE			; TABLE FOR OBJECT SYNAPSE
+	.STRL "synapse"
+	.PROP 4,P?SYNONYM
+	W?SYNAPSE
+	W?GAP
+	.PROP 2,P?ADJECTIVE
+	W?SYNAPSE
+	.BYTE	0
+	.ENDT
+
+T?DINING-ROOM::	.TABLE			; TABLE FOR OBJECT DINING-ROOM
+	.STRL "Dining Room"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	LIVING-ROOM		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	KITCHEN		; TO ROOM
+	.PROP 2,P?ACTION
+	DINING-ROOM-F
+	.PROP 4,P?GLOBAL
+	APARTMENT
+	WILD-PARTY
+	.BYTE	0
+	.ENDT
+
+T?ROOMS::	.TABLE			; TABLE FOR OBJECT ROOMS
+	.STRL ""
+	.PROP 2,P?IN		; UNCONDITIONAL EXIT
+	ROOMS		; TO ROOM
+	.BYTE	0
+	.ENDT
+
+T?TOOTHBRUSH::	.TABLE			; TABLE FOR OBJECT TOOTHBRUSH
+	.STRL "toothbrush"
+	.PROP 8,P?SYNONYM
+	W?TOOTHBRUS
+	W?BRUSH
+	W?TOOL
+	W?TOOLS
+	.PROP 6,P?ADJECTIVE
+	W?TOOTH
+	W?MY
+	W?PROPER
+	.PROP 2,P?ACTION
+	TOOTHBRUSH-F
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?GENERIC
+	TWEEZERS
+	.BYTE	0
+	.ENDT
+
+T?SMALL-RECEPTACLE::	.TABLE			; TABLE FOR OBJECT SMALL-RECEPTACLE
+	.STRL "small receptacle"
+	.PROP 2,P?SYNONYM
+	W?RECEPTACL
+	.PROP 2,P?ADJECTIVE
+	W?SMALL
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?MARVIN::	.TABLE			; TABLE FOR OBJECT MARVIN
+	.STRL "Marvin"
+	.PROP 8,P?SYNONYM
+	W?MARVIN
+	W?MARV
+	W?ROBOT
+	W?ANDROID
+	.PROP 4,P?ADJECTIVE
+	W?DEPRESSED
+	W?PARANOID
+	.PROP 2,P?ACTION
+	MARVIN-F
+	.PROP 2,P?LDESC
+	STR?9
+	.BYTE	0
+	.ENDT
+
+T?HOLD-FURNISHINGS::	.TABLE			; TABLE FOR OBJECT HOLD-FURNISHINGS
+	.STRL "it"
+	.PROP 8,P?SYNONYM
+	W?MATTRESS
+	W?CUPS
+	W?CUP
+	W?UNDERWEAR
+	.PROP 10,P?ADJECTIVE
+	W?GRUBBY
+	W?UNWASHED
+	W?UNIDENTIF
+	W?SMELLY
+	W?ALIEN
+	.PROP 2,P?ACTION
+	UNIMPORTANT-THING-F
+	.BYTE	0
+	.ENDT
+
+T?FLEET::	.TABLE			; TABLE FOR OBJECT FLEET
+	.STRL "fleet of Vogon Constructor ships"
+	.PROP 8,P?SYNONYM
+	W?FLEET
+	W?SHIP
+	W?SHIPS
+	W?SPACESHIP
+	.PROP 10,P?ADJECTIVE
+	W?VOGON
+	W?CONSTRUCT
+	W?HUGE
+	W?UGLY
+	W?YELLOW
+	.PROP 2,P?ACTION
+	FLEET-F
+	.BYTE	0
+	.ENDT
+
+T?YOUR-NAME::	.TABLE			; TABLE FOR OBJECT YOUR-NAME
+	.STRL "your name"
+	.PROP 2,P?SYNONYM
+	W?NAME
+	.PROP 6,P?ADJECTIVE
+	W?YOUR
+	W?MY
+	W?ARTHUR
+	.PROP 2,P?ACTION
+	YOUR-NAME-F
+	.BYTE	0
+	.ENDT
+
+T?LOCAL-GLOBALS::	.TABLE			; TABLE FOR OBJECT LOCAL-GLOBALS
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?ZZMGCK
+	.PROP 2,P?LDESC
+	STR?168
+	.PROP 2,P?GLOBAL
+	GLOBAL-OBJECTS
+	.PROP 2,P?CAPACITY
+	0
+	.PROP 2,P?SIZE
+	0
+	.PROP 2,P?DESCFCN
+	0
+	.PROP 2,P?FDESC
+	STR?168
+	.PROP 2,P?TEXT
+	STR?162
+	.BYTE	0
+	.ENDT
+
+T?GALLEY-PSEUDO::	.TABLE			; TABLE FOR OBJECT GALLEY-PSEUDO
+	.STRL "galley"
+	.PROP 2,P?SYNONYM
+	W?GALLEY
+	.PROP 2,P?ACTION
+	GLOBAL-ROOM-F
+	.BYTE	0
+	.ENDT
+
+T?HEAD::	.TABLE			; TABLE FOR OBJECT HEAD
+	.STRL "your head"
+	.PROP 4,P?SYNONYM
+	W?HEAD
+	W?FACE
+	.PROP 4,P?ADJECTIVE
+	W?YOUR
+	W?MY
+	.BYTE	0
+	.ENDT
+
+T?INNER-LAIR::	.TABLE			; TABLE FOR OBJECT INNER-LAIR
+	.STRL "Inner Lair"
+	.PROP 2,P?NE		; UNCONDITIONAL EXIT
+	LAIR		; TO ROOM
+	.PROP 2,P?LDESC
+	STR?144
+	.PROP 2,P?GLOBAL
+	LAIR-OBJECT
+	.BYTE	0
+	.ENDT
+
+T?CANOPY::	.TABLE			; TABLE FOR OBJECT CANOPY
+	.STRL "domed canopy"
+	.PROP 6,P?SYNONYM
+	W?CANOPY
+	W?DOME
+	W?WINDOW
+	.PROP 2,P?ADJECTIVE
+	W?DOMED
+	.PROP 2,P?ACTION
+	CANOPY-F
+	.BYTE	0
+	.ENDT
+
+T?MUSIC::	.TABLE			; TABLE FOR OBJECT MUSIC
+	.STRL "music"
+	.PROP 6,P?SYNONYM
+	W?MUSIC
+	W?SONG
+	W?SONGS
+	.PROP 2,P?ACTION
+	MUSIC-F
+	.BYTE	0
+	.ENDT
+
+T?KEYBOARD::	.TABLE			; TABLE FOR OBJECT KEYBOARD
+	.STRL "keyboard"
+	.PROP 2,P?SYNONYM
+	W?KEYBOARD
+	.BYTE	0
+	.ENDT
+
+T?POETRY::	.TABLE			; TABLE FOR OBJECT POETRY
+	.STRL "Vogon poetry"
+	.PROP 8,P?SYNONYM
+	W?POETRY
+	W?POEM
+	W?SAMPLE
+	W?VERSE
+	.PROP 6,P?ADJECTIVE
+	W?VOGON
+	W?FIRST
+	W?SECOND
+	.PROP 2,P?ACTION
+	POETRY-F
+	.BYTE	0
+	.ENDT
+
+T?WHALE-OBJECT::	.TABLE			; TABLE FOR OBJECT WHALE-OBJECT
+	.STRL "innard of a whale"
+	.PROP 6,P?SYNONYM
+	W?INNARD
+	W?WHALE
+	W?STOMACH
+	.PROP 2,P?ADJECTIVE
+	W?SPERM
+	.PROP 2,P?ACTION
+	WHALE-OBJECT-F
+	.BYTE	0
+	.ENDT
+
+T?LIGHT::	.TABLE			; TABLE FOR OBJECT LIGHT
+	.STRL "light"
+	.PROP 6,P?SYNONYM
+	W?LIGHT
+	W?LIGHTS
+	W?LAMP
+	.PROP 2,P?ACTION
+	LIGHT-F
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-SLEEP::	.TABLE			; TABLE FOR OBJECT GLOBAL-SLEEP
+	.STRL "sleep"
+	.PROP 6,P?SYNONYM
+	W?SLEEP
+	W?NAP
+	W?SNOOZE
+	.PROP 2,P?ACTION
+	GLOBAL-SLEEP-F
+	.BYTE	0
+	.ENDT
+
+T?BIKE::	.TABLE			; TABLE FOR OBJECT BIKE
+	.STRL "bike"
+	.PROP 4,P?SYNONYM
+	W?BIKE
+	W?CYCLE
+	.PROP 2,P?ADJECTIVE
+	W?ION
+	.BYTE	0
+	.ENDT
+
+T?PILOT-SEAT::	.TABLE			; TABLE FOR OBJECT PILOT-SEAT
+	.STRL "pilot seat"
+	.PROP 6,P?SYNONYM
+	W?SEAT
+	W?CHAIR
+	W?CUSHION
+	.PROP 8,P?ADJECTIVE
+	W?PILOT
+	W?SEAT
+	W?THICK
+	W?PLUSH
+	.PROP 2,P?ACTION
+	PILOT-SEAT-F
+	.BYTE	0
+	.ENDT
+
+T?CONTROLS::	.TABLE			; TABLE FOR OBJECT CONTROLS
+	.STRL "the controls"
+	.PROP 6,P?SYNONYM
+	W?CONTROLS
+	W?PANEL
+	W?CONSOLE
+	.PROP 2,P?ADJECTIVE
+	W?CONTROL
+	.PROP 2,P?ACTION
+	CONTROLS-F
+	.BYTE	0
+	.ENDT
+
+T?HATCHWAY::	.TABLE			; TABLE FOR OBJECT HATCHWAY
+	.STRL "Hatchway"
+	.PROP 4,P?EAST		; CONDITIONAL EXIT
+	ACCESS-SPACE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	AFT-CORRIDOR		; TO ROOM
+	.PROP 6,P?DOWN		; CONDITIONAL EXIT
+	RAMP		; TO ROOM
+	HATCH		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 6,P?OUT		; CONDITIONAL EXIT
+	RAMP		; TO ROOM
+	HATCH		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 4,P?SYNONYM
+	W?GPP
+	W?PERSONALI
+	.PROP 4,P?ADJECTIVE
+	W?GENUINE
+	W?PEOPLE
+	.PROP 2,P?ACTION
+	HATCHWAY-F
+	.PROP 4,P?GLOBAL
+	STAIRS
+	HEART-OF-GOLD
+	.BYTE	0
+	.ENDT
+
+T?EDDIE::	.TABLE			; TABLE FOR OBJECT EDDIE
+	.STRL "Eddie (the shipboard computer)"
+	.PROP 6,P?SYNONYM
+	W?EDDIE
+	W?ED
+	W?COMPUTER
+	.PROP 4,P?ADJECTIVE
+	W?SHIP'S
+	W?SHIPBOARD
+	.PROP 2,P?ACTION
+	EDDIE-F
+	.BYTE	0
+	.ENDT
+
+T?OBJECT-OF-GAME::	.TABLE			; TABLE FOR OBJECT OBJECT-OF-GAME
+	.STRL "object of the game"
+	.PROP 6,P?SYNONYM
+	W?OBJECT
+	W?GAME
+	W?GOAL
+	.PROP 2,P?ACTION
+	OBJECT-OF-GAME-F
+	.BYTE	0
+	.ENDT
+
+T?SLEEVES::	.TABLE			; TABLE FOR OBJECT SLEEVES
+	.STRL "sleeve"
+	.PROP 4,P?SYNONYM
+	W?SLEEVE
+	W?SLEEVES
+	.PROP 2,P?ACTION
+	SLEEVES-F
+	.BYTE	0
+	.ENDT
+
+T?PARTICLE::	.TABLE			; TABLE FOR OBJECT PARTICLE
+	.STRL "particle"
+	.PROP 8,P?SYNONYM
+	W?PARTICLE
+	W?SENSE
+	W?LETTER
+	W?MARKINGS
+	.PROP 8,P?ADJECTIVE
+	W?LARGE
+	W?BLACK
+	W?COMMON
+	W?FAINT
+	.PROP 2,P?ACTION
+	PARTICLE-F
+	.PROP 2,P?LDESC
+	STR?147
+	.BYTE	0
+	.ENDT
+
+T?WILD-PARTY::	.TABLE			; TABLE FOR OBJECT WILD-PARTY
+	.STRL "party"
+	.PROP 2,P?SYNONYM
+	W?PARTY
+	.PROP 2,P?ACTION
+	APARTMENT-F
+	.BYTE	0
+	.ENDT
+
+T?SKY::	.TABLE			; TABLE FOR OBJECT SKY
+	.STRL "sky"
+	.PROP 2,P?SYNONYM
+	W?SKY
+	.PROP 2,P?ACTION
+	SKY-F
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-OBJECTS::	.TABLE			; TABLE FOR OBJECT GLOBAL-OBJECTS
+	.STRL ""
+	.BYTE	0
+	.ENDT
+
+T?ACCESS-SPACE::	.TABLE			; TABLE FOR OBJECT ACCESS-SPACE
+	.STRL "Access Space"
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	HATCHWAY		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	HATCHWAY		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?AGENCY
+	.PROP 4,P?ADJECTIVE
+	W?GALACTIC
+	W?SECURITY
+	.PROP 2,P?ACTION
+	ACCESS-SPACE-F
+	.PROP 2,P?GLOBAL
+	HEART-OF-GOLD
+	.BYTE	0
+	.ENDT
+
+T?STUFF-UNDER-BED::	.TABLE			; TABLE FOR OBJECT STUFF-UNDER-BED
+	.STRL "it"
+	.PROP 8,P?SYNONYM
+	W?BOOK
+	W?COIN
+	W?HANDKERCH
+	W?COINS
+	.PROP 4,P?ADJECTIVE
+	W?SOILED
+	W?FOREIGN
+	.PROP 2,P?ACTION
+	UNIMPORTANT-THING-F
+	.BYTE	0
+	.ENDT
+
+T?NAME::	.TABLE			; TABLE FOR OBJECT NAME
+	.STRL "name"
+	.PROP 2,P?SYNONYM
+	W?NAME
+	.BYTE	0
+	.ENDT
+
+T?IT::	.TABLE			; TABLE FOR OBJECT IT
+	.STRL "it"
+	.PROP 8,P?SYNONYM
+	W?IT
+	W?THEM
+	W?HER
+	W?HIM
+	.BYTE	0
+	.ENDT
+
+T?CURTAINS::	.TABLE			; TABLE FOR OBJECT CURTAINS
+	.STRL "your curtains"
+	.PROP 8,P?SYNONYM
+	W?CURTAIN
+	W?CURTAINS
+	W?SHADE
+	W?SHADES
+	.PROP 2,P?ADJECTIVE
+	W?YOUR
+	.PROP 2,P?ACTION
+	CURTAINS-F
+	.BYTE	0
+	.ENDT
+
+T?DRAIN::	.TABLE			; TABLE FOR OBJECT DRAIN
+	.STRL "drain"
+	.PROP 6,P?SYNONYM
+	W?DRAIN
+	W?GRATING
+	W?GRATE
+	.PROP 2,P?ACTION
+	DRAIN-F
+	.BYTE	0
+	.ENDT
+
+T?AUTOPILOT-BUTTON::	.TABLE			; TABLE FOR OBJECT AUTOPILOT-BUTTON
+	.STRL "autopilot button"
+	.PROP 6,P?SYNONYM
+	W?BUTTON
+	W?PILOT
+	W?AUTOPILOT
+	.PROP 8,P?ADJECTIVE
+	W?AUTOPILOT
+	W?AUTO
+	W?LARGE
+	W?RED
+	.PROP 2,P?ACTION
+	AUTOPILOT-BUTTON-F
+	.BYTE	0
+	.ENDT
+
+T?WALLS::	.TABLE			; TABLE FOR OBJECT WALLS
+	.STRL "wall"
+	.PROP 4,P?SYNONYM
+	W?WALL
+	W?WALLS
+	.PROP 2,P?ACTION
+	WALLS-F
+	.BYTE	0
+	.ENDT
+
+T?DAIS::	.TABLE			; TABLE FOR OBJECT DAIS
+	.STRL "Dais"
+	.PROP 4,P?EAST		; CONDITIONAL EXIT
+	DAIS-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 3,P?SOUTH		; IMPOSSIBLE EXIT
+	STR?154		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 4,P?IN		; CONDITIONAL EXIT
+	DAIS-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?OUT		; CONDITIONAL EXIT
+	DAIS-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?SYNONYM
+	W?POLICE
+	W?COPS
+	.PROP 2,P?ACTION
+	DAIS-F
+	.PROP 8,P?GLOBAL
+	HEART-OF-GOLD
+	DAMOGRAN
+	PLATFORM
+	CROWD
+	.BYTE	0
+	.ENDT
+
+T?STAR-DRIVE::	.TABLE			; TABLE FOR OBJECT STAR-DRIVE
+	.STRL "star drive"
+	.PROP 4,P?SYNONYM
+	W?DRIVE
+	W?HUM
+	.PROP 6,P?ADJECTIVE
+	W?STAR
+	W?DEEP
+	W?DISTANT
+	.BYTE	0
+	.ENDT
+
+T?AFT-CORRIDOR::	.TABLE			; TABLE FOR OBJECT AFT-CORRIDOR
+	.STRL "Corridor, Aft End"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	FORE-CORRIDOR		; TO ROOM
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	ENGINE-ROOM-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 6,P?WEST		; CONDITIONAL EXIT
+	PANTRY		; TO ROOM
+	SCREENING-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?DOWN		; UNCONDITIONAL EXIT
+	HATCHWAY		; TO ROOM
+	.PROP 4,P?SYNONYM
+	W?ROBOT
+	W?ROBOTS
+	.PROP 6,P?ADJECTIVE
+	W?CLEANING
+	W?UPPER
+	W?LOWER
+	.PROP 2,P?ACTION
+	AFT-CORRIDOR-F
+	.PROP 6,P?GLOBAL
+	STAIRS
+	HEART-OF-GOLD
+	SCREENING-DOOR
+	.BYTE	0
+	.ENDT
+
+T?LIVING-ROOM::	.TABLE			; TABLE FOR OBJECT LIVING-ROOM
+	.STRL "Living Room"
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	PARTY-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?SW		; UNCONDITIONAL EXIT
+	KITCHEN		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	DINING-ROOM		; TO ROOM
+	.PROP 2,P?ACTION
+	LIVING-ROOM-F
+	.PROP 4,P?GLOBAL
+	APARTMENT
+	WILD-PARTY
+	.BYTE	0
+	.ENDT
+
+T?FRONT-OF-HOUSE::	.TABLE			; TABLE FOR OBJECT FRONT-OF-HOUSE
+	.STRL "Front of House"
+	.PROP 4,P?NORTH		; CONDITIONAL EXIT
+	HOUSE-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?NE		; UNCONDITIONAL EXIT
+	BACK-OF-HOUSE		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	COUNTRY-LANE		; TO ROOM
+	.PROP 2,P?NW		; UNCONDITIONAL EXIT
+	BACK-OF-HOUSE		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?WOONBEAM
+	.PROP 2,P?ADJECTIVE
+	W?GALAXIA
+	.PROP 2,P?ACTION
+	FRONT-OF-HOUSE-F
+	.PROP 14,P?GLOBAL
+	HOUSE
+	HOME
+	BULLDOZER
+	CONVERSATION
+	THIRD-PLANET
+	RUBBLE
+	TREE
+	.BYTE	0
+	.ENDT
+
+T?BACK-OF-HOUSE::	.TABLE			; TABLE FOR OBJECT BACK-OF-HOUSE
+	.STRL "Back of House"
+	.PROP 2,P?SE		; UNCONDITIONAL EXIT
+	FRONT-OF-HOUSE		; TO ROOM
+	.PROP 2,P?SW		; UNCONDITIONAL EXIT
+	FRONT-OF-HOUSE		; TO ROOM
+	.PROP 6,P?SYNONYM
+	W?LIST
+	W?QUESTION
+	W?QUESTIONS
+	.PROP 4,P?ADJECTIVE
+	W?GREAT
+	W?UNANSWERE
+	.PROP 2,P?ACTION
+	BACK-OF-HOUSE-F
+	.PROP 10,P?GLOBAL
+	HOUSE
+	HOME
+	THIRD-PLANET
+	RUBBLE
+	TREE
+	.BYTE	0
+	.ENDT
+
+T?BOARD::	.TABLE			; TABLE FOR OBJECT BOARD
+	.STRL "circuit board"
+	.PROP 8,P?SYNONYM
+	W?BOARD
+	W?MESSAGE
+	W?LETTER
+	W?MICROCHIP
+	.PROP 6,P?ADJECTIVE
+	W?CIRCUIT
+	W?MICROSCOP
+	W?PRINTED
+	.PROP 2,P?ACTION
+	BOARD-F
+	.BYTE	0
+	.ENDT
+
+T?BRIDGE::	.TABLE			; TABLE FOR OBJECT BRIDGE
+	.STRL "Bridge"
+	.PROP 4,P?WEST		; CONDITIONAL EXIT
+	SAUNA-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?DOWN		; UNCONDITIONAL EXIT
+	FORE-CORRIDOR		; TO ROOM
+	.PROP 6,P?SYNONYM
+	W?MOVEMENT
+	W?MOTION
+	W?RANDOM
+	.PROP 2,P?ADJECTIVE
+	W?BROWNIAN
+	.PROP 2,P?ACTION
+	BRIDGE-F
+	.PROP 8,P?GLOBAL
+	STAIRS
+	CONTROLS
+	HEART-OF-GOLD
+	PEOPLE
+	.BYTE	0
+	.ENDT
+
+T?POCKET-FLUFF::	.TABLE			; TABLE FOR OBJECT POCKET-FLUFF
+	.STRL "pocket fluff"
+	.PROP 4,P?SYNONYM
+	W?FLUFF
+	W?LINT
+	.PROP 2,P?ADJECTIVE
+	W?POCKET
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?GENERIC
+	POCKET-FLUFF
+	.BYTE	0
+	.ENDT
+
+T?BLASTER::	.TABLE			; TABLE FOR OBJECT BLASTER
+	.STRL "blaster"
+	.PROP 4,P?SYNONYM
+	W?BLASTER
+	W?WEAPON
+	.PROP 2,P?ACTION
+	BLASTER-F
+	.BYTE	0
+	.ENDT
+
+T?HOUSE::	.TABLE			; TABLE FOR OBJECT HOUSE
+	.STRL "it"
+	.PROP 2,P?SYNONYM
+	W?HOUSE
+	.PROP 4,P?ADJECTIVE
+	W?MY
+	W?YOUR
+	.PROP 2,P?ACTION
+	HOUSE-F
+	.BYTE	0
+	.ENDT
+
+T?CUSHION-FLUFF::	.TABLE			; TABLE FOR OBJECT CUSHION-FLUFF
+	.STRL "seat cushion fluff"
+	.PROP 4,P?SYNONYM
+	W?FLUFF
+	W?LINT
+	.PROP 4,P?ADJECTIVE
+	W?SEAT
+	W?CUSHION
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?GENERIC
+	POCKET-FLUFF
+	.BYTE	0
+	.ENDT
+
+T?TEA::	.TABLE			; TABLE FOR OBJECT TEA
+	.STRL "tea"
+	.PROP 4,P?SYNONYM
+	W?TEA
+	W?CUP
+	.PROP 6,P?ADJECTIVE
+	W?REAL
+	W?NICE
+	W?HOT
+	.PROP 2,P?ACTION
+	TEA-F
+	.PROP 2,P?DESCFCN
+	TEA-DESCFCN
+	.BYTE	0
+	.ENDT
+
+T?SATCHEL::	.TABLE			; TABLE FOR OBJECT SATCHEL
+	.STRL "satchel"
+	.PROP 2,P?SYNONYM
+	W?SATCHEL
+	.PROP 6,P?ADJECTIVE
+	W?BATTERED
+	W?LEATHER
+	W?BULKY
+	.PROP 2,P?ACTION
+	SATCHEL-F
+	.PROP 2,P?CAPACITY
+	30
+	.PROP 2,P?SIZE
+	20
+	.PROP 2,P?DESCFCN
+	SATCHEL-DESCFCN
+	.BYTE	0
+	.ENDT
+
+T?NUT-COM-INTERFACE::	.TABLE			; TABLE FOR OBJECT NUT-COM-INTERFACE
+	.STRL "Nutrimat/Computer Interface"
+	.PROP 2,P?SYNONYM
+	W?INTERFACE
+	.PROP 4,P?ADJECTIVE
+	W?NUTRIMAT
+	W?COMPUTER
+	.PROP 2,P?ACTION
+	NUT-COM-INTERFACE-F
+	.PROP 2,P?SIZE
+	4
+	.BYTE	0
+	.ENDT
+
+T?MEMORIAL::	.TABLE			; TABLE FOR OBJECT MEMORIAL
+	.STRL "sandstone memorial"
+	.PROP 8,P?SYNONYM
+	W?MEMORIAL
+	W?LIST
+	W?REMEMBRAN
+	W?MONUMENT
+	.PROP 2,P?ADJECTIVE
+	W?SANDSTONE
+	.PROP 2,P?ACTION
+	MEMORIAL-F
+	.BYTE	0
+	.ENDT
+
+T?SAUNA::	.TABLE			; TABLE FOR OBJECT SAUNA
+	.STRL "sauna"
+	.PROP 2,P?SYNONYM
+	W?SAUNA
+	.PROP 2,P?ACTION
+	SAUNA-PSEUDO
+	.BYTE	0
+	.ENDT
+
+T?ROBOT-PANEL::	.TABLE			; TABLE FOR OBJECT ROBOT-PANEL
+	.STRL "tiny robot panel"
+	.PROP 2,P?SYNONYM
+	W?PANEL
+	.PROP 4,P?ADJECTIVE
+	W?ROBOT
+	W?TINY
+	.PROP 2,P?ACTION
+	ROBOT-PANEL-F
+	.BYTE	0
+	.ENDT
+
+T?RASP::	.TABLE			; TABLE FOR OBJECT RASP
+	.STRL "ionic diffusion rasp"
+	.PROP 6,P?SYNONYM
+	W?RASP
+	W?TOOL
+	W?TOOLS
+	.PROP 6,P?ADJECTIVE
+	W?IONIC
+	W?DIFFUSION
+	W?PROPER
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?GENERIC
+	TWEEZERS
+	.BYTE	0
+	.ENDT
+
+T?SATCHEL-FLUFF::	.TABLE			; TABLE FOR OBJECT SATCHEL-FLUFF
+	.STRL "satchel fluff"
+	.PROP 4,P?SYNONYM
+	W?FLUFF
+	W?LINT
+	.PROP 2,P?ADJECTIVE
+	W?SATCHEL
+	.PROP 2,P?SIZE
+	1
+	.PROP 2,P?GENERIC
+	POCKET-FLUFF
+	.BYTE	0
+	.ENDT
+
+T?APARTMENT::	.TABLE			; TABLE FOR OBJECT APARTMENT
+	.STRL "apartment"
+	.PROP 2,P?SYNONYM
+	W?APARTMENT
+	.PROP 2,P?ACTION
+	APARTMENT-F
+	.BYTE	0
+	.ENDT
+
+T?MICROSCOPIC-FLEET::	.TABLE			; TABLE FOR OBJECT MICROSCOPIC-FLEET
+	.STRL "battle fleet"
+	.PROP 8,P?SYNONYM
+	W?FLEET
+	W?SHIP
+	W?SHIPS
+	W?SPACESHIP
+	.PROP 12,P?ADJECTIVE
+	W?BATTLE
+	W?HORRIBLE
+	W?BEWEAPONE
+	W?MICROSCOP
+	W?SPACE
+	W?VAST
+	.PROP 2,P?ACTION
+	MICROSCOPIC-FLEET-F
+	.BYTE	0
+	.ENDT
+
+T?INSIDE-WHALE::	.TABLE			; TABLE FOR OBJECT INSIDE-WHALE
+	.STRL "Inside the Sperm Whale"
+	.PROP 4,P?SYNONYM
+	W?TREE
+	W?FOREKNOWL
+	.PROP 2,P?ACTION
+	INSIDE-WHALE-F
+	.PROP 2,P?LDESC
+	STR?160
+	.BYTE	0
+	.ENDT
+
+T?FLOWERPOT::	.TABLE			; TABLE FOR OBJECT FLOWERPOT
+	.STRL "flowerpot"
+	.PROP 8,P?SYNONYM
+	W?FLOWERPOT
+	W?POT
+	W?SOIL
+	W?DIRT
+	.PROP 4,P?ADJECTIVE
+	W?FLOWER
+	W?FERTILE
+	.PROP 2,P?ACTION
+	FLOWERPOT-F
+	.PROP 2,P?CAPACITY
+	1
+	.PROP 2,P?SIZE
+	15
+	.BYTE	0
+	.ENDT
+
+T?PLANT::	.TABLE			; TABLE FOR OBJECT PLANT
+	.STRL "plant"
+	.PROP 8,P?SYNONYM
+	W?PLANT
+	W?SPROUT
+	W?STEM
+	W?STALK
+	.PROP 6,P?ADJECTIVE
+	W?SMALL
+	W?LARGE
+	W?LEAFY
+	.PROP 2,P?ACTION
+	PLANT-F
+	.BYTE	0
+	.ENDT
+
+T?GUARDS::	.TABLE			; TABLE FOR OBJECT GUARDS
+	.STRL "one of the guards"
+	.PROP 6,P?SYNONYM
+	W?ONE
+	W?GUARD
+	W?GUARDS
+	.PROP 2,P?ADJECTIVE
+	W?VOGON
+	.PROP 2,P?ACTION
+	GUARDS-F
+	.BYTE	0
+	.ENDT
+
+T?FORE-CORRIDOR::	.TABLE			; TABLE FOR OBJECT FORE-CORRIDOR
+	.STRL "Corridor, Fore End"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	ENTRY-BAY		; TO ROOM
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	AFT-CORRIDOR		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	GALLEY		; TO ROOM
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	BRIDGE		; TO ROOM
+	.PROP 2,P?ACTION
+	FORE-CORRIDOR-F
+	.PROP 4,P?GLOBAL
+	STAIRS
+	HEART-OF-GOLD
+	.BYTE	0
+	.ENDT
+
+T?SANDWICH::	.TABLE			; TABLE FOR OBJECT SANDWICH
+	.STRL "cheese sandwich"
+	.PROP 4,P?SYNONYM
+	W?PLATE
+	W?SANDWICH
+	.PROP 4,P?ADJECTIVE
+	W?CHEESE
+	W?UNINVITIN
+	.PROP 2,P?ACTION
+	SANDWICH-F
+	.PROP 2,P?SIZE
+	10
+	.BYTE	0
+	.ENDT
+
+T?HOSTESS::	.TABLE			; TABLE FOR OBJECT HOSTESS
+	.STRL "hostess"
+	.PROP 2,P?SYNONYM
+	W?HOSTESS
+	.PROP 2,P?ACTION
+	HOSTESS-F
+	.PROP 2,P?LDESC
+	STR?151
+	.BYTE	0
+	.ENDT
+
+T?SWITCH::	.TABLE			; TABLE FOR OBJECT SWITCH
+	.STRL "generator switch"
+	.PROP 2,P?SYNONYM
+	W?SWITCH
+	.PROP 2,P?ADJECTIVE
+	W?GENERATOR
+	.PROP 2,P?ACTION
+	SWITCH-F
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?TREE::	.TABLE			; TABLE FOR OBJECT TREE
+	.STRL "tree"
+	.PROP 4,P?SYNONYM
+	W?TREE
+	W?TREES
+	.PROP 2,P?ACTION
+	TREE-PSEUDO
+	.BYTE	0
+	.ENDT
+
+T?JUKEBOX::	.TABLE			; TABLE FOR OBJECT JUKEBOX
+	.STRL "jukebox"
+	.PROP 4,P?SYNONYM
+	W?JUKEBOX
+	W?BOX
+	.PROP 4,P?ADJECTIVE
+	W?JUKE
+	W?OLD
+	.PROP 2,P?ACTION
+	JUKEBOX-F
+	.BYTE	0
+	.ENDT
+
+T?HOLD::	.TABLE			; TABLE FOR OBJECT HOLD
+	.STRL "Vogon Hold"
+	.PROP 6,P?EAST		; CONDITIONAL EXIT
+	AIRLOCK		; TO ROOM
+	VOGON-INNER-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 3,P?WEST		; IMPOSSIBLE EXIT
+	STR?90		; FAILURE MESSAGE
+	.BYTE 0
+	.PROP 2,P?SYNONYM
+	W?PROTEIN
+	.PROP 2,P?ACTION
+	HOLD-F
+	.PROP 10,P?GLOBAL
+	VOGON-INNER-DOOR
+	AIRLOCK-OBJECT
+	FLEET
+	HOLD-FURNISHINGS
+	WEAPON
+	.BYTE	0
+	.ENDT
+
+T?PAINFUL-LIGHT::	.TABLE			; TABLE FOR OBJECT PAINFUL-LIGHT
+	.STRL "light"
+	.PROP 2,P?SYNONYM
+	W?LIGHT
+	.PROP 4,P?ADJECTIVE
+	W?PAINFUL
+	W?BRIGHT
+	.BYTE	0
+	.ENDT
+
+T?DOORMAT::	.TABLE			; TABLE FOR OBJECT DOORMAT
+	.STRL "doormat"
+	.PROP 4,P?SYNONYM
+	W?DOORMAT
+	W?MAT
+	.PROP 2,P?ADJECTIVE
+	W?DOOR
+	.PROP 2,P?ACTION
+	UNIMPORTANT-THING-F
+	.BYTE	0
+	.ENDT
+
+T?BEDROOM-FURNISHINGS::	.TABLE			; TABLE FOR OBJECT BEDROOM-FURNISHINGS
+	.STRL "it"
+	.PROP 8,P?SYNONYM
+	W?CARPET
+	W?WALLPAPER
+	W?PAPER
+	W?CHAIR
+	.PROP 6,P?ADJECTIVE
+	W?WALL
+	W?FADED
+	W?OLD
+	.PROP 2,P?ACTION
+	UNIMPORTANT-THING-F
+	.BYTE	0
+	.ENDT
+
+T?LAIR-OBJECT::	.TABLE			; TABLE FOR OBJECT LAIR-OBJECT
+	.STRL "lair"
+	.PROP 6,P?SYNONYM
+	W?LAIR
+	W?COURTYARD
+	W?YARD
+	.PROP 6,P?ADJECTIVE
+	W?COURT
+	W?INNER
+	W?OUTER
+	.PROP 2,P?ACTION
+	LAIR-OBJECT-F
+	.BYTE	0
+	.ENDT
+
+T?BANNER::	.TABLE			; TABLE FOR OBJECT BANNER
+	.STRL "banner"
+	.PROP 2,P?SYNONYM
+	W?BANNER
+	.PROP 2,P?ADJECTIVE
+	W?HUGE
+	.PROP 2,P?TEXT
+	STR?157
+	.BYTE	0
+	.ENDT
+
+T?SCREWDRIVER::	.TABLE			; TABLE FOR OBJECT SCREWDRIVER
+	.STRL "flathead screwdriver"
+	.PROP 6,P?SYNONYM
+	W?SCREWDRIV
+	W?TOOL
+	W?TOOLS
+	.PROP 4,P?ADJECTIVE
+	W?FLATHEAD
+	W?PROPER
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?GENERIC
+	TWEEZERS
+	.BYTE	0
+	.ENDT
+
+T?LAIR::	.TABLE			; TABLE FOR OBJECT LAIR
+	.STRL "Lair"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	OUTER-LAIR		; TO ROOM
+	.PROP 4,P?SW		; CONDITIONAL EXIT
+	INNER-LAIR-ENTER-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?ACTION
+	LAIR-F
+	.PROP 2,P?GLOBAL
+	LAIR-OBJECT
+	.BYTE	0
+	.ENDT
+
+T?PLIERS::	.TABLE			; TABLE FOR OBJECT PLIERS
+	.STRL "pair of hypersonic pliers"
+	.PROP 8,P?SYNONYM
+	W?PAIR
+	W?PLIERS
+	W?TOOL
+	W?TOOLS
+	.PROP 4,P?ADJECTIVE
+	W?HYPERSONI
+	W?PROPER
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?GENERIC
+	TWEEZERS
+	.BYTE	0
+	.ENDT
+
+T?BRAIN::	.TABLE			; TABLE FOR OBJECT BRAIN
+	.STRL "brain"
+	.PROP 2,P?SYNONYM
+	W?BRAIN
+	.PROP 4,P?ADJECTIVE
+	W?MY
+	W?YOUR
+	.PROP 2,P?ACTION
+	GLOBAL-ROOM-F
+	.BYTE	0
+	.ENDT
+
+T?RIFLES::	.TABLE			; TABLE FOR OBJECT RIFLES
+	.STRL "pile of photon rifles"
+	.PROP 10,P?SYNONYM
+	W?RIFLE
+	W?RIFLES
+	W?PILE
+	W?WEAPON
+	W?WEAPONS
+	.PROP 4,P?ADJECTIVE
+	W?PHOTON
+	W?YOUR
+	.PROP 2,P?ACTION
+	RIFLES-F
+	.BYTE	0
+	.ENDT
+
+T?CHANNEL::	.TABLE			; TABLE FOR OBJECT CHANNEL
+	.STRL "narrow channel"
+	.PROP 4,P?SYNONYM
+	W?CHANNEL
+	W?OPENING
+	.PROP 2,P?ADJECTIVE
+	W?NARROW
+	.BYTE	0
+	.ENDT
+
+T?PEOPLE::	.TABLE			; TABLE FOR OBJECT PEOPLE
+	.STRL "people"
+	.PROP 2,P?SYNONYM
+	W?PEOPLE
+	.PROP 2,P?ACTION
+	PEOPLE-PSEUDO
+	.BYTE	0
+	.ENDT
+
+T?CLIFF::	.TABLE			; TABLE FOR OBJECT CLIFF
+	.STRL "towering cliffs"
+	.PROP 8,P?SYNONYM
+	W?CLIFF
+	W?CLIFFS
+	W?ISLAND
+	W?FRANCE
+	.PROP 2,P?ADJECTIVE
+	W?TOWERING
+	.PROP 2,P?ACTION
+	DESTINATION-F
+	.BYTE	0
+	.ENDT
+
+T?SHADOW::	.TABLE			; TABLE FOR OBJECT SHADOW
+	.STRL "shadow"
+	.PROP 2,P?SYNONYM
+	W?SHADOW
+	.BYTE	0
+	.ENDT
+
+T?BED::	.TABLE			; TABLE FOR OBJECT BED
+	.STRL "bed"
+	.PROP 2,P?SYNONYM
+	W?BED
+	.PROP 2,P?ACTION
+	BED-F
+	.BYTE	0
+	.ENDT
+
+T?WAR-CHAMBER::	.TABLE			; TABLE FOR OBJECT WAR-CHAMBER
+	.STRL "War Chamber"
+	.PROP 2,P?SYNONYM
+	W?WALKING
+	.PROP 2,P?ACTION
+	WAR-CHAMBER-F
+	.PROP 2,P?GLOBAL
+	CONVERSATION
+	.BYTE	0
+	.ENDT
+
+T?TABLET::	.TABLE			; TABLE FOR OBJECT TABLET
+	.STRL "buffered analgesic"
+	.PROP 8,P?SYNONYM
+	W?ANALGESIC
+	W?TABLET
+	W?ASPIRIN
+	W?PILL
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?BUFFERED
+	.PROP 2,P?ACTION
+	TABLET-F
+	.PROP 2,P?SIZE
+	2
+	.BYTE	0
+	.ENDT
+
+T?DISPENSER-BUTTON::	.TABLE			; TABLE FOR OBJECT DISPENSER-BUTTON
+	.STRL "dispenser button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 8,P?ADJECTIVE
+	W?DISPENSER
+	W?SINGLE
+	W?BABEL
+	W?FISH
+	.PROP 2,P?ACTION
+	DISPENSER-BUTTON-F
+	.BYTE	0
+	.ENDT
+
+T?SPARE-DRIVE::	.TABLE			; TABLE FOR OBJECT SPARE-DRIVE
+	.STRL "spare Improbability Drive"
+	.PROP 4,P?SYNONYM
+	W?DRIVE
+	W?GENERATOR
+	.PROP 8,P?ADJECTIVE
+	W?SPARE
+	W?PORTABLE
+	W?INFINITY
+	W?IMPROBABI
+	.PROP 2,P?ACTION
+	SPARE-DRIVE-F
+	.PROP 2,P?SIZE
+	50
+	.PROP 2,P?GENERIC
+	SPARE-DRIVE
+	.PROP 2,P?FDESC
+	STR?17
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-ROOM::	.TABLE			; TABLE FOR OBJECT GLOBAL-ROOM
+	.STRL "room"
+	.PROP 8,P?SYNONYM
+	W?ROOM
+	W?CHAMBER
+	W?PLACE
+	W?HALL
+	.PROP 2,P?ADJECTIVE
+	W?AREA
+	.PROP 2,P?ACTION
+	GLOBAL-ROOM-F
+	.BYTE	0
+	.ENDT
+
+T?FRUSTATION::	.TABLE			; TABLE FOR OBJECT FRUSTATION
+	.STRL "problem"
+	.PROP 6,P?SYNONYM
+	W?FRUSTRATI
+	W?PROBLEM
+	W?PUZZLE
+	.PROP 2,P?ACTION
+	FRUSTRATION-F
+	.BYTE	0
+	.ENDT
+
+T?TOWEL::	.TABLE			; TABLE FOR OBJECT TOWEL
+	.STRL "towel"
+	.PROP 4,P?SYNONYM
+	W?TOWEL
+	W?TOWELS
+	.PROP 2,P?ACTION
+	TOWEL-F
+	.PROP 2,P?CAPACITY
+	40
+	.PROP 2,P?SIZE
+	7
+	.BYTE	0
+	.ENDT
+
+T?CHIPPER::	.TABLE			; TABLE FOR OBJECT CHIPPER
+	.STRL "number twelve asteroid paint chipper"
+	.PROP 6,P?SYNONYM
+	W?CHIPPER
+	W?TOOL
+	W?TOOLS
+	.PROP 10,P?ADJECTIVE
+	W?NUMBER
+	W?TWELVE
+	W?ASTEROID
+	W?PAINT
+	W?PROPER
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?GENERIC
+	TWEEZERS
+	.BYTE	0
+	.ENDT
+
+T?ENGINE-ROOM::	.TABLE			; TABLE FOR OBJECT ENGINE-ROOM
+	.STRL "Engine Room"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	AFT-CORRIDOR		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	AFT-CORRIDOR		; TO ROOM
+	.PROP 8,P?SYNONYM
+	W?IMPROBABI
+	W?PHYSICS
+	W?DRIVES
+	W?PROBABILI
+	.PROP 4,P?ADJECTIVE
+	W?IMPROBABI
+	W?INFINITY
+	.PROP 2,P?ACTION
+	ENGINE-ROOM-F
+	.PROP 2,P?GLOBAL
+	HEART-OF-GOLD
+	.BYTE	0
+	.ENDT
+
+T?HEART-OF-GOLD::	.TABLE			; TABLE FOR OBJECT HEART-OF-GOLD
+	.STRL "the Heart of Gold"
+	.PROP 8,P?SYNONYM
+	W?HEART
+	W?GOLD
+	W?SHIP
+	W?SPACES
+	.PROP 6,P?ADJECTIVE
+	W?SPACE
+	W?INCREDIBL
+	W?NEW
+	.PROP 2,P?ACTION
+	HEART-OF-GOLD-F
+	.BYTE	0
+	.ENDT
+
+T?DARK::	.TABLE			; TABLE FOR OBJECT DARK
+	.STRL "Dark"
+	.PROP 6,P?SYNONYM
+	W?SUNGLASSE
+	W?GLASSES
+	W?JANTA
+	.PROP 8,P?ADJECTIVE
+	W?JOO
+	W?JANTA
+	W?PERIL
+	W?SENSITIVE
+	.PROP 2,P?ACTION
+	DARK-F
+	.BYTE	0
+	.ENDT
+
+T?TOOLBOX::	.TABLE			; TABLE FOR OBJECT TOOLBOX
+	.STRL "tool box"
+	.PROP 6,P?SYNONYM
+	W?TOOLBOX
+	W?LOCK
+	W?BOX
+	.PROP 2,P?ADJECTIVE
+	W?TOOL
+	.PROP 2,P?ACTION
+	TOOLBOX-F
+	.PROP 2,P?CAPACITY
+	20
+	.PROP 2,P?SIZE
+	25
+	.BYTE	0
+	.ENDT
+
+T?EYES::	.TABLE			; TABLE FOR OBJECT EYES
+	.STRL "your eyes"
+	.PROP 4,P?SYNONYM
+	W?EYE
+	W?EYES
+	.PROP 4,P?ADJECTIVE
+	W?YOUR
+	W?MY
+	.PROP 2,P?ACTION
+	EYES-F
+	.BYTE	0
+	.ENDT
+
+T?GREEN-BUTTON::	.TABLE			; TABLE FOR OBJECT GREEN-BUTTON
+	.STRL "green button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 6,P?ADJECTIVE
+	W?GREEN
+	W?SMALL
+	W?HITCHHIKE
+	.PROP 2,P?ACTION
+	GREEN-BUTTON-F
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?PANTRY-PSEUDO::	.TABLE			; TABLE FOR OBJECT PANTRY-PSEUDO
+	.STRL "pantry"
+	.PROP 4,P?SYNONYM
+	W?PANTRY
+	W?CLOSET
+	.PROP 2,P?ADJECTIVE
+	W?MARVIN'S
+	.PROP 2,P?ACTION
+	GLOBAL-ROOM-F
+	.BYTE	0
+	.ENDT
+
+T?PLATFORM::	.TABLE			; TABLE FOR OBJECT PLATFORM
+	.STRL "Dais"
+	.PROP 4,P?SYNONYM
+	W?DAIS
+	W?PLATFORM
+	.PROP 2,P?ACTION
+	PLATFORM-F
+	.BYTE	0
+	.ENDT
+
+T?STAR::	.TABLE			; TABLE FOR OBJECT STAR
+	.STRL "sun"
+	.PROP 8,P?SYNONYM
+	W?STAR
+	W?SUN
+	W?SYSTEM
+	W?SOL
+	.PROP 14,P?ADJECTIVE
+	W?APPROACHI
+	W?STAR
+	W?SOLAR
+	W?SMALL
+	W?UNREGARDE
+	W?YELLOW
+	W?ORANGE
+	.PROP 2,P?ACTION
+	STAR-F
+	.BYTE	0
+	.ENDT
+
+T?OTHER-PLANETS::	.TABLE			; TABLE FOR OBJECT OTHER-PLANETS
+	.STRL "other planets"
+	.PROP 4,P?SYNONYM
+	W?PLANET
+	W?PLANETS
+	.PROP 2,P?ADJECTIVE
+	W?OTHER
+	.BYTE	0
+	.ENDT
+
+T?COUNTRY-LANE::	.TABLE			; TABLE FOR OBJECT COUNTRY-LANE
+	.STRL "Country Lane"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	FRONT-OF-HOUSE		; TO ROOM
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	PUB		; TO ROOM
+	.PROP 2,P?IN		; UNCONDITIONAL EXIT
+	PUB		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?SPACE
+	.PROP 2,P?ACTION
+	COUNTRY-LANE-F
+	.PROP 12,P?GLOBAL
+	HOUSE
+	HOME
+	PUB-OBJECT
+	BULLDOZER
+	THIRD-PLANET
+	TREE
+	.BYTE	0
+	.ENDT
+
+T?CASE-SWITCH::	.TABLE			; TABLE FOR OBJECT CASE-SWITCH
+	.STRL "switch"
+	.PROP 2,P?SYNONYM
+	W?SWITCH
+	.PROP 2,P?ACTION
+	CASE-SWITCH-F
+	.BYTE	0
+	.ENDT
+
+T?AIRLOCK::	.TABLE			; TABLE FOR OBJECT AIRLOCK
+	.STRL "Airlock"
+	.PROP 6,P?EAST		; CONDITIONAL EXIT
+	HOLD		; TO ROOM
+	VOGON-OUTER-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 6,P?WEST		; CONDITIONAL EXIT
+	HOLD		; TO ROOM
+	VOGON-INNER-DOOR		; IF DOOR IS OPEN
+	0		; FAILURE MESSAGE
+	.PROP 2,P?SYNONYM
+	W?BETELGEUS
+	.PROP 2,P?ACTION
+	AIRLOCK-F
+	.PROP 2,P?LDESC
+	STR?139
+	.PROP 10,P?GLOBAL
+	VOGON-INNER-DOOR
+	VOGON-OUTER-DOOR
+	AIRLOCK-OBJECT
+	FLEET
+	EQUATIONS
+	.BYTE	0
+	.ENDT
+
+T?BEAST-GUN::	.TABLE			; TABLE FOR OBJECT BEAST-GUN
+	.STRL "strange gun"
+	.PROP 4,P?SYNONYM
+	W?GUN
+	W?WEAPON
+	.PROP 8,P?ADJECTIVE
+	W?STRANGE
+	W?RAY
+	W?ANTI-BUGB
+	W?BEAST
+	.PROP 2,P?ACTION
+	BEAST-GUN-F
+	.PROP 2,P?SIZE
+	4
+	.BYTE	0
+	.ENDT
+
+T?MESH::	.TABLE			; TABLE FOR OBJECT MESH
+	.STRL "mesh"
+	.PROP 2,P?SYNONYM
+	W?MESH
+	.PROP 2,P?ACTION
+	MESH-PSEUDO
+	.BYTE	0
+	.ENDT
+
+T?GALLEY::	.TABLE			; TABLE FOR OBJECT GALLEY
+	.STRL "Galley"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	FORE-CORRIDOR		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	FORE-CORRIDOR		; TO ROOM
+	.PROP 4,P?SYNONYM
+	W?CORPORATI
+	W?SCC
+	.PROP 4,P?ADJECTIVE
+	W?SIRIUS
+	W?CYBERNETI
+	.PROP 2,P?ACTION
+	GALLEY-F
+	.PROP 2,P?GLOBAL
+	HEART-OF-GOLD
+	.BYTE	0
+	.ENDT
+
+T?VOGON-CAPTAIN::	.TABLE			; TABLE FOR OBJECT VOGON-CAPTAIN
+	.STRL "Vogon Captain"
+	.PROP 4,P?SYNONYM
+	W?CAPTAIN
+	W?VOGONS
+	.PROP 2,P?ADJECTIVE
+	W?VOGON
+	.PROP 2,P?ACTION
+	VOGON-CAPTAIN-F
+	.PROP 2,P?LDESC
+	STR?135
+	.BYTE	0
+	.ENDT
+
+T?THIRD-PLANET::	.TABLE			; TABLE FOR OBJECT THIRD-PLANET
+	.STRL "third planet"
+	.PROP 4,P?SYNONYM
+	W?PLANET
+	W?EARTH
+	.PROP 10,P?ADJECTIVE
+	W?THIRD
+	W?BLUE
+	W?BLUE-GREE
+	W?GREEN
+	W?SMALL
+	.PROP 2,P?ACTION
+	THIRD-PLANET-F
+	.BYTE	0
+	.ENDT
+
+T?SMALL-PLUG::	.TABLE			; TABLE FOR OBJECT SMALL-PLUG
+	.STRL "small plug"
+	.PROP 4,P?SYNONYM
+	W?CORD
+	W?PLUG
+	.PROP 4,P?ADJECTIVE
+	W?SMALL
+	W?SHORT
+	.PROP 2,P?ACTION
+	SMALL-PLUG-F
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?HATCH::	.TABLE			; TABLE FOR OBJECT HATCH
+	.STRL "hatch"
+	.PROP 4,P?SYNONYM
+	W?HATCH
+	W?HATCHWAY
+	.PROP 2,P?ACTION
+	HATCH-F
+	.BYTE	0
+	.ENDT
+
+T?DIPSWITCH::	.TABLE			; TABLE FOR OBJECT DIPSWITCH
+	.STRL "dipswitch"
+	.PROP 4,P?SYNONYM
+	W?SWITCH
+	W?DIPSWITCH
+	.PROP 18,P?ADJECTIVE
+	W?DIP
+	W?FIRST
+	W?SECOND
+	W?THIRD
+	W?FOURTH
+	W?FIFTH
+	W?SIXTH
+	W?SEVENT
+	W?EIGHTH
+	.PROP 2,P?ACTION
+	DIPSWITCH-F
+	.BYTE	0
+	.ENDT
+
+T?SLOT::	.TABLE			; TABLE FOR OBJECT SLOT
+	.STRL "slot"
+	.PROP 2,P?SYNONYM
+	W?SLOT
+	.PROP 2,P?ADJECTIVE
+	W?DISPENSER
+	.PROP 2,P?ACTION
+	SLOT-F
+	.PROP 2,P?CAPACITY
+	20
+	.BYTE	0
+	.ENDT
+
+T?PANTRY::	.TABLE			; TABLE FOR OBJECT PANTRY
+	.STRL "Marvin's Pantry"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	AFT-CORRIDOR		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	AFT-CORRIDOR		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?INTELLIGE
+	.PROP 2,P?ACTION
+	PANTRY-F
+	.PROP 2,P?LDESC
+	STR?7
+	.PROP 4,P?GLOBAL
+	HEART-OF-GOLD
+	SCREENING-DOOR
+	.BYTE	0
+	.ENDT
+
+T?DOG::	.TABLE			; TABLE FOR OBJECT DOG
+	.STRL "dog"
+	.PROP 4,P?SYNONYM
+	W?DOG
+	W?MONGREL
+	.PROP 6,P?ADJECTIVE
+	W?SMALL
+	W?SERENE
+	W?IRRITABLE
+	.PROP 2,P?ACTION
+	DOG-F
+	.BYTE	0
+	.ENDT
+
+T?STONE::	.TABLE			; TABLE FOR OBJECT STONE
+	.STRL "sharp stone"
+	.PROP 8,P?SYNONYM
+	W?STONE
+	W?STONES
+	W?ROCK
+	W?ROCKS
+	.PROP 2,P?ADJECTIVE
+	W?SHARP
+	.PROP 2,P?ACTION
+	STONE-F
+	.PROP 2,P?SIZE
+	20
+	.BYTE	0
+	.ENDT
+
+T?ENGINEER::	.TABLE			; TABLE FOR OBJECT ENGINEER
+	.STRL "Engineer robot"
+	.PROP 4,P?SYNONYM
+	W?ROBOT
+	W?ENGINEER
+	.PROP 2,P?ADJECTIVE
+	W?ENGINE
+	.PROP 2,P?ACTION
+	ENGINEER-F
+	.BYTE	0
+	.ENDT
+
+T?ENTRY-BAY::	.TABLE			; TABLE FOR OBJECT ENTRY-BAY
+	.STRL "Entry Bay Number Two"
+	.PROP 2,P?SOUTH		; UNCONDITIONAL EXIT
+	FORE-CORRIDOR		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?BLASTER
+	.PROP 4,P?ADJECTIVE
+	W?PAN-GALACT
+	W?GARGLE
+	.PROP 2,P?ACTION
+	ENTRY-BAY-F
+	.PROP 2,P?LDESC
+	STR?16
+	.PROP 2,P?GLOBAL
+	HEART-OF-GOLD
+	.BYTE	0
+	.ENDT
+
+T?BEDROOM::	.TABLE			; TABLE FOR OBJECT BEDROOM
+	.STRL "Bedroom"
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	BEDROOM-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?DOWN		; CONDITIONAL EXIT
+	BEDROOM-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?OUT		; CONDITIONAL EXIT
+	BEDROOM-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?SYNONYM
+	W?TRAVEL
+	.PROP 2,P?ADJECTIVE
+	W?TIME
+	.PROP 2,P?ACTION
+	BEDROOM-F
+	.PROP 18,P?GLOBAL
+	HOUSE
+	HOME
+	GLOBAL-BED
+	BULLDOZER
+	WINDOW
+	STAIRS
+	BEDROOM-DOOR
+	THIRD-PLANET
+	WATER
+	.BYTE	0
+	.ENDT
+
+T?PUB-SHELF::	.TABLE			; TABLE FOR OBJECT PUB-SHELF
+	.STRL "shelf of items"
+	.PROP 6,P?SYNONYM
+	W?SHELF
+	W?ITEMS
+	W?SHELVES
+	.PROP 2,P?ACTION
+	PUB-SHELF-F
+	.PROP 2,P?LDESC
+	STR?76
+	.BYTE	0
+	.ENDT
+
+T?ARTHUR::	.TABLE			; TABLE FOR OBJECT ARTHUR
+	.STRL "Arthur Dent"
+	.PROP 4,P?SYNONYM
+	W?ARTHUR
+	W?DENT
+	.PROP 2,P?ADJECTIVE
+	W?ARTHUR
+	.PROP 2,P?ACTION
+	ARTHUR-F
+	.PROP 2,P?LDESC
+	STR?80
+	.BYTE	0
+	.ENDT
+
+T?TWEEZERS::	.TABLE			; TABLE FOR OBJECT TWEEZERS
+	.STRL "pair of tweezers"
+	.PROP 10,P?SYNONYM
+	W?TWEEZERS
+	W?TWEEZER
+	W?PAIR
+	W?TOOL
+	W?TOOLS
+	.PROP 2,P?ADJECTIVE
+	W?PROPER
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?GENERIC
+	TWEEZERS
+	.BYTE	0
+	.ENDT
+
+T?CROWD::	.TABLE			; TABLE FOR OBJECT CROWD
+	.STRL "crowd"
+	.PROP 2,P?SYNONYM
+	W?CROWD
+	.PROP 2,P?ACTION
+	CROWD-PSEUDO
+	.BYTE	0
+	.ENDT
+
+T?PROSSER::	.TABLE			; TABLE FOR OBJECT PROSSER
+	.STRL "Mr. Prosser"
+	.PROP 6,P?SYNONYM
+	W?PROSSER
+	W?FOREMAN
+	W?CREW
+	.PROP 6,P?ADJECTIVE
+	W?WRECKING
+	W?MR
+	W?MISTER
+	.PROP 2,P?ACTION
+	PROSSER-F
+	.PROP 2,P?DESCFCN
+	PROSSER-DESCFCN
+	.BYTE	0
+	.ENDT
+
+T?BEER::	.TABLE			; TABLE FOR OBJECT BEER
+	.STRL "lots of beer"
+	.PROP 10,P?SYNONYM
+	W?LOTS
+	W?BITTER
+	W?BITTERS
+	W?PINT
+	W?BEER
+	.PROP 2,P?ACTION
+	BEER-F
+	.BYTE	0
+	.ENDT
+
+T?OUTER-LAIR::	.TABLE			; TABLE FOR OBJECT OUTER-LAIR
+	.STRL "Beast's Outer Lair"
+	.PROP 2,P?WEST		; UNCONDITIONAL EXIT
+	LAIR		; TO ROOM
+	.PROP 2,P?ACTION
+	OUTER-LAIR-F
+	.PROP 2,P?GLOBAL
+	LAIR-OBJECT
+	.BYTE	0
+	.ENDT
+
+T?HANDBAG::	.TABLE			; TABLE FOR OBJECT HANDBAG
+	.STRL "handbag"
+	.PROP 6,P?SYNONYM
+	W?HANDBAG
+	W?BAG
+	W?PURSE
+	.PROP 2,P?ACTION
+	HANDBAG-F
+	.PROP 2,P?CAPACITY
+	10
+	.PROP 2,P?SIZE
+	15
+	.BYTE	0
+	.ENDT
+
+T?DIGITAL-WATCH::	.TABLE			; TABLE FOR OBJECT DIGITAL-WATCH
+	.STRL "digital watch"
+	.PROP 4,P?SYNONYM
+	W?WATCH
+	W?WATCHES
+	.PROP 2,P?ADJECTIVE
+	W?DIGITAL
+	.PROP 2,P?ACTION
+	DIGITAL-WATCH-F
+	.BYTE	0
+	.ENDT
+
+T?WEAPON::	.TABLE			; TABLE FOR OBJECT WEAPON
+	.STRL "weapon"
+	.PROP 4,P?SYNONYM
+	W?WEAPON
+	W?WEAPONS
+	.PROP 2,P?ACTION
+	WEAPON-PSEUDO
+	.BYTE	0
+	.ENDT
+
+T?VOGON-INNER-DOOR::	.TABLE			; TABLE FOR OBJECT VOGON-INNER-DOOR
+	.STRL "inner door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 6,P?ADJECTIVE
+	W?INNER
+	W?AIRLOCK
+	W?MASSIVE
+	.PROP 2,P?ACTION
+	VOGON-AIRLOCK-DOOR-F
+	.BYTE	0
+	.ENDT
+
+T?STAIRS::	.TABLE			; TABLE FOR OBJECT STAIRS
+	.STRL "stairs"
+	.PROP 8,P?SYNONYM
+	W?STAIR
+	W?STAIRS
+	W?STAIRWAY
+	W?GANGWAY
+	.PROP 2,P?ACTION
+	STAIRS-F
+	.BYTE	0
+	.ENDT
+
+T?TIME::	.TABLE			; TABLE FOR OBJECT TIME
+	.STRL "time"
+	.PROP 2,P?SYNONYM
+	W?TIME
+	.BYTE	0
+	.ENDT
+
+T?POETRY-APPRECIATION-CHAIR::	.TABLE			; TABLE FOR OBJECT POETRY-APPRECIATION-CHAIR
+	.STRL "poetry appreciation chair"
+	.PROP 6,P?SYNONYM
+	W?CHAIR
+	W?CHAIRS
+	W?SEAT
+	.PROP 8,P?ADJECTIVE
+	W?POETRY
+	W?APPRECIAT
+	W?LARGE
+	W?MENACING
+	.PROP 2,P?ACTION
+	POETRY-APPRECIATION-CHAIR-F
+	.BYTE	0
+	.ENDT
+
+T?MECHANISM::	.TABLE			; TABLE FOR OBJECT MECHANISM
+	.STRL "mechanism"
+	.PROP 2,P?SYNONYM
+	W?MECHANISM
+	.PROP 4,P?ADJECTIVE
+	W?HATCH
+	W?HATCHWAY
+	.PROP 2,P?ACTION
+	MECHANISM-F
+	.BYTE	0
+	.ENDT
+
+T?GLOBAL-BED::	.TABLE			; TABLE FOR OBJECT GLOBAL-BED
+	.STRL "bed"
+	.PROP 2,P?SYNONYM
+	W?BED
+	.PROP 2,P?ACTION
+	GLOBAL-BED-F
+	.BYTE	0
+	.ENDT
+
+T?PUB::	.TABLE			; TABLE FOR OBJECT PUB
+	.STRL "Pub"
+	.PROP 2,P?EAST		; UNCONDITIONAL EXIT
+	COUNTRY-LANE		; TO ROOM
+	.PROP 2,P?OUT		; UNCONDITIONAL EXIT
+	COUNTRY-LANE		; TO ROOM
+	.PROP 2,P?SYNONYM
+	W?ALCOHOL
+	.PROP 2,P?ACTION
+	PUB-F
+	.PROP 10,P?GLOBAL
+	PUB-OBJECT
+	WINDOW
+	THIRD-PLANET
+	PUB-FURNISHINGS
+	PEOPLE
+	.BYTE	0
+	.ENDT
+
+T?GRAY-MATTER::	.TABLE			; TABLE FOR OBJECT GRAY-MATTER
+	.STRL "maze"
+	.PROP 2,P?SYNONYM
+	W?MAZE
+	.PROP 6,P?ADJECTIVE
+	W?GRAY
+	W?GREY
+	W?SPONGY
+	.PROP 2,P?ACTION
+	GLOBAL-ROOM-F
+	.BYTE	0
+	.ENDT
+
+T?CONVERSATION::	.TABLE			; TABLE FOR OBJECT CONVERSATION
+	.STRL "conversation"
+	.PROP 2,P?SYNONYM
+	W?CONVERSAT
+	.PROP 2,P?ACTION
+	CONVERSATION-F
+	.BYTE	0
+	.ENDT
+
+T?SKELETON::	.TABLE			; TABLE FOR OBJECT SKELETON
+	.STRL "skeleton"
+	.PROP 8,P?SYNONYM
+	W?SKELETON
+	W?BEASTHUNT
+	W?BONE
+	W?BONES
+	.PROP 2,P?FDESC
+	STR?145
+	.BYTE	0
+	.ENDT
+
+T?WATER::	.TABLE			; TABLE FOR OBJECT WATER
+	.STRL "water"
+	.PROP 2,P?SYNONYM
+	W?WATER
+	.PROP 2,P?ACTION
+	WATER-PSEUDO
+	.BYTE	0
+	.ENDT
+
+T?GROUND::	.TABLE			; TABLE FOR OBJECT GROUND
+	.STRL "ground"
+	.PROP 6,P?SYNONYM
+	W?FLOOR
+	W?GROUND
+	W?MUD
+	.PROP 2,P?ACTION
+	GROUND-F
+	.BYTE	0
+	.ENDT
+
+T?ROSES::	.TABLE			; TABLE FOR OBJECT ROSES
+	.STRL "it"
+	.PROP 8,P?SYNONYM
+	W?ROSE
+	W?ROSES
+	W?ROSEBED
+	W?BED
+	.PROP 2,P?ADJECTIVE
+	W?ROSE
+	.PROP 2,P?ACTION
+	UNIMPORTANT-THING-F
+	.BYTE	0
+	.ENDT
+
+T?FRONT-PORCH::	.TABLE			; TABLE FOR OBJECT FRONT-PORCH
+	.STRL "Front Porch"
+	.PROP 2,P?NORTH		; UNCONDITIONAL EXIT
+	BEDROOM		; TO ROOM
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	CLOTHES-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 2,P?UP		; UNCONDITIONAL EXIT
+	BEDROOM		; TO ROOM
+	.PROP 4,P?OUT		; CONDITIONAL EXIT
+	CLOTHES-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?SYNONYM
+	W?BEAM
+	W?BEAMS
+	.PROP 4,P?ADJECTIVE
+	W?MATTER
+	W?TRANSFERE
+	.PROP 2,P?LDESC
+	STR?65
+	.PROP 10,P?GLOBAL
+	HOUSE
+	HOME
+	STAIRS
+	THIRD-PLANET
+	BEDROOM-DOOR
+	.BYTE	0
+	.ENDT
+
+T?NOT-HERE-OBJECT::	.TABLE			; TABLE FOR OBJECT NOT-HERE-OBJECT
+	.STRL "it"
+	.PROP 2,P?ACTION
+	NOT-HERE-OBJECT-F
+	.BYTE	0
+	.ENDT
+
+T?FRUIT::	.TABLE			; TABLE FOR OBJECT FRUIT
+	.STRL "fruit"
+	.PROP 2,P?SYNONYM
+	W?FRUIT
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?SUCCULENT
+	.PROP 2,P?ACTION
+	FRUIT-F
+	.BYTE	0
+	.ENDT
+
+T?BIRDS::	.TABLE			; TABLE FOR OBJECT BIRDS
+	.STRL "bird"
+	.PROP 4,P?SYNONYM
+	W?BIRD
+	W?BIRDS
+	.PROP 2,P?ACTION
+	UNIMPORTANT-THING-F
+	.BYTE	0
+	.ENDT
+
+T?SARCASTIC-NAME::	.TABLE			; TABLE FOR OBJECT SARCASTIC-NAME
+	.STRL "other name"
+	.PROP 8,P?SYNONYM
+	W?NAME
+	W?BUDDHA
+	W?AUNT
+	W?FRED
+	.PROP 6,P?ADJECTIVE
+	W?AUNT'S
+	W?FRED'S
+	W?BUDDHA
+	.BYTE	0
+	.ENDT
+
+T?INTNUM::	.TABLE			; TABLE FOR OBJECT INTNUM
+	.STRL "number"
+	.PROP 2,P?SYNONYM
+	W?INTNUM
+	.PROP 2,P?ADJECTIVE
+	W?NUMBER
+	.BYTE	0
+	.ENDT
+
+T?SCREENING-DOOR::	.TABLE			; TABLE FOR OBJECT SCREENING-DOOR
+	.STRL "screening door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ADJECTIVE
+	W?SCREENING
+	.PROP 2,P?ACTION
+	SCREENING-DOOR-F
+	.BYTE	0
+	.ENDT
+
+T?BABEL-FISH::	.TABLE			; TABLE FOR OBJECT BABEL-FISH
+	.STRL "babel fish"
+	.PROP 2,P?SYNONYM
+	W?FISH
+	.PROP 2,P?ADJECTIVE
+	W?BABEL
+	.PROP 2,P?ACTION
+	BABEL-FISH-F
+	.BYTE	0
+	.ENDT
+
+T?NUTRIMAT::	.TABLE			; TABLE FOR OBJECT NUTRIMAT
+	.STRL "Nutrimat"
+	.PROP 6,P?SYNONYM
+	W?NUTRIMAT
+	W?MACHINE
+	W?PANEL
+	.PROP 2,P?ADJECTIVE
+	W?SERVICE
+	.PROP 2,P?ACTION
+	NUTRIMAT-F
+	.BYTE	0
+	.ENDT
+
+T?INTERFACE-BOX::	.TABLE			; TABLE FOR OBJECT INTERFACE-BOX
+	.STRL "shipping carton"
+	.PROP 4,P?SYNONYM
+	W?CARTON
+	W?BOX
+	.PROP 2,P?ADJECTIVE
+	W?SHIPPING
+	.PROP 2,P?ACTION
+	INTERFACE-BOX-F
+	.PROP 2,P?LDESC
+	STR?12
+	.PROP 2,P?CAPACITY
+	14
+	.PROP 2,P?SIZE
+	15
+	.BYTE	0
+	.ENDT
+
+T?BOAT-OBJECT::	.TABLE			; TABLE FOR OBJECT BOAT-OBJECT
+	.STRL "speedboat"
+	.PROP 4,P?SYNONYM
+	W?SPEEDBOAT
+	W?BOAT
+	.PROP 4,P?ADJECTIVE
+	W?PRESIDENT
+	W?SPEED
+	.PROP 2,P?ACTION
+	BOAT-OBJECT-F
+	.BYTE	0
+	.ENDT
+
+T?BAR::	.TABLE			; TABLE FOR OBJECT BAR
+	.STRL "bar"
+	.PROP 4,P?SYNONYM
+	W?BAR
+	W?COUNTER
+	.PROP 2,P?ACTION
+	BAR-F
+	.PROP 2,P?CAPACITY
+	60
+	.BYTE	0
+	.ENDT
+
+T?DISPENSER::	.TABLE			; TABLE FOR OBJECT DISPENSER
+	.STRL "babel fish dispenser"
+	.PROP 6,P?SYNONYM
+	W?DISPENSER
+	W?MACHINE
+	W?SLOT
+	.PROP 10,P?ADJECTIVE
+	W?DISPENSIN
+	W?BABEL
+	W?FISH
+	W?TALL
+	W?VENDING
+	.PROP 2,P?ACTION
+	DISPENSER-F
+	.PROP 2,P?LDESC
+	STR?92
+	.BYTE	0
+	.ENDT
+
+T?AWL::	.TABLE			; TABLE FOR OBJECT AWL
+	.STRL "ultra-plasmic vacuum awl"
+	.PROP 6,P?SYNONYM
+	W?AWL
+	W?TOOL
+	W?TOOLS
+	.PROP 10,P?ADJECTIVE
+	W?ULTRA
+	W?PLASMIC
+	W?ULTRA-PLA
+	W?VACUUM
+	W?PROPER
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?GENERIC
+	TWEEZERS
+	.BYTE	0
+	.ENDT
+
+T?CEILING::	.TABLE			; TABLE FOR OBJECT CEILING
+	.STRL "ceiling"
+	.PROP 4,P?SYNONYM
+	W?CEILING
+	W?ROOF
+	.PROP 2,P?ACTION
+	CEILING-F
+	.BYTE	0
+	.ENDT
+
+T?ZAPHOD::	.TABLE			; TABLE FOR OBJECT ZAPHOD
+	.STRL "Zaphod Beeblebrox"
+	.PROP 6,P?SYNONYM
+	W?BEEBLEBRO
+	W?ZAPHOD
+	W?PRESIDENT
+	.PROP 4,P?ADJECTIVE
+	W?ZAPHOD
+	W?PRESIDENT
+	.PROP 2,P?ACTION
+	ZAPHOD-F
+	.BYTE	0
+	.ENDT
+
+T?PHONE::	.TABLE			; TABLE FOR OBJECT PHONE
+	.STRL "telephone"
+	.PROP 6,P?SYNONYM
+	W?PHONE
+	W?TELEPHONE
+	W?RECEIVER
+	.PROP 2,P?ACTION
+	PHONE-F
+	.BYTE	0
+	.ENDT
+
+T?EARS::	.TABLE			; TABLE FOR OBJECT EARS
+	.STRL "your ears"
+	.PROP 4,P?SYNONYM
+	W?EAR
+	W?EARS
+	.PROP 4,P?ADJECTIVE
+	W?YOUR
+	W?MY
+	.BYTE	0
+	.ENDT
+
+T?BONES::	.TABLE			; TABLE FOR OBJECT BONES
+	.STRL "bone"
+	.PROP 4,P?SYNONYM
+	W?BONE
+	W?BONES
+	.PROP 2,P?ADJECTIVE
+	W?GNAWED
+	.PROP 2,P?ACTION
+	UNIMPORTANT-THING-F
+	.BYTE	0
+	.ENDT
+
+T?BEDROOM-PSEUDO::	.TABLE			; TABLE FOR OBJECT BEDROOM-PSEUDO
+	.STRL "bedroom"
+	.PROP 2,P?SYNONYM
+	W?BEDROOM
+	.PROP 2,P?ADJECTIVE
+	W?SMALL
+	.PROP 2,P?ACTION
+	GLOBAL-ROOM-F
+	.BYTE	0
+	.ENDT
+
+T?DARK-OBJECT::	.TABLE			; TABLE FOR OBJECT DARK-OBJECT
+	.STRL "darkness"
+	.PROP 6,P?SYNONYM
+	W?DARK
+	W?DARKNESS
+	W?NOTHING
+	.BYTE	0
+	.ENDT
+
+T?LARGE-PLUG::	.TABLE			; TABLE FOR OBJECT LARGE-PLUG
+	.STRL "large plug"
+	.PROP 4,P?SYNONYM
+	W?CORD
+	W?PLUG
+	.PROP 4,P?ADJECTIVE
+	W?LARGE
+	W?LONG
+	.PROP 2,P?ACTION
+	LARGE-PLUG-F
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?MAGNIFYING-GLASS::	.TABLE			; TABLE FOR OBJECT MAGNIFYING-GLASS
+	.STRL "magnifying glass"
+	.PROP 2,P?SYNONYM
+	W?GLASS
+	.PROP 2,P?ADJECTIVE
+	W?MAGNIFYIN
+	.PROP 2,P?ACTION
+	MAGNIFYING-GLASS-F
+	.BYTE	0
+	.ENDT
+
+T?RED-BUTTON::	.TABLE			; TABLE FOR OBJECT RED-BUTTON
+	.STRL "red button"
+	.PROP 2,P?SYNONYM
+	W?BUTTON
+	.PROP 4,P?ADJECTIVE
+	W?RED
+	W?SMALL
+	.PROP 2,P?ACTION
+	RED-BUTTON-F
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?MAIL::	.TABLE			; TABLE FOR OBJECT MAIL
+	.STRL "loose pile of junk mail"
+	.PROP 10,P?SYNONYM
+	W?ORDER
+	W?MAIL
+	W?PILE
+	W?LETTER
+	W?LETTERS
+	.PROP 10,P?ADJECTIVE
+	W?DEMOLISHI
+	W?JUNK
+	W?MY
+	W?OFFICIAL
+	W?LOOSE
+	.PROP 2,P?ACTION
+	MAIL-F
+	.PROP 2,P?SIZE
+	4
+	.PROP 2,P?FDESC
+	STR?66
+	.PROP 2,P?TEXT
+	STR?67
+	.BYTE	0
+	.ENDT
+
+T?SPIRE::	.TABLE			; TABLE FOR OBJECT SPIRE
+	.STRL "rocky spire"
+	.PROP 6,P?SYNONYM
+	W?SPIRE
+	W?ROCK
+	W?ROCKS
+	.PROP 2,P?ADJECTIVE
+	W?ROCKY
+	.PROP 2,P?ACTION
+	DESTINATION-F
+	.BYTE	0
+	.ENDT
+
+T?VOGON-CORRIDOR-DOOR::	.TABLE			; TABLE FOR OBJECT VOGON-CORRIDOR-DOOR
+	.STRL "corridor door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ADJECTIVE
+	W?CORRIDOR
+	.PROP 2,P?ACTION
+	VOGON-CORRIDOR-DOOR-F
+	.BYTE	0
+	.ENDT
+
+T?GUIDE::	.TABLE			; TABLE FOR OBJECT GUIDE
+	.STRL "The Hitchhiker's Guide"
+	.PROP 4,P?SYNONYM
+	W?COPY
+	W?GUIDE
+	.PROP 4,P?ADJECTIVE
+	W?HITCHHIKE
+	W?SUB-ETHA
+	.PROP 2,P?ACTION
+	GUIDE-F
+	.PROP 2,P?SIZE
+	10
+	.PROP 2,P?DESCFCN
+	GUIDE-DESCFCN
+	.PROP 2,P?TEXT
+	STR?175
+	.BYTE	0
+	.ENDT
+
+T?PROTAGONIST::	.TABLE			; TABLE FOR OBJECT PROTAGONIST
+	.STRL "it"
+	.PROP 2,P?SYNONYM
+	W?PROTAGONI
+	.PROP 2,P?ACTION
+	PROTAGONIST-F
+	.BYTE	0
+	.ENDT
+
+T?DAMOGRAN::	.TABLE			; TABLE FOR OBJECT DAMOGRAN
+	.STRL "Damogran"
+	.PROP 2,P?SYNONYM
+	W?DAMOGRAN
+	.BYTE	0
+	.ENDT
+
+T?APPETIZERS::	.TABLE			; TABLE FOR OBJECT APPETIZERS
+	.STRL "plate of hors d'oeuvres"
+	.PROP 8,P?SYNONYM
+	W?PLATE
+	W?D'OEUVRES
+	W?APPETIZER
+	W?SNACKS
+	.PROP 2,P?ADJECTIVE
+	W?HORS
+	.PROP 2,P?ACTION
+	APPETIZERS-F
+	.PROP 2,P?SIZE
+	15
+	.BYTE	0
+	.ENDT
+
+T?BEDROOM-DOOR::	.TABLE			; TABLE FOR OBJECT BEDROOM-DOOR
+	.STRL "door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.BYTE	0
+	.ENDT
+
+T?GOWN::	.TABLE			; TABLE FOR OBJECT GOWN
+	.STRL "your gown"
+	.PROP 8,P?SYNONYM
+	W?GOWN
+	W?POCKET
+	W?ROBE
+	W?LOOP
+	.PROP 12,P?ADJECTIVE
+	W?MY
+	W?YOUR
+	W?DRESSING
+	W?TATTY
+	W?FADED
+	W?BATTERED
+	.PROP 2,P?ACTION
+	GOWN-F
+	.PROP 2,P?LDESC
+	STR?64
+	.PROP 2,P?CAPACITY
+	14
+	.PROP 2,P?SIZE
+	15
+	.BYTE	0
+	.ENDT
+
+T?VOGON-OUTER-DOOR::	.TABLE			; TABLE FOR OBJECT VOGON-OUTER-DOOR
+	.STRL "outer door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 6,P?ADJECTIVE
+	W?OUTER
+	W?AIRLOCK
+	W?MASSIVE
+	.PROP 2,P?ACTION
+	VOGON-AIRLOCK-DOOR-F
+	.BYTE	0
+	.ENDT
+
+T?MINERAL-WATER::	.TABLE			; TABLE FOR OBJECT MINERAL-WATER
+	.STRL "Santraginean Mineral Water"
+	.PROP 4,P?SYNONYM
+	W?BOTTLE
+	W?WATER
+	.PROP 4,P?ADJECTIVE
+	W?SANTRAGIN
+	W?MINERAL
+	.PROP 2,P?ACTION
+	MINERAL-WATER-F
+	.PROP 2,P?LDESC
+	STR?89
+	.PROP 2,P?GENERIC
+	MINERAL-WATER
+	.BYTE	0
+	.ENDT
+
+T?AIRLOCK-OBJECT::	.TABLE			; TABLE FOR OBJECT AIRLOCK-OBJECT
+	.STRL "airlock"
+	.PROP 2,P?SYNONYM
+	W?AIRLOCK
+	.PROP 2,P?ACTION
+	AIRLOCK-OBJECT-F
+	.BYTE	0
+	.ENDT
+
+T?STRAPS::	.TABLE			; TABLE FOR OBJECT STRAPS
+	.STRL "strap"
+	.PROP 4,P?SYNONYM
+	W?STRAPS
+	W?STRAP
+	.PROP 2,P?ACTION
+	UNIMPORTANT-THING-F
+	.BYTE	0
+	.ENDT
+
+T?THUMB::	.TABLE			; TABLE FOR OBJECT THUMB
+	.STRL "electronic Sub-Etha signaling device"
+	.PROP 6,P?SYNONYM
+	W?THUMB
+	W?DEVICE
+	W?SENSO
+	.PROP 14,P?ADJECTIVE
+	W?ELECTRONI
+	W?SUB-ETHA
+	W?SIGNALING
+	W?SMALL
+	W?BLACK
+	W?LITTLE
+	W?BLINKING
+	.PROP 2,P?ACTION
+	THUMB-F
+	.PROP 2,P?SIZE
+	10
+	.BYTE	0
+	.ENDT
+
+T?PEANUTS::	.TABLE			; TABLE FOR OBJECT PEANUTS
+	.STRL "peanuts"
+	.PROP 10,P?SYNONYM
+	W?PACKET
+	W?PEANUT
+	W?PEANUTS
+	W?NUT
+	W?NUTS
+	.PROP 2,P?ACTION
+	PEANUTS-F
+	.BYTE	0
+	.ENDT
+
+T?EQUATIONS::	.TABLE			; TABLE FOR OBJECT EQUATIONS
+	.STRL "it"
+	.PROP 8,P?SYNONYM
+	W?EQUATION
+	W?EQUATIONS
+	W?NUMBER
+	W?PENCIL
+	.PROP 2,P?ACTION
+	UNIMPORTANT-THING-F
+	.BYTE	0
+	.ENDT
+
+T?PAD::	.TABLE			; TABLE FOR OBJECT PAD
+	.STRL "touch-sensitive pad"
+	.PROP 2,P?SYNONYM
+	W?PAD
+	.PROP 6,P?ADJECTIVE
+	W?TOUCH
+	W?SENSITIVE
+	W?TOUCH-SEN
+	.PROP 2,P?ACTION
+	PAD-F
+	.BYTE	0
+	.ENDT
+
+T?VLHURG::	.TABLE			; TABLE FOR OBJECT VLHURG
+	.STRL "Vl'Hurg leader"
+	.PROP 8,P?SYNONYM
+	W?VL'HURG
+	W?LEADER
+	W?CREATURE
+	W?CREATURES
+	.PROP 2,P?ADJECTIVE
+	W?VL'HURG
+	.PROP 2,P?ACTION
+	VLHURG-F
+	.PROP 2,P?DESCFCN
+	VLHURG-DESCFCN
+	.BYTE	0
+	.ENDT
+
+T?THING::	.TABLE			; TABLE FOR OBJECT THING
+	.STRL "thing your aunt gave you which you don't know what it is"
+	.PROP 4,P?SYNONYM
+	W?THING
+	W?GIFT
+	.PROP 2,P?ADJECTIVE
+	W?AUNT'S
+	.PROP 2,P?ACTION
+	THING-F
+	.PROP 2,P?CAPACITY
+	200
+	.PROP 2,P?SIZE
+	6
+	.BYTE	0
+	.ENDT
+
+T?GLASS-CASE::	.TABLE			; TABLE FOR OBJECT GLASS-CASE
+	.STRL "glass case"
+	.PROP 6,P?SYNONYM
+	W?CASE
+	W?LID
+	W?GLASS
+	.PROP 2,P?ADJECTIVE
+	W?GLASS
+	.PROP 2,P?ACTION
+	GLASS-CASE-F
+	.PROP 2,P?LDESC
+	STR?93
+	.PROP 2,P?SIZE
+	40
+	.BYTE	0
+	.ENDT
+
+T?RAMP::	.TABLE			; TABLE FOR OBJECT RAMP
+	.STRL "Ramp"
+	.PROP 4,P?SYNONYM
+	W?PLANET
+	W?MAGRATHEA
+	.PROP 2,P?ADJECTIVE
+	W?LEGENDARY
+	.PROP 2,P?ACTION
+	RAMP-F
+	.PROP 2,P?LDESC
+	STR?24
+	.BYTE	0
+	.ENDT
+
+T?BEAST::	.TABLE			; TABLE FOR OBJECT BEAST
+	.STRL "Ravenous Bugblatter Beast of Traal"
+	.PROP 4,P?SYNONYM
+	W?BEAST
+	W?TRAAL
+	.PROP 6,P?ADJECTIVE
+	W?RAVENOUS
+	W?BUGBLATTE
+	W?BEAST
+	.PROP 2,P?ACTION
+	BEAST-F
+	.PROP 2,P?DESCFCN
+	BEAST-DESCFCN
+	.BYTE	0
+	.ENDT
+
+T?TEETH::	.TABLE			; TABLE FOR OBJECT TEETH
+	.STRL "your teeth"
+	.PROP 4,P?SYNONYM
+	W?TEETH
+	W?TOOTH
+	.PROP 4,P?ADJECTIVE
+	W?YOUR
+	W?MY
+	.BYTE	0
+	.ENDT
+
+T?NO-TEA::	.TABLE			; TABLE FOR OBJECT NO-TEA
+	.STRL "no tea"
+	.PROP 2,P?SYNONYM
+	W?TEA
+	.PROP 2,P?ADJECTIVE
+	W?NO
+	.PROP 2,P?ACTION
+	NO-TEA-F
+	.BYTE	0
+	.ENDT
+
+T?SUBSTITUTE::	.TABLE			; TABLE FOR OBJECT SUBSTITUTE
+	.STRL "Advanced Tea Substitute"
+	.PROP 8,P?SYNONYM
+	W?CUP
+	W?CUPFUL
+	W?SUBSTITUT
+	W?ATS
+	.PROP 8,P?ADJECTIVE
+	W?TEA
+	W?ADVANCED
+	W?NICE
+	W?HOT
+	.PROP 2,P?ACTION
+	SUBSTITUTE-F
+	.PROP 2,P?DESCFCN
+	SUBSTITUTE-DESCFCN
+	.BYTE	0
+	.ENDT
+
+T?WRENCH::	.TABLE			; TABLE FOR OBJECT WRENCH
+	.STRL "laser-assisted monkey wrench"
+	.PROP 6,P?SYNONYM
+	W?WRENCH
+	W?TOOL
+	W?TOOLS
+	.PROP 10,P?ADJECTIVE
+	W?LASER
+	W?ASSISTED
+	W?LASER-ASS
+	W?MONKEY
+	W?PROPER
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?GENERIC
+	TWEEZERS
+	.BYTE	0
+	.ENDT
+
+T?DANGLY-BIT::	.TABLE			; TABLE FOR OBJECT DANGLY-BIT
+	.STRL "long, dangly bit"
+	.PROP 2,P?SYNONYM
+	W?BIT
+	.PROP 4,P?ADJECTIVE
+	W?LONG
+	W?DANGLY
+	.PROP 2,P?ACTION
+	DANGLY-BIT-F
+	.PROP 2,P?SIZE
+	1
+	.BYTE	0
+	.ENDT
+
+T?APARTMENT-DOOR::	.TABLE			; TABLE FOR OBJECT APARTMENT-DOOR
+	.STRL "door"
+	.PROP 2,P?SYNONYM
+	W?DOOR
+	.PROP 2,P?ACTION
+	APARTMENT-DOOR-F
+	.BYTE	0
+	.ENDT
+
+T?BEAST-NAME::	.TABLE			; TABLE FOR OBJECT BEAST-NAME
+	.STRL "Beast's name"
+	.PROP 2,P?SYNONYM
+	W?NAME
+	.PROP 2,P?ADJECTIVE
+	W?BEAST'S
+	.PROP 4,P?FLAG
+	NARTICLEBIT
+	INVISIBLE
+	.BYTE	0
+	.ENDT
+
+T?MAZE::	.TABLE			; TABLE FOR OBJECT MAZE
+	.STRL "Maze"
+	.PROP 4,P?NORTH		; CONDITIONAL EXIT
+	MAZE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?NE		; CONDITIONAL EXIT
+	MAZE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?EAST		; CONDITIONAL EXIT
+	MAZE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?SE		; CONDITIONAL EXIT
+	MAZE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?SOUTH		; CONDITIONAL EXIT
+	MAZE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?SW		; CONDITIONAL EXIT
+	MAZE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?WEST		; CONDITIONAL EXIT
+	MAZE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?NW		; CONDITIONAL EXIT
+	MAZE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?UP		; CONDITIONAL EXIT
+	MAZE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?DOWN		; CONDITIONAL EXIT
+	MAZE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?IN		; CONDITIONAL EXIT
+	MAZE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 4,P?OUT		; CONDITIONAL EXIT
+	MAZE-EXIT-F		; PER FUNCTION
+	.BYTE 0
+	.BYTE 0
+	.PROP 6,P?SYNONYM
+	W?INFOCOM
+	W?ADAMS
+	W?MERETZKY
+	.PROP 6,P?ADJECTIVE
+	W?DOUGLAS
+	W?STEVE
+	W?STEVEN
+	.PROP 2,P?LDESC
+	STR?146
+	.BYTE	0
+	.ENDT
+
+T?BULLDOZER::	.TABLE			; TABLE FOR OBJECT BULLDOZER
+	.STRL "bulldozer"
+	.PROP 4,P?SYNONYM
+	W?BULLDOZER
+	W?DOZER
+	.PROP 8,P?ADJECTIVE
+	W?LARGE
+	W?YELLOW
+	W?BULL
+	W?HUGE
+	.PROP 2,P?ACTION
+	BULLDOZER-F
+	.BYTE	0
+	.ENDT
+
+T?FOOBAR::	.TABLE			; TABLE FOR OBJECT FOOBAR
+	.STRL ""
+	.PROP 2,P?SYNONYM
+	W?FOOBAR
+	.PROP 2,P?ACTION
+	V-WALK
+	.BYTE	0
+	.ENDT
+
+T?BARMAN::	.TABLE			; TABLE FOR OBJECT BARMAN
+	.STRL "barman"
+	.PROP 4,P?SYNONYM
+	W?BARMAN
+	W?BARTENDER
+	.PROP 2,P?ACTION
+	BARMAN-F
+	.PROP 2,P?LDESC
+	STR?78
+	.BYTE	0
+	.ENDT
+
+T?GGUGVUNT::	.TABLE			; TABLE FOR OBJECT GGUGVUNT
+	.STRL "G'Gugvunt leader"
+	.PROP 8,P?SYNONYM
+	W?G'GUGVUNT
+	W?LEADER
+	W?CREATURE
+	W?CREATURES
+	.PROP 2,P?ADJECTIVE
+	W?G'GUGVUNT
+	.PROP 2,P?ACTION
+	GGUGVUNT-F
+	.BYTE	0
+	.ENDT
+
+T?JACKET-FLUFF::	.TABLE			; TABLE FOR OBJECT JACKET-FLUFF
+	.STRL "jacket fluff"
+	.PROP 4,P?SYNONYM
+	W?FLUFF
+	W?LINT
+	.PROP 4,P?ADJECTIVE
+	W?JACKET
+	W?UNSIGHTLY
+	.PROP 2,P?GENERIC
+	POCKET-FLUFF
+	.BYTE	0
+	.ENDT
+
+T?CAPTAINS-QUARTERS::	.TABLE			; TABLE FOR OBJECT CAPTAINS-QUARTERS
+	.STRL "Captain's Quarters"
+	.PROP 2,P?ACTION
+	CAPTAINS-QUARTERS-F
+	.PROP 4,P?GLOBAL
+	FLEET
+	WEAPON
+	.BYTE	0
+	.ENDT
+
+T?MAIN-DRIVE::	.TABLE			; TABLE FOR OBJECT MAIN-DRIVE
+	.STRL "main Improbability Drive"
+	.PROP 4,P?SYNONYM
+	W?DRIVE
+	W?GENERATOR
+	.PROP 6,P?ADJECTIVE
+	W?MAIN
+	W?INFININY
+	W?IMPROBABI
+	.PROP 2,P?ACTION
+	MAIN-DRIVE-F
+	.PROP 2,P?GENERIC
+	SPARE-DRIVE
+	.BYTE	0
+	.ENDT
+
+T?SALES-BROCHURE::	.TABLE			; TABLE FOR OBJECT SALES-BROCHURE
+	.STRL "sales brochure"
+	.PROP 2,P?SYNONYM
+	W?BROCHURE
+	.PROP 2,P?ADJECTIVE
+	W?SALES
+	.PROP 2,P?ACTION
+	SALES-BROCHURE-F
+	.BYTE	0
+	.ENDT
+
+T?PINCER::	.TABLE			; TABLE FOR OBJECT PINCER
+	.STRL "molecular hyperwave pincer"
+	.PROP 6,P?SYNONYM
+	W?PINCER
+	W?TOOL
+	W?TOOLS
+	.PROP 6,P?ADJECTIVE
+	W?MOLECULAR
+	W?HYPERWAVE
+	W?PROPER
+	.PROP 2,P?SIZE
+	3
+	.PROP 2,P?GENERIC
+	TWEEZERS
+	.BYTE	0
+	.ENDT
+
+
+; IMPURE TABLES ARE DEFINED HERE
+
+IMPTBL::
+
+T?101::
+T?FIRST-BUFFER::	.TABLE
+	25600
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?201::
+T?C-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?103::
+T?P-CCTBL::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?203::
+T?P-LEXV::	.TABLE
+	.BYTE 60
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?303::
+T?AGAIN-LEXV::	.TABLE
+	.BYTE 60
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?403::
+T?RESERVE-LEXV::	.TABLE
+	.BYTE 60
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?503::
+T?P-INBUF::	.TABLE
+	.BYTE 120
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?603::
+T?RESERVE-INBUF::	.TABLE
+	.BYTE 120
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?703::
+T?OOPS-INBUF::	.TABLE
+	.BYTE 120
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+T?803::
+T?OOPS-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?903::
+T?P-ITBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1003::
+T?P-OTBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1103::
+T?P-VTBL::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1203::
+T?P-OVTBL::	.TABLE
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1303::
+T?P-PRSO::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1403::
+T?P-PRSI::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1503::
+T?P-BUTS::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1603::
+T?P-MERGE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?1703::
+T?P-OCLAUSE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?106::
+T?FORD-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?108::
+T?PARTY-TABLE::	.TABLE
+	0
+	0
+	0
+	.ENDT
+
+T?109::
+SL-TABLE::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?110::
+T?DIROUT-TBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+T?210::	.TABLE
+	3
+	3
+	STR?245
+	STR?246
+	.ENDT
+
+T?310::	.TABLE
+	6
+	3
+	STR?247
+	STR?248
+	STR?249
+	STR?250
+	STR?251
+	.ENDT
+
+T?410::	.TABLE
+	7
+	3
+	STR?252
+	STR?253
+	STR?254
+	STR?255
+	STR?256
+	STR?257
+	.ENDT
+
+T?510::	.TABLE
+	5
+	3
+	STR?258
+	STR?259
+	STR?260
+	STR?261
+	.ENDT
+
+T?610::	.TABLE
+	4
+	3
+	STR?262
+	STR?263
+	STR?264
+	.ENDT
+
+T?710::	.TABLE
+	9
+	3
+	STR?265
+	STR?266
+	STR?267
+	STR?268
+	STR?269
+	STR?270
+	STR?271
+	STR?272
+	.ENDT
+
+T?810::	.TABLE
+	7
+	3
+	STR?273
+	STR?274
+	STR?275
+	STR?276
+	STR?277
+	STR?278
+	.ENDT
+
+T?910::	.TABLE
+	5
+	3
+	STR?279
+	STR?280
+	STR?281
+	STR?282
+	.ENDT
+
+T?1010::	.TABLE
+	6
+	3
+	STR?283
+	STR?284
+	STR?285
+	STR?286
+	STR?287
+	.ENDT
+
+T?1110::	.TABLE
+	6
+	3
+	STR?288
+	STR?289
+	STR?290
+	STR?291
+	STR?292
+	.ENDT
+
+T?1210::	.TABLE
+	4
+	3
+	STR?293
+	STR?294
+	STR?295
+	.ENDT
+
+T?1310::	.TABLE
+	4
+	3
+	STR?296
+	STR?294
+	STR?297
+	.ENDT
+
+T?1410::	.TABLE
+	5
+	3
+	STR?298
+	STR?299
+	STR?300
+	STR?301
+	.ENDT
+
+T?1510::	.TABLE
+	4
+	3
+	STR?302
+	STR?303
+	STR?304
+	.ENDT
+
+T?1610::	.TABLE
+	4
+	3
+	STR?305
+	STR?306
+	STR?307
+	.ENDT
+
+T?1710::	.TABLE
+	10
+	3
+	STR?308
+	STR?309
+	STR?310
+	STR?311
+	STR?312
+	STR?313
+	STR?314
+	STR?315
+	STR?316
+	.ENDT
+
+T?1810::	.TABLE
+	4
+	3
+	STR?317
+	STR?318
+	STR?319
+	.ENDT
+
+T?1910::	.TABLE
+	6
+	3
+	STR?321
+	STR?322
+	STR?323
+	STR?324
+	STR?325
+	.ENDT
+
+T?2010::	.TABLE
+	9
+	3
+	STR?326
+	STR?327
+	STR?328
+	STR?329
+	STR?330
+	STR?331
+	STR?332
+	STR?333
+	.ENDT
+
+T?2110::	.TABLE
+	4
+	3
+	STR?334
+	STR?335
+	STR?336
+	.ENDT
+
+T?2210::	.TABLE
+	10
+	3
+	STR?337
+	STR?338
+	STR?339
+	STR?340
+	STR?341
+	STR?342
+	STR?343
+	STR?344
+	STR?345
+	.ENDT
+
+T?2310::	.TABLE
+	8
+	3
+	STR?346
+	STR?347
+	STR?348
+	STR?349
+	STR?350
+	STR?351
+	STR?352
+	.ENDT
+
+T?2410::	.TABLE
+	17
+	3
+	STR?353
+	STR?354
+	STR?355
+	STR?356
+	STR?357
+	STR?358
+	STR?359
+	STR?360
+	STR?361
+	STR?362
+	STR?363
+	STR?364
+	STR?365
+	STR?366
+	STR?367
+	STR?368
+	.ENDT
+
+T?2510::	.TABLE
+	5
+	3
+	STR?370
+	STR?371
+	STR?372
+	STR?373
+	.ENDT
+
+T?2610::	.TABLE
+	7
+	3
+	STR?374
+	STR?375
+	STR?376
+	STR?377
+	STR?378
+	STR?379
+	.ENDT
+
+T?2710::	.TABLE
+	5
+	3
+	STR?380
+	STR?381
+	STR?382
+	STR?383
+	.ENDT
+
+T?2810::	.TABLE
+	5
+	3
+	STR?384
+	STR?385
+	STR?386
+	STR?387
+	.ENDT
+
+T?2910::	.TABLE
+	9
+	3
+	STR?388
+	STR?389
+	STR?390
+	STR?391
+	STR?392
+	STR?393
+	STR?394
+	STR?395
+	.ENDT
+
+T?3010::	.TABLE
+	3
+	3
+	STR?396
+	STR?397
+	.ENDT
+
+T?3110::	.TABLE
+	3
+	3
+	STR?398
+	STR?399
+	.ENDT
+
+T?3210::	.TABLE
+	3
+	3
+	STR?400
+	STR?401
+	.ENDT
+
+T?3310::	.TABLE
+	27
+	3
+	STR?402
+	STR?403
+	STR?404
+	STR?405
+	STR?406
+	STR?407
+	STR?408
+	STR?409
+	STR?410
+	STR?411
+	STR?412
+	STR?413
+	STR?414
+	STR?415
+	STR?416
+	STR?417
+	STR?418
+	STR?419
+	STR?420
+	STR?421
+	STR?422
+	STR?423
+	STR?424
+	STR?425
+	STR?426
+	STR?427
+	.ENDT
+
+T?3410::	.TABLE
+	6
+	3
+	STR?428
+	STR?429
+	STR?430
+	STR?431
+	STR?432
+	.ENDT
+
+T?3510::	.TABLE
+	4
+	3
+	STR?433
+	STR?434
+	STR?435
+	.ENDT
+
+T?3610::	.TABLE
+	12
+	3
+	STR?436
+	STR?437
+	STR?438
+	STR?439
+	STR?440
+	STR?441
+	STR?442
+	STR?443
+	STR?444
+	STR?445
+	STR?446
+	.ENDT
+
+T?3710::	.TABLE
+	5
+	3
+	STR?447
+	STR?448
+	STR?449
+	STR?450
+	.ENDT
+
+T?3810::	.TABLE
+	8
+	3
+	STR?451
+	STR?452
+	STR?453
+	STR?454
+	STR?455
+	STR?456
+	STR?457
+	.ENDT
+
+T?3910::	.TABLE
+	9
+	3
+	STR?459
+	STR?460
+	STR?461
+	STR?462
+	STR?463
+	STR?464
+	STR?465
+	STR?466
+	.ENDT
+
+T?4010::	.TABLE
+	5
+	3
+	STR?467
+	STR?468
+	STR?469
+	STR?470
+	.ENDT
+
+T?4110::	.TABLE
+	7
+	3
+	STR?471
+	STR?472
+	STR?473
+	STR?474
+	STR?475
+	STR?476
+	.ENDT
+
+T?4210::	.TABLE
+	11
+	3
+	STR?477
+	STR?478
+	STR?479
+	STR?480
+	STR?481
+	STR?482
+	STR?483
+	STR?484
+	STR?485
+	STR?486
+	.ENDT
+
+T?4310::	.TABLE
+	13
+	3
+	STR?487
+	STR?488
+	STR?489
+	STR?490
+	STR?491
+	STR?492
+	STR?493
+	STR?494
+	STR?495
+	STR?496
+	STR?497
+	STR?498
+	.ENDT
+
+T?4410::	.TABLE
+	6
+	3
+	STR?499
+	STR?500
+	STR?501
+	STR?502
+	STR?503
+	.ENDT
+
+T?4510::	.TABLE
+	7
+	3
+	STR?504
+	STR?505
+	STR?506
+	STR?507
+	STR?508
+	STR?509
+	.ENDT
+
+T?4610::	.TABLE
+	11
+	3
+	STR?510
+	STR?511
+	STR?512
+	STR?513
+	STR?514
+	STR?515
+	STR?516
+	STR?517
+	STR?518
+	STR?519
+	.ENDT
+
+T?4710::	.TABLE
+	6
+	3
+	STR?520
+	STR?521
+	STR?522
+	STR?523
+	STR?524
+	.ENDT
+
+T?4810::	.TABLE
+	7
+	3
+	STR?525
+	STR?526
+	STR?527
+	STR?528
+	STR?529
+	STR?530
+	.ENDT
+
+T?4910::	.TABLE
+	6
+	3
+	STR?531
+	STR?532
+	STR?533
+	STR?534
+	STR?535
+	.ENDT
+
+T?5010::	.TABLE
+	7
+	3
+	STR?536
+	STR?537
+	STR?538
+	STR?539
+	STR?540
+	STR?541
+	.ENDT
+
+T?5110::	.TABLE
+	12
+	3
+	STR?542
+	STR?543
+	STR?544
+	STR?545
+	STR?546
+	STR?547
+	STR?548
+	STR?549
+	STR?550
+	STR?551
+	STR?552
+	.ENDT
+
+T?5210::	.TABLE
+	22
+	3
+	STR?553
+	STR?554
+	STR?555
+	STR?556
+	STR?557
+	STR?558
+	STR?559
+	STR?560
+	STR?561
+	STR?562
+	STR?563
+	STR?564
+	STR?565
+	STR?566
+	STR?567
+	STR?568
+	STR?569
+	STR?570
+	STR?571
+	STR?572
+	STR?573
+	.ENDT
+
+T?5310::	.TABLE
+	14
+	3
+	STR?574
+	STR?575
+	STR?576
+	STR?577
+	STR?578
+	STR?579
+	STR?580
+	STR?581
+	STR?582
+	STR?583
+	STR?584
+	STR?585
+	STR?586
+	.ENDT
+
+T?5410::	.TABLE
+	27
+	3
+	STR?587
+	STR?588
+	STR?589
+	STR?590
+	STR?591
+	STR?592
+	STR?593
+	STR?594
+	STR?595
+	STR?596
+	STR?597
+	STR?598
+	STR?599
+	STR?600
+	STR?601
+	STR?602
+	STR?603
+	STR?604
+	STR?605
+	STR?606
+	STR?607
+	STR?608
+	STR?609
+	STR?610
+	STR?611
+	STR?612
+	.ENDT
+
+T?5510::	.TABLE
+	12
+	3
+	STR?613
+	STR?614
+	STR?615
+	STR?616
+	STR?617
+	STR?618
+	STR?619
+	STR?620
+	STR?621
+	STR?622
+	STR?623
+	.ENDT
+
+T?5610::	.TABLE
+	3
+	3
+	STR?625
+	STR?626
+	.ENDT
+
+T?5710::	.TABLE
+	11
+	3
+	STR?627
+	STR?628
+	STR?629
+	STR?630
+	STR?631
+	STR?632
+	STR?633
+	STR?634
+	STR?635
+	STR?636
+	.ENDT
+
+T?5810::	.TABLE
+	9
+	3
+	STR?637
+	STR?638
+	STR?639
+	STR?640
+	STR?641
+	STR?642
+	STR?643
+	STR?644
+	.ENDT
+
+T?5910::	.TABLE
+	14
+	3
+	STR?645
+	STR?646
+	STR?647
+	STR?648
+	STR?649
+	STR?650
+	STR?651
+	STR?652
+	STR?653
+	STR?654
+	STR?655
+	STR?656
+	STR?657
+	.ENDT
+
+T?6010::	.TABLE
+	6
+	3
+	STR?658
+	STR?659
+	STR?660
+	STR?661
+	STR?662
+	.ENDT
+
+T?6110::	.TABLE
+	6
+	3
+	STR?663
+	STR?664
+	STR?665
+	STR?666
+	STR?667
+	.ENDT
+
+T?6210::	.TABLE
+	4
+	3
+	STR?668
+	STR?478
+	STR?669
+	.ENDT
+
+T?6310::	.TABLE
+	8
+	3
+	STR?670
+	STR?671
+	STR?672
+	STR?673
+	STR?674
+	STR?675
+	STR?676
+	.ENDT
+
+T?6410::	.TABLE
+	3
+	3
+	STR?678
+	STR?679
+	.ENDT
+
+T?6510::	.TABLE
+	3
+	3
+	STR?680
+	STR?681
+	.ENDT
+
+T?6610::	.TABLE
+	6
+	3
+	STR?682
+	STR?683
+	STR?684
+	STR?685
+	STR?686
+	.ENDT
+
+T?6710::	.TABLE
+	8
+	3
+	STR?687
+	STR?688
+	STR?689
+	STR?690
+	STR?691
+	STR?692
+	STR?693
+	.ENDT
+
+T?6810::	.TABLE
+	3
+	3
+	STR?694
+	STR?695
+	.ENDT
+
+T?6910::	.TABLE
+	5
+	3
+	STR?696
+	STR?697
+	STR?698
+	STR?699
+	.ENDT
+
+T?7010::	.TABLE
+	8
+	3
+	STR?700
+	STR?701
+	STR?702
+	STR?703
+	STR?704
+	STR?705
+	STR?706
+	.ENDT
+
+T?7110::	.TABLE
+	12
+	3
+	STR?707
+	STR?708
+	STR?709
+	STR?710
+	STR?711
+	STR?712
+	STR?713
+	STR?714
+	STR?715
+	STR?716
+	STR?717
+	.ENDT
+
+T?7210::	.TABLE
+	5
+	3
+	STR?718
+	STR?719
+	STR?720
+	STR?721
+	.ENDT
+
+T?7310::	.TABLE
+	3
+	3
+	STR?678
+	STR?723
+	.ENDT
+
+T?7410::	.TABLE
+	5
+	3
+	STR?680
+	STR?724
+	STR?725
+	STR?726
+	.ENDT
+
+T?7510::	.TABLE
+	9
+	3
+	STR?727
+	STR?728
+	STR?729
+	STR?730
+	STR?731
+	STR?732
+	STR?733
+	STR?734
+	.ENDT
+
+T?7610::	.TABLE
+	7
+	3
+	STR?735
+	STR?736
+	STR?729
+	STR?737
+	STR?738
+	STR?739
+	.ENDT
+
+T?7710::	.TABLE
+	5
+	3
+	STR?740
+	STR?741
+	STR?742
+	STR?743
+	.ENDT
+
+T?7810::	.TABLE
+	5
+	3
+	STR?744
+	STR?745
+	STR?746
+	STR?747
+	.ENDT
+
+T?7910::	.TABLE
+	13
+	3
+	STR?748
+	STR?749
+	STR?750
+	STR?751
+	STR?752
+	STR?753
+	STR?754
+	STR?755
+	STR?756
+	STR?757
+	STR?758
+	STR?759
+	.ENDT
+
+T?8010::	.TABLE
+	3
+	3
+	STR?678
+	STR?723
+	.ENDT
+
+T?8110::	.TABLE
+	7
+	3
+	STR?761
+	STR?762
+	STR?763
+	STR?764
+	STR?765
+	STR?766
+	.ENDT
+
+T?8210::	.TABLE
+	6
+	3
+	STR?767
+	STR?768
+	STR?769
+	STR?770
+	STR?255
+	.ENDT
+
+T?8310::	.TABLE
+	6
+	3
+	STR?735
+	STR?771
+	STR?772
+	STR?773
+	STR?774
+	.ENDT
+
+T?8410::	.TABLE
+	12
+	3
+	STR?775
+	STR?776
+	STR?777
+	STR?778
+	STR?779
+	STR?780
+	STR?781
+	STR?782
+	STR?783
+	STR?784
+	STR?785
+	.ENDT
+
+T?8510::	.TABLE
+	8
+	3
+	STR?283
+	STR?786
+	STR?787
+	STR?788
+	STR?789
+	STR?790
+	STR?791
+	.ENDT
+
+T?8610::	.TABLE
+	4
+	3
+	STR?305
+	STR?792
+	STR?793
+	.ENDT
+
+T?8710::	.TABLE
+	11
+	3
+	STR?794
+	STR?795
+	STR?796
+	STR?797
+	STR?798
+	STR?799
+	STR?800
+	STR?801
+	STR?802
+	STR?803
+	.ENDT
+
+T?8810::	.TABLE
+	6
+	3
+	STR?805
+	STR?806
+	STR?807
+	STR?808
+	STR?809
+	.ENDT
+
+T?8910::	.TABLE
+	4
+	3
+	STR?810
+	STR?811
+	STR?812
+	.ENDT
+
+T?9010::	.TABLE
+	13
+	3
+	STR?813
+	STR?814
+	STR?815
+	STR?816
+	STR?817
+	STR?818
+	STR?819
+	STR?820
+	STR?821
+	STR?822
+	STR?823
+	STR?824
+	.ENDT
+
+T?9110::	.TABLE
+	9
+	3
+	STR?825
+	STR?826
+	STR?827
+	STR?828
+	STR?829
+	STR?830
+	STR?831
+	STR?832
+	.ENDT
+
+T?9210::	.TABLE
+	6
+	3
+	STR?833
+	STR?834
+	STR?835
+	STR?836
+	STR?837
+	.ENDT
+
+T?9310::	.TABLE
+	8
+	3
+	STR?838
+	STR?839
+	STR?840
+	STR?841
+	STR?842
+	STR?843
+	STR?844
+	.ENDT
+
+T?9410::	.TABLE
+	6
+	3
+	STR?845
+	STR?846
+	STR?847
+	STR?848
+	STR?849
+	.ENDT
+
+T?9510::	.TABLE
+	7
+	3
+	STR?850
+	STR?851
+	STR?852
+	STR?853
+	STR?854
+	STR?855
+	.ENDT
+
+T?9610::	.TABLE
+	3
+	3
+	STR?678
+	STR?857
+	.ENDT
+
+T?9710::	.TABLE
+	6
+	3
+	STR?680
+	STR?858
+	STR?859
+	STR?860
+	STR?861
+	.ENDT
+
+T?9810::	.TABLE
+	9
+	3
+	STR?862
+	STR?863
+	STR?864
+	STR?865
+	STR?866
+	STR?867
+	STR?868
+	STR?869
+	.ENDT
+
+T?9910::	.TABLE
+	4
+	3
+	STR?870
+	STR?294
+	STR?871
+	.ENDT
+
+T?10010::	.TABLE
+	9
+	3
+	STR?872
+	STR?873
+	STR?874
+	STR?875
+	STR?876
+	STR?877
+	STR?878
+	STR?879
+	.ENDT
+
+T?10110::	.TABLE
+	5
+	3
+	STR?880
+	STR?881
+	STR?882
+	STR?883
+	.ENDT
+
+T?10210::	.TABLE
+	5
+	3
+	STR?885
+	STR?886
+	STR?887
+	STR?888
+	.ENDT
+
+T?10310::	.TABLE
+	12
+	3
+	STR?889
+	STR?314
+	STR?890
+	STR?891
+	STR?892
+	STR?893
+	STR?894
+	STR?895
+	STR?896
+	STR?897
+	STR?898
+	.ENDT
+
+T?10410::	.TABLE
+	7
+	3
+	STR?899
+	STR?900
+	STR?901
+	STR?902
+	STR?903
+	STR?904
+	.ENDT
+
+T?10510::	.TABLE
+	15
+	3
+	STR?905
+	STR?906
+	STR?907
+	STR?908
+	STR?909
+	STR?910
+	STR?911
+	STR?912
+	STR?913
+	STR?914
+	STR?915
+	STR?916
+	STR?917
+	STR?918
+	.ENDT
+
+T?10610::	.TABLE
+	7
+	3
+	STR?919
+	STR?920
+	STR?921
+	STR?922
+	STR?923
+	STR?924
+	.ENDT
+
+T?10710::	.TABLE
+	17
+	3
+	STR?925
+	STR?926
+	STR?927
+	STR?928
+	STR?929
+	STR?930
+	STR?931
+	STR?932
+	STR?933
+	STR?934
+	STR?935
+	STR?936
+	STR?937
+	STR?938
+	STR?939
+	STR?940
+	.ENDT
+
+T?10810::	.TABLE
+	10
+	3
+	STR?941
+	STR?942
+	STR?943
+	STR?944
+	STR?945
+	STR?946
+	STR?947
+	STR?948
+	STR?949
+	.ENDT
+
+T?10910::	.TABLE
+	10
+	3
+	STR?950
+	STR?478
+	STR?951
+	STR?952
+	STR?953
+	STR?954
+	STR?955
+	STR?956
+	STR?957
+	.ENDT
+
+T?11010::	.TABLE
+	7
+	3
+	STR?958
+	STR?959
+	STR?960
+	STR?961
+	STR?962
+	STR?963
+	.ENDT
+
+T?11110::	.TABLE
+	3
+	3
+	STR?964
+	STR?965
+	.ENDT
+
+T?11210::	.TABLE
+	24
+	3
+	STR?967
+	STR?968
+	STR?969
+	STR?970
+	STR?971
+	STR?972
+	STR?973
+	STR?974
+	STR?975
+	STR?976
+	STR?977
+	STR?978
+	STR?979
+	STR?980
+	STR?981
+	STR?982
+	STR?983
+	STR?984
+	STR?985
+	STR?986
+	STR?987
+	STR?988
+	STR?989
+	.ENDT
+
+T?11310::	.TABLE
+	71
+	3
+	STR?990
+	STR?991
+	STR?992
+	STR?993
+	STR?994
+	STR?995
+	STR?996
+	STR?997
+	STR?998
+	STR?999
+	STR?1000
+	STR?1001
+	STR?1002
+	STR?1003
+	STR?1004
+	STR?1005
+	STR?1006
+	STR?1007
+	STR?1008
+	STR?1009
+	STR?1010
+	STR?1011
+	STR?1012
+	STR?1013
+	STR?1014
+	STR?1015
+	STR?1016
+	STR?1017
+	STR?1018
+	STR?1019
+	STR?1020
+	STR?1021
+	STR?1022
+	STR?1023
+	STR?1024
+	STR?1025
+	STR?1026
+	STR?1027
+	STR?1028
+	STR?1029
+	STR?1030
+	STR?1031
+	STR?1032
+	STR?1033
+	STR?1034
+	STR?1035
+	STR?1036
+	STR?1037
+	STR?1038
+	STR?1039
+	STR?1040
+	STR?1041
+	STR?1042
+	STR?1043
+	STR?1044
+	STR?1045
+	STR?1046
+	STR?1047
+	STR?1048
+	STR?1049
+	STR?1050
+	STR?1051
+	STR?1052
+	STR?1053
+	STR?1054
+	STR?1055
+	STR?1056
+	STR?1057
+	STR?1058
+	STR?1059
+	.ENDT
+
+T?11410::	.TABLE
+	42
+	3
+	STR?1060
+	STR?1061
+	STR?1062
+	STR?1063
+	STR?1064
+	STR?1065
+	STR?1066
+	STR?1067
+	STR?1068
+	STR?1069
+	STR?1070
+	STR?1071
+	STR?1072
+	STR?1073
+	STR?1074
+	STR?1075
+	STR?1076
+	STR?1077
+	STR?1078
+	STR?1079
+	STR?1080
+	STR?1081
+	STR?1082
+	STR?1083
+	STR?1084
+	STR?1085
+	STR?1086
+	STR?1087
+	STR?1088
+	STR?1089
+	STR?1090
+	STR?1091
+	STR?1092
+	STR?1093
+	STR?1094
+	STR?1095
+	STR?1096
+	STR?1097
+	STR?1098
+	STR?1099
+	STR?1100
+	.ENDT
+
+T?11510::	.TABLE
+	19
+	3
+	STR?1101
+	STR?1102
+	STR?1103
+	STR?1104
+	STR?1105
+	STR?1106
+	STR?1107
+	STR?1108
+	STR?1109
+	STR?1110
+	STR?1111
+	STR?1112
+	STR?1113
+	STR?1114
+	STR?1115
+	STR?1116
+	STR?1117
+	STR?1118
+	.ENDT
+
+
+; END OF IMPURENESS
+
+IMPURE::
+
+
+
+; VERB TABLE IS DEFINED HERE
+
+VTBL::	.TABLE
+	ST?KISS
+	ST?I
+	ST?SKIP
+	ST?FRIPPING
+	ST?PUT
+	ST?RAPE
+	ST?VERBOSE
+	ST?WALK
+	ST?QUIT
+	ST?FIND
+	ST?HEAR
+	ST?YES
+	ST?UNLOCK
+	ST?READ
+	ST?SAY
+	ST?JUMP
+	ST?POUR
+	ST?WAIT
+	ST?TAKE
+	ST?NO
+	ST?APPRECIAT
+	ST?COUNT
+	ST?DOZE
+	ST?RAISE
+	ST?ENJOY
+	ST?FOLLOW
+	ST?TYPE
+	ST?REFUSE
+	ST?$REFRESH
+	ST?VERSION
+	ST?CARVE
+	ST?LIGHT
+	ST?LIE
+	ST?MOVE
+	ST?BLOCK
+	ST?OPEN
+	ST?TASTE
+	ST?TOUCH
+	ST?WHY
+	ST?APPROACH
+	ST?SHOOT
+	ST?KNOCK
+	ST?INVENT
+	ST?PICK
+	ST?BOARD
+	ST?ESCAPE
+	ST?STAND
+	ST?UNDRESS
+	ST?LISTEN
+	ST?TIE
+	ST?WHERE
+	ST?SHOW
+	ST?SAVE
+	ST?HELP
+	ST?TELL
+	ST?THROW
+	ST?FEED
+	ST?DRESS
+	ST?LOWER
+	ST?HIDE
+	ST?SHAKE
+	ST?MY
+	ST?ATTACK
+	ST?PLANT
+	ST?ENTER
+	ST?SEARCH
+	ST?WEAR
+	ST?PAY
+	ST?DISEMBARK
+	ST?SWITCH
+	ST?PLUG
+	ST?UNPLUG
+	ST?UNTIE
+	ST?CUT
+	ST?WASH
+	ST?UNSCRIPT
+	ST?HANG
+	ST?BRUSH
+	ST?PUSH
+	ST?SUPER
+	ST?SIT
+	ST?APPLAUD
+	ST?ORDER
+	ST?DIG
+	ST?DISROBE
+	ST?REPLACE
+	ST?SCORE
+	ST?DANGLE
+	ST?COVER
+	ST?DEMOLISH
+	ST?CONNECT
+	ST?LOOK
+	ST?DROP
+	ST?RELAX
+	ST?KNEEL
+	ST?LEAVE
+	ST?HAND
+	ST?WATER
+	ST?SCRIPT
+	ST?SPIN
+	ST?$VERIFY
+	ST?DESCEND
+	ST?EXTINGUISH
+	ST?RESTART
+	ST?REPAIR
+	ST?SMELL
+	ST?BRIEF
+	ST?DRAPE
+	ST?PROTEST
+	ST?DIAGNOSE
+	ST?SLEEP
+	ST?SMILE
+	ST?WAKE
+	ST?DRINK
+	ST?REMOVE
+	ST?ANSWER
+	ST?HITCHHIKE
+	ST?WHAT
+	ST?YELL
+	ST?PHONE
+	ST?LOCK
+	ST?KICK
+	ST?BITE
+	ST?POINT
+	ST?START
+	ST?WHO
+	ST?IDIOT
+	ST?MAKE
+	ST?PANIC
+	ST?RESTORE
+	ST?CLOSE
+	ST?FOOTNOTE
+	ST?SLIDE
+	ST?WAVE
+	ST?ADDRESS
+	ST?EXIT
+	ST?EXAMINE
+	ST?EAT
+	ST?FILL
+	ST?CLIMB
+	ST?THANK
+	ST?ASK
+	ST?HELLO
+	.ENDT
+
+; SYNTAX DEFINITION TABLES ARE DEFINED HERE
+
+ST?KISS::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?KISS
+	.ENDT
+
+ST?I::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?I-AM
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?INVENTORY
+	.ENDT
+
+ST?SKIP::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SKIP
+	.ENDT
+
+ST?FRIPPING::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FRIPPING
+	.ENDT
+
+ST?PUT::	.TABLE
+	.BYTE 12	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?BEHIND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUT-BEHIND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE WEARBIT
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE 0
+	.BYTE V?WEAR
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUT-UNDER
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE
+	.BYTE 0
+	.BYTE V?DROP
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ACROSS
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-ON
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-ON
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AROUND
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-ON
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-ON
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-ON
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?BEFORE
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-IN-FRONT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-IN-FRONT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT
+	.ENDT
+
+ST?RAPE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RAPE
+	.ENDT
+
+ST?VERBOSE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?VERBOSE
+	.ENDT
+
+ST?WALK::	.TABLE
+	.BYTE 13	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AWAY
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAVE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK-TO
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?BEHIND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK-AROUND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AROUND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK-AROUND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK-AROUND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK-AROUND
+	.ENDT
+
+ST?QUIT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?QUIT
+	.ENDT
+
+ST?FIND::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FIND
+	.ENDT
+
+ST?HEAR::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE DARKBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LISTEN
+	.ENDT
+
+ST?YES::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?YES
+	.ENDT
+
+ST?UNLOCK::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE V?UNLOCK
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?UNLOCK
+	.ENDT
+
+ST?READ::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE READBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+STAKE
+	.BYTE 0
+	.BYTE V?READ
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?THROUGH
+	.BYTE READBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+STAKE
+	.BYTE 0
+	.BYTE V?READ
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE READBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+STAKE
+	.BYTE 0
+	.BYTE V?READ
+	.ENDT
+
+ST?SAY::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SAY
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SAY-NAME
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?TELL
+	.ENDT
+
+ST?JUMP::	.TABLE
+	.BYTE 8	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ACROSS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAP
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAP
+	.ENDT
+
+ST?POUR::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 0
+	.BYTE V?POUR
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 0
+	.BYTE V?POUR
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 0
+	.BYTE V?POUR
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 0
+	.BYTE V?POUR
+	.ENDT
+
+ST?WAIT::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WAIT-FOR
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WAIT
+	.ENDT
+
+ST?TAKE::	.TABLE
+	.BYTE 13	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE WORNBIT
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE 0
+	.BYTE V?TAKE-OFF
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FROM
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OFF
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SC+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OUT
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SC+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DRUNK
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?GET-DRUNK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UNDRESSED
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?GET-UNDRESSED
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DRESSED
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?GET-DRESSED
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STAND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-ON
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG
+	.BYTE 0
+	.BYTE V?DISEMBARK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?BOARD
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SOG+SIR+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.ENDT
+
+ST?NO::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?NO
+	.ENDT
+
+ST?APPRECIAT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?APPRECIATE
+	.ENDT
+
+ST?COUNT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?COUNT
+	.ENDT
+
+ST?DOZE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DOZE
+	.ENDT
+
+ST?RAISE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RAISE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RAISE
+	.ENDT
+
+ST?ENJOY::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ENJOY
+	.ENDT
+
+ST?FOLLOW::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FOLLOW
+	.ENDT
+
+ST?TYPE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TYPE-ON
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TYPE
+	.ENDT
+
+ST?REFUSE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?REFUSE
+	.ENDT
+
+ST?$REFRESH::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$REFRESH
+	.ENDT
+
+ST?VERSION::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?VERSION
+	.ENDT
+
+ST?CARVE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE V?CARVE-WITH
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CARVE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CARVE
+	.ENDT
+
+ST?LIGHT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE LIGHTBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?LAMP-ON
+	.ENDT
+
+ST?LIE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?BEFORE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?BLOCK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LIE-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LIE-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LIE-DOWN
+	.ENDT
+
+ST?MOVE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TOGETHER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PULL-TOGETHER
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FLIPSWITCH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?MOVE
+	.ENDT
+
+ST?BLOCK::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?BLOCK-WITH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?BLOCK
+	.ENDT
+
+ST?OPEN::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE DOORBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE SOG+SIR+SH+SC+SHAVE
+	.BYTE V?OPEN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE DOORBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?OPEN
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE DOORBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?OPEN
+	.ENDT
+
+ST?TASTE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE DARKBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TASTE
+	.ENDT
+
+ST?TOUCH::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RUB
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE DARKBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RUB
+	.ENDT
+
+ST?WHY::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WHY
+	.ENDT
+
+ST?APPROACH::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WALK-TO
+	.ENDT
+
+ST?SHOOT::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE 0
+	.BYTE V?SSHOOT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE V?SHOOT
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SHOOT
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SHOOT
+	.ENDT
+
+ST?KNOCK::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?KILL
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?KNOCK
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?KNOCK
+	.ENDT
+
+ST?INVENT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?INVENTORY
+	.ENDT
+
+ST?PICK::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SOG+SMANY
+	.BYTE 0
+	.BYTE V?PICK-UP
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PICK
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PICK
+	.ENDT
+
+ST?BOARD::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?BOARD
+	.ENDT
+
+ST?ESCAPE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ESCAPE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ESCAPE
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ESCAPE
+	.ENDT
+
+ST?STAND::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STAND-ON
+	.BYTE 1	;OBJECTS
+	.BYTE PR?BEFORE
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STAND-BEFORE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STAND-ON
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STAND
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STAND
+	.ENDT
+
+ST?UNDRESS::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?GET-UNDRESSED
+	.ENDT
+
+ST?LISTEN::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE DARKBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LISTEN
+	.ENDT
+
+ST?TIE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PLUG
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AROUND
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-ON
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TOGETHER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TIE-TOGETHER
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TIE
+	.ENDT
+
+ST?WHERE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WHERE
+	.ENDT
+
+ST?SHOW::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE
+	.BYTE V?SSHOW
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE SH+SMANY+SHAVE
+	.BYTE 0
+	.BYTE V?SHOW
+	.ENDT
+
+ST?SAVE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SAVE-SOMETHING
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SAVE
+	.ENDT
+
+ST?HELP::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE LOCATION
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HINTS-NO
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SAVE-SOMETHING
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HINTS
+	.ENDT
+
+ST?TELL::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TELL-NAME
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TELL-TIME
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ABOUT
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TELL-ABOUT
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?TELL
+	.ENDT
+
+ST?THROW::	.TABLE
+	.BYTE 10	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROW-IN-TOWEL
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 0
+	.BYTE V?THROW
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE SOG+SIR
+	.BYTE V?THROW
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 0
+	.BYTE V?THROW-OFF
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 0
+	.BYTE V?THROW-OFF
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE SOG+SIR
+	.BYTE V?THROW
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE SOG+SIR
+	.BYTE V?THROW
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE SH+SC
+	.BYTE 0
+	.BYTE V?THROW
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FLIPSWITCH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 0
+	.BYTE V?THROW
+	.ENDT
+
+ST?FEED::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG
+	.BYTE SMANY+SH+SHAVE
+	.BYTE V?SGIVE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE SMANY+SH+SHAVE
+	.BYTE SOG
+	.BYTE V?GIVE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FEED
+	.ENDT
+
+ST?DRESS::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?GET-DRESSED
+	.ENDT
+
+ST?LOWER::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOWER
+	.ENDT
+
+ST?HIDE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?BEHIND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HIDE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HIDE
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HIDE
+	.ENDT
+
+ST?SHAKE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SHAKE-WITH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SHAKE
+	.ENDT
+
+ST?MY::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?MY-NAME
+	.ENDT
+
+ST?ATTACK::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE SH+SC+SHAVE
+	.BYTE V?KILL
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?KILL
+	.ENDT
+
+ST?PLANT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PLANT
+	.ENDT
+
+ST?ENTER::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ENTER
+	.ENDT
+
+ST?SEARCH::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FIND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SEARCH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SEARCH
+	.ENDT
+
+ST?WEAR::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE WEARBIT
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE 0
+	.BYTE V?WEAR
+	.ENDT
+
+ST?PAY::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?BUY
+	.ENDT
+
+ST?DISEMBARK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?DISEMBARK
+	.ENDT
+
+ST?SWITCH::	.TABLE
+	.BYTE 9	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FLIPSWITCH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE LIGHTBIT
+	.BYTE 0
+	.BYTE STAKE
+	.BYTE 0
+	.BYTE V?LAMP-OFF
+	.BYTE 2	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FLIPSWITCH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE LIGHTBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LAMP-ON
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE V?TURN
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TURN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AROUND
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TURN
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FLIPSWITCH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?TURN
+	.ENDT
+
+ST?PLUG::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE PR?IN
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PLUG
+	.BYTE 2	;OBJECTS
+	.BYTE PR?IN
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PLUG
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PLUG
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PLUG
+	.ENDT
+
+ST?UNPLUG::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?UNPLUG
+	.ENDT
+
+ST?UNTIE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR+SH+SC
+	.BYTE 0
+	.BYTE V?UNTIE
+	.ENDT
+
+ST?CUT::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE PR?THROUGH
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SC+SH
+	.BYTE V?CUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SC+SH
+	.BYTE V?CUT
+	.ENDT
+
+ST?WASH::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CLEAN
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CLEAN
+	.ENDT
+
+ST?UNSCRIPT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?UNSCRIPT
+	.ENDT
+
+ST?HANG::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HANG
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HANG
+	.ENDT
+
+ST?BRUSH::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE V?BRUSH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?BRUSH
+	.ENDT
+
+ST?PUSH::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUT-UNDER
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 0
+	.BYTE V?PUSH
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FLIPSWITCH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUSH
+	.ENDT
+
+ST?SUPER::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SUPERBRIEF
+	.ENDT
+
+ST?SIT::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?BOARD
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?SIT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-ON
+	.ENDT
+
+ST?APPLAUD::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?APPLAUD
+	.ENDT
+
+ST?ORDER::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?BUY
+	.ENDT
+
+ST?DIG::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DIG
+	.BYTE 1	;OBJECTS
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DIG
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DIG
+	.ENDT
+
+ST?DISROBE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?GET-UNDRESSED
+	.ENDT
+
+ST?REPLACE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?REPLACE
+	.ENDT
+
+ST?SCORE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SCORE
+	.ENDT
+
+ST?DANGLE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT
+	.ENDT
+
+ST?COVER::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE V?SPUT-ON
+	.ENDT
+
+ST?DEMOLISH::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?KILL
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+STAKE
+	.BYTE V?MUNG
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?MUNG
+	.ENDT
+
+ST?CONNECT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PLUG
+	.ENDT
+
+ST?LOOK::	.TABLE
+	.BYTE 14	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CHASTISE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FIND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EXAMINE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?LOOK-INSIDE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?BEHIND
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-BEHIND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-UNDER
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-INSIDE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-INSIDE
+	.BYTE 2	;OBJECTS
+	.BYTE PR?AT
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EXAMINE-THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE DARKBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?EXAMINE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AROUND
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LOOK
+	.ENDT
+
+ST?DROP::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-ON
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?BEFORE
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-IN-FRONT
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY+SHAVE
+	.BYTE 0
+	.BYTE V?DROP
+	.ENDT
+
+ST?RELAX::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RELAX
+	.ENDT
+
+ST?KNEEL::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?KNEEL
+	.ENDT
+
+ST?LEAVE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAVE
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LEAVE
+	.ENDT
+
+ST?HAND::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?GIVE-UP
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SOG
+	.BYTE SMANY+SH+SHAVE
+	.BYTE V?SGIVE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE SMANY+SH+SHAVE
+	.BYTE SOG
+	.BYTE V?GIVE
+	.ENDT
+
+ST?WATER::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SHAVE
+	.BYTE V?WATER
+	.ENDT
+
+ST?SCRIPT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SCRIPT
+	.ENDT
+
+ST?SPIN::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SPIN
+	.ENDT
+
+ST?$VERIFY::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$VERIFY
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?$VERIFY
+	.ENDT
+
+ST?DESCEND::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-DOWN
+	.ENDT
+
+ST?EXTINGUISH::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ONBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LAMP-OFF
+	.ENDT
+
+ST?RESTART::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RESTART
+	.ENDT
+
+ST?REPAIR::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?REPAIR
+	.ENDT
+
+ST?SMELL::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE DARKBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SMELL
+	.ENDT
+
+ST?BRIEF::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?BRIEF
+	.ENDT
+
+ST?DRAPE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-ON
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AROUND
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-ON
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE 0
+	.BYTE V?PUT-ON
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SMANY
+	.BYTE V?SPUT-ON
+	.ENDT
+
+ST?PROTEST::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PROTEST
+	.ENDT
+
+ST?DIAGNOSE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?DIAGNOSE
+	.ENDT
+
+ST?SLEEP::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 0
+	.BYTE V?BOARD
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SIR+SOG
+	.BYTE 0
+	.BYTE V?BOARD
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SLEEP
+	.ENDT
+
+ST?SMILE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SMILE
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?SMILE
+	.ENDT
+
+ST?WAKE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ALARM
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ALARM
+	.ENDT
+
+ST?DRINK::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FROM
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 0
+	.BYTE V?DRINK-FROM
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE DRINKBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?DRINK
+	.ENDT
+
+ST?REMOVE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FROM
+	.BYTE TAKEBIT
+	.BYTE 0
+	.BYTE SIR+SC+SMANY
+	.BYTE 0
+	.BYTE V?TAKE
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE WORNBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?REMOVE
+	.ENDT
+
+ST?ANSWER::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?REPLY
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?REPLY
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ANSWER
+	.ENDT
+
+ST?HITCHHIKE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HITCHHIKE
+	.ENDT
+
+ST?WHAT::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WHAT-TIME
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ABOUT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WHAT-ABOUT
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WHAT
+	.ENDT
+
+ST?YELL::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?YELL
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?YELL
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?YELL
+	.ENDT
+
+ST?PHONE::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CALL-WITH
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CALL-WITH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?CALL
+	.ENDT
+
+ST?LOCK::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?WITH
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE STAKE
+	.BYTE V?LOCK
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?LOCK
+	.ENDT
+
+ST?KICK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?KICK
+	.ENDT
+
+ST?BITE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?BITE
+	.ENDT
+
+ST?POINT::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STEER
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?STEER
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?POINT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?POINT
+	.ENDT
+
+ST?START::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?LAMP-ON
+	.ENDT
+
+ST?WHO::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WHO
+	.ENDT
+
+ST?IDIOT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?IDIOT
+	.ENDT
+
+ST?MAKE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?MAKE
+	.ENDT
+
+ST?PANIC::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PANIC
+	.ENDT
+
+ST?RESTORE::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?RESTORE
+	.ENDT
+
+ST?CLOSE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OFF
+	.BYTE 0
+	.BYTE LIGHTBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR+STAKE
+	.BYTE 0
+	.BYTE V?LAMP-OFF
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE DOORBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?CLOSE
+	.ENDT
+
+ST?FOOTNOTE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FOOTNOTE
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FOOTNOTE
+	.ENDT
+
+ST?SLIDE::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?UNDER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUT-UNDER
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?PUSH
+	.ENDT
+
+ST?WAVE::	.TABLE
+	.BYTE 4	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?TO
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WAVE-AT
+	.BYTE 1	;OBJECTS
+	.BYTE PR?AT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WAVE-AT
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?WAVE-AT
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC
+	.BYTE 0
+	.BYTE V?WAVE
+	.ENDT
+
+ST?ADDRESS::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE SIR
+	.BYTE 0
+	.BYTE V?TELL
+	.ENDT
+
+ST?EXIT::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EXIT
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EXIT
+	.ENDT
+
+ST?EXAMINE::	.TABLE
+	.BYTE 5	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?FOR
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FIND
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SIR+SOG
+	.BYTE 0
+	.BYTE V?LOOK-INSIDE
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SH+SC+SIR+SOG
+	.BYTE 0
+	.BYTE V?LOOK-INSIDE
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?EXAMINE-THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE DARKBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?EXAMINE
+	.ENDT
+
+ST?EAT::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE EATBIT
+	.BYTE 0
+	.BYTE SH+SC+SOG+SIR
+	.BYTE 0
+	.BYTE V?EAT
+	.ENDT
+
+ST?FILL::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?FILL
+	.ENDT
+
+ST?CLIMB::	.TABLE
+	.BYTE 7	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE PR?THROUGH
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THROUGH
+	.BYTE 1	;OBJECTS
+	.BYTE PR?IN
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?BOARD
+	.BYTE 1	;OBJECTS
+	.BYTE PR?OVER
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-OVER
+	.BYTE 1	;OBJECTS
+	.BYTE PR?DOWN
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-DOWN
+	.BYTE 1	;OBJECTS
+	.BYTE PR?UP
+	.BYTE 0
+	.BYTE RLANDBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-UP
+	.BYTE 1	;OBJECTS
+	.BYTE PR?ON
+	.BYTE 0
+	.BYTE VEHBIT
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-ON
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE SOG+SIR
+	.BYTE 0
+	.BYTE V?CLIMB-FOO
+	.ENDT
+
+ST?THANK::	.TABLE
+	.BYTE 1	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?THANK
+	.ENDT
+
+ST?ASK::	.TABLE
+	.BYTE 3	;NUMBER OF SYNTAXES
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?FOR
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ASK-FOR
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ON
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ASK-ABOUT
+	.BYTE 2	;OBJECTS
+	.BYTE 0
+	.BYTE PR?ABOUT
+	.BYTE ACTORBIT
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?ASK-ABOUT
+	.ENDT
+
+ST?HELLO::	.TABLE
+	.BYTE 2	;NUMBER OF SYNTAXES
+	.BYTE 1	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HELLO
+	.BYTE 0	;OBJECTS
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE 0
+	.BYTE V?HELLO
+	.ENDT
+
+
+; THE ACTION CALLING TABLE IS DEFINED HERE
+
+ATBL::	.TABLE
+	V-VERBOSE
+	V-BRIEF
+	V-SUPERBRIEF
+	V-DIAGNOSE
+	V-INVENTORY
+	V-I-AM
+	V-QUIT
+	V-RESTART
+	V-RESTORE
+	V-SAVE
+	V-SCORE
+	V-SCRIPT
+	V-UNSCRIPT
+	V-VERSION
+	V-$VERIFY
+	V-$REFRESH
+	V-TELL
+	V-ANSWER
+	V-REPLY
+	V-APPLAUD
+	V-APPRECIATE
+	V-WALK-TO
+	V-ASK-ABOUT
+	V-ASK-FOR
+	V-KILL
+	V-BITE
+	V-BLOCK
+	V-BLOCK-WITH
+	V-BOARD
+	V-BRUSH
+	V-BUY
+	V-CARVE
+	V-CARVE-WITH
+	V-CLIMB-FOO
+	V-CLIMB-ON
+	V-CLIMB-UP
+	V-CLIMB-DOWN
+	V-CLIMB-OVER
+	V-THROUGH
+	V-CLOSE
+	V-LAMP-OFF
+	V-PLUG
+	V-SPUT-ON
+	V-COUNT
+	V-CUT
+	V-MUNG
+	V-PUT
+	V-DIG
+	V-DISEMBARK
+	V-GET-UNDRESSED
+	V-DOZE
+	V-GET-DRESSED
+	V-DRINK
+	V-DRINK-FROM
+	V-DROP
+	V-PUT-IN-FRONT
+	V-PUT-ON
+	V-EAT
+	V-ENJOY
+	V-ENTER
+	V-EXIT
+	V-ESCAPE
+	V-EXAMINE
+	V-EXAMINE-THROUGH
+	V-LOOK-INSIDE
+	V-FIND
+	V-FEED
+	V-GIVE
+	V-SGIVE
+	V-FILL
+	V-FOLLOW
+	V-FOOTNOTE
+	V-FRIPPING
+	V-GIVE-UP
+	V-HANG
+	V-LISTEN
+	V-HELLO
+	V-HIDE
+	V-HINTS
+	V-SAVE-SOMETHING
+	V-HINTS-NO
+	V-HITCHHIKE
+	V-IDIOT
+	V-LEAP
+	V-KICK
+	V-KISS
+	V-KNEEL
+	V-KNOCK
+	V-LEAVE
+	V-LIE-DOWN
+	V-LAMP-ON
+	V-LOCK
+	V-LOOK
+	V-LOOK-DOWN
+	V-LOOK-UP
+	V-LOOK-UNDER
+	V-LOOK-BEHIND
+	V-CHASTISE
+	V-LOWER
+	V-MAKE
+	V-MOVE
+	V-FLIPSWITCH
+	V-PULL-TOGETHER
+	V-MY-NAME
+	V-NO
+	V-OPEN
+	V-PANIC
+	V-CALL
+	V-CALL-WITH
+	V-PICK
+	V-PICK-UP
+	V-PLANT
+	V-POINT
+	V-STEER
+	V-POUR
+	V-PROTEST
+	V-PUSH
+	V-PUT-UNDER
+	V-WEAR
+	V-PUT-BEHIND
+	V-RAISE
+	V-RAPE
+	V-READ
+	V-REFUSE
+	V-RELAX
+	V-REMOVE
+	V-TAKE
+	V-REPAIR
+	V-REPLACE
+	V-SAY-NAME
+	V-SAY
+	V-SEARCH
+	V-SHAKE
+	V-SHAKE-WITH
+	V-SHOOT
+	V-SSHOOT
+	V-SHOW
+	V-SSHOW
+	V-SIT
+	V-SKIP
+	V-SLEEP
+	V-SMELL
+	V-SMILE
+	V-SPIN
+	V-STAND
+	V-STAND-ON
+	V-STAND-BEFORE
+	V-TURN
+	V-GET-DRUNK
+	V-TAKE-OFF
+	V-TASTE
+	V-TELL-ABOUT
+	V-TELL-TIME
+	V-TELL-NAME
+	V-THANK
+	V-THROW
+	V-THROW-OFF
+	V-THROW-IN-TOWEL
+	V-TIE
+	V-TIE-TOGETHER
+	V-RUB
+	V-TYPE
+	V-TYPE-ON
+	V-UNLOCK
+	V-UNPLUG
+	V-UNTIE
+	V-WAIT
+	V-WAIT-FOR
+	V-ALARM
+	V-WALK-AROUND
+	V-WALK
+	V-CLEAN
+	V-WATER
+	V-WAVE
+	V-WAVE-AT
+	V-WHAT
+	V-WHAT-ABOUT
+	V-WHAT-TIME
+	V-WHERE
+	V-WHO
+	V-WHY
+	V-YELL
+	V-YES
+	.ENDT
+
+; THE PREACTION CALLING TABLE IS DEFINED HERE
+
+PATBL::	.TABLE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-BOARD
+	0
+	0
+	PRE-CARVE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-PUT
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-DROP
+	PRE-GIVE
+	PRE-PUT
+	0
+	0
+	0
+	0
+	0
+	PRE-READ
+	PRE-READ
+	0
+	0
+	0
+	PRE-GIVE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-READ
+	PRE-READ
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-TAKE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-READ
+	0
+	0
+	0
+	PRE-TAKE
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	PRE-THROW
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	0
+	.ENDT
+
+
+; PREPOSITION TABLE IS DEFINED HERE
+
+PRTBL::	.TABLE
+	.WORD 24
+	W?AWAY
+	PR?AWAY
+	W?DRUNK
+	PR?DRUNK
+	W?UNDRESSED
+	PR?UNDRESSED
+	W?DRESSED
+	PR?DRESSED
+	W?TOGETHER
+	PR?TOGETHER
+	W?AROUND
+	PR?AROUND
+	W?AT
+	PR?AT
+	W?OUT
+	PR?OUT
+	W?ACROSS
+	PR?ACROSS
+	W?BEHIND
+	PR?BEHIND
+	W?UNDER
+	PR?UNDER
+	W?BEFORE
+	PR?BEFORE
+	W?FROM
+	PR?FROM
+	W?OFF
+	PR?OFF
+	W?THROUGH
+	PR?THROUGH
+	W?OVER
+	PR?OVER
+	W?DOWN
+	PR?DOWN
+	W?UP
+	PR?UP
+	W?IN
+	PR?IN
+	W?WITH
+	PR?WITH
+	W?FOR
+	PR?FOR
+	W?ON
+	PR?ON
+	W?ABOUT
+	PR?ABOUT
+	W?TO
+	PR?TO
+	.ENDT
+
+
+; VOCABULARY TABLE IS HERE
+
+VOCAB::	.TABLE
+	.BYTE 3
+	.BYTE 46
+	.BYTE 44
+	.BYTE 34
+	.BYTE 9
+	1019
+W?$REFRESH::	.ZWORD "$refresh"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$REFRESH
+	.BYTE 0
+W?$VER::	.ZWORD "$ver"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$VERIFY
+	.BYTE 0
+W?$VERIFY::	.ZWORD "$verify"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?$VERIFY
+	.BYTE 0
+W?PERIOD::	.ZWORD "."
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?COMMA::	.ZWORD ","
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?'N::	.ZWORD "'n"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?QUOTE::	.ZWORD """"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?A::	.ZWORD "a"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?ABOUT::	.ZWORD "about"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?ABOUT
+	.BYTE 0
+W?ACROSS::	.ZWORD "across"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?ACROSS
+	.BYTE 0
+W?ACTIVATE::	.ZWORD "activate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?START
+	.BYTE 0
+W?ADAMS::	.ZWORD "adams"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ADDRESS::	.ZWORD "address"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ADDRESS
+	.BYTE 0
+W?ADVANCED::	.ZWORD "advanced"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AFT::	.ZWORD "aft"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 59
+	.BYTE 0
+W?AGAIN::	.ZWORD "again"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?AGAINST::	.ZWORD "against"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?BEFORE
+	.BYTE 0
+W?AGENCY::	.ZWORD "agency"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AIR::	.ZWORD "air"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AIRLOCK::	.ZWORD "airlock"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ALCOHOL::	.ZWORD "alcohol"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ALIEN::	.ZWORD "alien"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ALL::	.ZWORD "all"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?ALONG::	.ZWORD "along"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?AROUND
+	.BYTE 0
+W?AM::	.ZWORD "am"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?AN::	.ZWORD "an"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?ANALGESIC::	.ZWORD "analgesic"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AND::	.ZWORD "and"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?ANDROID::	.ZWORD "android"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ANSWER::	.ZWORD "answer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ANSWER
+	.BYTE 0
+W?ANTI-BUGB::	.ZWORD "anti-bugb"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?APARTMENT::	.ZWORD "apartment"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?APPETIZER::	.ZWORD "appetizer"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?APPLAUD::	.ZWORD "applaud"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?APPLAUD
+	.BYTE 0
+W?APPRECIAT::	.ZWORD "appreciat"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?APPRECIAT
+	.BYTE 0
+W?APPROACH::	.ZWORD "approach"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?APPROACH
+	.BYTE 0
+W?APPROACHI::	.ZWORD "approachi"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ARE::	.ZWORD "are"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?AREA::	.ZWORD "area"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ARGUE::	.ZWORD "argue"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PROTEST
+	.BYTE 0
+W?AROUND::	.ZWORD "around"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?AROUND
+	.BYTE 0
+W?ARTHUR::	.ZWORD "arthur"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ASK::	.ZWORD "ask"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+	.BYTE 0
+W?ASPIRIN::	.ZWORD "aspirin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ASSAULT::	.ZWORD "assault"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?ASSISTED::	.ZWORD "assisted"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ASTEROID::	.ZWORD "asteroid"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AT::	.ZWORD "at"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?AT
+	.BYTE 0
+W?ATOMIC::	.ZWORD "atomic"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ATS::	.ZWORD "ats"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ATTACH::	.ZWORD "attach"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+	.BYTE 0
+W?ATTACK::	.ZWORD "attack"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?AUNT::	.ZWORD "aunt"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AUNT'S::	.ZWORD "aunt's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AUTO::	.ZWORD "auto"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AUTOPILOT::	.ZWORD "autopilot"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?AWAKE::	.ZWORD "awake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?AWAY::	.ZWORD "away"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?AWAY
+	.BYTE 0
+W?AWL::	.ZWORD "awl"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BABEL::	.ZWORD "babel"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BAG::	.ZWORD "bag"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BANNER::	.ZWORD "banner"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BAR::	.ZWORD "bar"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BARE::	.ZWORD "bare"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BARMAN::	.ZWORD "barman"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BARTENDER::	.ZWORD "bartender"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BASIN::	.ZWORD "basin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BATTERED::	.ZWORD "battered"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BATTLE::	.ZWORD "battle"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEAM::	.ZWORD "beam"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEAMS::	.ZWORD "beams"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEAST::	.ZWORD "beast"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEAST'S::	.ZWORD "beast's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEASTHUNT::	.ZWORD "beasthunt"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BED::	.ZWORD "bed"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEDROOM::	.ZWORD "bedroom"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEEBLEBRO::	.ZWORD "beeblebro"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEER::	.ZWORD "beer"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEERMAT::	.ZWORD "beermat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEERMATS::	.ZWORD "beermats"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEFORE::	.ZWORD "before"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?BEFORE
+	.BYTE 0
+W?BEHIND::	.ZWORD "behind"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?BEHIND
+	.BYTE 0
+W?BELOW::	.ZWORD "below"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?UNDER
+	.BYTE 0
+W?BENEATH::	.ZWORD "beneath"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?UNDER
+	.BYTE 0
+W?BETELGEUS::	.ZWORD "betelgeus"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BEWEAPONE::	.ZWORD "beweapone"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BIG::	.ZWORD "big"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BIKE::	.ZWORD "bike"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BIRD::	.ZWORD "bird"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BIRDCAGE::	.ZWORD "birdcage"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BIRDS::	.ZWORD "birds"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BIT::	.ZWORD "bit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BITE::	.ZWORD "bite"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BITE
+	.BYTE 0
+W?BITTER::	.ZWORD "bitter"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BITTERS::	.ZWORD "bitters"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BLACK::	.ZWORD "black"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BLAST::	.ZWORD "blast"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHOOT
+	.BYTE 0
+W?BLASTER::	.ZWORD "blaster"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BLEEM::	.ZWORD "bleem"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FRIPPING
+	.BYTE 0
+W?BLINDING::	.ZWORD "blinding"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BLINKING::	.ZWORD "blinking"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BLOCK::	.ZWORD "block"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BLOCK
+	.BYTE 0
+W?BLUE::	.ZWORD "blue"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BLUE-GREE::	.ZWORD "blue-gree"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOARD::	.ZWORD "board"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?BOARD
+	.BYTE 0
+W?BOAT::	.ZWORD "boat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOMBED::	.ZWORD "bombed"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?DRUNK
+	.BYTE 0
+W?BONE::	.ZWORD "bone"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BONES::	.ZWORD "bones"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOOK::	.ZWORD "book"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOTH::	.ZWORD "both"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?BOTTLE::	.ZWORD "bottle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOTTLES::	.ZWORD "bottles"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BOX::	.ZWORD "box"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BRAIN::	.ZWORD "brain"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BREAK::	.ZWORD "break"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DEMOLISH
+	.BYTE 0
+W?BRIEF::	.ZWORD "brief"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BRIEF
+	.BYTE 0
+W?BRIGHT::	.ZWORD "bright"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BROCHURE::	.ZWORD "brochure"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BROWNIAN::	.ZWORD "brownian"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BRUSH::	.ZWORD "brush"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?BRUSH
+	.BYTE 0
+W?BUDDHA::	.ZWORD "buddha"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BUFFERED::	.ZWORD "buffered"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BUGBLATTE::	.ZWORD "bugblatte"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BULKY::	.ZWORD "bulky"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BULL::	.ZWORD "bull"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BULLDOZER::	.ZWORD "bulldozer"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BURY::	.ZWORD "bury"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?PLANT
+	.BYTE 0
+W?BUT::	.ZWORD "but"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?BUTTON::	.ZWORD "button"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?BUY::	.ZWORD "buy"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?ORDER
+	.BYTE 0
+W?CAGE::	.ZWORD "cage"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CALL::	.ZWORD "call"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?PHONE
+	.BYTE 0
+W?CANOPY::	.ZWORD "canopy"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CAPTAIN::	.ZWORD "captain"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CARPET::	.ZWORD "carpet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CARRY::	.ZWORD "carry"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?CARTON::	.ZWORD "carton"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CARVE::	.ZWORD "carve"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CARVE
+	.BYTE 0
+W?CASE::	.ZWORD "case"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CATCH::	.ZWORD "catch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?CEILING::	.ZWORD "ceiling"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHAIR::	.ZWORD "chair"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHAIRS::	.ZWORD "chairs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHAMBER::	.ZWORD "chamber"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHANNEL::	.ZWORD "channel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHASE::	.ZWORD "chase"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?CHEER::	.ZWORD "cheer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?APPLAUD
+	.BYTE 0
+W?CHEESE::	.ZWORD "cheese"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHIPPER::	.ZWORD "chipper"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CHISEL::	.ZWORD "chisel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CIRCUIT::	.ZWORD "circuit"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CLAP::	.ZWORD "clap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?APPLAUD
+	.BYTE 0
+W?CLEAN::	.ZWORD "clean"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?WASH
+	.BYTE 0
+W?CLEANING::	.ZWORD "cleaning"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CLIFF::	.ZWORD "cliff"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CLIFFS::	.ZWORD "cliffs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CLIMB::	.ZWORD "climb"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLIMB
+	.BYTE 0
+W?CLOSE::	.ZWORD "close"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLOSE
+	.BYTE 0
+W?CLOSET::	.ZWORD "closet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CLUE::	.ZWORD "clue"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?CLUES::	.ZWORD "clues"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?COIN::	.ZWORD "coin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COINS::	.ZWORD "coins"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COLD::	.ZWORD "cold"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COMMON::	.ZWORD "common"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COMPUTER::	.ZWORD "computer"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CONNECT::	.ZWORD "connect"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CONNECT
+	.BYTE 0
+W?CONSOLE::	.ZWORD "console"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CONSTRUCT::	.ZWORD "construct"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CONSULT::	.ZWORD "consult"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+	.BYTE 0
+W?CONTROL::	.ZWORD "control"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CONTROLS::	.ZWORD "controls"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CONVERSAT::	.ZWORD "conversat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COPS::	.ZWORD "cops"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COPY::	.ZWORD "copy"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CORD::	.ZWORD "cord"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CORPORATI::	.ZWORD "corporati"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CORRIDOR::	.ZWORD "corridor"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COUNT::	.ZWORD "count"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?COUNT
+	.BYTE 0
+W?COUNTER::	.ZWORD "counter"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COURT::	.ZWORD "court"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COURTYARD::	.ZWORD "courtyard"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?COVER::	.ZWORD "cover"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?COVER
+	.BYTE 0
+W?CRACK::	.ZWORD "crack"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DEMOLISH
+	.BYTE 0
+W?CRAWL::	.ZWORD "crawl"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNEEL
+	.BYTE 0
+W?CREATURE::	.ZWORD "creature"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CREATURES::	.ZWORD "creatures"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CREW::	.ZWORD "crew"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CROWD::	.ZWORD "crowd"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CUP::	.ZWORD "cup"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CUPFUL::	.ZWORD "cupful"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CUPS::	.ZWORD "cups"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CURTAIN::	.ZWORD "curtain"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CURTAINS::	.ZWORD "curtains"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CUSHION::	.ZWORD "cushion"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CUT::	.ZWORD "cut"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CUT
+	.BYTE 0
+W?CYBERNETI::	.ZWORD "cyberneti"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?CYCLE::	.ZWORD "cycle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?D::	.ZWORD "d"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 54
+	.BYTE PR?DOWN
+W?D'OEUVRES::	.ZWORD "d'oeuvres"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DAIS::	.ZWORD "dais"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DAMAGE::	.ZWORD "damage"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DEMOLISH
+	.BYTE 0
+W?DAMOGRAN::	.ZWORD "damogran"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DANGLE::	.ZWORD "dangle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DANGLE
+	.BYTE 0
+W?DANGLY::	.ZWORD "dangly"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DARK::	.ZWORD "dark"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DARK-HAIR::	.ZWORD "dark-hair"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DARKNESS::	.ZWORD "darkness"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DEBARK::	.ZWORD "debark"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DISEMBARK
+	.BYTE 0
+W?DEBRIS::	.ZWORD "debris"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DEEP::	.ZWORD "deep"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DEMOLISH::	.ZWORD "demolish"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DEMOLISH
+	.BYTE 0
+W?DEMOLISHI::	.ZWORD "demolishi"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DENT::	.ZWORD "dent"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DEPART::	.ZWORD "depart"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXIT
+	.BYTE 0
+W?DEPRESSED::	.ZWORD "depressed"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DESCEND::	.ZWORD "descend"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DESCEND
+	.BYTE 0
+W?DESCRIBE::	.ZWORD "describe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?DESTROY::	.ZWORD "destroy"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DEMOLISH
+	.BYTE 0
+W?DEVICE::	.ZWORD "device"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DEVOUR::	.ZWORD "devour"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?DIAGNOSE::	.ZWORD "diagnose"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DIAGNOSE
+	.BYTE 0
+W?DIFFUSION::	.ZWORD "diffusion"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DIG::	.ZWORD "dig"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DIG
+	.BYTE 0
+W?DIGITAL::	.ZWORD "digital"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DIP::	.ZWORD "dip"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DIPSWITCH::	.ZWORD "dipswitch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DIRT::	.ZWORD "dirt"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DISCONNEC::	.ZWORD "disconnec"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNPLUG
+	.BYTE 0
+W?DISEMBARK::	.ZWORD "disembark"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DISEMBARK
+	.BYTE 0
+W?DISPENSER::	.ZWORD "dispenser"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DISPENSIN::	.ZWORD "dispensin"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DISROBE::	.ZWORD "disrobe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DISROBE
+	.BYTE 0
+W?DISTANT::	.ZWORD "distant"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DIVE::	.ZWORD "dive"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?JUMP
+	.BYTE 0
+W?DOFF::	.ZWORD "doff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REMOVE
+	.BYTE 0
+W?DOG::	.ZWORD "dog"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DOME::	.ZWORD "dome"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DOMED::	.ZWORD "domed"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DON::	.ZWORD "don"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WEAR
+	.BYTE 0
+W?DON'T::	.ZWORD "don't"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?DONATE::	.ZWORD "donate"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?HAND
+	.BYTE 0
+W?DONT::	.ZWORD "dont"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?DOOR::	.ZWORD "door"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DOORMAT::	.ZWORD "doormat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DOUGLAS::	.ZWORD "douglas"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DOWN::	.ZWORD "down"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 54
+	.BYTE PR?DOWN
+W?DOZE::	.ZWORD "doze"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DOZE
+	.BYTE 0
+W?DOZER::	.ZWORD "dozer"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DRAIN::	.ZWORD "drain"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DRAPE::	.ZWORD "drape"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?DRAPE
+	.BYTE 0
+W?DRAW::	.ZWORD "draw"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?OPEN
+	.BYTE 0
+W?DRESS::	.ZWORD "dress"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRESS
+	.BYTE 0
+W?DRESSED::	.ZWORD "dressed"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?DRESSED
+	.BYTE 0
+W?DRESSING::	.ZWORD "dressing"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DRINK::	.ZWORD "drink"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+	.BYTE 0
+W?DRIVE::	.ZWORD "drive"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DRIVER::	.ZWORD "driver"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DRIVES::	.ZWORD "drives"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?DROP::	.ZWORD "drop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DROP
+	.BYTE 0
+W?DRUNK::	.ZWORD "drunk"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?DRUNK
+	.BYTE 0
+W?E::	.ZWORD "e"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 61
+	.BYTE 0
+W?EAR::	.ZWORD "ear"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EARS::	.ZWORD "ears"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EARTH::	.ZWORD "earth"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EAST::	.ZWORD "east"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 61
+	.BYTE 0
+W?EAT::	.ZWORD "eat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?ED::	.ZWORD "ed"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EDDIE::	.ZWORD "eddie"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EIGHTH::	.ZWORD "eighth"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ELECTRONI::	.ZWORD "electroni"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EMBARK::	.ZWORD "embark"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?BOARD
+	.BYTE 0
+W?ENGINE::	.ZWORD "engine"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ENGINEER::	.ZWORD "engineer"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ENJOY::	.ZWORD "enjoy"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ENJOY
+	.BYTE 0
+W?ENTER::	.ZWORD "enter"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ENTER
+	.BYTE 0
+W?EQUATION::	.ZWORD "equation"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EQUATIONS::	.ZWORD "equations"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ESCAPE::	.ZWORD "escape"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ESCAPE
+	.BYTE 0
+W?EVERYTHING::	.ZWORD "everythin"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?EXAMINE::	.ZWORD "examine"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?EXCEPT::	.ZWORD "except"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?EXIT::	.ZWORD "exit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXIT
+	.BYTE 0
+W?EXTINGUISH::	.ZWORD "extinguis"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXTINGUISH
+	.BYTE 0
+W?EYE::	.ZWORD "eye"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?EYES::	.ZWORD "eyes"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?F::	.ZWORD "f"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 63
+	.BYTE 0
+W?FACE::	.ZWORD "face"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FADED::	.ZWORD "faded"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FAINT::	.ZWORD "faint"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FASTEN::	.ZWORD "fasten"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+	.BYTE 0
+W?FEED::	.ZWORD "feed"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FEED
+	.BYTE 0
+W?FEEL::	.ZWORD "feel"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?TOUCH
+	.BYTE 0
+W?FERTILE::	.ZWORD "fertile"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FIFTH::	.ZWORD "fifth"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FIGHT::	.ZWORD "fight"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?FILL::	.ZWORD "fill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FILL
+	.BYTE 0
+W?FIND::	.ZWORD "find"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?FIRE::	.ZWORD "fire"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHOOT
+	.BYTE 0
+W?FIRST::	.ZWORD "first"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FISH::	.ZWORD "fish"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FIX::	.ZWORD "fix"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REPAIR
+	.BYTE 0
+W?FLATHEAD::	.ZWORD "flathead"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FLEE::	.ZWORD "flee"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ESCAPE
+	.BYTE 0
+W?FLEET::	.ZWORD "fleet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FLICK::	.ZWORD "flick"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?SWITCH
+	.BYTE 0
+W?FLIP::	.ZWORD "flip"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?SWITCH
+	.BYTE 0
+W?FLOOR::	.ZWORD "floor"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FLOWER::	.ZWORD "flower"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FLOWERPOT::	.ZWORD "flowerpot"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FLUFF::	.ZWORD "fluff"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FOLLOW::	.ZWORD "follow"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?FOOBAR::	.ZWORD "foobar"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FOOTNOTE::	.ZWORD "footnote"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOOTNOTE
+	.BYTE 0
+W?FOR::	.ZWORD "for"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?FOR
+	.BYTE 0
+W?FORD::	.ZWORD "ford"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FORE::	.ZWORD "fore"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 63
+	.BYTE 0
+W?FOREIGN::	.ZWORD "foreign"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FOREKNOWL::	.ZWORD "foreknowl"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FOREMAN::	.ZWORD "foreman"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FOREWARD::	.ZWORD "foreward"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 63
+	.BYTE 0
+W?FOURTH::	.ZWORD "fourth"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FRANCE::	.ZWORD "france"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FRED::	.ZWORD "fred"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FRED'S::	.ZWORD "fred's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FREE::	.ZWORD "free"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?FRIPPING::	.ZWORD "fripping"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FRIPPING
+	.BYTE 0
+W?FRISK::	.ZWORD "frisk"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+	.BYTE 0
+W?FROM::	.ZWORD "from"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?FROM
+	.BYTE 0
+W?FRONT::	.ZWORD "front"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?FRUIT::	.ZWORD "fruit"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FRUSTRATI::	.ZWORD "frustrati"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?FUSION::	.ZWORD "fusion"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?G::	.ZWORD "g"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?G'GUGVUNT::	.ZWORD "g'gugvunt"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GALACTIC::	.ZWORD "galactic"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GALAXIA::	.ZWORD "galaxia"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GALLEY::	.ZWORD "galley"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GAME::	.ZWORD "game"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GANGWAY::	.ZWORD "gangway"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GAP::	.ZWORD "gap"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GARGLE::	.ZWORD "gargle"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GASHEE::	.ZWORD "gashee"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FRIPPING
+	.BYTE 0
+W?GAZE::	.ZWORD "gaze"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?GENERATOR::	.ZWORD "generator"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GENUINE::	.ZWORD "genuine"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GET::	.ZWORD "get"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?GIFT::	.ZWORD "gift"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GIVE::	.ZWORD "give"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?HAND
+	.BYTE 0
+W?GLASS::	.ZWORD "glass"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GLASSES::	.ZWORD "glasses"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GNAWED::	.ZWORD "gnawed"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GO::	.ZWORD "go"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?GOAL::	.ZWORD "goal"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GOBBLE::	.ZWORD "gobble"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?GOLD::	.ZWORD "gold"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GOWN::	.ZWORD "gown"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GPP::	.ZWORD "gpp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GRAB::	.ZWORD "grab"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?GRATE::	.ZWORD "grate"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GRATING::	.ZWORD "grating"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GRAY::	.ZWORD "gray"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GREAT::	.ZWORD "great"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GREEN::	.ZWORD "green"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GREY::	.ZWORD "grey"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GROOM::	.ZWORD "groom"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GROUND::	.ZWORD "ground"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GRUBBY::	.ZWORD "grubby"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GUARANTEE::	.ZWORD "guarantee"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GUARD::	.ZWORD "guard"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GUARDS::	.ZWORD "guards"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GUIDE::	.ZWORD "guide"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GUN::	.ZWORD "gun"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?GUZZLE::	.ZWORD "guzzle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+	.BYTE 0
+W?HAIRED::	.ZWORD "haired"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HALL::	.ZWORD "hall"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HAND::	.ZWORD "hand"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?HAND
+	.BYTE 0
+W?HANDBAG::	.ZWORD "handbag"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HANDKERCH::	.ZWORD "handkerch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HANDS::	.ZWORD "hands"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HANG::	.ZWORD "hang"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HANG
+	.BYTE 0
+W?HANGOVER::	.ZWORD "hangover"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HATCH::	.ZWORD "hatch"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HATCHWAY::	.ZWORD "hatchway"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HEAD::	.ZWORD "head"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HEADACHE::	.ZWORD "headache"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HEAR::	.ZWORD "hear"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HEAR
+	.BYTE 0
+W?HEART::	.ZWORD "heart"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HELLO::	.ZWORD "hello"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+	.BYTE 0
+W?HELP::	.ZWORD "help"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?HER::	.ZWORD "her"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HERE::	.ZWORD "here"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?HI::	.ZWORD "hi"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELLO
+	.BYTE 0
+W?HIDE::	.ZWORD "hide"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HIDE
+	.BYTE 0
+W?HIM::	.ZWORD "him"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HINT::	.ZWORD "hint"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?HINTS::	.ZWORD "hints"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?HIT::	.ZWORD "hit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?HITCH::	.ZWORD "hitch"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?HITCHHIKE
+	.BYTE 0
+W?HITCHHIKE::	.ZWORD "hitchhike"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?HITCHHIKE
+	.BYTE 0
+W?HOLD::	.ZWORD "hold"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?HOLE::	.ZWORD "hole"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HOME::	.ZWORD "home"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HOOK::	.ZWORD "hook"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HOP::	.ZWORD "hop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SKIP
+	.BYTE 0
+W?HORRIBLE::	.ZWORD "horrible"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HORS::	.ZWORD "hors"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HORSE::	.ZWORD "horse"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HOSTESS::	.ZWORD "hostess"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HOT::	.ZWORD "hot"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HOUSE::	.ZWORD "house"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HOWL::	.ZWORD "howl"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?HUGE::	.ZWORD "huge"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HUM::	.ZWORD "hum"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HURL::	.ZWORD "hurl"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?HYPERSONI::	.ZWORD "hypersoni"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?HYPERWAVE::	.ZWORD "hyperwave"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?I::	.ZWORD "i"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?I
+	.BYTE 0
+W?I'M::	.ZWORD "i'm"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?I
+	.BYTE 0
+W?IDIOT::	.ZWORD "idiot"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?IDIOT
+	.BYTE 0
+W?IM::	.ZWORD "im"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?I
+	.BYTE 0
+W?IMBIBE::	.ZWORD "imbibe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+	.BYTE 0
+W?IMPROBABI::	.ZWORD "improbabi"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?IN::	.ZWORD "in"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 53
+	.BYTE PR?IN
+W?INCREDIBL::	.ZWORD "incredibl"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?INFININY::	.ZWORD "infininy"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?INFINITY::	.ZWORD "infinity"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?INFOCOM::	.ZWORD "infocom"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?INGEST::	.ZWORD "ingest"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EAT
+	.BYTE 0
+W?INNARD::	.ZWORD "innard"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?INNER::	.ZWORD "inner"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?INSCRIBE::	.ZWORD "inscribe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CARVE
+	.BYTE 0
+W?INSERT::	.ZWORD "insert"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+	.BYTE 0
+W?INSIDE::	.ZWORD "inside"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 53
+	.BYTE PR?IN
+W?INSPECT::	.ZWORD "inspect"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?INTELLIGE::	.ZWORD "intellige"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?INTERFACE::	.ZWORD "interface"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?INTNUM::	.ZWORD "intnum"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?INTO::	.ZWORD "into"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 53
+	.BYTE PR?IN
+W?INVENT::	.ZWORD "invent"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?INVENT
+	.BYTE 0
+W?INVISICLUES::	.ZWORD "invisiclu"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?ION::	.ZWORD "ion"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?IONIC::	.ZWORD "ionic"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?IRRITABLE::	.ZWORD "irritable"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?IS::	.ZWORD "is"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?ISLAND::	.ZWORD "island"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?IT::	.ZWORD "it"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ITEMS::	.ZWORD "items"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?JACKET::	.ZWORD "jacket"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?JANTA::	.ZWORD "janta"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?JOO::	.ZWORD "joo"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?JUKE::	.ZWORD "juke"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?JUKEBOX::	.ZWORD "jukebox"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?JUMP::	.ZWORD "jump"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?JUMP
+	.BYTE 0
+W?JUNK::	.ZWORD "junk"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?KEY::	.ZWORD "key"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?KEYBOARD::	.ZWORD "keyboard"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?KICK::	.ZWORD "kick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KICK
+	.BYTE 0
+W?KILL::	.ZWORD "kill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?KISS::	.ZWORD "kiss"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KISS
+	.BYTE 0
+W?KNEEL::	.ZWORD "kneel"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNEEL
+	.BYTE 0
+W?KNOCK::	.ZWORD "knock"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNOCK
+	.BYTE 0
+W?L::	.ZWORD "l"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?LAIR::	.ZWORD "lair"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LAMP::	.ZWORD "lamp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LARGE::	.ZWORD "large"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LASER::	.ZWORD "laser"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LASER-ASS::	.ZWORD "laser-ass"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LAY::	.ZWORD "lay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+	.BYTE 0
+W?LEADER::	.ZWORD "leader"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LEAFY::	.ZWORD "leafy"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LEAP::	.ZWORD "leap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?JUMP
+	.BYTE 0
+W?LEATHER::	.ZWORD "leather"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LEAVE::	.ZWORD "leave"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LEAVE
+	.BYTE 0
+W?LEGENDARY::	.ZWORD "legendary"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LETTER::	.ZWORD "letter"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LETTERS::	.ZWORD "letters"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LICK::	.ZWORD "lick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TASTE
+	.BYTE 0
+W?LID::	.ZWORD "lid"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LIE::	.ZWORD "lie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LIE
+	.BYTE 0
+W?LIFETIME::	.ZWORD "lifetime"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LIFT::	.ZWORD "lift"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RAISE
+	.BYTE 0
+W?LIGHT::	.ZWORD "light"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?LIGHT
+	.BYTE 0
+W?LIGHTS::	.ZWORD "lights"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LINT::	.ZWORD "lint"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LIQUID::	.ZWORD "liquid"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LIST::	.ZWORD "list"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LISTEN::	.ZWORD "listen"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LISTEN
+	.BYTE 0
+W?LITTLE::	.ZWORD "little"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LOCK::	.ZWORD "lock"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?LOCK
+	.BYTE 0
+W?LONG::	.ZWORD "long"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LOOK::	.ZWORD "look"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?LOOP::	.ZWORD "loop"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LOOSE::	.ZWORD "loose"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LOTS::	.ZWORD "lots"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?LOWER::	.ZWORD "lower"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?LOWER
+	.BYTE 0
+W?LYSHUS::	.ZWORD "lyshus"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FRIPPING
+	.BYTE 0
+W?MACHINE::	.ZWORD "machine"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAGNIFYIN::	.ZWORD "magnifyin"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAGRATHEA::	.ZWORD "magrathea"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAIL::	.ZWORD "mail"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAIN::	.ZWORD "main"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAKE::	.ZWORD "make"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MAKE
+	.BYTE 0
+W?MANUAL::	.ZWORD "manual"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MARKINGS::	.ZWORD "markings"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MARV::	.ZWORD "marv"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MARVIN::	.ZWORD "marvin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MARVIN'S::	.ZWORD "marvin's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MASSIVE::	.ZWORD "massive"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAT::	.ZWORD "mat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MATTER::	.ZWORD "matter"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MATTRESS::	.ZWORD "mattress"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MAZE::	.ZWORD "maze"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MCMILLAN::	.ZWORD "mcmillan"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ME::	.ZWORD "me"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MECHANISM::	.ZWORD "mechanism"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MEMORIAL::	.ZWORD "memorial"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MENACING::	.ZWORD "menacing"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MERETZKY::	.ZWORD "meretzky"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MESH::	.ZWORD "mesh"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MESSAGE::	.ZWORD "message"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?METAL::	.ZWORD "metal"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MICROCHIP::	.ZWORD "microchip"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MICROSCOP::	.ZWORD "microscop"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MINERAL::	.ZWORD "mineral"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MISERABLE::	.ZWORD "miserable"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FRIPPING
+	.BYTE 0
+W?MISTER::	.ZWORD "mister"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MOLECULAR::	.ZWORD "molecular"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MONGREL::	.ZWORD "mongrel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MONKEY::	.ZWORD "monkey"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MONUMENT::	.ZWORD "monument"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MORE::	.ZWORD "more"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?MORPHOUSI::	.ZWORD "morphousi"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FRIPPING
+	.BYTE 0
+W?MOTION::	.ZWORD "motion"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MOVE::	.ZWORD "move"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MOVE
+	.BYTE 0
+W?MOVEMENT::	.ZWORD "movement"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MR::	.ZWORD "mr"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MUD::	.ZWORD "mud"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MURDER::	.ZWORD "murder"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?MUSIC::	.ZWORD "music"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?MY::	.ZWORD "my"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?MY
+	.BYTE 0
+W?MYSELF::	.ZWORD "myself"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?N::	.ZWORD "n"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 63
+	.BYTE 0
+W?NAME::	.ZWORD "name"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NAP::	.ZWORD "nap"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?DOZE
+	.BYTE 0
+W?NARROW::	.ZWORD "narrow"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NE::	.ZWORD "ne"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 62
+	.BYTE 0
+W?NEAR::	.ZWORD "near"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?BEFORE
+	.BYTE 0
+W?NEW::	.ZWORD "new"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NEXT::	.ZWORD "next"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?BEFORE
+	.BYTE 0
+W?NICE::	.ZWORD "nice"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NO::	.ZWORD "no"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?NO
+	.BYTE 0
+W?NORTH::	.ZWORD "north"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 63
+	.BYTE 0
+W?NORTHEAST::	.ZWORD "northeast"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 62
+	.BYTE 0
+W?NORTHWEST::	.ZWORD "northwest"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 56
+	.BYTE 0
+W?NOTHING::	.ZWORD "nothing"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NUMBER::	.ZWORD "number"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NUT::	.ZWORD "nut"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NUTRIMAT::	.ZWORD "nutrimat"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NUTS::	.ZWORD "nuts"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?NW::	.ZWORD "nw"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 56
+	.BYTE 0
+W?O::	.ZWORD "o"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?OBJECT::	.ZWORD "object"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OBSERVE::	.ZWORD "observe"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?OF::	.ZWORD "of"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?OFF::	.ZWORD "off"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?OFF
+	.BYTE 0
+W?OFFER::	.ZWORD "offer"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?HAND
+	.BYTE 0
+W?OFFICIAL::	.ZWORD "official"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OK::	.ZWORD "ok"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?OKAY::	.ZWORD "okay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?OLD::	.ZWORD "old"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ON::	.ZWORD "on"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?ON
+	.BYTE 0
+W?ONE::	.ZWORD "one"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ONTO::	.ZWORD "onto"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?ON
+	.BYTE 0
+W?OOPS::	.ZWORD "oops"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?OPEN::	.ZWORD "open"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?OPEN
+	.BYTE 0
+W?OPENING::	.ZWORD "opening"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ORANGE::	.ZWORD "orange"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ORDER::	.ZWORD "order"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?ORDER
+	.BYTE 0
+W?OTHER::	.ZWORD "other"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OUT::	.ZWORD "out"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 52
+	.BYTE PR?OUT
+W?OUTER::	.ZWORD "outer"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?OUTSIDE::	.ZWORD "outside"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 52
+	.BYTE PR?OUT
+W?OVER::	.ZWORD "over"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?OVER
+	.BYTE 0
+W?OVERRIDE::	.ZWORD "override"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?P::	.ZWORD "p"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 57
+	.BYTE 0
+W?PACKET::	.ZWORD "packet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAD::	.ZWORD "pad"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAINFUL::	.ZWORD "painful"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAINT::	.ZWORD "paint"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAIR::	.ZWORD "pair"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAN-GALACT::	.ZWORD "pan-galac"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PANEL::	.ZWORD "panel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PANIC::	.ZWORD "panic"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PANIC
+	.BYTE 0
+W?PANTRY::	.ZWORD "pantry"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAPER::	.ZWORD "paper"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PARANOID::	.ZWORD "paranoid"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PART::	.ZWORD "part"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?OPEN
+	.BYTE 0
+W?PARTICLE::	.ZWORD "particle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PARTY::	.ZWORD "party"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PAT::	.ZWORD "pat"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?TOUCH
+	.BYTE 0
+W?PAY::	.ZWORD "pay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PAY
+	.BYTE 0
+W?PEANUT::	.ZWORD "peanut"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PEANUTS::	.ZWORD "peanuts"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PEEK::	.ZWORD "peek"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNEEL
+	.BYTE 0
+W?PENCIL::	.ZWORD "pencil"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PEOPLE::	.ZWORD "people"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PERIL::	.ZWORD "peril"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PERSONALI::	.ZWORD "personali"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PET::	.ZWORD "pet"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?TOUCH
+	.BYTE 0
+W?PHIL::	.ZWORD "phil"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PHONE::	.ZWORD "phone"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?PHONE
+	.BYTE 0
+W?PHOTON::	.ZWORD "photon"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PHYSICS::	.ZWORD "physics"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PICK::	.ZWORD "pick"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PICK
+	.BYTE 0
+W?PILE::	.ZWORD "pile"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PILL::	.ZWORD "pill"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PILOT::	.ZWORD "pilot"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PINCER::	.ZWORD "pincer"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PINT::	.ZWORD "pint"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLACE::	.ZWORD "place"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+	.BYTE 0
+W?PLANET::	.ZWORD "planet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLANETS::	.ZWORD "planets"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLANT::	.ZWORD "plant"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?PLANT
+	.BYTE 0
+W?PLAQUE::	.ZWORD "plaque"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLASMIC::	.ZWORD "plasmic"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLASTERED::	.ZWORD "plastered"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?DRUNK
+	.BYTE 0
+W?PLATE::	.ZWORD "plate"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLATFORM::	.ZWORD "platform"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLEASE::	.ZWORD "please"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?PLIERS::	.ZWORD "pliers"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLOTTER::	.ZWORD "plotter"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PLUG::	.ZWORD "plug"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?PLUG
+	.BYTE 0
+W?PLUSH::	.ZWORD "plush"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?POCKET::	.ZWORD "pocket"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?POEM::	.ZWORD "poem"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?POETRY::	.ZWORD "poetry"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?POINT::	.ZWORD "point"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POINT
+	.BYTE 0
+W?POLICE::	.ZWORD "police"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PORT::	.ZWORD "port"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 57
+	.BYTE 0
+W?PORTABLE::	.ZWORD "portable"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?POT::	.ZWORD "pot"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?POUR::	.ZWORD "pour"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POUR
+	.BYTE 0
+W?PREFECT::	.ZWORD "prefect"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PRESIDENT::	.ZWORD "president"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PRESS::	.ZWORD "press"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+	.BYTE 0
+W?PRINTED::	.ZWORD "printed"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PROBABILI::	.ZWORD "probabili"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PROBLEM::	.ZWORD "problem"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PROCEED::	.ZWORD "proceed"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?PROPER::	.ZWORD "proper"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PROSSER::	.ZWORD "prosser"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PROTAGONI::	.ZWORD "protagoni"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PROTEIN::	.ZWORD "protein"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PROTEST::	.ZWORD "protest"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PROTEST
+	.BYTE 0
+W?PRY::	.ZWORD "pry"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?PUB::	.ZWORD "pub"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PULL::	.ZWORD "pull"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?MOVE
+	.BYTE 0
+W?PUNCH::	.ZWORD "punch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?PURCHASE::	.ZWORD "purchase"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?ORDER
+	.BYTE 0
+W?PURSE::	.ZWORD "purse"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?PURSUE::	.ZWORD "pursue"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FOLLOW
+	.BYTE 0
+W?PUSH::	.ZWORD "push"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUSH
+	.BYTE 0
+W?PUT::	.ZWORD "put"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+	.BYTE 0
+W?PUZZLE::	.ZWORD "puzzle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?Q::	.ZWORD "q"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?QUIT
+	.BYTE 0
+W?QUAFF::	.ZWORD "quaff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+	.BYTE 0
+W?QUERY::	.ZWORD "query"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ASK
+	.BYTE 0
+W?QUESTION::	.ZWORD "question"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?QUESTIONS::	.ZWORD "questions"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?QUIT::	.ZWORD "quit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?QUIT
+	.BYTE 0
+W?RAISE::	.ZWORD "raise"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RAISE
+	.BYTE 0
+W?RANDOM::	.ZWORD "random"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RAP::	.ZWORD "rap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?KNOCK
+	.BYTE 0
+W?RAPE::	.ZWORD "rape"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RAPE
+	.BYTE 0
+W?RASP::	.ZWORD "rasp"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RAVENOUS::	.ZWORD "ravenous"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RAY::	.ZWORD "ray"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?READ::	.ZWORD "read"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+	.BYTE 0
+W?REAL::	.ZWORD "real"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RECEIVER::	.ZWORD "receiver"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RECEPTACL::	.ZWORD "receptacl"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RECLINE::	.ZWORD "recline"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LIE
+	.BYTE 0
+W?RED::	.ZWORD "red"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?REFUSE::	.ZWORD "refuse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REFUSE
+	.BYTE 0
+W?RELAX::	.ZWORD "relax"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RELAX
+	.BYTE 0
+W?REMEMBRAN::	.ZWORD "remembran"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?REMOVE::	.ZWORD "remove"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REMOVE
+	.BYTE 0
+W?REPAIR::	.ZWORD "repair"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REPAIR
+	.BYTE 0
+W?REPLACE::	.ZWORD "replace"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REPLACE
+	.BYTE 0
+W?REPLY::	.ZWORD "reply"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ANSWER
+	.BYTE 0
+W?REST::	.ZWORD "rest"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+	.BYTE 0
+W?RESTART::	.ZWORD "restart"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESTART
+	.BYTE 0
+W?RESTORE::	.ZWORD "restore"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?RESTORE
+	.BYTE 0
+W?RIFLE::	.ZWORD "rifle"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RIFLES::	.ZWORD "rifles"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RISE::	.ZWORD "rise"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STAND
+	.BYTE 0
+W?ROBE::	.ZWORD "robe"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROBOT::	.ZWORD "robot"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROBOTS::	.ZWORD "robots"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROCK::	.ZWORD "rock"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROCKS::	.ZWORD "rocks"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROCKY::	.ZWORD "rocky"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROOF::	.ZWORD "roof"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROOM::	.ZWORD "room"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROSE::	.ZWORD "rose"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROSEBED::	.ZWORD "rosebed"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROSES::	.ZWORD "roses"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ROTATE::	.ZWORD "rotate"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SPIN
+	.BYTE 0
+W?ROUSE::	.ZWORD "rouse"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?RUB::	.ZWORD "rub"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?TOUCH
+	.BYTE 0
+W?RUBBLE::	.ZWORD "rubble"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?RUMMAGE::	.ZWORD "rummage"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+	.BYTE 0
+W?RUN::	.ZWORD "run"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?S::	.ZWORD "s"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 59
+	.BYTE 0
+W?SALES::	.ZWORD "sales"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SAMPLE::	.ZWORD "sample"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SANDSTONE::	.ZWORD "sandstone"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SANDWICH::	.ZWORD "sandwich"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SANTRAGIN::	.ZWORD "santragin"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SATCHEL::	.ZWORD "satchel"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SAUNA::	.ZWORD "sauna"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SAVE::	.ZWORD "save"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAVE
+	.BYTE 0
+W?SAY::	.ZWORD "say"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?SB::	.ZWORD "sb"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 61
+	.BYTE 0
+W?SCALE::	.ZWORD "scale"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLIMB
+	.BYTE 0
+W?SCC::	.ZWORD "scc"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SCORE::	.ZWORD "score"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCORE
+	.BYTE 0
+W?SCOUR::	.ZWORD "scour"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?SCRATCH::	.ZWORD "scratch"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CARVE
+	.BYTE 0
+W?SCREAM::	.ZWORD "scream"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?SCREENING::	.ZWORD "screening"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SCREWDRIV::	.ZWORD "screwdriv"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SCRIPT::	.ZWORD "script"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SCRIPT
+	.BYTE 0
+W?SE::	.ZWORD "se"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 60
+	.BYTE 0
+W?SEARCH::	.ZWORD "search"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SEARCH
+	.BYTE 0
+W?SEAT::	.ZWORD "seat"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SECOND::	.ZWORD "second"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SECURE::	.ZWORD "secure"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+	.BYTE 0
+W?SECURITY::	.ZWORD "security"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SEE::	.ZWORD "see"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?SEEK::	.ZWORD "seek"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FIND
+	.BYTE 0
+W?SELF::	.ZWORD "self"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SELL::	.ZWORD "sell"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?HAND
+	.BYTE 0
+W?SENSE::	.ZWORD "sense"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SENSITIVE::	.ZWORD "sensitive"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SENSO::	.ZWORD "senso"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SERENE::	.ZWORD "serene"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SERVICE::	.ZWORD "service"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SEVENT::	.ZWORD "sevent"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHADE::	.ZWORD "shade"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHADES::	.ZWORD "shades"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHADOW::	.ZWORD "shadow"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHAKE::	.ZWORD "shake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHAKE
+	.BYTE 0
+W?SHARP::	.ZWORD "sharp"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHED::	.ZWORD "shed"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REMOVE
+	.BYTE 0
+W?SHELF::	.ZWORD "shelf"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHELVES::	.ZWORD "shelves"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHIP::	.ZWORD "ship"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHIP'S::	.ZWORD "ship's"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHIPBOARD::	.ZWORD "shipboard"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHIPPING::	.ZWORD "shipping"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHIPS::	.ZWORD "ships"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHOOT::	.ZWORD "shoot"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHOOT
+	.BYTE 0
+W?SHORT::	.ZWORD "short"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SHOUT::	.ZWORD "shout"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?SHOW::	.ZWORD "show"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SHOW
+	.BYTE 0
+W?SHUT::	.ZWORD "shut"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CLOSE
+	.BYTE 0
+W?SIGNALING::	.ZWORD "signaling"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SINGLE::	.ZWORD "single"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SINK::	.ZWORD "sink"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SIP::	.ZWORD "sip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+	.BYTE 0
+W?SIRIUS::	.ZWORD "sirius"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SIT::	.ZWORD "sit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+	.BYTE 0
+W?SIXTH::	.ZWORD "sixth"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SKELETON::	.ZWORD "skeleton"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SKIM::	.ZWORD "skim"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?READ
+	.BYTE 0
+W?SKIP::	.ZWORD "skip"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SKIP
+	.BYTE 0
+W?SKY::	.ZWORD "sky"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SLAP::	.ZWORD "slap"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?SLEEP::	.ZWORD "sleep"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?SLEEP
+	.BYTE 0
+W?SLEEVE::	.ZWORD "sleeve"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SLEEVES::	.ZWORD "sleeves"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SLICE::	.ZWORD "slice"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CUT
+	.BYTE 0
+W?SLIDE::	.ZWORD "slide"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SLIDE
+	.BYTE 0
+W?SLOT::	.ZWORD "slot"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SMALL::	.ZWORD "small"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SMASH::	.ZWORD "smash"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DEMOLISH
+	.BYTE 0
+W?SMASHED::	.ZWORD "smashed"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?DRUNK
+	.BYTE 0
+W?SMELL::	.ZWORD "smell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+	.BYTE 0
+W?SMELLY::	.ZWORD "smelly"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SMILE::	.ZWORD "smile"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMILE
+	.BYTE 0
+W?SNACKS::	.ZWORD "snacks"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SNIFF::	.ZWORD "sniff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+	.BYTE 0
+W?SNOOZE::	.ZWORD "snooze"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?DOZE
+	.BYTE 0
+W?SNORING::	.ZWORD "snoring"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SOGGY::	.ZWORD "soggy"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SOIL::	.ZWORD "soil"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SOILED::	.ZWORD "soiled"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SOL::	.ZWORD "sol"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SOLAR::	.ZWORD "solar"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SOME::	.ZWORD "some"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?SONG::	.ZWORD "song"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SONGS::	.ZWORD "songs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SOUTH::	.ZWORD "south"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 59
+	.BYTE 0
+W?SOUTHEAST::	.ZWORD "southeast"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 60
+	.BYTE 0
+W?SOUTHWEST::	.ZWORD "southwest"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 58
+	.BYTE 0
+W?SPACE::	.ZWORD "space"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPACES::	.ZWORD "spaces"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPACESHIP::	.ZWORD "spaceship"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPARE::	.ZWORD "spare"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPEAK::	.ZWORD "speak"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?SPEECH::	.ZWORD "speech"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPEED::	.ZWORD "speed"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPEEDBOAT::	.ZWORD "speedboat"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPERM::	.ZWORD "sperm"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPILL::	.ZWORD "spill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POUR
+	.BYTE 0
+W?SPIN::	.ZWORD "spin"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SPIN
+	.BYTE 0
+W?SPIRE::	.ZWORD "spire"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPLITTING::	.ZWORD "splitting"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPONGY::	.ZWORD "spongy"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SPRINKLE::	.ZWORD "sprinkle"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POUR
+	.BYTE 0
+W?SPROUT::	.ZWORD "sprout"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SQUAT::	.ZWORD "squat"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SIT
+	.BYTE 0
+W?SQUISHY::	.ZWORD "squishy"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STAIR::	.ZWORD "stair"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STAIRS::	.ZWORD "stairs"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STAIRWAY::	.ZWORD "stairway"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STALK::	.ZWORD "stalk"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STAND::	.ZWORD "stand"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?STAND
+	.BYTE 0
+W?STAR::	.ZWORD "star"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STARBOARD::	.ZWORD "starboard"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 61
+	.BYTE 0
+W?STARE::	.ZWORD "stare"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?LOOK
+	.BYTE 0
+W?START::	.ZWORD "start"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?START
+	.BYTE 0
+W?STAY::	.ZWORD "stay"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?STEER::	.ZWORD "steer"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?POINT
+	.BYTE 0
+W?STEM::	.ZWORD "stem"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STEP::	.ZWORD "step"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?STEVE::	.ZWORD "steve"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STEVEN::	.ZWORD "steven"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STOMACH::	.ZWORD "stomach"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STONE::	.ZWORD "stone"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STONES::	.ZWORD "stones"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STOP::	.ZWORD "stop"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?BLOCK
+	.BYTE 0
+W?STRANGE::	.ZWORD "strange"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STRAP::	.ZWORD "strap"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STRAPS::	.ZWORD "straps"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?STRIKE::	.ZWORD "strike"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?ATTACK
+	.BYTE 0
+W?STUDY::	.ZWORD "study"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?STUFF::	.ZWORD "stuff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?PUT
+	.BYTE 0
+W?SUB-ETHA::	.ZWORD "sub-etha"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SUBSTITUT::	.ZWORD "substitut"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SUCCULENT::	.ZWORD "succulent"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SUN::	.ZWORD "sun"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SUNGLASSE::	.ZWORD "sunglasse"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SUPER::	.ZWORD "super"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SUPER
+	.BYTE 0
+W?SUPERBRIEF::	.ZWORD "superbrie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SUPER
+	.BYTE 0
+W?SURE::	.ZWORD "sure"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?SW::	.ZWORD "sw"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 58
+	.BYTE 0
+W?SWALLOW::	.ZWORD "swallow"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+	.BYTE 0
+W?SWILL::	.ZWORD "swill"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DRINK
+	.BYTE 0
+W?SWITCH::	.ZWORD "switch"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?SWITCH
+	.BYTE 0
+W?SYNAPSE::	.ZWORD "synapse"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?SYSTEM::	.ZWORD "system"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TABLET::	.ZWORD "tablet"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TAKE::	.ZWORD "take"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TAKE
+	.BYTE 0
+W?TALK::	.ZWORD "talk"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SAY
+	.BYTE 0
+W?TALL::	.ZWORD "tall"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TASTE::	.ZWORD "taste"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TASTE
+	.BYTE 0
+W?TATTY::	.ZWORD "tatty"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TEA::	.ZWORD "tea"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TEETH::	.ZWORD "teeth"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TELEPHONE::	.ZWORD "telephone"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TELL::	.ZWORD "tell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TELL
+	.BYTE 0
+W?THANK::	.ZWORD "thank"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THANK
+	.BYTE 0
+W?THANKS::	.ZWORD "thanks"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THANK
+	.BYTE 0
+W?THE::	.ZWORD "the"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?THEM::	.ZWORD "them"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?THEN::	.ZWORD "then"
+	.BYTE PS?BUZZ-WORD
+	.BYTE 0
+	.BYTE 0
+W?THERMO::	.ZWORD "thermo"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?THERMO-FU::	.ZWORD "thermo-fu"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?THICK::	.ZWORD "thick"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?THING::	.ZWORD "thing"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?THIRD::	.ZWORD "third"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?THOU::	.ZWORD "thou"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FRIPPING
+	.BYTE 0
+W?THROBBER::	.ZWORD "throbber"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?THROUGH::	.ZWORD "through"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?THROUGH
+	.BYTE 0
+W?THROW::	.ZWORD "throw"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?THRU::	.ZWORD "thru"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?THROUGH
+	.BYTE 0
+W?THUMB::	.ZWORD "thumb"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TIDY::	.ZWORD "tidy"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?WASH
+	.BYTE 0
+W?TIE::	.ZWORD "tie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TIE
+	.BYTE 0
+W?TIME::	.ZWORD "time"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TINY::	.ZWORD "tiny"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TO::	.ZWORD "to"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?TO
+	.BYTE 0
+W?TOGETHER::	.ZWORD "together"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?TOGETHER
+	.BYTE 0
+W?TOGGLE::	.ZWORD "toggle"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?SWITCH
+	.BYTE 0
+W?TOOL::	.ZWORD "tool"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TOOLBOX::	.ZWORD "toolbox"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TOOLS::	.ZWORD "tools"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TOOTH::	.ZWORD "tooth"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TOOTHBRUS::	.ZWORD "toothbrus"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TOSS::	.ZWORD "toss"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?THROW
+	.BYTE 0
+W?TOUCH::	.ZWORD "touch"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?TOUCH
+	.BYTE 0
+W?TOUCH-SEN::	.ZWORD "touch-sen"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TOWARD::	.ZWORD "toward"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?TO
+	.BYTE 0
+W?TOWARDS::	.ZWORD "towards"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?TO
+	.BYTE 0
+W?TOWEL::	.ZWORD "towel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TOWELS::	.ZWORD "towels"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TOWERING::	.ZWORD "towering"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TRAAL::	.ZWORD "traal"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TRANSFERE::	.ZWORD "transfere"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TRAVEL::	.ZWORD "travel"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TREE::	.ZWORD "tree"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TREES::	.ZWORD "trees"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TRICIA::	.ZWORD "tricia"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TRILLIAN::	.ZWORD "trillian"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TURN::	.ZWORD "turn"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?SWITCH
+	.BYTE 0
+W?TWEEZER::	.ZWORD "tweezer"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TWEEZERS::	.ZWORD "tweezers"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TWELVE::	.ZWORD "twelve"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?TYPE::	.ZWORD "type"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?TYPE
+	.BYTE 0
+W?U::	.ZWORD "u"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 55
+	.BYTE PR?UP
+W?UGLY::	.ZWORD "ugly"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ULTRA::	.ZWORD "ultra"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ULTRA-PLA::	.ZWORD "ultra-pla"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?UNANSWERE::	.ZWORD "unanswere"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?UNATTACH::	.ZWORD "unattach"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?UNDER::	.ZWORD "under"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?UNDER
+	.BYTE 0
+W?UNDERNEATH::	.ZWORD "underneat"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?UNDER
+	.BYTE 0
+W?UNDERWEAR::	.ZWORD "underwear"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?UNDRESS::	.ZWORD "undress"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNDRESS
+	.BYTE 0
+W?UNDRESSED::	.ZWORD "undressed"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?UNDRESSED
+	.BYTE 0
+W?UNFASTEN::	.ZWORD "unfasten"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?UNIDENTIF::	.ZWORD "unidentif"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?UNINVITIN::	.ZWORD "uninvitin"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?UNJAM::	.ZWORD "unjam"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?REPAIR
+	.BYTE 0
+W?UNKNOT::	.ZWORD "unknot"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?UNLOCK::	.ZWORD "unlock"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNLOCK
+	.BYTE 0
+W?UNPLUG::	.ZWORD "unplug"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNPLUG
+	.BYTE 0
+W?UNREGARDE::	.ZWORD "unregarde"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?UNSCRIPT::	.ZWORD "unscript"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNSCRIPT
+	.BYTE 0
+W?UNSIGHTLY::	.ZWORD "unsightly"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?UNTIE::	.ZWORD "untie"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?UNTIE
+	.BYTE 0
+W?UNWASHED::	.ZWORD "unwashed"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?UP::	.ZWORD "up"
+	.BYTE PS?DIRECTION+PS?PREPOSITION+P1?DIRECTION
+	.BYTE 55
+	.BYTE PR?UP
+W?UPPER::	.ZWORD "upper"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?USING::	.ZWORD "using"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?WITH
+	.BYTE 0
+W?USUAL::	.ZWORD "usual"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VACUUM::	.ZWORD "vacuum"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VAST::	.ZWORD "vast"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VECTOR::	.ZWORD "vector"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VENCHIT::	.ZWORD "venchit"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FRIPPING
+	.BYTE 0
+W?VENDING::	.ZWORD "vending"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VERBOSE::	.ZWORD "verbose"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?VERBOSE
+	.BYTE 0
+W?VERSE::	.ZWORD "verse"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VERSION::	.ZWORD "version"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?VERSION
+	.BYTE 0
+W?VISICLUES::	.ZWORD "visiclues"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?HELP
+	.BYTE 0
+W?VL'HURG::	.ZWORD "vl'hurg"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VOGON::	.ZWORD "vogon"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?VOGONS::	.ZWORD "vogons"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?W::	.ZWORD "w"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 57
+	.BYTE 0
+W?WAIT::	.ZWORD "wait"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?WAKE::	.ZWORD "wake"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAKE
+	.BYTE 0
+W?WALK::	.ZWORD "walk"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WALK
+	.BYTE 0
+W?WALKING::	.ZWORD "walking"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WALL::	.ZWORD "wall"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WALLPAPER::	.ZWORD "wallpaper"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WALLS::	.ZWORD "walls"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WARM::	.ZWORD "warm"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WARRANTY::	.ZWORD "warranty"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WASH::	.ZWORD "wash"
+	.BYTE PS?VERB+PS?ADJECTIVE+P1?VERB
+	.BYTE ACT?WASH
+	.BYTE 0
+W?WASHBASIN::	.ZWORD "washbasin"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WATCH::	.ZWORD "watch"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WATCHES::	.ZWORD "watches"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WATER::	.ZWORD "water"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?WATER
+	.BYTE 0
+W?WAVE::	.ZWORD "wave"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAVE
+	.BYTE 0
+W?WEAPON::	.ZWORD "weapon"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WEAPONS::	.ZWORD "weapons"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WEAR::	.ZWORD "wear"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WEAR
+	.BYTE 0
+W?WEST::	.ZWORD "west"
+	.BYTE PS?DIRECTION+P1?DIRECTION
+	.BYTE 57
+	.BYTE 0
+W?WET::	.ZWORD "wet"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WHALE::	.ZWORD "whale"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WHAT::	.ZWORD "what"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHAT
+	.BYTE 0
+W?WHAT'S::	.ZWORD "what's"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHAT
+	.BYTE 0
+W?WHATS::	.ZWORD "whats"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHAT
+	.BYTE 0
+W?WHERE::	.ZWORD "where"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHERE
+	.BYTE 0
+W?WHERE'S::	.ZWORD "where's"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHERE
+	.BYTE 0
+W?WHERES::	.ZWORD "wheres"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHERE
+	.BYTE 0
+W?WHIFF::	.ZWORD "whiff"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SMELL
+	.BYTE 0
+W?WHIRL::	.ZWORD "whirl"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?SPIN
+	.BYTE 0
+W?WHITE::	.ZWORD "white"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WHO::	.ZWORD "who"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHO
+	.BYTE 0
+W?WHO'S::	.ZWORD "who's"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHO
+	.BYTE 0
+W?WHOS::	.ZWORD "whos"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHO
+	.BYTE 0
+W?WHY::	.ZWORD "why"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WHY
+	.BYTE 0
+W?WIMBGUNTS::	.ZWORD "wimbgunts"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?FRIPPING
+	.BYTE 0
+W?WINDOW::	.ZWORD "window"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WINE::	.ZWORD "wine"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WITH::	.ZWORD "with"
+	.BYTE PS?PREPOSITION+P1?OBJECT
+	.BYTE PR?WITH
+	.BYTE 0
+W?WITHDRAW::	.ZWORD "withdraw"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXIT
+	.BYTE 0
+W?WOMAN::	.ZWORD "woman"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WOONBEAM::	.ZWORD "woonbeam"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WRAP::	.ZWORD "wrap"
+	.BYTE PS?OBJECT+PS?VERB+P1?VERB
+	.BYTE ACT?DRAPE
+	.BYTE 0
+W?WRECK::	.ZWORD "wreck"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?DEMOLISH
+	.BYTE 0
+W?WRECKING::	.ZWORD "wrecking"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WRENCH::	.ZWORD "wrench"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?WRITE::	.ZWORD "write"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?CARVE
+	.BYTE 0
+W?X::	.ZWORD "x"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?EXAMINE
+	.BYTE 0
+W?Y::	.ZWORD "y"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?YARD::	.ZWORD "yard"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?YELL::	.ZWORD "yell"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YELL
+	.BYTE 0
+W?YELLOW::	.ZWORD "yellow"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?YES::	.ZWORD "yes"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?YES
+	.BYTE 0
+W?YOUR::	.ZWORD "your"
+	.BYTE PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?Z::	.ZWORD "z"
+	.BYTE PS?VERB+P1?VERB
+	.BYTE ACT?WAIT
+	.BYTE 0
+W?ZAPHOD::	.ZWORD "zaphod"
+	.BYTE PS?OBJECT+PS?ADJECTIVE+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+W?ZZMGCK::	.ZWORD "zzmgck"
+	.BYTE PS?OBJECT+P1?OBJECT
+	.BYTE 0
+	.BYTE 0
+	.ENDT
+
+
+; END LOAD
+
+ENDLOD::
+
+
+	.ENDI
diff --git a/nhitchfreq.zap b/nhitchfreq.zap
new file mode 100644
index 0000000..41ac672
--- /dev/null
+++ b/nhitchfreq.zap
@@ -0,0 +1,200 @@
+	.FSTR FSTR?1,"the "	;3556	1779
+	.FSTR FSTR?2,"you "	;1320	661
+	.FSTR FSTR?3,", "	;1216	1217
+	.FSTR FSTR?4,"You "	;1029	344
+	.FSTR FSTR?5,"and "	;930	466
+	.FSTR FSTR?6,"The "	;894	299
+	.FSTR FSTR?7,"your "	;777	260
+	.FSTR FSTR?8,". "	;678	679
+	.FSTR FSTR?9,"that "	;669	224
+	.FSTR FSTR?10,"to "	;660	661
+	.FSTR FSTR?11,"of "	;615	616
+	.FSTR FSTR?12,"is "	;492	493
+	.FSTR FSTR?13,"have "	;456	153
+	.FSTR FSTR?14,"can't "	;410	83
+	.FSTR FSTR?15,"about "	;404	102
+	.FSTR FSTR?16,"with "	;393	132
+	.FSTR FSTR?17,"from "	;357	120
+	.FSTR FSTR?18,"in "	;353	354
+	.FSTR FSTR?19,"this "	;324	109
+	.FSTR FSTR?20,"for "	;300	151
+	.FSTR FSTR?21,"are "	;300	151
+	.FSTR FSTR?22,"you've "	;300	51
+	.FSTR FSTR?23,"There "	;290	59
+	.FSTR FSTR?24,"something "	;280	36
+	.FSTR FSTR?25,"will "	;264	89
+	.FSTR FSTR?26,"There's "	;256	33
+	.FSTR FSTR?27,"you're "	;252	43
+	.FSTR FSTR?28,"It's "	;250	51
+	.FSTR FSTR?29,"Beast "	;245	50
+	.FSTR FSTR?30,"Arthur "	;222	38
+	.FSTR FSTR?31,"Improbability "	;221	18
+	.FSTR FSTR?32,"This "	;220	56
+	.FSTR FSTR?33,"Ford "	;220	56
+	.FSTR FSTR?34,"through "	;210	36
+	.FSTR FSTR?35,"already "	;210	36
+	.FSTR FSTR?36,"which "	;204	52
+	.FSTR FSTR?37,"Have "	;200	51
+	.FSTR FSTR?38,"into "	;198	67
+	.FSTR FSTR?39,"You're "	;196	29
+	.FSTR FSTR?40,"around "	;195	40
+	.FSTR FSTR?41,"can "	;188	95
+	.FSTR FSTR?42,"on "	;187	188
+	.FSTR FSTR?43,"THE "	;186	63
+	.FSTR FSTR?44,"you'll "	;186	32
+	.FSTR FSTR?45,"it "	;180	181
+	.FSTR FSTR?46,"It "	;180	91
+	.FSTR FSTR?47,"Don't "	;180	31
+	.FSTR FSTR?48,"question "	;175	26
+	.FSTR FSTR?49,"should "	;170	35
+	.FSTR FSTR?50,"don't "	;170	35
+	.FSTR FSTR?51,"Prosser "	;168	25
+	.FSTR FSTR?52,"nothing "	;162	28
+	.FSTR FSTR?53,"Vogon "	;160	33
+	.FSTR FSTR?54,"when "	;156	53
+	.FSTR FSTR?55,"out "	;154	78
+	.FSTR FSTR?56,"just "	;150	51
+	.FSTR FSTR?57,"You'll "	;147	22
+	.FSTR FSTR?58,"not "	;146	74
+	.FSTR FSTR?59,"it's "	;144	37
+	.FSTR FSTR?60,"after "	;144	37
+	.FSTR FSTR?61,"Marvin "	;144	25
+	.FSTR FSTR?62,"until "	;140	36
+	.FSTR FSTR?63,"what "	;138	47
+	.FSTR FSTR?64,"because "	;138	24
+	.FSTR FSTR?65,"at "	;137	138
+	.FSTR FSTR?66,"has "	;136	69
+	.FSTR FSTR?67,"isn't "	;135	28
+	.FSTR FSTR?68,"anything "	;133	20
+	.FSTR FSTR?69,"see "	;130	66
+	.FSTR FSTR?70,"If "	;130	66
+	.FSTR FSTR?71,"I "	;127	128
+	.FSTR FSTR?72,"get "	;126	64
+	.FSTR FSTR?73,"but "	;126	64
+	.FSTR FSTR?74,"very "	;126	43
+	.FSTR FSTR?75,"like "	;126	43
+	.FSTR FSTR?76,"probably "	;126	19
+	.FSTR FSTR?77,"doesn't "	;126	19
+	.FSTR FSTR?78,"Arthur"	;125	26
+	.FSTR FSTR?79,"How "	;120	41
+	.FSTR FSTR?80,"small "	;120	31
+	.FSTR FSTR?81,"large "	;120	31
+	.FSTR FSTR?82,"before "	;120	25
+	.FSTR FSTR?83,"Heart "	;120	25
+	.FSTR FSTR?84,"only "	;117	40
+	.FSTR FSTR?85,"Hitchhiker's "	;117	10
+	.FSTR FSTR?86,"What "	;116	30
+	.FSTR FSTR?87,"Guide "	;115	24
+	.FSTR FSTR?88,"all "	;112	57
+	.FSTR FSTR?89,"one "	;110	56
+	.FSTR FSTR?90,"toward "	;110	23
+	.FSTR FSTR?91,"then "	;108	37
+	.FSTR FSTR?92,"you"	;105	106
+	.FSTR FSTR?93,"Ford"	;105	36
+	.FSTR FSTR?94,"guards "	;105	22
+	.FSTR FSTR?95,"would "	;104	27
+	.FSTR FSTR?96,"going "	;104	27
+
+
+;word frequency table of 96 most common words
+
+WORDS::	.TABLE
+	FSTR?1
+	FSTR?2
+	FSTR?3
+	FSTR?4
+	FSTR?5
+	FSTR?6
+	FSTR?7
+	FSTR?8
+	FSTR?9
+	FSTR?10
+	FSTR?11
+	FSTR?12
+	FSTR?13
+	FSTR?14
+	FSTR?15
+	FSTR?16
+	FSTR?17
+	FSTR?18
+	FSTR?19
+	FSTR?20
+	FSTR?21
+	FSTR?22
+	FSTR?23
+	FSTR?24
+	FSTR?25
+	FSTR?26
+	FSTR?27
+	FSTR?28
+	FSTR?29
+	FSTR?30
+	FSTR?31
+	FSTR?32
+	FSTR?33
+	FSTR?34
+	FSTR?35
+	FSTR?36
+	FSTR?37
+	FSTR?38
+	FSTR?39
+	FSTR?40
+	FSTR?41
+	FSTR?42
+	FSTR?43
+	FSTR?44
+	FSTR?45
+	FSTR?46
+	FSTR?47
+	FSTR?48
+	FSTR?49
+	FSTR?50
+	FSTR?51
+	FSTR?52
+	FSTR?53
+	FSTR?54
+	FSTR?55
+	FSTR?56
+	FSTR?57
+	FSTR?58
+	FSTR?59
+	FSTR?60
+	FSTR?61
+	FSTR?62
+	FSTR?63
+	FSTR?64
+	FSTR?65
+	FSTR?66
+	FSTR?67
+	FSTR?68
+	FSTR?69
+	FSTR?70
+	FSTR?71
+	FSTR?72
+	FSTR?73
+	FSTR?74
+	FSTR?75
+	FSTR?76
+	FSTR?77
+	FSTR?78
+	FSTR?79
+	FSTR?80
+	FSTR?81
+	FSTR?82
+	FSTR?83
+	FSTR?84
+	FSTR?85
+	FSTR?86
+	FSTR?87
+	FSTR?88
+	FSTR?89
+	FSTR?90
+	FSTR?91
+	FSTR?92
+	FSTR?93
+	FSTR?94
+	FSTR?95
+	FSTR?96
+	.ENDT
+
+	.ENDI
diff --git a/nhitchpur.zap b/nhitchpur.zap
new file mode 100644
index 0000000..bdf4698
--- /dev/null
+++ b/nhitchpur.zap
@@ -0,0 +1,390 @@
+
+
+; PURE TABLES ARE DEFINED HERE
+
+PURTBL::
+
+PT?102::
+T?DARK-ENTRANCES::	.TABLE
+	3
+	STR?21
+	STR?22
+	STR?23
+	.ENDT
+
+PT?105::
+LURCHES::	.TABLE
+	4
+	STR?44
+	STR?45
+	STR?46
+	STR?47
+	.ENDT
+
+PT?205::
+HO-HUM::	.TABLE
+	3
+	STR?48
+	STR?49
+	STR?50
+	.ENDT
+
+PT?305::
+YUKS::	.TABLE
+	4
+	STR?51
+	STR?52
+	STR?53
+	STR?54
+	.ENDT
+
+PT?405::
+IMPOSSIBLES::	.TABLE
+	6
+	STR?55
+	STR?56
+	STR?57
+	STR?58
+	STR?59
+	STR?60
+	.ENDT
+
+PT?505::
+WASTES::	.TABLE
+	3
+	STR?61
+	STR?62
+	STR?63
+	.ENDT
+
+PT?106::
+T?BORES::	.TABLE
+	7
+	STR?82
+	STR?83
+	STR?84
+	STR?85
+	STR?86
+	STR?87
+	STR?88
+	.ENDT
+
+PT?107::
+T?GIBBERISH::	.TABLE
+	40
+	STR?95
+	STR?96
+	STR?97
+	STR?98
+	STR?99
+	STR?100
+	STR?101
+	STR?102
+	STR?103
+	STR?104
+	STR?105
+	STR?106
+	STR?107
+	STR?108
+	STR?109
+	STR?110
+	STR?111
+	STR?112
+	STR?113
+	STR?114
+	STR?115
+	STR?116
+	STR?117
+	STR?118
+	STR?119
+	STR?120
+	STR?121
+	STR?122
+	STR?123
+	STR?124
+	STR?125
+	STR?126
+	STR?127
+	STR?128
+	STR?129
+	STR?130
+	STR?131
+	STR?132
+	STR?133
+	STR?134
+	.ENDT
+
+PT?109::
+INDENTS::	.TABLE
+	STR?162
+	STR?163
+	STR?164
+	STR?165
+	STR?166
+	STR?167
+	.ENDT
+
+PT?209::
+DARK-EXIT-TABLE::	.TABLE
+	HOLD
+	COUNTRY-LANE
+	LIVING-ROOM
+	ENTRY-BAY
+	LAIR
+	SPEEDBOAT
+	INSIDE-WHALE
+	WAR-CHAMBER
+	.ENDT
+
+PT?309::
+TOOL-LIST::	.TABLE
+	10
+	SCREWDRIVER
+	WRENCH
+	CHISEL
+	AWL
+	PLIERS
+	TWEEZERS
+	PINCER
+	RASP
+	CHIPPER
+	TOOTHBRUSH
+	.ENDT
+
+PT?110::
+T?LINE-TABLE::	.TABLE
+	5
+	6
+	7
+	8
+	9
+	10
+	11
+	12
+	13
+	14
+	15
+	16
+	17
+	18
+	19
+	20
+	21
+	22
+	.ENDT
+
+PT?210::
+T?COLUMN-TABLE::	.TABLE
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	4
+	.ENDT
+
+PT?310::	.TABLE
+	18
+	STR?320
+	T?210
+	T?310
+	T?410
+	T?510
+	T?610
+	T?710
+	T?810
+	T?910
+	T?1010
+	T?1110
+	T?1210
+	T?1310
+	T?1410
+	T?1510
+	T?1610
+	T?1710
+	T?1810
+	.ENDT
+
+PT?410::	.TABLE
+	7
+	STR?369
+	T?1910
+	T?2010
+	T?2110
+	T?2210
+	T?2310
+	T?2410
+	.ENDT
+
+PT?510::	.TABLE
+	15
+	STR?458
+	T?2510
+	T?2610
+	T?2710
+	T?2810
+	T?2910
+	T?3010
+	T?3110
+	T?3210
+	T?3310
+	T?3410
+	T?3510
+	T?3610
+	T?3710
+	T?3810
+	.ENDT
+
+PT?610::	.TABLE
+	18
+	STR?624
+	T?3910
+	T?4010
+	T?4110
+	T?4210
+	T?4310
+	T?4410
+	T?4510
+	T?4610
+	T?4710
+	T?4810
+	T?4910
+	T?5010
+	T?5110
+	T?5210
+	T?5310
+	T?5410
+	T?5510
+	.ENDT
+
+PT?710::	.TABLE
+	9
+	STR?677
+	T?5610
+	T?5710
+	T?5810
+	T?5910
+	T?6010
+	T?6110
+	T?6210
+	T?6310
+	.ENDT
+
+PT?810::	.TABLE
+	10
+	STR?722
+	T?6410
+	T?6510
+	T?6610
+	T?6710
+	T?6810
+	T?6910
+	T?7010
+	T?7110
+	T?7210
+	.ENDT
+
+PT?910::	.TABLE
+	8
+	STR?760
+	T?7310
+	T?7410
+	T?7510
+	T?7610
+	T?7710
+	T?7810
+	T?7910
+	.ENDT
+
+PT?1010::	.TABLE
+	9
+	STR?804
+	T?8010
+	T?8110
+	T?8210
+	T?8310
+	T?8410
+	T?8510
+	T?8610
+	T?8710
+	.ENDT
+
+PT?1110::	.TABLE
+	9
+	STR?856
+	T?8810
+	T?8910
+	T?9010
+	T?9110
+	T?9210
+	T?9310
+	T?9410
+	T?9510
+	.ENDT
+
+PT?1210::	.TABLE
+	7
+	STR?884
+	T?9610
+	T?9710
+	T?9810
+	T?9910
+	T?10010
+	T?10110
+	.ENDT
+
+PT?1310::	.TABLE
+	11
+	STR?966
+	T?10210
+	T?10310
+	T?10410
+	T?10510
+	T?10610
+	T?10710
+	T?10810
+	T?10910
+	T?11010
+	T?11110
+	.ENDT
+
+PT?1410::	.TABLE
+	5
+	STR?1119
+	T?11210
+	T?11310
+	T?11410
+	T?11510
+	.ENDT
+
+PT?1510::
+T?HINTS::	.TABLE
+	12
+	PT?310
+	PT?410
+	PT?510
+	PT?610
+	PT?710
+	PT?810
+	PT?910
+	PT?1010
+	PT?1110
+	PT?1210
+	PT?1310
+	PT?1410
+	.ENDT
+
+PURTND::
+	.ENDI
diff --git a/nhitchstr.zap b/nhitchstr.zap
new file mode 100644
index 0000000..c90da65
--- /dev/null
+++ b/nhitchstr.zap
@@ -0,0 +1,1192 @@
+
+
+; STRINGS ARE DEFINED HERE
+
+STRBEG::
+
+	.GSTR STR?6,"PRSO"
+	.GSTR STR?10,"cup"
+	.GSTR STR?12,"A carton labelled ""Nutrimat/Computer Interface"" is sitting here."
+	.GSTR STR?50," has no desirable effect."
+	.GSTR STR?55,"You have lost your mind."
+	.GSTR STR?109,"i l"
+	.GSTR STR?162,""
+	.GSTR STR?412,"You have to block the tiny robot panel."
+	.GSTR STR?414,"You have to put some object in front of the panel."
+	.GSTR STR?558,"You have to show an example of your intelligence to the screening door."
+	.GSTR STR?561,"To show your intelligence, there are two specific items that you must be holding at the same time."
+	.GSTR STR?633,"You have to cover your head with something."
+	.GSTR STR?642,"You have to give your correct name to the Beast, or (in a rare moment of Bugblatter Beast perceptivity) it will be able to tell that you're lying. In addition, you can't tell the Beast your name if the Beast thinks it can't see you."
+	.GSTR STR?676,"You have a limited number of moves to get the interface, after the Beast falls asleep and before the Fronurbdian Beasthunters arrive."
+	.GSTR STR?684,"Try typing WHERE IS THE KEY while on the speedboat."
+	.GSTR STR?712,"You have to figure out a way to get rid of the guards or the rifles permanently."
+	.GSTR STR?773,"Try to give the towel to Arthur."
+	.GSTR STR?780,"You have to talk to Prosser."
+	.GSTR STR?841,"You have an opportunity here to remove your own common sense."
+	.GSTR STR?844,"Taking the particle also has the beneficial side effect of getting you out of the Maze."
+	.GSTR STR?943,"You have nothing to water the plant with."
+	.GSTR STR?4,"Preaction"
+	.GSTR STR?129,"a b"
+	.GSTR STR?161,"SPLAT!!!!!"
+	.GSTR STR?175,"Try: CONSULT GUIDE ABOUT (something)."
+	.GSTR STR?405,"Use the hook above the hole."
+	.GSTR STR?444,"ENJOY THE POETRY while the Captain reads the first verse. He will continue on and read the second verse."
+	.GSTR STR?496,"Use the interface."
+	.GSTR STR?828,"...so you must be microscopic-sized yourself."
+	.GSTR STR?938,"Now wait."
+	.GSTR STR?1063,"ATOMIC VECTOR PLOTTER"
+	.GSTR STR?1076,"IMPROBABILITY DRIVES"
+	.GSTR STR?1079,"LARGE PLUG"
+	.GSTR STR?1081,"MAGRATHEA"
+	.GSTR STR?22,"Like fog rolling in off the ocean, a shroud of blackness billows toward you. Unlike fog rolling in off the ocean, the blackness hits you like a sixteen-tonne truck..."
+	.GSTR STR?72,"21,914"
+	.GSTR STR?100,"fim"
+	.GSTR STR?421,"Put something on the satchel, then push the button again."
+	.GSTR STR?519,"READ THE MESSAGE THROUGH THE MAGNIFYING GLASS."
+	.GSTR STR?563,"To prove your intelligence to the door, you must be holding TEA and NO TEA at the same time."
+	.GSTR STR?656,"First you have to tell the Beast your name and cover your head with the towel."
+	.GSTR STR?671,"First you'll have to figure out how to ""neutralize"" the Beast."
+	.GSTR STR?758,"Naturally, the fluff is still in the handbag when you eventually get back to the Heart of Gold. You need only go to the Bridge or wherever you left the handbag, open it, and take the jacket fluff."
+	.GSTR STR?66,"On the doormat is a pile of junk mail."
+	.GSTR STR?128,"tru"
+	.GSTR STR?164,"    "
+	.GSTR STR?190,"With a towel wrapped around your head!?!"
+WITH-TOWEL=STR?190
+	.GSTR STR?257,"TAKE GOWN. PUT IT ON. OPEN THE POCKET. TAKE THE ANALGESIC."
+	.GSTR STR?260,"Now you know what's going on outside."
+	.GSTR STR?282,"At this point, listen to Ford and follow him to the Pub."
+	.GSTR STR?320,"ON THE EARTH"
+	.GSTR STR?342,"Try HEAR NOTHING or LISTEN TO DARKNESS."
+	.GSTR STR?348,"At the fourth turn in Dark, one of your five senses will disappear."
+	.GSTR STR?395,"Now you know what to type. Just wait around to hear the captain's poetry reading and see the question about what's going on in the Captain's Quarters."
+	.GSTR STR?417,"At this point, brave men have been known to break down and cry."
+	.GSTR STR?427,"Put the junk mail on the satchel, then press the button one last time."
+	.GSTR STR?760,"AT THE PARTY"
+	.GSTR STR?886,"Yes."
+	.GSTR STR?33,"legend"
+	.GSTR STR?46,"You lunge for it, but the room spins nauseatingly away. The floor gives you a light tap on the forehead."
+	.GSTR STR?58,"I'm not convinced you're allowed to be playing with this computer."
+	.GSTR STR?188,"I don't see what you're referring to."
+REFERRING=STR?188
+	.GSTR STR?255,"See the previous question."
+	.GSTR STR?300,"Or BARTENDER, GIVE ME A CHEESE SANDWICH."
+	.GSTR STR?319,"See the question about how much beer to drink."
+	.GSTR STR?383,"See the Hitchhiker's Guide question in the General Questions section for more information."
+	.GSTR STR?393,"See the question about the babel fish."
+	.GSTR STR?431,"See the questions about the babel fish."
+	.GSTR STR?433,"Why are the guards dragging me away?"
+	.GSTR STR?434,"See the question about the gibberish from the intercom."
+	.GSTR STR?486,"See the question about the missile attack at the end of this section."
+	.GSTR STR?503,"See the question about the spare Improbability Drive."
+	.GSTR STR?509,"See the question about controlling where you go when you leave Dark, in the section called ""In the Dark""."
+	.GSTR STR?605,"See the question about the fluff."
+	.GSTR STR?669,"See the question about the sandstone memorial."
+	.GSTR STR?751,"See the previous questions in this section of the hint booklet."
+	.GSTR STR?795,"You learn a lot about Ford's motivations, thus making for a more cohesive, internally consistent story line."
+	.GSTR STR?843,"See the question about no tea in the General Questions section."
+	.GSTR STR?954,"See the question about opening the hatch in the Heart of Gold section."
+	.GSTR STR?966,"GENERAL QUESTIONS"
+	.GSTR STR?1089,"SANTRAGINEAN MINERAL WATER"
+	.GSTR STR?29,"ends"
+	.GSTR STR?97,"irb"
+	.GSTR STR?115,"zit"
+	.GSTR STR?125,"huv"
+	.GSTR STR?142," and life in the Universe has to carry on without you."
+	.GSTR STR?143," and ... well, do you really want to know the rest? The point is that you have died."
+	.GSTR STR?152," and pulls you into a corner. Days later, you expire from thirst and exhaustion."
+	.GSTR STR?157,"""President Beeblebrox is a Swell Guy"" (Footnote 15)."
+	.GSTR STR?206,"""Oh...you're trying to figure that out also? The manual's not much help, is it? By the way, do you know your score? I don't. My computer doesn't have a status line."""
+ASK-ABOUT-OBJECT=STR?206
+	.GSTR STR?209," You're getting close, though."
+GETTING-CLOSE=STR?209
+	.GSTR STR?222," the legendary lost planet of Magrathea"
+LOST-PLANET=STR?222
+	.GSTR STR?232," the manual override receptacle"
+MOP=STR?232
+	.GSTR STR?304,"You might return to survey the rubble, or to have it out with Prosser."
+	.GSTR STR?498,"Still having trouble getting tea? See the question about the missile attack. It's the last question in this section."
+	.GSTR STR?599,"You must give him the proper tool or you've blown your one chance to get the hatchway open."
+	.GSTR STR?631,"You must find a way to prevent yourself from seeing the Beast. The Beast will then decide that since you can't see it, it can't see you!"
+	.GSTR STR?644,"Still stuck? Go on to the next question."
+	.GSTR STR?698,"You might try smiling, or waving, or making a speech."
+	.GSTR STR?793,"You may find out more about the dog later."
+	.GSTR STR?822,"You must become Ford Prefect first."
+	.GSTR STR?1047,"pushing the red button on the Thumb when an Engineer robot is already present?"
+	.GSTR STR?1071,"GALAXIA WOONBEAM"
+	.GSTR STR?1103,"FN# HOW TO GET IT"
+	.GSTR STR?151,"You notice the hostess approaching, but, using several mingling couples as cover, you maneuver away."
+	.GSTR STR?170,"The air becomes thick with photon beams."
+	.GSTR STR?214,"You notice the Beast's Lasero-Zap eyes, its Swivel Shear Teeth, and its several dozen tungsten carbide Vast-Pain claws, forged in the sun furnaces of Zangrijad. It has skin like a motorway and breath like a 747."
+BEAST-DESC=STR?214
+	.GSTR STR?247,"Why can't I pick things up?"
+	.GSTR STR?279,"Should I go with Ford to the Pub?"
+	.GSTR STR?404,"You need to block the small hole."
+	.GSTR STR?432,"The announcement will begin 18 turns after you enter the Vogon Hold, or 3 turns after you obtain the babel fish."
+	.GSTR STR?460,"Listen to Ford."
+	.GSTR STR?466,"That you should be picked up in the vast emptiness of space by a ship inhabited by an acquaintance from your now destroyed native planet as well as your travelling companion's semi-cousin, can only be considered highly improbable. But then, with Infinite Improbability Drives at work, the infinitely improbable is not only possible but quite likely."
+	.GSTR STR?552,"That still leaves the drive's large plug unattached. See the question about the controls on the Bridge."
+	.GSTR STR?620,"That didn't work? Have you examined the spare Drive and the control console on the Bridge?"
+	.GSTR STR?678,"Who am I?"
+	.GSTR STR?690,"The autopilot doesn't seem concerned about your situation, since it just takes a look around and then shuts itself off."
+	.GSTR STR?691,"You need to give the autopilot some impetus to go to work."
+	.GSTR STR?750,"That item is the unsightly piece of jacket fluff."
+	.GSTR STR?796,"Oh, right. You're more interested in puzzle solutions. The entire point of this scene is acquiring one particular item for use on the Heart of Gold."
+	.GSTR STR?800,"That something is Arthur Dent."
+	.GSTR STR?820,"You need to feed the dog back at the beginning of the game."
+	.GSTR STR?928,"The ancient legend is of particular interest."
+	.GSTR STR?952,"They don't really have much use..."
+	.GSTR STR?1115,"12  This footnote is self referenced"
+	.GSTR STR?30,"Biting"
+	.GSTR STR?60,"No, no, a thousand times no. Go boil an egg."
+	.GSTR STR?131,"w c"
+	.GSTR STR?134,"i s"
+	.GSTR STR?154,"The boat is gone."
+	.GSTR STR?192,"The bulldozer piles into the side of your home."
+BULLDOZER-PILES=STR?192
+	.GSTR STR?198,"The battle fleet plunges toward Earth and"
+FLEET-PLUNGES=STR?198
+	.GSTR STR?204," Thumb merely makes a few feeble clicking noises."
+THUMB-CLICKS=STR?204
+	.GSTR STR?219,"The barman snaps ""Hands off until you pay for it!"""
+HANDS-OFF=STR?219
+	.GSTR STR?227," Slowly it dawns on the creature that someone is trying to make a fool of it. It starts to look for you again."
+SLOWLY-DAWNS=STR?227
+	.GSTR STR?254,"You'll have to get rid of it."
+	.GSTR STR?272,"You'll have to wait a few turns after you lie down before the bulldozer finally grinds to a halt."
+	.GSTR STR?317,"Why do I die during transference?"
+	.GSTR STR?358,"Tea is a better source of Brownian Motion for the Improbability Drive than the Advanced Tea Substitute (ATS). Try it."
+	.GSTR STR?366,"If seeing is the missing sense: When the light stabs at the ""front"" of your eyes, then your exit is the Country Lane. When it's at the ""back"" of your eyes, then you go onto the Presidential Speedboat."
+	.GSTR STR?374,"Why do I get groggy and die?"
+	.GSTR STR?387,"You'll have to get the babel fish on your own."
+	.GSTR STR?398,"Why does the machine go ""click""?"
+	.GSTR STR?409,"You'll have to block the drain."
+	.GSTR STR?477,"Are the Bridge controls useful?"
+	.GSTR STR?524,"You'll be able to find the Nutrimat/Computer Interface elsewhere in the game."
+	.GSTR STR?533,"You'll have to argue with the game for a few turns."
+	.GSTR STR?540,"You'll have to be persistent if you want to find out what's in the Engine Room."
+	.GSTR STR?544,"You'll need the atomic vector plotter from the Vogon Hold. If you never got it while you were aboard the Vogon ship, you'll have to start the game over or go back to a saved position."
+	.GSTR STR?545,"You'll also need a good source of Brownian Motion."
+	.GSTR STR?548,"You'll need the cup of Advanced Tea Substitute (ATS), which you can get from the Nutrimat in the Galley."
+	.GSTR STR?571,"You'll have to make yourself very happy before entering."
+	.GSTR STR?593,"You'll have to figure out how to override Eddie's wishes by fixing the hatchway mechanism in the Access Space."
+	.GSTR STR?616,"You'll have to save the ship yourself."
+	.GSTR STR?637,"Why does the beast ask me my name?"
+	.GSTR STR?658,"Are the tall walls important?"
+	.GSTR STR?663,"Are the bleached bones important?"
+	.GSTR STR?668,"Are the sharp stones important?"
+	.GSTR STR?957,"Flathead screwdriver: in your Bedroom. Toothbrush: in your Bedroom. Tweezers: inside Trillian's handbag. Molecular hyperwave pincer: on the Bridge. Ionic diffusion rasp: in the Engine Room. Hypersonic pliers: in the Engine Room. Thermo-fusion chisel: in Marvin's Pantry. Laser-assisted monkey wrench: inside the toolbox on the speedboat. Ultra-plasmic vacuum awl: in the War Chamber. Number twelve asteroid paint chipper: you're holding it when you return from your adventure at the end of the Traal scene."
+	.GSTR STR?965,"You obviously didn't read your manual very carefully. That's explained in the section entitled Important Commands."
+	.GSTR STR?1015,"opening the hatch in the Heart of Gold before landing on Magrathea?"
+	.GSTR STR?7,"This is a small closet with an exit to starboard."
+	.GSTR STR?16,"This is an entry bay for the Heart of Gold. A corridor lies aft of here."
+	.GSTR STR?28,"begins"
+	.GSTR STR?38,"Knocking on"
+	.GSTR STR?51,"What a concept."
+	.GSTR STR?65,"This is the enclosed front porch of your home. Your front garden lies to the south, and you can reenter your home to the north."
+	.GSTR STR?139,"This airlock has massive doors to port and starboard."
+	.GSTR STR?144,"This is the heart of the Beast's lair. The only exit leads northeast."
+	.GSTR STR?146,"This is part of a spongy gray maze of twisty little synapses, all alike."
+	.GSTR STR?224,"The crowd cheers wildly! It thinks you're terrific."
+CROWD-CHEERS=STR?224
+	.GSTR STR?273,"What should I do with Ford Prefect?"
+	.GSTR STR?281,"This will happen if you wait a few turns after Ford shows up."
+	.GSTR STR?283,"What should I do in the Pub?"
+	.GSTR STR?305,"What should I do about the dog?"
+	.GSTR STR?340,"This time, though, it isn't smell that goes away on the fourth description."
+	.GSTR STR?375,"This is caused by your protein loss during the matter transference beams."
+	.GSTR STR?396,"What is the tall dispensing machine?"
+	.GSTR STR?400,"What is a babel fish?"
+	.GSTR STR?401,"Consult the Guide."
+	.GSTR STR?436,"What happens in Captain's Quarters?"
+	.GSTR STR?441,"This poetry is painfully awful. Have you tried to STOP THE POETRY or COVER MY EARS or DON'T LISTEN TO THE VOGON POETRY."
+	.GSTR STR?455,"Apparently, there's another spaceship nearby. Try hitchhiking by pressing the green button."
+	.GSTR STR?456,"This sends you through a matter transference beam, and you find yourself in the Dark again."
+	.GSTR STR?471,"Is Eddie, the ship computer, of use?"
+	.GSTR STR?499,"What is the Advanced Tea Substitute?"
+	.GSTR STR?546,"Consult the Hitchhiker's Guide about Brownian Motion."
+	.GSTR STR?554,"This is a very difficult problem."
+	.GSTR STR?583,"What puzzles or obstacles still remain that he might help with?"
+	.GSTR STR?614,"This is a good point for a SAVE."
+	.GSTR STR?615,"The computer is helpless because you've tied it up with the Nutrimat interface."
+	.GSTR STR?617,"The computer is tied up, so it can't turn on the main Drive during this emergency."
+	.GSTR STR?645,"What use is the sandstone memorial?"
+	.GSTR STR?694,"What do I do when the boat docks?"
+	.GSTR STR?696,"What do I do when I reach the Dais?"
+	.GSTR STR?700,"What do I do about the Guards?"
+	.GSTR STR?711,"This isn't helpful all by itself, since the guards pick up their rifles and still shoot you if you break for the ship."
+	.GSTR STR?725,"This is the Party where Arthur Dent tried to pick up Tricia MacMillan (but, you'll recall, failed completely)."
+	.GSTR STR?727,"What should I do about Phil?"
+	.GSTR STR?731,"The cage is hiding Phil's second head."
+	.GSTR STR?735,"What should I do about Arthur?"
+	.GSTR STR?740,"What should I do about the hostess?"
+	.GSTR STR?772,"What did Ford do at this point when you were Arthur?"
+	.GSTR STR?775,"What should I do about Prosser?"
+	.GSTR STR?789,"Then DRINK THE BEER. Arthur will follow your example. You need to do this twice."
+	.GSTR STR?802,"This is a rather weird action, and Arthur won't accept the fluff until he's had enough beer."
+	.GSTR STR?812,"Then solve the puzzle involving the giant dog."
+	.GSTR STR?817,"This is the very same dog you ran into in the Country Lane back at the beginning of the game."
+	.GSTR STR?838,"What is this black particle for?"
+	.GSTR STR?889,"What is the thing my aunt gave me?"
+	.GSTR STR?895,"This is useful for transporting more objects than you can carry, but it isn't ever necessary to do so."
+	.GSTR STR?933,"A list of all four fluff, and their locations, follows. You shouldn't look at this list unless you're completely stumped, because it will give away a lot."
+	.GSTR STR?941,"What do I do about the plant?"
+	.GSTR STR?950,"What are all these tools for?"
+	.GSTR STR?956,"A list of all ten, and their locations, follows. You shouldn't look at this list unless you're completely stumped, because it will give away a lot."
+	.GSTR STR?958,"What is the goal of the game?"
+	.GSTR STR?968,"This section should only be used as a last resort, or for your own interest after you've completed the game."
+	.GSTR STR?1069,"FRANCE"
+	.GSTR STR?68,"Arthur"
+	.GSTR STR?80,"Arthur Dent is here."
+	.GSTR STR?81,"Arthur exclaims"
+	.GSTR STR?88,"computers."
+	.GSTR STR?90,"The door to the corridor is locked (from the outside)."
+	.GSTR STR?106,"d t"
+	.GSTR STR?114,"u n"
+	.GSTR STR?118,"qui"
+	.GSTR STR?354,"Not usually."
+	.GSTR STR?473,"Eddie is the only one who can turn on the main drive."
+	.GSTR STR?475,"Eddie's help is indirectly necessary to obtain a cup of tea."
+	.GSTR STR?591,"Eddie (the shipboard computer) jammed the hatch to prevent anyone from leaving the ship until he's checked to make sure the environment is safe."
+	.GSTR STR?667,"Black paint? There's no black paint. You're looking at answers you shouldn't be."
+	.GSTR STR?730,"The draped cage on his shoulder does NOT contain a bird."
+	.GSTR STR?736,"Arthur keeps trying to start a conversation with you, but he's too shy and embarrassed. If you try to talk to him, he finds your tone rather cool, and moves away."
+	.GSTR STR?785,"Arthur is now willing to follow you to the Pub."
+	.GSTR STR?801,"Give the fluff to Arthur."
+	.GSTR STR?814,"The dog really isn't a giant dog."
+	.GSTR STR?818,"The dog swallows the space fleet for one particular reason."
+	.GSTR STR?1060,"GUIDE ENTRIES"
+	.GSTR STR?1078,"INTELLIGENCE"
+	.GSTR STR?61,"Complete waste of time."
+	.GSTR STR?112,"ulp"
+	.GSTR STR?169,"Done."
+	.GSTR STR?172," of five turns ago suddenly materialises inside your brain. There is an incredibly nasty, cracking, scrunching noise, and blood and bone fly everywhere as your head, to be perfectly frank about this, explodes. We did warn you."
+	.GSTR STR?229,"finite Improbability Generator"
+FIG=STR?229
+	.GSTR STR?297,"At least, not when you're Arthur."
+	.GSTR STR?364,"For example, when smell disappears, type SMELL DARK. If the object is ""being waved,"" then the exit leads to the Vogon Hold. If the object is ""waving,"" the exit is the Lair of the Ravenous Bugblatter Beast of Traal."
+	.GSTR STR?365,"When hearing is missing: If the sound is ""far above you,"" then your exit is Entry Bay Number Two of the Heart of Gold. If it's ""far below you,"" then it's the War Chamber of the battle fleet."
+	.GSTR STR?367,"When feel is missing: If it feels ""cold"" and wet and squishy, the exit is to the Living Room party. When it's ""warm,"" your exit is into the sperm whale."
+	.GSTR STR?368,"When you are controlling dark and have determined your current exit, but you don't want to go there, simply WAIT and you will get a new missing sense. NOTE: You will never get the whale exit unless you are using real tea for your Brownian Motion source."
+	.GSTR STR?419,"When you placed the satchel in front of the panel, the satchel is now LYING ON ITS SIDE in front of the panel."
+	.GSTR STR?426,"When the upper-half-of-the-room cleaning robot grabbed the babel fish the first time it said that the fish was ""the only flying junk"" that the robot found."
+	.GSTR STR?442,"When he finishes the first verse the Captain says, ""You didn't look like you enjoyed my poetry at all!"" and then has you thrown into space."
+	.GSTR STR?446,"For example, if the recording asked you to type the second word from the second verse, and the word was ""lyshus,"" you should type TYPE ""LYSHUS"" when you get back to the Vogon Hold. NOTE: Each time you play the game, the lines of the second verse come in different orders. Similarly, the glass case's recording asks for a different number word each time you play."
+	.GSTR STR?484,"When you use the drive while it's plugged into the large receptacle, both the large receptacle and the large plug are destroyed."
+	.GSTR STR?580,"Before Marvin will perform his one task, you must get past the screening door near the aft end of the corridor."
+	.GSTR STR?595,"Someone else does."
+	.GSTR STR?675,"The entire point of this scene is to get that Nutrimat/Computer Interface."
+	.GSTR STR?791,"When Arthur's house is destroyed, he will rush out of the Pub. It would be a good idea to stay with him."
+	.GSTR STR?809,"Those two warring races have now set off on a quest for vengeance against the world (Earth) that spawned the person (you) whose remark set off their war."
+	.GSTR STR?997,"to GET DRUNK in the pub?"
+	.GSTR STR?1,"Not Here"
+	.GSTR STR?136,"""Fripping lyshus wimbgunts, awhilst moongrovenly kormzibs."""
+	.GSTR STR?207,"You struggle to reach the Thumb, but the wind is too fierce and you are driven back."
+DRIVEN-BACK=STR?207
+	.GSTR STR?349,"You should type the sense that no longer appears, such as SMELL or SEE."
+	.GSTR STR?350,"The first time, smell will go away. See the first question in this section."
+	.GSTR STR?415,"If it isn't bulky enough, the cleaning robot dashes around it."
+	.GSTR STR?440,"You should now know that you have to listen to the second verse (not line) of the poem in order to get the atomic vector plotter."
+	.GSTR STR?450,"You should have gotten the atomic vector plotter."
+	.GSTR STR?493,"But first, you'll need something that isn't in the Galley."
+	.GSTR STR?589,"If sirens and lights went off when you tried to open the hatch, then the ship is still in space. Wait until the ship has landed."
+	.GSTR STR?619,"Turn on the spare Drive."
+	.GSTR STR?705,"You should say GUARDS, DON'T SHOOT or GUARDS, DROP THE PHOTON RIFLES."
+	.GSTR STR?770,"You shouldn't be in the Pub at this point."
+	.GSTR STR?771,"According to the introductory text for this scene, why did you come here?"
+	.GSTR STR?784,"Try PROSSER, LIE DOWN IN FRONT OF THE BULLDOZER."
+	.GSTR STR?788,"The first thing to do is BUY SOME BEER."
+	.GSTR STR?847,"The first theory states that the particle is too small to see when you recover from being microscopic."
+	.GSTR STR?851,"You should be able to figure it out for yourself."
+	.GSTR STR?854,"The first goal is to get the awl."
+	.GSTR STR?907,"You should read the Guide entry on the Thumb."
+	.GSTR STR?916,"The first is near the beginning of the game, when you use it to get to the Vogon ship."
+	.GSTR STR?937,"You should plant each piece of fluff in the flowerpot."
+	.GSTR STR?991,"You shouldn't develop anything in this section until you've finished the game. Things in the section will invariably give away the answers to puzzles in the game."
+	.GSTR STR?1026,"to CARVE NAME ON MEMORIAL (rather than CARVE MY NAME ON MEMORIAL)?"
+	.GSTR STR?1036,"jumping into the water from the Presidential Speedboat?"
+	.GSTR STR?1087,"RAVENOUS BUGBLATTER BEAST OF TRAAL"
+	.GSTR STR?96,"r g"
+	.GSTR STR?177,"It goes down well."
+DOWN-WELL=STR?177
+	.GSTR STR?248,"Are you out of the bed with the light on?"
+	.GSTR STR?258,"Is the pile of mail important?"
+	.GSTR STR?425,"Is there an object that when flung into the air might act as many items?"
+	.GSTR STR?435,"The guards will arrive 36 turns after you arrive in the Vogon Hold, or 5 turns after you obtain a babel fish."
+	.GSTR STR?504,"Is the cup of tea important?"
+	.GSTR STR?520,"Is the shipping carton important?"
+	.GSTR STR?525,"Is the strange gun important?"
+	.GSTR STR?530,"The gun is completely worthless, useless, and unimportant."
+	.GSTR STR?538,"The game claims that there's nothing interesting there."
+	.GSTR STR?542,"Is the spare Drive important?"
+	.GSTR STR?608,"The glimpse of the future provided by the fruit tells you what tool to bring into the Access Space."
+	.GSTR STR?703,"The guards don't know that you're planning to steal the Heart of Gold, so they're on your side."
+	.GSTR STR?713,"The guards will NOT leave the scene, no matter what you do."
+	.GSTR STR?830,"Ah, but whose brain?"
+	.GSTR STR?856,"WAR CHAMBER/MAZE"
+	.GSTR STR?885,"Is there a significance to ""no tea""?"
+	.GSTR STR?899,"Is the Hitchhiker's Guide important?"
+	.GSTR STR?1062,"ALCOHOL"
+	.GSTR STR?47,"You're certainly picking the tough tasks. The floor acts like a trampoline on an ice rink, or like something they've been working on for years at Disneyland."
+	.GSTR STR?84,"how badly Americans make tea."
+	.GSTR STR?149,"The hostess, a lethally dull woman, corners you and bores you to death. Literally."
+	.GSTR STR?215,"You're not holding"
+NOT-HOLDING=STR?215
+	.GSTR STR?234," you've been trying to get rid of it for years."
+GET-RID=STR?234
+	.GSTR STR?335,"That's your way out of Dark."
+	.GSTR STR?381,"That's the Hitchhiker's Guide to the Galaxy."
+	.GSTR STR?474,"But he won't obey your order to do that, only Zaphod's."
+	.GSTR STR?610,"You're now awesomely close to the end of the game."
+	.GSTR STR?677,"ON TRAAL"
+	.GSTR STR?681,"You're on Damogran. If you'd like to know more about it, consult the Hitchhiker's Guide."
+	.GSTR STR?697,"You're here for the dedication ceremonies of the Heart of Gold. You obviously have the crowd eating out of your hands."
+	.GSTR STR?702,"Trillian isn't really attacking you. It's just part of your plan to steal the Heart of Gold."
+	.GSTR STR?704,"You're President of the Galaxy! The guards will probably listen to your orders."
+	.GSTR STR?741,"You're usually able to avoid her."
+	.GSTR STR?781,"But he can't hear you from here."
+	.GSTR STR?829,"You're inside a brain."
+	.GSTR STR?857,"You're still Arthur in this scene."
+	.GSTR STR?858,"You're inside a sperm whale, obviously."
+	.GSTR STR?881,"Isn't it obvious?"
+	.GSTR STR?1016,"kicking the screening door, then entering Marvin's Pantry?"
+	.GSTR STR?1034,"throwing the glass of wine or the plate of hors d'oeuvres?"
+	.GSTR STR?1037,"throwing something into the water from the boat?"
+	.GSTR STR?1040,"examining the approaching star system and the third planet from the War Chamber of the battle fleet?"
+	.GSTR STR?1108," 5  Remove the towel (beast asleep)"
+	.GSTR STR?63,"A totally unhelpful idea."
+	.GSTR STR?86,"a recent visit to Tiverton."
+	.GSTR STR?94,". You, however, are blasted into tiny bits and smeared all over the room. Several cleaning robots fly in and wipe you neatly off the walls."
+	.GSTR STR?179,"(We were lying about the exit to port.) "
+LYING-ABOUT-EXIT=STR?179
+	.GSTR STR?182,"Look around you."
+LOOK-AROUND=STR?182
+	.GSTR STR?333,"Try SMELL THE DARKNESS or SMELL NOTHING or even just SMELL."
+	.GSTR STR?457,"Both methods of surviving the Airlock are equivalent."
+	.GSTR STR?476,"But in terms of solving puzzles, you can basically ignore Eddie."
+	.GSTR STR?622,"Note that when the spare Drive is NOT connected to the control console and you turn it on, the effect is always directed at you personally. When the spare Drive IS connected to the console, activating it has an effect on the entire ship."
+	.GSTR STR?674,"Go southwest from the Lair."
+	.GSTR STR?756,"Look at what you're carrying again."
+	.GSTR STR?846,"Particle physicists have two theories on what happened to the particle."
+	.GSTR STR?859,"Note the sound of rushing air."
+	.GSTR STR?914,"To do so, push the red button to summon a repair robot. See the following question for further details on repairing the Thumb."
+	.GSTR STR?971,"    5  Drinking the beer (1st time)"
+	.GSTR STR?972,"    5  Drinking the beer (2nd time)"
+	.GSTR STR?973,"    5  Drinking the beer (3rd time)"
+	.GSTR STR?1000,"petting or kicking the dog?"
+	.GSTR STR?1030,"showing the thing your aunt gave you to the Beast?"
+	.GSTR STR?1082,"MATTER TRANSFERENCE BEAMS"
+	.GSTR STR?1116,"13  Push the autopilot button thrice"
+	.GSTR STR?20,"Everything becomes dark! But no, not quite everything ... There's a big bright planet below, just visible behind your mighty tail fin. Air begins rushing by, tickling your snout and dorsal fins ... you suddenly realise that, improbably enough, you've turned yourself into a sperm whale and are plummeting through the atmosphere of a planet! You begin experimenting with your new body, opening and closing your spout and wagging your enormous tail. Just as you are getting used to being a whale, the ground rushes up and hits you at about 200 mph."
+	.GSTR STR?40,"Pushing"
+	.GSTR STR?105,"vup"
+	.GSTR STR?262,"What's that bulldozer doing outside?"
+	.GSTR STR?315,"You want to hitch a ride aboard one of the Vogon ships."
+	.GSTR STR?334,"What's this shadow I see?"
+	.GSTR STR?380,"What's this Guide Ford gives me?"
+	.GSTR STR?428,"What's the gibberish I hear?"
+	.GSTR STR?551,"You want to plug the small plug (from the drive) into the small receptacle (in the atomic vector plotter). Put the plotter's long dangly bit into the cup of ATS."
+	.GSTR STR?576,"Until a point, he won't do anything you tell him to do."
+	.GSTR STR?586,"You want to order Marvin to open the hatch (as in MARVIN, OPEN THE HATCH). See the question about opening the hatch for more information."
+	.GSTR STR?651,"You want to carve your name in the memorial, as in CARVE MY NAME ON THE SANDSTONE MEMORIAL."
+	.GSTR STR?670,"What's the point of the Traal scene?"
+	.GSTR STR?708,"Until Trillian shows up, the game won't even let you try."
+	.GSTR STR?718,"What's the point of Damogran?"
+	.GSTR STR?748,"What's the point of the party scene?"
+	.GSTR STR?752,"You want to get ""picked up"" by Phil. However, he won't take any notice of you until you take the fluff and get Arthur talking to you."
+	.GSTR STR?765,"You want to do what Ford did when you were Arthur."
+	.GSTR STR?777,"You want Arthur to come with you to the Pub."
+	.GSTR STR?779,"He won't stand up until you've safeguarded his house."
+	.GSTR STR?783,"You want him to lie down in front of the bulldozer."
+	.GSTR STR?794,"What's the point of this scene?"
+	.GSTR STR?805,"What's going on in the War Chamber?"
+	.GSTR STR?850,"What's the point of this section?"
+	.GSTR STR?880,"What's the point of the whale?"
+	.GSTR STR?884,"INSIDE THE WHALE"
+	.GSTR STR?925,"What's this nonsense about fluff?"
+	.GSTR STR?977,"   25   Opening the glass case"
+	.GSTR STR?978,"   25   Entering the Engine Room"
+	.GSTR STR?979,"   25   Getting the Interface"
+	.GSTR STR?981,"   25   Leaving the party with Phil"
+	.GSTR STR?982,"   25   Stealing the Heart of Gold"
+	.GSTR STR?983,"   25   Taking the black particle"
+	.GSTR STR?985,"   25   Entering Marvin's Pantry"
+	.GSTR STR?986,"   25   Blooming the plant"
+	.GSTR STR?987,"   25   Get Marvin to open the hatch"
+	.GSTR STR?1019,"smashing the circuit board?"
+	.GSTR STR?1045,"wrapping the towel around your head anywhere except Traal?"
+	.GSTR STR?1094,"THUMB"
+	.GSTR STR?1101,"FOOTNOTES"
+	.GSTR STR?32,"gun"
+	.GSTR STR?70,"Prosser"
+	.GSTR STR?87,"a new book by Douglas Adams."
+	.GSTR STR?191,"A brave, Zen-like effort. It fails."
+ZEN=STR?191
+	.GSTR STR?201," in a cloud of green, sweet-smelling steam. "
+CLOUD-OF-STEAM=STR?201
+	.GSTR STR?225,"Humans are so depressingly "
+HUMANS=STR?225
+	.GSTR STR?491,"Actually, there is a way to get something else from the Nutrimat."
+	.GSTR STR?579,"He always disappears through a certain door."
+	.GSTR STR?722,"ON DAMOGRAN"
+	.GSTR STR?924,"Actually, you can shortcut by showing the guarantee first."
+	.GSTR STR?934,"Pocket fluff: in the pocket of your gown at the start of the game. Satchel fluff: inside Ford's satchel (see EARTH, REVISITED). Jacket fluff: on Arthur's jacket (see AT THE PARTY). Seat cushion fluff: under the pilot seat of the speedboat (see ON DAMOGRAN)."
+	.GSTR STR?947,"Carry the plant into the sauna."
+	.GSTR STR?1099,"various tools"
+	.GSTR STR?1100,"various weapons"
+	.GSTR STR?2,"Actor"
+	.GSTR STR?104,"a r"
+	.GSTR STR?174," is certainly a shock to the system. Too bad you didn't consume enough alcohol to withstand it."
+	.GSTR STR?212,"Just as the Beast is trying to work out where you've disappeared to, it "
+JUST-AS=STR?212
+	.GSTR STR?285,"Why not do as he says?"
+	.GSTR STR?323,"You've been through a matter transference beam, and still haven't recovered from the shock of it."
+	.GSTR STR?339,"You've been through Dark at least once before, so you know what's going on."
+	.GSTR STR?443,"Why not relax and enjoy it?"
+	.GSTR STR?462,"You've just been picked up by a fantastic new spaceship powered by something called an Infinite Improbability Drive. Find out more about the drive."
+	.GSTR STR?479,"The large receptacle is important."
+	.GSTR STR?481,"The large plug from the spare Drive can be plugged into the large receptacle."
+	.GSTR STR?508,"Because it has even more Brownian Motion than the ATS, it will make a better source of it for the spare Improbability Drive. Try it."
+	.GSTR STR?624,"THE HEART OF GOLD"
+	.GSTR STR?692,"Instead of steering toward the channel, try steering toward the cliff or the rocky spire."
+	.GSTR STR?811,"Just TAKE AWL!"
+	.GSTR STR?879,"Just put the flowerpot inside the aunt's gift and then wait until the whale splats. Within a few turns after leaving Dark, the aunt's gift should reappear, containing the pot."
+	.GSTR STR?891,"You've probably noticed that it keeps turning up."
+	.GSTR STR?896,"Because of these two properties (auto-return and containment) the thing your aunt gave you provides an alternate solution of one of the puzzles in the game."
+	.GSTR STR?974,"    8   Arriving at the Vogon Hold"
+	.GSTR STR?1085,"PERIL-SENSITIVE SUNGLASSES"
+	.GSTR STR?14,"Phil is here."
+	.GSTR STR?15,"Phil comes up and grips your shoulder. ""Hey babe, this guy boring you? Why not come with me instead? I'm from a different planet."" He takes you out to the parking lot, where his flashy interorbital ion scooter is parked between two Volkswagens. After mounting it, the scooter accelerates at such a great speed that you black out almost immediately."
+	.GSTR STR?18,"39,745"
+	.GSTR STR?103,"flu"
+	.GSTR STR?120,"kon"
+	.GSTR STR?173,"bottle"
+	.GSTR STR?205," Brownian motion"
+BROWNIAN=STR?205
+	.GSTR STR?316,"PUSH THE GREEN BUTTON."
+	.GSTR STR?465,"The man is Zaphod Beeblebrox, current President of the Galaxy, who has stolen this revolutionary new Infinite Improbability Drive-powered spaceship in order to locate the legendary lost planet of Magrathea. Zaphod and Ford know each other."
+	.GSTR STR?689,"PUSH THE AUTOPILOT BUTTON."
+	.GSTR STR?726,"Thanks to the wild vagaries of Improbability Physics, you have not only travelled back in time, you have changed your identity as well."
+	.GSTR STR?732,"Phil is actually Zaphod Beeblebrox in disguise. He has undoubtedly dropped by this Islington party as part of some interstellar party-crashing hop."
+	.GSTR STR?823,"During the scene where you're Ford, buy a sandwich, then give the sandwich to Arthur. When Arthur dashes out of the Pub, he'll feed the sandwich to the dog."
+	.GSTR STR?877,"For more details, see the question on getting out of the whale."
+	.GSTR STR?940,"For more information, see the next question."
+	.GSTR STR?1064,"BABEL FISH"
+	.GSTR STR?101,"p w"
+	.GSTR STR?108,"tha"
+	.GSTR STR?123,"gry"
+	.GSTR STR?140," into you."
+	.GSTR STR?231,"standing on the other side"
+ON-OTHER-SIDE=STR?231
+	.GSTR STR?237," RETURN = See hint"
+	.GSTR STR?243," RETURN = See topics"
+	.GSTR STR?324,"Recovery takes time..."
+	.GSTR STR?532,"Yes, but not without a fight."
+	.GSTR STR?534,"Usually, YES or NO responses are sufficient."
+	.GSTR STR?570,"Did you die upon passing through the screening door? It's because Marvin lives in the room beyond the door, and his awesome depression pervades the place."
+	.GSTR STR?575,"Yes, but not right away."
+	.GSTR STR?739,"Did you notice that you can't take the fluff until you drop one of the other things you're carrying (handbag, wine, hors d'oeuvres)? You can't hold more than three things while you're at the party."
+	.GSTR STR?116,"z z"
+	.GSTR STR?117,"eft"
+	.GSTR STR?138,"""Bleem miserable venchit! Bleem forever mestinglish asunder frapt."""
+	.GSTR STR?178,"It's not plugged into anything!"
+NOT-PLUGGED=STR?178
+	.GSTR STR?183,"It's too dark to see!"
+TOO-DARK=STR?183
+	.GSTR STR?200," black jewelled battle shorts, "
+BATTLE-SHORTS=STR?200
+	.GSTR STR?239,"INVISICLUES (tm)"
+	.GSTR STR?251,"It's the gown."
+	.GSTR STR?264,"It's there to knock down your house to make way for a new highway bypass."
+	.GSTR STR?310,"Read everything carefully."
+	.GSTR STR?328,"Read carefully."
+	.GSTR STR?330,"Read each response to WAITing in the Dark very carefully."
+	.GSTR STR?336,"EXAMINE THE SHADOW."
+	.GSTR STR?341,"It's hearing."
+	.GSTR STR?360,"For one thing, a sense is missing right away, rather than after three WAITs."
+	.GSTR STR?361,"More importantly, with tea, a different sense will be missing each time you WAIT. Thus, you can ""control Dark."""
+	.GSTR STR?377,"It's something that Ford just gave you."
+	.GSTR STR?378,"It's frequently found on shelves behind bars in Pubs."
+	.GSTR STR?382,"It's the single most useful thing an intergalactic hitchhiker (or Infocom game player) can have."
+	.GSTR STR?391,"Well, perhaps that wasn't such a great idea. Try flipping the switch."
+	.GSTR STR?399,"It's out of fish. Time to RESTORE."
+	.GSTR STR?429,"It's an announcement in Vogonese."
+	.GSTR STR?461,"Read the sales brochure that's in the Entry Bay."
+	.GSTR STR?468,"From the Bridge, walk to port."
+	.GSTR STR?490,"Well, maybe not so delicious. But at least useful."
+	.GSTR STR?492,"It's a cup of tea (REAL tea, not ATS)."
+	.GSTR STR?543,"Read the Guide entry on Improbability Physics."
+	.GSTR STR?557,"Presumably you've tried OPEN THE DOOR."
+	.GSTR STR?559,"Read the Guide entry on INTELLIGENCE."
+	.GSTR STR?582,"Congratulations. You've now impressed Marvin enough for him to listen to one request from you. Do you have any idea what order to give him?"
+	.GSTR STR?634,"It's something important, which no interstellar hitchhiker should ever be without."
+	.GSTR STR?653,"It's not any of the tools."
+	.GSTR STR?654,"It's something found on Traal."
+	.GSTR STR?688,"EXAMINE THE CONTROLS."
+	.GSTR STR?769,"Obviously, you're doing the wrong thing."
+	.GSTR STR?797,"It's in the satchel."
+	.GSTR STR?798,"It's the satchel fluff."
+	.GSTR STR?815,"It's a normal-sized dog. The spaceship you're aboard is microscopic."
+	.GSTR STR?866,"It's a method you've used before."
+	.GSTR STR?871,"No matter what you do, you've only got ten moves in the whale before it splats."
+	.GSTR STR?875,"The other method involves the thing your aunt gave you which you don't know what it is."
+	.GSTR STR?883,"The only point of this scene is to get the flowerpot."
+	.GSTR STR?887,"It's a hint that at some point, getting tea will be important."
+	.GSTR STR?897,"It's a puzzle toward the very end of the game."
+	.GSTR STR?898,"It's the puzzle of getting the flowerpot out of the whale."
+	.GSTR STR?900,"Well, the game IS named after it..."
+	.GSTR STR?944,"Read the Guide entry on fluff again."
+	.GSTR STR?1066,"DAMOGRAN"
+	.GSTR STR?1080,"LONG DANGLY BIT"
+	.GSTR STR?141,"Suddenly, a team of Fronurbdian Beasthunters charges in, intent on catching the Beast for their zoo. Mistaking you for the Beast, they fire stun guns at you, wrap you in nets, and install you in a lovely little lair in the Fronurbdi National Zoo.
+
+Three months later the error is discovered, but while your damage suit is pending in the Fronurbdian courts the planet is invaded by Bureaucratic Pirates from Pallidon IV. Impressed into bondage for a 16-year filing and sorting mission on the so-called ""basement world"" of Sporla in the Lesser Magellanic Cloud, you escape with the help of a tribe of nomadic asteroid painters.
+
+You develop a unique talent for asteroid painting, gaining considerable fame throughout the Cloud. A nickel-ore deluxe is commissioned by His Royal Gorpness Orbjfelk, the ruler of the Nine Hundred Worlds of Gorp, but while working on this new masterpiece your asteroid slips into a small passing black hole."
+	.GSTR STR?238,"Q = Main menu"
+	.GSTR STR?261,"Take it along, it might prove useful later."
+	.GSTR STR?424,"Unfortunately, there's only room for one object on the satchel."
+	.GSTR STR?459,"Who picked us up hitchhiking?"
+	.GSTR STR?535,"The proper sequence, from the Corridor, Aft End is AFT. YES. YES. AFT. NO."
+	.GSTR STR?611,"Go down through the hatch."
+	.GSTR STR?636,"Unfortunately, you can't move around very well with a towel over your eyes. Furthermore, as you may have already noticed, this method is also only temporarily effective."
+	.GSTR STR?638,"A good question. Have you tried figuring out the answer yourself?"
+	.GSTR STR?662,"Unfortunately, you can't do any of the above."
+	.GSTR STR?716,"Take the blaster from Trillian and shoot the rifles. Alternatively you can just ASK TRILLIAN TO SHOOT THE PILE OF RIFLES."
+	.GSTR STR?840,"The particle is your own common sense!"
+	.GSTR STR?849,"Take your pick."
+	.GSTR STR?902,"The proper syntax for reading a particular Guide entry is CONSULT GUIDE ABOUT (item). For example, you could type CONSULT GUIDE ABOUT MUSHROOMS."
+	.GSTR STR?953,"...until the very end of the game."
+	.GSTR STR?996,"asking Prosser for the time?"
+	.GSTR STR?1004,"asking PROSSER, WHAT ABOUT MY HOME after it's been demolished?"
+	.GSTR STR?1013,"asking FORD, WHAT ABOUT THE EARTH once it's been destroyed?"
+	.GSTR STR?1022,"asking Eddie to open the hatch after the ship has landed?"
+	.GSTR STR?1024,"saying something other than your name when the Beast asks for it?"
+	.GSTR STR?1025,"saying your name with the towel over your eyes?"
+	.GSTR STR?1059,"asking various characters about the object of the game? (Especially Prosser, Ford, Marvin, Eddie, the Nutrimat, the screening door, and the Beast.)"
+	.GSTR STR?1113,"10  Looking in the Engine Room"
+	.GSTR STR?1119,"MISCELLANEOUS"
+	.GSTR STR?218,"""Announcement, announcement. This is "
+ANNOUNCEMENT=STR?218
+	.GSTR STR?271,"BLOCK THE BULLDOZER, STOP THE BULLDOZER, or LIE DOWN also work."
+	.GSTR STR?299,"How about BUY A CHEESE SANDWICH."
+	.GSTR STR?301,"Perhaps ASK BARTENDER FOR A SANDWICH is more up your alley."
+	.GSTR STR?345,"Perhaps AFT would be more productive, come to think of it."
+	.GSTR STR?607,"Eat the fruit."
+	.GSTR STR?628,"The Beast will devour you about five turns after you pop up in its Lair."
+	.GSTR STR?643,"The Beast's response when you told it your name should provide an additional hint toward why the Beast wants to know your name and how to solve this entire Traal puzzle."
+	.GSTR STR?647,"The Beast wants to carve your name in this, his memorial of remembrance, after he has devoured you."
+	.GSTR STR?969,"SCORE  ACTION"
+	.GSTR STR?989,"NOTE: You LOSE 30 points each for eating the cheese sandwich, drinking the Advanced Tea Substitute, or turning on the spare Drive while plugged into the large receptacle before the missile attack begins."
+	.GSTR STR?1072,"GENUINE PEOPLE PERSONALITIES"
+	.GSTR STR?1074,"HEART OF GOLD"
+	.GSTR STR?3,"M-Beg"
+	.GSTR STR?37,"Kicking"
+	.GSTR STR?43,"Shaking"
+	.GSTR STR?69,", which you may have noticed outside, just pushed your home down on top of you."
+	.GSTR STR?75,", due to a terrible miscalculation in scale, is swallowed by a small dog."
+	.GSTR STR?107,"imb"
+	.GSTR STR?135,"The Captain is indescribably hideous, indescribably blubbery, and indescribably mid-to-dark green. He is holding samples of his favourite poetry."
+	.GSTR STR?156,"The remnants of a rapidly dispersing crowd gasp at your appearance. You are immediately seized by guards who, in an unconstitutional departure from protocol, hurl you over the cliff."
+	.GSTR STR?168,"F"
+	.GSTR STR?249,"The room is spinning because you have a hangover."
+	.GSTR STR?346,"Exactly how does Dark work?"
+	.GSTR STR?397,"Examine it."
+	.GSTR STR?407,"Examine the gown."
+	.GSTR STR?454,"Examine the Thumb while in the Airlock."
+	.GSTR STR?550,"Examine all three items."
+	.GSTR STR?826,"Synapses? Gray Matter?"
+	.GSTR STR?970,"   10  Take the buffered analgesic"
+	.GSTR STR?1010,"waiting about 60 turns in Dark to see the hints you get?"
+	.GSTR STR?1048,"counting the hors d'oeuvres, the crowd at the Dais, or the guards (at various points)?"
+	.GSTR STR?1091,"SMALL PLUG"
+	.GSTR STR?1092,"SMALL RECEPTACLE"
+	.GSTR STR?49," accomplishes nothing."
+	.GSTR STR?145,"The skeleton of a dead Beasthunter lies nearby, clutching something labelled ""Nutrimat/Computer Interface."""
+	.GSTR STR?252,"How can I get out of the bedroom?"
+	.GSTR STR?293,"How can I buy beer?"
+	.GSTR STR?295,"But so what? Ford buys some for you."
+	.GSTR STR?296,"How can I buy a packet of peanuts?"
+	.GSTR STR?298,"How can I buy a cheese sandwich?"
+	.GSTR STR?351,"The second time, hearing will go away. See the third question in this section."
+	.GSTR STR?384,"How can I wake Ford?"
+	.GSTR STR?402,"How can I get a babel fish?"
+	.GSTR STR?406,"Hang something on the hook."
+	.GSTR STR?408,"Hang the gown on the hook, then press the button again."
+	.GSTR STR?416,"The satchel is bulky. Put it in front of the panel, then push the button again."
+	.GSTR STR?467,"How can I enter the sauna?"
+	.GSTR STR?553,"How can I open the screening door?"
+	.GSTR STR?587,"How can I open the hatch?"
+	.GSTR STR?682,"How can I open the toolbox?"
+	.GSTR STR?707,"How can I enter the Heart of Gold?"
+	.GSTR STR?744,"How can I leave the apartment?"
+	.GSTR STR?746,"Dying will get you back to Dark, but that's probably not what you had in mind."
+	.GSTR STR?767,"How can I lose my uneasy feeling?"
+	.GSTR STR?810,"How can I get the awl?"
+	.GSTR STR?848,"The second theory states that the particle was destroyed in the electrical impulse that resulted when you reopened the synapse."
+	.GSTR STR?855,"The second goal is to remove your particle of common sense."
+	.GSTR STR?862,"How can I get out of the whale?"
+	.GSTR STR?917,"The second is in the Airlock of the Vogon ship. It isn't necessary to use the Thumb here, because simply waiting a few turns has the same result."
+	.GSTR STR?931,"Hint: You have four different roles over the course of the game: Arthur, Ford, Trillian, and Zaphod."
+	.GSTR STR?964,"How can I read the footnotes?"
+	.GSTR STR?1088,"RED BUTTON"
+	.GSTR STR?1102,"The section tells where each footnote is referenced in the game. Once again, you shouldn't develop this section until you've finished."
+	.GSTR STR?26,"There seems to be a noun missing in that sentence."
+	.GSTR STR?67,"There are many pieces of mail. Most are from some computer company called Infocom which wants you to buy their games. Hidden underneath is an official letter from the local council, dated some two years ago and inexplicably not delivered till now, explaining that a demolition order has been served on your home. The date of demolition is today's date."
+	.GSTR STR?78,"There is a barman serving at the bar."
+	.GSTR STR?89,"There is a bottle of mineral water here."
+	.GSTR STR?102,"osh"
+	.GSTR STR?119,"e h"
+	.GSTR STR?130,"fud"
+	.GSTR STR?147,"Blocking the gap between two synapses is a large black particle. There seem to be some faint markings on it."
+	.GSTR STR?171,"Although you incinerate many, other guards arrive and incinerate you."
+	.GSTR STR?210,"Genuine People Personalities"
+GPP=STR?210
+	.GSTR STR?245,"How do I get out of the dark?"
+	.GSTR STR?250,"There is ONE thing you can pick up."
+	.GSTR STR?256,"There's an aspirin in the pocket of the gown."
+	.GSTR STR?265,"How do I stop the bulldozer?"
+	.GSTR STR?266,"There's a tried and true method for stopping bulldozers."
+	.GSTR STR?270,"In case you haven't figured it out from these subtle clues, you want to LIE DOWN IN FRONT OF THE BULLDOZER."
+	.GSTR STR?303,"There's not much you can do about it."
+	.GSTR STR?308,"How do I survive Earth's demolition?"
+	.GSTR STR?326,"How do I get out of this Dark?"
+	.GSTR STR?331,"There's an important difference between the third and fourth responses."
+	.GSTR STR?343,"There is an exit to port. Try going that way."
+	.GSTR STR?362,"There are eight exits from Dark (taste never goes away), so there are two Dark exits for each missing sense."
+	.GSTR STR?363,"There is a way to differentiate between each pair."
+	.GSTR STR?373,"The Earth has been destroyed by the Vogon fleet. You and Ford have hitched a ride aboard one of the ships of the Vogon Fleet by using the electronic Sub-Etha signaling device, also known as a Thumb."
+	.GSTR STR?388,"How do I open the case?"
+	.GSTR STR?389,"There's a switch and a keyboard attached to the case."
+	.GSTR STR?410,"There's only one thing large enough to completely cover the drain."
+	.GSTR STR?448,"There's no way to prevent this."
+	.GSTR STR?469,"There is no way to actually STAY in the sauna."
+	.GSTR STR?470,"Therefore, once Ford, Zaphod, and Trillian enter the sauna, they will be effectively inaccessible to you for the remainder of the game."
+	.GSTR STR?482,"But that isn't necessarily the right thing to do."
+	.GSTR STR?487,"How does the Nutrimat work?"
+	.GSTR STR?500,"ATS is useful, although drinking it is a bad idea."
+	.GSTR STR?510,"How do I adjust the circuit board?"
+	.GSTR STR?516,"There IS a way to read that message."
+	.GSTR STR?600,"There are a total of ten tools scattered throughout the game. For a complete list of them, see the quesion about the tools in the General Questions section."
+	.GSTR STR?601,"Even if you've collected all ten tools, you can only carry one at a time into the Access Space..."
+	.GSTR STR?604,"There's a way to figure out in advance what tool Marvin will ask you for."
+	.GSTR STR?613,"How do I stop the missile attack?"
+	.GSTR STR?618,"There's a spare Drive for use during emergencies."
+	.GSTR STR?625,"How do I go southwest from the Lair?"
+	.GSTR STR?635,"The towel. COVER MY HEAD WITH THE TOWEL or PUT THE TOWEL OVER MY EYES or WRAP THE TOWEL AROUND MY HEAD."
+	.GSTR STR?641,"There are at least a dozen ways to say your name: SAY MY NAME or SAY ""ARTHUR DENT"" or SAY ""MY NAME IS ARTHUR DENT"" are some."
+	.GSTR STR?650,"There's a way to confuse the Beast into thinking that it has already eaten you."
+	.GSTR STR?685,"There aren't a lot of hiding places around the boat."
+	.GSTR STR?715,"There is, however, a way to dispose of the rifles."
+	.GSTR STR?734,"But that won't happen until you do something else. See the question about the point of the party scene."
+	.GSTR STR?747,"There is a way to leave the apartment, but you'll have to solve a puzzle first. See the next question."
+	.GSTR STR?749,"There's an item at the party that you have to get back to the Heart of Gold."
+	.GSTR STR?755,"There IS a way to stop holding the fluff WITHOUT dropping it."
+	.GSTR STR?763,"But this time as Ford Prefect rather than Arthur Dent."
+	.GSTR STR?774,"The towel is inside your satchel."
+	.GSTR STR?792,"There's not much you can do about the dog at this point."
+	.GSTR STR?799,"There's a way to transfer it to something, other than the satchel, so that it will be accessible when you get back to the Heart of Gold."
+	.GSTR STR?813,"How do I not get eaten by the dog?"
+	.GSTR STR?833,"Can the Maze be mapped?"
+	.GSTR STR?836,"The third time you successfully move to a new Maze room (as opposed to being blocked by a synaptic discharge), you'll run across the black particle."
+	.GSTR STR?853,"There are two goals for the War Chamber/Maze scene."
+	.GSTR STR?863,"There are no exits in any direction."
+	.GSTR STR?865,"There's one other way to get out of the whale."
+	.GSTR STR?872,"How do I get the pot from the whale?"
+	.GSTR STR?873,"There are two ways to do this."
+	.GSTR STR?882,"There really isn't much here."
+	.GSTR STR?893,"There's something else that you probably haven't noticed about the thing your aunt gave you."
+	.GSTR STR?904,"There are 39 Guide entries in the game. A complete list of the topics appears in the MISCELLANEOUS section."
+	.GSTR STR?905,"How does the Thumb work?"
+	.GSTR STR?915,"There are three points in the game when you can use the Thumb."
+	.GSTR STR?918,"The third is Inside the Sperm Whale. Once again, there's an alternative to using the Thumb, but in this case it's not as simple as just waiting. See the INSIDE THE WHALE section for more information."
+	.GSTR STR?919,"How do I fix the thumb?"
+	.GSTR STR?926,"There does seem to be a lot of it scattered throughout the game."
+	.GSTR STR?929,"There are a total of four pieces of fluff in the game. You'll have to find and obtain all four."
+	.GSTR STR?975,"   12   Getting the babel fish"
+	.GSTR STR?1005,"giving the towel, the thing your aunt gave you, or the satchel to Prosser? (You can only do the last one when you're Ford, of course.)"
+	.GSTR STR?1017,"closing the screening door once you've opened it?"
+	.GSTR STR?1044,"closing the thing your aunt gave you?"
+	.GSTR STR?1065,"BROWNIAN MOTION"
+	.GSTR STR?77,"the Pub"
+	.GSTR STR?91,"A pair of Vogon guards stand nearby, waving acrid-smelling stun guns an inch away from your face. Simultaneously, they fire."
+	.GSTR STR?132,"oll"
+	.GSTR STR?199,"He can't hear you above the noise."
+ABOVE-NOISE=STR?199
+	.GSTR STR?244,"Q = Resume story"
+	.GSTR STR?379,"EAT THE PEANUTS."
+	.GSTR STR?422,"The upper-half-of-the-room cleaning robot just manages to catch the second item."
+	.GSTR STR?541,"Type LOOK three times. The game will then give in and describe the room and the stuff there."
+	.GSTR STR?962,"The ultimate goal of the game is to step out onto the surface of Magrathea."
+	.GSTR STR?967,"HOW ALL THE POINTS ARE SCORED"
+	.GSTR STR?1105," 2  Type FORD, WHAT ABOUT MY HOUSE?"
+	.GSTR STR?17,"Sitting in the corner is a spare, portable Improbability Generator."
+	.GSTR STR?74,"your Thumb, but before you can hitch a ride the planet is destroyed."
+	.GSTR STR?113,"cho"
+	.GSTR STR?148,", electrical impulses begin leaping madly across the now unblocked synaptic gap. Unfortunately, YOU were in the gap at the time."
+	.GSTR STR?158,"As you begin taking the rifles, so do several of the guards. They may be dim, but they know what to do with a photon rifle."
+	.GSTR STR?194," its tungsten carbide Vast-Pain claws"
+CLAWS=STR?194
+	.GSTR STR?240,"Q = See hint menu"
+	.GSTR STR?241," N = Next"
+	.GSTR STR?287,"Also, have you noticed the shelf of items behind the bar?"
+	.GSTR STR?370,"Where the heck am I?"
+	.GSTR STR?371,"As your status line says, you are in the Vogon Hold."
+	.GSTR STR?555,"Furthermore, you won't be able to tackle it until you're pretty far into the game. Don't let it worry you until you get up around 200 points."
+	.GSTR STR?666,"Where does the Beast go when he sees the black bones?"
+	.GSTR STR?680,"Where am I?"
+	.GSTR STR?753,"In order to take the fluff, though, you'll have to drop something. This will cause the hostess to start hovering around you. Phil is much too smart to approach you when you're with the hostess."
+	.GSTR STR?761,"Where should I go?"
+	.GSTR STR?825,"Where is this Maze?"
+	.GSTR STR?845,"Where did the black particle go?"
+	.GSTR STR?888,"Also, see the question about the screening door in the HEART OF GOLD section."
+	.GSTR STR?901,"The various entries in the Guide contain all sorts of useful information and hints that you'll need to solve the puzzles in the game."
+	.GSTR STR?911,"Also, the Thumb will break down on its own over the course of the game."
+	.GSTR STR?1020,"turning on the spare Drive, plugged into the control panel, before the missile attack begins?"
+	.GSTR STR?1021,"turning on the spare Drive during the missile attack, without first plugging it into the control panel?"
+	.GSTR STR?1055,"returning to various scenes after you've successfully completed them? Examples: returning to Damogran after stealing the Heart of Gold. Returning to Traal after getting the interface."
+	.GSTR STR?1109," 6  Type FOOTNOTE without any number"
+	.GSTR STR?24,"The wind moans. Dust drifts across the surface of the alien world. Zaphod, Ford, and Trillian appear and urge you forward."
+	.GSTR STR?41,"Playing in this way with"
+	.GSTR STR?73,"Ford"
+	.GSTR STR?202,"The Hitchhiker's Guide to the Galaxy"
+GUIDE-NAME=STR?202
+	.GSTR STR?220,"Do you want to get arrested for indecent exposure?"
+ARRESTED=STR?220
+	.GSTR STR?226,"electronic eye stalk shoots up from the hood, "
+EYE-STALK=STR?226
+	.GSTR STR?376,"Do you have anything with a lot of protein in it?"
+	.GSTR STR?394,"Once you have the babel fish, flip the switch again."
+	.GSTR STR?464,"The woman is Tricia MacMillan, known as Trillian. She's an Earthwoman whom you met at a party in Islington not too long ago, at which time you totally failed to impress her. She eventually left the party with a guy named Phil...who is, you realize, the two-headed man standing next to her."
+	.GSTR STR?567,"Do you know where you are when you are in the Maze? If not, see the questions on the Maze."
+	.GSTR STR?590,"Do you remember an announcement when the Heart of Gold landed on Magrathea?"
+	.GSTR STR?597,"Once Marvin has agreed to open the hatch, he tells you to meet him in the Access Space in twelve turns. Make sure you're on hand for that meeting. (Hell hath no depression like a paranoid android scorned.)"
+	.GSTR STR?686,"SEARCH THE PILOT SEAT or LOOK UNDER THE CUSHION."
+	.GSTR STR?717,"Once you've destroyed the rifles, it's safe to enter the ship."
+	.GSTR STR?787,"Once again, think back to what Ford did when you were Arthur."
+	.GSTR STR?808,"Do you remember the long piece of text that appeared when your careless words set off an interstellar war?"
+	.GSTR STR?824,"Once the dog has been fed, you can survive the War Chamber scene and go on to the Maze."
+	.GSTR STR?852,"Do you know the answers to all the other questions in this section?"
+	.GSTR STR?903,"Once you know the solutions to all the puzzles, you could play to the end of the game without ever using the Guide."
+	.GSTR STR?921,"Once you've summoned the Engineer robot, SHOW (or GIVE) THE THUMB TO THE ENGINEER ROBOT."
+	.GSTR STR?963,"Knowing this fact is of virtually no help in getting through the game."
+	.GSTR STR?976,"   15   Enjoying the Vogon poetry"
+	.GSTR STR?980,"   15   Drinking the beer (as Ford)"
+	.GSTR STR?1012,"drinking the Santraginean Mineral Water?"
+	.GSTR STR?1032,"drinking the wine at the party?"
+	.GSTR STR?1084,"PAN-GALACTIC GARGLE BLASTER"
+	.GSTR STR?1093,"SPACE"
+	.GSTR STR?31,", and a flathead axe lie by your bed. Before you have a chance to move, Mongol hordes sweep magnificently across the plains of central Asia. They knock down your shack and burn the remains with you inside. You lose interest in the rest of the game."
+	.GSTR STR?150,"he rushes toward you, vengeance burning in her eyes."
+	.GSTR STR?180," roars off on his ion bike into the Sub-Etha"
+ROARS-OFF=STR?180
+	.GSTR STR?275,"Standing up to follow him is fatal."
+	.GSTR STR?352,"On subsequent visits to Dark, the sense that disappears will be fairly random. See the following question for more details."
+	.GSTR STR?353,"Can I control my exit from Darkness?"
+	.GSTR STR?359,"Notice anything different about Dark when you use tea instead of ATS?"
+	.GSTR STR?413,"Standing or lying in front of the panel won't work."
+	.GSTR STR?447,"Can I stop being put in the airlock?"
+	.GSTR STR?451,"Can I survive in outer space?"
+	.GSTR STR?463,"To find out who owns the ship, stick around on the bridge and pay attention to what everyone is saying."
+	.GSTR STR?531,"Can I go aft from Corridor, Aft End?"
+	.GSTR STR?627,"Can I stop the Beast from eating me?"
+	.GSTR STR?683,"Since it's locked, you'll need to find a key."
+	.GSTR STR?687,"Can I stop the boat from crashing?"
+	.GSTR STR?699,"Mainly, though, you just need to wait until Trillian shows up."
+	.GSTR STR?737,"Notice the fluff?"
+	.GSTR STR?764,"The Improbability Drive has sent you back in time and has also changed your identity."
+	.GSTR STR?860,"The Improbability Drive, in one of its nastier coincidences, has transported you inside the very same whale you created when you used the Drive to save the ship during the missile attack."
+	.GSTR STR?870,"Can I stop the whale from splatting?"
+	.GSTR STR?945,"Notice that this rare plant once grew on a tropical world."
+	.GSTR STR?1061,"Here's a complete list of things that you can CONSULT the Hitchhiker's Guide about. You should use it only as a last resort, or for your interest once you've finished the game."
+	.GSTR STR?1090,"SIRIUS CYBERNETICS CORPORATION"
+	.GSTR STR?52,"Nice try."
+	.GSTR STR?195," President of the Galaxy"
+PRESIDENT=STR?195
+	.GSTR STR?536,"Is anything in the Engine Room?"
+	.GSTR STR?560,"Can you think of anything contradictory that you could have or do?"
+	.GSTR STR?913,"A broken Thumb can be mended."
+	.GSTR STR?946,"Can you think of anything around that's similar to a tropical environment?"
+	.GSTR STR?948,"Now examine the plant."
+	.GSTR STR?993,"looking under your bed?"
+	.GSTR STR?1011,"not eating the peanuts in the Vogon Hold?"
+	.GSTR STR?110,"cav"
+	.GSTR STR?217," A moment later, the dialing tone is suddenly cut off. Glancing through the window you can't help but notice the large old oak tree of which you are particularly fond crashing down through the phone cable."
+DIALING-TONE=STR?217
+	.GSTR STR?233,"t's a bright morning, the sun is shining, the birds are singing, the meadows are blooming"
+NICE-DAY=STR?233
+	.GSTR STR?458,"THE VOGON SHIP"
+	.GSTR STR?909,"If a ship is within range, you can transport yourself to the ship (via a matter transference beam) by pushing the green button."
+	.GSTR STR?1070,"GALACTIC SECURITY AGENCY"
+	.GSTR STR?39,"Trying to break"
+	.GSTR STR?42,"Fiddling with"
+	.GSTR STR?62,"Useless. Utterly useless."
+	.GSTR STR?196,"Sirius Cybernetics Corporation"
+SCC=STR?196
+	.GSTR STR?312,"It has to do with that small black device that Ford drops after the fleet arrives."
+	.GSTR STR?418,"Read, very carefully, the paragraph when Ford goes to sleep."
+	.GSTR STR?521,"Try examining or reading it."
+	.GSTR STR?565,"Does the response to that ring any bells?"
+	.GSTR STR?584,"Try examining the mechanism in the Access Space."
+	.GSTR STR?714,"Trying to shoot the guards doesn't work either."
+	.GSTR STR?754,"So, to get Phil to come over, you'll have to take the item that the hostess keeps offering you. To do so, you'll have to drop something, and the piece of fluff is the only thing you have that you can drop without setting off the hostess again."
+	.GSTR STR?766,"Go north to Front of House."
+	.GSTR STR?842,"Does that ring a bell?"
+	.GSTR STR?988,"  400   TOTAL POINTS"
+	.GSTR STR?1023,"not going to the Access Space after asking Marvin to fix the hatch?"
+	.GSTR STR?1027,"carving one of the names suggested by the previous item?"
+	.GSTR STR?1028,"carving the Beast's name on the memorial?"
+	.GSTR STR?8,"In fact, a lethal dose."
+	.GSTR STR?9,"Marvin, the Paranoid Android, is here."
+	.GSTR STR?34,"autopilot"
+	.GSTR STR?176,"If you hyperventilate and then empty your lungs, you will last about thirty seconds in the vacuum of space. However, because space is so vastly hugely mind-bogglingly big, getting picked up by another ship within those thirty seconds is almost infinitely improbable."
+SPACE-TEXT=STR?176
+	.GSTR STR?236," all circuits are currently engaged by the "
+ENGAGED=STR?236
+	.GSTR STR?274,"If you take the towel he's trying to give you, he'll walk away."
+	.GSTR STR?290,"If you have fewer than three beers, the shock of the matter transference beam will kill you."
+	.GSTR STR?291,"If you have more than three beers, you'll get drunk and end up partying through the end of the world."
+	.GSTR STR?307,"If you haven't figured it out, you'll find out more later."
+	.GSTR STR?329,"If you've waited enough you'll begin to get some clues."
+	.GSTR STR?430,"If you want to understand the announcement, you'll have to discover a way to translate it."
+	.GSTR STR?453,"If you wait, you'll find yourself in the Dark again."
+	.GSTR STR?483,"In fact, when you plug in the spare Drive at the wrong time, Eddie warns you that it's only for emergencies."
+	.GSTR STR?494,"In fact, it isn't even in the Heart of Gold."
+	.GSTR STR?568,"The Maze is your own brain, and the particle is your common sense. Once you have removed the particle, you will no longer be fettered by common sense and can take NO TEA."
+	.GSTR STR?569,"Spelling it out step by step: First, acquire a cup of tea. Then get rid of the common sense particle in the Maze. TAKE TEA THEN TAKE NO TEA. Finally, SHOW THE TEA AND THE NO TEA TO THE SCREENING DOOR."
+	.GSTR STR?585,"If you've ever seen the fruit, eating it would provide a big hint."
+	.GSTR STR?592,"If you wait the 14.9 years such a check will take, you'll probably die of boredom."
+	.GSTR STR?596,"Marvin. See the question about Marvin to figure out how to get him to open the hatch."
+	.GSTR STR?598,"Marvin will ask you for the tool he needs to fix the mechanism."
+	.GSTR STR?609,"If you meet Marvin there and give him that tool when he asks for it, he will fix the mechanism and open the hatch."
+	.GSTR STR?659,"If you could climb them, you might be able to escape the Beast."
+	.GSTR STR?660,"If you could collapse them onto the Beast, that just might do it in."
+	.GSTR STR?661,"If you could transmute them into steaming mounds of Qurmeesian Mega-Rhino flank steaks, the Beast might start in on those and ignore your few measly pounds of stringy flesh."
+	.GSTR STR?706,"If you're still having troubles with the guards, see the next question."
+	.GSTR STR?721,"If you've opened the toolbox, then you've certainly found both the seat cushion fluff and the laser-assisted monkey wrench. Getting these two items are the ultimate goal of the Damogran scene."
+	.GSTR STR?728,"If you try to talk to Phil, he doesn't notice, and invariably leaves the room."
+	.GSTR STR?733,"If you recall from the events on the Bridge of the Heart of Gold, you (Trillian) eventually left ... er, will leave ... the party with Zaphod/Phil."
+	.GSTR STR?738,"If you take the fluff from his jacket, it will ""break the ice"" and Arthur will begin jabbering."
+	.GSTR STR?742,"If you try to talk to her, you'll learn the meaning of the phrase ""bored to death."""
+	.GSTR STR?743,"If you drop your glass of wine, your handbag, or your plate of hors d'oeuvres, the hostess will come over and pester you about it. She won't leave you alone until you take the item that you dropped."
+	.GSTR STR?759,"If you're still confused, one sequence of moves that will ""solve"" the party scene is:  EXAMINE ARTHUR. DROP THE WINE. TAKE THE JACKET FLUFF. OPEN THE HANDBAG. PUT THE FLUFF IN THE HANDBAG. TAKE THE WINE. Then just WAIT until Phil comes up and escorts you away. You will end up in Dark."
+	.GSTR STR?778,"If you recall from when you were Arthur, it would mean the destruction of Arthur's house if he stood up at this point."
+	.GSTR STR?819,"If you examine the dog at the beginning of the game, you'll notice that it's very hungry."
+	.GSTR STR?821,"If you want to avoid starting over from the beginning, there's another way to feed the dog."
+	.GSTR STR?835,"In fact, the directions in the Maze are totally random, so it makes no difference which direction you move in."
+	.GSTR STR?837,"If you ignore the particle, you'll run across it again later."
+	.GSTR STR?861,"If you recall, the missiles were turned into a sperm whale, which was last seen plummeting through the atmosphere of Magrathea. This explains why, after a few turns, the whale invariably splats (and you along with it)."
+	.GSTR STR?864,"If you wait long enough, you'll splat and return to Dark."
+	.GSTR STR?867,"It will also leave you in Dark."
+	.GSTR STR?892,"If you leave it behind, it will pop up about a dozen moves later, sometimes on the ground where you are, sometimes in your inventory, and sometimes in your gown pocket. (The thing will only ""follow"" you when you are Arthur.)"
+	.GSTR STR?910,"If you press the green button when there is no ship around, you'll break the Thumb."
+	.GSTR STR?930,"Try finding them yourself. When you're stumped, return to this question."
+	.GSTR STR?955,"Marvin will ask for one of ten different tools."
+	.GSTR STR?961,"Solve all the puzzles, reach the end."
+	.GSTR STR?1075,"HITCHHIKER'S GUIDE"
+	.GSTR STR?1086,"PROTEIN"
+	.GSTR STR?1117,"14  When Ford hands you the Guide"
+	.GSTR STR?13," about three nanoseconds ago. Sure enough, here comes that huge atomic fireball."
+	.GSTR STR?71,"you exclaim"
+	.GSTR STR?92,"Along one wall is a tall dispensing machine."
+	.GSTR STR?99,"o s"
+	.GSTR STR?133,"wro"
+	.GSTR STR?208,"A wisp of an inkling of a thought penetrates the three-inch thickness of solid bone surrounding the guards' very tiny brains that something suspicious is going on. "
+GUARDS-REALIZE=STR?208
+	.GSTR STR?221,"Galactic Security Agency"
+AGENCY=STR?221
+	.GSTR STR?288,"How much beer should I drink?"
+	.GSTR STR?489,"The Nutrimat does all the rest, and in seconds you'll have your very own cup of incredibly delicious Advanced Tea Substitute (ATS)."
+	.GSTR STR?564,"Try going back to the beginning of the game and taking or dropping NO TEA."
+	.GSTR STR?745,"Try going south from the Living Room."
+	.GSTR STR?804,"EARTH, REVISITED"
+	.GSTR STR?874,"One way involves the Thumb."
+	.GSTR STR?990,"FOR YOUR AMUSEMENT"
+	.GSTR STR?1006,"talking to Prosser after the Vogon fleet has arrived?"
+	.GSTR STR?1041,"talking to the Vl'Hurg leader or G'Gugvunt leader?"
+	.GSTR STR?1042,"dropping something in the Maze (your brain) and then walking around once you've gotten out?"
+	.GSTR STR?1043,"talking to the bulldozer driver, the Vogon Captain, or the hostess?"
+	.GSTR STR?1067,"EARTH"
+	.GSTR STR?1083,"NUTRIMAT"
+	.GSTR STR?1095,"TOWEL"
+	.GSTR STR?1111," 8  Consult the Guide about fluff"
+	.GSTR STR?35,"banner"
+	.GSTR STR?59,"Run out on the street and say that. See what happens."
+	.GSTR STR?124,"o t"
+	.GSTR STR?137,"""Gashee morphousite, thou expungiest quoopisk!"""
+	.GSTR STR?276,"Without Ford you'll never survive the upcoming destruction of the Earth."
+	.GSTR STR?411,"Cover the drain with the towel, then push the button again."
+	.GSTR STR?472,"Without Eddie, who would make all those fun announcements?"
+	.GSTR STR?632,"Closing your eyes isn't obvious enough for the Beast to notice."
+	.GSTR STR?1038,"shooting the crowd, the guards, Trillian, yourself, the toolbox?"
+	.GSTR STR?1039,"ordering GUARDS, SHOOT both before and after they've dropped their photon rifles?"
+	.GSTR STR?19,"79,818"
+	.GSTR STR?23,"A mist spins round your head. You fall into what seems like a bottomless pit. Suddenly, you hit the bottom so hard that you wish it had been bottomless..."
+	.GSTR STR?372,"ASK FORD ABOUT THE EARTH."
+	.GSTR STR?868,"Hitchhike using the Thumb."
+	.GSTR STR?1018,"reading the tiny message on the circuit board with the magnifying glass?"
+	.GSTR STR?1029,"reading the memorial (both before and after carving your name)?"
+	.GSTR STR?45,"It dances by you like a thing possessed."
+	.GSTR STR?54,"Not bloody likely."
+	.GSTR STR?64,"Your gown is here."
+	.GSTR STR?186,"It is already open."
+ALREADY-OPEN=STR?186
+	.GSTR STR?187,"It is already closed."
+ALREADY-CLOSED=STR?187
+	.GSTR STR?197," matter transference beam"
+BEAM=STR?197
+	.GSTR STR?211,". Also see the entries on "
+ALSO-SEE=STR?211
+	.GSTR STR?623,"Turning on the spare Drive while it's plugged into the control console destroys the large plug and large receptacle, so you can only do it once during the game. The one time you want to activate the drive while plugged into the control console is during the missile attack."
+	.GSTR STR?657,"It is now safe to remove the towel from your head, and to go southwest from the Lair."
+	.GSTR STR?834,"No. The Maze is totally unmappable."
+	.GSTR STR?995,"to PHONE HOME from your bedroom?"
+	.GSTR STR?1008,"going straight to the Pub when you're Ford, instead of giving Arthur the towel, and then waiting a few turns?"
+	.GSTR STR?121,"l m"
+	.GSTR STR?286,"Drink some beer."
+	.GSTR STR?292,"Drink the beer three times."
+	.GSTR STR?338,"Unless you've been to the Vogon Hold, you're at the wrong question."
+	.GSTR STR?497,"Open the service panel and remove the circuit board. Now, put the interface inside the Nutrimat. Finally, touch the pad!"
+	.GSTR STR?573,"Drink the cup of tea before you enter."
+	.GSTR STR?782,"So you have to APPROACH PROSSER or WALK AROUND THE BULLDOZER. Now you can talk to him."
+	.GSTR STR?786,"Unless Arthur is with you, you are here prematurely."
+	.GSTR STR?1035,"to PICK UP ARTHUR or PICK UP PHIL at the party?"
+	.GSTR STR?1110," 7  Shoot the Beast three times"
+	.GSTR STR?11," was a bit too much for you. You expire from sheer misery and unhappiness."
+	.GSTR STR?27,"[Transcripting o"
+	.GSTR STR?79,"However often you do it, you are still stunned by the shock of dematerialisation. The scene around is ripped away like a flimsy backcloth."
+	.GSTR STR?163,"  "
+	.GSTR STR?213,"It won't budge."
+BUDGE=STR?213
+	.GSTR STR?242,"P = Previous"
+	.GSTR STR?259,"Have you read the mail?"
+	.GSTR STR?263,"Have you read the pile of mail on your Front Porch?"
+	.GSTR STR?267,"Have you tried phoning the police?"
+	.GSTR STR?268,"Have you tried to PROTEST or asked PROSSER, STOP THE BULLDOZER?"
+	.GSTR STR?269,"Have you tried to STAND IN FRONT OF THE BULLDOZER?"
+	.GSTR STR?306,"Have you examined the dog?"
+	.GSTR STR?313,"Have you tried picking it up?"
+	.GSTR STR?314,"Have you tried examining it?"
+	.GSTR STR?327,"Have patience."
+	.GSTR STR?357,"Have you ever examined the cup of tea?"
+	.GSTR STR?385,"Have you tried WAKE FORD?"
+	.GSTR STR?403,"Have you pressed the dispenser button?"
+	.GSTR STR?449,"However, you should make sure that you've accomplished everything that needs to be accomplished aboard the Vogon ship before this occurs."
+	.GSTR STR?478,"Have you examined them?"
+	.GSTR STR?501,"Have you ever examined it?"
+	.GSTR STR?502,"Have you discovered a need for a source of Brownian Motion?"
+	.GSTR STR?507,"Have you ever examined the tea?"
+	.GSTR STR?512,"Have you examined it?"
+	.GSTR STR?515,"Have you noticed the message in tiny letters on the board?"
+	.GSTR STR?522,"Have you opened the carton?"
+	.GSTR STR?523,"The Sirius Cybernetics Corporation has apparently screwed up (a common occurrence) and put the wrong item inside the shipping carton."
+	.GSTR STR?526,"Have you examined or read it?"
+	.GSTR STR?528,"Have you tried shooting the gun at the Beast?"
+	.GSTR STR?529,"Have you tried it several times?"
+	.GSTR STR?537,"Have you gotten into the Engine Room? If not, you should do so before looking at the next hint."
+	.GSTR STR?539,"However, after losing that argument with you, the game is probably a bit peeved and is acting petulant."
+	.GSTR STR?547,"Have you seen any hot liquids?"
+	.GSTR STR?562,"Have you noticed what happens when you take or drop the (real) tea?"
+	.GSTR STR?566,"Have you ever read or examined the black particle in the Maze?"
+	.GSTR STR?572,"Have you ever done anything that made you very happy and contented?"
+	.GSTR STR?578,"Have you ever followed Marvin when he appears around the Heart of Gold?"
+	.GSTR STR?588,"Have you tried OPEN THE HATCH?"
+	.GSTR STR?630,"Have you read the Guide entry on the Ravenous Bugblatter Beast of Traal?"
+	.GSTR STR?639,"Have you been in the Beast's Outer Lair?"
+	.GSTR STR?640,"Have you ever tried saying your name as the Beast demands?"
+	.GSTR STR?646,"Have you figured out why the Beast wants to know your name?"
+	.GSTR STR?648,"Have you figured out how to stop the Beast from attacking you, at least on a temporary basis?"
+	.GSTR STR?665,"Have you tried painting the bones with the paint?"
+	.GSTR STR?673,"Have you been in the Inner Lair?"
+	.GSTR STR?695,"Leave the boat. Type NORTH or LEAVE THE BOAT."
+	.GSTR STR?720,"Have you opened the toolbox?"
+	.GSTR STR?729,"Have you examined him?"
+	.GSTR STR?768,"Have you tried waiting a few turns?"
+	.GSTR STR?806,"Have you tried listening to the conversation?"
+	.GSTR STR?807,"Have you examined the approaching star system?"
+	.GSTR STR?816,"Have you seen a dog anywhere else?"
+	.GSTR STR?839,"Have you read the markings on the particle?"
+	.GSTR STR?890,"Have you tried getting rid of it?"
+	.GSTR STR?927,"Have you consulted the Guide about fluff?"
+	.GSTR STR?939,"A tiny plant will sprout around ten moves later."
+	.GSTR STR?959,"Have you tried asking some of the other characters in the story?"
+	.GSTR STR?960,"Have fun, be happy."
+	.GSTR STR?992,"Have you tried..."
+	.GSTR STR?1031,"waking the sleeping Beast?"
+	.GSTR STR?1068,"FLUFF"
+	.GSTR STR?1096,"VOGON POETRY"
+	.GSTR STR?1097,"VOGONS"
+	.GSTR STR?1106," 3  Upon arrival at the Speedboat"
+	.GSTR STR?21,"You are disoriented. Blackness swims toward you like a shoal of eels who have just seen something that eels like a lot..."
+	.GSTR STR?56,"You are clearly insane."
+	.GSTR STR?57,"You appear to have gone barking mad."
+	.GSTR STR?111,"s g"
+	.GSTR STR?160,"You are in the stomach of a sperm whale. You can hear a distant sound of rushing wind."
+	.GSTR STR?165,"      "
+	.GSTR STR?166,"        "
+	.GSTR STR?167,"          "
+	.GSTR STR?185,"You already are!"
+YOU-ARE=STR?185
+	.GSTR STR?216," with passion, and ignores a passing microscopic space fleet."
+WITH-PASSION=STR?216
+	.GSTR STR?223,"Despite your hangover, you recall that Zaphod and water don't mix."
+DONT-MIX=STR?223
+	.GSTR STR?230,"A small upper-half-of-the-room cleaning robot flies into the room, "
+ROBOT-FLIES-IN=STR?230
+	.GSTR STR?246,"TURN ON THE LIGHT."
+	.GSTR STR?278,"Or you can say FORD, WHAT ABOUT MY HOME? as soon as he arrives."
+	.GSTR STR?280,"Don't stand up until Prosser is lying down in your place."
+	.GSTR STR?325,"...but in this case, you'll have to do more than just wait."
+	.GSTR STR?332,"You are no longer told that you can't smell anything."
+	.GSTR STR?355,"Don't continue until you have a cup of tea."
+	.GSTR STR?356,"Don't continue until you have real tea, not merely Advanced Tea Substitute."
+	.GSTR STR?437,"Don't go on unless you've translated the garbled announcement."
+	.GSTR STR?438,"Don't go on until you've figured out what's going on with the glass case and switch and keyboard."
+	.GSTR STR?439,"You are at a Vogon Poetry Appreciation Session. The Vogon Captain is about to read you his favourite poem. The Guide's entry on Vogon Poetry makes clear that this is extremely nasty."
+	.GSTR STR?452,"Yes. In fact, there's no way to NOT survive it."
+	.GSTR STR?480,"Don't go on until you've figured out how to set up and use the spare Improbability Drive."
+	.GSTR STR?495,"Don't go on unless you have the Nutrimat/Computer Interface (not to be confused with the shipping carton for the interface)."
+	.GSTR STR?505,"Don't go on unless you actually have the cup of tea."
+	.GSTR STR?506,"Don't go on unless this cup of tea is REAL tea, not just Advanced Tea Substitute (ATS)."
+	.GSTR STR?517,"Don't go on until you've been on Damogran."
+	.GSTR STR?518,"Don't go on until you've opened the toolbox."
+	.GSTR STR?527,"Don't go on unless you've been in the Lair."
+	.GSTR STR?556,"Don't develop any further unless you've gotten the cup of tea (real tea, not Advanced Tea Substitute)."
+	.GSTR STR?581,"Don't go on until you've been in Marvin's Pantry."
+	.GSTR STR?606,"Don't go on until you've seen the fruit."
+	.GSTR STR?612,"Start waiting for the next exciting Hitchhiker's game."
+	.GSTR STR?649,"Don't go on until you have figured out how to convince the Beast that it can't see you."
+	.GSTR STR?664,"Don't go on until you've found the black paint."
+	.GSTR STR?672,"Don't go on until the Beast is sleeping."
+	.GSTR STR?701,"Don't go on unless you're on the Dais and Trillian is there."
+	.GSTR STR?710,"Don't go on unless you've disarmed the guards (see the previous question)."
+	.GSTR STR?719,"Don't go on until you ended the scene by successfully entering the Heart of Gold. (If you were killed by the guards, you were NOT successful.)"
+	.GSTR STR?762,"You are reliving the last few minutes before the destruction of the Earth."
+	.GSTR STR?776,"Don't go on until you've done the step called for by the previous question."
+	.GSTR STR?832,"You are, improbably enough, inside your own brain!"
+	.GSTR STR?869,"The Thumb is probably broken, though. You'll have to get it fixed by an Engineer robot."
+	.GSTR STR?906,"The Thumb is an electronic Sub-Etha Auto-Hitching Device. If used properly, it will allow you to hitch rides aboard passing spaceships."
+	.GSTR STR?936,"Don't continue until you have the flowerpot."
+	.GSTR STR?1118,"15  Read the banner at the Dais"
+	.GSTR STR?5,"PRSI"
+	.GSTR STR?25,"OOPS"
+	.GSTR STR?44,"It slips through your fumbling fingers and hits the carpet with a nerve-shattering bang."
+	.GSTR STR?122,"ork"
+	.GSTR STR?193,"It looks like"
+IT-LOOKS-LIKE=STR?193
+	.GSTR STR?253,"You bounce off the doorframe because the room is spinning from your hangover."
+	.GSTR STR?321,"Help! I'm stuck in the Dark!"
+	.GSTR STR?337,"Help! I'm in the blasted Dark AGAIN!"
+	.GSTR STR?652,"Of course, you'll need something to carve with."
+	.GSTR STR?994,"enjoying the mud while you're lying in front of the bulldozer?"
+	.GSTR STR?1002,"hitting Prosser (before and after your house is demolished)?"
+	.GSTR STR?1003,"enjoying your house after it's been demolished?"
+	.GSTR STR?1009,"yelling in the Dark?"
+	.GSTR STR?1014,"enjoying the Vogon poetry without the babel fish?"
+	.GSTR STR?1057,"answering the game's various rhetorical questions, such as ""Did you have a particular direction in mind?"" or ""Don't you think it would be a bad idea to leave the ceremonies?"", by typing YES or NO?"
+	.GSTR STR?1114,"11  This footnote is not referenced"
+	.GSTR STR?53,"You can't be serious."
+	.GSTR STR?98,"kwa"
+	.GSTR STR?126,"x j"
+	.GSTR STR?159," reduce you to a smoking pile of ash."
+	.GSTR STR?181,"He fiddles with the Thumb for a moment or two before handing it back. "
+FIDDLES=STR?181
+	.GSTR STR?184,"You can't go that way."
+CANT-GO=STR?184
+	.GSTR STR?189,"You can't do that while you're lying down!"
+WHILE-LYING=STR?189
+	.GSTR STR?284,"You came here because of Ford, right?"
+	.GSTR STR?294,"You can't."
+	.GSTR STR?386,"You can't wake Ford."
+	.GSTR STR?420,"You can put an object on top of the satchel."
+	.GSTR STR?485,"You can only use the drive while connected to the controls ONCE during the course of the game."
+	.GSTR STR?488,"All you have to do is touch the touch-sensitive pad."
+	.GSTR STR?511,"You can remove it from the Nutrimat."
+	.GSTR STR?513,"You can flip any of the eight dipswitches."
+	.GSTR STR?514,"You can even flip them while the circuit board is still in the Nutrimat."
+	.GSTR STR?574,"Is Marvin important?"
+	.GSTR STR?577,"After that point, he'll grudgingly consent to ONE task."
+	.GSTR STR?626,"Figuring out how to subdue the Beast would help."
+	.GSTR STR?693,"After three turns of heading toward an obstacle, the autopilot will kick on and navigate you safely to your destination."
+	.GSTR STR?709,"After Trillian shows up, attempting to enter the Heart of Gold is deadly."
+	.GSTR STR?757,"You can put the fluff in your handbag."
+	.GSTR STR?790,"You can BUY SOME PEANUTS, but it isn't necessary to do so."
+	.GSTR STR?803,"After Arthur runs back to his house (now rubble), follow him and give him the fluff. He'll accept it at this point and put it in his pocket. Then just wait for events to run their course, and you'll soon find yourself back in Dark. When you get back to the Heart of Gold, the satchel fluff should be in the pocket of your gown."
+	.GSTR STR?894,"You can put things in it. In fact, you can put almost every takeable item into the thing at the same time."
+	.GSTR STR?908,"You can examine the Thumb to determine whether a spaceship is within range. (If the lights are flashing, a ship is nearby.)"
+	.GSTR STR?920,"You can't. Only the Engineer robot can fix the Thumb."
+	.GSTR STR?932,"You can obtain one piece of fluff during each role."
+	.GSTR STR?942,"Left to itself, the tiny sprout will never grow any further."
+	.GSTR STR?984,"  100   Drinking the tea"
+	.GSTR STR?1046,"typing I AM ARTHUR DENT to the game (as opposed to while talking to a character in the game)?"
+	.GSTR STR?1049,"typing PANIC?  How about DON'T PANIC?"
+	.GSTR STR?1050,"typing DON'T LOOK or DON'T WAIT or DON'T (anything else)?"
+	.GSTR STR?1051,"typing GIVE UP or THROW IN THE TOWEL or PULL MYSELF TOGETHER?"
+	.GSTR STR?1053,"typing ESCAPE at any point?"
+	.GSTR STR?1056,"typing APPLAUD at any point (other than during the poetry reading)?"
+	.GSTR STR?1058,"typing APPRECIATE [something]?"
+	.GSTR STR?1077,"INFOCOM"
+	.GSTR STR?1107," 4  Listen to the music in the Pub"
+	.GSTR STR?153,"but a split second later the boat smashes into the rocks."
+	.GSTR STR?155,". The excitement overwhelms you (or perhaps it's just the awesome hangover from last night)."
+	.GSTR STR?318,"You didn't drink enough beer."
+	.GSTR STR?594,"You don't have the necessary intelligence for the task."
+	.GSTR STR?629,"Leaving the room (EAST) will buy you some time."
+	.GSTR STR?655,"Use one of the sharp stones that are lying on the ground."
+	.GSTR STR?999,"listening to the jukebox music (several times, then again when you're Ford)?"
+	.GSTR STR?1098,"WALKING"
+	.GSTR STR?82,"newts he has known."
+	.GSTR STR?127,"erl"
+	.GSTR STR?203," But then again you must already know that, since you bought one."
+ALREADY-KNOW-THAT=STR?203
+	.GSTR STR?277,"Ford is oblivious to your problem. If you wait, he'll notice the bulldozer, and help you out."
+	.GSTR STR?289,"Ford will keep urging you to drink beer until you've had enough."
+	.GSTR STR?309,"DON'T PANIC."
+	.GSTR STR?311,"Remember Ford's reason for drinking all that beer?"
+	.GSTR STR?322,"If this ""Dark"" is at the very beginning of the game, you're in the wrong place. Look at the very first question."
+	.GSTR STR?347,"You enter Dark when Earth is destroyed, and other times throughout the game."
+	.GSTR STR?390,"SAVE first, then try typing on the keyboard. For example, TYPE ""HELLO."""
+	.GSTR STR?392,"If the recording was gibberish, you'll have to find a way to translate it."
+	.GSTR STR?423,"If there were several items on the satchel, they would all fly into the air and confuse the flying robot."
+	.GSTR STR?621,"If there are fused spots where the large plug and large receptacle used to be, you plugged the drive in at the wrong time."
+	.GSTR STR?724,"Remember what happened when you first reached the Bridge of the Heart of Gold?"
+	.GSTR STR?827,"Remember you were just teleported over from a microscopic space fleet..."
+	.GSTR STR?831,"Remember, the Vl'Hurgs and G'Gugvunts were teleporting you back to the Heart of Gold."
+	.GSTR STR?912,"If the Thumb is broken, you will not be transported when you press the green button, even if a ship is nearby."
+	.GSTR STR?922,"If the robot claims that there's nothing wrong with the Thumb, then it wasn't broken."
+	.GSTR STR?923,"If the Thumb is broken, the Engineer robot won't agree to fix it unless you also SHOW THE GUARANTEE TO THE ENGINEER ROBOT."
+	.GSTR STR?949,"Now see the question about opening the hatch in the Heart of Gold section."
+	.GSTR STR?951,"Many of them are rather excitingly high-tech, aren't they?"
+	.GSTR STR?1007,"eating the cheese sandwich when you're Ford?"
+	.GSTR STR?1033,"eating one of the hors d'oeuvres? (Try several times.)"
+	.GSTR STR?1052,"brushing your teeth with the toothbrush?"
+	.GSTR STR?1112," 9  ASK GUIDE ABOUT SPACE in space"
+	.GSTR STR?48," doesn't do anything."
+	.GSTR STR?83,"cricket."
+	.GSTR STR?235,"You fumble with the Thumb as you hold onto the tree against the fierce wind. It falls to the ground near Arthur's feet."
+THUMB-FUMBLE=STR?235
+	.GSTR STR?344,"Be persistent. Try going PORT a few more times."
+	.GSTR STR?445,"Now that you've heard the glass case's recording AND the second verse of the poem, you know what to type on the keyboard to get the atomic vector plotter. (When the guards drag you back into the Vogon Hold, of course.)"
+	.GSTR STR?549,"Now that you have all three items (spare Drive, plotter, and cup of ATS), you should be able to figure out how to hook them together."
+	.GSTR STR?935,"Now that you have all four pieces of fluff, any idea what to do with them?"
+	.GSTR STR?1054,"filling anything?"
+	.GSTR STR?1073,"GREEN BUTTON"
+	.GSTR STR?36,"."
+	.GSTR STR?76,"Behind the bar is a shelf. It is full of the sort of items you find on shelves behind bars in pubs."
+	.GSTR STR?85,"the deteriorating condition of the motorways."
+	.GSTR STR?93,"In the corner is a glass case with a switch and a keyboard."
+	.GSTR STR?95,"toy"
+	.GSTR STR?228," Infinite Improbability Drive"
+IID=STR?228
+	.GSTR STR?302,"My home's being wrecked. What now?"
+	.GSTR STR?369,"IN THE DARK"
+	.GSTR STR?602,"...and you don't have time to go out and get a different one before Marvin gives up and leaves..."
+	.GSTR STR?603,"...and Marvin will NEVER ask for the tool you happen to be holding."
+	.GSTR STR?679,"Ask the game! (Type WHO AM I?)"
+	.GSTR STR?723,"Ask the game. (Type WHO AM I?)"
+	.GSTR STR?876,"To obtain the flowerpot using the thumb, just pick up the pot and hitchhike."
+	.GSTR STR?878,"To obtain the flowerpot using the aunt's gift: the aunt's gift has an unusual property you may not have discovered. See the question about the aunt's gift."
+	.GSTR STR?998,"buying peanuts (as Arthur)?"
+	.GSTR STR?1001,"feeding peanuts to the dog? (You can only do this as Ford, of course.)"
+	.GSTR STR?1104," 1  ENJOY THE DARKNESS in the Dark"
+
+	.ENDI
diff --git a/parser.zabstr b/parser.zabstr
new file mode 100644
index 0000000..0581d9c
--- /dev/null
+++ b/parser.zabstr
@@ -0,0 +1,155 @@
+
+<SETG SIBREAKS ".,\""> 
+<GLOBAL P-AND <>> 
+<GLOBAL IN-FRONT-FLAG <>> 
+<GLOBAL PRSA <>> 
+<GLOBAL PRSI <>> 
+<GLOBAL PRSO <>> 
+<GLOBAL P-TABLE 0> 
+<GLOBAL P-ONEOBJ 0> 
+<GLOBAL P-SYNTAX 0> 
+<GLOBAL P-CCTBL <TABLE 0 0 0 0>> 
+<CONSTANT CC-SBPTR 0> 
+<CONSTANT CC-SEPTR 1> 
+<CONSTANT CC-DBPTR 2> 
+<CONSTANT CC-DEPTR 3> 
+<CONSTANT CC-OCLAUSE 2> 
+<GLOBAL P-LEN 0> 
+<GLOBAL WINNER 0> 
+<GLOBAL P-LEXV <ITABLE 60 (LEXV) 0 <BYTE 0> <BYTE 0>>> 
+<GLOBAL AGAIN-LEXV <ITABLE 60 (LEXV) 0 <BYTE 0> <BYTE 0>>> 
+<GLOBAL RESERVE-LEXV <ITABLE 60 (LEXV) 0 <BYTE 0> <BYTE 0>>> 
+<GLOBAL RESERVE-PTR <>> 
+<CONSTANT P-INBUF-LENGTH 120> 
+<GLOBAL P-INBUF <ITABLE 120 (BYTE LENGTH) 0>> 
+<GLOBAL RESERVE-INBUF <ITABLE 120 (BYTE LENGTH) 0>> 
+<GLOBAL OOPS-INBUF <ITABLE 120 (BYTE LENGTH) 0>> 
+<GLOBAL OOPS-TABLE <TABLE <> <> <> <>>> 
+<CONSTANT O-PTR 0> 
+<CONSTANT O-START 1> 
+<CONSTANT O-LENGTH 2> 
+<CONSTANT O-END 3> 
+<GLOBAL P-CONT <>> 
+<GLOBAL P-IT-OBJECT <>> 
+<GLOBAL P-OFLAG <>> 
+<GLOBAL P-MERGED <>> 
+<GLOBAL P-ACLAUSE <>> 
+<GLOBAL P-ANAM <>> 
+<GLOBAL P-AADJ <>> 
+<CONSTANT P-LEXWORDS 1> 
+<CONSTANT P-LEXSTART 1> 
+<CONSTANT P-LEXELEN 2> 
+<CONSTANT P-WORDLEN 4> 
+<CONSTANT P-PSOFF 6> 
+<CONSTANT P-P1OFF 7> 
+<CONSTANT P-P1BITS 3> 
+<CONSTANT P-ITBLLEN 9> 
+<GLOBAL P-ITBL <TABLE 0 0 0 0 0 0 0 0 0 0>> 
+<GLOBAL P-OTBL <TABLE 0 0 0 0 0 0 0 0 0 0>> 
+<GLOBAL P-VTBL <TABLE 0 0 0 0>> 
+<GLOBAL P-OVTBL <TABLE 0 0 0 0>> 
+<GLOBAL P-NCN 0> 
+<CONSTANT P-VERB 0> 
+<CONSTANT P-VERBN 1> 
+<CONSTANT P-PREP1 2> 
+<CONSTANT P-PREP1N 3> 
+<CONSTANT P-PREP2 4> 
+<CONSTANT P-NC1 6> 
+<CONSTANT P-NC1L 7> 
+<CONSTANT P-NC2 8> 
+<CONSTANT P-NC2L 9> 
+<GLOBAL QUOTE-FLAG <>> 
+<GLOBAL P-INPUT-WORDS <>> 
+<GLOBAL P-END-ON-PREP <>> 
+<GLOBAL P-PRSA-WORD <>> 
+<DEFINE-ROUTINE PARSER> 
+<DEFINE-ROUTINE NEXT-WORD> 
+<DEFINE-ROUTINE CHANGE-LEXV> 
+<GLOBAL DONT-FLAG <>> 
+<GLOBAL P-WALK-DIR <>> 
+<GLOBAL AGAIN-DIR <>> 
+<DEFINE-ROUTINE STUFF> 
+<DEFINE-ROUTINE INBUF-STUFF> 
+<DEFINE-ROUTINE INBUF-ADD> 
+<DEFINE-ROUTINE WT?> 
+<DEFINE-ROUTINE CLAUSE> 
+<DEFINE-ROUTINE NUMBER?> 
+<GLOBAL P-NUMBER 0> 
+<DEFINE-ROUTINE ORPHAN-MERGE> 
+<DEFINE-ROUTINE ACLAUSE-WIN> 
+<DEFINE-ROUTINE NCLAUSE-WIN> 
+<DEFINE-ROUTINE WORD-PRINT> 
+<DEFINE-ROUTINE UNKNOWN-WORD> 
+<DEFINE-ROUTINE CANT-USE> 
+<GLOBAL P-SLOCBITS 0> 
+<CONSTANT P-SYNLEN 8> 
+<CONSTANT P-SBITS 0> 
+<CONSTANT P-SPREP1 1> 
+<CONSTANT P-SPREP2 2> 
+<CONSTANT P-SFWIM1 3> 
+<CONSTANT P-SFWIM2 4> 
+<CONSTANT P-SLOC1 5> 
+<CONSTANT P-SLOC2 6> 
+<CONSTANT P-SACTION 7> 
+<CONSTANT P-SONUMS 3> 
+<DEFINE-ROUTINE SYNTAX-CHECK> 
+<DEFINE-ROUTINE CANT-ORPHAN> 
+<DEFINE-ROUTINE ORPHAN> 
+<DEFINE-ROUTINE CLAUSE-PRINT> 
+<DEFINE-ROUTINE BUFFER-PRINT> 
+<DEFINE-ROUTINE NAME?> 
+<DEFINE-ROUTINE CAPITALIZE> 
+<DEFINE-ROUTINE PREP-PRINT> 
+<DEFINE-ROUTINE CLAUSE-COPY> 
+<DEFINE-ROUTINE CLAUSE-ADD> 
+<DEFINE-ROUTINE PREP-FIND> 
+<DEFINE-ROUTINE SYNTAX-FOUND> 
+<GLOBAL P-GWIMBIT 0> 
+<DEFINE-ROUTINE GWIM> 
+<DEFINE-ROUTINE SNARF-OBJECTS> 
+<DEFINE-ROUTINE BUT-MERGE> 
+<GLOBAL P-NAM <>> 
+<GLOBAL P-ADJ <>> 
+<GLOBAL P-PRSO <ITABLE NONE 50>> 
+<GLOBAL P-PRSI <ITABLE NONE 50>> 
+<GLOBAL P-BUTS <ITABLE NONE 50>> 
+<GLOBAL P-MERGE <ITABLE NONE 50>> 
+<GLOBAL P-OCLAUSE <ITABLE NONE 50>> 
+<GLOBAL P-MATCHLEN 0> 
+<GLOBAL P-GETFLAGS 0> 
+<CONSTANT P-ALL 1> 
+<CONSTANT P-ONE 2> 
+<CONSTANT P-INHIBIT 4> 
+<GLOBAL P-CSPTR <>> 
+<GLOBAL P-CEPTR <>> 
+<DEFINE-ROUTINE SNARFEM> 
+<DEFINE-ROUTINE ADJ-CHECK> 
+<CONSTANT SH 128> 
+<CONSTANT SC 64> 
+<CONSTANT SIR 32> 
+<CONSTANT SOG 16> 
+<CONSTANT STAKE 8> 
+<CONSTANT SMANY 4> 
+<CONSTANT SHAVE 2> 
+<GLOBAL NOUN-MISSING "There seems to be a noun missing in that sentence."> 
+<DEFINE-ROUTINE GET-OBJECT> 
+<DEFINE-ROUTINE MOBY-FIND> 
+<GLOBAL P-MOBY-FOUND <>> 
+<GLOBAL P-MOBY-FLAG <>> 
+<GLOBAL P-XNAM <>> 
+<GLOBAL P-XADJ <>> 
+<DEFINE-ROUTINE WHICH-PRINT> 
+<DEFINE-ROUTINE GLOBAL-CHECK> 
+<DEFINE-ROUTINE DO-SL> 
+<CONSTANT P-SRCBOT 2> 
+<CONSTANT P-SRCTOP 0> 
+<CONSTANT P-SRCALL 1> 
+<DEFINE-ROUTINE SEARCH-LIST> 
+<DEFINE-ROUTINE OBJ-FOUND> 
+<DEFINE-ROUTINE TAKE-CHECK> 
+<DEFINE-ROUTINE ITAKE-CHECK> 
+<DEFINE-ROUTINE MANY-CHECK> 
+<DEFINE-ROUTINE LIT?> 
+<DEFINE-ROUTINE PRSO-PRINT> 
+<DEFINE-ROUTINE PRSI-PRINT> 
+<DEFINE-ROUTINE THIS-IT?> 
\ No newline at end of file
diff --git a/parser.zap b/parser.zap
new file mode 100644
index 0000000..1d4ba1b
--- /dev/null
+++ b/parser.zap
@@ -0,0 +1,1682 @@
+
+
+	.FUNCT	PARSER,PTR,WRD,VAL,VERB,DONT,OMERGED,OWINNER,LEN,DIR,NW,LW,CNT,?TMP2,?TMP1
+	SET	'PTR,P-LEXSTART
+	SET	'CNT,-1
+?PRG1:	IGRTR?	'CNT,P-ITBLLEN /?REP2
+	ZERO?	P-OFLAG \?CND6
+	GET	P-ITBL,CNT
+	PUT	P-OTBL,CNT,STACK
+?CND6:	PUT	P-ITBL,CNT,0
+	JUMP	?PRG1
+?REP2:	SET	'OMERGED,P-MERGED
+	SET	'OWINNER,WINNER
+	SET	'IN-FRONT-FLAG,FALSE-VALUE
+	SET	'P-MERGED,FALSE-VALUE
+	SET	'P-END-ON-PREP,FALSE-VALUE
+	PUT	P-PRSO,P-MATCHLEN,0
+	PUT	P-PRSI,P-MATCHLEN,0
+	PUT	P-BUTS,P-MATCHLEN,0
+	ZERO?	QUOTE-FLAG \?CND8
+	EQUAL?	WINNER,PLAYER /?CND8
+	SET	'WINNER,PLAYER
+	LOC	WINNER
+	FSET?	STACK,VEHBIT /?CND12
+	LOC	WINNER >HERE
+?CND12:	CALL2	LIT?,HERE >LIT
+?CND8:	ZERO?	RESERVE-PTR /?CCL16
+	SET	'PTR,RESERVE-PTR
+	ICALL	STUFF,P-LEXV,RESERVE-LEXV
+	ICALL	INBUF-STUFF,P-INBUF,RESERVE-INBUF
+	ZERO?	VERBOSITY /?CND17
+	EQUAL?	PROTAGONIST,WINNER \?CND17
+	CRLF	
+?CND17:	SET	'RESERVE-PTR,FALSE-VALUE
+	JUMP	?CND14
+?CCL16:	ZERO?	P-CONT /?CCL22
+	SET	'PTR,P-CONT
+	EQUAL?	VERBOSITY,1,2 \?CND23
+	EQUAL?	PLAYER,WINNER \?CND23
+	CRLF	
+?CND23:	SET	'P-CONT,FALSE-VALUE
+	JUMP	?CND14
+?CCL22:	SET	'WINNER,PLAYER
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	LOC	WINNER
+	FSET?	STACK,VEHBIT /?CND27
+	LOC	WINNER >HERE
+?CND27:	CALL2	LIT?,HERE >LIT
+	ZERO?	VERBOSITY /?PRG31
+	CRLF	
+?PRG31:	ICALL1	UPDATE-STATUS-LINE
+	PRINTC	62
+	GET	OOPS-TABLE,O-PTR
+	ZERO?	STACK \?CND35
+	PUT	OOPS-TABLE,O-END,FALSE-VALUE
+?CND35:	PUTB	P-INBUF,1,0
+	READ	P-INBUF,P-LEXV
+	GETB	P-LEXV,P-LEXWORDS >P-INPUT-WORDS
+?CND14:	GETB	P-LEXV,P-LEXWORDS >P-LEN
+	ZERO?	P-LEN \?CCL39
+	PRINTI	"I beg your pardon?"
+	CRLF	
+	RFALSE	
+?CCL39:	GET	P-LEXV,PTR
+	EQUAL?	STACK,W?OOPS,W?O \?CCL43
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK
+	EQUAL?	STACK,W?PERIOD,W?COMMA \?CND44
+	ADD	PTR,P-LEXELEN >PTR
+	DEC	'P-LEN
+?CND44:	GRTR?	P-LEN,1 /?CCL48
+	ICALL2	CANT-USE,STR?25
+	RFALSE	
+?CCL48:	GET	OOPS-TABLE,O-PTR
+	ZERO?	STACK /?CCL50
+	GRTR?	P-LEN,2 \?CND51
+	PRINTI	"[Warning: Only the first word after OOPS is used.]"
+	CRLF	
+?CND51:	GET	OOPS-TABLE,O-PTR >?TMP1
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK
+	PUT	AGAIN-LEXV,?TMP1,STACK
+	SET	'WINNER,OWINNER
+	MUL	PTR,P-LEXELEN
+	ADD	STACK,6
+	GETB	P-LEXV,STACK >?TMP2
+	MUL	PTR,P-LEXELEN
+	ADD	STACK,7
+	GETB	P-LEXV,STACK >?TMP1
+	GET	OOPS-TABLE,O-PTR
+	MUL	STACK,P-LEXELEN
+	ADD	STACK,3
+	ICALL	INBUF-ADD,?TMP2,?TMP1,STACK
+	ICALL	STUFF,P-LEXV,AGAIN-LEXV
+	GETB	P-LEXV,P-LEXWORDS >P-LEN
+	GET	OOPS-TABLE,O-START >PTR
+	ICALL	INBUF-STUFF,P-INBUF,OOPS-INBUF
+	JUMP	?CND37
+?CCL50:	PUT	OOPS-TABLE,O-END,FALSE-VALUE
+	PRINTI	"[There was no word to replace!]"
+	CRLF	
+	RFALSE	
+?CCL43:	ZERO?	P-CONT \?CND37
+	PUT	OOPS-TABLE,O-END,FALSE-VALUE
+?CND37:	SET	'P-CONT,FALSE-VALUE
+	GET	P-LEXV,PTR
+	EQUAL?	STACK,W?AGAIN,W?G \?CCL60
+	GETB	OOPS-INBUF,1
+	ZERO?	STACK \?CCL63
+	PRINTI	"[What do you want to do again?]"
+	CRLF	
+	RFALSE	
+?CCL63:	ZERO?	P-OFLAG /?CCL67
+	PRINTI	"Sorry, the Galactic Compendium on Interactive Fiction prohibits the use of AGAIN after your previous action."
+	CRLF	
+	RFALSE	
+?CCL67:	ZERO?	P-WON \?CCL71
+	PRINTI	"[That would just repeat a mistake!]"
+	CRLF	
+	RFALSE	
+?CCL71:	EQUAL?	OWINNER,PROTAGONIST /?CCL75
+	CALL2	VISIBLE?,OWINNER
+	ZERO?	STACK \?CCL75
+	PRINTI	"[You can't see "
+	PRINTD	OWINNER
+	PRINTI	" any more.]"
+	CRLF	
+	RFALSE	
+?CCL75:	GRTR?	P-LEN,1 \?CCL81
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK
+	EQUAL?	STACK,W?PERIOD,W?COMMA,W?THEN /?CTR83
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK
+	EQUAL?	STACK,W?AND \?CCL84
+?CTR83:	ADD	PTR,4 >PTR
+	GETB	P-LEXV,P-LEXWORDS
+	SUB	STACK,2
+	PUTB	P-LEXV,P-LEXWORDS,STACK
+	JUMP	?CND61
+?CCL84:	ICALL1	V-TELL-TIME
+	RFALSE	
+?CCL81:	ADD	PTR,P-LEXELEN >PTR
+	GETB	P-LEXV,P-LEXWORDS
+	SUB	STACK,1
+	PUTB	P-LEXV,P-LEXWORDS,STACK
+?CND61:	GETB	P-LEXV,P-LEXWORDS
+	GRTR?	STACK,0 \?CCL89
+	ICALL	STUFF,RESERVE-LEXV,P-LEXV
+	ICALL	INBUF-STUFF,RESERVE-INBUF,P-INBUF
+	SET	'RESERVE-PTR,PTR
+	JUMP	?CND87
+?CCL89:	SET	'RESERVE-PTR,FALSE-VALUE
+?CND87:	SET	'WINNER,OWINNER
+	SET	'P-MERGED,OMERGED
+	ICALL	INBUF-STUFF,P-INBUF,OOPS-INBUF
+	ICALL	STUFF,P-LEXV,AGAIN-LEXV
+	SET	'CNT,-1
+	SET	'DIR,AGAIN-DIR
+?PRG90:	IGRTR?	'CNT,P-ITBLLEN /?CND58
+	GET	P-OTBL,CNT
+	PUT	P-ITBL,CNT,STACK
+	JUMP	?PRG90
+?CCL60:	ICALL	STUFF,AGAIN-LEXV,P-LEXV
+	ICALL	INBUF-STUFF,OOPS-INBUF,P-INBUF
+	PUT	OOPS-TABLE,O-START,PTR
+	MUL	4,P-LEN
+	PUT	OOPS-TABLE,O-LENGTH,STACK
+	GETB	P-LEXV,P-LEXWORDS
+	MUL	P-LEXELEN,STACK
+	ADD	PTR,STACK
+	MUL	2,STACK >LEN
+	GET	OOPS-TABLE,O-END
+	ZERO?	STACK \?CND95
+	SUB	LEN,1
+	GETB	P-LEXV,STACK >?TMP1
+	SUB	LEN,2
+	GETB	P-LEXV,STACK
+	ADD	?TMP1,STACK
+	PUT	OOPS-TABLE,O-END,STACK
+?CND95:	SET	'RESERVE-PTR,FALSE-VALUE
+	SET	'LEN,P-LEN
+	SET	'P-NCN,0
+	SET	'P-GETFLAGS,0
+?PRG97:	DLESS?	'P-LEN,0 \?CCL101
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	JUMP	?CND58
+?CCL101:	GET	P-LEXV,PTR >WRD
+	ZERO?	WRD \?CTR102
+	CALL2	NUMBER?,PTR >WRD
+	ZERO?	WRD /?CCL103
+?CTR102:	CALL2	NEXT-WORD,PTR >NW
+	EQUAL?	WRD,W?TO \?CCL108
+	EQUAL?	VERB,ACT?TELL,ACT?ASK \?CCL108
+	CALL	WT?,NW,64,1
+	ZERO?	STACK /?CCL108
+	PUT	P-ITBL,P-VERB,ACT?TELL
+	SET	'WRD,W?QUOTE
+	JUMP	?CND106
+?CCL108:	EQUAL?	WRD,W?THEN \?CCL113
+	GRTR?	P-LEN,0 \?CCL113
+	ZERO?	VERB \?CCL113
+	ZERO?	QUOTE-FLAG \?CCL113
+	PUT	P-ITBL,P-VERB,ACT?TELL
+	PUT	P-ITBL,P-VERBN,0
+	SET	'WRD,W?QUOTE
+	JUMP	?CND106
+?CCL113:	EQUAL?	WRD,W?PERIOD \?CND106
+	EQUAL?	LW,W?MR \?CND106
+	DEC	'P-NCN
+	ICALL	CHANGE-LEXV,PTR,LW,TRUE-VALUE
+	SET	'WRD,LW
+	SET	'LW,0
+?CND106:	EQUAL?	WRD,W?THEN,W?PERIOD /?CTR122
+	EQUAL?	WRD,W?QUOTE \?CCL123
+?CTR122:	EQUAL?	WRD,W?QUOTE \?CND126
+	EQUAL?	VERB,ACT?CARVE,ACT?MY \?CCL130
+	PUT	P-LEXV,PTR,W?THE
+	INC	'P-LEN
+	JUMP	?PRG97
+?CCL130:	ZERO?	QUOTE-FLAG /?CCL132
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	JUMP	?CND126
+?CCL132:	SET	'QUOTE-FLAG,TRUE-VALUE
+?CND126:	ZERO?	P-LEN /?PEN133
+	ADD	PTR,P-LEXELEN >P-CONT
+?PEN133:	PUTB	P-LEXV,P-LEXWORDS,P-LEN
+	JUMP	?CND58
+?CCL123:	CALL	WT?,WRD,16,3 >VAL
+	ZERO?	VAL /?CCL136
+	EQUAL?	VERB,FALSE-VALUE,ACT?WALK \?CCL136
+	EQUAL?	LEN,1 /?CTR135
+	EQUAL?	LEN,2 \?PRD142
+	EQUAL?	VERB,ACT?WALK /?CTR135
+?PRD142:	EQUAL?	NW,W?THEN,W?PERIOD,W?QUOTE \?PRD145
+	LESS?	LEN,2 \?CTR135
+?PRD145:	ZERO?	QUOTE-FLAG /?PRD148
+	EQUAL?	LEN,2 \?PRD148
+	EQUAL?	NW,W?QUOTE /?CTR135
+?PRD148:	GRTR?	LEN,2 \?CCL136
+	EQUAL?	NW,W?COMMA,W?AND \?CCL136
+?CTR135:	SET	'DIR,VAL
+	EQUAL?	NW,W?COMMA,W?AND \?CND154
+	ADD	PTR,P-LEXELEN
+	ICALL	CHANGE-LEXV,STACK,W?THEN
+?CND154:	GRTR?	LEN,2 /?CND99
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	JUMP	?CND58
+?CCL136:	CALL	WT?,WRD,64,1 >VAL
+	ZERO?	VAL /?CCL159
+	ZERO?	VERB \?CCL159
+	ZERO?	P-OFLAG \?CND162
+	SET	'P-PRSA-WORD,WRD
+?CND162:	SET	'VERB,VAL
+	PUT	P-ITBL,P-VERB,VAL
+	PUT	P-ITBL,P-VERBN,P-VTBL
+	PUT	P-VTBL,0,WRD
+	MUL	PTR,2
+	ADD	STACK,2 >CNT
+	GETB	P-LEXV,CNT
+	PUTB	P-VTBL,2,STACK
+	ADD	CNT,1
+	GETB	P-LEXV,STACK
+	PUTB	P-VTBL,3,STACK
+	JUMP	?CND99
+?CCL159:	CALL	WT?,WRD,8,0 >VAL
+	ZERO?	VAL \?CTR164
+	EQUAL?	WRD,W?ALL,W?ONE,W?BOTH /?CTR164
+	CALL	WT?,WRD,32
+	ZERO?	STACK \?CTR164
+	CALL	WT?,WRD,128
+	ZERO?	STACK /?CCL165
+?CTR164:	GRTR?	P-LEN,0 \?CCL171
+	EQUAL?	NW,W?OF \?CCL171
+	ZERO?	VAL \?CCL171
+	EQUAL?	WRD,W?ALL,W?ONE /?CCL171
+	EQUAL?	WRD,W?A,W?BOTH \?CND99
+?CCL171:	ZERO?	VAL /?CCL178
+	ZERO?	P-LEN /?CTR177
+	EQUAL?	NW,W?THEN,W?PERIOD \?CCL178
+?CTR177:	SET	'P-END-ON-PREP,TRUE-VALUE
+	LESS?	P-NCN,2 \?CND99
+	PUT	P-ITBL,P-PREP1,VAL
+	PUT	P-ITBL,P-PREP1N,WRD
+	JUMP	?CND99
+?CCL178:	EQUAL?	P-NCN,2 \?CCL186
+	PRINTI	"[There were too many nouns in that sentence.]"
+	CRLF	
+	RFALSE	
+?CCL186:	INC	'P-NCN
+	EQUAL?	VAL,PR?IN \?CCL191
+	ADD	PTR,2
+	GET	P-LEXV,STACK
+	EQUAL?	STACK,W?FRONT \?CCL191
+	SET	'IN-FRONT-FLAG,TRUE-VALUE
+	JUMP	?CND189
+?CCL191:	EQUAL?	VAL,PR?DOWN \?CND189
+	ADD	PTR,2
+	GET	P-LEXV,STACK
+	EQUAL?	STACK,W?IN \?CND189
+	ADD	PTR,4
+	GET	P-LEXV,STACK
+	EQUAL?	STACK,W?FRONT \?CND189
+	SET	'IN-FRONT-FLAG,TRUE-VALUE
+?CND189:	CALL	CLAUSE,PTR,VAL,WRD >PTR
+	ZERO?	PTR /FALSE
+	LESS?	PTR,0 \?CND99
+	SET	'QUOTE-FLAG,FALSE-VALUE
+?CND58:	PUT	OOPS-TABLE,O-PTR,FALSE-VALUE
+	ZERO?	DIR /?CND214
+	SET	'PRSA,V?WALK
+	SET	'PRSO,DIR
+	SET	'P-OFLAG,FALSE-VALUE
+	SET	'P-WALK-DIR,DIR
+	SET	'AGAIN-DIR,DIR
+	SET	'DONT-FLAG,DONT
+	RTRUE	
+?CCL165:	ZERO?	VERB \?CCL203
+	EQUAL?	WRD,W?DON'T,W?DONT \?CCL203
+	SET	'DONT,TRUE-VALUE
+?CND99:	SET	'LW,WRD
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?PRG97
+?CCL203:	CALL	WT?,WRD,4
+	ZERO?	STACK \?CND99
+	EQUAL?	VERB,ACT?TELL \?CCL208
+	CALL	WT?,WRD,64,1
+	ZERO?	STACK /?CCL208
+	EQUAL?	WINNER,PROTAGONIST \?CCL208
+	PRINTI	"Please consult your manual for the correct way to talk to characters."
+	CRLF	
+	RFALSE	
+?CCL208:	ICALL2	CANT-USE,PTR
+	RFALSE	
+?CCL103:	ICALL2	UNKNOWN-WORD,PTR
+	RFALSE	
+?CND214:	SET	'P-WALK-DIR,FALSE-VALUE
+	SET	'AGAIN-DIR,FALSE-VALUE
+	ZERO?	P-OFLAG /?CCL217
+	CALL1	ORPHAN-MERGE
+	ZERO?	STACK \?CND216
+?CCL217:	SET	'DONT-FLAG,DONT
+?CND216:	CALL1	SYNTAX-CHECK
+	ZERO?	STACK /FALSE
+	CALL1	SNARF-OBJECTS
+	ZERO?	STACK /FALSE
+	CALL1	MANY-CHECK
+	ZERO?	STACK /FALSE
+	CALL1	TAKE-CHECK
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	NEXT-WORD,PTR
+	ZERO?	P-LEN /FALSE
+	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK
+	RSTACK	
+
+
+	.FUNCT	CHANGE-LEXV,PTR,WRD,PTRS?,X,Y,Z
+	ZERO?	PTRS? /?CND1
+	SUB	PTR,P-LEXELEN
+	MUL	2,STACK
+	ADD	2,STACK >X
+	GETB	P-LEXV,X >Y
+	MUL	2,PTR
+	ADD	2,STACK >Z
+	PUTB	P-LEXV,Z,Y
+	PUTB	AGAIN-LEXV,Z,Y
+	ADD	1,X
+	GETB	P-LEXV,STACK >Y
+	MUL	2,PTR
+	ADD	3,STACK >Z
+	PUTB	P-LEXV,Z,Y
+	PUTB	AGAIN-LEXV,Z,Y
+?CND1:	PUT	P-LEXV,PTR,WRD
+	PUT	AGAIN-LEXV,PTR,WRD
+	RTRUE	
+
+
+	.FUNCT	STUFF,DEST,SRC,MAX,PTR,CTR,BPTR
+	ASSIGNED?	'MAX /?CND1
+	SET	'MAX,29
+?CND1:	SET	'PTR,P-LEXSTART
+	SET	'CTR,1
+	GETB	SRC,0
+	PUTB	DEST,0,STACK
+	GETB	SRC,1
+	PUTB	DEST,1,STACK
+?PRG3:	GET	SRC,PTR
+	PUT	DEST,PTR,STACK
+	MUL	PTR,2
+	ADD	STACK,2 >BPTR
+	GETB	SRC,BPTR
+	PUTB	DEST,BPTR,STACK
+	MUL	PTR,2
+	ADD	STACK,3 >BPTR
+	GETB	SRC,BPTR
+	PUTB	DEST,BPTR,STACK
+	ADD	PTR,P-LEXELEN >PTR
+	IGRTR?	'CTR,MAX \?PRG3
+	RTRUE	
+
+
+	.FUNCT	INBUF-STUFF,DEST,SRC,CNT
+	SET	'CNT,-1
+?PRG1:	IGRTR?	'CNT,P-INBUF-LENGTH /TRUE
+	GETB	SRC,CNT
+	PUTB	DEST,CNT,STACK
+	JUMP	?PRG1
+
+
+	.FUNCT	INBUF-ADD,LEN,BEG,SLOT,DBEG,CTR,TMP,?TMP1
+	GET	OOPS-TABLE,O-END >TMP
+	ZERO?	TMP /?CCL3
+	SET	'DBEG,TMP
+	JUMP	?CND1
+?CCL3:	GET	OOPS-TABLE,O-LENGTH >TMP
+	GETB	AGAIN-LEXV,TMP >?TMP1
+	ADD	TMP,1
+	GETB	AGAIN-LEXV,STACK
+	ADD	?TMP1,STACK >DBEG
+?CND1:	ADD	DBEG,LEN
+	PUT	OOPS-TABLE,O-END,STACK
+?PRG4:	ADD	DBEG,CTR >?TMP1
+	ADD	BEG,CTR
+	GETB	P-INBUF,STACK
+	PUTB	OOPS-INBUF,?TMP1,STACK
+	INC	'CTR
+	EQUAL?	CTR,LEN \?PRG4
+	PUTB	AGAIN-LEXV,SLOT,DBEG
+	SUB	SLOT,1
+	PUTB	AGAIN-LEXV,STACK,LEN
+	RTRUE	
+
+
+	.FUNCT	WT?,PTR,BIT,B1,OFFS,TYP
+	ASSIGNED?	'B1 /?CND1
+	SET	'B1,5
+?CND1:	SET	'OFFS,P-P1OFF
+	GETB	PTR,P-PSOFF >TYP
+	BTST	TYP,BIT \FALSE
+	GRTR?	B1,4 /TRUE
+	BAND	TYP,P-P1BITS >TYP
+	EQUAL?	TYP,B1 /?CND9
+	INC	'OFFS
+?CND9:	GETB	PTR,OFFS
+	RSTACK	
+
+
+	.FUNCT	CLAUSE,PTR,VAL,WRD,OFF,NUM,ANDFLG,FIRST??,NW,LW,?TMP1
+	SET	'FIRST??,TRUE-VALUE
+	SUB	P-NCN,1
+	MUL	STACK,2 >OFF
+	ZERO?	VAL /?CCL3
+	ADD	P-PREP1,OFF >NUM
+	PUT	P-ITBL,NUM,VAL
+	ADD	NUM,1
+	PUT	P-ITBL,STACK,WRD
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?CND1
+?CCL3:	INC	'P-LEN
+?CND1:	ZERO?	P-LEN \?CND4
+	DEC	'P-NCN
+	RETURN	-1
+?CND4:	ADD	P-NC1,OFF >NUM
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,NUM,STACK
+	GET	P-LEXV,PTR
+	EQUAL?	STACK,W?THE,W?A,W?AN \?PRG8
+	GET	P-ITBL,NUM
+	ADD	STACK,4
+	PUT	P-ITBL,NUM,STACK
+?PRG8:	DLESS?	'P-LEN,0 \?CND10
+	ADD	NUM,1 >?TMP1
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,?TMP1,STACK
+	RETURN	-1
+?CND10:	GET	P-LEXV,PTR >WRD
+	ZERO?	WRD \?CTR13
+	CALL2	NUMBER?,PTR >WRD
+	ZERO?	WRD /?CCL14
+?CTR13:	ZERO?	P-LEN \?CCL19
+	SET	'NW,0
+	JUMP	?CND17
+?CCL19:	ADD	PTR,P-LEXELEN
+	GET	P-LEXV,STACK >NW
+?CND17:	EQUAL?	WRD,W?PERIOD \?CCL22
+	EQUAL?	LW,W?MR \?CCL22
+	SET	'LW,0
+	JUMP	?CND12
+?CCL22:	EQUAL?	WRD,W?AND,W?COMMA \?CCL26
+	SET	'ANDFLG,TRUE-VALUE
+	JUMP	?CND12
+?CCL26:	EQUAL?	WRD,W?ALL,W?ONE,W?BOTH \?CCL28
+	EQUAL?	NW,W?OF \?CND12
+	DEC	'P-LEN
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?CND12
+?CCL28:	EQUAL?	WRD,W?THEN,W?PERIOD /?CTR31
+	CALL	WT?,WRD,8
+	ZERO?	STACK /?CCL32
+	GET	P-ITBL,P-VERB
+	ZERO?	STACK /?CCL32
+	ZERO?	FIRST?? \?CCL32
+?CTR31:	INC	'P-LEN
+	ADD	NUM,1 >?TMP1
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,?TMP1,STACK
+	SUB	PTR,P-LEXELEN
+	RSTACK	
+?CCL32:	ZERO?	ANDFLG /?CCL39
+	GET	P-ITBL,P-VERB
+	ZERO?	STACK \?CCL39
+	SUB	PTR,4 >PTR
+	ADD	PTR,2
+	PUT	P-LEXV,STACK,W?THEN
+	ADD	P-LEN,2 >P-LEN
+	JUMP	?CND12
+?CCL39:	CALL	WT?,WRD,128
+	ZERO?	STACK /?CCL43
+	GRTR?	P-LEN,0 \?CCL46
+	EQUAL?	NW,W?OF \?CCL46
+	EQUAL?	WRD,W?ALL,W?ONE \?CND12
+?CCL46:	CALL	WT?,WRD,32
+	ZERO?	STACK /?CCL50
+	ZERO?	NW /?CCL50
+	CALL	WT?,NW,128
+	ZERO?	STACK \?CND12
+	CALL	WT?,NW,32
+	ZERO?	STACK \?CND12
+?CCL50:	ZERO?	ANDFLG \?CCL57
+	EQUAL?	NW,W?BUT,W?EXCEPT /?CCL57
+	EQUAL?	NW,W?AND,W?COMMA /?CCL57
+	ADD	NUM,1 >?TMP1
+	ADD	PTR,2
+	MUL	STACK,2
+	ADD	P-LEXV,STACK
+	PUT	P-ITBL,?TMP1,STACK
+	RETURN	PTR
+?CCL57:	SET	'ANDFLG,FALSE-VALUE
+	JUMP	?CND12
+?CCL43:	CALL	WT?,WRD,32
+	ZERO?	STACK \?CND12
+	CALL	WT?,WRD,4
+	ZERO?	STACK \?CND12
+	CALL	WT?,WRD,8
+	ZERO?	STACK \?CND12
+	ICALL2	CANT-USE,PTR
+	RFALSE	
+?CCL14:	ICALL2	UNKNOWN-WORD,PTR
+	RFALSE	
+?CND12:	SET	'LW,WRD
+	SET	'FIRST??,FALSE-VALUE
+	ADD	PTR,P-LEXELEN >PTR
+	JUMP	?PRG8
+
+
+	.FUNCT	NUMBER?,PTR,CNT,BPTR,CHR,SUM,TIM,?TMP1
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	GETB	STACK,2 >CNT
+	MUL	PTR,2
+	ADD	P-LEXV,STACK
+	GETB	STACK,3 >BPTR
+?PRG1:	DLESS?	'CNT,0 /?REP2
+	GETB	P-INBUF,BPTR >CHR
+	EQUAL?	CHR,58 \?CCL8
+	SET	'TIM,SUM
+	SET	'SUM,0
+	JUMP	?CND6
+?CCL8:	GRTR?	SUM,10000 /FALSE
+	LESS?	CHR,58 \FALSE
+	GRTR?	CHR,47 \FALSE
+	MUL	SUM,10 >?TMP1
+	SUB	CHR,48
+	ADD	?TMP1,STACK >SUM
+?CND6:	INC	'BPTR
+	JUMP	?PRG1
+?REP2:	PUT	P-LEXV,PTR,W?INTNUM
+	GRTR?	SUM,1000 /FALSE
+	ZERO?	TIM /?CND15
+	LESS?	TIM,8 \?CCL21
+	ADD	TIM,12 >TIM
+	JUMP	?CND19
+?CCL21:	GRTR?	TIM,23 /FALSE
+?CND19:	MUL	TIM,60
+	ADD	SUM,STACK >SUM
+?CND15:	SET	'P-NUMBER,SUM
+	RETURN	W?INTNUM
+
+
+	.FUNCT	ORPHAN-MERGE,CNT,TEMP,VERB,BEG,END,ADJ,WRD,?TMP1
+	SET	'CNT,-1
+	SET	'P-OFLAG,FALSE-VALUE
+	GET	P-ITBL,P-VERBN
+	GET	STACK,0 >WRD
+	CALL	WT?,WRD,32
+	ZERO?	STACK /?CCL3
+	SET	'ADJ,TRUE-VALUE
+	JUMP	?CND1
+?CCL3:	CALL	WT?,WRD,128
+	ZERO?	STACK /?CND1
+	ZERO?	P-NCN \?CND1
+	PUT	P-ITBL,P-VERB,0
+	PUT	P-ITBL,P-VERBN,0
+	ADD	P-LEXV,2
+	PUT	P-ITBL,P-NC1,STACK
+	ADD	P-LEXV,6
+	PUT	P-ITBL,P-NC1L,STACK
+	SET	'P-NCN,1
+?CND1:	GET	P-ITBL,P-VERB >VERB
+	ZERO?	VERB /?CCL9
+	ZERO?	ADJ \?CCL9
+	GET	P-OTBL,P-VERB
+	EQUAL?	VERB,STACK \FALSE
+?CCL9:	EQUAL?	P-NCN,2 /FALSE
+	GET	P-OTBL,P-NC1
+	EQUAL?	STACK,1 \?CCL16
+	GET	P-ITBL,P-PREP1 >TEMP
+	GET	P-OTBL,P-PREP1
+	EQUAL?	TEMP,STACK /?CTR18
+	ZERO?	TEMP \FALSE
+?CTR18:	ZERO?	ADJ /?CCL24
+	ADD	P-LEXV,2
+	PUT	P-OTBL,P-NC1,STACK
+	GET	P-ITBL,P-NC1L
+	ZERO?	STACK \?CND25
+	ADD	P-LEXV,6
+	PUT	P-ITBL,P-NC1L,STACK
+?CND25:	ZERO?	P-NCN \?CND22
+	SET	'P-NCN,1
+	JUMP	?CND22
+?CCL24:	GET	P-ITBL,P-NC1
+	PUT	P-OTBL,P-NC1,STACK
+?CND22:	GET	P-ITBL,P-NC1L
+	PUT	P-OTBL,P-NC1L,STACK
+	JUMP	?CND7
+?CCL16:	GET	P-OTBL,P-NC2
+	EQUAL?	STACK,1 \?CCL30
+	GET	P-ITBL,P-PREP1 >TEMP
+	GET	P-OTBL,P-PREP2
+	EQUAL?	TEMP,STACK /?CTR32
+	ZERO?	TEMP \FALSE
+?CTR32:	ZERO?	ADJ /?CND36
+	ADD	P-LEXV,2
+	PUT	P-ITBL,P-NC1,STACK
+	GET	P-ITBL,P-NC1L
+	ZERO?	STACK \?CND36
+	ADD	P-LEXV,6
+	PUT	P-ITBL,P-NC1L,STACK
+?CND36:	GET	P-ITBL,P-NC1
+	PUT	P-OTBL,P-NC2,STACK
+	GET	P-ITBL,P-NC1L
+	PUT	P-OTBL,P-NC2L,STACK
+	SET	'P-NCN,2
+	JUMP	?CND7
+?CCL30:	ZERO?	P-ACLAUSE /?CND7
+	EQUAL?	P-NCN,1 /?CCL43
+	ZERO?	ADJ \?CCL43
+	SET	'P-ACLAUSE,FALSE-VALUE
+	RFALSE	
+?CCL43:	GET	P-ITBL,P-NC1 >BEG
+	ZERO?	ADJ /?CND46
+	ADD	P-LEXV,2 >BEG
+	SET	'ADJ,FALSE-VALUE
+?CND46:	GET	P-ITBL,P-NC1L >END
+?PRG48:	GET	BEG,0 >WRD
+	EQUAL?	BEG,END \?CCL52
+	ZERO?	ADJ /?CCL55
+	ICALL2	ACLAUSE-WIN,ADJ
+	JUMP	?CND7
+?CCL55:	SET	'P-ACLAUSE,FALSE-VALUE
+	RFALSE	
+?CCL52:	ZERO?	ADJ \?CCL57
+	GETB	WRD,P-PSOFF
+	BTST	STACK,32 /?CTR56
+	EQUAL?	WRD,W?ALL,W?ONE \?CCL57
+?CTR56:	SET	'ADJ,WRD
+?CND50:	ADD	BEG,P-WORDLEN >BEG
+	ZERO?	END \?PRG48
+	SET	'END,BEG
+	SET	'P-NCN,1
+	SUB	BEG,4
+	PUT	P-ITBL,P-NC1,STACK
+	PUT	P-ITBL,P-NC1L,BEG
+	JUMP	?PRG48
+?CCL57:	EQUAL?	WRD,W?ONE \?CCL63
+	ICALL2	ACLAUSE-WIN,ADJ
+	JUMP	?CND7
+?CCL63:	GETB	WRD,P-PSOFF
+	BTST	STACK,128 \?CND50
+	EQUAL?	WRD,P-ANAM \?CCL67
+	ICALL2	ACLAUSE-WIN,ADJ
+	JUMP	?CND7
+?CCL67:	ICALL1	NCLAUSE-WIN
+?CND7:	GET	P-OVTBL,0
+	PUT	P-VTBL,0,STACK
+	GETB	P-OVTBL,2
+	PUTB	P-VTBL,2,STACK
+	GETB	P-OVTBL,3
+	PUTB	P-VTBL,3,STACK
+	PUT	P-OTBL,P-VERBN,P-VTBL
+	PUTB	P-VTBL,2,0
+?PRG70:	IGRTR?	'CNT,P-ITBLLEN \?CCL74
+	SET	'P-MERGED,TRUE-VALUE
+	RTRUE	
+?CCL74:	GET	P-OTBL,CNT
+	PUT	P-ITBL,CNT,STACK
+	JUMP	?PRG70
+
+
+	.FUNCT	ACLAUSE-WIN,ADJ
+	GET	P-OTBL,P-VERB
+	PUT	P-ITBL,P-VERB,STACK
+	EQUAL?	ADJ,W?TEA \?CCL3
+	ICALL1	NCLAUSE-WIN
+	JUMP	?CND1
+?CCL3:	PUT	P-CCTBL,CC-SBPTR,P-ACLAUSE
+	ADD	P-ACLAUSE,1
+	PUT	P-CCTBL,CC-SEPTR,STACK
+	PUT	P-CCTBL,CC-DBPTR,P-ACLAUSE
+	ADD	P-ACLAUSE,1
+	PUT	P-CCTBL,CC-DEPTR,STACK
+	ICALL	CLAUSE-COPY,P-OTBL,P-OTBL,ADJ
+?CND1:	GET	P-OTBL,P-NC2
+	ZERO?	STACK /?PEN4
+	SET	'P-NCN,2
+?PEN4:	SET	'P-ACLAUSE,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	NCLAUSE-WIN
+	PUT	P-CCTBL,CC-SBPTR,P-NC1
+	PUT	P-CCTBL,CC-SEPTR,P-NC1L
+	PUT	P-CCTBL,CC-DBPTR,P-ACLAUSE
+	ADD	P-ACLAUSE,1
+	PUT	P-CCTBL,CC-DEPTR,STACK
+	ICALL	CLAUSE-COPY,P-ITBL,P-OTBL
+	GET	P-OTBL,P-NC2
+	ZERO?	STACK /?PEN1
+	SET	'P-NCN,2
+?PEN1:	SET	'P-ACLAUSE,FALSE-VALUE
+	RTRUE	
+
+
+	.FUNCT	WORD-PRINT,CNT,BUF
+?PRG1:	DLESS?	'CNT,0 /TRUE
+	GETB	P-INBUF,BUF
+	PRINTC	STACK
+	INC	'BUF
+	JUMP	?PRG1
+
+
+	.FUNCT	UNKNOWN-WORD,PTR,BUF,?TMP1
+	ZERO?	P-OFLAG /?CND1
+	PUT	OOPS-TABLE,O-END,0
+?CND1:	PUT	OOPS-TABLE,O-PTR,PTR
+	PRINTI	"I don't know the word """
+	MUL	PTR,2 >BUF
+	ADD	P-LEXV,BUF
+	GETB	STACK,2 >?TMP1
+	ADD	P-LEXV,BUF
+	GETB	STACK,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+	PRINTI	"""."
+	CRLF	
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-OFLAG,FALSE-VALUE
+	RETURN	P-OFLAG
+
+
+	.FUNCT	CANT-USE,PTR,BUF,?TMP1
+	PRINTI	"You used the word """
+	MUL	PTR,2 >BUF
+	ADD	P-LEXV,BUF
+	GETB	STACK,2 >?TMP1
+	ADD	P-LEXV,BUF
+	GETB	STACK,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+	PRINTI	""" in a way that I don't understand."
+	CRLF	
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	SET	'P-OFLAG,FALSE-VALUE
+	RETURN	P-OFLAG
+
+
+	.FUNCT	SYNTAX-CHECK,SYN,LEN,NUM,OBJ,DRIVE1,DRIVE2,PREP,VERB,TMP,?TMP2,?TMP1
+	GET	P-ITBL,P-VERB >VERB
+	ZERO?	VERB \?CND1
+	PRINTI	"There was no verb in that sentence!"
+	CRLF	
+	RFALSE	
+?CND1:	SUB	255,VERB
+	GET	VERBS,STACK >SYN
+	GETB	SYN,0 >LEN
+	INC	'SYN
+?PRG5:	GETB	SYN,P-SBITS
+	BAND	STACK,P-SONUMS >NUM
+	GRTR?	P-NCN,NUM /?CND7
+	LESS?	NUM,1 /?CCL11
+	ZERO?	P-NCN \?CCL11
+	GET	P-ITBL,P-PREP1 >PREP
+	ZERO?	PREP /?CTR10
+	GETB	SYN,P-SPREP1
+	EQUAL?	PREP,STACK \?CCL11
+?CTR10:	SET	'DRIVE1,SYN
+	JUMP	?CND7
+?CCL11:	GETB	SYN,P-SPREP1 >?TMP1
+	GET	P-ITBL,P-PREP1
+	EQUAL?	?TMP1,STACK \?CND7
+	EQUAL?	NUM,2 \?CCL20
+	EQUAL?	P-NCN,1 \?CCL20
+	SET	'DRIVE2,SYN
+?CND7:	DLESS?	'LEN,1 \?CCL26
+	ZERO?	DRIVE1 \?REP6
+	ZERO?	DRIVE2 \?REP6
+	ICALL1	V-TELL-TIME
+	RFALSE	
+?CCL20:	GETB	SYN,P-SPREP2 >?TMP1
+	GET	P-ITBL,P-PREP2
+	EQUAL?	?TMP1,STACK \?CND7
+	ICALL2	SYNTAX-FOUND,SYN
+	RTRUE	
+?CCL26:	ADD	SYN,P-SYNLEN >SYN
+	JUMP	?PRG5
+?REP6:	ZERO?	DRIVE1 /?CCL34
+	GETB	DRIVE1,P-SFWIM1 >?TMP2
+	GETB	DRIVE1,P-SLOC1 >?TMP1
+	GETB	DRIVE1,P-SPREP1
+	CALL	GWIM,?TMP2,?TMP1,STACK >OBJ
+	ZERO?	OBJ /?CCL34
+	PUT	P-PRSO,P-MATCHLEN,1
+	PUT	P-PRSO,1,OBJ
+	CALL2	SYNTAX-FOUND,DRIVE1
+	RSTACK	
+?CCL34:	ZERO?	DRIVE2 /?CCL38
+	GETB	DRIVE2,P-SFWIM2 >?TMP2
+	GETB	DRIVE2,P-SLOC2 >?TMP1
+	GETB	DRIVE2,P-SPREP2
+	CALL	GWIM,?TMP2,?TMP1,STACK >OBJ
+	ZERO?	OBJ /?CCL38
+	PUT	P-PRSI,P-MATCHLEN,1
+	PUT	P-PRSI,1,OBJ
+	CALL2	SYNTAX-FOUND,DRIVE2
+	RSTACK	
+?CCL38:	EQUAL?	VERB,ACT?FIND \?CCL42
+	PRINTI	"I can't answer that question."
+	CRLF	
+	RFALSE	
+?CCL42:	EQUAL?	WINNER,PROTAGONIST /?CCL46
+	CALL1	CANT-ORPHAN
+	RSTACK	
+?CCL46:	ICALL	ORPHAN,DRIVE1,DRIVE2
+	PRINTI	"What do"
+	ZERO?	DONT-FLAG /?PRG53
+	PRINTI	"n't"
+?PRG53:	PRINTI	" you want to "
+	GET	P-OTBL,P-VERBN >TMP
+	ZERO?	TMP \?CCL57
+	PRINTI	"tell"
+	JUMP	?CND55
+?CCL57:	GETB	P-VTBL,2
+	ZERO?	STACK \?CCL61
+	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?CND55
+?CCL61:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+	PUTB	P-VTBL,2,0
+?CND55:	ZERO?	DRIVE2 /?CND62
+	ICALL	CLAUSE-PRINT,P-NC1,P-NC1L
+?CND62:	SET	'P-OFLAG,TRUE-VALUE
+	ZERO?	DRIVE1 /?CCL66
+	GETB	DRIVE1,P-SPREP1
+	JUMP	?CND64
+?CCL66:	GETB	DRIVE2,P-SPREP2
+?CND64:	ICALL2	PREP-PRINT,STACK
+	PRINTC	63
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	CANT-ORPHAN
+	EQUAL?	WINNER,GUARDS \?PRG8
+	EQUAL?	HERE,DAIS \?PRG8
+	PRINTI	"""We"
+	JUMP	?PRG10
+?PRG8:	PRINTI	"""I"
+?PRG10:	PRINTI	" don't understand! What are you referring to?"""
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	ORPHAN,D1,D2,CNT
+	SET	'CNT,-1
+	ZERO?	P-MERGED \?CND1
+	PUT	P-OCLAUSE,P-MATCHLEN,0
+?CND1:	GET	P-VTBL,0
+	PUT	P-OVTBL,0,STACK
+	GETB	P-VTBL,2
+	PUTB	P-OVTBL,2,STACK
+	GETB	P-VTBL,3
+	PUTB	P-OVTBL,3,STACK
+?PRG3:	IGRTR?	'CNT,P-ITBLLEN /?REP4
+	GET	P-ITBL,CNT
+	PUT	P-OTBL,CNT,STACK
+	JUMP	?PRG3
+?REP4:	EQUAL?	P-NCN,2 \?CND8
+	PUT	P-CCTBL,CC-SBPTR,P-NC2
+	PUT	P-CCTBL,CC-SEPTR,P-NC2L
+	PUT	P-CCTBL,CC-DBPTR,P-NC2
+	PUT	P-CCTBL,CC-DEPTR,P-NC2L
+	ICALL	CLAUSE-COPY,P-ITBL,P-OTBL
+?CND8:	LESS?	P-NCN,1 /?CND10
+	PUT	P-CCTBL,CC-SBPTR,P-NC1
+	PUT	P-CCTBL,CC-SEPTR,P-NC1L
+	PUT	P-CCTBL,CC-DBPTR,P-NC1
+	PUT	P-CCTBL,CC-DEPTR,P-NC1L
+	ICALL	CLAUSE-COPY,P-ITBL,P-OTBL
+?CND10:	ZERO?	D1 /?CCL14
+	GETB	D1,P-SPREP1
+	PUT	P-OTBL,P-PREP1,STACK
+	PUT	P-OTBL,P-NC1,1
+	RTRUE	
+?CCL14:	ZERO?	D2 /FALSE
+	GETB	D2,P-SPREP2
+	PUT	P-OTBL,P-PREP2,STACK
+	PUT	P-OTBL,P-NC2,1
+	RTRUE	
+
+
+	.FUNCT	CLAUSE-PRINT,BPTR,EPTR,THE?,?TMP1
+	ASSIGNED?	'THE? /?CND1
+	SET	'THE?,TRUE-VALUE
+?CND1:	GET	P-ITBL,BPTR >?TMP1
+	GET	P-ITBL,EPTR
+	CALL	BUFFER-PRINT,?TMP1,STACK,THE?
+	RSTACK	
+
+
+	.FUNCT	BUFFER-PRINT,BEG,END,CP,NOSP,WRD,FIRST??,PN,?TMP1
+	SET	'FIRST??,TRUE-VALUE
+?PRG1:	EQUAL?	BEG,END /TRUE
+	ZERO?	NOSP /?PRG9
+	SET	'NOSP,FALSE-VALUE
+	JUMP	?CND6
+?PRG9:	PRINTC	32
+?CND6:	GET	BEG,0 >WRD
+	EQUAL?	WRD,W?PERIOD \?CCL13
+	SET	'NOSP,TRUE-VALUE
+	JUMP	?CND3
+?CCL13:	EQUAL?	WRD,W?ME \?CCL15
+	PRINTD	ME
+	SET	'PN,TRUE-VALUE
+	JUMP	?CND3
+?CCL15:	CALL2	NAME?,WRD
+	ZERO?	STACK /?CCL17
+	ICALL2	CAPITALIZE,BEG
+	SET	'PN,TRUE-VALUE
+	JUMP	?CND3
+?CCL17:	ZERO?	FIRST?? /?CND18
+	ZERO?	PN \?CND18
+	ZERO?	CP /?CND18
+	PRINTI	"the "
+?CND18:	ZERO?	P-OFLAG \?CTR26
+	ZERO?	P-MERGED /?CCL27
+?CTR26:	PRINTB	WRD
+	JUMP	?CND25
+?CCL27:	EQUAL?	WRD,W?IT \?CCL31
+	CALL2	ACCESSIBLE?,P-IT-OBJECT
+	ZERO?	STACK /?CCL31
+	PRINTD	P-IT-OBJECT
+	JUMP	?CND25
+?CCL31:	GETB	BEG,2 >?TMP1
+	GETB	BEG,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+?CND25:	SET	'FIRST??,FALSE-VALUE
+?CND3:	ADD	BEG,P-WORDLEN >BEG
+	JUMP	?PRG1
+
+
+	.FUNCT	NAME?,WRD
+	EQUAL?	WRD,W?FORD,W?ZAPHOD,W?BEEBLEBRO /TRUE
+	EQUAL?	WRD,W?TRILLIAN,W?TRICIA,W?MCMILLAN /TRUE
+	EQUAL?	WRD,W?PROSSER,W?MARVIN,W?ARTHUR /TRUE
+	EQUAL?	WRD,W?DENT,W?PREFECT,W?PHIL /TRUE
+	EQUAL?	WRD,W?EDDIE,W?MARV,W?ED /TRUE
+	RFALSE	
+
+
+	.FUNCT	CAPITALIZE,PTR,?TMP1
+	ZERO?	P-OFLAG \?CTR2
+	ZERO?	P-MERGED /?CCL3
+?CTR2:	GET	PTR,0
+	PRINTB	STACK
+	RTRUE	
+?CCL3:	GETB	PTR,3
+	GETB	P-INBUF,STACK
+	SUB	STACK,32
+	PRINTC	STACK
+	GETB	PTR,2
+	SUB	STACK,1 >?TMP1
+	GETB	PTR,3
+	ADD	STACK,1
+	CALL	WORD-PRINT,?TMP1,STACK
+	RSTACK	
+
+
+	.FUNCT	PREP-PRINT,PREP,WRD
+	ZERO?	PREP /FALSE
+	PRINTC	32
+	EQUAL?	PREP,PR?THROUGH \?CCL8
+	PRINTI	"through"
+	RTRUE	
+?CCL8:	CALL2	PREP-FIND,PREP >WRD
+	PRINTB	WRD
+	RTRUE	
+
+
+	.FUNCT	CLAUSE-COPY,SRC,DEST,INSRT,BEG,END,?TMP1
+	GET	P-CCTBL,CC-SBPTR
+	GET	SRC,STACK >BEG
+	GET	P-CCTBL,CC-SEPTR
+	GET	SRC,STACK >END
+	GET	P-CCTBL,CC-DBPTR >?TMP1
+	GET	P-OCLAUSE,P-MATCHLEN
+	MUL	STACK,P-LEXELEN
+	ADD	STACK,2
+	ADD	P-OCLAUSE,STACK
+	PUT	DEST,?TMP1,STACK
+?PRG1:	EQUAL?	BEG,END \?CCL5
+	GET	P-CCTBL,CC-DEPTR >?TMP1
+	GET	P-OCLAUSE,P-MATCHLEN
+	MUL	STACK,P-LEXELEN
+	ADD	STACK,2
+	ADD	P-OCLAUSE,STACK
+	PUT	DEST,?TMP1,STACK
+	RTRUE	
+?CCL5:	ZERO?	INSRT /?CND6
+	GET	BEG,0
+	EQUAL?	P-ANAM,STACK \?CND6
+	ICALL2	CLAUSE-ADD,INSRT
+?CND6:	GET	BEG,0
+	ICALL2	CLAUSE-ADD,STACK
+	ADD	BEG,P-WORDLEN >BEG
+	JUMP	?PRG1
+
+
+	.FUNCT	CLAUSE-ADD,WRD,PTR
+	GET	P-OCLAUSE,P-MATCHLEN
+	ADD	STACK,2 >PTR
+	SUB	PTR,1
+	PUT	P-OCLAUSE,STACK,WRD
+	PUT	P-OCLAUSE,PTR,0
+	PUT	P-OCLAUSE,P-MATCHLEN,PTR
+	RTRUE	
+
+
+	.FUNCT	PREP-FIND,PREP,CNT,SIZE
+	GET	PREPOSITIONS,0
+	MUL	STACK,2 >SIZE
+?PRG1:	IGRTR?	'CNT,SIZE /FALSE
+	GET	PREPOSITIONS,CNT
+	EQUAL?	STACK,PREP \?PRG1
+	SUB	CNT,1
+	GET	PREPOSITIONS,STACK
+	RSTACK	
+
+
+	.FUNCT	SYNTAX-FOUND,SYN
+	SET	'P-SYNTAX,SYN
+	GETB	SYN,P-SACTION >PRSA
+	RETURN	PRSA
+
+
+	.FUNCT	GWIM,GBIT,LBIT,PREP,OBJ
+	EQUAL?	GBIT,RLANDBIT \?CND1
+	RETURN	ROOMS
+?CND1:	SET	'P-GWIMBIT,GBIT
+	SET	'P-SLOCBITS,LBIT
+	PUT	P-MERGE,P-MATCHLEN,0
+	CALL	GET-OBJECT,P-MERGE,FALSE-VALUE
+	ZERO?	STACK /?CCL5
+	SET	'P-GWIMBIT,0
+	GET	P-MERGE,P-MATCHLEN
+	EQUAL?	STACK,1 \FALSE
+	GET	P-MERGE,1 >OBJ
+	PRINTC	40
+	ZERO?	PREP /?PRG26
+	ZERO?	P-END-ON-PREP \?PRG26
+	CALL2	PREP-FIND,PREP >PREP
+	PRINTB	PREP
+	EQUAL?	PREP,W?OUT \?CND15
+	PRINTI	" of"
+?CND15:	FSET?	OBJ,NARTICLEBIT /?PRG24
+	PRINTI	" the "
+	JUMP	?PRG26
+?PRG24:	PRINTC	32
+?PRG26:	PRINTD	OBJ
+	PRINTC	41
+	CRLF	
+	RETURN	OBJ
+?CCL5:	SET	'P-GWIMBIT,0
+	RFALSE	
+
+
+	.FUNCT	SNARF-OBJECTS,PTR
+	GET	P-ITBL,P-NC1 >PTR
+	ZERO?	PTR /?CND1
+	GETB	P-SYNTAX,P-SLOC1 >P-SLOCBITS
+	GET	P-ITBL,P-NC1L
+	CALL	SNARFEM,PTR,STACK,P-PRSO
+	ZERO?	STACK /FALSE
+	GET	P-BUTS,P-MATCHLEN
+	ZERO?	STACK /?CND1
+	CALL2	BUT-MERGE,P-PRSO >P-PRSO
+?CND1:	GET	P-ITBL,P-NC2 >PTR
+	ZERO?	PTR /TRUE
+	GETB	P-SYNTAX,P-SLOC2 >P-SLOCBITS
+	GET	P-ITBL,P-NC2L
+	CALL	SNARFEM,PTR,STACK,P-PRSI
+	ZERO?	STACK /FALSE
+	GET	P-BUTS,P-MATCHLEN
+	ZERO?	STACK /TRUE
+	GET	P-PRSI,P-MATCHLEN
+	EQUAL?	STACK,1 \?CCL15
+	CALL2	BUT-MERGE,P-PRSO >P-PRSO
+	RTRUE	
+?CCL15:	CALL2	BUT-MERGE,P-PRSI >P-PRSI
+	RTRUE	
+
+
+	.FUNCT	BUT-MERGE,TBL,LEN,BUTLEN,CNT,MATCHES,OBJ,NTBL,?TMP1,?TMP2
+	SET	'CNT,1
+	GET	TBL,P-MATCHLEN >LEN
+	PUT	P-MERGE,P-MATCHLEN,0
+?PRG1:	DLESS?	'LEN,0 /?REP2
+	GET	TBL,CNT >OBJ
+	ADD	P-BUTS,2 >?TMP1
+	GET	P-BUTS,0
+	INTBL?	OBJ,?TMP1,STACK /?CND3
+	ADD	MATCHES,1
+	PUT	P-MERGE,STACK,OBJ
+	INC	'MATCHES
+?CND3:	INC	'CNT
+	JUMP	?PRG1
+?REP2:	PUT	P-MERGE,P-MATCHLEN,MATCHES
+	SET	'NTBL,P-MERGE
+	SET	'P-MERGE,TBL
+	RETURN	NTBL
+
+
+	.FUNCT	SNARFEM,PTR,EPTR,TBL,BUT,LEN,WV,WRD,NW,WAS-ALL
+	SET	'P-AND,FALSE-VALUE
+	EQUAL?	P-GETFLAGS,P-ALL \?CND1
+	SET	'WAS-ALL,TRUE-VALUE
+?CND1:	SET	'P-GETFLAGS,0
+	SET	'P-CSPTR,PTR
+	SET	'P-CEPTR,EPTR
+	PUT	P-BUTS,P-MATCHLEN,0
+	PUT	TBL,P-MATCHLEN,0
+	GET	PTR,0 >WRD
+?PRG3:	EQUAL?	PTR,EPTR \?CCL7
+	ZERO?	BUT /?PRD10
+	PUSH	BUT
+	JUMP	?PEN8
+?PRD10:	PUSH	TBL
+?PEN8:	CALL2	GET-OBJECT,STACK >WV
+	ZERO?	WAS-ALL \?CCL12
+	RETURN	WV
+?CCL12:	SET	'P-GETFLAGS,P-ALL
+	RETURN	WV
+?CCL7:	GET	PTR,P-LEXELEN >NW
+	EQUAL?	WRD,W?ALL,W?BOTH \?CCL15
+	SET	'P-GETFLAGS,P-ALL
+	EQUAL?	NW,W?OF \?CND5
+	ADD	PTR,P-WORDLEN >PTR
+	JUMP	?CND5
+?CCL15:	EQUAL?	WRD,W?BUT,W?EXCEPT \?CCL19
+	ZERO?	BUT /?PRD24
+	PUSH	BUT
+	JUMP	?PEN22
+?PRD24:	PUSH	TBL
+?PEN22:	CALL2	GET-OBJECT,STACK
+	ZERO?	STACK /FALSE
+	SET	'BUT,P-BUTS
+	PUT	BUT,P-MATCHLEN,0
+	JUMP	?CND5
+?CCL19:	EQUAL?	WRD,W?A,W?ONE \?CCL26
+	ZERO?	P-ADJ \?CCL29
+	SET	'P-GETFLAGS,P-ONE
+	EQUAL?	NW,W?OF \?CND5
+	ADD	PTR,P-WORDLEN >PTR
+	JUMP	?CND5
+?CCL29:	SET	'P-NAM,P-ONEOBJ
+	ZERO?	BUT /?PRD36
+	PUSH	BUT
+	JUMP	?PEN34
+?PRD36:	PUSH	TBL
+?PEN34:	CALL2	GET-OBJECT,STACK
+	ZERO?	STACK /FALSE
+	ZERO?	NW \?CND5
+	RTRUE	
+?CCL26:	EQUAL?	WRD,W?AND,W?COMMA \?CCL40
+	EQUAL?	NW,W?AND,W?COMMA /?CCL40
+	SET	'P-AND,TRUE-VALUE
+	ZERO?	BUT /?PRD47
+	PUSH	BUT
+	JUMP	?PEN45
+?PRD47:	PUSH	TBL
+?PEN45:	CALL2	GET-OBJECT,STACK
+	ZERO?	STACK \?CND5
+	RFALSE	
+?CCL40:	CALL	WT?,WRD,4
+	ZERO?	STACK \?CND5
+	EQUAL?	WRD,W?AND,W?COMMA /?CND5
+	EQUAL?	WRD,W?OF \?CCL51
+	ZERO?	P-GETFLAGS \?CND5
+	SET	'P-GETFLAGS,P-INHIBIT
+	JUMP	?CND5
+?CCL51:	CALL	WT?,WRD,32
+	ZERO?	STACK /?CCL55
+	CALL2	ADJ-CHECK,WRD
+	ZERO?	STACK /?CCL55
+	EQUAL?	WRD,W?TEA \?CTR54
+	EQUAL?	P-NAM,W?CUP /?CCL55
+?CTR54:	SET	'P-ADJ,WRD
+	JUMP	?CND5
+?CCL55:	CALL	WT?,WRD,128
+	ZERO?	STACK /?CND5
+	SET	'P-NAM,WRD
+	SET	'P-ONEOBJ,WRD
+?CND5:	EQUAL?	PTR,EPTR /?PRG3
+	ADD	PTR,P-WORDLEN >PTR
+	SET	'WRD,NW
+	JUMP	?PRG3
+
+
+	.FUNCT	ADJ-CHECK,WRD
+	ZERO?	P-ADJ /TRUE
+	EQUAL?	WRD,W?INNER,W?OUTER /TRUE
+	RFALSE	
+
+
+	.FUNCT	GET-OBJECT,TBL,VRB,GEN,BITS,LEN,XBITS,TLEN,GCHECK,OLEN,OBJ
+	ASSIGNED?	'VRB /?CND1
+	SET	'VRB,TRUE-VALUE
+?CND1:	SET	'XBITS,P-SLOCBITS
+	GET	TBL,P-MATCHLEN >TLEN
+	BTST	P-GETFLAGS,P-INHIBIT /TRUE
+	ZERO?	P-NAM \?CND5
+	ZERO?	P-ADJ /?CND5
+	CALL	WT?,P-ADJ,128
+	ZERO?	STACK /?CND5
+	SET	'P-NAM,P-ADJ
+	SET	'P-ADJ,FALSE-VALUE
+?CND5:	ZERO?	P-NAM \?CND10
+	ZERO?	P-ADJ \?CND10
+	EQUAL?	P-GETFLAGS,P-ALL /?CND10
+	ZERO?	P-GWIMBIT \?CND10
+	ZERO?	VRB /FALSE
+	PRINT	NOUN-MISSING
+	CRLF	
+	RFALSE	
+?CND10:	EQUAL?	P-GETFLAGS,P-ALL \?CCL21
+	ZERO?	P-SLOCBITS \?CND20
+?CCL21:	SET	'P-SLOCBITS,-1
+?CND20:	SET	'P-TABLE,TBL
+?PRG24:	ZERO?	GCHECK /?CCL28
+	ICALL2	GLOBAL-CHECK,TBL
+	JUMP	?CND26
+?CCL28:	ZERO?	LIT /?CND29
+	FCLEAR	PLAYER,TRANSBIT
+	ICALL	DO-SL,HERE,SOG,SIR
+	FSET	PLAYER,TRANSBIT
+?CND29:	ICALL	DO-SL,PLAYER,SH,SC
+?CND26:	GET	TBL,P-MATCHLEN
+	SUB	STACK,TLEN >LEN
+	BTST	P-GETFLAGS,P-ALL /?CND31
+	BTST	P-GETFLAGS,P-ONE \?CCL34
+	ZERO?	LEN /?CCL34
+	EQUAL?	LEN,1 /?CND37
+	RANDOM	LEN
+	GET	TBL,STACK
+	PUT	TBL,1,STACK
+	PRINTI	"(How about the "
+	GET	TBL,1
+	PRINTD	STACK
+	PRINTI	"?)"
+	CRLF	
+?CND37:	PUT	TBL,P-MATCHLEN,1
+?CND31:	SET	'P-SLOCBITS,XBITS
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RTRUE	
+?CCL34:	GRTR?	LEN,1 /?CTR43
+	ZERO?	LEN \?CCL44
+	EQUAL?	P-SLOCBITS,-1 /?CCL44
+?CTR43:	EQUAL?	P-SLOCBITS,-1 \?CCL51
+	SET	'P-SLOCBITS,XBITS
+	SET	'OLEN,LEN
+	GET	TBL,P-MATCHLEN
+	SUB	STACK,LEN
+	PUT	TBL,P-MATCHLEN,STACK
+	JUMP	?PRG24
+?CCL51:	ZERO?	LEN \?CND52
+	SET	'LEN,OLEN
+?CND52:	GRTR?	LEN,1 \?CCL56
+	EQUAL?	PRSA,V?WHAT,V?ASK-ABOUT \?CCL56
+	EQUAL?	P-NAM,W?FLUFF,W?DRIVE \?PRD61
+	ZERO?	P-ADJ /?CTR55
+?PRD61:	EQUAL?	P-NAM,W?TOOLS,W?TOOL \?PRD64
+	EQUAL?	P-ADJ,W?PROPER /?CTR55
+?PRD64:	EQUAL?	P-NAM,W?DRIVE \?CCL56
+	EQUAL?	P-ADJ,W?IMPROBABI \?CCL56
+?CTR55:	GET	TBL,LEN
+	GETP	STACK,P?GENERIC >GEN
+	ADD	TLEN,1 >LEN
+	PUT	TBL,P-MATCHLEN,LEN
+	PUT	TBL,LEN,GEN
+	SET	'P-XNAM,P-NAM
+	SET	'P-XADJ,P-ADJ
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RTRUE	
+?CCL56:	ZERO?	VRB /?CCL70
+	EQUAL?	WINNER,PROTAGONIST /?CCL70
+	ICALL1	CANT-ORPHAN
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RFALSE	
+?CCL70:	ZERO?	VRB /?CCL74
+	ZERO?	P-NAM /?CCL74
+	ICALL	WHICH-PRINT,TLEN,LEN,TBL
+	EQUAL?	TBL,P-PRSO \?CCL79
+	SET	'P-ACLAUSE,P-NC1
+	JUMP	?CND77
+?CCL79:	SET	'P-ACLAUSE,P-NC2
+?CND77:	SET	'P-AADJ,P-ADJ
+	SET	'P-ANAM,P-NAM
+	ICALL	ORPHAN,FALSE-VALUE,FALSE-VALUE
+	SET	'P-OFLAG,TRUE-VALUE
+	JUMP	?CND54
+?CCL74:	ZERO?	VRB /?CND54
+	PRINT	NOUN-MISSING
+	CRLF	
+?CND54:	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RFALSE	
+?CCL44:	ZERO?	LEN \?CCL84
+	ZERO?	GCHECK /?CCL84
+	ZERO?	VRB /?CND87
+	SET	'P-SLOCBITS,XBITS
+	ZERO?	LIT \?CTR90
+	EQUAL?	PRSA,V?TELL /?CTR90
+	EQUAL?	PRSA,V?WHERE,V?WHAT,V?WHO \?PRG95
+?CTR90:	ICALL	OBJ-FOUND,NOT-HERE-OBJECT,TBL
+	SET	'P-XNAM,P-NAM
+	SET	'P-XADJ,P-ADJ
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RTRUE	
+?PRG95:	PRINT	TOO-DARK
+	CRLF	
+?CND87:	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RFALSE	
+?CCL84:	ZERO?	LEN \?CND31
+	SET	'GCHECK,TRUE-VALUE
+	JUMP	?PRG24
+
+
+	.FUNCT	MOBY-FIND,TBL,FOO,LEN
+	SET	'P-MOBY-FLAG,TRUE-VALUE
+	SET	'P-SLOCBITS,-1
+	SET	'P-TABLE,TBL
+	SET	'P-NAM,P-XNAM
+	SET	'P-ADJ,P-XADJ
+	PUT	TBL,P-MATCHLEN,0
+	FIRST?	ROOMS >FOO /?PRG2
+?PRG2:	ZERO?	FOO /?REP3
+	ICALL	SEARCH-LIST,FOO,TBL,P-SRCALL
+	NEXT?	FOO >FOO /?PRG2
+	JUMP	?PRG2
+?REP3:	ICALL	DO-SL,LOCAL-GLOBALS,1,1
+	ICALL	SEARCH-LIST,ROOMS,TBL,P-SRCTOP
+	GET	TBL,P-MATCHLEN >LEN
+	EQUAL?	LEN,1 \?CND8
+	GET	TBL,1 >P-MOBY-FOUND
+?CND8:	SET	'P-MOBY-FLAG,FALSE-VALUE
+	SET	'P-NAM,FALSE-VALUE
+	SET	'P-ADJ,FALSE-VALUE
+	RETURN	LEN
+
+
+	.FUNCT	WHICH-PRINT,TLEN,LEN,TBL,OBJ,RLEN
+	SET	'RLEN,LEN
+	PRINTI	"Which"
+	ZERO?	P-OFLAG \?PRG9
+	ZERO?	P-MERGED \?PRG9
+	ZERO?	P-AND /?CCL5
+?PRG9:	PRINTC	32
+	PRINTB	P-NAM
+	JUMP	?PRG13
+?CCL5:	EQUAL?	TBL,P-PRSO \?CCL12
+	ICALL	CLAUSE-PRINT,P-NC1,P-NC1L,FALSE-VALUE
+	JUMP	?PRG13
+?CCL12:	ICALL	CLAUSE-PRINT,P-NC2,P-NC2L,FALSE-VALUE
+?PRG13:	PRINTI	" do you mean, "
+?PRG15:	INC	'TLEN
+	GET	TBL,TLEN >OBJ
+	FSET?	OBJ,NARTICLEBIT /?PRG21
+	PRINTI	"the "
+?PRG21:	PRINTD	OBJ
+	EQUAL?	LEN,2 \?CCL25
+	EQUAL?	RLEN,2 /?PRG30
+	PRINTC	44
+?PRG30:	PRINTI	" or "
+	JUMP	?CND23
+?CCL25:	GRTR?	LEN,2 \?CND23
+	PRINTI	", "
+?CND23:	DLESS?	'LEN,1 \?PRG15
+	PRINTR	"?"
+
+
+	.FUNCT	GLOBAL-CHECK,TBL,LEN,RMG,RMGL,CNT,OBJ,OBITS,FOO
+	GET	TBL,P-MATCHLEN >LEN
+	SET	'OBITS,P-SLOCBITS
+	GETPT	HERE,P?GLOBAL >RMG
+	ZERO?	RMG /?CND1
+	PTSIZE	RMG
+	DIV	STACK,2 >RMGL
+?PRG3:	GET	RMG,CNT >OBJ
+	CALL	THIS-IT?,OBJ,TBL
+	ZERO?	STACK /?CND5
+	ICALL	OBJ-FOUND,OBJ,TBL
+?CND5:	IGRTR?	'CNT,RMGL \?PRG3
+?CND1:	GET	TBL,P-MATCHLEN
+	EQUAL?	STACK,LEN \FALSE
+	SET	'P-SLOCBITS,-1
+	SET	'P-TABLE,TBL
+	ICALL	DO-SL,GLOBAL-OBJECTS,1,1
+	SET	'P-SLOCBITS,OBITS
+	RETURN	P-SLOCBITS
+
+
+	.FUNCT	DO-SL,OBJ,BIT1,BIT2,BTS
+	ADD	BIT1,BIT2
+	BTST	P-SLOCBITS,STACK \?CCL3
+	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCALL
+	RSTACK	
+?CCL3:	BTST	P-SLOCBITS,BIT1 \?CCL6
+	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCTOP
+	RSTACK	
+?CCL6:	BTST	P-SLOCBITS,BIT2 \TRUE
+	CALL	SEARCH-LIST,OBJ,P-TABLE,P-SRCBOT
+	RSTACK	
+
+
+	.FUNCT	SEARCH-LIST,OBJ,TBL,LVL,FLS,NOBJ
+	FIRST?	OBJ >OBJ \FALSE
+?PRG4:	EQUAL?	LVL,P-SRCBOT /?CND6
+	GETPT	OBJ,P?SYNONYM
+	ZERO?	STACK /?CND6
+	CALL	THIS-IT?,OBJ,TBL
+	ZERO?	STACK /?CND6
+	ICALL	OBJ-FOUND,OBJ,TBL
+?CND6:	ZERO?	LVL \?PRD14
+	FSET?	OBJ,SEARCHBIT /?PRD14
+	FSET?	OBJ,SURFACEBIT \?CND11
+?PRD14:	FIRST?	OBJ >NOBJ \?CND11
+	FSET?	OBJ,OPENBIT /?CCL19
+	FSET?	OBJ,TRANSBIT /?CCL19
+	ZERO?	P-MOBY-FLAG /?CND11
+?CCL19:	FSET?	OBJ,SURFACEBIT \?CCL25
+	PUSH	P-SRCALL
+	JUMP	?CND23
+?CCL25:	FSET?	OBJ,SEARCHBIT \?CCL27
+	PUSH	P-SRCALL
+	JUMP	?CND23
+?CCL27:	PUSH	P-SRCTOP
+?CND23:	CALL	SEARCH-LIST,OBJ,TBL,STACK >FLS
+?CND11:	NEXT?	OBJ >OBJ /?PRG4
+	RTRUE	
+
+
+	.FUNCT	OBJ-FOUND,OBJ,TBL,PTR
+	GET	TBL,P-MATCHLEN >PTR
+	ADD	PTR,1
+	PUT	TBL,STACK,OBJ
+	ADD	PTR,1
+	PUT	TBL,P-MATCHLEN,STACK
+	RTRUE	
+
+
+	.FUNCT	TAKE-CHECK
+	GETB	P-SYNTAX,P-SLOC1
+	CALL	ITAKE-CHECK,P-PRSO,STACK
+	ZERO?	STACK /FALSE
+	GETB	P-SYNTAX,P-SLOC2
+	CALL	ITAKE-CHECK,P-PRSI,STACK
+	RSTACK	
+
+
+	.FUNCT	ITAKE-CHECK,TBL,IBITS,PTR,OBJ,TAKEN
+	GET	TBL,P-MATCHLEN >PTR
+	ZERO?	PTR /TRUE
+	BTST	IBITS,SHAVE /?PRG8
+	BTST	IBITS,STAKE \TRUE
+?PRG8:	DLESS?	'PTR,0 /TRUE
+	ADD	PTR,1
+	GET	TBL,STACK >OBJ
+	EQUAL?	OBJ,IT \?CND13
+	CALL2	ACCESSIBLE?,P-IT-OBJECT
+	ZERO?	STACK \?CCL17
+	PRINT	REFERRING
+	CRLF	
+	RFALSE	
+?CCL17:	SET	'OBJ,P-IT-OBJECT
+?CND13:	CALL2	HELD?,OBJ
+	ZERO?	STACK \?PRG8
+	EQUAL?	OBJ,HANDS,SLEEVES,SPEECH /?PRG8
+	EQUAL?	OBJ,NO-TEA \?PRD26
+	ZERO?	HOLDING-NO-TEA \?PRG8
+?PRD26:	EQUAL?	OBJ,GUARANTEE \?CCL22
+	EQUAL?	PRSA,V?SHOW /?PRG8
+?CCL22:	SET	'PRSO,OBJ
+	FSET?	OBJ,TRYTAKEBIT \?CCL33
+	SET	'TAKEN,TRUE-VALUE
+	JUMP	?CND31
+?CCL33:	EQUAL?	WINNER,PROTAGONIST /?CCL35
+	SET	'TAKEN,FALSE-VALUE
+	JUMP	?CND31
+?CCL35:	BTST	IBITS,STAKE \?CCL37
+	CALL2	ITAKE,FALSE-VALUE
+	EQUAL?	STACK,TRUE-VALUE \?CCL37
+	SET	'TAKEN,FALSE-VALUE
+	JUMP	?CND31
+?CCL37:	SET	'TAKEN,TRUE-VALUE
+?CND31:	ZERO?	TAKEN /?CCL42
+	BTST	IBITS,SHAVE \?CCL42
+	GET	TBL,P-MATCHLEN
+	LESS?	1,STACK \?CCL47
+	PRINT	NOT-HOLDING
+	PRINTI	" all those things!"
+	CRLF	
+	RFALSE	
+?CCL47:	EQUAL?	OBJ,NOT-HERE-OBJECT \?CND45
+	PRINTI	"You can't see that here!"
+	CRLF	
+	RFALSE	
+?CND45:	EQUAL?	WINNER,PROTAGONIST \?PRG58
+	PRINT	NOT-HOLDING
+	JUMP	?CND53
+?PRG58:	PRINTI	"It doesn't look like"
+	ICALL	ARTICLE,WINNER,TRUE-VALUE
+	PRINTI	" is holding"
+?CND53:	ICALL	ARTICLE,OBJ,TRUE-VALUE
+	SET	'P-IT-OBJECT,OBJ
+	PRINTC	46
+	CRLF	
+	RFALSE	
+?CCL42:	ZERO?	TAKEN \?PRG8
+	EQUAL?	WINNER,PROTAGONIST \?PRG8
+	PRINTI	"(Taking"
+	ICALL	ARTICLE,OBJ,TRUE-VALUE
+	PRINTI	" first)"
+	CRLF	
+	JUMP	?PRG8
+
+
+	.FUNCT	MANY-CHECK,LOSS,TMP,?TMP1
+	GET	P-PRSO,P-MATCHLEN
+	GRTR?	STACK,1 \?CCL3
+	GETB	P-SYNTAX,P-SLOC1
+	BTST	STACK,SMANY /?CCL3
+	SET	'LOSS,1
+	JUMP	?CND1
+?CCL3:	GET	P-PRSI,P-MATCHLEN
+	GRTR?	STACK,1 \?CND1
+	GETB	P-SYNTAX,P-SLOC2
+	BTST	STACK,SMANY /?CND1
+	SET	'LOSS,2
+?CND1:	ZERO?	LOSS /TRUE
+	PRINTI	"You can't use multiple "
+	EQUAL?	LOSS,2 \?PRG18
+	PRINTI	"in"
+?PRG18:	PRINTI	"direct objects with """
+	GET	P-ITBL,P-VERBN >TMP
+	ZERO?	TMP \?CCL22
+	PRINTI	"tell"
+	JUMP	?PRG29
+?CCL22:	ZERO?	P-OFLAG \?CTR25
+	ZERO?	P-MERGED /?CCL26
+?CTR25:	GET	TMP,0
+	PRINTB	STACK
+	JUMP	?PRG29
+?CCL26:	GETB	TMP,2 >?TMP1
+	GETB	TMP,3
+	ICALL	WORD-PRINT,?TMP1,STACK
+?PRG29:	PRINTI	"""."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	LIT?,RM,RMBIT,OHERE,LIT
+	ASSIGNED?	'RMBIT /?CND1
+	SET	'RMBIT,TRUE-VALUE
+?CND1:	SET	'P-GWIMBIT,ONBIT
+	SET	'OHERE,HERE
+	SET	'HERE,RM
+	ZERO?	RMBIT /?CCL5
+	FSET?	RM,ONBIT \?CCL5
+	SET	'LIT,TRUE-VALUE
+	JUMP	?CND3
+?CCL5:	PUT	P-MERGE,P-MATCHLEN,0
+	SET	'P-TABLE,P-MERGE
+	SET	'P-SLOCBITS,-1
+	EQUAL?	OHERE,RM \?CND8
+	ICALL	DO-SL,WINNER,1,1
+	EQUAL?	WINNER,PLAYER /?CND8
+	IN?	PLAYER,RM \?CND8
+	ICALL	DO-SL,PLAYER,1,1
+?CND8:	ICALL	DO-SL,RM,1,1
+	GET	P-TABLE,P-MATCHLEN
+	GRTR?	STACK,0 \?CND3
+	SET	'LIT,TRUE-VALUE
+?CND3:	SET	'HERE,OHERE
+	SET	'P-GWIMBIT,0
+	RETURN	LIT
+
+
+	.FUNCT	PRSO-PRINT,PTR
+	ZERO?	P-MERGED \?PRG6
+	GET	P-ITBL,P-NC1 >PTR
+	GET	PTR,0
+	EQUAL?	STACK,W?IT \?CCL3
+?PRG6:	PRINTC	32
+	PRINTD	PRSO
+	RTRUE	
+?CCL3:	GET	P-ITBL,P-NC1L
+	CALL	BUFFER-PRINT,PTR,STACK,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	PRSI-PRINT,PTR
+	ZERO?	P-MERGED \?PRG6
+	GET	P-ITBL,P-NC2 >PTR
+	GET	PTR,0
+	EQUAL?	STACK,W?IT \?CCL3
+?PRG6:	PRINTC	32
+	PRINTD	PRSO
+	RTRUE	
+?CCL3:	GET	P-ITBL,P-NC2L
+	CALL	BUFFER-PRINT,PTR,STACK,FALSE-VALUE
+	RSTACK	
+
+
+	.FUNCT	THIS-IT?,OBJ,TBL,SYNS,?TMP1
+	FSET?	OBJ,INVISIBLE /FALSE
+	ZERO?	P-NAM /?CCL5
+	GETPT	OBJ,P?SYNONYM >SYNS
+	PTSIZE	SYNS
+	DIV	STACK,2
+	INTBL?	P-NAM,SYNS,STACK \FALSE
+?CCL5:	ZERO?	P-ADJ /?CCL9
+	GETPT	OBJ,P?ADJECTIVE >SYNS
+	ZERO?	SYNS /FALSE
+	PTSIZE	SYNS
+	DIV	STACK,2
+	INTBL?	P-ADJ,SYNS,STACK \FALSE
+?CCL9:	ZERO?	P-GWIMBIT /TRUE
+	FSET?	OBJ,P-GWIMBIT /TRUE
+	RFALSE	
+
+	.ENDI
diff --git a/parser.zil b/parser.zil
new file mode 100644
index 0000000..62dd5c6
--- /dev/null
+++ b/parser.zil
@@ -0,0 +1,1589 @@
+"PARSER for
+		  THE HITCHHIKER'S GUIDE TO THE GALAXY
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved."
+
+;"Parser global variable convention:  All parser globals will begin
+with 'P-'. Local variables are not restricted in any way." 
+
+<SETG SIBREAKS ".,\"">
+
+<GLOBAL P-AND <>>
+
+<GLOBAL IN-FRONT-FLAG <>> 
+
+<GLOBAL PRSA <>>
+
+<GLOBAL PRSI <>>
+
+<GLOBAL PRSO <>>
+
+<GLOBAL P-TABLE 0>  
+
+<GLOBAL P-ONEOBJ 0> 
+
+<GLOBAL P-SYNTAX 0> 
+
+<GLOBAL P-CCTBL <TABLE 0 0 0 0>>  
+
+;"pointers used by CLAUSE-COPY (source/destination beginning/end pointers)"
+<CONSTANT CC-SBPTR 0>
+<CONSTANT CC-SEPTR 1>
+<CONSTANT CC-DBPTR 2>
+<CONSTANT CC-DEPTR 3>
+<CONSTANT CC-OCLAUSE 2> ;"GTB"
+
+<GLOBAL P-LEN 0>
+
+<GLOBAL WINNER 0>   
+
+<GLOBAL P-LEXV <ITABLE 60 (LEXV) 0 <BYTE 0> <BYTE 0>>>
+<GLOBAL AGAIN-LEXV <ITABLE 60 (LEXV) 0 <BYTE 0> <BYTE 0>>>
+<GLOBAL RESERVE-LEXV <ITABLE 60 (LEXV) 0 <BYTE 0> <BYTE 0>>>
+
+<GLOBAL RESERVE-PTR <>>
+<CONSTANT P-INBUF-LENGTH 120> ;"number of bytes in input buffer"
+<GLOBAL P-INBUF <ITABLE 120 (BYTE LENGTH) 0>> ;"INBUF - Input buffer for READ"
+<GLOBAL RESERVE-INBUF <ITABLE 120 (BYTE LENGTH) 0>> ; "FIX #36"
+<GLOBAL OOPS-INBUF <ITABLE 120 (BYTE LENGTH) 0>>
+
+<GLOBAL OOPS-TABLE <TABLE <> <> <> <>>>
+<CONSTANT O-PTR 0>
+<CONSTANT O-START 1>
+<CONSTANT O-LENGTH 2>
+<CONSTANT O-END 3>
+
+<GLOBAL P-CONT <>> ;"Parse-cont variable"  
+
+<GLOBAL P-IT-OBJECT <>>
+
+;<GLOBAL LAST-PSEUDO-LOC <>>
+
+<GLOBAL P-OFLAG <>> ;"Orphan flag" 
+
+<GLOBAL P-MERGED <>>
+
+<GLOBAL P-ACLAUSE <>>    
+
+<GLOBAL P-ANAM <>>  
+
+<GLOBAL P-AADJ <>>
+
+;"Parser variables and temporaries"
+
+<CONSTANT P-LEXWORDS 1> ;"Byte offset to # of entries in LEXV"
+<CONSTANT P-LEXSTART 1> ;"Word offset to start of LEXV entries"
+<CONSTANT P-LEXELEN 2> ;"Number of words per LEXV entry"
+<CONSTANT P-WORDLEN 4>
+;<CONSTANT P-PSOFF 4> ;"Offset to parts of speech byte"
+;<CONSTANT P-P1OFF 5> ;"Offset to first part of speech"
+
+<CONSTANT P-PSOFF %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 6) (T 4)>>
+			"Offset to parts of speech byte"
+<CONSTANT P-P1OFF %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 7) (T 5)>>
+			"Offset to first part of speech"
+
+<CONSTANT P-P1BITS 3> ;"First part of speech bit mask in PSOFF byte"
+<CONSTANT P-ITBLLEN 9>
+
+<GLOBAL P-ITBL
+	<TABLE 0 0 0 0 0 0 0 0 0 0>>  
+
+<GLOBAL P-OTBL
+	<TABLE 0 0 0 0 0 0 0 0 0 0>>  
+
+<GLOBAL P-VTBL
+	<TABLE 0 0 0 0>>
+
+<GLOBAL P-OVTBL
+	<TABLE 0 0 0 0>>
+
+<GLOBAL P-NCN 0>    
+
+<CONSTANT P-VERB 0> 
+<CONSTANT P-VERBN 1>
+<CONSTANT P-PREP1 2>
+<CONSTANT P-PREP1N 3>    
+<CONSTANT P-PREP2 4>    
+<CONSTANT P-NC1 6>  
+<CONSTANT P-NC1L 7> 
+<CONSTANT P-NC2 8>  
+<CONSTANT P-NC2L 9> 
+
+<GLOBAL QUOTE-FLAG <>>
+
+<GLOBAL P-INPUT-WORDS <>>
+
+<GLOBAL P-END-ON-PREP <>>
+
+<GLOBAL P-PRSA-WORD <>>
+
+" Grovel down the input finding the verb, prepositions, and noun clauses.
+   If the input is <direction> or <walk> <direction>, fall out immediately
+   setting PRSA to ,V?WALK and PRSO to <direction>.  Otherwise, perform
+   all required orphaning, syntax checking, and noun clause lookup."   
+
+<ROUTINE PARSER ("AUX" (PTR ,P-LEXSTART) WRD (VAL 0) (VERB <>) (DONT <>)
+		 OMERGED OWINNER LEN (DIR <>) (NW 0) (LW 0) (CNT -1)) 
+	<REPEAT ()
+		<COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN> <RETURN>)
+		      (T
+		       <COND (<NOT ,P-OFLAG>
+			      <PUT ,P-OTBL .CNT <GET ,P-ITBL .CNT>>)>
+		       <PUT ,P-ITBL .CNT 0>)>>
+	<SET OMERGED ,P-MERGED>
+	<SET OWINNER ,WINNER>
+	<SETG IN-FRONT-FLAG <>>
+	<SETG P-MERGED <>>
+	<SETG P-END-ON-PREP <>>
+	<PUT ,P-PRSO ,P-MATCHLEN 0>
+	<PUT ,P-PRSI ,P-MATCHLEN 0>
+	<PUT ,P-BUTS ,P-MATCHLEN 0>
+	<COND (<AND <NOT ,QUOTE-FLAG> 
+		    <N==? ,WINNER ,PLAYER>>
+	       <SETG WINNER ,PLAYER>
+	       <COND (<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
+		      <SETG HERE <LOC ,WINNER>>)>
+	       <SETG LIT <LIT? ,HERE>>)>
+	<COND (,RESERVE-PTR
+	       <SET PTR ,RESERVE-PTR>
+	       <STUFF ,P-LEXV ,RESERVE-LEXV>
+	       <INBUF-STUFF ,P-INBUF ,RESERVE-INBUF> ;"rfix no. 36"
+	       <COND (<AND <NOT <EQUAL? ,VERBOSITY 0>>
+			   <EQUAL? ,PROTAGONIST ,WINNER>>
+		      <CRLF>)>
+	       <SETG RESERVE-PTR <>>
+	       ;<SETG P-CONT <>> ;"retrofix 59")
+	      (,P-CONT
+	       <SET PTR ,P-CONT>
+	       <COND (<AND <EQUAL? ,VERBOSITY 1 2>
+			   <==? ,PLAYER ,WINNER>>
+		      <CRLF>)>
+	       <SETG P-CONT <>>)
+	      (T
+	       <SETG WINNER ,PLAYER>
+	       <SETG QUOTE-FLAG <>>
+	       <COND (<NOT <FSET? <LOC ,WINNER> ,VEHBIT>>
+		      <SETG HERE <LOC ,WINNER>>)>
+	       <SETG LIT <LIT? ,HERE>>
+	       <COND (<NOT <EQUAL? ,VERBOSITY 0>>
+		      <CRLF>)>
+	      %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
+		       '<PROG ()
+			      <UPDATE-STATUS-LINE>
+			      <TELL ">">>)
+		      (T
+		       '<TELL ">">)>
+	       <COND (<ZERO? <GET ,OOPS-TABLE ,O-PTR>>
+		      <PUT ,OOPS-TABLE ,O-END <>>)> ;"retrofix 59"
+	       <PUTB ,P-INBUF 1 0>
+	       <READ ,P-INBUF ,P-LEXV>
+	       ;<SET OLEN <GETB ,P-LEXV ,P-LEXWORDS>>
+	       <SETG P-INPUT-WORDS <GETB ,P-LEXV ,P-LEXWORDS>>)>
+	<SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>
+	<COND (<0? ,P-LEN>
+	       <TELL "I beg your pardon?" CR>
+	       <RFALSE>)
+	      (<EQUAL? <GET ,P-LEXV .PTR> ,W?OOPS ,W?O>
+	       <COND (<EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>> ;"rfix 36"
+			      ,W?PERIOD ,W?COMMA>
+		      <SET PTR <+ .PTR ,P-LEXELEN>>
+		      <SETG P-LEN <- ,P-LEN 1>>)>
+	       <COND (<NOT <G? ,P-LEN 1>>
+		      <CANT-USE "OOPS">
+		      <RFALSE>)
+		     (<GET ,OOPS-TABLE ,O-PTR>
+		      <COND (<G? ,P-LEN 2>
+			     <TELL
+"[Warning: Only the first word after OOPS is used.]" CR>)>
+			   <PUT ,AGAIN-LEXV <GET ,OOPS-TABLE ,O-PTR>
+			   <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>
+		      <SETG WINNER .OWINNER> ;"Fixes OOPS w/char"
+		      <INBUF-ADD <GETB ,P-LEXV <+ <* .PTR ,P-LEXELEN> 6>>
+				 <GETB ,P-LEXV <+ <* .PTR ,P-LEXELEN> 7>>
+				 <+ <* <GET ,OOPS-TABLE ,O-PTR> ,P-LEXELEN> 3>>
+		      <STUFF ,P-LEXV ,AGAIN-LEXV>
+		      <SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>;"Will this help?"
+		      <SET PTR <GET ,OOPS-TABLE ,O-START>>
+		      <INBUF-STUFF ,P-INBUF ,OOPS-INBUF>)
+		     (T
+		      <PUT ,OOPS-TABLE ,O-END <>>
+		      <TELL "[There was no word to replace!]" CR>
+		      <RFALSE>)>)
+	      (<ZERO? ,P-CONT> ;"retrofix 58"
+	       <PUT ,OOPS-TABLE ,O-END <>>)>
+	<SETG P-CONT <>> ;"retrofix 59"
+	<COND (<EQUAL? <GET ,P-LEXV .PTR> ,W?AGAIN ,W?G>
+	       <COND (<ZERO? <GETB ,OOPS-INBUF 1>>
+		      <TELL "[What do you want to do again?]" CR>
+		      <RFALSE>)
+		     (,P-OFLAG
+		      <TELL
+"Sorry, the Galactic Compendium on Interactive Fiction prohibits the use of
+AGAIN after your previous action." CR>
+		      <RFALSE>)
+		     (<NOT ,P-WON>
+		      <TELL "[That would just repeat a mistake!]" CR>
+		      <RFALSE>)
+		     (<AND <NOT <EQUAL? .OWINNER ,PROTAGONIST>>
+			   <NOT <VISIBLE? .OWINNER>>>
+		      <TELL "[You can't see " D .OWINNER " any more.]" CR>
+		      <RFALSE>)
+		     (<G? ,P-LEN 1>
+		      <COND (<OR <EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
+					,W?PERIOD ,W?COMMA ,W?THEN>
+				 <EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
+					,W?AND>>
+			     <SET PTR <+ .PTR <* 2 ,P-LEXELEN>>>
+			     <PUTB ,P-LEXV ,P-LEXWORDS
+				   <- <GETB ,P-LEXV ,P-LEXWORDS> 2>>)
+			    (T
+			     <V-TELL-TIME>
+			     <RFALSE>)>)
+		     (T
+		      <SET PTR <+ .PTR ,P-LEXELEN>>
+		      <PUTB ,P-LEXV ,P-LEXWORDS 
+			    <- <GETB ,P-LEXV ,P-LEXWORDS> 1>>)>
+	       <COND (<G? <GETB ,P-LEXV ,P-LEXWORDS> 0>
+		      <STUFF ,RESERVE-LEXV ,P-LEXV>
+		      <INBUF-STUFF ,RESERVE-INBUF ,P-INBUF>
+		      <SETG RESERVE-PTR .PTR>)
+		     (T
+		      <SETG RESERVE-PTR <>>)>
+	       ;<SETG P-LEN <GETB ,AGAIN-LEXV ,P-LEXWORDS>>
+	       <SETG WINNER .OWINNER>
+	       <SETG P-MERGED .OMERGED>
+	       <INBUF-STUFF ,P-INBUF ,OOPS-INBUF>
+	       <STUFF ,P-LEXV ,AGAIN-LEXV>
+	       <SET CNT -1>
+	       <SET DIR ,AGAIN-DIR>
+	       <REPEAT ()
+		<COND (<IGRTR? CNT ,P-ITBLLEN>
+		       <RETURN>)
+		      (T
+		       <PUT ,P-ITBL .CNT <GET ,P-OTBL .CNT>>)>>)
+	      (T
+	       <STUFF ,AGAIN-LEXV ,P-LEXV>
+	       <INBUF-STUFF ,OOPS-INBUF ,P-INBUF>
+	       <PUT ,OOPS-TABLE ,O-START .PTR>
+	       <PUT ,OOPS-TABLE ,O-LENGTH <* 4 ,P-LEN>> ;"fix #36"
+	       <SET LEN
+		    <* 2 <+ .PTR <* ,P-LEXELEN <GETB ,P-LEXV ,P-LEXWORDS>>>>>
+	       <COND (<ZERO? <GET ,OOPS-TABLE ,O-END>> ;"retrofix 58"
+		      <PUT ,OOPS-TABLE ,O-END
+			   <+ <GETB ,P-LEXV <- .LEN 1>>
+			      <GETB ,P-LEXV <- .LEN 2>>>>)>
+	       <SETG RESERVE-PTR <>>
+	       <SET LEN ,P-LEN>
+	       ;<SETG P-DIR <>>
+	       <SETG P-NCN 0>
+	       <SETG P-GETFLAGS 0>
+	       <REPEAT ()
+	        <COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
+		       <SETG QUOTE-FLAG <>>
+		       <RETURN>)
+		      (<OR <SET WRD <GET ,P-LEXV .PTR>>
+			   <SET WRD <NUMBER? .PTR>>>
+		       <SET NW <NEXT-WORD .PTR>>
+		       <COND (<AND <EQUAL? .WRD ,W?TO>
+				   <EQUAL? .VERB ,ACT?TELL ,ACT?ASK>
+				   ;"next clause added 8/20/84 by JW to
+				     enable TELL MY NAME TO BEAST"
+				   <WT? .NW ,PS?VERB ,P1?VERB>>
+			      <PUT ,P-ITBL ,P-VERB ,ACT?TELL>
+			      <SET WRD ,W?QUOTE>)
+			     (<AND <EQUAL? .WRD ,W?THEN>
+				   <G? ,P-LEN 0>
+				   <NOT .VERB>
+				   <NOT ,QUOTE-FLAG>>
+			      <PUT ,P-ITBL ,P-VERB ,ACT?TELL>
+			      <PUT ,P-ITBL ,P-VERBN 0>
+			      <SET WRD ,W?QUOTE>)
+			     (<AND <EQUAL? .WRD ,W?PERIOD>
+				   <EQUAL? .LW ,W?MR>>
+			      <SETG P-NCN <- ,P-NCN 1>>
+			      <CHANGE-LEXV .PTR .LW T>
+			      <SET WRD .LW>
+			      <SET LW 0>)>
+		       <COND (<OR <EQUAL? .WRD ,W?THEN ,W?PERIOD>
+				  <EQUAL? .WRD ,W?QUOTE>> 
+			      <COND (<EQUAL? .WRD ,W?QUOTE>
+				     <COND ;"Following clause added 8/7/84
+					     for CARVE 'FOO' IN BAR"
+				           (<EQUAL? .VERB ,ACT?CARVE ,ACT?MY>
+					    <PUT ,P-LEXV .PTR ,W?THE>
+					    <SETG P-LEN <+ ,P-LEN 1>>
+					    <AGAIN>)
+					   (,QUOTE-FLAG
+					    <SETG QUOTE-FLAG <>>)
+					   (T
+					    <SETG QUOTE-FLAG T>)>)>
+			      <OR <ZERO? ,P-LEN>
+				  <SETG P-CONT <+ .PTR ,P-LEXELEN>>>
+			      <PUTB ,P-LEXV ,P-LEXWORDS ,P-LEN>
+			      <RETURN>)
+			     (<AND <SET VAL
+				       <WT? .WRD ,PS?DIRECTION ,P1?DIRECTION>>
+				   <EQUAL? .VERB <> ,ACT?WALK>
+				   <OR <EQUAL? .LEN 1>
+				       <AND <EQUAL? .LEN 2>
+					    <EQUAL? .VERB ,ACT?WALK>>
+				       <AND <EQUAL? .NW
+						    ,W?THEN ,W?PERIOD ,W?QUOTE>
+					    <NOT <L? .LEN 2>>>
+				       <AND ,QUOTE-FLAG
+					    <EQUAL? .LEN 2>
+					    <EQUAL? .NW ,W?QUOTE>>
+				       <AND <G? .LEN 2>
+					    <EQUAL? .NW ,W?COMMA ,W?AND>>>>
+			      <SET DIR .VAL>
+			      <COND (<EQUAL? .NW ,W?COMMA ,W?AND>
+				     <CHANGE-LEXV <+ .PTR ,P-LEXELEN>
+					  ,W?THEN>)>
+			      <COND (<NOT <G? .LEN 2>>
+				     <SETG QUOTE-FLAG <>>
+				     <RETURN>)>)
+			     (<AND <SET VAL <WT? .WRD ,PS?VERB ,P1?VERB>>
+				   <NOT .VERB>>
+			      <COND (<ZERO? ,P-OFLAG>
+				     <SETG P-PRSA-WORD .WRD>)
+				    ;(T
+				     <SETG P-PRSA-WORD
+					   <GET <GET ,P-ITBL ,P-VERBN> 0>>)>
+			      <SET VERB .VAL>
+			      <PUT ,P-ITBL ,P-VERB .VAL>
+			      <PUT ,P-ITBL ,P-VERBN ,P-VTBL>
+			      <PUT ,P-VTBL 0 .WRD>
+			      <PUTB ,P-VTBL 2
+				    <GETB ,P-LEXV <SET CNT <+ <* .PTR 2> 2>>>>
+			      <PUTB ,P-VTBL 3 <GETB ,P-LEXV <+ .CNT 1>>>)
+			     (<OR <SET VAL <WT? .WRD ,PS?PREPOSITION 0>>
+				  <EQUAL? .WRD ,W?ALL ,W?ONE ,W?BOTH>
+				  ;<EQUAL? .WRD ,W?EVERYTHING>
+				  <WT? .WRD ,PS?ADJECTIVE>
+				  <WT? .WRD ,PS?OBJECT>>
+			      ;<COND (<AND .VAL
+					  <EQUAL? .WRD ,W?BACK>
+					  <NOT <EQUAL? .VERB ,ACT?HAND>>>
+				     <SET VAL 0>)>
+			         ;"3/3/86 -- fix OPEN BACK DOOR given that
+				   back is also a prep for HAND BACK OBJ -pdl"
+			      <COND (<AND <G? ,P-LEN 0>
+					  <EQUAL? .NW ,W?OF>
+					  <ZERO? .VAL>
+					  <NOT <EQUAL? .WRD ,W?ALL ,W?ONE>>
+					  <NOT <EQUAL? .WRD ,W?A ,W?BOTH>>>)
+				    (<AND <NOT <ZERO? .VAL>>
+					  <OR <ZERO? ,P-LEN>
+					      <EQUAL? .NW ,W?THEN ,W?PERIOD>>>
+				     <SETG P-END-ON-PREP T>
+				     <COND (<L? ,P-NCN 2>
+					    <PUT ,P-ITBL ,P-PREP1 .VAL>
+					    <PUT ,P-ITBL ,P-PREP1N .WRD>)>)
+				    (<EQUAL? ,P-NCN 2>
+				     <TELL
+				      "[There were too many nouns in that sentence.]" CR>
+				     <RFALSE>)
+				    (T
+				     <SETG P-NCN <+ ,P-NCN 1>>
+				     ;"This COND added 8/7/84 for IN FRONT OF"
+				     <COND (<AND <EQUAL? .VAL ,PR?IN>
+						 <EQUAL? <GET ,P-LEXV
+							      <+ .PTR 2>>
+							 ,W?FRONT>>
+					    <SETG IN-FRONT-FLAG T>)
+					   (<AND <EQUAL? .VAL ,PR?DOWN>
+						 <EQUAL? <GET ,P-LEXV
+							      <+ .PTR 2>>
+							 ,W?IN>
+						 <EQUAL? <GET ,P-LEXV
+							      <+ .PTR 4>>
+							 ,W?FRONT>>
+					    <SETG IN-FRONT-FLAG T>)>
+				     <OR <SET PTR <CLAUSE .PTR .VAL .WRD>>
+					 <RFALSE>>
+				     <COND (<L? .PTR 0>
+					    <SETG QUOTE-FLAG <>>
+					    <RETURN>)>)>)
+			     (<AND <NOT .VERB>
+				   <EQUAL? .WRD ,W?DON\'T ,W?DONT>>
+			      <SET DONT T>)
+			     (<WT? .WRD ,PS?BUZZ-WORD>)
+			     (<AND <EQUAL? .VERB ,ACT?TELL>
+				   <WT? .WRD ,PS?VERB ,P1?VERB>
+				   ;"Next expr added to fix FORD, TELL ME WHY"
+				   <EQUAL? ,WINNER ,PROTAGONIST>>
+			      <TELL
+"Please consult your manual for the correct way to talk to characters." CR>
+			      <RFALSE>)
+			     (T
+			      <CANT-USE .PTR>
+			      <RFALSE>)>)
+		      (T
+		       <UNKNOWN-WORD .PTR>
+		       <RFALSE>)>
+		<SET LW .WRD>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>)>
+	<PUT ,OOPS-TABLE ,O-PTR <>>
+	;<SET LEN ,P-LEN>
+	;<SETG P-DIR <>>
+	;<SETG P-NCN 0>
+	;<SETG P-GETFLAGS 0>
+	<COND (.DIR
+	       <SETG PRSA ,V?WALK>
+	       <SETG PRSO .DIR>
+	       <SETG P-OFLAG <>>
+	       <SETG P-WALK-DIR .DIR>
+	       <SETG AGAIN-DIR .DIR>
+	       <SETG DONT-FLAG .DONT>
+	       <RETURN T>)>
+	<SETG P-WALK-DIR <>>
+	<SETG AGAIN-DIR <>>
+	<COND (<OR <NOT ,P-OFLAG>
+	       	   <NOT <ORPHAN-MERGE>>>
+	       <SETG DONT-FLAG .DONT>)>
+	<COND (<AND <SYNTAX-CHECK>
+		    <SNARF-OBJECTS>
+		    <MANY-CHECK>
+		    <TAKE-CHECK>>
+	       T)>>
+
+<ROUTINE NEXT-WORD (PTR)
+	 <COND (<NOT <ZERO? ,P-LEN>>
+	        <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>)>>
+
+<ROUTINE CHANGE-LEXV (PTR WRD "OPTIONAL" (PTRS? <>) "AUX" X Y Z)
+	 <COND (.PTRS?
+		<SET X <+ 2 <* 2 <- .PTR ,P-LEXELEN>>>>
+		<SET Y <GETB ,P-LEXV .X>>
+		<SET Z <+ 2 <* 2 .PTR>>>
+		<PUTB     ,P-LEXV .Z .Y>
+		<PUTB ,AGAIN-LEXV .Z .Y>
+		<SET Y <GETB ,P-LEXV <+ 1 .X>>>
+		<SET Z <+ 3 <* 2 .PTR>>>
+		<PUTB     ,P-LEXV .Z .Y>
+		<PUTB ,AGAIN-LEXV .Z .Y>)>
+	 <PUT ,P-LEXV .PTR .WRD>
+	 <PUT ,AGAIN-LEXV .PTR .WRD>>
+
+<GLOBAL DONT-FLAG <>>
+
+<GLOBAL P-WALK-DIR <>>
+
+<GLOBAL AGAIN-DIR <>>
+
+;<GLOBAL P-DIRECTION <>>
+
+;"For AGAIN purposes, put contents of one LEXV table into another."
+<ROUTINE STUFF (DEST SRC "OPTIONAL" (MAX 29) "AUX" (PTR ,P-LEXSTART) (CTR 1)
+						   BPTR)
+	 <PUTB .DEST 0 <GETB .SRC 0>>
+	 <PUTB .DEST 1 <GETB .SRC 1>>
+	 <REPEAT ()
+	  <PUT .DEST .PTR <GET .SRC .PTR>>
+	  <SET BPTR <+ <* .PTR 2> 2>>
+	  <PUTB .DEST .BPTR <GETB .SRC .BPTR>>
+	  <SET BPTR <+ <* .PTR 2> 3>>
+	  <PUTB .DEST .BPTR <GETB .SRC .BPTR>>
+	  <SET PTR <+ .PTR ,P-LEXELEN>>
+	  <COND (<IGRTR? CTR .MAX>
+		 <RETURN>)>>>
+
+;"Put contents of one INBUF into another"
+<ROUTINE INBUF-STUFF (DEST SRC "AUX" (CNT -1))
+	 <REPEAT ()
+	  <COND (<IGRTR? CNT ,P-INBUF-LENGTH> <RETURN>)
+		(T <PUTB .DEST .CNT <GETB .SRC .CNT>>)>>>
+
+;"Put the word in the positions specified from P-INBUF to the end of
+OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
+<ROUTINE INBUF-ADD (LEN BEG SLOT "AUX" DBEG (CTR 0) TMP)
+	 <COND (<SET TMP <GET ,OOPS-TABLE ,O-END>>
+		<SET DBEG .TMP>)
+	       (T
+		<SET DBEG <+ <GETB ,AGAIN-LEXV
+				   <SET TMP <GET ,OOPS-TABLE ,O-LENGTH>>>
+			     <GETB ,AGAIN-LEXV <+ .TMP 1>>>>)>
+	 <PUT ,OOPS-TABLE ,O-END <+ .DBEG .LEN>>
+	 <REPEAT ()
+	  <PUTB ,OOPS-INBUF <+ .DBEG .CTR> <GETB ,P-INBUF <+ .BEG .CTR>>>
+	  <SET CTR <+ .CTR 1>>
+	  <COND (<EQUAL? .CTR .LEN> <RETURN>)>>
+	 <PUTB ,AGAIN-LEXV .SLOT .DBEG>
+	 <PUTB ,AGAIN-LEXV <- .SLOT 1> .LEN>>
+
+;"Check whether word pointed at by PTR is the correct part of speech.
+   The second argument is the part of speech (,PS?<part of speech>).  The
+   3rd argument (,P1?<part of speech>), if given, causes the value
+   for that part of speech to be returned."
+<ROUTINE WT? (PTR BIT "OPTIONAL" (B1 5) "AUX" (OFFS ,P-P1OFF) TYP) 
+	<COND (<BTST <SET TYP <GETB .PTR ,P-PSOFF>> .BIT>
+	       <COND (<G? .B1 4>
+		      <RTRUE>)
+		     (T
+		      <SET TYP <BAND .TYP ,P-P1BITS>>
+		      <COND (<NOT <==? .TYP .B1>> 
+			     <SET OFFS <+ .OFFS 1>>)>
+		      <GETB .PTR .OFFS>)>)>>
+
+;" Scan through a noun clause, leave a pointer to its starting location"
+<ROUTINE CLAUSE (PTR VAL WRD "AUX" OFF NUM (ANDFLG <>) (FIRST?? T) NW (LW 0))
+	<SET OFF <* <- ,P-NCN 1> 2>>
+	<COND (<NOT <==? .VAL 0>>
+	       <PUT ,P-ITBL <SET NUM <+ ,P-PREP1 .OFF>> .VAL>
+	       <PUT ,P-ITBL <+ .NUM 1> .WRD>
+	       <SET PTR <+ .PTR ,P-LEXELEN>>)
+	      (T <SETG P-LEN <+ ,P-LEN 1>>)>
+	<COND (<0? ,P-LEN> <SETG P-NCN <- ,P-NCN 1>> <RETURN -1>)>
+	<PUT ,P-ITBL <SET NUM <+ ,P-NC1 .OFF>> <REST ,P-LEXV <* .PTR 2>>>
+	<COND (<EQUAL? <GET ,P-LEXV .PTR> ,W?THE ,W?A ,W?AN>
+	       <PUT ,P-ITBL .NUM <REST <GET ,P-ITBL .NUM> 4>>)>
+	<REPEAT ()
+		<COND (<L? <SETG P-LEN <- ,P-LEN 1>> 0>
+		       <PUT ,P-ITBL <+ .NUM 1> <REST ,P-LEXV <* .PTR 2>>>
+		       <RETURN -1>)>
+		<COND (<OR <SET WRD <GET ,P-LEXV .PTR>>
+			   <SET WRD <NUMBER? .PTR>>>
+		       <COND (<0? ,P-LEN> <SET NW 0>)
+			     (T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
+		       <COND (<AND <EQUAL? .WRD ,W?PERIOD>
+				   <EQUAL? .LW ,W?MR>>
+			      <SET LW 0>)
+			     (<EQUAL? .WRD ,W?AND ,W?COMMA> <SET ANDFLG T>)
+			     (<EQUAL? .WRD ,W?ALL ,W?ONE ,W?BOTH>
+			      <COND (<==? .NW ,W?OF>
+				     <SETG P-LEN <- ,P-LEN 1>>
+				     <SET PTR <+ .PTR ,P-LEXELEN>>)>)
+			     (<OR <EQUAL? .WRD ,W?THEN ,W?PERIOD>
+				  <AND <WT? .WRD ,PS?PREPOSITION>
+				       <GET ,P-ITBL ,P-VERB>
+				          ;"ADDED 4/27 FOR TURTLE,UP"
+				       <NOT .FIRST??>>>
+			      <SETG P-LEN <+ ,P-LEN 1>>
+			      <PUT ,P-ITBL
+				   <+ .NUM 1>
+				   <REST ,P-LEXV <* .PTR 2>>>
+			      <RETURN <- .PTR ,P-LEXELEN>>)
+			     ;"This next clause was 2 clauses further down"
+			     ;"This attempts to fix EDDIE, TURN ON COMPUTER"
+			     (<AND .ANDFLG
+				   <EQUAL? <GET ,P-ITBL ,P-VERB> 0>>
+			      <SET PTR <- .PTR 4>>
+			      <PUT ,P-LEXV <+ .PTR 2> ,W?THEN>
+			      <SETG P-LEN <+ ,P-LEN 2>>)
+			     (<WT? .WRD ,PS?OBJECT>
+			      <COND ;"First clause added 1/10/84 to fix
+				      'verb AT synonym OF synonym' bug"
+			            (<AND <G? ,P-LEN 0>
+					  <EQUAL? .NW ,W?OF>
+					  <NOT <EQUAL? .WRD ,W?ALL ,W?ONE>>>
+				     T)
+				    (<AND <WT? .WRD
+					       ,PS?ADJECTIVE
+					       ;,P1?ADJECTIVE> ;"GTB"
+					  <NOT <==? .NW 0>>
+					  <OR <WT? .NW ,PS?OBJECT>
+					      <WT? .NW ,PS?ADJECTIVE>>>)
+				    (<AND <NOT .ANDFLG>
+					  <NOT <EQUAL? .NW ,W?BUT ,W?EXCEPT>>
+					  <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+				     <PUT ,P-ITBL
+					  <+ .NUM 1>
+					  <REST ,P-LEXV <* <+ .PTR 2> 2>>>
+				     <RETURN .PTR>)
+				    (T <SET ANDFLG <>>)>)
+			     ;"next clause replaced by following on from games
+			       with characters"
+			     ;(<AND <OR ,P-MERGED
+				       ,P-OFLAG
+				       <NOT <EQUAL? <GET ,P-ITBL ,P-VERB> 0>>>
+				   <OR <WT? .WRD ,PS?ADJECTIVE>
+				       <WT? .WRD ,PS?BUZZ-WORD>>>)
+			     (<OR <WT? .WRD ,PS?ADJECTIVE>
+				  <WT? .WRD ,PS?BUZZ-WORD>>)
+			     (<WT? .WRD ,PS?PREPOSITION> T)
+			     (T
+			      <CANT-USE .PTR>
+			      <RFALSE>)>)
+		      (T <UNKNOWN-WORD .PTR> <RFALSE>)>
+		<SET LW .WRD>
+		<SET FIRST?? <>>
+		<SET PTR <+ .PTR ,P-LEXELEN>>>> 
+
+<ROUTINE NUMBER? (PTR "AUX" CNT BPTR CHR (SUM 0) (TIM <>))
+	 <SET CNT <GETB <REST ,P-LEXV <* .PTR 2>> 2>>
+	 <SET BPTR <GETB <REST ,P-LEXV <* .PTR 2>> 3>>
+	 <REPEAT ()
+		 <COND (<L? <SET CNT <- .CNT 1>> 0> <RETURN>)
+		       (T
+			<SET CHR <GETB ,P-INBUF .BPTR>>
+			<COND (<==? .CHR 58>
+			       <SET TIM .SUM>
+			       <SET SUM 0>)
+			      (<G? .SUM 10000> <RFALSE>)
+			      (<AND <L? .CHR 58> <G? .CHR 47>>
+			       <SET SUM <+ <* .SUM 10> <- .CHR 48>>>)
+			      (T <RFALSE>)>
+			<SET BPTR <+ .BPTR 1>>)>>
+	 <PUT ,P-LEXV .PTR ,W?INTNUM>
+	 <COND (<G? .SUM 1000>
+		<RFALSE>)
+	       (.TIM
+		<COND (<L? .TIM 8>
+		       <SET TIM <+ .TIM 12>>)
+		      (<G? .TIM 23>
+		       <RFALSE>)>
+		<SET SUM <+ .SUM <* .TIM 60>>>)>
+	 <SETG P-NUMBER .SUM>
+	 ,W?INTNUM>
+
+<GLOBAL P-NUMBER 0>
+
+
+<ROUTINE ORPHAN-MERGE ("AUX" (CNT -1) TEMP VERB BEG END (ADJ <>) WRD) 
+   <SETG P-OFLAG <>>
+   <COND (<WT? <SET WRD <GET <GET ,P-ITBL ,P-VERBN> 0>>
+	       ,PS?ADJECTIVE ;,P1?ADJECTIVE>  ;"GTB"
+	  <SET ADJ T>)
+	 (<AND <WT? .WRD ,PS?OBJECT ;,P1?OBJECT>
+	       <EQUAL? ,P-NCN 0>>
+	  <PUT ,P-ITBL ,P-VERB 0>
+	  <PUT ,P-ITBL ,P-VERBN 0>
+	  <PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
+	  <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>
+	  <SETG P-NCN 1>)>
+   <COND (<AND <NOT <0? <SET VERB <GET ,P-ITBL ,P-VERB>>>>
+	       <NOT .ADJ>
+	       <NOT <==? .VERB <GET ,P-OTBL ,P-VERB>>>>
+	  <RFALSE>)
+	 (<==? ,P-NCN 2> <RFALSE>)
+	 (<==? <GET ,P-OTBL ,P-NC1> 1>
+	  <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>>
+			  <GET ,P-OTBL ,P-PREP1>>
+		     <0? .TEMP>>
+		 <COND (.ADJ
+			<PUT ,P-OTBL ,P-NC1 <REST ,P-LEXV 2>>
+			<COND (<0? <GET ,P-ITBL ,P-NC1L>>
+			       <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>
+			<COND (<0? ,P-NCN> <SETG P-NCN 1>)>)
+		       (T
+			<PUT ,P-OTBL ,P-NC1 <GET ,P-ITBL ,P-NC1>>
+			;<PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)>
+		 <PUT ,P-OTBL ,P-NC1L <GET ,P-ITBL ,P-NC1L>>)
+		(T <RFALSE>)>)
+	 (<==? <GET ,P-OTBL ,P-NC2> 1>
+	  <COND (<OR <==? <SET TEMP <GET ,P-ITBL ,P-PREP1>>
+			  <GET ,P-OTBL ,P-PREP2>>
+		     <0? .TEMP>>
+		 <COND (.ADJ
+			<PUT ,P-ITBL ,P-NC1 <REST ,P-LEXV 2>>
+			<COND (<0? <GET ,P-ITBL ,P-NC1L>>
+			       <PUT ,P-ITBL ,P-NC1L <REST ,P-LEXV 6>>)>)>
+		 <PUT ,P-OTBL ,P-NC2 <GET ,P-ITBL ,P-NC1>>
+		 <PUT ,P-OTBL ,P-NC2L <GET ,P-ITBL ,P-NC1L>>
+		 <SETG P-NCN 2>)
+		(T <RFALSE>)>)
+	 (,P-ACLAUSE
+	  <COND (<AND <NOT <==? ,P-NCN 1>> <NOT .ADJ>>
+		 <SETG P-ACLAUSE <>>
+		 <RFALSE>)
+		(T
+		 <SET BEG <GET ,P-ITBL ,P-NC1>>
+		 <COND (.ADJ <SET BEG <REST ,P-LEXV 2>> <SET ADJ <>>)>
+		 <SET END <GET ,P-ITBL ,P-NC1L>>
+		 <REPEAT ()
+			 <SET WRD <GET .BEG 0>>
+			 <COND (<==? .BEG .END>
+				<COND (.ADJ <ACLAUSE-WIN .ADJ> <RETURN>)
+				      (T <SETG P-ACLAUSE <>> <RFALSE>)>)
+			       (<AND <NOT .ADJ>
+				     <OR <BTST <GETB .WRD ,P-PSOFF>
+					       ,PS?ADJECTIVE> ;"same as WT?"
+					 <EQUAL? .WRD ,W?ALL ,W?ONE>>>
+				<SET ADJ .WRD>)
+			       (<==? .WRD ,W?ONE>
+				<ACLAUSE-WIN .ADJ>
+				<RETURN>)
+			       (<BTST <GETB .WRD ,P-PSOFF> ,PS?OBJECT>
+				<COND (<EQUAL? .WRD ,P-ANAM>
+				       <ACLAUSE-WIN .ADJ>)
+				      (T
+				       <NCLAUSE-WIN>)>
+				<RETURN>)>
+			 <SET BEG <REST .BEG ,P-WORDLEN>>
+			 <COND (<EQUAL? .END 0>
+				<SET END .BEG>
+				<SETG P-NCN 1>
+				<PUT ,P-ITBL ,P-NC1 <BACK .BEG 4>>
+				<PUT ,P-ITBL ,P-NC1L .BEG>)>>)>)>
+   <PUT ,P-VTBL 0 <GET ,P-OVTBL 0>>
+   <PUTB ,P-VTBL 2 <GETB ,P-OVTBL 2>>
+   <PUTB ,P-VTBL 3 <GETB ,P-OVTBL 3>>
+   <PUT ,P-OTBL ,P-VERBN ,P-VTBL>
+   <PUTB ,P-VTBL 2 0>
+   ;<AND <NOT <==? <GET ,P-OTBL ,P-NC2> 0>> <SETG P-NCN 2>>
+   <REPEAT ()
+	   <COND (<G? <SET CNT <+ .CNT 1>> ,P-ITBLLEN>
+		  <SETG P-MERGED T>
+		  <RTRUE>)
+		 (T <PUT ,P-ITBL .CNT <GET ,P-OTBL .CNT>>)>>
+   T>
+
+<ROUTINE ACLAUSE-WIN (ADJ) 
+	<PUT ,P-ITBL ,P-VERB <GET ,P-OTBL ,P-VERB>>
+	<COND (<EQUAL? .ADJ ,W?TEA> ;"special case"
+	       <NCLAUSE-WIN>)
+	      (T
+	       <PUT ,P-CCTBL ,CC-SBPTR ,P-ACLAUSE>
+	       <PUT ,P-CCTBL ,CC-SEPTR <+ ,P-ACLAUSE 1>>
+	       <PUT ,P-CCTBL ,CC-DBPTR ,P-ACLAUSE>
+	       <PUT ,P-CCTBL ,CC-DEPTR <+ ,P-ACLAUSE 1>>
+	       <CLAUSE-COPY ,P-OTBL ,P-OTBL .ADJ>)>
+	<AND <NOT <==? <GET ,P-OTBL ,P-NC2> 0>> <SETG P-NCN 2>>
+	<SETG P-ACLAUSE <>>
+	<RTRUE>>
+
+<ROUTINE NCLAUSE-WIN ()
+        <PUT ,P-CCTBL ,CC-SBPTR ,P-NC1>
+	<PUT ,P-CCTBL ,CC-SEPTR ,P-NC1L>
+	<PUT ,P-CCTBL ,CC-DBPTR ,P-ACLAUSE>
+	<PUT ,P-CCTBL ,CC-DEPTR <+ ,P-ACLAUSE 1>>
+	<CLAUSE-COPY ,P-ITBL ,P-OTBL>
+	<AND <NOT <==? <GET ,P-OTBL ,P-NC2> 0>> <SETG P-NCN 2>>
+	<SETG P-ACLAUSE <>>
+	<RTRUE>>
+
+;"Print undefined word in input.
+   PTR points to the unknown word in P-LEXV"   
+
+<ROUTINE WORD-PRINT (CNT BUF)
+	 <REPEAT ()
+		 <COND (<DLESS? CNT 0> <RETURN>)
+		       (ELSE
+			<PRINTC <GETB ,P-INBUF .BUF>>
+			<SET BUF <+ .BUF 1>>)>>>
+
+<ROUTINE UNKNOWN-WORD (PTR "AUX" BUF)
+	<COND (<T? ,P-OFLAG>
+	       <PUT ,OOPS-TABLE ,O-END 0>)>
+	<PUT ,OOPS-TABLE ,O-PTR .PTR>
+	<TELL "I don't know the word \"">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "\"." CR>
+	<SETG QUOTE-FLAG <>>
+	<SETG P-OFLAG <>>>
+
+<ROUTINE CANT-USE (PTR "AUX" BUF)
+	<TELL "You used the word \"">
+	<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
+		    <GETB <REST ,P-LEXV .BUF> 3>>
+	<TELL "\" in a way that I don't understand." CR>
+	<SETG QUOTE-FLAG <>>
+	<SETG P-OFLAG <>>>
+
+;" Perform syntax matching operations, using P-ITBL as the source of
+   the verb and adjectives for this input.  Returns false if no
+   syntax matches, and does it's own orphaning.  If return is true,
+   the syntax is saved in P-SYNTAX."
+
+<GLOBAL P-SLOCBITS 0>
+
+<CONSTANT P-SYNLEN 8>
+<CONSTANT P-SBITS 0>
+<CONSTANT P-SPREP1 1>
+<CONSTANT P-SPREP2 2>
+<CONSTANT P-SFWIM1 3>
+<CONSTANT P-SFWIM2 4>
+<CONSTANT P-SLOC1 5>
+<CONSTANT P-SLOC2 6>
+<CONSTANT P-SACTION 7>
+<CONSTANT P-SONUMS 3>
+
+
+<ROUTINE SYNTAX-CHECK
+	("AUX" SYN LEN NUM OBJ (DRIVE1 <>) (DRIVE2 <>) PREP VERB TMP)
+	<COND (<0? <SET VERB <GET ,P-ITBL ,P-VERB>>>
+	       <TELL "There was no verb in that sentence!" CR>
+	       <RFALSE>)>
+	<SET SYN <GET ,VERBS <- 255 .VERB>>>
+	<SET LEN <GETB .SYN 0>>
+	<SET SYN <REST .SYN>>
+	<REPEAT ()
+		<SET NUM <BAND <GETB .SYN ,P-SBITS> ,P-SONUMS>>
+		<COND (<G? ,P-NCN .NUM> T)
+		      (<AND <NOT <L? .NUM 1>>
+			    <0? ,P-NCN>
+			    <OR <0? <SET PREP <GET ,P-ITBL ,P-PREP1>>>
+				<==? .PREP <GETB .SYN ,P-SPREP1>>>>
+		       <SET DRIVE1 .SYN>)
+		      (<==? <GETB .SYN ,P-SPREP1> <GET ,P-ITBL ,P-PREP1>>
+		       <COND (<AND <==? .NUM 2> <==? ,P-NCN 1>>
+			      <SET DRIVE2 .SYN>)
+			     (<EQUAL? <GETB .SYN ,P-SPREP2>
+				      <GET ,P-ITBL ,P-PREP2>>
+			      <SYNTAX-FOUND .SYN>
+			      <RTRUE>)>)>
+		<COND (<DLESS? LEN 1>
+		       <COND (<OR .DRIVE1 .DRIVE2> <RETURN>)
+			     (T
+			      <V-TELL-TIME>
+			      <RFALSE>)>)
+		      (T <SET SYN <REST .SYN ,P-SYNLEN>>)>>
+	<COND (<AND .DRIVE1
+		    <SET OBJ
+			 <GWIM <GETB .DRIVE1 ,P-SFWIM1>
+			       <GETB .DRIVE1 ,P-SLOC1>
+			       <GETB .DRIVE1 ,P-SPREP1>>>>
+	       <PUT ,P-PRSO ,P-MATCHLEN 1>
+	       <PUT ,P-PRSO 1 .OBJ>
+	       <SYNTAX-FOUND .DRIVE1>)
+	      (<AND .DRIVE2
+		    <SET OBJ
+			 <GWIM <GETB .DRIVE2 ,P-SFWIM2>
+			       <GETB .DRIVE2 ,P-SLOC2>
+			       <GETB .DRIVE2 ,P-SPREP2>>>>
+	       <PUT ,P-PRSI ,P-MATCHLEN 1>
+	       <PUT ,P-PRSI 1 .OBJ>
+	       <SYNTAX-FOUND .DRIVE2>)
+	      (<EQUAL? .VERB ,ACT?FIND ;,ACT?WHAT>
+	       <TELL "I can't answer that question." CR>
+	       <RFALSE>)
+	      (<NOT <==? ,WINNER ,PROTAGONIST>>
+	       <CANT-ORPHAN>)
+	      (T
+	       <ORPHAN .DRIVE1 .DRIVE2>
+	       <TELL "What do">
+	       <COND (,DONT-FLAG
+		      <TELL "n't">)>
+	       <TELL " you want to ">
+	       <SET TMP <GET ,P-OTBL ,P-VERBN>>
+	       <COND (<EQUAL? .TMP 0>
+		      <TELL "tell">)
+		     (<0? <GETB ,P-VTBL 2>>
+		      <PRINTB <GET .TMP 0>>)
+		     (T
+		      <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>
+		      <PUTB ,P-VTBL 2 0>)>
+	       <COND (.DRIVE2
+		      <CLAUSE-PRINT ,P-NC1 ,P-NC1L>)>
+	       <SETG P-OFLAG T>
+	       <PREP-PRINT <COND (.DRIVE1 <GETB .DRIVE1 ,P-SPREP1>)
+				 (T <GETB .DRIVE2 ,P-SPREP2>)>>
+	       <TELL "?" CR>
+	       <RFALSE>)>> 
+
+<ROUTINE CANT-ORPHAN ()
+	 <COND (<AND <EQUAL? ,WINNER ,GUARDS>
+		     <EQUAL? ,HERE ,DAIS>>
+		<TELL "\"We">)
+	       (T
+		<TELL "\"I">)>
+	 <TELL " don't understand! What are you referring to?\"" CR>
+	 <RFALSE>>
+
+<ROUTINE ORPHAN (D1 D2 "AUX" (CNT -1))
+	<COND (<NOT ,P-MERGED>
+	       <PUT ,P-OCLAUSE ,P-MATCHLEN 0>)>
+	<PUT ,P-OVTBL 0 <GET ,P-VTBL 0>>
+	<PUTB ,P-OVTBL 2 <GETB ,P-VTBL 2>>
+	<PUTB ,P-OVTBL 3 <GETB ,P-VTBL 3>>
+	<REPEAT ()
+		<COND (<IGRTR? CNT ,P-ITBLLEN> <RETURN>)
+		      (T <PUT ,P-OTBL .CNT <GET ,P-ITBL .CNT>>)>>
+	<COND (<==? ,P-NCN 2>
+	       <PUT ,P-CCTBL ,CC-SBPTR ,P-NC2>
+	       <PUT ,P-CCTBL ,CC-SEPTR ,P-NC2L>
+	       <PUT ,P-CCTBL ,CC-DBPTR ,P-NC2>
+	       <PUT ,P-CCTBL ,CC-DEPTR ,P-NC2L>
+	       <CLAUSE-COPY ,P-ITBL ,P-OTBL>)>
+	<COND (<NOT <L? ,P-NCN 1>>
+	       <PUT ,P-CCTBL ,CC-SBPTR ,P-NC1>
+	       <PUT ,P-CCTBL ,CC-SEPTR ,P-NC1L>
+	       <PUT ,P-CCTBL ,CC-DBPTR ,P-NC1>
+	       <PUT ,P-CCTBL ,CC-DEPTR ,P-NC1L>
+	       <CLAUSE-COPY ,P-ITBL ,P-OTBL>)>
+	<COND (.D1
+	       <PUT ,P-OTBL ,P-PREP1 <GETB .D1 ,P-SPREP1>>
+	       <PUT ,P-OTBL ,P-NC1 1>)
+	      (.D2
+	       <PUT ,P-OTBL ,P-PREP2 <GETB .D2 ,P-SPREP2>>
+	       <PUT ,P-OTBL ,P-NC2 1>)>> 
+ 
+<ROUTINE CLAUSE-PRINT (BPTR EPTR "OPTIONAL" (THE? T)) 
+	<BUFFER-PRINT <GET ,P-ITBL .BPTR> <GET ,P-ITBL .EPTR> .THE?>>    
+ 
+<ROUTINE BUFFER-PRINT (BEG END CP "AUX" (NOSP <>) WRD (FIRST?? T) (PN <>))
+	 <REPEAT ()
+		<COND (<EQUAL? .BEG .END>
+		       <RETURN>)
+		      (T
+		       <COND (.NOSP
+			      <SET NOSP <>>)
+			     (T
+			      <TELL " ">)>
+		       <COND (<EQUAL? <SET WRD <GET .BEG 0>> ,W?PERIOD>
+			      <SET NOSP T>)
+			     (<EQUAL? .WRD ,W?ME>
+			      <PRINTD ,ME>
+			      <SET PN T>)
+			     (<NAME? .WRD>
+			      <CAPITALIZE .BEG>
+			      <SET PN T>)
+			     (T
+			      <COND (<AND .FIRST?? <NOT .PN> .CP>
+				     <TELL "the ">)>
+			      <COND (<OR ,P-OFLAG ,P-MERGED> <PRINTB .WRD>)
+				    (<AND <==? .WRD ,W?IT>
+					  <ACCESSIBLE? ,P-IT-OBJECT>>
+				     <PRINTD ,P-IT-OBJECT>)
+				    (T
+				     <WORD-PRINT <GETB .BEG 2>
+						 <GETB .BEG 3>>)>
+			      <SET FIRST?? <>>)>)>
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>
+
+<ROUTINE NAME? (WRD)
+	 <COND (<OR <EQUAL? .WRD ,W?FORD ,W?ZAPHOD ,W?BEEBLEBRO>
+		    <EQUAL? .WRD ,W?TRILLIAN ,W?TRICIA ,W?MCMILLAN>
+		    <EQUAL? .WRD ,W?PROSSER ,W?MARVIN ,W?ARTHUR>
+		    <EQUAL? .WRD ,W?DENT ,W?PREFECT ,W?PHIL>
+		    <EQUAL? .WRD ,W?EDDIE ,W?MARV ,W?ED>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE CAPITALIZE (PTR)
+	 <COND (<OR ,P-OFLAG ,P-MERGED>
+		<PRINTB <GET .PTR 0>>)
+	       (T
+		<PRINTC <- <GETB ,P-INBUF <GETB .PTR 3>> 32>>
+		<WORD-PRINT <- <GETB .PTR 2> 1> <+ <GETB .PTR 3> 1>>)>>
+
+<ROUTINE PREP-PRINT (PREP "AUX" WRD)
+	<COND (<NOT <0? .PREP>>
+	       <TELL " ">
+	       <COND (<EQUAL? .PREP ,PR?THROUGH>
+		      <TELL "through">)
+		     (T
+		      <SET WRD <PREP-FIND .PREP>>
+		      <PRINTB .WRD>)>)>>    
+ 
+<ROUTINE CLAUSE-COPY (SRC DEST "OPTIONAL" (INSRT <>) "AUX" BEG END)
+	<SET BEG <GET .SRC <GET ,P-CCTBL ,CC-SBPTR>>>
+	<SET END <GET .SRC <GET ,P-CCTBL ,CC-SEPTR>>>
+	<PUT .DEST
+	     <GET ,P-CCTBL ,CC-DBPTR>
+	     <REST ,P-OCLAUSE
+		   <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN> 2>>>
+	<REPEAT ()
+		<COND (<==? .BEG .END>
+		       <PUT .DEST
+			    <GET ,P-CCTBL ,CC-DEPTR>
+			    <REST ,P-OCLAUSE
+				  <+ <* <GET ,P-OCLAUSE ,P-MATCHLEN> ,P-LEXELEN>
+				     2>>>
+		       <RETURN>)
+		      (T
+		       <COND (<AND .INSRT <==? ,P-ANAM <GET .BEG 0>>>
+			      <CLAUSE-ADD .INSRT>)>
+		       <CLAUSE-ADD <GET .BEG 0>>)>
+		<SET BEG <REST .BEG ,P-WORDLEN>>>>  
+
+
+<ROUTINE CLAUSE-ADD (WRD "AUX" PTR)
+	<SET PTR <+ <GET ,P-OCLAUSE ,P-MATCHLEN> 2>>
+	<PUT ,P-OCLAUSE <- .PTR 1> .WRD>
+	<PUT ,P-OCLAUSE .PTR 0>
+	<PUT ,P-OCLAUSE ,P-MATCHLEN .PTR>>   
+ 
+<ROUTINE PREP-FIND (PREP "AUX" (CNT 0) SIZE)
+	<SET SIZE <* <GET ,PREPOSITIONS 0> 2>>
+	<REPEAT ()
+		<COND (<IGRTR? CNT .SIZE> <RFALSE>)
+		      (<==? <GET ,PREPOSITIONS .CNT> .PREP>
+		       <RETURN <GET ,PREPOSITIONS <- .CNT 1>>>)>>>  
+ 
+<ROUTINE SYNTAX-FOUND (SYN)
+	<SETG P-SYNTAX .SYN>
+	<SETG PRSA <GETB .SYN ,P-SACTION>>>   
+ 
+<GLOBAL P-GWIMBIT 0>
+ 
+<ROUTINE GWIM (GBIT LBIT PREP "AUX" OBJ)
+	<COND (<==? .GBIT ,RLANDBIT>
+	       <RETURN ,ROOMS>)>
+	<SETG P-GWIMBIT .GBIT>
+	<SETG P-SLOCBITS .LBIT>
+	<PUT ,P-MERGE ,P-MATCHLEN 0>
+	<COND (<GET-OBJECT ,P-MERGE <>>
+	       <SETG P-GWIMBIT 0>
+	       <COND (<==? <GET ,P-MERGE ,P-MATCHLEN> 1>
+		      <SET OBJ <GET ,P-MERGE 1>>
+		      <TELL "(">
+		      <COND (<AND <NOT <0? .PREP>>
+				  <NOT ,P-END-ON-PREP>>
+			     <PRINTB <SET PREP <PREP-FIND .PREP>>>
+			     <COND (<==? .PREP ,W?OUT>
+				    <TELL " of">)>
+			     <COND (<NOT <FSET? .OBJ ,NARTICLEBIT>>
+				    <TELL " the ">)
+				   (T
+				    <TELL " ">)>)>
+		      <TELL D .OBJ ")" CR>
+		      .OBJ)>)
+	      (T <SETG P-GWIMBIT 0> <RFALSE>)>>   
+ 
+<ROUTINE SNARF-OBJECTS ("AUX" PTR)
+	<COND (<NOT <==? <SET PTR <GET ,P-ITBL ,P-NC1>> 0>>
+	       <SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC1>>
+	       <OR <SNARFEM .PTR <GET ,P-ITBL ,P-NC1L> ,P-PRSO> <RFALSE>>
+	       <OR <0? <GET ,P-BUTS ,P-MATCHLEN>>
+		   <SETG P-PRSO <BUT-MERGE ,P-PRSO>>>)>
+	<COND (<NOT <==? <SET PTR <GET ,P-ITBL ,P-NC2>> 0>>
+	       <SETG P-SLOCBITS <GETB ,P-SYNTAX ,P-SLOC2>>
+	       <OR <SNARFEM .PTR <GET ,P-ITBL ,P-NC2L> ,P-PRSI> <RFALSE>>
+	       <COND (<NOT <0? <GET ,P-BUTS ,P-MATCHLEN>>>
+		      <COND (<==? <GET ,P-PRSI ,P-MATCHLEN> 1>
+			     <SETG P-PRSO <BUT-MERGE ,P-PRSO>>)
+			    (T <SETG P-PRSI <BUT-MERGE ,P-PRSI>>)>)>)>
+	<RTRUE>>  
+
+<ROUTINE BUT-MERGE (TBL "AUX" LEN BUTLEN (CNT 1) (MATCHES 0) OBJ NTBL)
+	<SET LEN <GET .TBL ,P-MATCHLEN>>
+	<PUT ,P-MERGE ,P-MATCHLEN 0>
+	<REPEAT ()
+		<COND (<DLESS? LEN 0> <RETURN>)
+		      (<INTBL? <SET OBJ <GET .TBL .CNT>> <REST ,P-BUTS 2>
+			       <GET ,P-BUTS 0>>)
+		      (T
+		       <PUT ,P-MERGE <+ .MATCHES 1> .OBJ>
+		       <SET MATCHES <+ .MATCHES 1>>)>
+		<SET CNT <+ .CNT 1>>>
+	<PUT ,P-MERGE ,P-MATCHLEN .MATCHES>
+	<SET NTBL ,P-MERGE>
+	<SETG P-MERGE .TBL>
+	.NTBL>    
+ 
+<GLOBAL P-NAM <>>   
+
+<GLOBAL P-ADJ <>>   
+ 
+;<GLOBAL P-ADVERB <>>
+
+;<GLOBAL P-ADJN <>>  ;"CLR"
+ 
+<GLOBAL P-PRSO <ITABLE NONE 50>>
+
+<GLOBAL P-PRSI <ITABLE NONE 50>>
+
+<GLOBAL P-BUTS <ITABLE NONE 50>>
+
+<GLOBAL P-MERGE <ITABLE NONE 50>>
+
+<GLOBAL P-OCLAUSE <ITABLE NONE 50>>
+ 
+<GLOBAL P-MATCHLEN 0>    
+ 
+<GLOBAL P-GETFLAGS 0>    
+ 
+<CONSTANT P-ALL 1>  
+ 
+<CONSTANT P-ONE 2>  
+ 
+<CONSTANT P-INHIBIT 4>   
+
+<GLOBAL P-CSPTR <>>
+<GLOBAL P-CEPTR <>>
+
+<ROUTINE SNARFEM (PTR EPTR TBL "AUX" (BUT <>) LEN WV WRD NW (WAS-ALL <>))
+   <SETG P-AND <>>
+   <COND (<==? ,P-GETFLAGS ,P-ALL>
+	  <SET WAS-ALL T>)>
+   <SETG P-GETFLAGS 0>
+   <SETG P-CSPTR .PTR>
+   <SETG P-CEPTR .EPTR>
+   <PUT ,P-BUTS ,P-MATCHLEN 0>
+   <PUT .TBL ,P-MATCHLEN 0>
+   <SET WRD <GET .PTR 0>>
+   <REPEAT ()
+	   <COND (<==? .PTR .EPTR>
+		  <SET WV <GET-OBJECT <OR .BUT .TBL>>>
+		  <COND (.WAS-ALL <SETG P-GETFLAGS ,P-ALL>)>
+		  <RETURN .WV>)
+		 (T
+		  <SET NW <GET .PTR ,P-LEXELEN>>
+		  <COND (<EQUAL? .WRD ,W?ALL ,W?BOTH>
+			 <SETG P-GETFLAGS ,P-ALL>
+			 <COND (<==? .NW ,W?OF>
+				<SET PTR <REST .PTR ,P-WORDLEN>>)>)
+			(<EQUAL? .WRD ,W?BUT ,W?EXCEPT>
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 <SET BUT ,P-BUTS>
+			 <PUT .BUT ,P-MATCHLEN 0>)
+			(<EQUAL? .WRD ,W?A ,W?ONE>
+			 <COND (<NOT ,P-ADJ>
+				<SETG P-GETFLAGS ,P-ONE>
+				<COND (<==? .NW ,W?OF>
+				       <SET PTR <REST .PTR ,P-WORDLEN>>)>)
+			       (T
+				<SETG P-NAM ,P-ONEOBJ>
+				<OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+				<AND <0? .NW> <RTRUE>>)>)
+			(<AND <EQUAL? .WRD ,W?AND ,W?COMMA>
+			      <NOT <EQUAL? .NW ,W?AND ,W?COMMA>>>
+			 <SETG P-AND T>
+			 <OR <GET-OBJECT <OR .BUT .TBL>> <RFALSE>>
+			 T)
+			(<WT? .WRD ,PS?BUZZ-WORD>)
+			(<EQUAL? .WRD ,W?AND ,W?COMMA>)
+			(<==? .WRD ,W?OF>
+			 <COND (<0? ,P-GETFLAGS>
+				<SETG P-GETFLAGS ,P-INHIBIT>)>)
+			(<AND ;<SET WV <WT? .WRD ,PS?ADJECTIVE ;,P1?ADJECTIVE>>
+			      <WT? .WRD ,PS?ADJECTIVE ;,P1?ADJECTIVE> ;"CLR"
+			      <ADJ-CHECK .WRD>                ;"GTB"
+			      ;"for LOOK AT CUP OF TEA"
+			      <OR <NOT <EQUAL? .WRD ,W?TEA>>
+				  <NOT <EQUAL? ,P-NAM ,W?CUP>>>>
+			 ;<SETG P-ADJ .WV> ;"CLR"
+			 <SETG P-ADJ .WRD>)
+			(<WT? .WRD ,PS?OBJECT ;,P1?OBJECT>
+			 <SETG P-NAM .WRD>
+			 <SETG P-ONEOBJ .WRD>)>)>
+	   <COND (<NOT <==? .PTR .EPTR>>
+		  <SET PTR <REST .PTR ,P-WORDLEN>>
+		  <SET WRD .NW>)>>>
+
+;"this ADJ-CHECK will grab the first adjective rather than the last, unless it
+  comes across INNER or OUTER"
+
+<ROUTINE ADJ-CHECK (WRD)
+	 <COND (<NOT ,P-ADJ>
+		<RTRUE>)
+	       (<EQUAL? .WRD ,W?INNER ,W?OUTER>
+		<RTRUE>)>>		
+
+<CONSTANT SH 128>   
+ 
+<CONSTANT SC 64>    
+ 
+<CONSTANT SIR 32>   
+ 
+<CONSTANT SOG 16>   
+ 
+<CONSTANT STAKE 8>  
+ 
+<CONSTANT SMANY 4>  
+ 
+<CONSTANT SHAVE 2>  
+
+<GLOBAL NOUN-MISSING "There seems to be a noun missing in that sentence.">
+
+<ROUTINE GET-OBJECT (TBL "OPTIONAL" (VRB T)
+		        "AUX" GEN BITS LEN XBITS TLEN (GCHECK <>) (OLEN 0) OBJ)
+	 <SET XBITS ,P-SLOCBITS>
+	 <SET TLEN <GET .TBL ,P-MATCHLEN>>
+	 <COND (<BTST ,P-GETFLAGS ,P-INHIBIT> <RTRUE>)>
+	 <COND (<AND <NOT ,P-NAM> ,P-ADJ <WT? ,P-ADJ ,PS?OBJECT ;,P1?OBJECT>>
+		<SETG P-NAM ,P-ADJ>
+		<SETG P-ADJ <>>)>
+	 <COND (<AND <NOT ,P-NAM>
+		     <NOT ,P-ADJ>
+		     <NOT <==? ,P-GETFLAGS ,P-ALL>>
+		     <0? ,P-GWIMBIT>>
+		<COND (.VRB
+		       <TELL ,NOUN-MISSING CR>)>
+		<RFALSE>)>
+	 <COND (<OR <NOT <==? ,P-GETFLAGS ,P-ALL>> <0? ,P-SLOCBITS>>
+		<SETG P-SLOCBITS -1>)>
+	 <SETG P-TABLE .TBL>
+	 <PROG ()
+	       <COND (.GCHECK <GLOBAL-CHECK .TBL>)
+		     (T
+		      <COND (,LIT
+			     <FCLEAR ,PLAYER ,TRANSBIT>
+			     <DO-SL ,HERE ,SOG ,SIR>
+			     <FSET ,PLAYER ,TRANSBIT>)>
+		      <DO-SL ,PLAYER ,SH ,SC>)>
+	       <SET LEN <- <GET .TBL ,P-MATCHLEN> .TLEN>>
+	       <COND (<BTST ,P-GETFLAGS ,P-ALL> ;<AND * <NOT <EQUAL? .LEN 0>>>)
+		     (<AND <BTST ,P-GETFLAGS ,P-ONE>
+			   <NOT <0? .LEN>>>
+		      <COND (<NOT <==? .LEN 1>>
+			     <PUT .TBL 1 <GET .TBL <RANDOM .LEN>>>
+			     <TELL "(How about the ">
+			     <PRINTD <GET .TBL 1>>
+			     <TELL "?)" CR>)>
+		      <PUT .TBL ,P-MATCHLEN 1>)
+		     (<OR <G? .LEN 1>
+			  <AND <0? .LEN> <NOT <==? ,P-SLOCBITS -1>>>>
+		      <COND (<==? ,P-SLOCBITS -1>
+			     <SETG P-SLOCBITS .XBITS>
+			     <SET OLEN .LEN>
+			     <PUT .TBL
+				  ,P-MATCHLEN
+				  <- <GET .TBL ,P-MATCHLEN> .LEN>>
+			     <AGAIN>)
+			    (T
+			     <COND (<0? .LEN> <SET LEN .OLEN>)>
+			     <COND (<AND <G? .LEN 1>
+					 <VERB? ASK-ABOUT WHAT>
+					 <OR <AND <EQUAL? ,P-NAM
+							  ,W?FLUFF ,W?DRIVE>
+						  <NOT ,P-ADJ>>
+					     <AND <EQUAL? ,P-NAM ,W?TOOLS
+							  	 ,W?TOOL>
+						  <EQUAL? ,P-ADJ ,W?PROPER>>
+					     <AND <EQUAL? ,P-NAM ,W?DRIVE>
+						  <EQUAL? ,P-ADJ ,W?IMPROBABI>>>>
+				    <SET GEN <GETP <GET .TBL .LEN> ,P?GENERIC>>
+				   <PUT .TBL ,P-MATCHLEN <SET LEN <+ .TLEN 1>>>
+				    <PUT .TBL .LEN .GEN>
+				    <SETG P-XNAM ,P-NAM>
+				    <SETG P-XADJ ,P-ADJ>
+				    ;<SETG P-XADJN ,P-ADJN> ;"GTB" ;"CLR"
+				    <SETG P-NAM <>>
+				    <SETG P-ADJ <>>
+				    ;<SETG P-ADJN <>> ;"GTB" ;"CLR"
+				    <RTRUE>)
+			      	   (<AND .VRB ;".VRB added 8/14/84 by JW"
+					 <NOT <==? ,WINNER ,PROTAGONIST>>>
+				    <CANT-ORPHAN>
+				    <SETG P-NAM <>>
+				    <SETG P-ADJ <>>
+				    <RFALSE>)
+				   (<AND .VRB ,P-NAM>
+				    <WHICH-PRINT .TLEN .LEN .TBL>
+				    <SETG P-ACLAUSE
+					  <COND (<==? .TBL ,P-PRSO> ,P-NC1)
+						(T ,P-NC2)>>
+				    <SETG P-AADJ ,P-ADJ>
+				    <SETG P-ANAM ,P-NAM>
+				    <ORPHAN <> <>>
+				    <SETG P-OFLAG T>)
+				   (.VRB
+				    <TELL ,NOUN-MISSING CR>)>
+			     <SETG P-NAM <>>
+			     <SETG P-ADJ <>>
+			     <RFALSE>)>)
+		     (<AND <0? .LEN> .GCHECK>
+		      <COND (.VRB
+			     <SETG P-SLOCBITS .XBITS>
+			     <COND (<OR ,LIT
+					<EQUAL? ,PRSA ,V?TELL>
+					<EQUAL? ,PRSA ,V?WHERE ,V?WHAT ,V?WHO>>
+				    ;"Changed 6/10/83 - MARC"
+				    <OBJ-FOUND ,NOT-HERE-OBJECT .TBL>
+				    <SETG P-XNAM ,P-NAM>
+				    <SETG P-XADJ ,P-ADJ>
+				    ;<SETG P-XADJN ,P-ADJN> ;"GTB" ;"CLR"
+				    <SETG P-NAM <>>
+				    <SETG P-ADJ <>>
+				    ;<SETG P-ADJN <>> ;"GTB" ;"CLR"
+				    <RTRUE>)
+				   (T
+				    <TELL ,TOO-DARK CR>)>)>
+		      <SETG P-NAM <>>
+		      <SETG P-ADJ <>>
+		      <RFALSE>)
+		     (<0? .LEN> <SET GCHECK T> <AGAIN>)>
+	       <SETG P-SLOCBITS .XBITS>
+	       <SETG P-NAM <>>
+	       <SETG P-ADJ <>>
+	       <RTRUE>>>
+
+<ROUTINE MOBY-FIND (TBL "AUX" FOO LEN)
+	 <SETG P-MOBY-FLAG T>
+	 <SETG P-SLOCBITS -1>
+	 <SETG P-TABLE .TBL>
+	 <SETG P-NAM ,P-XNAM>
+	 <SETG P-ADJ ,P-XADJ>
+	 <PUT .TBL ,P-MATCHLEN 0>
+	 <SET FOO <FIRST? ,ROOMS>>
+	 <REPEAT ()
+		 <COND (<NOT .FOO> <RETURN>)
+		       (T
+			<SEARCH-LIST .FOO .TBL ,P-SRCALL>
+			<SET FOO <NEXT? .FOO>>)>>
+	 <DO-SL ,LOCAL-GLOBALS 1 1>
+	 <SEARCH-LIST ,ROOMS .TBL ,P-SRCTOP>
+	 <COND (<EQUAL? <SET LEN <GET .TBL ,P-MATCHLEN>> 1>
+		<SETG P-MOBY-FOUND <GET .TBL 1>>)>
+	 <SETG P-MOBY-FLAG <>>
+	 <SETG P-NAM <>>
+	 <SETG P-ADJ <>>
+	 .LEN>
+
+<GLOBAL P-MOBY-FOUND <>>   
+<GLOBAL P-MOBY-FLAG <>>
+<GLOBAL P-XNAM <>>
+<GLOBAL P-XADJ <>>
+;<GLOBAL P-XADJN <>> ;"CLR"
+
+<ROUTINE WHICH-PRINT (TLEN LEN TBL "AUX" OBJ RLEN)
+	 <SET RLEN .LEN>
+	 <TELL "Which">
+         <COND (<OR ,P-OFLAG
+		    ,P-MERGED
+		    ,P-AND>
+		<TELL " ">
+		<PRINTB ,P-NAM>)
+	       (<EQUAL? .TBL ,P-PRSO>
+		<CLAUSE-PRINT ,P-NC1 ,P-NC1L <>>)
+	       (T
+		<CLAUSE-PRINT ,P-NC2 ,P-NC2L <>>)>
+	 <TELL " do you mean, ">
+	 <REPEAT ()
+		 <SET TLEN <+ .TLEN 1>>
+		 <SET OBJ <GET .TBL .TLEN>>
+		 <COND (<NOT <FSET? .OBJ ,NARTICLEBIT>>
+			<TELL "the ">)>
+		 <TELL D .OBJ>
+		 <COND (<EQUAL? .LEN 2>
+		        <COND (<NOT <EQUAL? .RLEN 2>>
+			       <TELL ",">)>
+		        <TELL " or ">)
+		       (<G? .LEN 2>
+			<TELL ", ">)>
+		 <COND (<L? <SET LEN <- .LEN 1>> 1>
+		        <TELL "?" CR>
+		        <RETURN>)>>>
+
+
+<ROUTINE GLOBAL-CHECK (TBL "AUX" LEN RMG RMGL (CNT 0) OBJ OBITS FOO)
+	 <SET LEN <GET .TBL ,P-MATCHLEN>>
+	 <SET OBITS ,P-SLOCBITS>
+	 <COND (<SET RMG <GETPT ,HERE ,P?GLOBAL>>
+		<SET RMGL </ <PTSIZE .RMG> 2>>
+		;<SET RMGL <- <PTSIZE .RMG> 1>>
+		<REPEAT ()
+			<COND (<THIS-IT? <SET OBJ <GET .RMG .CNT>> .TBL>
+			       <OBJ-FOUND .OBJ .TBL>)>
+			<COND (<IGRTR? CNT .RMGL>
+			       <RETURN>)>>)>
+	 <COND (<==? <GET .TBL ,P-MATCHLEN> .LEN>
+		<SETG P-SLOCBITS -1>
+		<SETG P-TABLE .TBL>
+		<DO-SL ,GLOBAL-OBJECTS 1 1>
+		<SETG P-SLOCBITS .OBITS>
+	       ;<COND (<AND <0? <GET .TBL ,P-MATCHLEN>>
+			    <EQUAL? ,PRSA ,V?LOOK-INSIDE ,V?SEARCH ,V?EXAMINE>>
+			<DO-SL ,ROOMS 1 1>)>)>>
+ 
+<ROUTINE DO-SL (OBJ BIT1 BIT2 "AUX" BTS)
+	<COND (<BTST ,P-SLOCBITS <+ .BIT1 .BIT2>>
+	       <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCALL>)
+	      (T
+	       <COND (<BTST ,P-SLOCBITS .BIT1>
+		      <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCTOP>)
+		     (<BTST ,P-SLOCBITS .BIT2>
+		      <SEARCH-LIST .OBJ ,P-TABLE ,P-SRCBOT>)
+		     (T <RTRUE>)>)>>  
+ 
+<CONSTANT P-SRCBOT 2>    
+<CONSTANT P-SRCTOP 0>    
+<CONSTANT P-SRCALL 1>    
+ 
+<ROUTINE SEARCH-LIST (OBJ TBL LVL "AUX" FLS NOBJ)
+	<COND (<SET OBJ <FIRST? .OBJ>>
+	       <REPEAT ()
+		       <COND (<AND <NOT <==? .LVL ,P-SRCBOT>>
+				   <GETPT .OBJ ,P?SYNONYM>
+				   <THIS-IT? .OBJ .TBL>>
+			      <OBJ-FOUND .OBJ .TBL>)>
+		       <COND (<AND <OR <NOT <==? .LVL ,P-SRCTOP>>
+				       <FSET? .OBJ ,SEARCHBIT>
+				       <FSET? .OBJ ,SURFACEBIT>>
+				   <SET NOBJ <FIRST? .OBJ>>>
+			      <COND (<OR <FSET? .OBJ ,OPENBIT>
+					 <FSET? .OBJ ,TRANSBIT>
+					 ,P-MOBY-FLAG>
+				     <SET FLS
+					  <SEARCH-LIST
+					   .OBJ
+					   .TBL
+					   <COND (<FSET? .OBJ ,SURFACEBIT>
+						  ,P-SRCALL)
+						 (<FSET? .OBJ ,SEARCHBIT>
+						  ,P-SRCALL)
+						 (T ,P-SRCTOP)>>>)>)>
+		       <COND (<SET OBJ <NEXT? .OBJ>>) (T <RETURN>)>>)>> 
+ 
+<ROUTINE OBJ-FOUND (OBJ TBL "AUX" PTR)
+	<SET PTR <GET .TBL ,P-MATCHLEN>>
+	<PUT .TBL <+ .PTR 1> .OBJ>
+	<PUT .TBL ,P-MATCHLEN <+ .PTR 1>>>
+
+<ROUTINE TAKE-CHECK () 
+	<AND <ITAKE-CHECK ,P-PRSO <GETB ,P-SYNTAX ,P-SLOC1>>
+	     <ITAKE-CHECK ,P-PRSI <GETB ,P-SYNTAX ,P-SLOC2>>>> 
+
+<ROUTINE ITAKE-CHECK (TBL IBITS "AUX" PTR OBJ TAKEN) ;"changed by MARC 11/83"
+   <COND (<AND <SET PTR <GET .TBL ,P-MATCHLEN>>
+	       <OR <BTST .IBITS ,SHAVE>
+	           <BTST .IBITS ,STAKE>>>
+	  <REPEAT ()
+	    <COND (<L? <SET PTR <- .PTR 1>> 0>
+		   <RETURN>)
+		  (T
+		   <SET OBJ <GET .TBL <+ .PTR 1>>>
+		   <COND (<==? .OBJ ,IT>
+			  <COND (<NOT <ACCESSIBLE? ,P-IT-OBJECT>>
+				 <TELL ,REFERRING CR>
+				 <RFALSE>)
+				(T
+				 <SET OBJ ,P-IT-OBJECT>)>)>
+		   <COND (<OR <HELD? .OBJ>
+			      <EQUAL? .OBJ ,HANDS ,SLEEVES ,SPEECH>
+			      <AND <EQUAL? .OBJ ,NO-TEA>
+				   ,HOLDING-NO-TEA>
+			      <AND <EQUAL? .OBJ ,GUARANTEE>
+				   <VERB? SHOW>>>
+			  T)
+			 (T
+			  <SETG PRSO .OBJ>
+			  <COND (<FSET? .OBJ ,TRYTAKEBIT>
+				 <SET TAKEN T>)
+				(<NOT <==? ,WINNER ,PROTAGONIST>>
+				 <SET TAKEN <>>)
+				(<AND <BTST .IBITS ,STAKE>
+				      <EQUAL? <ITAKE <>> T>>
+				 <SET TAKEN <>>)
+				(T
+				 <SET TAKEN T>)>
+			  <COND (<AND .TAKEN <BTST .IBITS ,SHAVE>>
+				 <COND (<L? 1 <GET .TBL ,P-MATCHLEN>>
+				        <TELL ,NOT-HOLDING
+					      " all those things!">
+					<CRLF>
+					<RFALSE>)
+				       (<EQUAL? .OBJ ,NOT-HERE-OBJECT>
+					<TELL "You can't see that here!" CR>
+					<RFALSE>)>
+				 <COND (<EQUAL? ,WINNER ,PROTAGONIST>
+					<TELL ,NOT-HOLDING>)
+				       (T
+					<TELL "It doesn't look like">
+					<ARTICLE ,WINNER T>
+					<TELL " is holding">)>
+				 <ARTICLE .OBJ T>
+				 <SETG P-IT-OBJECT .OBJ>
+				 <TELL "." CR>
+				 <RFALSE>)
+				(<AND <NOT .TAKEN>
+				      <==? ,WINNER ,PROTAGONIST>>
+				 <TELL "(Taking">
+				 <ARTICLE .OBJ T>
+				 <TELL " first)" CR>)>)>)>>)
+	       (T)>>
+
+<ROUTINE MANY-CHECK ("AUX" (LOSS <>) TMP)
+	<COND (<AND <G? <GET ,P-PRSO ,P-MATCHLEN> 1>
+		    <NOT <BTST <GETB ,P-SYNTAX ,P-SLOC1> ,SMANY>>>
+	       <SET LOSS 1>)
+	      (<AND <G? <GET ,P-PRSI ,P-MATCHLEN> 1>
+		    <NOT <BTST <GETB ,P-SYNTAX ,P-SLOC2> ,SMANY>>>
+	       <SET LOSS 2>)>
+	<COND (.LOSS
+	       <TELL "You can't use multiple ">
+	       <COND (<EQUAL? .LOSS 2>
+		      <TELL "in">)>
+	       <TELL "direct objects with \"">
+	       <SET TMP <GET ,P-ITBL ,P-VERBN>>
+	       <COND (<0? .TMP>
+		      <TELL "tell">)
+		     (<OR ,P-OFLAG ,P-MERGED>
+		      <PRINTB <GET .TMP 0>>)
+		     (T
+		      <WORD-PRINT <GETB .TMP 2> <GETB .TMP 3>>)>
+	       <TELL "\"." CR>
+	       <RFALSE>)
+	      (T)>>  
+ 
+;<ROUTINE ZMEMQ (ITM TBL "OPTIONAL" (SIZE -1) "AUX" (CNT 1)) 
+	<COND (<NOT .TBL> <RFALSE>)>
+	<COND (<NOT <L? .SIZE 0>> <SET CNT 0>)
+	      (ELSE <SET SIZE <GET .TBL 0>>)>
+	<REPEAT ()
+		<COND (<==? .ITM <GET .TBL .CNT>> <RTRUE>)
+		      (<IGRTR? CNT .SIZE> <RFALSE>)>>>    
+
+;<ROUTINE ZMEMQB (ITM TBL SIZE "AUX" (CNT 0)) 
+	<REPEAT ()
+		<COND (<EQUAL? .ITM <GETB .TBL .CNT>>
+		       <RTRUE>)
+		      (<IGRTR? CNT .SIZE>
+		       <RFALSE>)>>>
+
+<ROUTINE LIT? (RM "OPTIONAL" (RMBIT T) "AUX" OHERE (LIT <>))
+	<SETG P-GWIMBIT ,ONBIT>
+	<SET OHERE ,HERE>
+	<SETG HERE .RM>
+	<COND (<AND .RMBIT
+		    <FSET? .RM ,ONBIT>>
+	       <SET LIT T>)
+	      (T
+	       <PUT ,P-MERGE ,P-MATCHLEN 0>
+	       <SETG P-TABLE ,P-MERGE>
+	       <SETG P-SLOCBITS -1>
+	       <COND (<EQUAL? .OHERE .RM>
+		      <DO-SL ,WINNER 1 1>
+		      <COND (<AND <NOT <EQUAL? ,WINNER ,PLAYER>>
+				  <IN? ,PLAYER .RM>>
+			     <DO-SL ,PLAYER 1 1>)>)>
+	       <DO-SL .RM 1 1>
+	       <COND (<G? <GET ,P-TABLE ,P-MATCHLEN> 0>
+		      <SET LIT T>)>)>
+	<SETG HERE .OHERE>
+	<SETG P-GWIMBIT 0>
+	.LIT>
+
+<ROUTINE PRSO-PRINT ("AUX" PTR)
+	 <COND (<OR ,P-MERGED
+		    <==? <GET <SET PTR <GET ,P-ITBL ,P-NC1>> 0> ,W?IT>>
+		<TELL " " D ,PRSO>)
+	       (T <BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC1L> <>>)>>
+
+<ROUTINE PRSI-PRINT ("AUX" PTR)
+	 <COND (<OR ,P-MERGED
+		    <==? <GET <SET PTR <GET ,P-ITBL ,P-NC2>> 0> ,W?IT>>
+		<TELL " " D ,PRSO>)
+	       (T <BUFFER-PRINT .PTR <GET ,P-ITBL ,P-NC2L> <>>)>>
+
+;"former CRUFTY.ZIL routine"
+
+;<ROUTINE THIS-IT? (OBJ TBL "AUX" SYNS) 
+ <COND (<FSET? .OBJ ,INVISIBLE> <RFALSE>)
+       (<AND ,P-NAM
+	     <NOT <INTBL? ,P-NAM
+			 <SET SYNS <GETPT .OBJ ,P?SYNONYM>>
+			 <- </ <PTSIZE .SYNS> 2> 1>>>>
+	<RFALSE>)
+       (<AND ,P-ADJ
+	     <OR <NOT <SET SYNS <GETPT .OBJ ,P?ADJECTIVE>>>
+		 <NOT <INTBL? ,P-ADJ .SYNS <- <PTSIZE .SYNS> 1>>>>>
+	<RFALSE>)
+       (<AND <NOT <0? ,P-GWIMBIT>> <NOT <FSET? .OBJ ,P-GWIMBIT>>>
+	<RFALSE>)>
+ <RTRUE>>
+
+<ROUTINE THIS-IT? (OBJ TBL "AUX" SYNS)
+ <COND (<FSET? .OBJ ,INVISIBLE> <RFALSE>)
+       (<AND ,P-NAM
+	     <NOT <INTBL? ,P-NAM
+			 <SET SYNS <GETPT .OBJ ,P?SYNONYM>>
+			 </ <PTSIZE .SYNS> 2>>>>
+	<RFALSE>)
+       (<AND ,P-ADJ
+	     <OR <NOT <SET SYNS <GETPT .OBJ ,P?ADJECTIVE>>>
+		 ;<NOT <INTBL? ,P-ADJ .SYNS <- <PTSIZE .SYNS> 1>>>
+		 <NOT %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
+			      '<INTBL?  ,P-ADJ .SYNS
+					</ <PTSIZE .SYNS> 2>>)
+			     ;(T
+			      '<INTBL? ,P-ADJ .SYNS <RMGL-SIZE .SYNS> 1>)>>>>
+	<RFALSE>)
+       (<AND <NOT <ZERO? ,P-GWIMBIT>> <NOT <FSET? .OBJ ,P-GWIMBIT>>>
+	<RFALSE>)>
+ <RTRUE>>
+
diff --git a/syntax.zil b/syntax.zil
new file mode 100644
index 0000000..b2c2fe9
--- /dev/null
+++ b/syntax.zil
@@ -0,0 +1,631 @@
+"SYNTAX for
+		  THE HITCHHIKER'S GUIDE TO THE GALAXY
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved."
+
+<BUZZ A AN THE IS ARE AM AND OF THEN ALL EVERYTHING BUT EXCEPT \. \, \"
+      DON\'T DONT PRY PLEASE HERE SOME MORE FRONT G AGAIN OOPS O>
+
+<SYNONYM ALL EVERYTHING>
+<SYNONYM AGAIN G>
+<SYNONYM OOPS O>
+<SYNONYM TO TOWARD TOWARDS>
+<SYNONYM WITH USING>
+<SYNONYM THROUGH THRU>
+<SYNONYM ON ONTO>
+<SYNONYM OUT OUTSIDE>
+<SYNONYM IN INSIDE INTO>
+<SYNONYM UNDER BELOW BENEATH UNDERNEATH>
+<SYNONYM AROUND ALONG>
+<SYNONYM BEFORE NEAR NEXT AGAINST>
+<SYNONYM ALL BOTH>
+<SYNONYM DRUNK BOMBED SMASHED PLASTERED>
+
+<SYNONYM NORTH N FORE F FOREWARD>
+<SYNONYM SOUTH S AFT>
+<SYNONYM EAST E STARBOARD SB>
+<SYNONYM WEST W PORT P>
+<SYNONYM DOWN D>
+<SYNONYM UP U>
+<SYNONYM NW NORTHWEST>
+<SYNONYM NE NORTHEAST>
+<SYNONYM SW SOUTHWEST>
+<SYNONYM SE SOUTHEAST>
+
+
+;"game commands"
+
+<SYNTAX VERBOSE = V-VERBOSE>
+
+<SYNTAX BRIEF = V-BRIEF>
+
+<SYNTAX SUPER = V-SUPERBRIEF>
+<SYNONYM SUPER SUPERBRIEF>
+
+<SYNTAX DIAGNOSE = V-DIAGNOSE>
+
+<SYNTAX INVENT = V-INVENTORY>
+<SYNTAX I = V-INVENTORY>
+<SYNTAX I OBJECT = V-I-AM>
+<SYNONYM I I\'M IM>
+
+<SYNTAX QUIT = V-QUIT>
+<SYNONYM QUIT Q>
+
+<SYNTAX RESTART = V-RESTART>
+
+<SYNTAX RESTORE = V-RESTORE>
+
+<SYNTAX SAVE = V-SAVE>
+
+<SYNTAX SCORE = V-SCORE>
+
+<SYNTAX SCRIPT = V-SCRIPT>
+
+<SYNTAX UNSCRIPT = V-UNSCRIPT>
+
+<SYNTAX VERSION = V-VERSION>
+
+<SYNTAX $VERIFY = V-$VERIFY>
+<SYNTAX $VERIFY OBJECT = V-$VERIFY>
+<SYNONYM $VERIFY $VER>
+
+<SYNTAX $REFRESH = V-$REFRESH>
+
+;<SYNTAX $DEBUG = V-$DEBUG>
+
+;<SYNTAX $PROB = V-$PROB>
+
+
+;"subtitle real verbs"
+
+<SYNTAX ADDRESS OBJECT (FIND ACTORBIT) (IN-ROOM) = V-TELL>
+
+;<SYNTAX AGAIN = V-AGAIN>
+;<SYNONYM AGAIN G>
+
+<SYNTAX ANSWER = V-ANSWER>
+<SYNTAX ANSWER OBJECT = V-REPLY>
+<SYNTAX ANSWER TO OBJECT = V-REPLY>
+<SYNONYM ANSWER REPLY>
+
+<SYNTAX APPLAUD = V-APPLAUD>
+<SYNONYM APPLAUD CLAP CHEER>
+
+<SYNTAX APPRECIAT OBJECT = V-APPRECIATE>
+
+<SYNTAX APPROACH OBJECT = V-WALK-TO>
+
+<SYNTAX ASK OBJECT (FIND ACTORBIT) ABOUT OBJECT = V-ASK-ABOUT>
+<SYNTAX ASK OBJECT (FIND ACTORBIT) ON OBJECT = V-ASK-ABOUT>
+<SYNTAX ASK OBJECT (FIND ACTORBIT) FOR OBJECT = V-ASK-FOR>
+<SYNONYM ASK CONSULT QUERY>
+
+<SYNTAX ATTACK OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-KILL>
+<SYNTAX ATTACK OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM)
+	WITH OBJECT (HELD CARRIED HAVE) = V-KILL>
+<SYNONYM ATTACK ASSAULT FIGHT HIT SLAP KILL MURDER STRIKE PUNCH>
+
+<SYNTAX BITE OBJECT = V-BITE>
+
+<SYNTAX BLOCK OBJECT = V-BLOCK>
+<SYNTAX BLOCK OBJECT WITH OBJECT = V-BLOCK-WITH>
+<SYNONYM BLOCK STOP>
+
+<SYNTAX BOARD OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+<SYNONYM BOARD EMBARK>
+
+<SYNTAX BRUSH OBJECT = V-BRUSH>
+<SYNTAX BRUSH OBJECT WITH OBJECT (HAVE) = V-BRUSH>
+<SYNONYM BRUSH>
+
+<SYNTAX ORDER OBJECT = V-BUY>
+<SYNONYM ORDER BUY PURCHASE>
+
+<SYNTAX CARVE OBJECT ON OBJECT = V-CARVE PRE-CARVE>
+<SYNTAX CARVE OBJECT IN OBJECT = V-CARVE PRE-CARVE>
+<SYNTAX CARVE OBJECT WITH OBJECT (HAVE) = V-CARVE-WITH>
+<SYNONYM CARVE INSCRIBE SCRATCH WRITE>
+
+<SYNTAX CLIMB OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-FOO>
+<SYNTAX CLIMB ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX CLIMB UP OBJECT (FIND RLANDBIT) (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX CLIMB DOWN OBJECT (FIND RLANDBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX CLIMB OVER OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-OVER>
+<SYNTAX CLIMB IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+<SYNTAX CLIMB THROUGH OBJECT = V-THROUGH>
+<SYNONYM CLIMB SCALE>
+
+<SYNTAX CLOSE OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM) = V-CLOSE>
+<SYNTAX CLOSE OFF OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
+	= V-LAMP-OFF>
+<SYNONYM CLOSE SHUT>
+
+<SYNTAX CONNECT OBJECT TO OBJECT = V-PLUG>
+
+<SYNTAX COVER OBJECT WITH OBJECT (HELD MANY) = V-SPUT-ON>
+
+<SYNTAX COUNT OBJECT = V-COUNT>
+
+<SYNTAX CUT OBJECT WITH OBJECT (CARRIED HELD) = V-CUT>
+<SYNTAX CUT THROUGH OBJECT WITH OBJECT (CARRIED HELD) = V-CUT>
+<SYNONYM CUT SLICE>
+
+<SYNTAX DEMOLISH OBJECT (ON-GROUND IN-ROOM) = V-MUNG>
+<SYNTAX DEMOLISH OBJECT WITH OBJECT (HELD CARRIED TAKE) = V-MUNG>
+<SYNTAX DEMOLISH DOWN OBJECT = V-KILL>
+<SYNONYM DEMOLISH CRACK DESTROY DAMAGE BREAK SMASH WRECK>
+
+<SYNTAX DANGLE OBJECT (HELD MANY) IN OBJECT = V-PUT PRE-PUT>
+
+<SYNTAX DESCEND OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+
+<SYNTAX DIG IN OBJECT = V-DIG>
+<SYNTAX DIG WITH OBJECT = V-DIG>
+<SYNTAX DIG THROUGH OBJECT = V-DIG>
+
+<SYNTAX DISEMBARK OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-DISEMBARK>
+<SYNONYM DISEMBARK DEBARK>
+
+<SYNTAX DISROBE = V-GET-UNDRESSED>
+
+<SYNTAX DOZE = V-DOZE>
+<SYNONYM DOZE NAP SNOOZE>
+
+<SYNTAX DRESS = V-GET-DRESSED>
+
+<SYNTAX DRINK OBJECT (FIND DRINKBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-DRINK>
+<SYNTAX DRINK FROM OBJECT (HELD CARRIED) = V-DRINK-FROM>
+<SYNONYM DRINK SIP SWALLOW IMBIBE QUAFF GUZZLE SWILL>
+
+<SYNTAX DROP OBJECT (HELD MANY HAVE) = V-DROP PRE-DROP>
+<SYNTAX DROP OBJECT (HELD MANY) BEFORE OBJECT = V-PUT-IN-FRONT PRE-GIVE>
+<SYNTAX DROP OBJECT (HELD MANY) DOWN OBJECT = V-PUT PRE-PUT>
+<SYNTAX DROP OBJECT (HELD MANY) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX DROP OBJECT (HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
+
+<SYNTAX EAT OBJECT (FIND EATBIT) (HELD CARRIED ON-GROUND IN-ROOM) = V-EAT>
+<SYNONYM EAT DEVOUR INGEST GOBBLE>
+
+<SYNTAX ENJOY OBJECT = V-ENJOY>
+
+<SYNTAX ENTER = V-ENTER>
+<SYNTAX ENTER OBJECT = V-THROUGH>
+
+<SYNTAX EXIT = V-EXIT>
+<SYNTAX EXIT OBJECT = V-EXIT>
+<SYNONYM EXIT DEPART WITHDRAW>
+
+<SYNTAX ESCAPE = V-ESCAPE>
+<SYNTAX ESCAPE OBJECT = V-ESCAPE>
+<SYNTAX ESCAPE FROM OBJECT = V-ESCAPE>
+<SYNONYM ESCAPE FLEE>
+
+<SYNTAX EXAMINE OBJECT (HELD CARRIED ON-GROUND IN-ROOM) (FIND DARKBIT)
+	= V-EXAMINE PRE-READ>
+<SYNTAX EXAMINE OBJECT THROUGH OBJECT = V-EXAMINE-THROUGH PRE-READ>
+<SYNTAX EXAMINE IN OBJECT (HELD CARRIED IN-ROOM ON-GROUND)
+	= V-LOOK-INSIDE>
+<SYNTAX EXAMINE ON OBJECT (HELD CARRIED IN-ROOM ON-GROUND)
+	= V-LOOK-INSIDE>
+<SYNTAX EXAMINE FOR OBJECT = V-FIND>
+<SYNONYM EXAMINE X INSPECT DESCRIBE STUDY OBSERVE SEE SCOUR>
+
+<SYNTAX EXTINGUISH OBJECT (FIND ONBIT) = V-LAMP-OFF>
+
+<SYNTAX FEED OBJECT (FIND ACTORBIT) = V-FEED>
+<SYNTAX FEED OBJECT (MANY HELD HAVE) TO OBJECT (FIND ACTORBIT) (ON-GROUND)
+	= V-GIVE PRE-GIVE>
+<SYNTAX FEED OBJECT (FIND ACTORBIT) (ON-GROUND) OBJECT (MANY HELD HAVE)
+	= V-SGIVE>
+
+<SYNTAX FILL OBJECT = V-FILL>
+
+<SYNTAX FIND OBJECT = V-FIND>
+<SYNONYM FIND SEEK>
+
+<SYNTAX FOLLOW OBJECT = V-FOLLOW>
+<SYNONYM FOLLOW PURSUE CHASE>
+
+<SYNTAX FOOTNOTE = V-FOOTNOTE>
+<SYNTAX FOOTNOTE OBJECT = V-FOOTNOTE>
+
+<SYNTAX FRIPPING = V-FRIPPING>
+<SYNONYM FRIPPING LYSHUS GASHEE MORPHOUSI THOU BLEEM MISERABLE VENCHIT WIMBGUNTS>
+
+<SYNTAX HAND OBJECT (MANY HELD HAVE) TO OBJECT (FIND ACTORBIT) (ON-GROUND)
+	= V-GIVE PRE-GIVE>
+<SYNTAX HAND OBJECT (FIND ACTORBIT) (ON-GROUND) OBJECT (MANY HELD HAVE)
+	= V-SGIVE>
+<SYNTAX HAND UP OBJECT (FIND RLANDBIT) = V-GIVE-UP>
+<SYNONYM HAND GIVE SELL DONATE OFFER>
+
+<SYNTAX HANG OBJECT ON OBJECT = V-HANG>
+<SYNTAX HANG OBJECT FROM OBJECT = V-HANG>
+<SYNTAX HANG OBJECT (HELD MANY) IN OBJECT = V-PUT PRE-PUT>
+
+<SYNTAX HEAR OBJECT (FIND DARKBIT) = V-LISTEN>
+
+<SYNTAX HELLO = V-HELLO>
+<SYNTAX HELLO OBJECT = V-HELLO>
+<SYNONYM HELLO HI>
+
+<SYNTAX HIDE = V-HIDE>
+<SYNTAX HIDE UNDER OBJECT = V-HIDE>
+<SYNTAX HIDE BEHIND OBJECT = V-HIDE>
+
+<SYNTAX HELP = V-HINTS>
+<SYNTAX HELP OBJECT = V-SAVE-SOMETHING>
+<SYNTAX HELP OFF OBJECT (FIND RLANDBIT) = V-HINTS-NO>
+<VERB-SYNONYM HELP HINT HINTS CLUE CLUES VISICLUES INVISICLUES>
+
+<SYNTAX HITCHHIKE = V-HITCHHIKE>
+<SYNONYM HITCHHIKE HITCH>
+
+<SYNTAX IDIOT = V-IDIOT>
+<SYNONYM IDIOT>
+
+<SYNTAX JUMP = V-LEAP>
+<SYNTAX JUMP OVER OBJECT = V-LEAP>
+<SYNTAX JUMP ACROSS OBJECT = V-LEAP>
+<SYNTAX JUMP IN OBJECT = V-THROUGH>
+<SYNTAX JUMP FROM OBJECT = V-LEAP>
+<SYNTAX JUMP OFF OBJECT = V-LEAP>
+<SYNTAX JUMP OUT OBJECT = V-THROUGH>
+<SYNTAX JUMP THROUGH OBJECT = V-THROUGH>
+<SYNONYM JUMP LEAP DIVE>
+
+<SYNTAX KICK OBJECT = V-KICK>
+
+<SYNTAX KISS OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-KISS>
+
+<SYNTAX KNEEL = V-KNEEL>
+<SYNONYM KNEEL CRAWL PEEK>
+
+<SYNTAX KNOCK AT OBJECT = V-KNOCK>
+<SYNTAX KNOCK ON OBJECT = V-KNOCK>
+<SYNTAX KNOCK DOWN OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-KILL>
+<SYNONYM KNOCK RAP>
+
+<SYNTAX LEAVE = V-LEAVE>
+<SYNTAX LEAVE OBJECT = V-LEAVE>
+
+<SYNTAX LIE ON OBJECT (FIND VEHBIT) = V-LIE-DOWN>
+<SYNTAX LIE IN OBJECT (FIND VEHBIT) = V-LIE-DOWN>
+<SYNTAX LIE DOWN OBJECT (FIND RLANDBIT) = V-LIE-DOWN>
+<SYNTAX LIE BEFORE OBJECT = V-BLOCK>
+<SYNONYM LIE RECLINE>
+
+<SYNTAX LIGHT OBJECT (FIND LIGHTBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-LAMP-ON>
+
+<SYNTAX LISTEN TO OBJECT (FIND DARKBIT) = V-LISTEN>
+
+<SYNTAX LOCK OBJECT (ON-GROUND IN-ROOM) = V-LOCK>
+<SYNTAX LOCK OBJECT (ON-GROUND IN-ROOM) WITH OBJECT (TAKE) = V-LOCK>
+
+<SYNTAX LOOK = V-LOOK>
+<SYNTAX LOOK AROUND OBJECT (FIND RLANDBIT) = V-LOOK>
+<SYNTAX LOOK DOWN OBJECT (FIND RLANDBIT) = V-LOOK-DOWN>
+<SYNTAX LOOK UP OBJECT (FIND RLANDBIT) = V-LOOK-UP>
+<SYNTAX LOOK AT OBJECT (HELD CARRIED ON-GROUND IN-ROOM) (FIND DARKBIT)
+	= V-EXAMINE PRE-READ>
+<SYNTAX LOOK AT OBJECT THROUGH OBJECT = V-EXAMINE-THROUGH PRE-READ>
+<SYNTAX LOOK THROUGH OBJECT = V-LOOK-INSIDE>
+<SYNTAX LOOK OUT OBJECT = V-LOOK-INSIDE>
+<SYNTAX LOOK UNDER OBJECT = V-LOOK-UNDER PRE-READ>
+<SYNTAX LOOK BEHIND OBJECT = V-LOOK-BEHIND PRE-READ>
+<SYNTAX LOOK IN OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-LOOK-INSIDE>
+<SYNTAX LOOK ON OBJECT = V-EXAMINE PRE-READ>
+<SYNTAX LOOK FOR OBJECT = V-FIND>
+<SYNTAX LOOK OBJECT = V-CHASTISE>
+<SYNONYM LOOK L STARE GAZE>
+
+<SYNTAX LOWER OBJECT = V-LOWER>
+
+<SYNTAX MAKE OBJECT = V-MAKE>
+
+<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) = V-MOVE>
+<SYNTAX MOVE OBJECT OBJECT = V-FLIPSWITCH>
+<SYNTAX MOVE TOGETHER OBJECT = V-PULL-TOGETHER> ;"pull myself together"
+<SYNONYM MOVE PULL>
+
+<SYNTAX MY OBJECT OBJECT = V-MY-NAME>
+
+<SYNTAX NO = V-NO>
+
+<SYNTAX OPEN OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM) = V-OPEN>
+<SYNTAX OPEN UP	OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	= V-OPEN>
+<SYNTAX OPEN OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
+	WITH OBJECT (ON-GROUND IN-ROOM HELD CARRIED HAVE) = V-OPEN>
+<SYNONYM OPEN PART DRAW>
+
+<SYNTAX PANIC = V-PANIC>
+
+<SYNTAX PAY FOR OBJECT = V-BUY>
+
+<SYNTAX PHONE OBJECT = V-CALL>
+<SYNTAX PHONE OBJECT WITH OBJECT = V-CALL-WITH>
+<SYNTAX PHONE OBJECT ON OBJECT = V-CALL-WITH>
+<SYNONYM PHONE CALL>
+
+<SYNTAX PICK OBJECT = V-PICK>
+<SYNTAX PICK OBJECT WITH OBJECT = V-PICK>
+<SYNTAX PICK UP OBJECT (FIND TAKEBIT) (ON-GROUND MANY) = V-PICK-UP PRE-TAKE>
+
+<SYNTAX PLANT OBJECT (HELD MANY) IN OBJECT = V-PLANT>
+<SYNONYM PLANT BURY>
+
+<SYNTAX PLUG OBJECT IN OBJECT = V-PLUG>
+<SYNTAX PLUG OBJECT TO OBJECT = V-PLUG>
+<SYNTAX PLUG IN OBJECT IN OBJECT = V-PLUG>
+<SYNTAX PLUG IN OBJECT TO OBJECT = V-PLUG>
+
+<SYNTAX POINT AT OBJECT = V-POINT>
+<SYNTAX POINT TO OBJECT = V-POINT>
+<SYNTAX POINT OBJECT AT OBJECT = V-STEER>
+<SYNTAX POINT OBJECT TO OBJECT = V-STEER>
+<SYNONYM POINT STEER>
+
+<SYNTAX POUR OBJECT (HELD CARRIED) = V-POUR>
+<SYNTAX POUR OBJECT (HELD CARRIED) IN OBJECT = V-POUR>
+<SYNTAX POUR OBJECT (HELD CARRIED) ON OBJECT = V-POUR>
+<SYNTAX POUR OBJECT (HELD CARRIED) OVER OBJECT = V-POUR>
+<SYNONYM POUR SPILL SPRINKLE>
+
+<SYNTAX PROTEST = V-PROTEST>
+<SYNONYM PROTEST ARGUE>
+
+<SYNTAX PUSH OBJECT = V-PUSH>
+<SYNTAX PUSH OBJECT OBJECT = V-FLIPSWITCH>
+<SYNTAX PUSH ON OBJECT (IN-ROOM ON-GROUND) = V-PUSH>
+<SYNTAX PUSH OBJECT UNDER OBJECT = V-PUT-UNDER>
+<SYNONYM PUSH PRESS>
+
+<SYNTAX PUT OBJECT (HELD MANY) IN OBJECT = V-PUT PRE-PUT>
+<SYNTAX PUT OBJECT (HELD MANY) AT OBJECT = V-PUT-IN-FRONT PRE-GIVE>
+<SYNTAX PUT OBJECT (HELD MANY) BEFORE OBJECT = V-PUT-IN-FRONT PRE-GIVE>
+<SYNTAX PUT OBJECT (HELD MANY) DOWN OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX PUT OBJECT (HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX PUT OBJECT (HELD MANY) AROUND OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX PUT OBJECT (HELD MANY) OVER OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX PUT OBJECT (HELD MANY) ACROSS OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX PUT DOWN OBJECT (HELD MANY HAVE) = V-DROP PRE-DROP>
+<SYNTAX PUT OBJECT UNDER OBJECT = V-PUT-UNDER> 
+<SYNTAX PUT ON OBJECT (FIND WEARBIT) (HAVE) = V-WEAR>
+<SYNTAX PUT OBJECT BEHIND OBJECT = V-PUT-BEHIND>
+<SYNONYM PUT STUFF INSERT PLACE LAY>
+
+<SYNTAX RAISE OBJECT = V-RAISE>
+<SYNTAX RAISE UP OBJECT = V-RAISE>
+<SYNONYM RAISE LIFT>
+
+<SYNTAX RAPE OBJECT (FIND ACTORBIT) = V-RAPE>
+
+;<SYNTAX REACH IN OBJECT (ON-GROUND IN-ROOM) = V-REACH-IN>
+
+<SYNTAX READ OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
+	= V-READ PRE-READ>
+<SYNTAX READ OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
+	THROUGH OBJECT = V-READ PRE-READ>
+<SYNTAX READ OBJECT (FIND READBIT) (HELD CARRIED ON-GROUND IN-ROOM TAKE)
+	WITH OBJECT = V-READ PRE-READ>
+<SYNONYM READ SKIM>
+
+<SYNTAX REFUSE OBJECT (IN-ROOM) = V-REFUSE>
+
+<SYNTAX RELAX = V-RELAX>
+
+<SYNTAX REMOVE OBJECT (FIND WORNBIT) = V-REMOVE>
+<SYNTAX REMOVE OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
+	FROM OBJECT = V-TAKE PRE-TAKE>
+<SYNONYM REMOVE DOFF SHED>
+
+<SYNTAX REPAIR OBJECT = V-REPAIR>
+<SYNONYM REPAIR FIX UNJAM>
+
+<SYNTAX REPLACE OBJECT = V-REPLACE>
+
+<SYNTAX SAVE OBJECT = V-SAVE-SOMETHING>
+
+<SYNTAX SAY TO OBJECT (FIND ACTORBIT) (IN-ROOM) = V-TELL>
+<SYNTAX SAY OBJECT = V-SAY-NAME>
+<SYNTAX SAY = V-SAY>
+<SYNONYM SAY TALK SPEAK>
+
+<SYNTAX SEARCH OBJECT = V-SEARCH>
+<SYNTAX SEARCH IN OBJECT = V-SEARCH>
+<SYNTAX SEARCH FOR OBJECT = V-FIND>
+<SYNONYM SEARCH RUMMAGE FRISK>
+
+<SYNTAX SHAKE OBJECT = V-SHAKE>
+<SYNTAX SHAKE OBJECT WITH OBJECT = V-SHAKE-WITH>
+
+<SYNTAX SHOOT = V-SHOOT>
+<SYNTAX SHOOT OBJECT = V-SHOOT>
+<SYNTAX SHOOT OBJECT WITH OBJECT (HAVE) = V-SHOOT>
+<SYNTAX SHOOT OBJECT (HAVE) AT OBJECT = V-SSHOOT>
+<SYNONYM SHOOT FIRE BLAST>
+
+<SYNTAX SHOW OBJECT (HELD MANY HAVE) TO OBJECT (FIND ACTORBIT) = V-SHOW>
+<SYNTAX SHOW OBJECT (FIND ACTORBIT) OBJECT (HELD MANY HAVE) = V-SSHOW>
+
+<SYNTAX SIT ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX SIT DOWN OBJECT (FIND RLANDBIT) (ON-GROUND IN-ROOM) = V-SIT>
+<SYNTAX SIT IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+<SYNONYM SIT REST SQUAT>
+
+<SYNTAX SKIP = V-SKIP>
+<SYNONYM SKIP HOP>
+
+<SYNTAX SLEEP = V-SLEEP>
+<SYNTAX SLEEP IN OBJECT (IN-ROOM ON-GROUND) = V-BOARD PRE-BOARD>
+<SYNTAX SLEEP ON OBJECT (IN-ROOM ON-GROUND) = V-BOARD PRE-BOARD>
+
+<SYNTAX SLIDE OBJECT = V-PUSH>
+<SYNTAX SLIDE OBJECT UNDER OBJECT = V-PUT-UNDER>
+
+<SYNTAX SMELL OBJECT (FIND DARKBIT) = V-SMELL>
+<SYNONYM SMELL SNIFF WHIFF>
+
+<SYNTAX SMILE = V-SMILE>
+<SYNTAX SMILE AT OBJECT = V-SMILE>
+
+<SYNTAX SPIN OBJECT = V-SPIN>
+<SYNONYM SPIN WHIRL ROTATE>
+
+<SYNTAX STAND = V-STAND>
+<SYNTAX STAND UP OBJECT (FIND RLANDBIT) = V-STAND>
+<SYNTAX STAND ON OBJECT = V-STAND-ON>
+<SYNTAX STAND BEFORE OBJECT = V-STAND-BEFORE>
+<SYNTAX STAND IN OBJECT = V-STAND-ON>
+<SYNONYM STAND RISE>
+
+<SYNTAX START OBJECT = V-LAMP-ON>
+<SYNONYM START ACTIVATE>
+
+<SYNTAX SWITCH OBJECT = V-TURN>
+<SYNTAX SWITCH OBJECT OBJECT = V-FLIPSWITCH>
+<SYNTAX SWITCH AROUND OBJECT (FIND RLANDBIT) = V-TURN>
+<SYNTAX SWITCH OBJECT TO OBJECT = V-TURN>
+<SYNTAX SWITCH OBJECT WITH OBJECT (HAVE) = V-TURN>
+<SYNTAX SWITCH ON OBJECT (FIND LIGHTBIT) = V-LAMP-ON>
+<SYNTAX SWITCH ON OBJECT OBJECT = V-FLIPSWITCH>
+<SYNTAX SWITCH OFF OBJECT (FIND LIGHTBIT) (TAKE) = V-LAMP-OFF>
+<SYNTAX SWITCH OFF OBJECT OBJECT = V-FLIPSWITCH>
+<SYNONYM SWITCH TURN FLIP FLICK TOGGLE>
+
+<SYNTAX TAKE OBJECT (FIND TAKEBIT) (ON-GROUND IN-ROOM MANY) = V-TAKE PRE-TAKE>
+<SYNTAX TAKE IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
+<SYNTAX TAKE OUT OBJECT (FIND VEHBIT) (ON-GROUND) = V-DISEMBARK>
+<SYNTAX TAKE ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
+<SYNTAX TAKE UP OBJECT (FIND RLANDBIT) = V-STAND>
+<SYNTAX TAKE DRESSED OBJECT (FIND RLANDBIT) = V-GET-DRESSED>
+<SYNTAX TAKE UNDRESSED OBJECT (FIND RLANDBIT) = V-GET-UNDRESSED>
+<SYNTAX TAKE DRUNK OBJECT (FIND RLANDBIT) = V-GET-DRUNK>
+<SYNTAX TAKE OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
+	OUT OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (FIND TAKEBIT) (CARRIED IN-ROOM MANY)
+	OFF OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
+	FROM OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
+	IN OBJECT = V-TAKE PRE-TAKE>
+<SYNTAX TAKE OFF OBJECT (FIND WORNBIT) (HAVE) = V-TAKE-OFF>
+<SYNONYM TAKE GRAB CATCH GET HOLD CARRY>
+
+<SYNTAX TASTE OBJECT (FIND DARKBIT) = V-TASTE>
+<SYNONYM TASTE LICK>
+
+<SYNTAX TELL OBJECT (FIND ACTORBIT) (IN-ROOM) = V-TELL>
+<SYNTAX TELL OBJECT (FIND ACTORBIT) ABOUT OBJECT = V-TELL-ABOUT>
+<SYNTAX TELL OBJECT OBJECT = V-TELL-TIME>
+<SYNTAX TELL OBJECT TO OBJECT = V-TELL-NAME>
+
+<SYNTAX THANK OBJECT = V-THANK>
+<SYNONYM THANK THANKS>
+
+<SYNTAX THROW OBJECT (HELD CARRIED) = V-THROW PRE-THROW>
+<SYNTAX THROW OBJECT OBJECT = V-FLIPSWITCH>
+<SYNTAX THROW OBJECT (HELD CARRIED) UP OBJECT (FIND RLANDBIT)
+	= V-THROW PRE-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED) AT OBJECT (ON-GROUND IN-ROOM)
+	= V-THROW PRE-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED) TO OBJECT (ON-GROUND IN-ROOM)
+	= V-THROW PRE-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED) OFF OBJECT = V-THROW-OFF>
+<SYNTAX THROW OBJECT (HELD CARRIED) OVER OBJECT = V-THROW-OFF>
+<SYNTAX THROW OBJECT (HELD CARRIED) THROUGH OBJECT (ON-GROUND IN-ROOM)
+	= V-THROW PRE-THROW>
+<SYNTAX THROW OBJECT (HELD CARRIED) IN OBJECT = V-THROW PRE-THROW>
+<SYNTAX THROW IN OBJECT = V-THROW-IN-TOWEL>
+<SYNONYM THROW HURL TOSS>
+
+<SYNTAX TIE OBJECT = V-TIE>
+<SYNTAX TIE TOGETHER OBJECT = V-TIE-TOGETHER>
+<SYNTAX TIE OBJECT (HELD MANY) AROUND OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX TIE OBJECT TO OBJECT = V-PLUG>
+<SYNONYM TIE FASTEN SECURE ATTACH>
+
+<SYNTAX TOUCH OBJECT (FIND DARKBIT) = V-RUB>
+<SYNTAX TOUCH OBJECT WITH OBJECT = V-RUB>
+<SYNONYM TOUCH FEEL PAT PET RUB>
+
+<SYNTAX TYPE = V-TYPE>
+<SYNTAX TYPE ON OBJECT = V-TYPE-ON>
+
+<SYNTAX UNDRESS = V-GET-UNDRESSED>
+
+<SYNTAX UNLOCK OBJECT = V-UNLOCK>
+<SYNTAX UNLOCK OBJECT WITH OBJECT (HAVE) = V-UNLOCK>
+
+<SYNTAX UNPLUG OBJECT = V-UNPLUG>
+<SYNONYM UNPLUG DISCONNEC>
+
+<SYNTAX UNTIE OBJECT (ON-GROUND IN-ROOM HELD CARRIED) = V-UNTIE>
+<SYNONYM UNTIE FREE UNFASTEN UNATTACH UNKNOT>
+
+<SYNTAX WAIT = V-WAIT>
+<SYNTAX WAIT FOR OBJECT = V-WAIT-FOR>
+<SYNONYM WAIT Z STAY>
+
+<SYNTAX WAKE OBJECT (FIND RLANDBIT) = V-ALARM>
+<SYNTAX WAKE UP OBJECT (FIND RLANDBIT) = V-ALARM>
+<SYNONYM WAKE AWAKE ROUSE>
+
+<SYNTAX WALK = V-WALK-AROUND>
+<SYNTAX WALK OBJECT = V-WALK>
+<SYNTAX WALK IN OBJECT = V-THROUGH>
+<SYNTAX WALK OUT OBJECT = V-THROUGH>
+<SYNTAX WALK ON OBJECT = V-WALK-AROUND>
+<SYNTAX WALK OVER OBJECT = V-LEAP>
+<SYNTAX WALK THROUGH OBJECT = V-THROUGH>
+<SYNTAX WALK AROUND OBJECT = V-WALK-AROUND>
+<SYNTAX WALK BEHIND OBJECT = V-WALK-AROUND>
+<SYNTAX WALK UP OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-UP>
+<SYNTAX WALK DOWN OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
+<SYNTAX WALK TO OBJECT = V-WALK-TO>
+<SYNTAX WALK AWAY OBJECT (FIND RLANDBIT) = V-LEAVE>
+<SYNONYM WALK GO RUN PROCEED STEP>
+
+<SYNTAX WASH OBJECT = V-CLEAN>
+<SYNTAX WASH UP OBJECT (FIND RLANDBIT) = V-CLEAN>
+<SYNONYM WASH CLEAN TIDY>
+
+<SYNTAX WATER OBJECT WITH OBJECT (HAVE) = V-WATER>
+
+<SYNTAX WAVE OBJECT (HELD CARRIED) = V-WAVE>
+<SYNTAX WAVE = V-WAVE-AT>
+<SYNTAX WAVE AT OBJECT = V-WAVE-AT>
+<SYNTAX WAVE TO OBJECT = V-WAVE-AT>
+
+<SYNTAX WEAR OBJECT (FIND WEARBIT) (HAVE) = V-WEAR>
+<SYNONYM WEAR DON>
+
+<SYNTAX WHAT OBJECT = V-WHAT>
+<SYNTAX WHAT ABOUT OBJECT = V-WHAT-ABOUT>
+<SYNTAX WHAT OBJECT OBJECT = V-WHAT-TIME>
+<SYNONYM WHAT WHATS WHAT\'S>
+
+<SYNTAX WHERE OBJECT = V-WHERE>
+<SYNONYM WHERE WHERES WHERE\'S>
+
+<SYNTAX WHO OBJECT = V-WHO>
+<SYNONYM WHO WHOS WHO\'S>
+
+<SYNTAX WHY = V-WHY>
+
+<SYNTAX DRAPE OBJECT IN OBJECT (HELD MANY) = V-SPUT-ON>
+<SYNTAX DRAPE OBJECT (HELD MANY) ON OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX DRAPE OBJECT (HELD MANY) AROUND OBJECT = V-PUT-ON PRE-PUT>
+<SYNTAX DRAPE OBJECT (HELD MANY) OVER OBJECT = V-PUT-ON PRE-PUT>
+<SYNONYM DRAPE WRAP>
+
+<SYNTAX YELL = V-YELL>
+<SYNTAX YELL AT OBJECT = V-YELL>
+<SYNTAX YELL TO OBJECT = V-YELL>
+<SYNONYM YELL SCREAM SHOUT HOWL>
+
+<SYNTAX YES = V-YES>
+<SYNONYM YES Y OK OKAY SURE>
\ No newline at end of file
diff --git a/unearth.zabstr b/unearth.zabstr
new file mode 100644
index 0000000..e23effa
--- /dev/null
+++ b/unearth.zabstr
@@ -0,0 +1,230 @@
+
+<OBJECT LAIR-OBJECT (LOC LOCAL-GLOBALS) (DESC "lair") (SYNONYM LAIR COURTYARD
+YARD) (ADJECTIVE COURT INNER OUTER) (ACTION LAIR-OBJECT-F)> 
+<DEFINE-ROUTINE LAIR-OBJECT-F> 
+<ROOM LAIR (LOC ROOMS) (DESC "Lair") (EAST TO OUTER-LAIR) (SW PER
+INNER-LAIR-ENTER-F) (FLAGS RLANDBIT ONBIT) (GLOBAL LAIR-OBJECT) (ACTION LAIR-F)
+> 
+<DEFINE-ROUTINE INNER-LAIR-ENTER-F> 
+<DEFINE-ROUTINE LAIR-F> 
+<GLOBAL NAME-TOLD <>> 
+<GLOBAL BEARINGS-LOST <>> 
+<GLOBAL BEAST-COUNTER 0> 
+<ROOM OUTER-LAIR (LOC ROOMS) (DESC "Beast's Outer Lair") (WEST TO LAIR) (FLAGS
+RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL LAIR-OBJECT) (ACTION OUTER-LAIR-F)> 
+<OBJECT BONES (LOC OUTER-LAIR) (SYNONYM BONE BONES) (ADJECTIVE GNAWED) (DESC
+"bone") (FLAGS NDESCBIT) (ACTION UNIMPORTANT-THING-F)> 
+<DEFINE-ROUTINE OUTER-LAIR-F> 
+<OBJECT MEMORIAL (LOC OUTER-LAIR) (DESC "sandstone memorial") (SYNONYM MEMORIAL
+LIST REMEMBRAN MONUMENT) (ADJECTIVE SANDSTONE) (FLAGS NDESCBIT READBIT) (ACTION
+MEMORIAL-F)> 
+<DEFINE-ROUTINE MEMORIAL-F> 
+<OBJECT STONE (LOC OUTER-LAIR) (DESC "sharp stone") (SYNONYM STONE STONES ROCK
+ROCKS) (ADJECTIVE SHARP) (FLAGS NDESCBIT TAKEBIT TRYTAKEBIT) (SIZE 20) (ACTION
+STONE-F)> 
+<DEFINE-ROUTINE STONE-F> 
+<OBJECT BEAST (LOC LAIR) (DESC "Ravenous Bugblatter Beast of Traal") (DESCFCN
+BEAST-DESCFCN) (SYNONYM BEAST TRAAL) (ADJECTIVE RAVENOUS BUGBLATTE BEAST) (
+FLAGS ACTORBIT) (ACTION BEAST-F)> 
+<DEFINE-ROUTINE BEAST-DESCFCN> 
+<DEFINE-ROUTINE BEAST-F> 
+<DEFINE-ROUTINE I-BEAST> 
+<DEFINE-ROUTINE BEAST-DEATH> 
+<OBJECT NAME (LOC BEDROOM) (DESC "name") (SYNONYM NAME) (FLAGS NDESCBIT)> 
+<OBJECT SARCASTIC-NAME (LOC GLOBAL-OBJECTS) (DESC "other name") (SYNONYM NAME
+BUDDHA AUNT FRED) (ADJECTIVE AUNT\'S FRED\'S BUDDHA) (FLAGS VOWELBIT INVISIBLE)
+> 
+<OBJECT YOUR-NAME (LOC GLOBAL-OBJECTS) (DESC "your name") (SYNONYM NAME) (
+ADJECTIVE YOUR MY ARTHUR) (FLAGS NARTICLEBIT) (ACTION YOUR-NAME-F)> 
+<DEFINE-ROUTINE YOUR-NAME-F> 
+<OBJECT BEAST-NAME (LOC GLOBAL-OBJECTS) (DESC "Beast's name") (SYNONYM NAME) (
+ADJECTIVE BEAST\'S) (FLAG NARTICLEBIT INVISIBLE)> 
+<ROOM INNER-LAIR (LOC ROOMS) (DESC "Inner Lair") (LDESC
+"This is the heart of the Beast's lair. The only exit leads northeast.") (NE TO
+LAIR) (FLAGS ONBIT RLANDBIT) (GLOBAL LAIR-OBJECT)> 
+<OBJECT SKELETON (LOC INNER-LAIR) (DESC "skeleton") (FDESC
+"The skeleton of a dead Beasthunter lies nearby, clutching something labelled
+\"Nutrimat/Computer Interface.\"") (SYNONYM SKELETON BEASTHUNT BONE BONES) (
+FLAGS RLANDBIT TRYTAKEBIT)> 
+<OBJECT NUT-COM-INTERFACE (LOC INNER-LAIR) (DESC "Nutrimat/Computer Interface")
+(SYNONYM INTERFACE) (ADJECTIVE NUTRIMAT COMPUTER) (FLAGS NDESCBIT TRYTAKEBIT
+TAKEBIT) (SIZE 4) (ACTION NUT-COM-INTERFACE-F)> 
+<DEFINE-ROUTINE NUT-COM-INTERFACE-F> 
+<DEFINE-ROUTINE I-CARELESS-WORDS> 
+<GLOBAL CARELESS-WORDS-FLAG <>> 
+<GLOBAL DOG-COUNTER 0> 
+<OBJECT MICROSCOPIC-FLEET (LOC WAR-CHAMBER) (DESC "battle fleet") (SYNONYM
+FLEET SHIP SHIPS SPACESHIP) (ADJECTIVE BATTLE HORRIBLE BEWEAPONE MICROSCOP
+SPACE VAST) (FLAGS NDESCBIT) (ACTION MICROSCOPIC-FLEET-F)> 
+<DEFINE-ROUTINE MICROSCOPIC-FLEET-F> 
+<OBJECT CANOPY (LOC WAR-CHAMBER) (DESC "domed canopy") (SYNONYM CANOPY DOME
+WINDOW) (ADJECTIVE DOMED) (FLAGS NDESCBIT TRANSBIT) (ACTION CANOPY-F)> 
+<DEFINE-ROUTINE CANOPY-F> 
+<ROOM WAR-CHAMBER (LOC ROOMS) (SYNONYM WALKING) (DESC "War Chamber") (FLAGS
+RLANDBIT ONBIT) (GLOBAL CONVERSATION) (ACTION WAR-CHAMBER-F)> 
+<DEFINE-ROUTINE WAR-CHAMBER-F> 
+<OBJECT VLHURG (LOC WAR-CHAMBER) (DESC "Vl'Hurg leader") (DESCFCN
+VLHURG-DESCFCN) (SYNONYM VL\'HURG LEADER CREATURE CREATURES) (ADJECTIVE
+VL\'HURG) (FLAGS ACTORBIT) (ACTION VLHURG-F)> 
+<DEFINE-ROUTINE VLHURG-DESCFCN> 
+<DEFINE-ROUTINE VLHURG-F> 
+<OBJECT GGUGVUNT (LOC WAR-CHAMBER) (DESC "G'Gugvunt leader") (SYNONYM
+G\'GUGVUNT LEADER CREATURE CREATURES) (ADJECTIVE G\'GUGVUNT) (FLAGS ACTORBIT
+NDESCBIT) (ACTION GGUGVUNT-F)> 
+<DEFINE-ROUTINE GGUGVUNT-F> 
+<OBJECT OTHER-PLANETS (LOC WAR-CHAMBER) (DESC "other planets") (SYNONYM PLANET
+PLANETS) (ADJECTIVE OTHER) (FLAGS NDESCBIT VOWELBIT NARTICLEBIT)> 
+<OBJECT THIRD-PLANET (LOC LOCAL-GLOBALS) (DESC "third planet") (SYNONYM PLANET
+EARTH) (ADJECTIVE THIRD BLUE BLUE-GREE GREEN SMALL) (FLAGS NDESCBIT) (ACTION
+THIRD-PLANET-F)> 
+<DEFINE-ROUTINE THIRD-PLANET-F> 
+<ROOM MAZE (LOC ROOMS) (SYNONYM INFOCOM ADAMS MERETZKY) (ADJECTIVE DOUGLAS
+STEVE STEVEN) (DESC "Maze") (LDESC
+"This is part of a spongy gray maze of twisty little synapses, all alike.") (
+NORTH PER MAZE-EXIT-F) (NE PER MAZE-EXIT-F) (EAST PER MAZE-EXIT-F) (SE PER
+MAZE-EXIT-F) (SOUTH PER MAZE-EXIT-F) (SW PER MAZE-EXIT-F) (WEST PER MAZE-EXIT-F
+) (NW PER MAZE-EXIT-F) (UP PER MAZE-EXIT-F) (DOWN PER MAZE-EXIT-F) (IN PER
+MAZE-EXIT-F) (OUT PER MAZE-EXIT-F) (FLAGS RLANDBIT ONBIT)> 
+<OBJECT GRAY-MATTER (LOC MAZE) (SYNONYM MAZE) (ADJECTIVE GRAY GREY SPONGY) (
+DESC "maze") (FLAGS NDESCBIT) (ACTION GLOBAL-ROOM-F)> 
+<GLOBAL MAZE-COUNTER 0> 
+<GLOBAL BRAIN-DAMAGED <>> 
+<DEFINE-ROUTINE MAZE-EXIT-F> 
+<OBJECT BRAIN (LOC MAZE) (DESC "brain") (SYNONYM BRAIN) (ADJECTIVE MY YOUR) (
+FLAGS NDESCBIT) (ACTION GLOBAL-ROOM-F)> 
+<OBJECT SYNAPSE (LOC MAZE) (DESC "synapse") (SYNONYM SYNAPSE GAP) (ADJECTIVE
+SYNAPSE) (FLAGS NDESCBIT)> 
+<OBJECT PARTICLE (LOC LOCAL-GLOBALS) (DESC "particle") (LDESC
+"Blocking the gap between two synapses is a large black particle. There seem
+to be some faint markings on it.") (SYNONYM PARTICLE SENSE LETTER MARKINGS) (
+ADJECTIVE LARGE BLACK COMMON FAINT) (FLAGS TAKEBIT TRYTAKEBIT READBIT) (ACTION
+PARTICLE-F)> 
+<DEFINE-ROUTINE PARTICLE-F> 
+<OBJECT APARTMENT (LOC LOCAL-GLOBALS) (DESC "apartment") (SYNONYM APARTMENT) (
+FLAGS VOWELBIT) (ACTION APARTMENT-F)> 
+<DEFINE-ROUTINE APARTMENT-F> 
+<GLOBAL ITEM-DROPPED-AT-PARTY <>> 
+<GLOBAL FLUFF-REMOVED <>> 
+<GLOBAL PARTY-TABLE <TABLE 0 0 0>> 
+<DEFINE-ROUTINE PARTY-DESC> 
+<ROOM LIVING-ROOM (LOC ROOMS) (DESC "Living Room") (SOUTH PER PARTY-EXIT-F) (
+WEST TO DINING-ROOM) (SW TO KITCHEN) (FLAGS RLANDBIT ONBIT) (GLOBAL APARTMENT
+WILD-PARTY) (ACTION LIVING-ROOM-F)> 
+<DEFINE-ROUTINE PARTY-EXIT-F> 
+<DEFINE-ROUTINE LIVING-ROOM-F> 
+<OBJECT APARTMENT-DOOR (LOC LIVING-ROOM) (DESC "door") (SYNONYM DOOR) (FLAGS
+DOORBIT OPENBIT NDESCBIT) (ACTION APARTMENT-DOOR-F)> 
+<DEFINE-ROUTINE APARTMENT-DOOR-F> 
+<ROOM DINING-ROOM (LOC ROOMS) (DESC "Dining Room") (SOUTH TO KITCHEN) (EAST TO
+LIVING-ROOM) (FLAGS RLANDBIT ONBIT) (GLOBAL APARTMENT WILD-PARTY) (ACTION
+DINING-ROOM-F)> 
+<OBJECT WILD-PARTY (LOC LOCAL-GLOBALS) (SYNONYM PARTY) (DESC "party") (ACTION
+APARTMENT-F)> 
+<DEFINE-ROUTINE DINING-ROOM-F> 
+<ROOM KITCHEN (LOC ROOMS) (DESC "Kitchen") (NORTH TO DINING-ROOM) (NE TO
+LIVING-ROOM) (FLAGS RLANDBIT ONBIT) (GLOBAL APARTMENT WILD-PARTY) (ACTION
+KITCHEN-F)> 
+<DEFINE-ROUTINE KITCHEN-F> 
+<OBJECT WINE (LOC LOCAL-GLOBALS) (DESC "glass of white wine") (SYNONYM GLASS
+WINE) (ADJECTIVE WHITE) (FLAGS TAKEBIT DRINKBIT) (SIZE 15) (ACTION WINE-F)> 
+<DEFINE-ROUTINE WINE-F> 
+<OBJECT APPETIZERS (LOC LOCAL-GLOBALS) (DESC "plate of hors d'oeuvres") (
+SYNONYM PLATE D\'OEUVRES APPETIZER SNACKS) (ADJECTIVE HORS) (FLAGS TAKEBIT
+EATBIT) (SIZE 15) (ACTION APPETIZERS-F)> 
+<DEFINE-ROUTINE APPETIZERS-F> 
+<DEFINE-ROUTINE DROP-AT-PARTY> 
+<DEFINE-ROUTINE SHRIEK> 
+<OBJECT HOSTESS (LOC LIVING-ROOM) (DESC "hostess") (LDESC
+"You notice the hostess approaching, but, using several mingling couples
+as cover, you maneuver away.") (SYNONYM HOSTESS) (FLAGS ACTORBIT) (ACTION
+HOSTESS-F)> 
+<DEFINE-ROUTINE HOSTESS-F> 
+<DEFINE-ROUTINE I-HOSTESS> 
+<OBJECT JACKET-FLUFF (LOC LOCAL-GLOBALS) (DESC "jacket fluff") (SYNONYM FLUFF
+LINT) (ADJECTIVE JACKET UNSIGHTLY) (FLAGS NARTICLEBIT TAKEBIT TRYTAKEBIT
+NDESCBIT) (GENERIC POCKET-FLUFF)> 
+<OBJECT CAGE (LOC LOCAL-GLOBALS) (DESC "it") (SYNONYM DRAPE CAGE BIRDCAGE
+SNORING) (ADJECTIVE LARGE BLACK BIRD) (FLAGS NDESCBIT NARTICLEBIT) (ACTION
+UNIMPORTANT-THING-F)> 
+<OBJECT DAMOGRAN (LOC LOCAL-GLOBALS) (DESC "Damogran") (SYNONYM DAMOGRAN)> 
+<ROOM SPEEDBOAT (LOC ROOMS) (DESC "Presidential Speedboat") (NORTH TO DAIS IF
+BOAT-DOCKED) (OUT TO DAIS IF BOAT-DOCKED) (FLAGS ONBIT RLANDBIT OUTSIDEBIT) (
+GLOBAL CONTROLS DAMOGRAN PLATFORM CROWD WATER) (ACTION SPEEDBOAT-F)> 
+<OBJECT CROWD (LOC LOCAL-GLOBALS) (SYNONYM CROWD) (DESC "crowd") (ACTION
+CROWD-PSEUDO)> 
+<OBJECT WATER (LOC LOCAL-GLOBALS) (SYNONYM WATER) (DESC "water") (FLAGS
+NARTICLEBIT) (ACTION WATER-PSEUDO)> 
+<DEFINE-ROUTINE SPEEDBOAT-F> 
+<DEFINE-ROUTINE I-SPEEDBOAT> 
+<GLOBAL CRASH-COUNTER 0> 
+<GLOBAL BOAT-COUNTER 0> 
+<GLOBAL DESTINATION <>> 
+<GLOBAL BOAT-DOCKED <>> 
+<GLOBAL AUTOPILOT-COUNTER 0> 
+<GLOBAL DAIS-COUNTER 0> 
+<OBJECT BOAT-OBJECT (LOC SPEEDBOAT) (DESC "speedboat") (SYNONYM SPEEDBOAT BOAT)
+(ADJECTIVE PRESIDENT SPEED) (FLAGS NDESCBIT) (ACTION BOAT-OBJECT-F)> 
+<DEFINE-ROUTINE BOAT-OBJECT-F> 
+<DEFINE-ROUTINE WATER-PSEUDO> 
+<OBJECT PILOT-SEAT (LOC SPEEDBOAT) (DESC "pilot seat") (SYNONYM SEAT CHAIR
+CUSHION) (ADJECTIVE PILOT SEAT THICK PLUSH) (FLAGS VEHBIT CONTBIT SURFACEBIT
+SEARCHBIT OPENBIT) (ACTION PILOT-SEAT-F)> 
+<DEFINE-ROUTINE PILOT-SEAT-F> 
+<OBJECT KEY (LOC LOCAL-GLOBALS) (DESC "small key") (SYNONYM KEY) (ADJECTIVE
+SMALL) (FLAGS TAKEBIT) (SIZE 2) (ACTION KEY-F)> 
+<DEFINE-ROUTINE KEY-F> 
+<OBJECT CUSHION-FLUFF (LOC LOCAL-GLOBALS) (DESC "seat cushion fluff") (SYNONYM
+FLUFF LINT) (ADJECTIVE SEAT CUSHION) (FLAGS TAKEBIT NARTICLEBIT) (SIZE 1) (
+GENERIC POCKET-FLUFF)> 
+<OBJECT TOOLBOX (LOC SPEEDBOAT) (DESC "tool box") (SYNONYM TOOLBOX LOCK BOX) (
+ADJECTIVE TOOL) (FLAGS CONTBIT TAKEBIT SEARCHBIT) (SIZE 25) (CAPACITY 20) (
+ACTION TOOLBOX-F)> 
+<DEFINE-ROUTINE TOOLBOX-F> 
+<OBJECT MAGNIFYING-GLASS (LOC TOOLBOX) (DESC "magnifying glass") (SYNONYM GLASS
+) (ADJECTIVE MAGNIFYIN) (FLAGS TAKEBIT TRANSBIT) (ACTION MAGNIFYING-GLASS-F)> 
+<DEFINE-ROUTINE MAGNIFYING-GLASS-F> 
+<OBJECT AUTOPILOT-BUTTON (LOC SPEEDBOAT) (DESC "autopilot button") (SYNONYM
+BUTTON PILOT AUTOPILOT) (ADJECTIVE AUTOPILOT AUTO LARGE RED) (FLAGS VOWELBIT
+NDESCBIT LIGHTBIT) (ACTION AUTOPILOT-BUTTON-F)> 
+<DEFINE-ROUTINE AUTOPILOT-BUTTON-F> 
+<OBJECT CHANNEL (LOC SPEEDBOAT) (DESC "narrow channel") (SYNONYM CHANNEL
+OPENING) (ADJECTIVE NARROW) (FLAGS NDESCBIT)> 
+<OBJECT SPIRE (LOC SPEEDBOAT) (DESC "rocky spire") (SYNONYM SPIRE ROCK ROCKS) (
+ADJECTIVE ROCKY) (FLAGS NDESCBIT) (ACTION DESTINATION-F)> 
+<OBJECT CLIFF (LOC SPEEDBOAT) (DESC "towering cliffs") (SYNONYM CLIFF CLIFFS
+ISLAND FRANCE) (ADJECTIVE TOWERING) (FLAGS NDESCBIT NARTICLEBIT) (ACTION
+DESTINATION-F)> 
+<DEFINE-ROUTINE DESTINATION-F> 
+<ROOM DAIS (LOC ROOMS) (SYNONYM POLICE COPS) (DESC "Dais") (SOUTH SORRY
+"The boat is gone.") (EAST PER DAIS-EXIT-F) (IN PER DAIS-EXIT-F) (OUT PER
+DAIS-EXIT-F) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL HEART-OF-GOLD DAMOGRAN
+PLATFORM CROWD) (ACTION DAIS-F)> 
+<DEFINE-ROUTINE DAIS-EXIT-F> 
+<DEFINE-ROUTINE DAIS-F> 
+<DEFINE-ROUTINE DAIS-FUNCTION> 
+<DEFINE-ROUTINE CROWD-PSEUDO> 
+<OBJECT PLATFORM (LOC LOCAL-GLOBALS) (DESC "Dais") (SYNONYM DAIS PLATFORM) (
+ACTION PLATFORM-F)> 
+<DEFINE-ROUTINE PLATFORM-F> 
+<OBJECT BANNER (LOC DAIS) (DESC "banner") (SYNONYM BANNER) (ADJECTIVE HUGE) (
+FLAGS NDESCBIT READBIT) (TEXT
+"\"President Beeblebrox is a Swell Guy\" (Footnote 15).")> 
+<OBJECT BLASTER (LOC LOCAL-GLOBALS) (DESC "blaster") (SYNONYM BLASTER WEAPON) (
+FLAGS NDESCBIT TAKEBIT TRYTAKEBIT) (ACTION BLASTER-F)> 
+<DEFINE-ROUTINE BLASTER-F> 
+<DEFINE-ROUTINE BLASTER-HOLD> 
+<OBJECT RIFLES (LOC LOCAL-GLOBALS) (DESC "pile of photon rifles") (SYNONYM
+RIFLE RIFLES PILE WEAPON WEAPONS) (ADJECTIVE PHOTON YOUR) (FLAGS NDESCBIT
+TRYTAKEBIT) (ACTION RIFLES-F)> 
+<DEFINE-ROUTINE RIFLES-F> 
+<DEFINE-ROUTINE GUARD-DEATH> 
+<ROOM INSIDE-WHALE (LOC ROOMS) (SYNONYM TREE FOREKNOWL) (DESC
+"Inside the Sperm Whale") (LDESC
+"You are in the stomach of a sperm whale. You can hear a distant sound
+of rushing wind.") (FLAGS ONBIT RLANDBIT NARTICLEBIT) (ACTION INSIDE-WHALE-F)> 
+<DEFINE-ROUTINE INSIDE-WHALE-F> 
+<DEFINE-ROUTINE I-WHALE> 
+<OBJECT WHALE-OBJECT (LOC INSIDE-WHALE) (DESC "innard of a whale") (SYNONYM
+INNARD WHALE STOMACH) (ADJECTIVE SPERM) (FLAGS VOWELBIT NDESCBIT) (ACTION
+WHALE-OBJECT-F)> 
+<DEFINE-ROUTINE WHALE-OBJECT-F> 
\ No newline at end of file
diff --git a/unearth.zap b/unearth.zap
new file mode 100644
index 0000000..0897f48
--- /dev/null
+++ b/unearth.zap
@@ -0,0 +1,1142 @@
+
+
+	.FUNCT	LAIR-OBJECT-F
+	EQUAL?	PRSA,V?DISEMBARK,V?EXIT,V?LEAVE /?CCL3
+	EQUAL?	PRSA,V?WALK-TO,V?BOARD,V?THROUGH \FALSE
+?CCL3:	CALL1	V-WALK-AROUND
+	RSTACK	
+
+
+	.FUNCT	INNER-LAIR-ENTER-F
+	FSET?	BEAST,MUNGEDBIT \?PRG4
+	RETURN	INNER-LAIR
+?PRG4:	PRINTI	"The Beast blocks the exit."
+	CRLF	
+	RFALSE	
+
+
+	.FUNCT	LAIR-F,RARG
+	EQUAL?	RARG,M-LOOK \?CCL3
+	PRINTI	"This is the lair of the "
+	PRINTD	BEAST
+	PRINTR	". There are exits east and southwest."
+?CCL3:	EQUAL?	RARG,M-END \FALSE
+	FSET?	LAIR,NDESCBIT /FALSE
+	SET	'DREAMING,TRUE-VALUE
+	FSET	LAIR,NDESCBIT
+	FCLEAR	SARCASTIC-NAME,INVISIBLE
+	FCLEAR	BEAST-NAME,INVISIBLE
+	CALL	QUEUE,I-BEAST,2
+	PUT	STACK,0,1
+	CRLF	
+	PRINTI	"The Beast whips its evil-smelling tail away from your nose and bellows a brain-shattering roar. By suddenly popping out of nowhere you have disturbed its train of thought. However, "
+	FSET?	LAIR,REVISITBIT \?PRG17
+	PRINTI	"the Beast is beginning to get used to this sort of thing, shrugs it off, and sinks ten or so of"
+	PRINT	CLAWS
+	ICALL2	JIGS-UP,STR?140
+	RTRUE	
+?PRG17:	PRINTI	"since its train of thought was the usual one, and in fact the only one it knows, which goes like this ""hungry ... hungry ... hungry ... hungry ... bad-tempered ... hungry ..."", it soon starts to chug along again."
+	CRLF	
+	CRLF	
+	PRINT	BEAST-DESC
+	PRINTR	" It advances on you, and roars out a demand that you say your name."
+
+
+	.FUNCT	OUTER-LAIR-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a large walled courtyard. Strewn about are a profusion of gnawed bones bleaching in the sun. In case the significance of these fails to strike you, there is also a "
+	PRINTD	MEMORIAL
+	PRINTI	" in the middle of the courtyard, on which the Beast has roughly carved the names of all its victims."
+	IN?	STONE,HERE \?CND6
+	CRLF	
+	PRINTI	"Some "
+	PRINTD	STONE
+	PRINTR	"s lie near the exit to the west."
+?CND6:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	MEMORIAL-F
+	EQUAL?	PRSA,V?CARVE \?CCL3
+	EQUAL?	MEMORIAL,PRSI \?CCL3
+	FSET?	BEAST,MUNGEDBIT \?CCL8
+	CALL1	V-DIG
+	RSTACK	
+?CCL8:	EQUAL?	PRSO,NAME \?CCL10
+	PRINTI	"Whose name? The "
+	PRINTD	BEAST-NAME
+	PRINTR	"? Your aunt's name? One of the Infinite Unknowable names of Buddha? How about the name of Fred who runs (or rather ran) your local chip shop? At least that's a short name -- you might have time to write it before the Beast eats you."
+?CCL10:	EQUAL?	PRSO,SARCASTIC-NAME \?CCL14
+	PRINTR	"Concentrate. Learn to distinguish between genuinely helpful suggestions and mere sarcasm."
+?CCL14:	FSET?	TOWEL,WORNBIT /?CCL18
+	CALL	QUEUE,I-BEAST,2
+	PUT	STACK,0,1
+	PRINTI	"Before you even chip the first letter, the Beast sees you and hurls you spinning away with a bellow of rage."
+	PRINT	GETTING-CLOSE
+	CRLF	
+	RTRUE	
+?CCL18:	ZERO?	BEARINGS-LOST /?CCL22
+	PRINTR	"You cannot see and have lost your bearings. You stumble hopelessly and begin to arouse the Beast's suspicions. It's stupid but not THAT stupid."
+?CCL22:	EQUAL?	PRSO,ME,ARTHUR,YOUR-NAME \?PRG40
+	FSET?	BEAST,MUNGEDBIT \?PRG31
+	PRINTR	"You already did that!"
+?PRG31:	PRINTI	"You chip away with the stone. It's not your best writing, what with your mounting sense of panic and a towel wrapped around your head. However, it suffices..."
+	CRLF	
+	CRLF	
+	PRINT	JUST-AS
+	ZERO?	NAME-TOLD /?PRG38
+	FSET	BEAST,MUNGEDBIT
+	CALL	QUEUE,I-BEAST,9
+	PUT	STACK,0,1
+	PRINTR	"suddenly sees your name freshly carved on its memorial of remembrance. Mystery solved. It realises it must have already eaten you in a fit of absentmindedness. (Its mind is very very small and quite frequently absent.) It decides to give up the rest of its afternoon to the twin arts of digestion and contemplation. It settles down for a snooze."
+?PRG38:	PRINTI	"sees """
+	PRINTD	ARTHUR
+	PRINTI	""" freshly carved on the "
+	PRINTD	MEMORIAL
+	PRINTR	". This doesn't ring any bells with the Beast. It roars with fury, and eyes the thing it can't see because it's got a towel on its head (i.e. you) with deepening suspicion."
+?PRG40:	PRINT	JUST-AS
+	PRINTI	"suddenly sees "
+	EQUAL?	PRSO,BEAST-NAME,BEAST \?PRG47
+	PRINTI	"its own name"
+	JUMP	?PRG49
+?PRG47:	PRINTC	34
+	PRINTD	PRSO
+	PRINTC	34
+?PRG49:	PRINTI	" freshly carved on the "
+	PRINTD	MEMORIAL
+	PRINTI	". This disconcerts it, as it has no recollection of eating "
+	EQUAL?	PRSO,BEAST-NAME,BEAST \?PRG56
+	PRINTI	"itself"
+	JUMP	?PRG58
+?PRG56:	PRINTI	"anyone by that name"
+?PRG58:	PRINTC	46
+	PRINT	SLOWLY-DAWNS
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?READ \?CCL61
+	PRINTI	"Gleb Snardfitz, Bibs Trench, Zeke Fitzberry, Elmo Smith, "
+	FSET?	BEAST,MUNGEDBIT \?PRG68
+	PRINTD	ARTHUR
+	PRINTI	", "
+?PRG68:	PRINTR	"Brian ""Spike"" Berkowitz, Clybert Quackentotter..."
+?CCL61:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"There are countless names carved on the "
+	PRINTD	MEMORIAL
+	PRINTC	58
+	CRLF	
+	ICALL	PERFORM,V?READ,MEMORIAL
+	RTRUE	
+
+
+	.FUNCT	STONE-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	FSET?	STONE,TRYTAKEBIT \?CCL3
+	FCLEAR	STONE,NDESCBIT
+	FCLEAR	STONE,TRYTAKEBIT
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?DROP \?CCL7
+	EQUAL?	HERE,OUTER-LAIR \?CCL7
+	FSET	STONE,NDESCBIT
+	FSET	STONE,TRYTAKEBIT
+	RFALSE	
+?CCL7:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTR	"It's hard as a rock."
+
+
+	.FUNCT	BEAST-DESCFCN,X
+	FSET?	BEAST,MUNGEDBIT \?PRG6
+	PRINTR	"The Beast is in the corner, sleeping peacefully (Footnote 5)."
+?PRG6:	PRINTI	"The "
+	PRINTD	BEAST
+	PRINTR	" is here, looking particularly nasty and hungry."
+
+
+	.FUNCT	BEAST-F
+	EQUAL?	BEAST,WINNER \?CCL3
+	FSET?	TOWEL,WORNBIT \?CCL6
+	CALL1	V-SAY
+	RSTACK	
+?CCL6:	EQUAL?	PRSA,V?TELL-ABOUT \?CCL8
+	EQUAL?	PRSO,ME \?CCL8
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,BEAST,PRSI
+	SET	'WINNER,BEAST
+	RTRUE	
+?CCL8:	EQUAL?	PRSA,V?HELLO \?CCL12
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?HELLO,BEAST
+	SET	'WINNER,BEAST
+	RTRUE	
+?CCL12:	EQUAL?	PRSA,V?WHAT \?CCL14
+	EQUAL?	PRSO,OBJECT-OF-GAME \?CCL14
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?ASK-ABOUT,BEAST,OBJECT-OF-GAME
+	SET	'WINNER,BEAST
+	RTRUE	
+?CCL14:	ZERO?	NAME-TOLD \?CCL18
+	EQUAL?	PRSA,V?MY-NAME \?CCL18
+	EQUAL?	PRSO,NAME \?CCL18
+	EQUAL?	PRSI,ARTHUR \?CCL24
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?SAY-NAME,YOUR-NAME
+	SET	'WINNER,BEAST
+	RTRUE	
+?CCL24:	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?SAY-NAME,BEAST-NAME
+	SET	'WINNER,BEAST
+	RTRUE	
+?CCL18:	ZERO?	NAME-TOLD \?PRG32
+	EQUAL?	PRSA,V?I-AM \?PRG32
+	EQUAL?	PRSO,ARTHUR \?CCL31
+	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?SAY-NAME,YOUR-NAME
+	SET	'WINNER,BEAST
+	RTRUE	
+?CCL31:	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?SAY-NAME,BEAST-NAME
+	SET	'WINNER,BEAST
+	RTRUE	
+?PRG32:	PRINTI	"The Beast just roars at you."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?ASK-ABOUT,V?HELLO,V?TELL /?PRD37
+	EQUAL?	PRSA,V?TELL-ABOUT,V?ASK-FOR \?CCL35
+?PRD37:	EQUAL?	PRSO,BEAST \?CCL35
+	FSET?	BEAST,MUNGEDBIT \?CCL42
+	PRINTI	"The Beast is sleeping!"
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL42:	FSET?	TOWEL,WORNBIT \FALSE
+	ICALL1	SAID-WITH-TOWEL
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL35:	EQUAL?	PRSA,V?TELL-TIME \?CCL48
+	EQUAL?	PRSI,YOUR-NAME \?CCL48
+	ICALL	PERFORM,V?SAY-NAME,YOUR-NAME
+	RTRUE	
+?CCL48:	EQUAL?	PRSA,V?TELL-NAME \?CCL52
+	EQUAL?	PRSO,YOUR-NAME \?CCL52
+	ICALL	PERFORM,V?SAY-NAME,YOUR-NAME
+	RTRUE	
+?CCL52:	EQUAL?	PRSA,V?GIVE,V?SHOW \?CCL56
+	EQUAL?	THING,PRSO \?CCL56
+	CALL	QUEUE,I-BEAST,2
+	PUT	STACK,0,1
+	PRINTR	"The Beast stops in its tracks, deeply impressed, and compliments you on the quality of your aunts, and complains that all its aunts are complete horrors. It then continues its dreadful attack."
+?CCL56:	EQUAL?	PRSA,V?THROW \?CCL62
+	EQUAL?	PRSI,BEAST \?CCL62
+	CALL1	IDROP
+	ZERO?	STACK \?CCL62
+	MOVE	PRSO,HERE
+	ICALL	PERFORM,V?KILL,BEAST
+	RTRUE	
+?CCL62:	EQUAL?	PRSA,V?KILL \?CCL67
+	EQUAL?	PRSO,BEAST \?CCL67
+	FSET?	BEAST,MUNGEDBIT \?CND70
+	ICALL	PERFORM,V?ALARM,BEAST
+	RTRUE	
+?CND70:	CALL	QUEUE,I-BEAST,2
+	PUT	STACK,0,1
+	PRINTR	"A footling effort. The shock waves of the Beast's laughter push you back."
+?CCL67:	EQUAL?	PRSA,V?ALARM \?CCL75
+	FSET?	BEAST,MUNGEDBIT \?CCL75
+	PRINTI	"The Beast casually brushes you away with one of"
+	PRINT	CLAWS
+	ICALL2	JIGS-UP,STR?36
+	RTRUE	
+?CCL75:	EQUAL?	PRSA,V?ASK-ABOUT \?CCL81
+	EQUAL?	PRSI,OBJECT-OF-GAME \?CCL81
+	PRINTR	"""Eat. Carve name on memorial. Sleep. Eat more. Roar a lot. Stuff like that."""
+?CCL81:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINT	BEAST-DESC
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	I-BEAST
+	CALL	QUEUE,I-BEAST,-1
+	PUT	STACK,0,1
+	CRLF	
+	FSET?	BEAST,MUNGEDBIT \?CCL3
+	MOVE	CHIPPER,PROTAGONIST
+	FCLEAR	LAIR,NDESCBIT
+	FSET	LAIR,REVISITBIT
+	ICALL2	JIGS-UP,STR?141
+	RTRUE	
+?CCL3:	FSET?	TOWEL,WORNBIT \?CCL5
+	PRINTI	"The Beast still thinks it can't see you, but it's so irritated at having an invisible object stumble around its lair that it swipes out angrily with one of"
+	PRINT	CLAWS
+	ICALL2	JIGS-UP,STR?142
+	RTRUE	
+?CCL5:	IN?	BEAST,HERE /?CCL9
+	MOVE	BEAST,HERE
+	MOVE	NAME,HERE
+	SET	'BEAST-COUNTER,0
+	PRINTR	"Bellowing with rage, the Beast charges after you."
+?CCL9:	INC	'BEAST-COUNTER
+	EQUAL?	BEAST-COUNTER,1 \?CCL14
+	PRINTI	"With a head-splitting roar, the "
+	PRINTD	BEAST
+	PRINTR	" charges towards you."
+?CCL14:	EQUAL?	BEAST-COUNTER,2 \?CCL18
+	ZERO?	NAME-TOLD \?CCL18
+	PRINTI	"The Beast, sharpening"
+	PRINT	CLAWS
+	PRINTR	", demands again that you say your name."
+?CCL18:	GRTR?	BEAST-COUNTER,4 \?PRG25
+	CALL1	BEAST-DEATH
+	RSTACK	
+?PRG25:	PRINTR	"The Beast is nearly upon you."
+
+
+	.FUNCT	BEAST-DEATH
+	PRINTI	"With a vast savage roar, the Beast tears you limb from limb with"
+	PRINT	CLAWS
+	ICALL2	JIGS-UP,STR?143
+	RTRUE	
+
+
+	.FUNCT	YOUR-NAME-F
+	EQUAL?	PRSA,V?WHAT \?CCL3
+	ICALL	PERFORM,V?WHO,ME
+	RTRUE	
+?CCL3:	EQUAL?	HERE,OUTER-LAIR \?CCL5
+	FSET?	BEAST,MUNGEDBIT /FALSE
+?CCL5:	EQUAL?	PRSA,V?MOVE,V?RUB,V?EXAMINE \FALSE
+	PRINTR	"Huh?"
+
+
+	.FUNCT	NUT-COM-INTERFACE-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	FSET?	NUT-COM-INTERFACE,TRYTAKEBIT \?CCL3
+	FCLEAR	NUT-COM-INTERFACE,TRYTAKEBIT
+	FCLEAR	NUT-COM-INTERFACE,NDESCBIT
+	FSET	SKELETON,TOUCHBIT
+	ADD	SCORE,25 >SCORE
+	RFALSE	
+?CCL3:	EQUAL?	PRSA,V?TAKE \?CCL7
+	CALL2	RUNNING?,I-TEA
+	ZERO?	STACK /?CCL7
+	PRINTR	"You get a powerful electric shock."
+?CCL7:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"The "
+	PRINTD	PRSO
+	PRINTI	" is square, about ten inches on each side."
+	ICALL1	FINE-PRODUCT
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	I-CARELESS-WORDS
+	CRLF	
+	SET	'FLEET-PROB,60
+	PRINTI	"It is of course well known that careless talk costs lives, but the full scale of the problem is not always appreciated. For instance, at the exact moment you said """
+	ICALL2	RESTORE-INPUT,FIRST-BUFFER
+	PRINTI	""" a freak wormhole opened in the fabric of the space-time continuum and carried your words far far back in time across almost infinite reaches of space to a distant galaxy where strange and warlike beings were poised on the brink of frightful interstellar battle.
+
+The two opposing leaders were meeting for the last time. A dreadful silence fell across the conference table as the commander of the Vl'Hurgs, resplendent in his"
+	PRINT	BATTLE-SHORTS
+	PRINTI	"gazed levelly at the "
+	PRINTD	GGUGVUNT
+	PRINTI	" squatting opposite him"
+	PRINT	CLOUD-OF-STEAM
+	PRINTI	"As a million sleek and horribly beweaponed star cruisers poised to unleash electric death at his single word of command, the Vl'Hurg challenged his vile enemy to take back what it had said about his mother.
+
+The creature stirred in its sickly broiling vapour, and at that very moment the words """
+	ICALL2	RESTORE-INPUT,FIRST-BUFFER
+	PRINTR	""" drifted across the conference table. Unfortunately, in the Vl'Hurg tongue this was the most dreadful insult imaginable, and there was nothing for it but to wage terrible war for centuries. Eventually the error was detected, but over two hundred and fifty thousand worlds, their peoples and cultures perished in the holocaust.
+
+You have destroyed most of a small galaxy. Please pick your words with greater care."
+
+
+	.FUNCT	MICROSCOPIC-FLEET-F
+	EQUAL?	PRSA,V?THROUGH \FALSE
+	PRINT	LOOK-AROUND
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	CANOPY-F
+	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	PRINTI	"Through the "
+	PRINTD	CANOPY
+	PRINTI	" of the ship you can see a vast "
+	PRINTD	MICROSCOPIC-FLEET
+	PRINTR	" flying in formation behind you through the black, glittering emptiness of space. Ahead is a star system towards which you are hurtling at a terrifying speed."
+
+
+	.FUNCT	WAR-CHAMBER-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	FCLEAR	CONVERSATION,INVISIBLE
+	MOVE	THIRD-PLANET,HERE
+	SET	'DREAMING,TRUE-VALUE
+	CALL	QUEUE,I-DOG,-1
+	PUT	STACK,0,1
+	RFALSE	
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"Spread before you, astonishingly enough, is the "
+	PRINTD	WAR-CHAMBER
+	PRINTI	" of a star battle cruiser. "
+	ICALL	PERFORM,V?LOOK-INSIDE,CANOPY
+	RTRUE	
+
+
+	.FUNCT	VLHURG-DESCFCN,X
+	CRLF	
+	PRINTI	"Standing near you are two creatures who are gazing at the star system with terrible hatred in their eyes. One is wearing"
+	PRINT	BATTLE-SHORTS
+	PRINTI	"and the other is wreathed"
+	PRINT	CLOUD-OF-STEAM
+	PRINTI	"They are engaged in "
+	PRINTD	CONVERSATION
+	PRINTR	"."
+
+
+	.FUNCT	VLHURG-F
+	EQUAL?	PRSA,V?TELL \?CCL3
+	PRINTI	"You are clearly the worst diplomat that ever lived, and are about to become the worst one that ever died. That is an even worse insult in the G'Gugvunt tongue than """
+	ICALL2	RESTORE-INPUT,FIRST-BUFFER
+	PRINTI	""" is in the Vl'Hurg tongue."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL9
+	PRINTI	"The "
+	PRINTD	VLHURG
+	PRINTR	" looks typically Vl'Hurgish."
+?CCL9:	EQUAL?	PRSA,V?LISTEN \FALSE
+	FSET?	VLHURG,MUNGEDBIT \?CCL16
+	PRINTR	"The creatures are speculating about who you are and what to do with you."
+?CCL16:	FSET	VLHURG,MUNGEDBIT
+	PRINTI	"  ""Hated planet!"" snarls the Vl'Hurg.
+  ""Home of he that dared to say '"
+	ICALL2	RESTORE-INPUT,FIRST-BUFFER
+	PRINTI	"'"" rasps the G'Gugvunt.
+  ""Detested words! Even now it sticks my soul to hear them uttered,"" barks the Vl'Hurg, ""even though ten thousand years have passed...""
+  ""And as many senseless megadeaths! Worlds destroyed! My race and yours laid to waste! All because of he that dared shape the words '"
+	ICALL2	RESTORE-INPUT,FIRST-BUFFER
+	PRINTI	"'.""
+  ""Torture to my Vl'Hurgish warrior heart to hear it spoken! Yet, even now, the hot breath of our vengeance blows hard upon this little world...""
+  ""Vengeance on him who said '"
+	ICALL2	RESTORE-INPUT,FIRST-BUFFER
+	PRINTI	"'.""
+  ""Yes, there's no need to keep repeating it,"" growls the Vl'Hurg.
+  ""One happy thought,"" adds the G'Gugvunt. ""After millenia of bloody and perpetual conflict, our races have been brought together by this Quest for the Source of the Offending Remark. Perhaps, after our vengeance has been exacted on him who said '"
+	ICALL2	RESTORE-INPUT,FIRST-BUFFER
+	PRINTR	"'...""
+  ""Will you stop saying it?""
+  ""...perhaps we will continue to live in peace and harmony and...""
+  ""We will talk about that AFTER we ... who's this?""
+
+The two creatures turn and stare at you."
+
+
+	.FUNCT	GGUGVUNT-F
+	EQUAL?	PRSA,V?TELL \?CCL3
+	ICALL	PERFORM,V?TELL,VLHURG
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?EXAMINE \?CCL5
+	PRINTI	"The "
+	PRINTD	GGUGVUNT
+	PRINTR	" is looking typically G'Gugvuntish."
+?CCL5:	EQUAL?	PRSA,V?LISTEN \FALSE
+	ICALL	PERFORM,V?LISTEN,VLHURG
+	RTRUE	
+
+
+	.FUNCT	THIRD-PLANET-F
+	ZERO?	EARTH-DEMOLISHED \?CCL3
+	EQUAL?	PRSO,THIRD-PLANET \?CCL6
+	ICALL	PERFORM,PRSA,GROUND,PRSI
+	RTRUE	
+?CCL6:	CALL	PERFORM,PRSA,PRSO,GROUND
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?DISEMBARK,V?LEAVE \?CCL8
+	PRINTR	"You did!"
+?CCL8:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	PRINTI	"It is an utterly insignificant little blue-green planet, of the sort where they probably still wear "
+	PRINTD	DIGITAL-WATCH
+	PRINTR	"es."
+
+
+	.FUNCT	MAZE-EXIT-F
+	RANDOM	100
+	LESS?	40,STACK /?CCL3
+	PRINTI	"An electrical impulse across a synapse gap temporarily blocks your way."
+	CRLF	
+	RFALSE	
+?CCL3:	INC	'MAZE-COUNTER
+	EQUAL?	MAZE-COUNTER,3,17,36 \?CCL8
+	MOVE	PARTICLE,HERE
+	JUMP	?CND6
+?CCL8:	MOVE	PARTICLE,LOCAL-GLOBALS
+?CND6:	ICALL1	V-LOOK
+	RFALSE	
+
+
+	.FUNCT	PARTICLE-F
+	EQUAL?	PRSA,V?MOVE,V?TAKE \?CCL3
+	MOVE	PARTICLE,LOCAL-GLOBALS
+	FSET	PARTICLE,MUNGEDBIT
+	ADD	SCORE,25 >SCORE
+	FSET	WAR-CHAMBER,REVISITBIT
+	PRINTI	"As you remove the "
+	PRINTD	PARTICLE
+	ICALL2	JIGS-UP,STR?148
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?READ,V?EXAMINE \FALSE
+	PRINTI	"As you look closer you see, inscribed in tiny letters on the "
+	PRINTD	PARTICLE
+	PRINTR	":
+
+  Sense, Common for:
+     Dent, Arthur
+   (for replacement,
+  order part #31-541)"
+
+
+	.FUNCT	APARTMENT-F
+	EQUAL?	PRSA,V?EXIT,V?LEAVE \?CCL3
+	EQUAL?	HERE,LIVING-ROOM \?CCL6
+	CALL2	DO-WALK,P?SOUTH
+	RSTACK	
+?CCL6:	CALL1	V-WALK-AROUND
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?THROUGH \FALSE
+	PRINT	LOOK-AROUND
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PARTY-DESC,ROOM
+	PRINTI	"You are in a large "
+	PRINTD	ROOM
+	PRINTI	". There is a party going on. Other rooms lie to the "
+	RTRUE	
+
+
+	.FUNCT	PARTY-EXIT-F
+	FSET?	APARTMENT-DOOR,OPENBIT \?PRG6
+	PRINTI	"What! Leave a fun party like this?"
+	CRLF	
+	SET	'AWAITING-REPLY,3
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	RFALSE	
+?PRG6:	PRINTI	"The door is closed."
+	CRLF	
+	SET	'P-IT-OBJECT,APARTMENT-DOOR
+	RFALSE	
+
+
+	.FUNCT	LIVING-ROOM-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	EQUAL?	IDENTITY-FLAG,TRILLIAN /?CCL3
+	LOC	HANDBAG
+	PUT	PARTY-TABLE,0,STACK
+	LOC	TWEEZERS
+	PUT	PARTY-TABLE,1,STACK
+	FSET?	HANDBAG,OPENBIT \?CCL8
+	PUT	PARTY-TABLE,2,TRUE-VALUE
+	JUMP	?CND6
+?CCL8:	PUT	PARTY-TABLE,2,FALSE-VALUE
+?CND6:	SET	'IDENTITY-FLAG,TRILLIAN
+	MOVE	TRILLIAN,GLOBAL-OBJECTS
+	SET	'DREAMING,TRUE-VALUE
+	ICALL	ROB,PROTAGONIST,MEMORIAL
+	ICALL	ROB,HANDBAG,RAMP
+	FCLEAR	HANDBAG,OPENBIT
+	MOVE	HANDBAG,PROTAGONIST
+	MOVE	TWEEZERS,HANDBAG
+	MOVE	WINE,PROTAGONIST
+	MOVE	APPETIZERS,PROTAGONIST
+	MOVE	ARTHUR,HERE
+	MOVE	PHIL,HERE
+	MOVE	CAGE,HERE
+	PRINTI	"You're at a party being given by a distant and incredibly boring acquaintance. Among the people you've been introduced to are a shy, mousy fellow from the West Country named Arthur, and a flamboyant guy named Phil. You've had too many drinks already, and the room is beginning to buzz..."
+	CRLF	
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-END \?CCL12
+	FSET?	LIVING-ROOM,REVISITBIT \?CCL12
+	CRLF	
+	ICALL2	JIGS-UP,STR?149
+	RTRUE	
+?CCL12:	EQUAL?	RARG,M-LOOK \FALSE
+	ICALL2	PARTY-DESC,LIVING-ROOM
+	PRINTI	"west and southwest, and the "
+	PRINTD	APARTMENT
+	PRINTR	"'s front door is south of here."
+
+
+	.FUNCT	APARTMENT-DOOR-F
+	EQUAL?	PRSA,V?THROUGH \FALSE
+	CALL2	DO-WALK,P?SOUTH
+	RSTACK	
+
+
+	.FUNCT	DINING-ROOM-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	ICALL2	PARTY-DESC,DINING-ROOM
+	PRINTR	"south and east."
+
+
+	.FUNCT	KITCHEN-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	ICALL2	PARTY-DESC,KITCHEN
+	PRINTR	"north and northeast."
+
+
+	.FUNCT	WINE-F
+	EQUAL?	PRSA,V?ENJOY,V?DRINK \?CCL3
+	PRINTR	"You take a sip, and the room spins a little faster."
+?CCL3:	EQUAL?	PRSA,V?POUR,V?THROW \?CCL7
+	CALL1	SHRIEK
+	RSTACK	
+?CCL7:	EQUAL?	PRSA,V?DROP \FALSE
+	CALL1	DROP-AT-PARTY
+	RSTACK	
+
+
+	.FUNCT	APPETIZERS-F
+	EQUAL?	PRSA,V?ENJOY,V?EAT \?CCL3
+	PRINTI	"You nibble at one of the hors d'oeuvres. It tastes "
+	RANDOM	100
+	LESS?	40,STACK /?CCL8
+	PRINTR	"okay."
+?CCL8:	RANDOM	100
+	LESS?	50,STACK /?PRG15
+	PRINTR	"delicious."
+?PRG15:	PRINTR	"terrible."
+?CCL3:	EQUAL?	PRSA,V?THROW \?CCL18
+	CALL1	SHRIEK
+	RSTACK	
+?CCL18:	EQUAL?	PRSA,V?COUNT \?CCL20
+	PRINTR	"More than three, which is as high as you can count in your condition."
+?CCL20:	EQUAL?	PRSA,V?DROP \FALSE
+	CALL1	DROP-AT-PARTY
+	RSTACK	
+
+
+	.FUNCT	DROP-AT-PARTY
+	ZERO?	ITEM-DROPPED-AT-PARTY \?CND1
+	SET	'ITEM-DROPPED-AT-PARTY,PRSO
+	FSET	HOSTESS,NDESCBIT
+	CALL	QUEUE,I-HOSTESS,3
+	PUT	STACK,0,1
+?CND1:	MOVE	PRSO,HERE
+	EQUAL?	PRSA,V?DROP \?PRG8
+	PRINTR	"Dropped."
+?PRG8:	PRINTR	"Thrown."
+
+
+	.FUNCT	SHRIEK
+	PRINTI	"The hostess lets out a blood-chilling shriek. ""My new carpet!"" "
+	EQUAL?	PRSA,V?THROW \?PRG8
+	PRINTI	"Grabbing a shard from your broken "
+	PRINTD	PRSO
+	PRINTI	", s"
+	JUMP	?CND3
+?PRG8:	PRINTC	83
+?CND3:	ICALL2	JIGS-UP,STR?150
+	RTRUE	
+
+
+	.FUNCT	HOSTESS-F
+	EQUAL?	HOSTESS,WINNER \?CCL3
+	EQUAL?	PRSA,V?YES \?CCL6
+	EQUAL?	AWAITING-REPLY,4 \?CCL6
+	SET	'WINNER,PROTAGONIST
+	ICALL1	V-YES
+	SET	'WINNER,HOSTESS
+	RETURN	WINNER
+?CCL6:	EQUAL?	PRSA,V?NO \?CCL10
+	EQUAL?	AWAITING-REPLY,4 \?CCL10
+	SET	'WINNER,PROTAGONIST
+	ICALL1	V-NO
+	SET	'WINNER,HOSTESS
+	RETURN	WINNER
+?CCL10:	SET	'WINNER,PROTAGONIST
+	ICALL	PERFORM,V?HELLO,HOSTESS
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?TELL-ABOUT,V?ASK-ABOUT,V?HELLO \FALSE
+	EQUAL?	PRSO,HOSTESS \FALSE
+	PRINTI	"The hostess is delighted to engage in "
+	PRINTD	CONVERSATION
+	ICALL2	JIGS-UP,STR?152
+	RTRUE	
+
+
+	.FUNCT	I-HOSTESS
+	CALL	QUEUE,I-HOSTESS,-1
+	PUT	STACK,0,1
+	ZERO?	ITEM-DROPPED-AT-PARTY \?CND1
+	FCLEAR	HOSTESS,TOUCHBIT
+	CALL2	INT,I-HOSTESS
+	PUT	STACK,0,0
+	RFALSE	
+?CND1:	MOVE	HOSTESS,HERE
+	MOVE	ITEM-DROPPED-AT-PARTY,HERE
+	CRLF	
+	FSET?	HOSTESS,TOUCHBIT \?CCL5
+	SET	'AWAITING-REPLY,4
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTI	"""Tricia dear,"" says the hostess insistently, ""don't you want your "
+	PRINTD	ITEM-DROPPED-AT-PARTY
+	PRINTR	"?"""
+?CCL5:	FSET	HOSTESS,TOUCHBIT
+	SET	'P-IT-OBJECT,ITEM-DROPPED-AT-PARTY
+	FSET	ITEM-DROPPED-AT-PARTY,NDESCBIT
+	PRINTI	"The hostess, whom you've been avoiding all evening, scurries up with your "
+	PRINTD	ITEM-DROPPED-AT-PARTY
+	PRINTR	". ""Oh, hello Tricia, how lovely to see you, I think you dropped this, dear."""
+
+
+	.FUNCT	SPEEDBOAT-F,RARG
+	EQUAL?	RARG,M-ENTER \?CCL3
+	SET	'DREAMING,TRUE-VALUE
+	SET	'IDENTITY-FLAG,ZAPHOD
+	MOVE	ZAPHOD,GLOBAL-OBJECTS
+	MOVE	WRENCH,TOOLBOX
+	MOVE	MAGNIFYING-GLASS,TOOLBOX
+	FCLEAR	TOOLBOX,OPENBIT
+	ICALL	ROB,PROTAGONIST,MEMORIAL
+	MOVE	PROTAGONIST,PILOT-SEAT
+	SET	'OHERE,FALSE-VALUE
+	SET	'DESTINATION,CHANNEL
+	CALL	QUEUE,I-SPEEDBOAT,2
+	PUT	STACK,0,1
+	PRINTI	"The pain at the back of your eyes is from partying until very late last night, and both your heads are suffering the worst hangover you've ever experienced. You remember formulating a plan to steal "
+	PRINTD	HEART-OF-GOLD
+	PRINTI	", but you can't for the life of you remember any details."
+	CRLF	
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-LOOK \FALSE
+	ZERO?	BOAT-DOCKED /?PRG13
+	PRINTI	"The boat is resting atop a plume of water. The dais for the dedication ceremonies for "
+	PRINTD	HEART-OF-GOLD
+	PRINTR	" lies immediately north."
+?PRG13:	PRINTI	"You are piloting the "
+	PRINTD	BOAT-OBJECT
+	PRINTI	", which features very simple controls, toward the island of France (Footnote 3), where the dedication ceremonies for "
+	PRINTD	HEART-OF-GOLD
+	PRINTI	" will occur. You are currently steering the boat toward"
+	EQUAL?	DESTINATION,CHANNEL \?CCL17
+	PRINTI	" a "
+	PRINTD	CHANNEL
+	PRINTI	" between "
+	PRINTD	CLIFF
+	PRINTI	" and a "
+	PRINTD	SPIRE
+	PRINTR	"."
+?CCL17:	ICALL2	ARTICLE,DESTINATION
+	PRINTR	"."
+
+
+	.FUNCT	I-SPEEDBOAT
+	INC	'BOAT-COUNTER
+	CALL	QUEUE,I-SPEEDBOAT,-1
+	PUT	STACK,0,1
+	EQUAL?	DESTINATION,CLIFF,SPIRE \?CND1
+	INC	'CRASH-COUNTER
+	EQUAL?	CRASH-COUNTER,4 \?CND1
+	SET	'BOAT-DOCKED,TRUE-VALUE
+	CALL2	INT,I-SPEEDBOAT
+	PUT	STACK,0,0
+	CRLF	
+	PRINTI	"Suddenly, the autopilot leaps to life, steering the boat away from the "
+	PRINTD	DESTINATION
+	PRINTI	". The crowd gathered for the dedication oohs and aahs as the boat swerves through the "
+	PRINTD	CHANNEL
+	PRINTI	". As it reaches the base of the "
+	PRINTD	CLIFF
+	PRINTR	" a plume of water forms under it, sending it higher and higher. The crowd bursts into applause as the boat reaches the top of the cliff, just south of the ceremonial dais."
+?CND1:	EQUAL?	PRSA,V?POINT,V?STEER /FALSE
+	CRLF	
+	LESS?	BOAT-COUNTER,7 \?CCL11
+	PRINTI	"You continue to steer toward the "
+	PRINTD	DESTINATION
+	PRINTR	"."
+?CCL11:	CALL2	INT,I-SPEEDBOAT
+	PUT	STACK,0,0
+	PRINTI	"You almost make it through the "
+	PRINTD	CHANNEL
+	PRINTI	" but the turbulent waters push the boat toward the rocks. The "
+	PRINTD	AUTOPILOT-BUTTON
+	PRINTI	" lights up and an "
+	PRINT	EYE-STALK
+	ICALL2	JIGS-UP,STR?153
+	RTRUE	
+
+
+	.FUNCT	BOAT-OBJECT-F
+	EQUAL?	PRSA,V?STEER \?CCL3
+	EQUAL?	PRSO,BOAT-OBJECT \?CCL3
+	ZERO?	BOAT-DOCKED /?CCL8
+	PRINTR	"You've already reached your destination!"
+?CCL8:	EQUAL?	PRSI,DESTINATION \?CCL12
+	PRINTI	"You already ARE steering the boat toward the "
+	PRINTD	DESTINATION
+	PRINTR	"."
+?CCL12:	EQUAL?	PRSI,CHANNEL,SPIRE,CLIFF /?CCL16
+	PRINTI	"You can't steer the boat toward"
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTR	"!"
+?CCL16:	SET	'DESTINATION,PRSI
+	GRTR?	BOAT-COUNTER,3 \?PRG23
+	SET	'BOAT-COUNTER,3
+?PRG23:	PRINTI	"The boat is now heading straight at the "
+	PRINTD	DESTINATION
+	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?DISEMBARK,V?LEAVE,V?EXIT /?CCL26
+	EQUAL?	PRSA,V?THROUGH \FALSE
+?CCL26:	ZERO?	BOAT-DOCKED /?PRG32
+	CALL2	DO-WALK,P?NORTH
+	RSTACK	
+?PRG32:	PRINT	DONT-MIX
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	WATER-PSEUDO
+	EQUAL?	PRSA,V?BOARD,V?THROUGH \?CCL3
+	PRINT	DONT-MIX
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?THROW,V?PUT \FALSE
+	EQUAL?	PRSI,WATER \FALSE
+	MOVE	PRSO,LOCAL-GLOBALS
+	PRINTR	"Glub..."
+
+
+	.FUNCT	PILOT-SEAT-F,RARG
+	EQUAL?	RARG,M-BEG \?CCL3
+	EQUAL?	PRSA,V?WALK \FALSE
+	CALL2	OUT-OF-FIRST,PILOT-SEAT
+	RSTACK	
+?CCL3:	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?SEARCH,V?RAISE,V?LOOK-UNDER /?PRD12
+	EQUAL?	PRSA,V?TAKE \?CCL10
+?PRD12:	IN?	KEY,LOCAL-GLOBALS \?CCL10
+	MOVE	CUSHION-FLUFF,PROTAGONIST
+	MOVE	KEY,PROTAGONIST
+	PRINTR	"You discover and pick up a small key and a piece of fluff under the seat cushion."
+?CCL10:	EQUAL?	PRSA,V?EXAMINE \?CCL18
+	PRINTR	"The chair is very comfortable, with a thick plush cushion."
+?CCL18:	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	EQUAL?	PRSO,PILOT-SEAT \FALSE
+	CALL1	TELL-ME-HOW
+	RSTACK	
+
+
+	.FUNCT	KEY-F
+	EQUAL?	PRSA,V?WHERE \FALSE
+	EQUAL?	HERE,SPEEDBOAT \FALSE
+	IN?	KEY,LOCAL-GLOBALS \FALSE
+	PRINTR	"It's probably around the boat somewhere."
+
+
+	.FUNCT	TOOLBOX-F
+	EQUAL?	PRSA,V?OPEN \?CCL3
+	ZERO?	PRSI \?CCL3
+	FSET?	TOOLBOX,OPENBIT /?CCL3
+	PRINTR	"It's locked."
+?CCL3:	EQUAL?	PRSA,V?LOCK \?CCL10
+	FSET?	TOOLBOX,OPENBIT \?PRG14
+	ICALL	PERFORM,V?CLOSE,TOOLBOX
+	RTRUE	
+?PRG14:	PRINTR	"It is."
+?CCL10:	EQUAL?	PRSA,V?UNLOCK,V?OPEN \FALSE
+	FSET?	TOOLBOX,OPENBIT \?CND18
+	PRINT	ALREADY-OPEN
+	CRLF	
+	RTRUE	
+?CND18:	ZERO?	PRSI \?CND22
+	CALL2	HELD?,KEY
+	ZERO?	STACK /?CND22
+	SET	'PRSI,KEY
+	PRINTI	"(with the key)"
+	CRLF	
+?CND22:	EQUAL?	PRSI,KEY \?PRG39
+	FSET	TOOLBOX,OPENBIT
+	PRINTI	"The tool box opens"
+	FIRST?	TOOLBOX \?PRG37
+	PRINTI	" revealing"
+	ICALL2	PRINT-CONTENTS,TOOLBOX
+?PRG37:	PRINTR	"."
+?PRG39:	PRINTI	"You can't unlock it with"
+	ZERO?	PRSI /?PRG44
+	ICALL2	ARTICLE,PRSI
+	JUMP	?PRG46
+?PRG44:	PRINTC	32
+	PRINTD	HANDS
+?PRG46:	PRINTR	"!"
+
+
+	.FUNCT	MAGNIFYING-GLASS-F
+	EQUAL?	PRSA,V?LOOK-INSIDE \FALSE
+	PRINTR	"You see your environs upside-down and slightly distorted."
+
+
+	.FUNCT	AUTOPILOT-BUTTON-F
+	EQUAL?	PRSA,V?LAMP-ON,V?PUSH \FALSE
+	INC	'AUTOPILOT-COUNTER
+	PRINTI	"The button glows. An "
+	PRINT	EYE-STALK
+	PRINTI	"looks around, and withdraws. The light fades."
+	EQUAL?	AUTOPILOT-COUNTER,3 \?CND6
+	PRINTR	" (Footnote 13)"
+?CND6:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	DESTINATION-F
+	EQUAL?	PRSA,V?WALK-TO \FALSE
+	EQUAL?	HERE,SPEEDBOAT \FALSE
+	ZERO?	BOAT-DOCKED \FALSE
+	ICALL	PERFORM,V?STEER,BOAT-OBJECT,PRSO
+	RTRUE	
+
+
+	.FUNCT	DAIS-EXIT-F
+	IN?	GUARDS,HERE /?CCL3
+	SET	'AWAITING-REPLY,5
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTI	"Don't you think it would be a bad idea to leave the ceremonies?"
+	CRLF	
+	RFALSE	
+?CCL3:	IN?	RIFLES,HERE /?PRG10
+	IN?	RIFLES,GUARDS \?CCL7
+?PRG10:	PRINTI	"You and "
+	PRINTD	TRILLIAN
+	PRINTI	" break for "
+	PRINTD	HEART-OF-GOLD
+	PRINTI	". "
+	FSET?	BLASTER,TRYTAKEBIT \?PRG17
+	PRINT	GUARDS-REALIZE
+	PRINTI	"They"
+	JUMP	?CND12
+?PRG17:	PRINTI	"The guards"
+?CND12:	ICALL1	GUARD-DEATH
+	RFALSE	
+?CCL7:	ADD	SCORE,25 >SCORE
+	FSET	SPEEDBOAT,REVISITBIT
+	MOVE	BLASTER,LOCAL-GLOBALS
+	ICALL	ROB,PROTAGONIST,HATCHWAY
+	PRINTI	"You and "
+	PRINTD	TRILLIAN
+	PRINTI	" enter "
+	PRINTD	HEART-OF-GOLD
+	PRINTI	", that beautiful bauble you've been coveting ever since your decision to run for"
+	PRINT	PRESIDENT
+	ICALL2	JIGS-UP,STR?155
+	RFALSE	
+
+
+	.FUNCT	DAIS-F,RARG
+	EQUAL?	RARG,M-END \?CCL3
+	FSET?	SPEEDBOAT,REVISITBIT \?CCL3
+	SET	'DREAMING,TRUE-VALUE
+	ICALL2	JIGS-UP,STR?156
+	RTRUE	
+?CCL3:	EQUAL?	RARG,M-ENTER \?CCL7
+	FSET?	SPEEDBOAT,REVISITBIT /?CCL7
+	PUTP	PROTAGONIST,P?ACTION,DAIS-FUNCTION
+	PRINTI	"As you step out of the boat, the plume of water lowers it away. The crowd, unaware of the autopilot, bursts into a round of admiring applause."
+	CRLF	
+	CRLF	
+	RTRUE	
+?CCL7:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a platform surrounded by a crowd. "
+	IN?	BANNER,HERE \?PRG20
+	PRINTI	"Several members of the crowd are holding a huge banner. "
+?PRG20:	PRINTI	"Just to the east is "
+	PRINTD	HEART-OF-GOLD
+	IN?	RIFLES,GUARDS \?CCL24
+	PRINTI	". A semicircle of guards are aiming photon rifles at you and "
+	PRINTD	TRILLIAN
+	JUMP	?CND22
+?CCL24:	IN?	GUARDS,HERE \?CND22
+	PRINTI	". Many disarmed guards are nervously eyeing you and "
+	PRINTD	TRILLIAN
+?CND22:	IN?	BLASTER,TRILLIAN \?PRG34
+	PRINTI	", who is pointing a blaster at your head"
+?PRG34:	PRINTR	"."
+
+
+	.FUNCT	DAIS-FUNCTION
+	EQUAL?	PRSA,V?RESTORE,V?RESTART,V?QUIT /FALSE
+	EQUAL?	PRSA,V?SAVE,V?VERSION,V?SCORE /FALSE
+	EQUAL?	PRSA,V?BRIEF,V?VERBOSE,V?WALK /FALSE
+	EQUAL?	PRSA,V?UNSCRIPT,V?SCRIPT,V?SUPERBRIEF /FALSE
+	EQUAL?	PRSA,V?INVENTORY,V?LOOK,V?FOOTNOTE /FALSE
+	EQUAL?	PRSA,V?WHAT,V?WHO,V?HINTS /FALSE
+	EQUAL?	PRSA,V?YES,V?WHY,V?WHERE /FALSE
+	EQUAL?	PRSA,V?THROUGH,V?NO /FALSE
+	EQUAL?	PRSO,CROWD,BANNER \?CCL13
+	EQUAL?	PRSA,V?THROUGH,V?EXAMINE,V?COUNT /FALSE
+	EQUAL?	PRSA,V?READ /FALSE
+?CCL13:	INC	'DAIS-COUNTER
+	PRINT	CROWD-CHEERS
+	EQUAL?	DAIS-COUNTER,4 \?CND20
+	PUTP	PROTAGONIST,P?ACTION,PROTAGONIST-F
+	MOVE	TRILLIAN,HERE
+	MOVE	BLASTER,TRILLIAN
+	MOVE	GUARDS,HERE
+	MOVE	RIFLES,GUARDS
+	CALL	QUEUE,I-GUARDS,8
+	PUT	STACK,0,1
+	PRINTI	" Suddenly, "
+	PRINTD	TRILLIAN
+	PRINTI	" leaps out of the crowd, grabs you by the necks, and points a blaster at your left head. Guards rush up, photon rifles poised to shoot. ""Stay back!"" shouts "
+	PRINTD	TRILLIAN
+	PRINTI	". ""One more step and the"
+	PRINT	PRESIDENT
+	PRINTI	" is fried meat!"" The guards seem unsure, and look at you for instructions."
+?CND20:	ICALL1	FUCKING-CLEAR
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	CROWD-PSEUDO
+	EQUAL?	PRSA,V?EXAMINE,V?COUNT \?CCL3
+	PRINTR	"It's big."
+?CCL3:	EQUAL?	PRSA,V?SHOOT \?CCL7
+	CALL1	BLASTER-HOLD
+	ZERO?	STACK \TRUE
+	PRINTR	"You may be a scoundrel, but you're not a mass murderer."
+?CCL7:	EQUAL?	PRSA,V?THROUGH \?CCL13
+	PRINTR	"You'd be crushed by the enthusiasm of your admirers."
+?CCL13:	EQUAL?	PRSA,V?WAVE-AT,V?TELL \FALSE
+	PRINT	CROWD-CHEERS
+	CRLF	
+	ICALL1	FUCKING-CLEAR
+	RTRUE	
+
+
+	.FUNCT	PLATFORM-F
+	EQUAL?	HERE,SPEEDBOAT \?CCL3
+	ZERO?	BOAT-DOCKED \?CCL3
+	CALL2	CANT-SEE,PLATFORM
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \?CCL7
+	EQUAL?	HERE,DAIS \?CCL10
+	PRINT	LOOK-AROUND
+	CRLF	
+	RTRUE	
+?CCL10:	CALL2	DO-WALK,P?NORTH
+	RSTACK	
+?CCL7:	EQUAL?	PRSA,V?DISEMBARK,V?LEAVE \FALSE
+	EQUAL?	HERE,DAIS \?PRG18
+	CALL2	DO-WALK,P?EAST
+	RSTACK	
+?PRG18:	PRINT	LOOK-AROUND
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	BLASTER-F
+	EQUAL?	PRSA,V?TAKE \?CCL3
+	FSET?	BLASTER,TRYTAKEBIT \?CCL3
+	PRINT	GUARDS-REALIZE
+	PRINTI	"They"
+	IN?	RIFLES,GUARDS \?CCL10
+	CALL1	GUARD-DEATH
+	RSTACK	
+?CCL10:	FCLEAR	BLASTER,TRYTAKEBIT
+	FCLEAR	BLASTER,NDESCBIT
+	MOVE	BLASTER,PROTAGONIST
+	CALL	QUEUE,I-GUARDS,5
+	PUT	STACK,0,1
+	PRINTR	" are disarmed, though, and unable to do anything as you take the blaster."
+?CCL3:	EQUAL?	PRSA,V?SHOOT \FALSE
+	EQUAL?	PRSI,BLASTER \FALSE
+	EQUAL?	PRSO,BLASTER \?CCL19
+	CALL1	V-COUNT
+	RSTACK	
+?CCL19:	EQUAL?	PRSO,GROUND \?CCL21
+	CALL1	V-DIG
+	RSTACK	
+?CCL21:	FSET?	PRSO,TAKEBIT /?CTR22
+	EQUAL?	PRSO,BANNER \?CCL23
+?CTR22:	MOVE	PRSO,LOCAL-GLOBALS
+	PRINTI	"With a cloud of sparks"
+	EQUAL?	PRSO,RIFLES \?CCL30
+	PRINTI	" the "
+	PRINTD	RIFLES
+	JUMP	?PRG33
+?CCL30:	ICALL	ARTICLE,PRSO,TRUE-VALUE
+?PRG33:	PRINTI	" disintegrates. "
+	PRINT	CROWD-CHEERS
+	CRLF	
+	RTRUE	
+?CCL23:	EQUAL?	PRSO,HEART-OF-GOLD \FALSE
+	PRINTR	"You're too far."
+
+
+	.FUNCT	BLASTER-HOLD
+	CALL2	HELD?,BLASTER
+	ZERO?	STACK \FALSE
+	PRINT	NOT-HOLDING
+	PRINTI	" the "
+	PRINTD	BLASTER
+	PRINTR	"."
+
+
+	.FUNCT	RIFLES-F
+	EQUAL?	PRSA,V?SHOOT \?CCL3
+	CALL1	BLASTER-HOLD
+	ZERO?	STACK \TRUE
+	IN?	RIFLES,GUARDS \?CCL8
+	ICALL	PERFORM,V?SHOOT,GUARDS
+	RTRUE	
+?CCL8:	MOVE	RIFLES,LOCAL-GLOBALS
+	PRINTI	"The rifles explode in a flashy display of sparks and shrapnel. "
+	PRINT	CROWD-CHEERS
+	PRINTR	" The guards begin to look a bit concerned."
+?CCL3:	EQUAL?	PRSA,V?TAKE \FALSE
+	FSET?	RIFLES,TRYTAKEBIT \FALSE
+	PRINT	GUARDS-REALIZE
+	ICALL2	JIGS-UP,STR?158
+	RTRUE	
+
+
+	.FUNCT	GUARD-DEATH
+	CALL2	VISIBLE?,RIFLES
+	ZERO?	STACK \?CCL3
+	PRINTI	" grab the blaster and"
+	JUMP	?CND1
+?CCL3:	IN?	RIFLES,GUARDS /?CND1
+	PRINTI	" pick up their rifles and"
+?CND1:	CALL2	JIGS-UP,STR?159
+	RSTACK	
+
+
+	.FUNCT	INSIDE-WHALE-F,RARG
+	EQUAL?	RARG,M-ENTER \FALSE
+	CALL	QUEUE,I-WHALE,11
+	PUT	STACK,0,1
+	SET	'DREAMING,TRUE-VALUE
+	RFALSE	
+
+
+	.FUNCT	I-WHALE
+	EQUAL?	HERE,INSIDE-WHALE \FALSE
+	CRLF	
+	ICALL2	JIGS-UP,STR?161
+	RTRUE	
+
+
+	.FUNCT	WHALE-OBJECT-F
+	EQUAL?	PRSA,V?DISEMBARK,V?LEAVE,V?EXIT \FALSE
+	CALL1	V-WALK-AROUND
+	RSTACK	
+
+	.ENDI
diff --git a/unearth.zil b/unearth.zil
new file mode 100644
index 0000000..69094b7
--- /dev/null
+++ b/unearth.zil
@@ -0,0 +1,1594 @@
+"UNEARTH for
+		  THE HITCHHIKER'S GUIDE TO THE GALAXY
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved."
+
+;"Traal stuff"
+
+<OBJECT LAIR-OBJECT
+	(LOC LOCAL-GLOBALS)
+	(DESC "lair")
+	(SYNONYM LAIR COURTYARD YARD)
+	(ADJECTIVE COURT INNER OUTER)
+	(ACTION LAIR-OBJECT-F)>
+
+<ROUTINE LAIR-OBJECT-F ()
+	 <COND (<VERB? LEAVE EXIT DISEMBARK THROUGH BOARD WALK-TO>
+		<V-WALK-AROUND>)>>
+
+<ROOM LAIR
+      (LOC ROOMS)
+      (DESC "Lair")
+      (EAST TO OUTER-LAIR)
+      (SW PER INNER-LAIR-ENTER-F)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL LAIR-OBJECT)
+      (ACTION LAIR-F)>
+
+<ROUTINE INNER-LAIR-ENTER-F ()
+	 <COND (<FSET? ,BEAST ,MUNGEDBIT>
+		,INNER-LAIR)
+	       (T
+		<TELL "The Beast blocks the exit." CR>
+		<RFALSE>)>>
+
+<ROUTINE LAIR-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL "This is the lair of the " D ,BEAST
+". There are exits east and southwest." CR>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <NOT <FSET? ,LAIR ,NDESCBIT>>>
+		<SETG DREAMING T>
+		<FSET ,LAIR ,NDESCBIT>
+		<FCLEAR ,SARCASTIC-NAME ,INVISIBLE>
+		<FCLEAR ,BEAST-NAME ,INVISIBLE>
+		<ENABLE <QUEUE I-BEAST 2>>
+		<CRLF>
+		<TELL
+"The Beast whips its evil-smelling tail away from your nose and bellows a
+brain-shattering roar. By suddenly popping out of nowhere you have disturbed
+its train of thought. However, ">
+		<COND (<FSET? ,LAIR ,REVISITBIT>
+		       <TELL
+"the Beast is beginning to get used to this sort of thing, shrugs it off,
+and sinks ten or so of" ,CLAWS>
+		       <JIGS-UP " into you.">
+		       <RTRUE>)
+		      (T
+		       <TELL
+"since its train of thought was the usual one, and in fact the only one it
+knows, which goes like this \"hungry ... hungry ... hungry ... hungry ...
+bad-tempered ... hungry ...\", it soon starts to chug along again." CR CR
+,BEAST-DESC " It advances on you, and roars out a demand that you say your
+name." CR>)>)>>
+
+<GLOBAL NAME-TOLD <>>
+
+<GLOBAL BEARINGS-LOST <>>
+
+<GLOBAL BEAST-COUNTER 0>
+
+<ROOM OUTER-LAIR
+      (LOC ROOMS)
+      (DESC "Beast's Outer Lair")
+      (WEST TO LAIR)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL LAIR-OBJECT)
+      (ACTION OUTER-LAIR-F)>
+
+<OBJECT BONES
+	(LOC OUTER-LAIR)
+	(SYNONYM BONE BONES)
+	(ADJECTIVE GNAWED)
+	(DESC "bone")
+	(FLAGS NDESCBIT)
+        (ACTION UNIMPORTANT-THING-F)>
+
+<ROUTINE OUTER-LAIR-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a large walled courtyard. Strewn about are a profusion of gnawed bones
+bleaching in the sun. In case the significance of these fails to strike you,
+there is also a " D ,MEMORIAL " in the middle of the courtyard, on which the
+Beast has roughly carved the names of all its victims.">
+		<COND (<IN? ,STONE ,HERE>
+		       <TELL CR
+"Some " D ,STONE "s lie near the exit to the west.">)>
+		<CRLF>)>>
+
+<OBJECT MEMORIAL
+	(LOC OUTER-LAIR)
+	(DESC "sandstone memorial")
+	(SYNONYM MEMORIAL LIST REMEMBRAN MONUMENT)
+	(ADJECTIVE SANDSTONE)
+	(FLAGS NDESCBIT READBIT)
+	(ACTION MEMORIAL-F)>
+
+<ROUTINE MEMORIAL-F ()
+	 <COND (<AND <VERB? CARVE>
+		     <EQUAL? ,MEMORIAL ,PRSI>>
+		<COND (<FSET? ,BEAST ,MUNGEDBIT>
+		       <V-DIG>)
+		      (<PRSO? ,NAME>
+		       <TELL
+"Whose name? The " D ,BEAST-NAME "? Your aunt's name? One of the Infinite
+Unknowable names of Buddha? How about the name of Fred who runs (or rather
+ran) your local chip shop? At least that's a short name -- you might have
+time to write it before the Beast eats you." CR>)
+		      (<PRSO? ,SARCASTIC-NAME>
+		       <TELL
+"Concentrate. Learn to distinguish between genuinely helpful suggestions
+and mere sarcasm." CR>)
+		      (<NOT <FSET? ,TOWEL ,WORNBIT>>
+		       <ENABLE <QUEUE I-BEAST 2>>
+		       <TELL
+"Before you even chip the first letter, the Beast sees you and hurls you
+spinning away with a bellow of rage." ,GETTING-CLOSE CR>)
+		      (,BEARINGS-LOST
+		       <TELL
+"You cannot see and have lost your bearings. You stumble hopelessly and begin
+to arouse the Beast's suspicions. It's stupid but not THAT stupid." CR>)
+		      (<PRSO? ,YOUR-NAME ,ARTHUR ,ME>
+		       <COND (<FSET? ,BEAST ,MUNGEDBIT>
+			      <TELL "You already did that!" CR>
+			      <RTRUE>)>
+		       <TELL
+"You chip away with the stone. It's not your best writing, what with
+your mounting sense of panic and a towel wrapped around your head.
+However, it suffices..." CR CR ,JUST-AS>
+		       <COND (,NAME-TOLD
+			      <FSET ,BEAST ,MUNGEDBIT>
+			      <ENABLE <QUEUE I-BEAST 9>>
+			      <TELL
+"suddenly sees your name freshly carved on its memorial of remembrance.
+Mystery solved. It realises it must have already eaten you in a fit of
+absentmindedness. (Its mind is very very small and quite frequently absent.)
+It decides to give up the rest of its afternoon to the twin arts of
+digestion and contemplation. It settles down for a snooze." CR>)
+			     (T
+			      <TELL
+"sees \"" D ,ARTHUR "\" freshly carved on the " D ,MEMORIAL ". This
+doesn't ring any bells with the Beast. It roars with fury, and eyes
+the thing it can't see because it's got a towel on its head (i.e. you)
+with deepening suspicion." CR>)>)
+		      (T
+		       <TELL ,JUST-AS "suddenly sees ">
+		       <COND (<PRSO? ,BEAST ,BEAST-NAME>
+			      <TELL "its own name">)
+			     (T
+			      <TELL "\"" D ,PRSO "\"">)>
+		       <TELL
+" freshly carved on the " D, MEMORIAL ". This disconcerts it, as it has
+no recollection of eating ">
+		       <COND (<PRSO? ,BEAST ,BEAST-NAME>
+			      <TELL "itself">)
+			     (T
+			      <TELL "anyone by that name">)>
+		       <TELL "." ,SLOWLY-DAWNS CR>)>)
+	       (<VERB? READ>
+		<TELL
+"Gleb Snardfitz, Bibs Trench, Zeke Fitzberry, Elmo Smith, ">
+		<COND (<FSET? ,BEAST ,MUNGEDBIT>
+		       <TELL D ,ARTHUR ", ">)>
+		<TELL
+"Brian \"Spike\" Berkowitz, Clybert Quackentotter..." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"There are countless names carved on the " D ,MEMORIAL ":" CR>
+		<PERFORM ,V?READ ,MEMORIAL>
+		<RTRUE>)>>
+
+<OBJECT STONE
+	(LOC OUTER-LAIR)
+	(DESC "sharp stone")
+	(SYNONYM STONE STONES ROCK ROCKS)
+	(ADJECTIVE SHARP)
+	(FLAGS NDESCBIT TAKEBIT TRYTAKEBIT)
+	(SIZE 20)
+	(ACTION STONE-F)>
+
+<ROUTINE STONE-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <FSET? ,STONE ,TRYTAKEBIT>>
+		<FCLEAR ,STONE ,NDESCBIT>
+		<FCLEAR ,STONE ,TRYTAKEBIT>
+		<RFALSE>)
+	       (<AND <VERB? DROP>
+		     <EQUAL? ,HERE ,OUTER-LAIR>>
+		<FSET ,STONE ,NDESCBIT>
+		<FSET ,STONE ,TRYTAKEBIT>
+		<RFALSE>)
+	       (<VERB? EXAMINE>
+		<TELL "It's hard as a rock." CR>)>>
+
+<OBJECT BEAST
+	(LOC LAIR)
+	(DESC "Ravenous Bugblatter Beast of Traal")
+	(DESCFCN BEAST-DESCFCN)
+	(SYNONYM BEAST TRAAL)
+	(ADJECTIVE RAVENOUS BUGBLATTE BEAST)
+	(FLAGS ACTORBIT)
+	(ACTION BEAST-F)>
+
+<ROUTINE BEAST-DESCFCN ("OPTIONAL" X)
+	 <COND (<FSET? ,BEAST ,MUNGEDBIT>
+		<TELL
+"The Beast is in the corner, sleeping peacefully (Footnote 5)." CR>)
+	       (T
+		<TELL
+"The " D ,BEAST " is here, looking particularly nasty and hungry." CR>)>>
+
+<ROUTINE BEAST-F ()
+	 <COND (<EQUAL? ,BEAST ,WINNER>
+		<COND (<FSET? ,TOWEL ,WORNBIT>
+		       <V-SAY>)
+		      (<AND <VERB? TELL-ABOUT>
+			    <PRSO? ,ME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,BEAST ,PRSI>
+		       <SETG WINNER ,BEAST>
+		       <RTRUE>)
+		      (<VERB? HELLO>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?HELLO ,BEAST>
+		       <SETG WINNER ,BEAST>
+		       <RTRUE>)
+		      (<AND <VERB? WHAT>
+			    <PRSO? ,OBJECT-OF-GAME>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?ASK-ABOUT ,BEAST ,OBJECT-OF-GAME>
+		       <SETG WINNER ,BEAST>
+		       <RTRUE>)
+		      (<AND <NOT ,NAME-TOLD>
+			    <VERB? MY-NAME>
+			    <PRSO? ,NAME>>
+		       <COND (<PRSI? ,ARTHUR>
+			      <SETG WINNER ,PROTAGONIST>
+			      <PERFORM ,V?SAY-NAME ,YOUR-NAME>
+			      <SETG WINNER ,BEAST>
+			      <RTRUE>)
+			     (T
+			      <SETG WINNER ,PROTAGONIST>
+			      <PERFORM ,V?SAY-NAME ,BEAST-NAME>
+			      <SETG WINNER ,BEAST>
+			      <RTRUE>)>)
+		      (<AND <NOT ,NAME-TOLD>
+			    <VERB? I-AM>>
+		       <COND (<PRSO? ,ARTHUR>
+			      <SETG WINNER ,PROTAGONIST>
+			      <PERFORM ,V?SAY-NAME ,YOUR-NAME>
+			      <SETG WINNER ,BEAST>
+			      <RTRUE>)
+			     (T
+			      <SETG WINNER ,PROTAGONIST>
+			      <PERFORM ,V?SAY-NAME ,BEAST-NAME>
+			      <SETG WINNER ,BEAST>
+			      <RTRUE>)>)
+		      (T
+		       <TELL "The Beast just roars at you." CR>
+		       <FUCKING-CLEAR>)>)
+	       (<AND <VERB? TELL HELLO ASK-ABOUT ASK-FOR TELL-ABOUT>
+		     <PRSO? ,BEAST>>
+		<COND (<FSET? ,BEAST ,MUNGEDBIT>
+		       <TELL "The Beast is sleeping!" CR>
+		       <FUCKING-CLEAR>)
+		      (<FSET? ,TOWEL ,WORNBIT>
+		       <SAID-WITH-TOWEL>
+		       <FUCKING-CLEAR>)>)
+	       (<AND <VERB? TELL-TIME>
+		     <PRSI? ,YOUR-NAME>>
+		<PERFORM ,V?SAY-NAME ,YOUR-NAME>
+		<RTRUE>)
+	       (<AND <VERB? TELL-NAME>
+		     <PRSO? ,YOUR-NAME>>
+		<PERFORM ,V?SAY-NAME ,YOUR-NAME>
+		<RTRUE>)
+	       (<AND <VERB? SHOW GIVE>
+		     <EQUAL? ,THING ,PRSO>>
+		<ENABLE <QUEUE I-BEAST 2>>
+		<TELL
+"The Beast stops in its tracks, deeply impressed, and compliments you on the
+quality of your aunts, and complains that all its aunts are complete horrors.
+It then continues its dreadful attack." CR>)
+	       (<AND <VERB? THROW>
+		     <PRSI? ,BEAST>
+		     <NOT <IDROP>>>
+		<MOVE ,PRSO ,HERE>
+		<PERFORM ,V?KILL ,BEAST>
+		<RTRUE>)
+	       (<AND <VERB? KILL>
+		     <PRSO? ,BEAST>>
+		<COND (<FSET? ,BEAST ,MUNGEDBIT>
+		       <PERFORM ,V?ALARM ,BEAST>
+		       <RTRUE>)>
+		<ENABLE <QUEUE I-BEAST 2>>
+		<TELL "A footling effort. The shock waves of the Beast's
+laughter push you back." CR>)
+	       (<AND <VERB? ALARM>
+		     <FSET? ,BEAST ,MUNGEDBIT>>
+		<TELL "The Beast casually brushes you away with one of" ,CLAWS>
+		<JIGS-UP ".">
+		<RTRUE>)
+	       (<AND <VERB? ASK-ABOUT>
+		     <PRSI? ,OBJECT-OF-GAME>>
+		<TELL
+"\"Eat. Carve name on memorial. Sleep. Eat more. Roar a lot. Stuff like
+that.\"" CR>)
+	       (<VERB? EXAMINE>
+		<TELL ,BEAST-DESC CR>)>>
+
+<ROUTINE I-BEAST ()
+	 <ENABLE <QUEUE I-BEAST -1>>
+	 <CRLF>
+	 <COND (<FSET? ,BEAST ,MUNGEDBIT>
+		<MOVE ,CHIPPER ,PROTAGONIST>
+		<FCLEAR ,LAIR ,NDESCBIT>
+		<FSET ,LAIR ,REVISITBIT>
+		<JIGS-UP
+"Suddenly, a team of Fronurbdian Beasthunters charges in, intent on catching
+the Beast for their zoo. Mistaking you for the Beast, they fire stun guns at
+you, wrap you in nets, and install you in a lovely little lair in the
+Fronurbdi National Zoo.|
+|
+Three months later the error is discovered, but while your damage suit is
+pending in the Fronurbdian courts the planet is invaded by Bureaucratic Pirates
+from Pallidon IV. Impressed into bondage for a 16-year filing and sorting
+mission on the so-called \"basement world\" of Sporla in the Lesser Magellanic
+Cloud, you escape with the help of a tribe of nomadic asteroid painters.|
+|
+You develop a unique talent for asteroid painting, gaining considerable fame
+throughout the Cloud. A nickel-ore deluxe is commissioned by His Royal Gorpness
+Orbjfelk, the ruler of the Nine Hundred Worlds of Gorp, but while working on
+this new masterpiece your asteroid slips into a small passing black hole.">
+		<RTRUE>)
+	       (<FSET? ,TOWEL ,WORNBIT>
+		<TELL
+"The Beast still thinks it can't see you, but it's so irritated at having
+an invisible object stumble around its lair that it swipes out angrily
+with one of" ,CLAWS>
+		<JIGS-UP
+" and life in the Universe has to carry on without you.">
+		<RTRUE>)
+	       (<NOT <IN? ,BEAST ,HERE>>
+		<MOVE ,BEAST ,HERE>
+		<MOVE ,NAME ,HERE>
+		<SETG BEAST-COUNTER 0>
+		<TELL "Bellowing with rage, the Beast charges after you." CR>)
+	       (T
+		<SETG BEAST-COUNTER <+ ,BEAST-COUNTER 1>>
+		<COND (<EQUAL? ,BEAST-COUNTER 1>
+		       <TELL
+"With a head-splitting roar, the " D ,BEAST " charges towards you." CR>)
+		      (<AND <EQUAL? ,BEAST-COUNTER 2>
+			    <NOT ,NAME-TOLD>>
+		       <TELL
+"The Beast, sharpening" ,CLAWS ", demands again that you say your name." CR>)
+		      (<G? ,BEAST-COUNTER 4>
+		       <BEAST-DEATH>)
+		      (T
+		       <TELL "The Beast is nearly upon you." CR>)>)>>
+
+<ROUTINE BEAST-DEATH ()
+	 <TELL
+"With a vast savage roar, the Beast tears you limb from limb with" ,CLAWS>
+	 <JIGS-UP " and ... well, do you really want to know the rest?
+The point is that you have died.">
+	 <RTRUE>>
+
+<OBJECT NAME ;"for things like MY NAME IS..."
+	(LOC BEDROOM)
+	(DESC "name")
+	(SYNONYM NAME)
+	(FLAGS NDESCBIT)>
+
+<OBJECT SARCASTIC-NAME
+	(LOC GLOBAL-OBJECTS)
+	(DESC "other name")
+	(SYNONYM NAME BUDDHA AUNT FRED)
+	(ADJECTIVE AUNT\'S FRED\'S BUDDHA)
+	(FLAGS VOWELBIT INVISIBLE)>
+
+<OBJECT YOUR-NAME
+	(LOC GLOBAL-OBJECTS)
+	(DESC "your name")
+	(SYNONYM NAME)
+	(ADJECTIVE YOUR MY ARTHUR)
+	(FLAGS NARTICLEBIT)
+	(ACTION YOUR-NAME-F)>
+
+<ROUTINE YOUR-NAME-F ()
+	 <COND (<VERB? WHAT>
+		<PERFORM ,V?WHO ,ME>
+		<RTRUE>)
+	       (<AND <EQUAL? ,HERE ,OUTER-LAIR>
+		     <FSET? ,BEAST ,MUNGEDBIT>>
+		<RFALSE>)
+	       (<VERB? EXAMINE RUB MOVE>
+		<TELL "Huh?" CR>)>>
+
+<OBJECT BEAST-NAME
+	(LOC GLOBAL-OBJECTS)
+	(DESC "Beast's name")
+	(SYNONYM NAME)
+	(ADJECTIVE BEAST\'S)
+	(FLAG NARTICLEBIT INVISIBLE)>
+
+<ROOM INNER-LAIR
+      (LOC ROOMS)
+      (DESC "Inner Lair")
+      (LDESC
+"This is the heart of the Beast's lair. The only exit leads northeast.")
+      (NE TO LAIR)
+      (FLAGS ONBIT RLANDBIT)
+      (GLOBAL LAIR-OBJECT)>
+
+<OBJECT SKELETON
+	(LOC INNER-LAIR)
+	(DESC "skeleton")
+	(FDESC
+"The skeleton of a dead Beasthunter lies nearby, clutching something labelled
+\"Nutrimat/Computer Interface.\"") 
+	(SYNONYM SKELETON BEASTHUNT BONE BONES)
+	(FLAGS RLANDBIT TRYTAKEBIT)>
+
+<OBJECT NUT-COM-INTERFACE
+	(LOC INNER-LAIR)
+	(DESC "Nutrimat/Computer Interface")
+	(SYNONYM INTERFACE)
+	(ADJECTIVE NUTRIMAT COMPUTER)
+	(FLAGS NDESCBIT TRYTAKEBIT TAKEBIT)
+	(SIZE 4)
+	(ACTION NUT-COM-INTERFACE-F)>
+
+<ROUTINE NUT-COM-INTERFACE-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <FSET? ,NUT-COM-INTERFACE ,TRYTAKEBIT>>
+		<FCLEAR ,NUT-COM-INTERFACE ,TRYTAKEBIT>
+		<FCLEAR ,NUT-COM-INTERFACE ,NDESCBIT>
+		<FSET ,SKELETON ,TOUCHBIT>
+		<SETG SCORE <+ ,SCORE 25>>
+		<RFALSE>)
+	       (<AND <VERB? TAKE>
+		     <RUNNING? ,I-TEA>>
+		<TELL "You get a powerful electric shock." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The " D ,PRSO " is square, about ten inches on each side.">
+		<FINE-PRODUCT>
+		<CRLF>)>>
+
+;"V'lhurgs and G'Gugvuntts stuff"
+
+<ROUTINE I-CARELESS-WORDS ()
+	 <CRLF>
+	 <SETG FLEET-PROB 60>
+	 <TELL
+"It is of course well known that careless talk costs lives, but the full
+scale of the problem is not always appreciated. For instance, at the exact
+moment you said \"">
+	 <RESTORE-INPUT ,FIRST-BUFFER>
+	 <TELL "\" a freak wormhole opened in the fabric of the space-time
+continuum and carried your words far far back in time across almost infinite
+reaches of space to a distant galaxy where strange and warlike beings were
+poised on the brink of frightful interstellar battle.|
+|
+The two opposing leaders were meeting for the last time. A dreadful silence
+fell across the conference table as the commander of the Vl'Hurgs, resplendent
+in his" ,BATTLE-SHORTS "gazed levelly at the " D ,GGUGVUNT " squatting opposite
+him" ,CLOUD-OF-STEAM "As a million sleek and horribly beweaponed star cruisers
+poised to unleash electric death at his single word of command, the Vl'Hurg
+challenged his vile enemy to take back what it had said about his mother.|
+|
+The creature stirred in its sickly broiling vapour, and at that very moment
+the words \"">
+	 <RESTORE-INPUT ,FIRST-BUFFER>
+	 <TELL "\" drifted across the conference table.
+Unfortunately, in the Vl'Hurg tongue this was the most dreadful insult
+imaginable, and there was nothing for it but to wage terrible war for
+centuries. Eventually the error was detected, but over two hundred and
+fifty thousand worlds, their peoples and cultures perished in the holocaust.|
+|
+You have destroyed most of a small galaxy. Please pick your words with
+greater care." CR>>
+
+<GLOBAL CARELESS-WORDS-FLAG <>>
+
+<GLOBAL DOG-COUNTER 0>
+
+<OBJECT MICROSCOPIC-FLEET
+	(LOC WAR-CHAMBER)
+	(DESC "battle fleet")
+	(SYNONYM FLEET SHIP SHIPS SPACESHIP)
+	(ADJECTIVE BATTLE HORRIBLE BEWEAPONE MICROSCOP SPACE VAST)
+	(FLAGS NDESCBIT)
+	(ACTION MICROSCOPIC-FLEET-F)>
+
+<ROUTINE MICROSCOPIC-FLEET-F ()
+	 <COND (<VERB? THROUGH>
+		<TELL ,LOOK-AROUND CR>)>>
+
+<OBJECT CANOPY
+	(LOC WAR-CHAMBER)
+	(DESC "domed canopy")
+	(SYNONYM CANOPY DOME WINDOW)
+	(ADJECTIVE DOMED)
+	(FLAGS NDESCBIT TRANSBIT)
+	(ACTION CANOPY-F)>
+
+<ROUTINE CANOPY-F ()
+	 <COND (<VERB? LOOK-INSIDE>
+		<TELL "Through the " D ,CANOPY " of the ship you can see a
+vast " D ,MICROSCOPIC-FLEET " flying in formation behind you through the
+black, glittering emptiness of space. Ahead is a star system towards which
+you are hurtling at a terrifying speed." CR>)>>
+
+<ROOM WAR-CHAMBER
+      (LOC ROOMS)
+      (SYNONYM WALKING)
+      (DESC "War Chamber")
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL CONVERSATION)
+      (ACTION WAR-CHAMBER-F)>
+
+<ROUTINE WAR-CHAMBER-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<FCLEAR ,CONVERSATION ,INVISIBLE>
+		<MOVE ,THIRD-PLANET ,HERE>
+		<SETG DREAMING T>
+		<ENABLE <QUEUE I-DOG -1>>
+		<RFALSE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"Spread before you, astonishingly enough, is the " D ,WAR-CHAMBER " of a star
+battle cruiser. ">
+		<PERFORM ,V?LOOK-INSIDE ,CANOPY>
+		<RTRUE>)>>
+
+<OBJECT VLHURG
+	(LOC WAR-CHAMBER)
+	(DESC "Vl'Hurg leader")
+	(DESCFCN VLHURG-DESCFCN)
+	(SYNONYM VL\'HURG LEADER CREATURE CREATURES)
+	(ADJECTIVE VL\'HURG)
+	(FLAGS ACTORBIT)
+	(ACTION VLHURG-F)>
+
+<ROUTINE VLHURG-DESCFCN ("OPTIONAL" X)
+	 <TELL CR
+"Standing near you are two creatures who are gazing at the star system with
+terrible hatred in their eyes. One is wearing" ,BATTLE-SHORTS "and the other
+is wreathed" ,CLOUD-OF-STEAM "They are engaged in " D ,CONVERSATION "." CR>>
+
+<ROUTINE VLHURG-F ()
+	 <COND (<VERB? TELL>
+		<TELL
+"You are clearly the worst diplomat that ever lived, and are about to become
+the worst one that ever died. That is an even worse insult in the G'Gugvunt
+tongue than \"">
+		<RESTORE-INPUT ,FIRST-BUFFER>
+		<TELL "\" is in the Vl'Hurg tongue." CR>
+		<FUCKING-CLEAR>)
+	       (<VERB? EXAMINE>
+		<TELL "The " D ,VLHURG " looks typically Vl'Hurgish." CR>)
+	       (<VERB? LISTEN>
+		<COND (<FSET? ,VLHURG ,MUNGEDBIT>
+		       <TELL
+"The creatures are speculating about who you are and what to do with you." CR>)
+		      (T
+		       <FSET ,VLHURG ,MUNGEDBIT>
+		       <TELL
+"  \"Hated planet!\" snarls the Vl'Hurg.|
+  \"Home of he that dared to say '">
+		       <RESTORE-INPUT ,FIRST-BUFFER>
+		       <TELL
+"'\" rasps the G'Gugvunt.|
+  \"Detested words! Even now it sticks my soul to hear them uttered,\"
+barks the Vl'Hurg, \"even though ten thousand years have passed...\"|
+  \"And as many senseless megadeaths! Worlds destroyed! My race and
+yours laid to waste! All because of he that dared shape the words '">
+		       <RESTORE-INPUT ,FIRST-BUFFER>
+		       <TELL "'.\"|
+  \"Torture to my Vl'Hurgish warrior heart to hear it spoken! Yet, even
+now, the hot breath of our vengeance blows hard upon this little world...\"|
+  \"Vengeance on him who said '">
+		       <RESTORE-INPUT ,FIRST-BUFFER>
+		       <TELL "'.\"|
+  \"Yes, there's no need to keep repeating it,\" growls the Vl'Hurg.|
+  \"One happy thought,\" adds the G'Gugvunt. \"After millenia of bloody
+and perpetual conflict, our races have been brought together by this
+Quest for the Source of the Offending Remark. Perhaps, after our vengeance
+has been exacted on him who said '">
+		       <RESTORE-INPUT ,FIRST-BUFFER>
+		       <TELL "'...\"|
+  \"Will you stop saying it?\"|
+  \"...perhaps we will continue to live in peace and harmony and...\"|
+  \"We will talk about that AFTER we ... who's this?\"|
+|
+The two creatures turn and stare at you." CR>)>)>>
+
+<OBJECT GGUGVUNT
+	(LOC WAR-CHAMBER)
+	(DESC "G'Gugvunt leader")
+	(SYNONYM G\'GUGVUNT LEADER CREATURE CREATURES)
+	(ADJECTIVE G\'GUGVUNT)
+	(FLAGS ACTORBIT NDESCBIT)
+	(ACTION GGUGVUNT-F)>
+
+<ROUTINE GGUGVUNT-F ()
+	 <COND (<VERB? TELL>
+		<PERFORM ,V?TELL ,VLHURG>
+		<FUCKING-CLEAR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The " D ,GGUGVUNT " is looking typically G'Gugvuntish." CR>)
+	       (<VERB? LISTEN>
+		<PERFORM ,V?LISTEN ,VLHURG>
+		<RTRUE>)>>
+
+<OBJECT OTHER-PLANETS
+	(LOC WAR-CHAMBER)
+	(DESC "other planets")
+	(SYNONYM PLANET PLANETS)
+	(ADJECTIVE OTHER)
+	(FLAGS NDESCBIT VOWELBIT NARTICLEBIT)>
+
+<OBJECT THIRD-PLANET
+	(LOC LOCAL-GLOBALS)
+	(DESC "third planet")
+	(SYNONYM PLANET EARTH)
+	(ADJECTIVE THIRD BLUE BLUE-GREE GREEN SMALL)
+	(FLAGS NDESCBIT)
+	(ACTION THIRD-PLANET-F)>
+
+<ROUTINE THIRD-PLANET-F ()
+	 <COND (<NOT ,EARTH-DEMOLISHED>
+		<COND (<PRSO? ,THIRD-PLANET>
+		       <PERFORM ,PRSA ,GROUND ,PRSI>
+		       <RTRUE>)
+		      (T
+		       <PERFORM ,PRSA ,PRSO ,GROUND>)>)
+	       (<VERB? LEAVE DISEMBARK>
+		<TELL "You did!" CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"It is an utterly insignificant little blue-green planet, of the sort
+where they probably still wear " D ,DIGITAL-WATCH "es." CR>)>>
+
+<ROOM MAZE
+      (LOC ROOMS)
+      (SYNONYM INFOCOM ADAMS MERETZKY)
+      (ADJECTIVE DOUGLAS STEVE STEVEN)
+      (DESC "Maze")
+      (LDESC
+"This is part of a spongy gray maze of twisty little synapses, all alike.")
+      (NORTH PER MAZE-EXIT-F)
+      (NE PER MAZE-EXIT-F)
+      (EAST PER MAZE-EXIT-F)
+      (SE PER MAZE-EXIT-F)
+      (SOUTH PER MAZE-EXIT-F)
+      (SW PER MAZE-EXIT-F)
+      (WEST PER MAZE-EXIT-F)
+      (NW PER MAZE-EXIT-F)
+      (UP PER MAZE-EXIT-F)
+      (DOWN PER MAZE-EXIT-F)
+      (IN PER MAZE-EXIT-F)
+      (OUT PER MAZE-EXIT-F)
+      (FLAGS RLANDBIT ONBIT)>
+
+<OBJECT GRAY-MATTER
+	(LOC MAZE)
+	(SYNONYM MAZE)
+	(ADJECTIVE GRAY GREY SPONGY)
+	(DESC "maze")
+	(FLAGS NDESCBIT)
+	(ACTION GLOBAL-ROOM-F)>
+
+<GLOBAL MAZE-COUNTER 0>
+
+<GLOBAL BRAIN-DAMAGED <>>
+
+<ROUTINE MAZE-EXIT-F ()
+	 <COND (<PROB 40>
+		<TELL
+"An electrical impulse across a synapse gap temporarily blocks your way." CR>)
+	       (T
+		<SETG MAZE-COUNTER <+ ,MAZE-COUNTER 1>>
+		<COND (<EQUAL? ,MAZE-COUNTER 3 17 36>
+		       <MOVE ,PARTICLE ,HERE>)
+		      (T
+		       <MOVE ,PARTICLE ,LOCAL-GLOBALS>)>
+		<V-LOOK>)>
+	 <RFALSE>>
+
+<OBJECT BRAIN
+	(LOC MAZE)
+	(DESC "brain")
+	(SYNONYM BRAIN)
+	(ADJECTIVE MY YOUR)
+	(FLAGS NDESCBIT)
+	(ACTION GLOBAL-ROOM-F)>
+
+<OBJECT SYNAPSE
+	(LOC MAZE)
+	(DESC "synapse")
+	(SYNONYM SYNAPSE GAP)
+	(ADJECTIVE SYNAPSE)
+	(FLAGS NDESCBIT)>
+
+<OBJECT PARTICLE
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "particle")
+	(LDESC
+"Blocking the gap between two synapses is a large black particle. There seem
+to be some faint markings on it.")
+	(SYNONYM PARTICLE SENSE LETTER MARKINGS)
+	(ADJECTIVE LARGE BLACK COMMON FAINT)
+	(FLAGS TAKEBIT TRYTAKEBIT READBIT)
+	(ACTION PARTICLE-F)>
+
+<ROUTINE PARTICLE-F ()
+	 <COND (<VERB? TAKE MOVE>
+		<MOVE ,PARTICLE ,LOCAL-GLOBALS>
+		<FSET ,PARTICLE ,MUNGEDBIT>
+		<SETG SCORE <+ ,SCORE 25>>
+		<FSET ,WAR-CHAMBER ,REVISITBIT>
+		<TELL "As you remove the " D ,PARTICLE>
+		<JIGS-UP
+", electrical impulses begin leaping madly across the now unblocked synaptic
+gap. Unfortunately, YOU were in the gap at the time.">
+		<RTRUE>)
+	       (<VERB? EXAMINE READ>
+		<TELL
+"As you look closer you see, inscribed in tiny letters on the "
+D ,PARTICLE ":|
+|
+  Sense, Common for:|
+     Dent, Arthur|
+   (for replacement,|
+  order part #31-541)" CR>)>>
+
+;"the Party stuff"
+
+<OBJECT APARTMENT
+	(LOC LOCAL-GLOBALS)
+	(DESC "apartment")
+	(SYNONYM APARTMENT)
+	(FLAGS VOWELBIT)
+	(ACTION APARTMENT-F)>
+
+<ROUTINE APARTMENT-F ()
+	 <COND (<VERB? LEAVE EXIT>
+		<COND (<EQUAL? ,HERE ,LIVING-ROOM>
+		       <DO-WALK ,P?SOUTH>)
+		      (T
+		       <V-WALK-AROUND>)>)
+	       (<VERB? THROUGH>
+		<TELL ,LOOK-AROUND CR>)>>
+
+<GLOBAL ITEM-DROPPED-AT-PARTY <>>
+
+<GLOBAL FLUFF-REMOVED <>>
+
+<GLOBAL PARTY-TABLE
+	<TABLE 0 0 0>>
+
+<ROUTINE PARTY-DESC (ROOM)
+	 <TELL "You are in a large " D .ROOM
+". There is a party going on. Other rooms lie to the ">>
+
+<ROOM LIVING-ROOM
+      (LOC ROOMS)
+      (DESC "Living Room")
+      (SOUTH PER PARTY-EXIT-F)
+      (WEST TO DINING-ROOM)
+      (SW TO KITCHEN)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL APARTMENT WILD-PARTY)
+      (ACTION LIVING-ROOM-F)>
+
+<ROUTINE PARTY-EXIT-F ()
+	  <COND (<FSET? ,APARTMENT-DOOR ,OPENBIT>
+		 <TELL "What! Leave a fun party like this?" CR>
+		 <SETG AWAITING-REPLY 3>
+		 <ENABLE <QUEUE I-REPLY 2>>
+		 <RFALSE>)
+		(T
+		 <TELL "The door is closed." CR>
+		 <SETG P-IT-OBJECT ,APARTMENT-DOOR>
+		 <RFALSE>)>>
+
+<ROUTINE LIVING-ROOM-F (RARG)
+	 <COND (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT <EQUAL? ,IDENTITY-FLAG ,TRILLIAN>>>
+		<PUT ,PARTY-TABLE 0 <LOC ,HANDBAG>>
+		<PUT ,PARTY-TABLE 1 <LOC ,TWEEZERS>>
+		<COND (<FSET? ,HANDBAG ,OPENBIT>
+		       <PUT ,PARTY-TABLE 2 T>)
+		      (T
+		       <PUT ,PARTY-TABLE 2 <>>)>
+		<SETG IDENTITY-FLAG ,TRILLIAN>
+		<MOVE ,TRILLIAN ,GLOBAL-OBJECTS>
+		<SETG DREAMING T>
+		<ROB ,PROTAGONIST ,MEMORIAL>
+		<ROB ,HANDBAG ,RAMP>
+		<FCLEAR ,HANDBAG ,OPENBIT>
+		<MOVE ,HANDBAG ,PROTAGONIST>
+		<MOVE ,TWEEZERS ,HANDBAG>
+		<MOVE ,WINE ,PROTAGONIST>
+		<MOVE ,APPETIZERS ,PROTAGONIST>
+		<MOVE ,ARTHUR ,HERE>
+		<MOVE ,PHIL ,HERE>
+		<MOVE ,CAGE ,HERE>
+		<TELL
+"You're at a party being given by a distant and incredibly boring acquaintance.
+Among the people you've been introduced to are a shy, mousy fellow from the
+West Country named Arthur, and a flamboyant guy named Phil. You've had too many
+drinks already, and the room is beginning to buzz..." CR CR>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <FSET? ,LIVING-ROOM ,REVISITBIT>>
+		<CRLF>
+		<JIGS-UP
+"The hostess, a lethally dull woman, corners you and bores you to
+death. Literally.">
+		<RTRUE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<PARTY-DESC ,LIVING-ROOM>
+		<TELL
+"west and southwest, and the " D ,APARTMENT "'s front door is south of
+here." CR>)>> 
+
+<OBJECT APARTMENT-DOOR
+	(LOC LIVING-ROOM)
+	(DESC "door")
+	(SYNONYM DOOR)
+	(FLAGS DOORBIT OPENBIT NDESCBIT)
+	(ACTION APARTMENT-DOOR-F)>
+
+<ROUTINE APARTMENT-DOOR-F ()
+	 <COND (<VERB? THROUGH>
+		<DO-WALK ,P?SOUTH>)>>
+
+<ROOM DINING-ROOM
+      (LOC ROOMS)
+      (DESC "Dining Room")
+      (SOUTH TO KITCHEN)
+      (EAST TO LIVING-ROOM)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL APARTMENT WILD-PARTY)
+      (ACTION DINING-ROOM-F)>
+
+<OBJECT WILD-PARTY
+      (LOC LOCAL-GLOBALS)
+      (SYNONYM PARTY)
+      (DESC "party")
+      (ACTION APARTMENT-F)>
+
+<ROUTINE DINING-ROOM-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<PARTY-DESC ,DINING-ROOM>
+		<TELL "south and east." CR>)>>
+
+<ROOM KITCHEN
+      (LOC ROOMS)
+      (DESC "Kitchen")
+      (NORTH TO DINING-ROOM)
+      (NE TO LIVING-ROOM)
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL APARTMENT WILD-PARTY)
+      (ACTION KITCHEN-F)>
+
+<ROUTINE KITCHEN-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<PARTY-DESC ,KITCHEN>
+		<TELL "north and northeast." CR>)>>
+
+<OBJECT WINE
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "glass of white wine")
+	(SYNONYM GLASS WINE)
+	(ADJECTIVE WHITE)
+	(FLAGS TAKEBIT DRINKBIT)
+	(SIZE 15)
+	(ACTION WINE-F)>
+
+<ROUTINE WINE-F ()
+	 <COND (<VERB? DRINK ENJOY>
+		<TELL
+"You take a sip, and the room spins a little faster." CR>)
+	       (<VERB? THROW POUR>
+		<SHRIEK>)
+	       (<VERB? DROP>
+		<DROP-AT-PARTY>)>>
+
+<OBJECT APPETIZERS
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "plate of hors d'oeuvres")
+	(SYNONYM PLATE D\'OEUVRES APPETIZER SNACKS)
+	(ADJECTIVE HORS)
+	(FLAGS TAKEBIT EATBIT)
+	(SIZE 15)
+	(ACTION APPETIZERS-F)>
+
+<ROUTINE APPETIZERS-F ()
+	 <COND (<VERB? EAT ENJOY>
+		<TELL
+"You nibble at one of the hors d'oeuvres. It tastes ">
+		<COND (<PROB 40>
+		       <TELL "okay." CR>)
+		      (<PROB 50>
+		       <TELL "delicious." CR>)
+		      (T
+		       <TELL "terrible." CR>)>)
+	       (<VERB? THROW>
+		<SHRIEK>)
+	       (<VERB? COUNT>
+		<TELL
+"More than three, which is as high as you can count in your condition." CR>)
+	       (<VERB? DROP>
+		<DROP-AT-PARTY>)>>
+
+<ROUTINE DROP-AT-PARTY ()
+	 <COND (<NOT ,ITEM-DROPPED-AT-PARTY>
+		<SETG ITEM-DROPPED-AT-PARTY ,PRSO>
+		<FSET ,HOSTESS ,NDESCBIT>
+	 	<ENABLE <QUEUE I-HOSTESS 3>>)>
+	 <MOVE ,PRSO ,HERE>
+	 <COND (<VERB? DROP>
+		<TELL "Dropped." CR>)
+	       (T
+		<TELL "Thrown." CR>)>>
+
+<ROUTINE SHRIEK ()
+	 <TELL
+"The hostess lets out a blood-chilling shriek. \"My new carpet!\" ">
+	 <COND (<VERB? THROW>
+		<TELL
+"Grabbing a shard from your broken " D ,PRSO ", s">)
+	       (T
+		<TELL "S">)>
+	 <JIGS-UP "he rushes toward you, vengeance burning in her eyes.">
+	 <RTRUE>>
+
+<OBJECT HOSTESS
+	(LOC LIVING-ROOM)
+	(DESC "hostess")
+	(LDESC
+"You notice the hostess approaching, but, using several mingling couples
+as cover, you maneuver away.")
+	(SYNONYM HOSTESS)
+	(FLAGS ACTORBIT)
+	(ACTION HOSTESS-F)>
+
+<ROUTINE HOSTESS-F ()
+	 <COND (<EQUAL? ,HOSTESS ,WINNER>
+		<COND (<AND <VERB? YES>
+			    <EQUAL? ,AWAITING-REPLY 4>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <V-YES>
+		       <SETG WINNER ,HOSTESS>)
+		      (<AND <VERB? NO>
+			    <EQUAL? ,AWAITING-REPLY 4>>
+		       <SETG WINNER ,PROTAGONIST>
+		       <V-NO>
+		       <SETG WINNER ,HOSTESS>)
+		      (T
+		       <SETG WINNER ,PROTAGONIST>
+		       <PERFORM ,V?HELLO ,HOSTESS>
+		       <FUCKING-CLEAR>)>)
+	       (<AND <VERB? HELLO ASK-ABOUT TELL-ABOUT>
+		     <PRSO? ,HOSTESS>>
+		<TELL
+"The hostess is delighted to engage in " D ,CONVERSATION>
+		<JIGS-UP
+" and pulls you into a corner. Days later, you expire from thirst
+and exhaustion.">
+		<RTRUE>)>>
+
+<ROUTINE I-HOSTESS ()
+	 <ENABLE <QUEUE I-HOSTESS -1>>
+	 <COND (<NOT ,ITEM-DROPPED-AT-PARTY>
+		<FCLEAR ,HOSTESS ,TOUCHBIT>
+		<DISABLE <INT I-HOSTESS>>
+		<RFALSE>)>
+	 <MOVE ,HOSTESS ,HERE>
+	 <MOVE ,ITEM-DROPPED-AT-PARTY ,HERE>
+	 <CRLF>
+	 <COND (<FSET? ,HOSTESS ,TOUCHBIT>
+		<SETG AWAITING-REPLY 4>
+		<ENABLE <QUEUE I-REPLY 2>>
+		<TELL
+"\"Tricia dear,\" says the hostess insistently, \"don't you want
+your " D ,ITEM-DROPPED-AT-PARTY "?\"" CR>)
+	       (T
+		<FSET ,HOSTESS ,TOUCHBIT>
+		<SETG P-IT-OBJECT ,ITEM-DROPPED-AT-PARTY>
+		<FSET ,ITEM-DROPPED-AT-PARTY ,NDESCBIT>
+		<TELL
+"The hostess, whom you've been avoiding all evening, scurries up with your "
+D ,ITEM-DROPPED-AT-PARTY ". \"Oh, hello Tricia, how lovely to see you, I think
+you dropped this, dear.\"" CR>)>>
+
+<OBJECT JACKET-FLUFF
+	(LOC LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
+	(DESC "jacket fluff")
+	(SYNONYM FLUFF LINT)
+	(ADJECTIVE JACKET UNSIGHTLY)
+	(FLAGS NARTICLEBIT TAKEBIT TRYTAKEBIT NDESCBIT)
+	(GENERIC POCKET-FLUFF)>
+
+<OBJECT CAGE
+	(LOC LOCAL-GLOBALS) ;"for the purposes of MOBY-FIND"
+	(DESC "it")
+	(SYNONYM DRAPE CAGE BIRDCAGE SNORING)
+	(ADJECTIVE LARGE BLACK BIRD)
+	(FLAGS NDESCBIT NARTICLEBIT)
+	(ACTION UNIMPORTANT-THING-F)> 
+
+;"Damogran stuff"
+
+<OBJECT DAMOGRAN
+	(LOC LOCAL-GLOBALS)
+	(DESC "Damogran")
+	(SYNONYM DAMOGRAN)>
+
+<ROOM SPEEDBOAT
+      (LOC ROOMS)
+      (DESC "Presidential Speedboat")
+      (NORTH TO DAIS IF BOAT-DOCKED)
+      (OUT TO DAIS IF BOAT-DOCKED)
+      (FLAGS ONBIT RLANDBIT OUTSIDEBIT)
+      (GLOBAL CONTROLS DAMOGRAN PLATFORM CROWD WATER)
+      (ACTION SPEEDBOAT-F)>
+
+<OBJECT CROWD
+      (LOC LOCAL-GLOBALS)
+      (SYNONYM CROWD)
+      (DESC "crowd")
+      (ACTION CROWD-PSEUDO)>
+
+<OBJECT WATER
+      (LOC LOCAL-GLOBALS)
+      (SYNONYM WATER)
+      (DESC "water")
+      (FLAGS NARTICLEBIT) 
+      (ACTION WATER-PSEUDO)>
+
+<ROUTINE SPEEDBOAT-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<SETG DREAMING T>
+		<SETG IDENTITY-FLAG ,ZAPHOD>
+		<MOVE ,ZAPHOD ,GLOBAL-OBJECTS>
+		<MOVE ,WRENCH ,TOOLBOX>
+		<MOVE ,MAGNIFYING-GLASS ,TOOLBOX>
+		<FCLEAR ,TOOLBOX ,OPENBIT>
+		<ROB ,PROTAGONIST ,MEMORIAL>
+		<MOVE ,PROTAGONIST ,PILOT-SEAT>
+		<SETG OHERE <>>
+		<SETG DESTINATION ,CHANNEL>
+		<ENABLE <QUEUE I-SPEEDBOAT 2>>
+		<TELL
+"The pain at the back of your eyes is from partying until very late last night,
+and both your heads are suffering the worst hangover you've ever experienced.
+You remember formulating a plan to steal " D ,HEART-OF-GOLD ", but you can't
+for the life of you remember any details." CR CR>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<COND (,BOAT-DOCKED
+		       <TELL
+"The boat is resting atop a plume of water. The dais for the dedication
+ceremonies for " D ,HEART-OF-GOLD " lies immediately north." CR>)
+		      (T
+		       <TELL
+"You are piloting the " D ,BOAT-OBJECT ", which features very simple controls,
+toward the island of France (Footnote 3), where the dedication ceremonies for "
+D ,HEART-OF-GOLD " will occur. You are currently steering the boat toward">
+		       <COND (<EQUAL? ,DESTINATION ,CHANNEL>
+		              <TELL
+" a " D ,CHANNEL " between " D ,CLIFF " and a " D ,SPIRE "." CR>)
+		             (T
+		              <ARTICLE ,DESTINATION>
+			      <TELL "." CR>)>)>)>>
+
+<ROUTINE I-SPEEDBOAT ()
+	 <SETG BOAT-COUNTER <+ ,BOAT-COUNTER 1>>
+	 <ENABLE <QUEUE I-SPEEDBOAT -1>>
+	 <COND (<EQUAL? ,DESTINATION ,CLIFF ,SPIRE>
+		<SETG CRASH-COUNTER <+ ,CRASH-COUNTER 1>>
+		<COND (<EQUAL? ,CRASH-COUNTER 4>
+		       <SETG BOAT-DOCKED T>
+		       <DISABLE <INT I-SPEEDBOAT>>
+		       <TELL CR
+"Suddenly, the autopilot leaps to life, steering the boat away from the "
+D ,DESTINATION ". The crowd gathered for the dedication oohs and aahs as the
+boat swerves through the " D ,CHANNEL ". As it reaches the base of the "
+D ,CLIFF " a plume of water forms under it, sending it higher and higher.
+The crowd bursts into applause as the boat reaches the top of the cliff, just
+south of the ceremonial dais." CR>
+		       <RTRUE>)>)> 
+	 <COND (<VERB? STEER POINT>
+		<RFALSE>)>
+	 ;<COND (<AND <VERB? AGAIN>
+		     <EQUAL? ,L-PRSA ,V?STEER ,V?POINT>>
+		<RFALSE>)>
+	 <CRLF>
+	 <COND (<L? ,BOAT-COUNTER 7>
+		<TELL
+"You continue to steer toward the " D ,DESTINATION "." CR>)
+	       (T
+		<DISABLE <INT I-SPEEDBOAT>>
+		<TELL
+"You almost make it through the " D ,CHANNEL " but the turbulent waters push
+the boat toward the rocks. The " D ,AUTOPILOT-BUTTON>
+		<TELL " lights up and an " ,EYE-STALK>
+		<JIGS-UP
+"but a split second later the boat smashes into the rocks.">
+		<RTRUE>)>>
+
+<GLOBAL CRASH-COUNTER 0> 
+
+<GLOBAL BOAT-COUNTER 0>
+
+<GLOBAL DESTINATION <>>
+
+<GLOBAL BOAT-DOCKED <>>
+
+<GLOBAL AUTOPILOT-COUNTER 0>
+
+<GLOBAL DAIS-COUNTER 0>
+
+<OBJECT BOAT-OBJECT
+	(LOC SPEEDBOAT)
+	(DESC "speedboat")
+	(SYNONYM SPEEDBOAT BOAT)
+	(ADJECTIVE PRESIDENT SPEED)
+	(FLAGS NDESCBIT)
+	(ACTION BOAT-OBJECT-F)>
+
+<ROUTINE BOAT-OBJECT-F ()
+	 <COND (<AND <VERB? STEER>
+		     <PRSO? ,BOAT-OBJECT>>
+		<COND (,BOAT-DOCKED
+		       <TELL "You've already reached your destination!" CR>)
+		      (<PRSI? ,DESTINATION>
+		       <TELL
+"You already ARE steering the boat toward the " D ,DESTINATION "." CR>)
+		      (<NOT <PRSI? ,CLIFF ,SPIRE ,CHANNEL>>
+		       <TELL "You can't steer the boat toward">
+		       <ARTICLE ,PRSI T>
+		       <TELL "!" CR>)
+		      (T
+		       <SETG DESTINATION ,PRSI>
+		       <COND (<G? ,BOAT-COUNTER 3>
+			      <SETG BOAT-COUNTER 3>)>
+		       <TELL
+"The boat is now heading straight at the " D ,DESTINATION "." CR>)>)
+	       (<VERB? EXIT LEAVE DISEMBARK THROUGH>
+		<COND (,BOAT-DOCKED
+		       <DO-WALK ,P?NORTH>)
+		      (T
+		       <TELL ,DONT-MIX CR>)>)>>
+
+<ROUTINE WATER-PSEUDO ()
+	 <COND (<VERB? THROUGH BOARD>
+		<TELL ,DONT-MIX CR>)
+	       (<AND <VERB? PUT THROW>
+		     <PRSI? ,WATER>>
+		<MOVE ,PRSO ,LOCAL-GLOBALS>
+		<TELL "Glub..." CR>)>>
+
+<OBJECT PILOT-SEAT
+	(LOC SPEEDBOAT)
+	(DESC "pilot seat")
+	(SYNONYM SEAT CHAIR CUSHION)
+	(ADJECTIVE PILOT SEAT THICK PLUSH)
+	(FLAGS VEHBIT CONTBIT SURFACEBIT SEARCHBIT OPENBIT)
+	(ACTION PILOT-SEAT-F)>
+
+<ROUTINE PILOT-SEAT-F ("OPTIONAL" (RARG <>))
+	 <COND (<EQUAL? .RARG ,M-BEG>
+		<COND (<VERB? WALK>
+		       <OUT-OF-FIRST ,PILOT-SEAT>)>)
+	       (.RARG
+		<RFALSE>)
+	       (<AND <VERB? LOOK-UNDER RAISE SEARCH TAKE>
+		     <IN? ,KEY ,LOCAL-GLOBALS>>
+		<MOVE ,CUSHION-FLUFF ,PROTAGONIST>
+		<MOVE ,KEY ,PROTAGONIST>
+		<TELL
+"You discover and pick up a small key and a piece of fluff under the
+seat cushion." CR>)
+	       (<VERB? EXAMINE>
+		<TELL
+"The chair is very comfortable, with a thick plush cushion." CR>)
+	       (<AND <VERB? OPEN CLOSE>
+		     <PRSO? ,PILOT-SEAT>>
+		<TELL-ME-HOW>)>>
+
+<OBJECT KEY
+	(LOC LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
+	(DESC "small key")
+	(SYNONYM KEY)
+	(ADJECTIVE SMALL)
+	(FLAGS TAKEBIT)
+	(SIZE 2)
+	(ACTION KEY-F)>
+
+<ROUTINE KEY-F ()
+	 <COND (<AND <VERB? WHERE>
+		     <EQUAL? ,HERE ,SPEEDBOAT>
+		     <IN? ,KEY ,LOCAL-GLOBALS>>
+		<TELL "It's probably around the boat somewhere." CR>)>>
+
+<OBJECT CUSHION-FLUFF
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "seat cushion fluff")
+	(SYNONYM FLUFF LINT)
+	(ADJECTIVE SEAT CUSHION)
+	(FLAGS TAKEBIT NARTICLEBIT)
+	(SIZE 1)
+	(GENERIC POCKET-FLUFF)>
+
+<OBJECT TOOLBOX
+	(LOC SPEEDBOAT)
+	(DESC "tool box")
+	(SYNONYM TOOLBOX LOCK BOX)
+	(ADJECTIVE TOOL)
+	(FLAGS CONTBIT TAKEBIT SEARCHBIT)
+	(SIZE 25)
+	(CAPACITY 20)
+	(ACTION TOOLBOX-F)>
+
+<ROUTINE TOOLBOX-F ()
+	 <COND (<AND <VERB? OPEN>
+		     <NOT ,PRSI>
+		     <NOT <FSET? ,TOOLBOX ,OPENBIT>>>
+		<TELL "It's locked." CR>)
+	       (<VERB? LOCK>
+		<COND (<FSET? ,TOOLBOX ,OPENBIT>
+		       <PERFORM ,V?CLOSE ,TOOLBOX>
+		       <RTRUE>)
+		      (T
+		       <TELL "It is." CR>)>)
+	       (<VERB? OPEN UNLOCK>
+		<COND (<FSET? ,TOOLBOX ,OPENBIT>
+		       <TELL ,ALREADY-OPEN CR>
+		       <RTRUE>)>
+		<COND (<AND <NOT ,PRSI>
+			    <HELD? ,KEY>>
+		       <SETG PRSI ,KEY>
+		       <TELL "(with the key)" CR>)>
+		<COND (<PRSI? ,KEY>
+		       <FSET ,TOOLBOX ,OPENBIT>
+		       <TELL "The tool box opens">
+		       <COND (<FIRST? ,TOOLBOX>
+			      <TELL " revealing">
+			      <PRINT-CONTENTS ,TOOLBOX>)>
+		       <TELL "." CR>)
+		      (T
+		       <TELL "You can't unlock it with">
+		       <COND (,PRSI
+			      <ARTICLE ,PRSI>)
+			     (T
+			      <TELL " " D ,HANDS>)>
+		       <TELL "!" CR>)>)>>
+
+<OBJECT MAGNIFYING-GLASS
+	(LOC TOOLBOX)
+	(DESC "magnifying glass")
+	(SYNONYM GLASS)
+	(ADJECTIVE MAGNIFYIN)
+	(FLAGS TAKEBIT TRANSBIT)
+	(ACTION MAGNIFYING-GLASS-F)>
+
+<ROUTINE MAGNIFYING-GLASS-F ()
+	 <COND (<VERB? LOOK-INSIDE>
+		<TELL
+"You see your environs upside-down and slightly distorted." CR>)>>
+
+<OBJECT AUTOPILOT-BUTTON
+	(LOC SPEEDBOAT)
+	(DESC "autopilot button")
+	(SYNONYM BUTTON PILOT AUTOPILOT)
+	(ADJECTIVE AUTOPILOT AUTO LARGE RED)
+	(FLAGS VOWELBIT NDESCBIT LIGHTBIT)
+	(ACTION AUTOPILOT-BUTTON-F)>
+
+<ROUTINE AUTOPILOT-BUTTON-F ()
+	 <COND (<VERB? PUSH LAMP-ON>
+		<SETG AUTOPILOT-COUNTER <+ ,AUTOPILOT-COUNTER 1>>
+		<TELL "The button glows. An "
+,EYE-STALK "looks around, and withdraws. The light fades.">
+		<COND (<EQUAL? ,AUTOPILOT-COUNTER 3>
+		       <TELL " (Footnote 13)">)>
+		<CRLF>)>>
+
+<OBJECT CHANNEL
+	(LOC SPEEDBOAT)
+	(DESC "narrow channel")
+	(SYNONYM CHANNEL OPENING)
+	(ADJECTIVE NARROW)
+	(FLAGS NDESCBIT)>
+
+<OBJECT SPIRE
+	(LOC SPEEDBOAT)
+	(DESC "rocky spire")
+	(SYNONYM SPIRE ROCK ROCKS)
+	(ADJECTIVE ROCKY)
+	(FLAGS NDESCBIT)
+	(ACTION DESTINATION-F)>
+
+<OBJECT CLIFF
+	(LOC SPEEDBOAT)
+	(DESC "towering cliffs")
+	(SYNONYM CLIFF CLIFFS ISLAND FRANCE)
+	(ADJECTIVE TOWERING)
+	(FLAGS NDESCBIT NARTICLEBIT)
+	(ACTION DESTINATION-F)>
+
+<ROUTINE DESTINATION-F ()
+	 <COND (<AND <VERB? WALK-TO>
+		     <EQUAL? ,HERE ,SPEEDBOAT> 
+		     <NOT ,BOAT-DOCKED>>
+		<PERFORM ,V?STEER ,BOAT-OBJECT ,PRSO>
+		<RTRUE>)>>
+
+<ROOM DAIS
+      (LOC ROOMS)
+      (SYNONYM POLICE COPS)
+      (DESC "Dais")
+      (SOUTH SORRY "The boat is gone.")
+      (EAST PER DAIS-EXIT-F)
+      (IN PER DAIS-EXIT-F)
+      (OUT PER DAIS-EXIT-F)
+      (FLAGS RLANDBIT ONBIT OUTSIDEBIT)
+      (GLOBAL HEART-OF-GOLD DAMOGRAN PLATFORM CROWD)
+      (ACTION DAIS-F)>
+
+<ROUTINE DAIS-EXIT-F ()
+	 <COND (<NOT <IN? ,GUARDS ,HERE>>
+		<SETG AWAITING-REPLY 5>
+		<ENABLE <QUEUE I-REPLY 2>>
+		<TELL
+"Don't you think it would be a bad idea to leave the ceremonies?" CR>
+		<RFALSE>)
+	       (<OR <IN? ,RIFLES ,HERE>
+		    <IN? ,RIFLES ,GUARDS>>
+		<TELL
+"You and " D ,TRILLIAN " break for " D ,HEART-OF-GOLD ". ">
+		<COND (<FSET? ,BLASTER ,TRYTAKEBIT>
+		       <TELL ,GUARDS-REALIZE "They">)
+		      (T
+		       <TELL "The guards">)>
+		<GUARD-DEATH>
+		<RFALSE>)
+	       (T
+		<SETG SCORE <+ ,SCORE 25>>
+		<FSET ,SPEEDBOAT ,REVISITBIT>
+		<MOVE ,BLASTER ,LOCAL-GLOBALS>
+		<ROB ,PROTAGONIST ,HATCHWAY>
+		<TELL
+"You and " D ,TRILLIAN " enter " D ,HEART-OF-GOLD ", that beautiful bauble
+you've been coveting ever since your decision to run for" ,PRESIDENT>
+		<JIGS-UP
+". The excitement overwhelms you (or perhaps it's just the awesome hangover
+from last night).">
+		<RFALSE>)>> 
+
+<ROUTINE DAIS-F (RARG)
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <FSET? ,SPEEDBOAT ,REVISITBIT>>
+		<SETG DREAMING T>
+		<JIGS-UP
+"The remnants of a rapidly dispersing crowd gasp at your appearance. You
+are immediately seized by guards who, in an unconstitutional departure from
+protocol, hurl you over the cliff.">
+		<RTRUE>)
+	       (<AND <EQUAL? .RARG ,M-ENTER>
+		     <NOT <FSET? ,SPEEDBOAT ,REVISITBIT>>>
+		<PUTP ,PROTAGONIST ,P?ACTION ,DAIS-FUNCTION>
+		<TELL
+"As you step out of the boat, the plume of water lowers it away. The crowd,
+unaware of the autopilot, bursts into a round of admiring applause." CR CR>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a platform surrounded by a crowd. ">
+		<COND (<IN? ,BANNER ,HERE>
+		       <TELL
+"Several members of the crowd are holding a huge banner. ">)>
+		<TELL "Just to the east is " D ,HEART-OF-GOLD>
+		<COND (<IN? ,RIFLES ,GUARDS>
+		       <TELL ". A semicircle of guards are aiming photon rifles at you and " D ,TRILLIAN>)
+		      (<IN? ,GUARDS ,HERE>
+		       <TELL
+". Many disarmed guards are nervously eyeing you and " D ,TRILLIAN>)>
+	        <COND (<IN? ,BLASTER ,TRILLIAN>
+		       <TELL
+", who is pointing a blaster at your head">)>
+		<TELL "." CR>)>>
+
+<ROUTINE DAIS-FUNCTION ()
+	 <COND (<VERB? QUIT RESTART RESTORE SCORE VERSION SAVE ;AGAIN WALK
+		       VERBOSE BRIEF SUPERBRIEF SCRIPT UNSCRIPT FOOTNOTE
+		       LOOK INVENTORY HINTS WHO WHAT WHERE WHY YES NO THROUGH>
+		<>)
+	       (<AND <PRSO? ,BANNER ,CROWD>
+		     <VERB? COUNT EXAMINE THROUGH READ>>
+		<>)
+	       (T
+		<SETG DAIS-COUNTER <+ ,DAIS-COUNTER 1>>
+		<TELL ,CROWD-CHEERS>
+		<COND (<EQUAL? ,DAIS-COUNTER 4>
+		       <PUTP ,PROTAGONIST ,P?ACTION ,PROTAGONIST-F>
+		       <MOVE ,TRILLIAN ,HERE>
+		       <MOVE ,BLASTER ,TRILLIAN>
+		       <MOVE ,GUARDS ,HERE>
+		       <MOVE ,RIFLES ,GUARDS>
+		       <ENABLE <QUEUE I-GUARDS 8>>
+		       <TELL
+" Suddenly, " D ,TRILLIAN " leaps out of the crowd, grabs you by the necks,
+and points a blaster at your left head. Guards rush up, photon rifles poised
+to shoot. \"Stay back!\" shouts " D ,TRILLIAN ". \"One more step and the"
+,PRESIDENT " is fried meat!\" The guards seem unsure, and look at you for
+instructions.">)>
+		<FUCKING-CLEAR>
+		<CRLF>)>>
+
+<ROUTINE CROWD-PSEUDO ()
+	 <COND (<VERB? COUNT EXAMINE>
+		<TELL "It's big." CR>)
+	       (<VERB? SHOOT>
+		<COND (<BLASTER-HOLD>
+		       <RTRUE>)>
+		<TELL
+"You may be a scoundrel, but you're not a mass murderer." CR>)
+	       (<VERB? THROUGH>
+		<TELL
+"You'd be crushed by the enthusiasm of your admirers." CR>)
+	       (<VERB? TELL WAVE-AT>
+		<TELL ,CROWD-CHEERS CR>
+		<FUCKING-CLEAR>
+		<RTRUE>)>>
+
+<OBJECT PLATFORM
+	(LOC LOCAL-GLOBALS)
+	(DESC "Dais")
+	(SYNONYM DAIS PLATFORM)
+	(ACTION PLATFORM-F)>
+
+<ROUTINE PLATFORM-F ()
+	 <COND (<AND <EQUAL? ,HERE ,SPEEDBOAT>
+		     <NOT ,BOAT-DOCKED>>
+		<CANT-SEE ,PLATFORM>)
+	       (<VERB? THROUGH WALK-TO>
+		<COND (<EQUAL? ,HERE ,DAIS>
+		       <TELL ,LOOK-AROUND CR>)
+		      (T
+		       <DO-WALK ,P?NORTH>)>)
+	       (<VERB? LEAVE DISEMBARK>
+		<COND (<EQUAL? ,HERE ,DAIS>
+		       <DO-WALK ,P?EAST>)
+		      (T
+		       <TELL ,LOOK-AROUND CR>)>)>>
+
+<OBJECT BANNER
+	(LOC DAIS)
+	(DESC "banner")
+	(SYNONYM BANNER)
+	(ADJECTIVE HUGE)
+	(FLAGS NDESCBIT READBIT)
+	(TEXT "\"President Beeblebrox is a Swell Guy\" (Footnote 15).")>
+
+<OBJECT BLASTER
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "blaster")
+	(SYNONYM BLASTER WEAPON)
+	(FLAGS NDESCBIT TAKEBIT TRYTAKEBIT)
+        (ACTION BLASTER-F)>
+
+<ROUTINE BLASTER-F ()
+	 <COND (<AND <VERB? TAKE>
+		     <FSET? ,BLASTER ,TRYTAKEBIT>>
+		<TELL ,GUARDS-REALIZE "They">
+		<COND (<IN? ,RIFLES ,GUARDS>
+		       <GUARD-DEATH>)
+		      (T
+		       <FCLEAR ,BLASTER ,TRYTAKEBIT>
+		       <FCLEAR ,BLASTER ,NDESCBIT>
+		       <MOVE ,BLASTER ,PROTAGONIST>
+		       <ENABLE <QUEUE I-GUARDS 5>>
+		       <TELL
+" are disarmed, though, and unable to do anything as you take
+the blaster." CR>)>)
+	       (<AND <VERB? SHOOT>
+		     <PRSI? ,BLASTER>>
+		<COND (<PRSO? ,BLASTER>
+		       <V-COUNT>)
+		      (<PRSO? ,GROUND>
+		       <V-DIG>)
+		      (<OR <FSET? ,PRSO ,TAKEBIT>
+			   <PRSO? ,BANNER>>
+		       <MOVE ,PRSO ,LOCAL-GLOBALS>
+		       <TELL "With a cloud of sparks">
+		       <COND (<PRSO? ,RIFLES>
+			      <TELL " the " D ,RIFLES>)
+			     (T
+			      <ARTICLE ,PRSO T>)>
+		       <TELL " disintegrates. " ,CROWD-CHEERS CR>)
+		      (<PRSO? ,HEART-OF-GOLD>
+		       <TELL "You're too far." CR>)>)>>
+
+<ROUTINE BLASTER-HOLD ()
+	 <COND (<NOT <HELD? ,BLASTER>>
+		<TELL ,NOT-HOLDING " the " D ,BLASTER "." CR>
+		<RTRUE>)>>
+
+<OBJECT RIFLES
+	(LOC LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
+	(DESC "pile of photon rifles")
+	(SYNONYM RIFLE RIFLES PILE WEAPON WEAPONS)
+	(ADJECTIVE PHOTON YOUR)
+	(FLAGS NDESCBIT TRYTAKEBIT)
+        (ACTION RIFLES-F)>
+
+<ROUTINE RIFLES-F ()
+	 <COND (<VERB? SHOOT>
+		<COND (<BLASTER-HOLD>
+		       <RTRUE>)>
+		<COND (<IN? ,RIFLES ,GUARDS>
+		       <PERFORM ,V?SHOOT ,GUARDS>
+		       <RTRUE>)
+		      (T
+		       <MOVE ,RIFLES ,LOCAL-GLOBALS>
+		       <TELL
+"The rifles explode in a flashy display of sparks and shrapnel. " ,CROWD-CHEERS
+" The guards begin to look a bit concerned." CR>)>)
+	       (<AND <VERB? TAKE>
+		     <FSET? ,RIFLES ,TRYTAKEBIT>>
+		<TELL ,GUARDS-REALIZE>
+		<JIGS-UP
+"As you begin taking the rifles, so do several of the guards. They may be dim,
+but they know what to do with a photon rifle.">
+		<RTRUE>)>>
+
+<ROUTINE GUARD-DEATH ()
+	 <COND (<NOT <VISIBLE? ,RIFLES>>
+		<TELL " grab the blaster and">)
+	       (<NOT <IN? ,RIFLES ,GUARDS>>
+		<TELL " pick up their rifles and">)>
+	 <JIGS-UP " reduce you to a smoking pile of ash.">>
+
+;"Whale stuff"
+
+<ROOM INSIDE-WHALE
+      (LOC ROOMS)
+      (SYNONYM TREE FOREKNOWL)
+      (DESC "Inside the Sperm Whale")
+      (LDESC
+"You are in the stomach of a sperm whale. You can hear a distant sound
+of rushing wind.")
+      (FLAGS ONBIT RLANDBIT NARTICLEBIT)
+      (ACTION INSIDE-WHALE-F)>
+
+<ROUTINE INSIDE-WHALE-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-ENTER>
+		<ENABLE <QUEUE I-WHALE 11>>
+		<SETG DREAMING T>
+		<RFALSE>)>>
+
+<ROUTINE I-WHALE ()
+	 <COND (<EQUAL? ,HERE ,INSIDE-WHALE>
+		<CRLF>
+		<JIGS-UP "SPLAT!!!!!">
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<OBJECT WHALE-OBJECT
+	(LOC INSIDE-WHALE)
+	(DESC "innard of a whale")
+	(SYNONYM INNARD WHALE STOMACH)
+	(ADJECTIVE SPERM)
+	(FLAGS VOWELBIT NDESCBIT)
+	(ACTION WHALE-OBJECT-F)>
+
+<ROUTINE WHALE-OBJECT-F ()
+	 <COND (<VERB? EXIT LEAVE DISEMBARK>
+		<V-WALK-AROUND>)>>
\ No newline at end of file
diff --git a/verbs.zabstr b/verbs.zabstr
new file mode 100644
index 0000000..f7f1a77
--- /dev/null
+++ b/verbs.zabstr
@@ -0,0 +1,249 @@
+
+<GLOBAL VERBOSITY 1> 
+<DEFINE-ROUTINE V-$REFRESH> 
+<DEFINE-ROUTINE V-VERBOSE> 
+<DEFINE-ROUTINE V-BRIEF> 
+<DEFINE-ROUTINE V-SUPERBRIEF> 
+<DEFINE-ROUTINE V-DIAGNOSE> 
+<DEFINE-ROUTINE V-INVENTORY> 
+<DEFINE-ROUTINE V-QUIT> 
+<DEFINE-ROUTINE V-RESTART> 
+<DEFINE-ROUTINE FINISH> 
+<DEFINE-ROUTINE YES?> 
+<DEFINE-ROUTINE V-RESTORE> 
+<DEFINE-ROUTINE V-SAVE> 
+<DEFINE-ROUTINE V-SCORE> 
+<DEFINE-ROUTINE V-SCRIPT> 
+<DEFINE-ROUTINE V-UNSCRIPT> 
+<DEFINE-ROUTINE COPR-NOTICE> 
+<DEFINE-ROUTINE V-$ID> 
+<DEFINE-ROUTINE V-VERSION> 
+<DEFINE-ROUTINE V-$VERIFY> 
+<CONSTANT SERIAL 0> 
+<DEFINE-ROUTINE V-ALARM> 
+<DEFINE-ROUTINE V-ANSWER> 
+<DEFINE-ROUTINE V-APPLAUD> 
+<DEFINE-ROUTINE V-APPRECIATE> 
+<DEFINE-ROUTINE V-ASK-ABOUT> 
+<DEFINE-ROUTINE V-ASK-FOR> 
+<DEFINE-ROUTINE V-BITE> 
+<DEFINE-ROUTINE V-BLOCK> 
+<DEFINE-ROUTINE V-BLOCK-WITH> 
+<DEFINE-ROUTINE PRE-BOARD> 
+<DEFINE-ROUTINE V-BOARD> 
+<DEFINE-ROUTINE V-BRUSH> 
+<DEFINE-ROUTINE V-BUY> 
+<DEFINE-ROUTINE V-CALL> 
+<DEFINE-ROUTINE V-CALL-WITH> 
+<DEFINE-ROUTINE PRE-CARVE> 
+<DEFINE-ROUTINE V-CARVE> 
+<DEFINE-ROUTINE V-CARVE-WITH> 
+<DEFINE-ROUTINE V-CHASTISE> 
+<DEFINE-ROUTINE V-CLEAN> 
+<DEFINE-ROUTINE V-CLIMB-DOWN> 
+<DEFINE-ROUTINE V-CLIMB-FOO> 
+<DEFINE-ROUTINE V-CLIMB-ON> 
+<DEFINE-ROUTINE V-CLIMB-OVER> 
+<DEFINE-ROUTINE V-CLIMB-UP> 
+<DEFINE-ROUTINE V-CLOSE> 
+<DEFINE-ROUTINE V-COUNT> 
+<DEFINE-ROUTINE V-CUT> 
+<DEFINE-ROUTINE V-DIG> 
+<DEFINE-ROUTINE V-DISEMBARK> 
+<DEFINE-ROUTINE V-DOZE> 
+<DEFINE-ROUTINE V-DRINK> 
+<DEFINE-ROUTINE V-DRINK-FROM> 
+<DEFINE-ROUTINE PRE-DROP> 
+<DEFINE-ROUTINE V-DROP> 
+<DEFINE-ROUTINE V-EAT> 
+<DEFINE-ROUTINE V-ENJOY> 
+<DEFINE-ROUTINE V-ENTER> 
+<DEFINE-ROUTINE V-ESCAPE> 
+<DEFINE-ROUTINE V-EXAMINE> 
+<DEFINE-ROUTINE V-EXAMINE-THROUGH> 
+<DEFINE-ROUTINE V-EXIT> 
+<DEFINE-ROUTINE V-FEED> 
+<DEFINE-ROUTINE V-FILL> 
+<DEFINE-ROUTINE V-FIND> 
+<DEFINE-ROUTINE V-FIRST-LOOK> 
+<DEFINE-ROUTINE V-FLIPSWITCH> 
+<DEFINE-ROUTINE V-FOLLOW> 
+<GLOBAL FOLLOW-FLAG <>> 
+<DEFINE-ROUTINE I-FOLLOW> 
+<DEFINE-ROUTINE V-FOOTNOTE> 
+<DEFINE-ROUTINE V-FRIPPING> 
+<DEFINE-ROUTINE V-GET-DRESSED> 
+<DEFINE-ROUTINE V-GET-DRUNK> 
+<DEFINE-ROUTINE V-GET-UNDRESSED> 
+<DEFINE-ROUTINE PRE-GIVE> 
+<DEFINE-ROUTINE V-GIVE> 
+<DEFINE-ROUTINE V-GIVE-UP> 
+<DEFINE-ROUTINE V-HANG> 
+<DEFINE-ROUTINE V-HELLO> 
+<DEFINE-ROUTINE V-HIDE> 
+<DEFINE-ROUTINE V-HITCHHIKE> 
+<DEFINE-ROUTINE V-I-AM> 
+<DEFINE-ROUTINE V-IDIOT> 
+<DEFINE-ROUTINE V-KICK> 
+<DEFINE-ROUTINE V-KILL> 
+<DEFINE-ROUTINE V-KNEEL> 
+<DEFINE-ROUTINE V-KNOCK> 
+<DEFINE-ROUTINE V-KISS> 
+<DEFINE-ROUTINE V-LAMP-OFF> 
+<DEFINE-ROUTINE V-LAMP-ON> 
+<DEFINE-ROUTINE V-LEAP> 
+<DEFINE-ROUTINE V-LEAVE> 
+<DEFINE-ROUTINE V-LIE-DOWN> 
+<DEFINE-ROUTINE V-LISTEN> 
+<DEFINE-ROUTINE V-LOCK> 
+<DEFINE-ROUTINE V-LOOK> 
+<DEFINE-ROUTINE V-LOOK-BEHIND> 
+<DEFINE-ROUTINE V-LOOK-DOWN> 
+<DEFINE-ROUTINE V-LOOK-INSIDE> 
+<DEFINE-ROUTINE V-LOOK-UNDER> 
+<DEFINE-ROUTINE V-LOOK-UP> 
+<DEFINE-ROUTINE V-LOWER> 
+<DEFINE-ROUTINE V-MAKE> 
+<DEFINE-ROUTINE V-MOVE> 
+<DEFINE-ROUTINE V-MUNG> 
+<DEFINE-ROUTINE V-MY-NAME> 
+<DEFINE-ROUTINE V-NO> 
+<DEFINE-ROUTINE V-OPEN> 
+<DEFINE-ROUTINE V-PANIC> 
+<DEFINE-ROUTINE V-PICK> 
+<DEFINE-ROUTINE V-PICK-UP> 
+<DEFINE-ROUTINE V-PLANT> 
+<DEFINE-ROUTINE V-PLUG> 
+<DEFINE-ROUTINE V-POINT> 
+<DEFINE-ROUTINE V-POUR> 
+<DEFINE-ROUTINE V-PROTEST> 
+<DEFINE-ROUTINE V-PULL-TOGETHER> 
+<DEFINE-ROUTINE V-PUSH> 
+<DEFINE-ROUTINE PRE-PUT> 
+<DEFINE-ROUTINE V-PUT> 
+<DEFINE-ROUTINE V-PUT-BEHIND> 
+<DEFINE-ROUTINE V-PUT-IN-FRONT> 
+<DEFINE-ROUTINE V-PUT-ON> 
+<DEFINE-ROUTINE V-PUT-UNDER> 
+<DEFINE-ROUTINE V-RAPE> 
+<DEFINE-ROUTINE V-RAISE> 
+<DEFINE-ROUTINE PRE-READ> 
+<DEFINE-ROUTINE V-READ> 
+<DEFINE-ROUTINE V-REFUSE> 
+<DEFINE-ROUTINE V-RELAX> 
+<DEFINE-ROUTINE V-REMOVE> 
+<DEFINE-ROUTINE V-REPLACE> 
+<DEFINE-ROUTINE V-REPAIR> 
+<DEFINE-ROUTINE V-REPLY> 
+<DEFINE-ROUTINE V-RUB> 
+<DEFINE-ROUTINE V-SAVE-SOMETHING> 
+<DEFINE-ROUTINE V-SAY> 
+<DEFINE-ROUTINE SAID-YOUR-NAME?> 
+<DEFINE-ROUTINE SAID-WITH-TOWEL> 
+<DEFINE-ROUTINE V-SAY-NAME> 
+<DEFINE-ROUTINE V-SEARCH> 
+<DEFINE-ROUTINE V-SGIVE> 
+<DEFINE-ROUTINE V-SHAKE> 
+<DEFINE-ROUTINE V-SHAKE-WITH> 
+<DEFINE-ROUTINE V-SHOOT> 
+<DEFINE-ROUTINE V-SHOW> 
+<DEFINE-ROUTINE V-SIT> 
+<DEFINE-ROUTINE V-SKIP> 
+<DEFINE-ROUTINE V-SLEEP> 
+<DEFINE-ROUTINE V-SMELL> 
+<DEFINE-ROUTINE V-SMILE> 
+<DEFINE-ROUTINE V-SPIN> 
+<DEFINE-ROUTINE V-SPUT-ON> 
+<DEFINE-ROUTINE V-SSHOOT> 
+<DEFINE-ROUTINE V-SSHOW> 
+<DEFINE-ROUTINE V-STAND> 
+<DEFINE-ROUTINE V-STAND-BEFORE> 
+<DEFINE-ROUTINE V-STAND-ON> 
+<DEFINE-ROUTINE V-STEER> 
+<DEFINE-ROUTINE PRE-TAKE> 
+<CONSTANT LURCHES <PLTABLE
+"It slips through your fumbling fingers and hits the carpet with a
+nerve-shattering bang." "It dances by you like a thing possessed."
+"You lunge for it, but the room spins nauseatingly away. The floor
+gives you a light tap on the forehead."
+"You're certainly picking the tough tasks. The floor acts like a
+trampoline on an ice rink, or like something they've been working
+on for years at Disneyland.">> 
+<DEFINE-ROUTINE V-TAKE> 
+<DEFINE-ROUTINE V-TAKE-OFF> 
+<DEFINE-ROUTINE V-TASTE> 
+<DEFINE-ROUTINE V-TELL> 
+<DEFINE-ROUTINE V-TELL-ABOUT> 
+<DEFINE-ROUTINE V-TELL-TIME> 
+<DEFINE-ROUTINE V-TELL-NAME> 
+<DEFINE-ROUTINE V-THANK> 
+<DEFINE-ROUTINE V-THROUGH> 
+<DEFINE-ROUTINE PRE-THROW> 
+<DEFINE-ROUTINE V-THROW> 
+<DEFINE-ROUTINE V-THROW-OFF> 
+<DEFINE-ROUTINE V-THROW-IN-TOWEL> 
+<DEFINE-ROUTINE V-TIE> 
+<DEFINE-ROUTINE V-TIE-TOGETHER> 
+<DEFINE-ROUTINE V-TURN> 
+<DEFINE-ROUTINE V-TYPE> 
+<DEFINE-ROUTINE V-TYPE-ON> 
+<DEFINE-ROUTINE V-UNLOCK> 
+<DEFINE-ROUTINE V-UNPLUG> 
+<DEFINE-ROUTINE V-UNTIE> 
+<DEFINE-ROUTINE V-WALK> 
+<DEFINE-ROUTINE V-WALK-AROUND> 
+<DEFINE-ROUTINE V-WALK-TO> 
+<DEFINE-ROUTINE V-WAIT> 
+<DEFINE-ROUTINE V-WAIT-FOR> 
+<DEFINE-ROUTINE V-WATER> 
+<DEFINE-ROUTINE V-WAVE> 
+<DEFINE-ROUTINE V-WAVE-AT> 
+<DEFINE-ROUTINE V-WEAR> 
+<DEFINE-ROUTINE V-WHAT> 
+<DEFINE-ROUTINE V-WHAT-ABOUT> 
+<DEFINE-ROUTINE V-WHAT-TIME> 
+<DEFINE-ROUTINE V-WHERE> 
+<DEFINE-ROUTINE V-WHO> 
+<DEFINE-ROUTINE V-WHY> 
+<DEFINE-ROUTINE V-YELL> 
+<DEFINE-ROUTINE V-YES> 
+<DEFINE-ROUTINE ITAKE> 
+<DEFINE-ROUTINE IDROP> 
+<DEFINE-ROUTINE CCOUNT> 
+<DEFINE-ROUTINE WEIGHT> 
+<DEFINE-ROUTINE DESCRIBE-ROOM> 
+<DEFINE-ROUTINE DESCRIBE-OBJECTS> 
+<DEFINE-ROUTINE DESCRIBE-OBJECT> 
+<DEFINE-ROUTINE PRINT-CONT> 
+<DEFINE-ROUTINE PRINT-CONTENTS> 
+<DEFINE-ROUTINE FIRSTER> 
+<DEFINE-ROUTINE DESCRIBE-VEHICLE> 
+<DEFINE-ROUTINE GOTO> 
+<DEFINE-ROUTINE UNPLUG-HELD-STUFF> 
+<DEFINE-ROUTINE JIGS-UP> 
+<DEFINE-ROUTINE ACCESSIBLE?> 
+<DEFINE-ROUTINE VISIBLE?> 
+<DEFINE-ROUTINE META-LOC> 
+<DEFINE-ROUTINE OTHER-SIDE> 
+<DEFINE-ROUTINE HELD?> 
+<DEFINE-ROUTINE SEE-INSIDE?> 
+<DEFINE-ROUTINE GLOBAL-IN?> 
+<DEFINE-ROUTINE FIND-IN> 
+<DEFINE-ROUTINE LOC-CLOSED> 
+<DEFINE-ROUTINE DO-WALK> 
+<DEFINE-ROUTINE FUCKING-CLEAR> 
+<DEFINE-ROUTINE ROB> 
+<DEFINE-ROUTINE HOLDING-ONE-BUT-NOT-BOTH?> 
+<DEFINE-ROUTINE HACK-HACK> 
+<DEFINE-ROUTINE ARTICLE> 
+<CONSTANT HO-HUM <PLTABLE " doesn't do anything." " accomplishes nothing."
+" has no desirable effect.">> 
+<CONSTANT YUKS <PLTABLE "What a concept." "Nice try." "You can't be serious."
+"Not bloody likely.">> 
+<CONSTANT IMPOSSIBLES <PLTABLE "You have lost your mind."
+"You are clearly insane." "You appear to have gone barking mad."
+"I'm not convinced you're allowed to be playing with this computer."
+"Run out on the street and say that. See what happens."
+"No, no, a thousand times no. Go boil an egg.">> 
+<CONSTANT WASTES <PLTABLE "Complete waste of time." "Useless. Utterly useless."
+"A totally unhelpful idea.">> 
\ No newline at end of file
diff --git a/verbs.zap b/verbs.zap
new file mode 100644
index 0000000..ebe9ae8
--- /dev/null
+++ b/verbs.zap
@@ -0,0 +1,3272 @@
+
+
+	.FUNCT	V-$REFRESH
+	GET	0,8
+	BAND	STACK,-5
+	PUT	0,8,STACK
+	CLEAR	-1
+	ICALL1	INIT-STATUS-LINE
+	RTRUE	
+
+
+	.FUNCT	V-VERBOSE
+	SET	'VERBOSITY,2
+	PRINTI	"Maximum verbosity."
+	CRLF	
+	CRLF	
+	CALL1	V-LOOK
+	RSTACK	
+
+
+	.FUNCT	V-BRIEF
+	SET	'VERBOSITY,1
+	PRINTR	"Brief descriptions."
+
+
+	.FUNCT	V-SUPERBRIEF
+	SET	'VERBOSITY,0
+	PRINTR	"Superbrief descriptions."
+
+
+	.FUNCT	V-DIAGNOSE
+	ZERO?	HEADACHE /?CCL3
+	PRINTR	"You have a big blinding throbber."
+?CCL3:	ZERO?	GROGGY /?CCL7
+	PRINTR	"You feel weak."
+?CCL7:	EQUAL?	IDENTITY-FLAG,ZAPHOD \?PRG14
+	PRINTI	"You have two "
+	PRINTD	HANGOVER
+	PRINTR	"s."
+?PRG14:	PRINTR	"You are in good health."
+
+
+	.FUNCT	V-INVENTORY,SPARE-KLUDGE
+	FSET?	SPARE-DRIVE,NDESCBIT \?CCL3
+	SET	'SPARE-KLUDGE,TRUE-VALUE
+	FCLEAR	SPARE-DRIVE,NDESCBIT
+	JUMP	?CND1
+?CCL3:	SET	'SPARE-KLUDGE,FALSE-VALUE
+?CND1:	EQUAL?	IDENTITY-FLAG,ARTHUR /?PRG11
+	FIRST?	PROTAGONIST /?PRG11
+	PRINTI	"You are empty-handed."
+	CRLF	
+	JUMP	?CND4
+?PRG11:	PRINTI	"You have:"
+	CRLF	
+	ZERO?	HEADACHE /?CND13
+	PRINTI	"  a "
+	PRINTD	HANGOVER
+	CRLF	
+?CND13:	EQUAL?	IDENTITY-FLAG,ARTHUR \?CND17
+	ZERO?	HOLDING-NO-TEA \?CCL18
+	CALL2	HELD?,TEA
+	ZERO?	STACK \?CND17
+?CCL18:	SET	'HOLDING-NO-TEA,TRUE-VALUE
+	PRINTI	"  no tea"
+	CRLF	
+?CND17:	ICALL2	PRINT-CONT,PROTAGONIST
+?CND4:	ZERO?	SPARE-KLUDGE /FALSE
+	FSET	SPARE-DRIVE,NDESCBIT
+	RTRUE	
+
+
+	.FUNCT	V-QUIT
+	ICALL1	V-SCORE
+	PRINTI	"Do you wish to leave the game? (Y is affirmative): "
+	CALL1	YES?
+	ZERO?	STACK /?PRG6
+	QUIT	
+	RTRUE	
+?PRG6:	PRINTR	"Ok."
+
+
+	.FUNCT	V-RESTART
+	ICALL2	V-SCORE,TRUE-VALUE
+	PRINTI	"Do you wish to restart? (Y is affirmative): "
+	CALL1	YES?
+	ZERO?	STACK /FALSE
+	PRINTI	"Restarting."
+	CRLF	
+	RESTART	
+	PRINTR	"Failed."
+
+
+	.FUNCT	FINISH,REPEATING
+	CRLF	
+	ZERO?	REPEATING \?PRG3
+	ICALL1	V-SCORE
+	CRLF	
+?PRG3:	PRINTI	"Would you like to start over, restore a saved position, get hints or end this session of the game?
+(Type RESTART, RESTORE, HINTS or QUIT):
+>"
+	PUTB	P-INBUF,1,0
+	READ	P-INBUF,P-LEXV
+	GET	P-LEXV,1
+	EQUAL?	STACK,W?RESTART \?CCL7
+	RESTART	
+	PRINTI	"Failed."
+	CRLF	
+	CALL2	FINISH,TRUE-VALUE
+	RSTACK	
+?CCL7:	GET	P-LEXV,1
+	EQUAL?	STACK,W?RESTORE \?CCL11
+	RESTORE	
+	ZERO?	STACK /?PRG17
+	PRINTR	"Ok."
+?PRG17:	PRINTI	"Failed."
+	CRLF	
+	CALL2	FINISH,TRUE-VALUE
+	RSTACK	
+?CCL11:	GET	P-LEXV,1
+	EQUAL?	STACK,W?HINTS \?CCL20
+	ICALL1	V-HINTS
+	ICALL1	INIT-STATUS-LINE
+	ICALL1	UPDATE-STATUS-LINE
+	CALL2	FINISH,TRUE-VALUE
+	RSTACK	
+?CCL20:	GET	P-LEXV,1
+	EQUAL?	STACK,W?QUIT,W?Q \?CCL22
+	QUIT	
+	RTRUE	
+?CCL22:	CALL2	FINISH,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	YES?
+	PRINTC	62
+	PUTB	P-INBUF,1,0
+	READ	P-INBUF,P-LEXV
+	GET	P-LEXV,1
+	EQUAL?	STACK,W?YES,W?Y /TRUE
+	RFALSE	
+
+
+	.FUNCT	V-RESTORE
+	RESTORE	
+	ZERO?	STACK /?PRG6
+	PRINTR	"Ok."
+?PRG6:	PRINTR	"Failed."
+
+
+	.FUNCT	V-SAVE,X
+	SAVE	 >X
+	GET	0,8
+	BTST	STACK,4 \?CCL3
+	ICALL1	V-$REFRESH
+	JUMP	?CND1
+?CCL3:	EQUAL?	X,2 \?CND1
+	ICALL1	INIT-STATUS-LINE
+?CND1:	ZERO?	X \?PRG12
+	PRINTI	"Failed."
+	CRLF	
+	RETURN	2
+?PRG12:	PRINTI	"Okay."
+	CRLF	
+	EQUAL?	X,1 /TRUE
+	ICALL1	V-FIRST-LOOK
+	RTRUE	
+
+
+	.FUNCT	V-SCORE,ASK?
+	ASSIGNED?	'ASK? /?CND1
+	SET	'ASK?,TRUE-VALUE
+?CND1:	LESS?	SCORE,400 \?PRG7
+	PRINTI	"We are about to give you your score. Put on your peril-sensitive sunglasses now. (Hit RETURN or ENTER when ready.) "
+	PRINTC	62
+	PUTB	P-INBUF,1,0
+	READ	P-INBUF,P-LEXV
+	SET	'P-CONT,FALSE-VALUE
+	CRLF	
+?PRG7:	PRINTI	"Your score is "
+	PRINTN	SCORE
+	PRINTI	" of a possible 400, in "
+	PRINTN	MOVES
+	EQUAL?	MOVES,1 \?PRG14
+	PRINTI	" turn."
+	JUMP	?CND9
+?PRG14:	PRINTI	" turns."
+?CND9:	CRLF	
+	RETURN	SCORE
+
+
+	.FUNCT	V-SCRIPT
+	PRINT	STR?27
+	PRINTI	"n.]"
+	CRLF	
+	DIROUT	D-PRINTER-ON
+	ICALL2	COPR-NOTICE,STR?28
+	RTRUE	
+
+
+	.FUNCT	V-UNSCRIPT
+	ICALL2	COPR-NOTICE,STR?29
+	DIROUT	D-PRINTER-OFF
+	PRINT	STR?27
+	PRINTR	"ff.]"
+
+
+	.FUNCT	COPR-NOTICE,STR
+	DIROUT	D-SCREEN-OFF
+	CRLF	
+	PRINTI	"Here "
+	PRINT	STR
+	PRINTI	"s a transcript of interaction with"
+	CRLF	
+	ICALL1	V-VERSION
+	DIROUT	D-SCREEN-ON
+	RTRUE	
+
+
+	.FUNCT	V-$ID
+	PRINTI	"Interpreter "
+	GETB	0,30
+	PRINTN	STACK
+	PRINTI	" Version "
+	GETB	0,31
+	PRINTC	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-VERSION,CNT,V
+	SET	'CNT,17
+	GET	0,1
+	BAND	STACK,2047 >V
+	CRLF	
+	PRINTI	"THE HITCHHIKER'S GUIDE TO THE GALAXY
+Infocom interactive fiction - a science fiction story
+Copyright (c) 1984 by Infocom, Inc. All rights reserved.
+Release "
+	PRINTN	V
+	PRINTI	" / Serial number "
+?PRG3:	IGRTR?	'CNT,23 /?REP4
+	GETB	0,CNT
+	PRINTC	STACK
+	JUMP	?PRG3
+?REP4:	PRINTI	" / "
+	ICALL1	V-$ID
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-$VERIFY
+	EQUAL?	PRSO,INTNUM \?PRG8
+	EQUAL?	P-NUMBER,469 \?PRG8
+	PRINTN	SERIAL
+	CRLF	
+	RTRUE	
+?PRG8:	PRINTI	"Verifying..."
+	CRLF	
+	VERIFY	 \?PRG15
+	PRINTR	"Good."
+?PRG15:	CRLF	
+	PRINTR	"** Bad **"
+
+
+	.FUNCT	V-ALARM
+	EQUAL?	PRSO,ROOMS \?PRG4
+	ICALL	PERFORM,V?ALARM,ME
+	RTRUE	
+?PRG4:	PRINTI	"I don't think"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" is sleeping."
+
+
+	.FUNCT	V-ANSWER
+	ZERO?	AWAITING-REPLY /?CCL3
+	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?YES \?CCL3
+	ICALL1	V-YES
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	ZERO?	AWAITING-REPLY /?CCL7
+	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?NO \?CCL7
+	ICALL1	V-NO
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL7:	IN?	BEAST,HERE \?PRG12
+	ICALL1	V-SAY
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?PRG12:	PRINTI	"Nobody is awaiting your answer."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+
+
+	.FUNCT	V-APPLAUD
+	CALL2	RUNNING?,I-CAPTAIN
+	ZERO?	STACK /?PRG6
+	PRINTR	"If you want to enjoy the poetry, just type that."
+?PRG6:	PRINTR	"Thank you, thank you."
+
+
+	.FUNCT	V-APPRECIATE
+	CALL2	RUNNING?,I-CAPTAIN
+	ZERO?	STACK /?PRG4
+	CALL1	V-APPLAUD
+	RSTACK	
+?PRG4:	PRINTR	"Hey, I never get any appreciation! There's absolutely no job satisfaction in being a computer."
+
+
+	.FUNCT	V-ASK-ABOUT
+	EQUAL?	PRSO,ME \?CCL3
+	ICALL	PERFORM,V?TELL,ME
+	RTRUE	
+?CCL3:	FSET?	PRSO,ACTORBIT \?CCL5
+	PRINTI	"A long silence tells you that"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTI	" isn't interested in talking about"
+	IN?	PRSI,ROOMS \?CCL12
+	PRINTI	" that"
+	JUMP	?PRG15
+?CCL12:	ICALL	ARTICLE,PRSI,TRUE-VALUE
+?PRG15:	PRINTR	"."
+?CCL5:	ICALL	PERFORM,V?TELL,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-ASK-FOR
+	PRINTI	"Unsurprisingly,"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" doesn't oblige."
+
+
+	.FUNCT	V-BITE
+	CALL2	HACK-HACK,STR?30
+	RSTACK	
+
+
+	.FUNCT	V-BLOCK
+	CALL1	V-DIG
+	RSTACK	
+
+
+	.FUNCT	V-BLOCK-WITH
+	CALL1	V-DIG
+	RSTACK	
+
+
+	.FUNCT	PRE-BOARD
+	ZERO?	IN-FRONT-FLAG /?CCL3
+	ICALL	PERFORM,V?STAND-BEFORE,PRSO
+	RTRUE	
+?CCL3:	LOC	PROTAGONIST
+	EQUAL?	PRSO,STACK \FALSE
+	PRINT	LOOK-AROUND
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-BOARD,AV
+	FSET?	PRSO,VEHBIT \?PRG10
+	PRINTI	"You are now in"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTC	46
+	CRLF	
+	MOVE	WINNER,PRSO
+	EQUAL?	HERE,SPEEDBOAT /?CND8
+	SET	'LYING-DOWN,TRUE-VALUE
+?CND8:	GETP	PRSO,P?ACTION
+	ICALL	STACK,M-ENTER
+	SET	'OHERE,FALSE-VALUE
+	RTRUE	
+?PRG10:	PRINTI	"You can't get into"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"!"
+
+
+	.FUNCT	V-BRUSH
+	ZERO?	PRSI \?CCL3
+	CALL2	HELD?,TOOTHBRUSH
+	ZERO?	STACK /?PRG9
+	PRINTI	"(with the "
+	PRINTD	TOOTHBRUSH
+	PRINTC	41
+	CRLF	
+	ICALL	PERFORM,V?BRUSH,PRSO,TOOTHBRUSH
+	RTRUE	
+?PRG9:	PRINTI	"You have nothing to brush"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" with."
+?CCL3:	EQUAL?	PRSI,TOOTHBRUSH /?CCL14
+	PRINTI	"With"
+	ICALL2	ARTICLE,PRSI
+	PRINTR	"!"
+?CCL14:	EQUAL?	PRSO,TEETH /?PRG23
+	PRINTI	"In general, "
+	PRINTD	TOOTHBRUSH
+	PRINTR	"es are meant for teeth."
+?PRG23:	PRINTR	"Congratulations on your fine dental hygiene."
+
+
+	.FUNCT	V-BUY
+	PRINTI	"Sorry,"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" isn't for sale."
+
+
+	.FUNCT	V-CALL
+	EQUAL?	HERE,BEDROOM /?CCL3
+	PRINTR	"There's no phone here!"
+?CCL3:	ZERO?	HEADACHE /?CCL7
+	PRINTI	"You reach for the receiver. "
+	CALL2	PICK-ONE,LURCHES
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?CCL7:	FSET?	PHONE,TOUCHBIT \?CCL11
+	PRINTR	"The cable is down, remember?"
+?CCL11:	EQUAL?	PRSO,DAIS \?CCL15
+	FSET	PHONE,TOUCHBIT
+	PRINTI	"You explain your situation. The desk sergeant promises to send someone over soon, and says not to try anything crazy in the meantime, like lying down in front of the "
+	PRINTD	BULLDOZER
+	PRINTC	46
+	PRINT	DIALING-TONE
+	CRLF	
+	RTRUE	
+?CCL15:	EQUAL?	PRSO,HOME \?CCL19
+	PRINTR	"Who do you think you are, E.T.?"
+?CCL19:	EQUAL?	PRSO,MAZE \?PRG24
+	CALL1	V-HINTS
+	RSTACK	
+?PRG24:	PRINTR	"You don't know the number."
+
+
+	.FUNCT	V-CALL-WITH
+	EQUAL?	PRSI,PHONE /?CCL3
+	PRINTI	"You can't use"
+	ICALL2	ARTICLE,PRSI
+	PRINTI	" as a "
+	PRINTD	PHONE
+	PRINTR	"."
+?CCL3:	ICALL	PERFORM,V?CALL,PRSO
+	RTRUE	
+
+
+	.FUNCT	PRE-CARVE
+	CALL2	HELD?,STONE
+	ZERO?	STACK \FALSE
+	PRINTR	"You have no carving instrument."
+
+
+	.FUNCT	V-CARVE
+	CALL2	PICK-ONE,YUKS
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-CARVE-WITH
+	EQUAL?	HERE,OUTER-LAIR \?PRG11
+	EQUAL?	PRSI,STONE \?PRG7
+	ICALL	PERFORM,V?CARVE,PRSO,MEMORIAL
+	RTRUE	
+?PRG7:	PRINTI	"No luck;"
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTI	" doesn't even scratch the "
+	PRINTD	MEMORIAL
+	PRINTR	"."
+?PRG11:	PRINTR	"Huh?"
+
+
+	.FUNCT	V-CHASTISE
+	PRINTR	"Use prepositions to indicate precisely what you want to do: LOOK AT the object, LOOK INSIDE it, LOOK UNDER it, etc."
+
+
+	.FUNCT	V-CLEAN
+	EQUAL?	PRSO,GLOBAL-ROOM,ROOMS \?CCL3
+	EQUAL?	HERE,BEDROOM \?CCL3
+	PRINTI	"Just as you've got it all spick and span"
+	CALL1	BETTER-LUCK
+	RSTACK	
+?CCL3:	EQUAL?	PRSO,TEETH \?CCL9
+	ICALL	PERFORM,V?BRUSH,TEETH
+	RTRUE	
+?CCL9:	EQUAL?	PRSO,TOWEL \?PRG12
+	SET	'TOWEL-MUDDY,FALSE-VALUE
+?PRG12:	PRINTR	"It is now much cleaner."
+
+
+	.FUNCT	V-CLIMB-DOWN
+	EQUAL?	PRSO,ROOMS \?CCL3
+	CALL2	DO-WALK,P?DOWN
+	RSTACK	
+?CCL3:	CALL1	V-CARVE
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-FOO
+	EQUAL?	PRSO,ROOMS \?CCL3
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+?CCL3:	CALL1	V-CARVE
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-ON
+	FSET?	PRSO,VEHBIT \?PRG4
+	ICALL	PERFORM,V?BOARD,PRSO
+	RTRUE	
+?PRG4:	PRINTI	"You can't climb onto"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"."
+
+
+	.FUNCT	V-CLIMB-OVER
+	CALL1	V-CARVE
+	RSTACK	
+
+
+	.FUNCT	V-CLIMB-UP
+	EQUAL?	PRSO,ROOMS \?CCL3
+	CALL2	DO-WALK,P?UP
+	RSTACK	
+?CCL3:	CALL1	V-CARVE
+	RSTACK	
+
+
+	.FUNCT	V-CLOSE
+	FSET?	PRSO,SURFACEBIT \?CCL3
+	CALL1	V-COUNT
+	RSTACK	
+?CCL3:	FSET?	PRSO,ACTORBIT \?CCL5
+	EQUAL?	PRSO,SCREENING-DOOR,NUTRIMAT /?CCL5
+	CALL1	V-COUNT
+	RSTACK	
+?CCL5:	FSET?	PRSO,DOORBIT /?CTR8
+	FSET?	PRSO,CONTBIT \?CCL9
+?CTR8:	FSET?	PRSO,OPENBIT \?PRG19
+	PRINTI	"Okay,"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTI	" is now closed."
+	CRLF	
+	FCLEAR	PRSO,OPENBIT
+	RTRUE	
+?PRG19:	PRINT	ALREADY-CLOSED
+	CRLF	
+	RTRUE	
+?CCL9:	CALL1	TELL-ME-HOW
+	RSTACK	
+
+
+	.FUNCT	V-COUNT
+	CALL2	PICK-ONE,IMPOSSIBLES
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-CUT
+	ZERO?	PRSI \?PRG4
+	CALL1	V-CARVE
+	RSTACK	
+?PRG4:	PRINTI	"I doubt that the ""cutting edge"" of"
+	ICALL2	ARTICLE,PRSI
+	PRINTR	" is adequate."
+
+
+	.FUNCT	V-DIG
+	CALL2	PICK-ONE,WASTES
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-DISEMBARK
+	FSET?	PRSO,TAKEBIT \?CCL3
+	CALL2	META-LOC,PRSO
+	EQUAL?	STACK,HERE \?CCL3
+	IN?	PRSO,HERE /?CCL3
+	IN?	PRSO,PROTAGONIST /?CCL3
+	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+?CCL3:	LOC	WINNER
+	EQUAL?	STACK,PRSO /?CCL9
+	PRINT	LOOK-AROUND
+	CRLF	
+	RETURN	2
+?CCL9:	ICALL1	OWN-FEET
+	SET	'LYING-DOWN,FALSE-VALUE
+	MOVE	WINNER,HERE
+	SET	'OHERE,FALSE-VALUE
+	RETURN	OHERE
+
+
+	.FUNCT	V-DOZE
+	PRINTI	"You doze for several minutes. "
+	CALL1	V-WAIT
+	RSTACK	
+
+
+	.FUNCT	V-DRINK,S
+	PRINTR	"You can't drink that!"
+
+
+	.FUNCT	V-DRINK-FROM
+	CALL1	V-COUNT
+	RSTACK	
+
+
+	.FUNCT	PRE-DROP
+	CALL1	IDROP
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	V-DROP
+	EQUAL?	HERE,MAZE \?CCL3
+	EQUAL?	PRSO,THING /?CND4
+	SET	'BRAIN-DAMAGED,PRSO
+?CND4:	MOVE	PRSO,LOCAL-GLOBALS
+	PRINTI	"As you release"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	", it vanishes into the maze of synapses."
+?CCL3:	EQUAL?	HERE,ACCESS-SPACE \?CCL11
+	MOVE	PRSO,LOCAL-GLOBALS
+	PRINTI	"If you recall, the floor is just an open mesh, and"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" drops through and disappears."
+?CCL11:	MOVE	PRSO,HERE
+	PRINTR	"Dropped."
+
+
+	.FUNCT	V-EAT
+	PRINTI	"Stuffing"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" in your mouth would do little to help at this point."
+
+
+	.FUNCT	V-ENJOY
+	FSET?	PRSO,ACTORBIT \?PRG4
+	CALL1	V-KISS
+	RSTACK	
+?PRG4:	PRINTI	"Not difficult at all, considering how enjoyable"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" is."
+
+
+	.FUNCT	V-ENTER,VEHICLE
+	CALL	FIND-IN,HERE,VEHBIT >VEHICLE
+	ZERO?	VEHICLE /?CCL3
+	ICALL	PERFORM,V?BOARD,VEHICLE
+	RTRUE	
+?CCL3:	CALL2	DO-WALK,P?IN
+	RSTACK	
+
+
+	.FUNCT	V-ESCAPE
+	SET	'DREAMING,FALSE-VALUE
+	PRINTI	"You are so keen on escape that you literally leap through the fabric of the space-time continuum. You wake up in a shack on tenth-century Earth. A dressing gown, a "
+	PRINTD	TOOTHBRUSH
+	ICALL2	JIGS-UP,STR?31
+	RTRUE	
+
+
+	.FUNCT	V-EXAMINE
+	FSET?	PRSO,DOORBIT \?CCL3
+	CALL1	V-LOOK-INSIDE
+	RSTACK	
+?CCL3:	FSET?	PRSO,CONTBIT \?CCL5
+	FSET?	PRSO,ACTORBIT /?CCL5
+	FSET?	PRSO,OPENBIT \?PRG11
+	CALL1	V-LOOK-INSIDE
+	RSTACK	
+?PRG11:	PRINTR	"It's closed."
+?CCL5:	GETP	PRSO,P?TEXT
+	ZERO?	STACK /?CCL14
+	ICALL	PERFORM,V?READ,PRSO
+	RTRUE	
+?CCL14:	EQUAL?	PRSO,BROWNIAN-SOURCE \?CCL16
+	ICALL	PERFORM,V?EXAMINE,DANGLY-BIT
+	RTRUE	
+?CCL16:	FSET?	PRSO,TOOLBIT \?CCL18
+	PRINT	IT-LOOKS-LIKE
+	PRINTI	" every other "
+	PRINTD	PRSO
+	PRINTR	" you've ever seen."
+?CCL18:	EQUAL?	PRSO,HEAD,TEETH,EYES /?PRG25
+	EQUAL?	PRSO,EARS \?PRG27
+?PRG25:	PRINTR	"That would involve quite a contortion."
+?PRG27:	PRINTI	"You see nothing special about"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"."
+
+
+	.FUNCT	V-EXAMINE-THROUGH
+	PRINTR	"This reveals nothing new."
+
+
+	.FUNCT	V-EXIT
+	ZERO?	PRSO \?CND1
+	LOC	PROTAGONIST >PRSO
+?CND1:	FSET?	PRSO,VEHBIT \?CCL5
+	ICALL	PERFORM,V?DISEMBARK,PRSO
+	RTRUE	
+?CCL5:	CALL2	DO-WALK,P?OUT
+	RSTACK	
+
+
+	.FUNCT	V-FEED,FOOD
+	CALL	FIND-IN,PROTAGONIST,EATBIT >FOOD
+	ZERO?	FOOD /?PRG6
+	PRINTI	"(the "
+	PRINTD	FOOD
+	PRINTC	41
+	CRLF	
+	ICALL	PERFORM,V?GIVE,FOOD,PRSO
+	RTRUE	
+?PRG6:	PRINTI	"You have nothing to feed"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" with."
+
+
+	.FUNCT	V-FILL
+	PRINTR	"Phil who?"
+
+
+	.FUNCT	V-FIND,WHERE,L
+	LOC	PRSO >L
+	EQUAL?	PRSO,EARS,HEAD,HANDS /?PRG6
+	EQUAL?	PRSO,EYES,TEETH \?CCL3
+?PRG6:	PRINTI	"Are you sure"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" is lost?"
+?CCL3:	EQUAL?	PRSO,ME \?CCL11
+	PRINTI	"You're in"
+	ICALL	ARTICLE,HERE,TRUE-VALUE
+	PRINTR	"."
+?CCL11:	IN?	PRSO,PROTAGONIST \?CCL17
+	PRINTR	"You have it!"
+?CCL17:	EQUAL?	PRSO,PROSSER \?CCL21
+	EQUAL?	IDENTITY-FLAG,FORD \?CCL21
+	ZERO?	GONE-AROUND \?CCL21
+	PRINTI	"He's "
+	PRINT	ON-OTHER-SIDE
+	PRINTI	" of the "
+	PRINTD	BULLDOZER
+	PRINTR	"."
+?CCL21:	IN?	PRSO,HERE /?PRG36
+	EQUAL?	PRSO,MECHANISM \?PRD31
+	EQUAL?	HERE,ACCESS-SPACE /?PRG36
+?PRD31:	EQUAL?	PRSO,HATCH \?CCL28
+	EQUAL?	HERE,HATCHWAY \?CCL28
+?PRG36:	PRINTR	"Right in front of you."
+?CCL28:	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK /?CCL39
+	PRINTR	"You figure it out!"
+?CCL39:	FSET?	L,ACTORBIT \?CCL43
+	CALL2	VISIBLE?,L
+	ZERO?	STACK /?CCL43
+	PRINTI	"As far as you can tell,"
+	ICALL	ARTICLE,L,TRUE-VALUE
+	PRINTR	" has it."
+?CCL43:	FSET?	L,CONTBIT \?CCL51
+	CALL2	VISIBLE?,PRSO
+	ZERO?	STACK /?CCL51
+	PRINTI	"It's in"
+	ICALL	ARTICLE,L,TRUE-VALUE
+	PRINTR	"."
+?CCL51:	ZERO?	WHERE /?PRG62
+	PRINTR	"Beats me."
+?PRG62:	PRINTR	"You'll have to do that yourself."
+
+
+	.FUNCT	V-FIRST-LOOK
+	CALL1	DESCRIBE-ROOM
+	ZERO?	STACK /FALSE
+	EQUAL?	VERBOSITY,1,2 \FALSE
+	CALL1	DESCRIBE-OBJECTS
+	RSTACK	
+
+
+	.FUNCT	V-FLIPSWITCH
+	FSET?	PRSO,SWITCHBIT \?CCL3
+	EQUAL?	PRSI,INTNUM \?CCL3
+	LESS?	P-NUMBER,9 \?CCL3
+	CALL2	VISIBLE?,BOARD
+	ZERO?	STACK /?CCL3
+	ICALL	PERFORM,V?TURN,DIPSWITCH
+	RTRUE	
+?CCL3:	CALL1	V-TELL-TIME
+	RSTACK	
+
+
+	.FUNCT	V-FOLLOW
+	IN?	PRSO,HERE \?CCL3
+	PRINTI	"But"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" is right here!"
+?CCL3:	FSET?	PRSO,ACTORBIT /?PRG10
+	CALL1	V-COUNT
+	RSTACK	
+?PRG10:	PRINTI	"You have no idea where"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" is."
+
+
+	.FUNCT	I-FOLLOW
+	SET	'FOLLOW-FLAG,FALSE-VALUE
+	RFALSE	
+
+
+	.FUNCT	V-FOOTNOTE
+	ZERO?	PRSO /?PRG6
+	EQUAL?	PRSO,INTNUM /?CCL3
+?PRG6:	PRINTR	"Specify a number, as in ""FOOTNOTE 6."""
+?CCL3:	EQUAL?	P-NUMBER,1 \?CCL9
+	PRINTR	"In case anyone is interested, this quotation is from a letter written by John Keats, and thus he becomes the first major 19th Century British poet to feature in a computer game."
+?CCL9:	EQUAL?	P-NUMBER,2 \?CCL13
+	PRINTR	"Bob Dylan, 1969."
+?CCL13:	EQUAL?	P-NUMBER,3 \?CCL17
+	PRINTR	"A meaningless coincidence."
+?CCL17:	EQUAL?	P-NUMBER,4 \?CCL21
+	PRINTR	"The first single they recorded on their own Apple label, and one of their most successful songs ever."
+?CCL21:	EQUAL?	P-NUMBER,5 \?CCL25
+	PRINTI	"Peacefully for a "
+	PRINTD	BEAST
+	PRINTR	" that is. Now and then it snorts or rolls over, and the walls shake a bit."
+?CCL25:	EQUAL?	P-NUMBER,6 \?CCL29
+	PRINTR	"That was just an example."
+?CCL29:	EQUAL?	P-NUMBER,7 \?CCL33
+	SET	'AWAITING-REPLY,13
+	CALL	QUEUE,I-REPLY,1
+	PUT	STACK,0,1
+	CALL2	NOT-VERY-GOOD,STR?32
+	RSTACK	
+?CCL33:	EQUAL?	P-NUMBER,8 \?CCL35
+	SET	'AWAITING-REPLY,13
+	CALL	QUEUE,I-REPLY,1
+	PUT	STACK,0,1
+	CALL2	NOT-VERY-GOOD,STR?33
+	RSTACK	
+?CCL35:	EQUAL?	P-NUMBER,9 \?CCL37
+	PRINTR	"Unfortunately, you couldn't hear a word of it, because sound doesn't travel in a vacuum."
+?CCL37:	EQUAL?	P-NUMBER,10 \?CCL41
+	PRINTR	"I guess it isn't all that dangerous a place after all."
+?CCL41:	EQUAL?	P-NUMBER,11 \?CCL45
+	SET	'AWAITING-REPLY,14
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTR	"Isn't it fun reading through all the footnotes?"
+?CCL45:	EQUAL?	P-NUMBER,12 \?CCL49
+	PRINTR	"This is the famous recursive footnote (Footnote 12)."
+?CCL49:	EQUAL?	P-NUMBER,13 \?CCL53
+	SET	'AWAITING-REPLY,13
+	CALL	QUEUE,I-REPLY,1
+	PUT	STACK,0,1
+	CALL2	NOT-VERY-GOOD,STR?34
+	RSTACK	
+?CCL53:	EQUAL?	P-NUMBER,14 \?CCL55
+	PRINT	GUIDE-NAME
+	PRINTI	" is also the name of a terrific work of interactive fiction by Douglas Adams and S. Eric Meretzky."
+	PRINT	ALREADY-KNOW-THAT
+	CRLF	
+	RTRUE	
+?CCL55:	EQUAL?	P-NUMBER,15 \?PRG60
+	SET	'AWAITING-REPLY,13
+	CALL	QUEUE,I-REPLY,1
+	PUT	STACK,0,1
+	CALL2	NOT-VERY-GOOD,STR?35
+	RSTACK	
+?PRG60:	PRINTI	"There is no Footnote "
+	PRINTN	P-NUMBER
+	PRINTR	"."
+
+
+	.FUNCT	V-FRIPPING
+	PRINTR	"Aaaaaaarggggghhhhhh!"
+
+
+	.FUNCT	V-GET-DRESSED,GARMENT
+	EQUAL?	PRSO,ROOMS \?CCL3
+	EQUAL?	IDENTITY-FLAG,ARTHUR \?PRG9
+	FSET?	GOWN,WORNBIT \?CCL6
+?PRG9:	PRINTR	"You are!"
+?CCL6:	CALL2	HELD?,GOWN
+	ZERO?	STACK /?CCL12
+	ICALL	PERFORM,V?WEAR,GOWN
+	RTRUE	
+?CCL12:	CALL2	VISIBLE?,GOWN
+	ZERO?	STACK /?PRG17
+	PRINT	NOT-HOLDING
+	PRINTC	32
+	PRINTD	GOWN
+	PRINTR	"."
+?PRG17:	PRINTR	"There's nothing to wear here."
+?CCL3:	CALL1	V-TELL-TIME
+	RSTACK	
+
+
+	.FUNCT	V-GET-DRUNK
+	EQUAL?	PRSO,ROOMS \?CCL3
+	EQUAL?	HERE,PUB \?CCL6
+	PRINTI	"You get drunk and have a terrific time for twelve minutes, are the life and soul of the Pub, tell some really great stories, make everyone laugh a lot, and they all clap you on the back and tell you what a great chap you are and then the Earth gets unexpectedly demolished"
+	EQUAL?	IDENTITY-FLAG,ARTHUR \?CCL11
+	PRINTI	". You wake up with a hangover which lasts for all eternity."
+	CRLF	
+	CALL1	FINISH
+	RSTACK	
+?CCL11:	CALL2	JIGS-UP,STR?36
+	RSTACK	
+?CCL6:	EQUAL?	HERE,LIVING-ROOM,DINING-ROOM,KITCHEN \?PRG18
+	PRINT	YOU-ARE
+	CRLF	
+	RTRUE	
+?PRG18:	PRINTR	"You can't see any alcohol here!"
+?CCL3:	CALL1	V-TELL-TIME
+	RSTACK	
+
+
+	.FUNCT	V-GET-UNDRESSED
+	ZERO?	PRSO \?CND1
+	SET	'PRSO,ROOMS
+?CND1:	EQUAL?	PRSO,ROOMS \?CCL5
+	EQUAL?	IDENTITY-FLAG,ARTHUR \?PRG14
+	FSET?	GOWN,WORNBIT \?PRG12
+	ICALL	PERFORM,V?TAKE-OFF,GOWN
+	RTRUE	
+?PRG12:	PRINTR	"You're not wearing anything!"
+?PRG14:	PRINT	ARRESTED
+	CRLF	
+	RTRUE	
+?CCL5:	CALL1	V-TELL-TIME
+	RSTACK	
+
+
+	.FUNCT	PRE-GIVE
+	CALL1	IDROP
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	V-GIVE
+	FSET?	PRSI,ACTORBIT \?PRG8
+	PRINTI	"Politely,"
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTR	" refuses your offer."
+?PRG8:	PRINTI	"You can't give"
+	ICALL2	ARTICLE,PRSO
+	PRINTI	" to"
+	ICALL2	ARTICLE,PRSI
+	PRINTR	"!"
+
+
+	.FUNCT	V-GIVE-UP
+	EQUAL?	PRSO,ROOMS \?CCL3
+	CALL1	V-QUIT
+	RSTACK	
+?CCL3:	CALL1	V-TELL-TIME
+	RSTACK	
+
+
+	.FUNCT	V-HANG
+	PRINTI	"You can't hang something from"
+	ICALL2	ARTICLE,PRSI
+	PRINTR	"!"
+
+
+	.FUNCT	V-HELLO
+	ZERO?	PRSO /?CCL3
+	FSET?	PRSO,ACTORBIT \?CCL3
+	PRINTR	"""Hello to you too."""
+?CCL3:	ZERO?	PRSO /?CCL9
+	ICALL	PERFORM,V?TELL,PRSO
+	RTRUE	
+?CCL9:	ICALL	PERFORM,V?TELL,ME
+	RTRUE	
+
+
+	.FUNCT	V-HIDE
+	PRINTR	"There's no place to hide here."
+
+
+	.FUNCT	V-HITCHHIKE
+	ICALL	PERFORM,V?PUSH,GREEN-BUTTON
+	RTRUE	
+
+
+	.FUNCT	V-I-AM
+	PRINTR	"Pleased to meet you. I'm your computer."
+
+
+	.FUNCT	V-IDIOT
+	ICALL	PERFORM,V?TELL,ME
+	RTRUE	
+
+
+	.FUNCT	V-KICK
+	CALL2	HACK-HACK,STR?37
+	RSTACK	
+
+
+	.FUNCT	V-KILL
+	PRINTR	"You are obviously letting things get to you. You should learn to relax a little."
+
+
+	.FUNCT	V-KNEEL
+	CALL1	V-TASTE
+	RSTACK	
+
+
+	.FUNCT	V-KNOCK
+	FSET?	PRSO,DOORBIT \?CCL3
+	PRINTR	"Nobody's home."
+?CCL3:	CALL2	HACK-HACK,STR?38
+	RSTACK	
+
+
+	.FUNCT	V-KISS
+	PRINTR	"This is family entertainment, not a video nasty."
+
+
+	.FUNCT	V-LAMP-OFF
+	FSET?	PRSO,LIGHTBIT \?CCL3
+	FSET?	PRSO,ONBIT /?CCL3
+	PRINTR	"It is already off."
+?CCL3:	EQUAL?	PRSO,INTNUM \?PRG13
+	LESS?	P-NUMBER,9 \?PRG13
+	CALL2	ACCESSIBLE?,BOARD
+	ZERO?	STACK /?PRG13
+	ICALL	PERFORM,V?TURN,DIPSWITCH
+	RTRUE	
+?PRG13:	PRINTR	"You can't turn that off."
+
+
+	.FUNCT	V-LAMP-ON
+	FSET?	PRSO,LIGHTBIT \?CCL3
+	FSET?	PRSO,ONBIT \?CCL3
+	PRINTR	"It is already on."
+?CCL3:	EQUAL?	PRSO,INTNUM \?PRG13
+	LESS?	P-NUMBER,9 \?PRG13
+	CALL2	ACCESSIBLE?,BOARD
+	ZERO?	STACK /?PRG13
+	ICALL	PERFORM,V?TURN,DIPSWITCH
+	RTRUE	
+?PRG13:	PRINTR	"You can't turn that on."
+
+
+	.FUNCT	V-LEAP
+	ZERO?	LYING-DOWN /?CCL3
+	PRINT	WHILE-LYING
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	HERE,CAPTAINS-QUARTERS \?CCL7
+	CALL1	V-STAND
+	RSTACK	
+?CCL7:	ZERO?	PRSO /?CCL9
+	IN?	PRSO,HERE /?CCL9
+	CALL1	V-COUNT
+	RSTACK	
+?CCL9:	ZERO?	PRSO \?CCL13
+	EQUAL?	HERE,SPEEDBOAT \?CCL13
+	PRINT	DONT-MIX
+	CRLF	
+	RTRUE	
+?CCL13:	CALL1	V-SKIP
+	RSTACK	
+
+
+	.FUNCT	V-LEAVE
+	ZERO?	PRSO \?CND1
+	SET	'PRSO,ROOMS
+?CND1:	EQUAL?	PRSO,ROOMS \?CCL5
+	CALL2	DO-WALK,P?OUT
+	RSTACK	
+?CCL5:	LOC	WINNER
+	EQUAL?	PRSO,STACK \?CCL7
+	ICALL	PERFORM,V?DISEMBARK,PRSO
+	RTRUE	
+?CCL7:	ICALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-LIE-DOWN
+	EQUAL?	HERE,CAPTAINS-QUARTERS \?CCL3
+	CALL1	V-STAND
+	RSTACK	
+?CCL3:	EQUAL?	PRSO,ROOMS \?CCL5
+	EQUAL?	HERE,BEDROOM \?CCL8
+	ICALL	PERFORM,V?LIE-DOWN,BED
+	RTRUE	
+?CCL8:	ICALL	PERFORM,V?LIE-DOWN,GROUND
+	RTRUE	
+?CCL5:	ICALL	PERFORM,V?BOARD,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-LISTEN
+	PRINTI	"At the moment,"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" makes no sound."
+
+
+	.FUNCT	V-LOCK
+	CALL1	V-CARVE
+	RSTACK	
+
+
+	.FUNCT	V-LOOK
+	FSET?	TOWEL,WORNBIT \?CCL3
+	PRINTR	"You see a towel."
+?CCL3:	CALL2	DESCRIBE-ROOM,TRUE-VALUE
+	ZERO?	STACK /FALSE
+	CALL2	DESCRIBE-OBJECTS,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	V-LOOK-BEHIND
+	PRINTI	"There is nothing behind"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"."
+
+
+	.FUNCT	V-LOOK-DOWN
+	ZERO?	LIT \?CCL3
+	PRINT	TOO-DARK
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSO,ROOMS \?CCL7
+	ICALL	PERFORM,V?EXAMINE,GROUND
+	RTRUE	
+?CCL7:	ICALL	PERFORM,V?LOOK-INSIDE,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-LOOK-INSIDE
+	FSET?	PRSO,ACTORBIT \?CCL3
+	EQUAL?	PRSO,SCREENING-DOOR /?CCL3
+	PRINTR	"There is nothing special to be seen."
+?CCL3:	EQUAL?	PRSO,PLOTTER,THUMB,SPARE-DRIVE \?CCL9
+	PRINTR	"You can't do that."
+?CCL9:	FSET?	PRSO,SURFACEBIT \?CCL14
+	LOC	WINNER
+	EQUAL?	PRSO,STACK \?CCL17
+	ICALL1	DESCRIBE-VEHICLE
+	RTRUE	
+?CCL17:	FIRST?	PRSO \?PRG20
+	CALL2	PRINT-CONT,PRSO
+	RSTACK	
+?PRG20:	PRINTI	"There is nothing on"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"."
+?CCL14:	FSET?	PRSO,DOORBIT \?CCL25
+	PRINTI	"All you can tell is that"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTI	" is "
+	FSET?	PRSO,OPENBIT \?PRG35
+	PRINTR	"open."
+?PRG35:	PRINTR	"closed."
+?CCL25:	FSET?	PRSO,CONTBIT \?PRG57
+	LOC	WINNER
+	EQUAL?	PRSO,STACK \?CCL41
+	ICALL1	DESCRIBE-VEHICLE
+	RTRUE	
+?CCL41:	CALL2	SEE-INSIDE?,PRSO
+	ZERO?	STACK /?CCL43
+	FIRST?	PRSO \?PRG47
+	CALL2	PRINT-CONT,PRSO
+	RSTACK	
+?PRG47:	PRINTR	"It's empty."
+?CCL43:	FSET?	PRSO,OPENBIT /?PRG53
+	FIRST?	PRSO \?PRG53
+	ICALL	PERFORM,V?OPEN,PRSO
+	RTRUE	
+?PRG53:	PRINTI	"It seems that"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" is closed."
+?PRG57:	PRINTR	"You can't do that."
+
+
+	.FUNCT	V-LOOK-UNDER
+	CALL2	HELD?,PRSO
+	ZERO?	STACK /?PRG11
+	FSET?	PRSO,WORNBIT \?PRG9
+	PRINTR	"You're wearing it!"
+?PRG9:	PRINTR	"You're holding it!"
+?PRG11:	PRINTI	"There is nothing but "
+	EQUAL?	PRSO,HOOK \?CCL15
+	PRINTI	"a "
+	PRINTD	FISH-HOLE
+	JUMP	?PRG30
+?CCL15:	EQUAL?	PRSO,BOAT-OBJECT \?CCL19
+	PRINTI	"water"
+	JUMP	?PRG30
+?CCL19:	EQUAL?	PRSO,TOWEL \?PRG28
+	FSET?	TOWEL,SURFACEBIT \?PRG28
+	PRINTI	"a drain"
+	JUMP	?PRG30
+?PRG28:	PRINTI	"dust"
+?PRG30:	PRINTR	" there."
+
+
+	.FUNCT	V-LOOK-UP
+	ZERO?	LIT \?CCL3
+	PRINT	TOO-DARK
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSO,ROOMS \?CCL7
+	FSET?	HERE,OUTSIDEBIT \?CCL10
+	ICALL	PERFORM,V?EXAMINE,SKY
+	RTRUE	
+?CCL10:	ICALL	PERFORM,V?EXAMINE,CEILING
+	RTRUE	
+?CCL7:	ICALL	PERFORM,V?LOOK-INSIDE,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-LOWER
+	CALL1	V-RAISE
+	RSTACK	
+
+
+	.FUNCT	V-MAKE
+	PRINTI	"You can't make"
+	ICALL2	ARTICLE,PRSO
+	PRINTR	"!"
+
+
+	.FUNCT	V-MOVE
+	CALL2	HELD?,PRSO
+	ZERO?	STACK /?CCL3
+	PRINTR	"Why juggle objects?"
+?CCL3:	EQUAL?	PRSO,PANEL-BLOCKER \?CCL7
+	SET	'PANEL-BLOCKER,FALSE-VALUE
+	PRINTI	"Okay, it's no longer in front of the "
+	PRINTD	ROBOT-PANEL
+	PRINTR	"."
+?CCL7:	FSET?	PRSO,INTEGRALBIT \?CCL11
+	CALL1	PART-OF
+	RSTACK	
+?CCL11:	CALL1	LOC-CLOSED
+	ZERO?	STACK \TRUE
+	FSET?	PRSO,TAKEBIT \?CCL15
+	PRINTI	"Moving"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" reveals nothing."
+?CCL15:	EQUAL?	PRSO,INTNUM \?PRG25
+	LESS?	P-NUMBER,9 \?PRG25
+	CALL2	ACCESSIBLE?,BOARD
+	ZERO?	STACK /?PRG25
+	ICALL	PERFORM,V?TURN,DIPSWITCH
+	RTRUE	
+?PRG25:	PRINTI	"You can't move"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"."
+
+
+	.FUNCT	V-MUNG
+	CALL2	HACK-HACK,STR?39
+	RSTACK	
+
+
+	.FUNCT	V-MY-NAME
+	EQUAL?	PRSO,NAME \?CCL3
+	CALL1	V-I-AM
+	RSTACK	
+?CCL3:	CALL1	V-TELL-TIME
+	RSTACK	
+
+
+	.FUNCT	V-NO
+	EQUAL?	AWAITING-REPLY,1 /FALSE
+	EQUAL?	AWAITING-REPLY,2 \?CCL5
+	CALL2	DO-WALK,P?SOUTH
+	RSTACK	
+?CCL5:	EQUAL?	AWAITING-REPLY,3,10 \?CCL7
+	PRINTR	"I should think not."
+?CCL7:	EQUAL?	AWAITING-REPLY,4 \?CCL11
+	PRINTR	"The word ""no"" is not in our hostess' vocabulary."
+?CCL11:	EQUAL?	AWAITING-REPLY,5 \?CCL15
+	SET	'AWAITING-REPLY,3
+	CALL1	V-YES
+	RSTACK	
+?CCL15:	EQUAL?	AWAITING-REPLY,6,11 \?CCL17
+	SET	'AWAITING-REPLY,6
+	CALL1	V-YES
+	RSTACK	
+?CCL17:	EQUAL?	AWAITING-REPLY,7,8 /?CTR18
+	EQUAL?	AWAITING-REPLY,13,15 \?CCL19
+?CTR18:	SET	'AWAITING-REPLY,3
+	CALL1	V-YES
+	RSTACK	
+?CCL19:	EQUAL?	AWAITING-REPLY,9 \?CCL23
+	PRINTR	"I disagree."
+?CCL23:	EQUAL?	AWAITING-REPLY,12 \?CCL27
+	ICALL1	ENGINEER-LEAVE
+	PRINTI	"""Think you're funny, huh?"" The "
+	PRINTD	ENGINEER
+	PRINT	ROARS-OFF
+	PRINTR	", making sure to spray you with his Sub-Ethon exhaust."
+?CCL27:	EQUAL?	AWAITING-REPLY,14 \?CCL31
+	PRINTR	"Then stop."
+?CCL31:	EQUAL?	AWAITING-REPLY,16 \?CCL35
+	PRINTR	"I didn't think so."
+?CCL35:	EQUAL?	AWAITING-REPLY,18,19 \?PRG40
+	CALL1	V-YES
+	RSTACK	
+?PRG40:	PRINTR	"You sound rather negative."
+
+
+	.FUNCT	V-OPEN,F,STR
+	FSET?	PRSO,SURFACEBIT \?CCL3
+	CALL1	V-COUNT
+	RSTACK	
+?CCL3:	FSET?	PRSO,ACTORBIT \?CCL5
+	EQUAL?	PRSO,NUTRIMAT /?CCL5
+	CALL1	V-COUNT
+	RSTACK	
+?CCL5:	FSET?	PRSO,CONTBIT \?CCL9
+	FSET?	PRSO,OPENBIT \?CCL12
+	PRINT	ALREADY-OPEN
+	CRLF	
+	RTRUE	
+?CCL12:	FSET	PRSO,OPENBIT
+	FSET	PRSO,TOUCHBIT
+	FIRST?	PRSO \?PRG20
+	FSET?	PRSO,TRANSBIT \?PRG22
+?PRG20:	PRINTR	"Opened."
+?PRG22:	PRINTI	"Opening"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTI	" reveals"
+	ICALL2	PRINT-CONTENTS,PRSO
+	PRINTR	"."
+?CCL9:	FSET?	PRSO,DOORBIT \?CCL29
+	FSET?	PRSO,OPENBIT \?PRG35
+	PRINT	ALREADY-OPEN
+	CRLF	
+	RTRUE	
+?PRG35:	PRINTI	"Okay,"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTI	" is now open."
+	CRLF	
+	FSET	PRSO,OPENBIT
+	RTRUE	
+?CCL29:	CALL1	TELL-ME-HOW
+	RSTACK	
+
+
+	.FUNCT	V-PANIC
+	PRINTR	"Not surprised."
+
+
+	.FUNCT	V-PICK
+	CALL1	V-COUNT
+	RSTACK	
+
+
+	.FUNCT	V-PICK-UP
+	ICALL	PERFORM,V?TAKE,PRSO,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-PLANT
+	EQUAL?	PRSI,FLOWERPOT \?PRG4
+	ICALL	PERFORM,V?PUT,PRSO,PRSI
+	RTRUE	
+?PRG4:	PRINTI	"You can't plant something in"
+	ICALL2	ARTICLE,PRSI
+	PRINTR	"."
+
+
+	.FUNCT	V-PLUG
+	PRINTI	"You can't seem to plug"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTI	" into"
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTR	"."
+
+
+	.FUNCT	V-POINT
+	EQUAL?	HERE,SPEEDBOAT \?CCL3
+	ICALL	PERFORM,V?STEER,BOAT-OBJECT,PRSO
+	RTRUE	
+?CCL3:	CALL1	V-STEER
+	RSTACK	
+
+
+	.FUNCT	V-POUR
+	CALL1	V-CARVE
+	RSTACK	
+
+
+	.FUNCT	V-PROTEST
+	EQUAL?	HERE,FRONT-OF-HOUSE \?PRG8
+	CALL2	RUNNING?,I-BULLDOZER
+	ZERO?	STACK /?PRG8
+	PRINTI	"Prosser says, ""I wouldn't stop the "
+	PRINTD	BULLDOZER
+	PRINTR	" even if you were lying in front of it!"""
+?PRG8:	PRINTR	"To whom? About what? Why?"
+
+
+	.FUNCT	V-PULL-TOGETHER
+	CALL1	V-TELL-TIME
+	RSTACK	
+
+
+	.FUNCT	V-PUSH
+	EQUAL?	PRSO,INTNUM \?CCL3
+	LESS?	P-NUMBER,9 \?CCL3
+	CALL2	ACCESSIBLE?,BOARD
+	ZERO?	STACK /?CCL3
+	ICALL	PERFORM,V?TURN,DIPSWITCH
+	RTRUE	
+?CCL3:	CALL2	HACK-HACK,STR?40
+	RSTACK	
+
+
+	.FUNCT	PRE-PUT
+	EQUAL?	PRSI,GROUND \?CCL3
+	ICALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+?CCL3:	CALL	HELD?,PRSI,PRSO
+	ZERO?	STACK /?CCL5
+	PRINTI	"You can't put"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTI	" in"
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTI	" when"
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTI	" is already in"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"!"
+?CCL5:	CALL1	IDROP
+	ZERO?	STACK \TRUE
+	ZERO?	IN-FRONT-FLAG /?CCL19
+	ICALL	PERFORM,V?PUT-IN-FRONT,PRSO,PRSI
+	RTRUE	
+?CCL19:	EQUAL?	PRSO,TEA \?CCL21
+	ICALL	PERFORM,V?POUR,TEA,PRSI
+	RTRUE	
+?CCL21:	EQUAL?	PRSO,BROWNIAN-SOURCE \?CCL23
+	SET	'BROWNIAN-SOURCE,FALSE-VALUE
+	ICALL1	REMOVING-BIT
+	RFALSE	
+?CCL23:	EQUAL?	PRSO,PLOTTER \?CCL25
+	ZERO?	BROWNIAN-SOURCE /?CCL25
+	SET	'BROWNIAN-SOURCE,FALSE-VALUE
+	ICALL1	REMOVING-BIT
+	RFALSE	
+?CCL25:	EQUAL?	PRSO,PLOTTER \?PRD31
+	ZERO?	DRIVE-TO-PLOTTER \?PRG39
+?PRD31:	EQUAL?	PRSO,SPARE-DRIVE \?PRD34
+	ZERO?	DRIVE-TO-PLOTTER \?PRG39
+?PRD34:	EQUAL?	PRSO,SPARE-DRIVE \FALSE
+	ZERO?	DRIVE-TO-CONTROLS /FALSE
+?PRG39:	PRINTR	"You'll have to unplug it first."
+
+
+	.FUNCT	V-PUT,?TMP1,?TMP2,?TMP3
+	FSET?	PRSI,OPENBIT /?CCL3
+	FSET?	PRSI,DOORBIT /?CCL3
+	FSET?	PRSI,CONTBIT /?CCL3
+	FSET?	PRSI,SURFACEBIT /?CCL3
+	FSET?	PRSI,VEHBIT /?CCL3
+	PRINTI	"You can't put"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTI	" in"
+	ICALL2	ARTICLE,PRSI
+	PRINTR	"!"
+?CCL3:	EQUAL?	PRSI,PRSO /?PRG22
+	CALL2	HELD?,PRSO
+	ZERO?	STACK /?PRD19
+	FSET?	PRSO,TAKEBIT \?PRG22
+?PRD19:	EQUAL?	PRSI,PLOTTER,THUMB,SPARE-DRIVE \?CCL16
+?PRG22:	PRINTR	"How can you do that?"
+?CCL16:	FSET?	PRSI,OPENBIT /?CCL25
+	FSET?	PRSI,SURFACEBIT /?CCL25
+	PRINTI	"Inspection reveals that"
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTI	" isn't open."
+	CRLF	
+	SET	'P-IT-OBJECT,PRSI
+	RETURN	P-IT-OBJECT
+?CCL25:	IN?	PRSO,PRSI \?CCL33
+	PRINTI	"I think"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTI	" is already in"
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTR	"."
+?CCL33:	CALL2	WEIGHT,PRSI >?TMP3
+	GETP	PRSO,P?SIZE
+	ADD	?TMP3,STACK >?TMP2
+	GETP	PRSI,P?SIZE
+	SUB	?TMP2,STACK >?TMP1
+	GETP	PRSI,P?CAPACITY
+	GRTR?	?TMP1,STACK \?CCL41
+	FSET?	PRSI,VEHBIT \?PRG45
+	CALL1	V-DIG
+	RSTACK	
+?PRG45:	PRINTR	"There's no room."
+?CCL41:	CALL2	HELD?,PRSO
+	ZERO?	STACK \?CCL48
+	CALL1	ITAKE
+	EQUAL?	STACK,M-FATAL,FALSE-VALUE /TRUE
+?CCL48:	MOVE	PRSO,PRSI
+	FSET	PRSO,TOUCHBIT
+	PRINTR	"Done."
+
+
+	.FUNCT	V-PUT-BEHIND
+	CALL1	V-DIG
+	RSTACK	
+
+
+	.FUNCT	V-PUT-IN-FRONT
+	CALL1	V-DIG
+	RSTACK	
+
+
+	.FUNCT	V-PUT-ON
+	EQUAL?	PRSI,ME \?CCL3
+	ICALL	PERFORM,V?WEAR,PRSO
+	RTRUE	
+?CCL3:	FSET?	PRSI,SURFACEBIT \?CCL5
+	CALL1	V-PUT
+	RSTACK	
+?CCL5:	EQUAL?	PRSI,EYES,HEAD \?PRG12
+	PRINTI	"You can't cover"
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTR	" with that."
+?PRG12:	PRINTI	"There's no good surface on"
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTR	"."
+
+
+	.FUNCT	V-PUT-UNDER
+	CALL1	V-DIG
+	RSTACK	
+
+
+	.FUNCT	V-RAPE
+	CALL1	V-KISS
+	RSTACK	
+
+
+	.FUNCT	V-RAISE
+	CALL2	HACK-HACK,STR?41
+	RSTACK	
+
+
+	.FUNCT	PRE-READ
+	FSET?	TOWEL,WORNBIT \?CCL3
+	EQUAL?	PRSO,TOWEL /?CCL3
+	PRINT	WITH-TOWEL
+	CRLF	
+	RTRUE	
+?CCL3:	ZERO?	LIT \?CCL9
+	EQUAL?	PRSO,HANGOVER /?CCL9
+	PRINT	TOO-DARK
+	CRLF	
+	RTRUE	
+?CCL9:	ZERO?	PRSI /FALSE
+	FSET?	PRSI,TRANSBIT /FALSE
+	PRINTI	"How does one look through"
+	ICALL2	ARTICLE,PRSI
+	PRINTR	"?"
+
+
+	.FUNCT	V-READ
+	FSET?	PRSO,READBIT \?PRG6
+	GETP	PRSO,P?TEXT
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+?PRG6:	PRINTI	"How can you read"
+	ICALL2	ARTICLE,PRSO
+	PRINTR	"?"
+
+
+	.FUNCT	V-REFUSE
+	SET	'PRSA,V?TAKE
+	CALL1	DONT-F
+	RSTACK	
+
+
+	.FUNCT	V-RELAX
+	PRINT	ZEN
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-REMOVE
+	FSET?	PRSO,WEARBIT \?CCL3
+	ICALL	PERFORM,V?TAKE-OFF,PRSO
+	RTRUE	
+?CCL3:	ICALL	PERFORM,V?TAKE,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-REPLACE
+	PRINTR	"It's not in need of replacement."
+
+
+	.FUNCT	V-REPAIR
+	EQUAL?	PRSO,THUMB \?PRD5
+	FSET?	THUMB,MUNGEDBIT /?PRG10
+?PRD5:	EQUAL?	PRSO,HATCH \?PRG12
+	ZERO?	LANDED /?PRG12
+?PRG10:	PRINTR	"You have neither the tools nor the expertise."
+?PRG12:	PRINTR	"I'm not sure it's broken."
+
+
+	.FUNCT	V-REPLY
+	PRINTI	"It is hardly likely that"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTI	" is interested."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+
+
+	.FUNCT	V-RUB
+	CALL1	LOC-CLOSED
+	ZERO?	STACK \TRUE
+	CALL2	HACK-HACK,STR?42
+	RSTACK	
+
+
+	.FUNCT	V-SAVE-SOMETHING
+	PRINTI	"Sorry, but"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" is beyond help."
+
+
+	.FUNCT	V-SAY,V
+	ZERO?	AWAITING-REPLY /?CCL3
+	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?YES \?CCL3
+	ICALL1	V-YES
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	ZERO?	AWAITING-REPLY /?CCL7
+	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?NO \?CCL7
+	ICALL1	V-NO
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL7:	IN?	BEAST,HERE \?CCL11
+	FSET?	TOWEL,WORNBIT \?CCL11
+	ICALL1	SAID-WITH-TOWEL
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL11:	IN?	BEAST,HERE \?CCL15
+	ZERO?	P-CONT \?CCL15
+	ICALL	PERFORM,V?TELL,BEAST
+	RTRUE	
+?CCL15:	IN?	BEAST,HERE \?CCL19
+	CALL1	SAID-YOUR-NAME?
+	ZERO?	STACK /?CCL19
+	ICALL	PERFORM,V?SAY-NAME,YOUR-NAME
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL19:	IN?	BEAST,HERE \?CCL23
+	ICALL	PERFORM,V?SAY-NAME,BEAST-NAME
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL23:	CALL	FIND-IN,HERE,ACTORBIT >V
+	ZERO?	V /?CCL25
+	PRINTI	"You must address"
+	ICALL	ARTICLE,V,TRUE-VALUE
+	PRINTI	" directly."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL25:	ICALL	PERFORM,V?TELL,ME
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+
+
+	.FUNCT	SAID-YOUR-NAME?,OFFS,LEN,WRD
+	SET	'OFFS,P-CONT
+	SET	'LEN,P-LEN
+?PRG1:	DLESS?	'LEN,0 /FALSE
+	GET	P-LEXV,OFFS >WRD
+	EQUAL?	WRD,W?MY,W?NAME,W?IS /?CND5
+	EQUAL?	WRD,W?I,W?AM,W?I'M /?CND5
+	EQUAL?	WRD,W?ARTHUR,W?DENT /TRUE
+	RFALSE	
+?CND5:	ADD	OFFS,2 >OFFS
+	JUMP	?PRG1
+
+
+	.FUNCT	SAID-WITH-TOWEL
+	PRINTI	"The Beast is puzzled by a voice coming from something it can't see."
+	PRINT	SLOWLY-DAWNS
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-SAY-NAME
+	IN?	BEAST,HERE \?PRG19
+	ZERO?	NAME-TOLD /?CCL6
+	PRINTR	"You already told the Beast your name."
+?CCL6:	FSET?	TOWEL,WORNBIT \?CCL10
+	CALL1	SAID-WITH-TOWEL
+	RSTACK	
+?CCL10:	EQUAL?	PRSO,NAME,ARTHUR,YOUR-NAME /?CTR11
+	EQUAL?	PRSO,ME \?PRG17
+?CTR11:	CALL	QUEUE,I-BEAST,2
+	PUT	STACK,0,1
+	SET	'NAME-TOLD,TRUE-VALUE
+	PRINTR	"The Beast roars your name with relish, and explains that once it has eaten you, your name will be added to its list of remembrance."
+?PRG17:	PRINTR	"There's something about detecting insincerity that transcends even the vast gulf between Humanity and Bugblatter Bestiality. The Beast bellows, obviously convinced that you were lying and that isn't your name nor anything remotely like it."
+?PRG19:	PRINTR	"You should use quotes with this verb."
+
+
+	.FUNCT	V-SEARCH
+	FSET?	PRSO,ACTORBIT \?CCL3
+	PRINTR	"That wouldn't be polite."
+?CCL3:	FSET?	PRSO,CONTBIT \?PRG18
+	LOC	WINNER
+	EQUAL?	PRSO,STACK \?CCL9
+	ICALL1	DESCRIBE-VEHICLE
+	RTRUE	
+?CCL9:	FSET?	PRSO,OPENBIT /?CCL11
+	PRINTR	"You'll have to open it first."
+?CCL11:	FIRST?	PRSO \?PRG18
+	FIRST?	PRSO /?BOGUS17
+?BOGUS17:	FSET?	STACK,NDESCBIT /?PRG18
+	ICALL2	PRINT-CONT,PRSO
+	RTRUE	
+?PRG18:	PRINTR	"You find nothing unusual."
+
+
+	.FUNCT	V-SGIVE
+	ICALL	PERFORM,V?GIVE,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SHAKE,X
+	FSET?	PRSO,ACTORBIT \?CCL3
+	PRINTR	"Be real."
+?CCL3:	CALL2	HACK-HACK,STR?43
+	RSTACK	
+
+
+	.FUNCT	V-SHAKE-WITH
+	EQUAL?	PRSO,HANDS /?CCL3
+	CALL1	V-TELL-TIME
+	RSTACK	
+?CCL3:	FSET?	PRSI,ACTORBIT /?CCL5
+	PRINTI	"I don't think"
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTR	" even has hands."
+?CCL5:	ICALL	PERFORM,V?THANK,PRSI
+	RTRUE	
+
+
+	.FUNCT	V-SHOOT
+	FSET?	TOWEL,WORNBIT \?CND1
+	PRINT	WITH-TOWEL
+	CRLF	
+	RTRUE	
+?CND1:	ZERO?	PRSO \?CND5
+	CALL2	HELD?,BEAST-GUN
+	ZERO?	STACK /?CCL9
+	SET	'PRSO,BEAST-GUN
+	JUMP	?CND5
+?CCL9:	CALL2	HELD?,BLASTER
+	ZERO?	STACK /?PRG12
+	SET	'PRSO,BLASTER
+?CND5:	ZERO?	PRSI \?CCL16
+	EQUAL?	PRSO,BLASTER,BEAST-GUN \?CCL19
+	PRINTR	"Some rays shoot out of the gun."
+?PRG12:	PRINTR	"With what? At whom? Why?"
+?CCL19:	CALL2	HELD?,BEAST-GUN
+	ZERO?	STACK /?CCL23
+	ICALL	PERFORM,V?SHOOT,PRSO,BEAST-GUN
+	RTRUE	
+?CCL23:	CALL2	HELD?,BLASTER
+	ZERO?	STACK /?PRG26
+	ICALL	PERFORM,V?SHOOT,PRSO,BLASTER
+	RTRUE	
+?PRG26:	PRINTI	"You have nothing to shoot"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" with."
+?CCL16:	EQUAL?	PRSI,BEAST-GUN \?PRG51
+	PRINTI	"Some rays from the gun strike"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTI	", but "
+	EQUAL?	PRSO,BEAST \?PRG49
+	FSET?	BEAST,MUNGEDBIT /?PRG49
+	INC	'GUN-COUNTER
+	PRINTI	"it only seems to make it madder"
+	EQUAL?	GUN-COUNTER,3 \?PRG47
+	PRINTI	" (Footnote 7)"
+?PRG47:	PRINTR	"."
+?PRG49:	PRINTR	"nothing else happens."
+?PRG51:	PRINTR	"Don't ever bother applying for a job as an armaments expert."
+
+
+	.FUNCT	V-SHOW
+	PRINTI	"I doubt"
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTR	" is interested."
+
+
+	.FUNCT	V-SIT,VEHICLE
+	CALL	FIND-IN,HERE,VEHBIT >VEHICLE
+	ZERO?	VEHICLE /?CCL3
+	ICALL	PERFORM,V?BOARD,VEHICLE
+	RTRUE	
+?CCL3:	CALL1	V-DIG
+	RSTACK	
+
+
+	.FUNCT	V-SKIP
+	SET	'AWAITING-REPLY,15
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTR	"Wasn't that fun?"
+
+
+	.FUNCT	V-SLEEP,TOLD?
+	EQUAL?	HERE,BEDROOM \?CCL3
+	PRINTI	"You nod off and are wakened briefly a few hours later as"
+	CALL1	BETTER-LUCK
+	RSTACK	
+?CCL3:	EQUAL?	HERE,HOLD \?PRG10
+	PRINTR	"You try, but the grubby mattresses are too repulsive."
+?PRG10:	PRINTR	"There's no bed here."
+
+
+	.FUNCT	V-SMELL
+	PRINTI	"It smells just like"
+	ICALL2	ARTICLE,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-SMILE
+	EQUAL?	HERE,CAPTAINS-QUARTERS \?PRG6
+	IN?	POETRY,HERE \?PRG6
+	CALL1	V-APPLAUD
+	RSTACK	
+?PRG6:	PRINTR	"How nice."
+
+
+	.FUNCT	V-SPIN
+	PRINTR	"You can't spin that!"
+
+
+	.FUNCT	V-SPUT-ON
+	EQUAL?	PRSO,EARS \?CCL3
+	CALL2	VISIBLE?,POETRY
+	ZERO?	STACK /?CCL3
+	ICALL	PERFORM,V?LISTEN,POETRY
+	RTRUE	
+?CCL3:	ICALL	PERFORM,V?PUT-ON,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SSHOOT
+	ICALL	PERFORM,V?SHOOT,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-SSHOW
+	ICALL	PERFORM,V?SHOW,PRSI,PRSO
+	RTRUE	
+
+
+	.FUNCT	V-STAND
+	LOC	WINNER
+	FSET?	STACK,VEHBIT \?CCL3
+	LOC	WINNER
+	ICALL	PERFORM,V?DISEMBARK,STACK
+	RTRUE	
+?CCL3:	ZERO?	LYING-DOWN /?CCL5
+	SET	'LYING-DOWN,FALSE-VALUE
+	SET	'OHERE,FALSE-VALUE
+	CALL2	RUNNING?,I-PROSSER
+	ZERO?	STACK /?CCL8
+	PRINTI	"You are safe! Prosser heaves a visible sigh of relief, shakes his head and wipes his brow. "
+	PRINT	BULLDOZER-PILES
+	CRLF	
+	CALL1	BRICK-DEATH
+	RSTACK	
+?CCL8:	EQUAL?	HERE,FRONT-OF-HOUSE \?CCL12
+	ZERO?	PROSSER-LYING \?CCL12
+	IN?	FLEET,HERE /?CCL12
+	PRINTI	"The "
+	PRINTD	BULLDOZER-DRIVER
+	PRINTI	" gives a quick chew of his gum and slams in the clutch. "
+	PRINT	BULLDOZER-PILES
+	CRLF	
+	CALL1	BRICK-DEATH
+	RSTACK	
+?CCL12:	CALL1	OWN-FEET
+	RSTACK	
+?CCL5:	ZERO?	PRSO /?PRG22
+	FSET?	PRSO,TAKEBIT \?PRG22
+	CALL1	V-DIG
+	RSTACK	
+?PRG22:	PRINTR	"You are already standing."
+
+
+	.FUNCT	V-STAND-BEFORE
+	EQUAL?	PRSO,DISPENSER \?CCL3
+	PRINTR	"The slot is too wide to block that way."
+?CCL3:	EQUAL?	PRSO,HOOK,ROBOT-PANEL,FISH-HOLE \?CCL7
+	PRINTI	"You'd never be able to push the "
+	PRINTD	DISPENSER-BUTTON
+	PRINTI	" from there."
+	PRINT	GETTING-CLOSE
+	CRLF	
+	RTRUE	
+?CCL7:	EQUAL?	PRSO,HOME,HOUSE,BULLDOZER \?CCL11
+	EQUAL?	IDENTITY-FLAG,ARTHUR \?CCL11
+	PRINTI	"The "
+	PRINTD	BULLDOZER
+	PRINTI	" could easily maneuver around you."
+	PRINT	GETTING-CLOSE
+	CRLF	
+	RTRUE	
+?CCL11:	CALL1	V-DIG
+	RSTACK	
+
+
+	.FUNCT	V-STAND-ON
+	ZERO?	IN-FRONT-FLAG /?CCL3
+	ICALL	PERFORM,V?STAND-BEFORE,PRSO
+	RTRUE	
+?CCL3:	CALL1	V-DIG
+	RSTACK	
+
+
+	.FUNCT	V-STEER
+	PRINTR	"That would be pointless."
+
+
+	.FUNCT	PRE-TAKE
+	EQUAL?	PRSO,GOWN \?PRD5
+	ZERO?	GOWN-HUNG /?PRD5
+	ZERO?	LYING-DOWN \?PRG12
+?PRD5:	EQUAL?	PRSO,TOWEL \?CCL3
+	FSET?	TOWEL,SURFACEBIT \?CCL3
+	ZERO?	LYING-DOWN /?CCL3
+?PRG12:	PRINT	WHILE-LYING
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSO,BABEL-FISH /FALSE
+	CALL1	LOC-CLOSED
+	ZERO?	STACK \TRUE
+	EQUAL?	PRSO,DANGLY-BIT \?PRD21
+	EQUAL?	PRSI,BROWNIAN-SOURCE \?PRD21
+	ZERO?	PRSI \?CTR18
+?PRD21:	EQUAL?	PRSO,SMALL-PLUG \?PRD25
+	EQUAL?	PRSI,SMALL-RECEPTACLE,PLOTTER \?PRD25
+	ZERO?	DRIVE-TO-PLOTTER \?CTR18
+?PRD25:	EQUAL?	PRSO,LARGE-PLUG \?CCL19
+	EQUAL?	PRSI,LARGE-RECEPTACLE,CONTROLS \?CCL19
+	ZERO?	DRIVE-TO-CONTROLS /?CCL19
+?CTR18:	ICALL	PERFORM,V?REMOVE,PRSO
+	RTRUE	
+?CCL19:	FSET?	PRSO,INTEGRALBIT \?CCL33
+	LOC	PRSO
+	EQUAL?	PRSI,STACK /FALSE
+?CCL33:	IN?	PRSO,PROTAGONIST /?CTR36
+	CALL2	HELD?,PRSO
+	ZERO?	STACK /?CCL37
+	FSET?	PRSO,TAKEBIT /?CCL37
+?CTR36:	FSET?	PRSO,WORNBIT \?PRG47
+	PRINTR	"You are already wearing it."
+?PRG47:	PRINTR	"You already have it."
+?CCL37:	ZERO?	PRSI /?CCL50
+	EQUAL?	PRSI,ME \?CCL53
+	ICALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+?CCL53:	EQUAL?	PRSO,ITEM-ON-SATCHEL \?CCL55
+	EQUAL?	PRSI,SATCHEL /FALSE
+?CCL55:	EQUAL?	PRSO,ITEM-DROPPED-AT-PARTY \?CCL59
+	EQUAL?	PRSI,HOSTESS /FALSE
+?CCL59:	LOC	PRSO
+	EQUAL?	PRSI,STACK /?CCL63
+	PRINTI	"But"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTI	" isn't "
+	FSET?	PRSI,ACTORBIT \?CCL70
+	EQUAL?	PRSI,SCREENING-DOOR,NUTRIMAT /?CCL70
+	PRINTI	"being held by"
+	JUMP	?CND68
+?CCL70:	FSET?	PRSI,SURFACEBIT \?PRG79
+	PRINTI	"on"
+	JUMP	?CND68
+?PRG79:	PRINTI	"in"
+?CND68:	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTR	"."
+?CCL63:	SET	'PRSI,FALSE-VALUE
+	RFALSE	
+?CCL50:	LOC	WINNER
+	EQUAL?	PRSO,STACK \?CCL84
+	PRINTR	"You are in it!"
+?CCL84:	ZERO?	HEADACHE /FALSE
+	EQUAL?	PRSO,GOWN /FALSE
+	FSET?	PRSO,TAKEBIT \FALSE
+	CALL2	HELD?,PRSO
+	ZERO?	STACK \FALSE
+	CALL2	PICK-ONE,LURCHES
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	V-TAKE
+	CALL1	ITAKE
+	EQUAL?	STACK,TRUE-VALUE \FALSE
+	EQUAL?	PRSO,JACKET-FLUFF \?CCL6
+	FSET?	JACKET-FLUFF,TRYTAKEBIT \?CCL6
+	FCLEAR	JACKET-FLUFF,TRYTAKEBIT
+	FCLEAR	JACKET-FLUFF,NDESCBIT
+	SET	'FLUFF-REMOVED,TRUE-VALUE
+	CALL	QUEUE,I-ZAPHOD,6
+	PUT	STACK,0,1
+	CALL	QUEUE,I-ARTHUR,2
+	PUT	STACK,0,1
+	PRINTI	"You remove the "
+	PRINTD	JACKET-FLUFF
+	PRINTR	", improving Arthur's appearance greatly. He is clearly touched, and starts happily to chat away to you. You discover that he is only slightly more interesting to talk to than an averagely interesting wall."
+?CCL6:	EQUAL?	PRSO,ITEM-DROPPED-AT-PARTY \?CCL13
+	FCLEAR	ITEM-DROPPED-AT-PARTY,NDESCBIT
+	CALL2	HELD?,WINE
+	ZERO?	STACK \?CCL16
+	SET	'ITEM-DROPPED-AT-PARTY,WINE
+	FCLEAR	HOSTESS,TOUCHBIT
+	JUMP	?CND11
+?CCL16:	CALL2	HELD?,HANDBAG
+	ZERO?	STACK \?CCL18
+	SET	'ITEM-DROPPED-AT-PARTY,HANDBAG
+	FCLEAR	HOSTESS,TOUCHBIT
+	JUMP	?CND11
+?CCL18:	CALL2	HELD?,APPETIZERS
+	ZERO?	STACK \?CCL20
+	SET	'ITEM-DROPPED-AT-PARTY,APPETIZERS
+	FCLEAR	HOSTESS,TOUCHBIT
+	JUMP	?CND11
+?CCL20:	SET	'ITEM-DROPPED-AT-PARTY,FALSE-VALUE
+	FCLEAR	HOSTESS,NDESCBIT
+	JUMP	?CND11
+?CCL13:	EQUAL?	PRSO,GOWN \?CCL22
+	ZERO?	GOWN-HUNG /?CCL22
+	FCLEAR	GOWN,TRYTAKEBIT
+	FCLEAR	GOWN,NDESCBIT
+	FSET	GOWN,OPENBIT
+	SET	'GOWN-HUNG,FALSE-VALUE
+	JUMP	?CND11
+?CCL22:	EQUAL?	PRSO,PANEL-BLOCKER \?CND11
+	SET	'PANEL-BLOCKER,FALSE-VALUE
+	FCLEAR	PRSO,TRYTAKEBIT
+	FCLEAR	PRSO,NDESCBIT
+?CND11:	EQUAL?	PRSO,SATCHEL \?CCL28
+	ZERO?	ITEM-ON-SATCHEL /?CCL28
+	MOVE	ITEM-ON-SATCHEL,HERE
+	FCLEAR	ITEM-ON-SATCHEL,NDESCBIT
+	FCLEAR	ITEM-ON-SATCHEL,TRYTAKEBIT
+	SET	'ITEM-ON-SATCHEL,FALSE-VALUE
+	JUMP	?PRG32
+?CCL28:	EQUAL?	PRSO,ITEM-ON-SATCHEL \?PRG32
+	FCLEAR	ITEM-ON-SATCHEL,NDESCBIT
+	FCLEAR	ITEM-ON-SATCHEL,TRYTAKEBIT
+	SET	'ITEM-ON-SATCHEL,FALSE-VALUE
+?PRG32:	PRINTR	"Taken."
+
+
+	.FUNCT	V-TAKE-OFF
+	FSET?	PRSO,WORNBIT \?PRG8
+	FCLEAR	PRSO,WORNBIT
+	PRINTI	"Okay, you're no longer wearing"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"."
+?PRG8:	PRINTR	"You aren't wearing that!"
+
+
+	.FUNCT	V-TASTE
+	PRINTR	"You can't. At least, not in this game you can't."
+
+
+	.FUNCT	V-TELL
+	FSET?	PRSO,ACTORBIT \?PRG11
+	ZERO?	P-CONT /?PRG7
+	SET	'WINNER,PRSO
+	LOC	WINNER >HERE
+	RTRUE	
+?PRG7:	PRINTI	"Hmmm ..."
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" looks at you expectantly, as if you seemed to be about to talk."
+?PRG11:	PRINTI	"You can't talk to"
+	ICALL2	ARTICLE,PRSO
+	PRINTC	33
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+
+
+	.FUNCT	V-TELL-ABOUT
+	EQUAL?	PRSO,ME \?PRG4
+	ICALL	PERFORM,V?WHAT,PRSI
+	RTRUE	
+?PRG4:	PRINTI	"It doesn't look like"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" is interested."
+
+
+	.FUNCT	V-TELL-TIME
+	PRINTR	"That sentence isn't one I recognise."
+
+
+	.FUNCT	V-TELL-NAME
+	CALL1	V-TELL-TIME
+	RSTACK	
+
+
+	.FUNCT	V-THANK
+	FSET?	PRSO,ACTORBIT \?CCL3
+	PRINTI	"You do so, but"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" seems less than overjoyed."
+?CCL3:	CALL1	V-CARVE
+	RSTACK	
+
+
+	.FUNCT	V-THROUGH,M
+	FSET?	PRSO,DOORBIT \?CCL3
+	CALL2	OTHER-SIDE,PRSO
+	ICALL2	DO-WALK,STACK
+	RTRUE	
+?CCL3:	FSET?	PRSO,VEHBIT \?CCL5
+	ICALL	PERFORM,V?BOARD,PRSO
+	RTRUE	
+?CCL5:	FSET?	PRSO,TAKEBIT /?CCL7
+	PRINTI	"You hit your head against"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" as you attempt this feat."
+?CCL7:	IN?	PRSO,WINNER \?CCL13
+	ICALL	PERFORM,V?EXAMINE,EYES
+	RTRUE	
+?CCL13:	CALL1	V-CARVE
+	RSTACK	
+
+
+	.FUNCT	PRE-THROW
+	EQUAL?	PRSO,INTNUM \?CCL3
+	LESS?	P-NUMBER,9 \?CCL3
+	CALL2	ACCESSIBLE?,BOARD
+	ZERO?	STACK /?CCL3
+	ICALL	PERFORM,V?TURN,DIPSWITCH
+	RTRUE	
+?CCL3:	FSET?	PRSO,SWITCHBIT /FALSE
+	CALL1	IDROP
+	ZERO?	STACK \TRUE
+	RFALSE	
+
+
+	.FUNCT	V-THROW
+	EQUAL?	HERE,HOLD \?CCL3
+	MOVE	PRSO,LOCAL-GLOBALS
+	PRINT	ROBOT-FLIES-IN
+	PRINTI	"collects"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" in midair, and flashes away."
+?CCL3:	EQUAL?	HERE,MAZE,ACCESS-SPACE \?CCL9
+	ICALL	PERFORM,V?DROP,PRSO
+	RTRUE	
+?CCL9:	ZERO?	PRSI /?CCL11
+	MOVE	PRSO,HERE
+	PRINTR	"You missed."
+?CCL11:	MOVE	PRSO,HERE
+	PRINTR	"Thrown."
+
+
+	.FUNCT	V-THROW-OFF
+	PRINTR	"You can't do that!"
+
+
+	.FUNCT	V-THROW-IN-TOWEL
+	EQUAL?	PRSO,TOWEL \?CCL3
+	CALL1	V-QUIT
+	RSTACK	
+?CCL3:	CALL1	V-TELL-TIME
+	RSTACK	
+
+
+	.FUNCT	V-TIE
+	PRINTI	"You can't tie"
+	ICALL2	ARTICLE,PRSO
+	PRINTR	"."
+
+
+	.FUNCT	V-TIE-TOGETHER
+	EQUAL?	PRSO,SLEEVES \?CCL3
+	ICALL	PERFORM,V?TIE,SLEEVES
+	RTRUE	
+?CCL3:	CALL1	V-TELL-TIME
+	RSTACK	
+
+
+	.FUNCT	V-TURN
+	EQUAL?	PRSO,BOAT-OBJECT \?CCL3
+	PRINTR	"Try: STEER BOAT TOWARD (something)."
+?CCL3:	EQUAL?	PRSO,ROOMS,ME \?CCL7
+	CALL1	V-SKIP
+	RSTACK	
+?CCL7:	EQUAL?	PRSO,INTNUM \?PRG13
+	LESS?	P-NUMBER,9 \?PRG13
+	CALL2	ACCESSIBLE?,BOARD
+	ZERO?	STACK /?PRG13
+	ICALL	PERFORM,V?TURN,DIPSWITCH
+	RTRUE	
+?PRG13:	PRINTR	"This has no effect."
+
+
+	.FUNCT	V-TYPE
+	EQUAL?	HERE,HOLD /?CCL3
+	PRINTI	"There's no "
+	PRINTD	KEYBOARD
+	PRINTI	" in sight."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	ZERO?	POEM-ENJOYED \?CCL7
+	ZERO?	P-CONT /?CCL7
+	ICALL	PERFORM,V?MUNG,GLASS-CASE
+	RTRUE	
+?CCL7:	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?FRIPPING \?CCL11
+	EQUAL?	LINE-NUMBER,1,2 \?CCL11
+	EQUAL?	WORD-NUMBER,1 \?CCL11
+	CALL1	GLASS-CASE-OPENS
+	RSTACK	
+?CCL11:	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?LYSHUS \?CCL16
+	EQUAL?	LINE-NUMBER,1,2 \?CCL16
+	EQUAL?	WORD-NUMBER,2 \?CCL16
+	CALL1	GLASS-CASE-OPENS
+	RSTACK	
+?CCL16:	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?WIMBGUNTS \?CCL21
+	EQUAL?	LINE-NUMBER,1,2 \?CCL21
+	EQUAL?	WORD-NUMBER,3 \?CCL21
+	CALL1	GLASS-CASE-OPENS
+	RSTACK	
+?CCL21:	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?GASHEE \?CCL26
+	EQUAL?	LINE-NUMBER,3,4 \?CCL26
+	EQUAL?	WORD-NUMBER,1 \?CCL26
+	CALL1	GLASS-CASE-OPENS
+	RSTACK	
+?CCL26:	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?MORPHOUSI \?CCL31
+	EQUAL?	LINE-NUMBER,3,4 \?CCL31
+	EQUAL?	WORD-NUMBER,2 \?CCL31
+	CALL1	GLASS-CASE-OPENS
+	RSTACK	
+?CCL31:	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?THOU \?CCL36
+	EQUAL?	LINE-NUMBER,3,4 \?CCL36
+	EQUAL?	WORD-NUMBER,3 \?CCL36
+	CALL1	GLASS-CASE-OPENS
+	RSTACK	
+?CCL36:	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?BLEEM \?CCL41
+	EQUAL?	LINE-NUMBER,5,6 \?CCL41
+	EQUAL?	WORD-NUMBER,1 \?CCL41
+	CALL1	GLASS-CASE-OPENS
+	RSTACK	
+?CCL41:	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?MISERABLE \?CCL46
+	EQUAL?	LINE-NUMBER,5,6 \?CCL46
+	EQUAL?	WORD-NUMBER,2 \?CCL46
+	CALL1	GLASS-CASE-OPENS
+	RSTACK	
+?CCL46:	GET	P-LEXV,P-CONT
+	EQUAL?	STACK,W?VENCHIT \?CCL51
+	EQUAL?	LINE-NUMBER,5,6 \?CCL51
+	EQUAL?	WORD-NUMBER,3 \?CCL51
+	CALL1	GLASS-CASE-OPENS
+	RSTACK	
+?CCL51:	ZERO?	P-CONT \?CCL56
+	PRINTR	"You didn't specify what you wanted to type."
+?CCL56:	ICALL	PERFORM,V?MUNG,GLASS-CASE
+	RETURN	2
+
+
+	.FUNCT	V-TYPE-ON
+	EQUAL?	PRSO,KEYBOARD \?PRG4
+	SET	'P-CONT,FALSE-VALUE
+	CALL1	V-TYPE
+	RSTACK	
+?PRG4:	PRINTR	"You can't type on that!"
+
+
+	.FUNCT	V-UNLOCK
+	CALL1	V-CARVE
+	RSTACK	
+
+
+	.FUNCT	V-UNPLUG
+	EQUAL?	PRSO,SMALL-PLUG,LARGE-PLUG,SPARE-DRIVE /?PRG6
+	EQUAL?	PRSO,PLOTTER \?CCL3
+?PRG6:	PRINT	NOT-PLUGGED
+	CRLF	
+	RTRUE	
+?CCL3:	CALL1	V-COUNT
+	RSTACK	
+
+
+	.FUNCT	V-UNTIE
+	CALL1	V-CARVE
+	RSTACK	
+
+
+	.FUNCT	V-WALK,PT,PTS,STR,OBJ,RM
+	IN?	FLEET,HERE \?CCL3
+	EQUAL?	PRSO,P?DOWN,P?UP /?CCL3
+	PRINTR	"You would be no safer there."
+?CCL3:	ZERO?	LYING-DOWN /?CCL9
+	PRINT	WHILE-LYING
+	CRLF	
+	RTRUE	
+?CCL9:	FSET?	TOWEL,WORNBIT \?CCL13
+	SET	'BEARINGS-LOST,TRUE-VALUE
+	PRINTI	"You stumble in that direction, but as you can't see where you're going you wander around in circles."
+	FSET?	BEAST,MUNGEDBIT /?CND16
+	PRINTI	" The Beast is getting puzzled that something it can't see is stumbling around its lair."
+	PRINT	SLOWLY-DAWNS
+?CND16:	CRLF	
+	RTRUE	
+?CCL13:	EQUAL?	HERE,MAZE /?CCL21
+	EQUAL?	IDENTITY-FLAG,ARTHUR \?CCL21
+	ZERO?	BRAIN-DAMAGED /?CCL21
+	RANDOM	100
+	LESS?	30,STACK /?CCL21
+	PRINTI	"You notice that you can't remember how to walk. Oddly, as you think about walking, all that comes to mind is an image of"
+	ICALL2	ARTICLE,BRAIN-DAMAGED
+	PRINTR	"."
+?CCL21:	ZERO?	P-WALK-DIR \?CCL31
+	ZERO?	PRSO /?CCL34
+	PRINTI	"[Presumably, you mean WALK TO"
+	ICALL2	ARTICLE,PRSO
+	PRINTI	".]"
+	CRLF	
+	ICALL	PERFORM,V?WALK-TO,PRSO
+	RTRUE	
+?CCL34:	ICALL1	V-WALK-AROUND
+	RTRUE	
+?CCL31:	GETPT	HERE,PRSO >PT
+	ZERO?	PT /?CCL40
+	PTSIZE	PT >PTS
+	EQUAL?	PTS,UEXIT \?CCL43
+	GET	PT,REXIT
+	CALL2	GOTO,STACK
+	RSTACK	
+?CCL43:	EQUAL?	PTS,NEXIT \?CCL45
+	GET	PT,NEXITSTR
+	PRINT	STACK
+	CRLF	
+	RETURN	2
+?CCL45:	EQUAL?	PTS,FEXIT \?CCL51
+	GET	PT,FEXITFCN
+	CALL	STACK >RM
+	ZERO?	RM /?CCL54
+	CALL2	GOTO,RM
+	RSTACK	
+?CCL54:	EQUAL?	HERE,BRIDGE \?PRG59
+	EQUAL?	P-WALK-DIR,P?WEST /TRUE
+?PRG59:	RETURN	2
+?CCL51:	EQUAL?	PTS,CEXIT \?CCL62
+	GETB	PT,CEXITFLAG
+	VALUE	STACK
+	ZERO?	STACK /?CCL65
+	GET	PT,REXIT
+	CALL2	GOTO,STACK
+	RSTACK	
+?CCL65:	GET	PT,CEXITSTR >STR
+	ZERO?	STR /?PRG72
+	PRINT	STR
+	CRLF	
+	RETURN	2
+?PRG72:	PRINT	CANT-GO
+	CRLF	
+	RETURN	2
+?CCL62:	EQUAL?	PTS,DEXIT \FALSE
+	GET	PT,DEXITOBJ >OBJ
+	FSET?	OBJ,OPENBIT \?CCL80
+	GET	PT,REXIT
+	CALL2	GOTO,STACK
+	RSTACK	
+?CCL80:	GET	PT,DEXITSTR >STR
+	ZERO?	STR /?PRG87
+	PRINT	STR
+	CRLF	
+	SET	'P-IT-OBJECT,OBJ
+	RETURN	2
+?PRG87:	PRINTI	"The "
+	PRINTD	OBJ
+	PRINTI	" is closed."
+	CRLF	
+	SET	'P-IT-OBJECT,OBJ
+	RETURN	2
+?CCL40:	EQUAL?	PRSO,P?IN,P?OUT \?PRG94
+	ICALL1	V-WALK-AROUND
+	RETURN	2
+?PRG94:	PRINT	CANT-GO
+	CRLF	
+	RETURN	2
+
+
+	.FUNCT	V-WALK-AROUND
+	SET	'AWAITING-REPLY,16
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTR	"Did you have any particular direction in mind?"
+
+
+	.FUNCT	V-WALK-TO
+	IN?	PRSO,HERE /?CTR2
+	CALL	GLOBAL-IN?,PRSO,HERE
+	ZERO?	STACK /?CCL3
+?CTR2:	EQUAL?	PRSO,HOSTESS,TRILLIAN \?CCL8
+	PRINTI	"She"
+	JUMP	?PRG19
+?CCL8:	FSET?	PRSO,ACTORBIT \?PRG17
+	EQUAL?	PRSO,BEAST,SCREENING-DOOR,NUTRIMAT /?PRG17
+	PRINTI	"He"
+	JUMP	?PRG19
+?PRG17:	PRINTI	"It"
+?PRG19:	PRINTR	"'s here!"
+?CCL3:	CALL1	V-WALK-AROUND
+	RSTACK	
+
+
+	.FUNCT	V-WAIT,NUM
+	ASSIGNED?	'NUM /?PRG3
+	SET	'NUM,3
+?PRG3:	PRINTI	"Time passes..."
+	CRLF	
+?PRG5:	DLESS?	'NUM,0 /?REP6
+	CALL1	CLOCKER
+	ZERO?	STACK /?PRG5
+?REP6:	SET	'CLOCK-WAIT,TRUE-VALUE
+	RETURN	CLOCK-WAIT
+
+
+	.FUNCT	V-WAIT-FOR
+	PRINTR	"You may be waiting quite a while."
+
+
+	.FUNCT	V-WATER
+	PRINTR	"It doesn't need watering."
+
+
+	.FUNCT	V-WAVE
+	CALL1	V-CARVE
+	RSTACK	
+
+
+	.FUNCT	V-WAVE-AT
+	ZERO?	PRSO \?PRG4
+	CALL1	V-SMILE
+	RSTACK	
+?PRG4:	PRINTI	"Despite your friendly nature,"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	" isn't likely to respond."
+
+
+	.FUNCT	V-WEAR
+	FSET?	PRSO,WEARBIT /?CCL3
+	PRINTI	"You can't wear"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"."
+?CCL3:	FSET?	PRSO,WORNBIT \?CCL9
+	PRINTI	"You're already wearing"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"!"
+?CCL9:	MOVE	PRSO,PROTAGONIST
+	FSET	PRSO,WORNBIT
+	PRINTI	"You are now wearing"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"."
+
+
+	.FUNCT	V-WHAT
+	PRINTR	"Good question."
+
+
+	.FUNCT	V-WHAT-ABOUT
+	PRINTR	"Well, what about it?"
+
+
+	.FUNCT	V-WHAT-TIME
+	CALL1	V-TELL-TIME
+	RSTACK	
+
+
+	.FUNCT	V-WHERE
+	CALL2	V-FIND,TRUE-VALUE
+	RSTACK	
+
+
+	.FUNCT	V-WHO
+	FSET?	PRSO,ACTORBIT \?PRG4
+	ICALL	PERFORM,V?WHAT,PRSO
+	RTRUE	
+?PRG4:	PRINTR	"That's not a person!"
+
+
+	.FUNCT	V-WHY
+	PRINTR	"Why not?"
+
+
+	.FUNCT	V-YELL
+	PRINTR	"You begin to get a sore throat."
+
+
+	.FUNCT	V-YES
+	EQUAL?	AWAITING-REPLY,1 \?CCL3
+	CALL2	DO-WALK,P?SOUTH
+	RSTACK	
+?CCL3:	EQUAL?	AWAITING-REPLY,2 /FALSE
+	EQUAL?	AWAITING-REPLY,3 \?CCL7
+	PRINTR	"Well, tough."
+?CCL7:	EQUAL?	AWAITING-REPLY,4 \?CCL11
+	ICALL	PERFORM,V?TAKE,ITEM-DROPPED-AT-PARTY
+	RTRUE	
+?CCL11:	EQUAL?	AWAITING-REPLY,5 \?CCL13
+	PRINTR	"So do I."
+?CCL13:	EQUAL?	AWAITING-REPLY,6,8,11 /?PRG20
+	EQUAL?	AWAITING-REPLY,13,14,15 \?CCL17
+?PRG20:	PRINTR	"That was just a rhetorical question."
+?CCL17:	EQUAL?	AWAITING-REPLY,7,9 \?CCL23
+	PRINTR	"Well, good for you!"
+?CCL23:	EQUAL?	AWAITING-REPLY,10 \?CCL27
+	ICALL	PERFORM,V?ENJOY,FORD
+	RTRUE	
+?CCL27:	EQUAL?	AWAITING-REPLY,12 \?CCL29
+	CALL	QUEUE,I-ENGINEER,2
+	PUT	STACK,0,1
+	PRINTR	"""Well, let's see the malfunctioning equipment."""
+?CCL29:	EQUAL?	AWAITING-REPLY,16 \?CCL33
+	PRINTR	"Then type it."
+?CCL33:	EQUAL?	AWAITING-REPLY,18,19 \?PRG40
+	PRINTR	"""Well, leave me alone then! I'm busy!"""
+?PRG40:	PRINTR	"You sound rather positive."
+
+
+	.FUNCT	ITAKE,VB,CNT,OBJ,?TMP1
+	ASSIGNED?	'VB /?CND1
+	SET	'VB,TRUE-VALUE
+?CND1:	FSET?	PRSO,INTEGRALBIT \?CCL5
+	ZERO?	VB /?PRG8
+	ICALL1	PART-OF
+?PRG8:	RETURN	2
+?CCL5:	FSET?	PRSO,TAKEBIT /?CCL11
+	ZERO?	VB /?PRG14
+	ICALL1	V-CARVE
+?PRG14:	RETURN	2
+?CCL11:	EQUAL?	IDENTITY-FLAG,TRILLIAN \?CCL17
+	CALL2	CCOUNT,PROTAGONIST
+	GRTR?	STACK,2 \?CCL17
+	ZERO?	VB /?PRG24
+	PRINTI	"As is the case so often at parties, you find that you are holding too much and can't pick up anything else."
+	CRLF	
+?PRG24:	RETURN	2
+?CCL17:	LOC	PRSO
+	IN?	STACK,WINNER /?CND3
+	CALL2	WEIGHT,PRSO >?TMP1
+	CALL2	WEIGHT,WINNER
+	ADD	?TMP1,STACK
+	GRTR?	STACK,100 \?CCL29
+	ZERO?	VB /?PRG34
+	PRINTI	"Your load is too heavy."
+	CRLF	
+?PRG34:	RETURN	2
+?CCL29:	CALL2	CCOUNT,WINNER >CNT
+	GRTR?	CNT,7 \?CND3
+	MUL	CNT,8 >?TMP1
+	RANDOM	100
+	LESS?	?TMP1,STACK /?CND3
+	ZERO?	VB /?PRG43
+	PRINTI	"You're holding too much already."
+	CRLF	
+?PRG43:	RETURN	2
+?CND3:	MOVE	PRSO,PROTAGONIST
+	FSET	PRSO,TOUCHBIT
+	RTRUE	
+
+
+	.FUNCT	IDROP
+	EQUAL?	PRSO,HANGOVER /FALSE
+	EQUAL?	PRSO,NO-TEA \?CCL5
+	ZERO?	HOLDING-NO-TEA \FALSE
+?CCL5:	EQUAL?	PRSO,SMALL-PLUG,LARGE-PLUG,DANGLY-BIT \?CCL9
+	EQUAL?	PRSA,V?PUT-ON,V?PUT /FALSE
+?CCL9:	EQUAL?	PRSA,V?GIVE \?CCL13
+	EQUAL?	PRSO,SPEECH /FALSE
+?CCL13:	EQUAL?	PRSO,SLEEVES \?CCL17
+	CALL1	V-DIG
+	RSTACK	
+?CCL17:	EQUAL?	PRSO,HANDS,EARS,EYES /?CTR18
+	EQUAL?	PRSO,HEAD \?CCL19
+?CTR18:	EQUAL?	PRSA,V?GIVE,V?THROW,V?DROP \?CCL24
+	CALL1	V-COUNT
+	RSTACK	
+?CCL24:	EQUAL?	PRSA,V?PUT-ON \FALSE
+	EQUAL?	PRSI,SATCHEL \FALSE
+	CALL1	V-COUNT
+	RSTACK	
+?CCL19:	EQUAL?	PRSO,SPARE-DRIVE \?CCL30
+	EQUAL?	PRSI,CONTROLS,SMALL-RECEPTACLE,LARGE-RECEPTACLE /FALSE
+	EQUAL?	PRSI,PLOTTER /FALSE
+?CCL30:	CALL2	HELD?,PRSO
+	ZERO?	STACK \?CCL36
+	PRINTI	"That's easy for you to say since you don't even have"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"."
+?CCL36:	EQUAL?	PRSO,PLANT \?CCL42
+	ICALL	PERFORM,V?DROP,FLOWERPOT
+	RTRUE	
+?CCL42:	FSET?	PRSO,INTEGRALBIT \?CCL44
+	CALL1	PART-OF
+	RSTACK	
+?CCL44:	IN?	PRSO,WINNER /?CCL46
+	LOC	PRSO
+	FSET?	STACK,CONTBIT \?CCL46
+	LOC	PRSO
+	FSET?	STACK,OPENBIT /?CCL46
+	PRINTI	"Impossible because"
+	LOC	PRSO
+	ICALL	ARTICLE,STACK,TRUE-VALUE
+	PRINTR	" is closed."
+?CCL46:	EQUAL?	PRSO,BABEL-FISH \?PRD57
+	EQUAL?	PRSA,V?SHOW \?PRG60
+?PRD57:	FSET?	PRSO,WORNBIT \FALSE
+?PRG60:	PRINTR	"You'll have to remove it first."
+
+
+	.FUNCT	CCOUNT,OBJ,CNT,X
+	FIRST?	OBJ >X /?PRG3
+	RETURN	CNT
+?PRG3:	FSET?	X,WORNBIT /?CND5
+	EQUAL?	X,BABEL-FISH /?CND5
+	INC	'CNT
+?CND5:	NEXT?	X >X /?PRG3
+	RETURN	CNT
+
+
+	.FUNCT	WEIGHT,OBJ,CONT,WT
+	FIRST?	OBJ >CONT \?CND1
+?PRG3:	EQUAL?	OBJ,PLAYER \?CCL7
+	FSET?	CONT,WORNBIT \?CCL7
+	INC	'WT
+	JUMP	?CND5
+?CCL7:	EQUAL?	OBJ,PLAYER \?CCL11
+	LOC	CONT
+	FSET?	STACK,WORNBIT \?CCL11
+	INC	'WT
+	JUMP	?CND5
+?CCL11:	EQUAL?	OBJ,PLAYER \?CCL15
+	EQUAL?	CONT,BABEL-FISH \?CCL15
+	INC	'WT
+	JUMP	?CND5
+?CCL15:	CALL2	WEIGHT,CONT
+	ADD	WT,STACK >WT
+?CND5:	NEXT?	CONT >CONT /?PRG3
+?CND1:	GETP	OBJ,P?SIZE
+	ADD	WT,STACK
+	RSTACK	
+
+
+	.FUNCT	DESCRIBE-ROOM,LOOK?,V?,STR,AV
+	ZERO?	LOOK? /?PRD3
+	SET	'V?,LOOK?
+	JUMP	?PEN1
+?PRD3:	EQUAL?	VERBOSITY,2 /?PRD4
+	PUSH	0
+	JUMP	?PRD5
+?PRD4:	PUSH	1
+?PRD5:	SET	'V?,STACK
+?PEN1:	ZERO?	LIT \?CND6
+	PRINTI	"It is pitch black."
+	CRLF	
+	RFALSE	
+?CND6:	FSET?	HERE,TOUCHBIT /?CND10
+	FSET	HERE,TOUCHBIT
+	SET	'V?,TRUE-VALUE
+?CND10:	IN?	HERE,ROOMS \?CND12
+	PRINTD	HERE
+	LOC	WINNER >AV
+	ZERO?	LYING-DOWN \?CND12
+	FSET?	AV,VEHBIT /?CND12
+	CRLF	
+?CND12:	ZERO?	LOOK? \?CCL21
+	EQUAL?	VERBOSITY,1,2 \TRUE
+?CCL21:	FSET?	AV,VEHBIT \?CCL26
+	PRINTI	", in the "
+	PRINTD	AV
+	CRLF	
+	JUMP	?CND24
+?CCL26:	ZERO?	LYING-DOWN /?CND24
+	PRINTI	", lying down"
+	CRLF	
+?CND24:	ZERO?	V? /?CCL34
+	GETP	HERE,P?ACTION
+	CALL	STACK,M-LOOK
+	ZERO?	STACK \TRUE
+?CCL34:	ZERO?	V? /?CCL38
+	GETP	HERE,P?LDESC >STR
+	ZERO?	STR /?CCL38
+	PRINT	STR
+	CRLF	
+	JUMP	?CND32
+?CCL38:	GETP	HERE,P?ACTION
+	ICALL	STACK,M-FLASH
+?CND32:	EQUAL?	HERE,AV /TRUE
+	FSET?	AV,VEHBIT \TRUE
+	GETP	AV,P?ACTION
+	ICALL	STACK,M-LOOK
+	RTRUE	
+
+
+	.FUNCT	DESCRIBE-OBJECTS,V?
+	ZERO?	LIT /?PRG12
+	FIRST?	HERE \FALSE
+	ZERO?	V? /?PRD9
+	SET	'V?,V?
+	JUMP	?PEN7
+?PRD9:	EQUAL?	VERBOSITY,2 /?PRD10
+	PUSH	0
+	JUMP	?PRD11
+?PRD10:	PUSH	1
+?PRD11:	SET	'V?,STACK
+?PEN7:	CALL	PRINT-CONT,HERE,V?,-1
+	RSTACK	
+?PRG12:	PRINT	TOO-DARK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	DESCRIBE-OBJECT,OBJ,V?,LEVEL,STR,AV
+	ZERO?	LEVEL \?CCL3
+	GETP	OBJ,P?DESCFCN
+	CALL	STACK,M-OBJDESC
+	ZERO?	STACK \TRUE
+?CCL3:	ZERO?	LEVEL \?CCL7
+	FSET?	OBJ,TOUCHBIT /?PRD11
+	GETP	OBJ,P?FDESC >STR
+	ZERO?	STR \?PRG14
+?PRD11:	GETP	OBJ,P?LDESC >STR
+	ZERO?	STR /?CCL7
+?PRG14:	PRINT	STR
+	JUMP	?CND1
+?CCL7:	ZERO?	LEVEL \?PRG22
+	PRINTI	"There is"
+	ICALL2	ARTICLE,OBJ
+	PRINTI	" here."
+	JUMP	?CND1
+?PRG22:	GET	INDENTS,LEVEL
+	PRINT	STACK
+	FSET?	OBJ,NARTICLEBIT /?PRG33
+	FSET?	OBJ,VOWELBIT \?PRG31
+	PRINTI	"an "
+	JUMP	?PRG33
+?PRG31:	PRINTI	"a "
+?PRG33:	PRINTD	OBJ
+	FSET?	OBJ,WORNBIT \?CCL37
+	PRINTI	" (being worn)"
+	JUMP	?CND1
+?CCL37:	EQUAL?	OBJ,BABEL-FISH \?CCL41
+	PRINTI	" (in your ear)"
+	JUMP	?CND1
+?CCL41:	EQUAL?	OBJ,PLOTTER \?CCL45
+	ZERO?	BROWNIAN-SOURCE /?CCL45
+	PRINTI	" (suspended in"
+	ICALL2	ARTICLE,BROWNIAN-SOURCE
+	PRINTC	41
+	JUMP	?CND1
+?CCL45:	EQUAL?	OBJ,SPARE-DRIVE \?CND1
+	ZERO?	DRIVE-TO-PLOTTER \?PRG57
+	ZERO?	DRIVE-TO-CONTROLS /?CND1
+?PRG57:	PRINTI	" (connected to"
+	ZERO?	DRIVE-TO-PLOTTER /?CND59
+	PRINTI	" the plotter"
+	ZERO?	DRIVE-TO-CONTROLS /?CND59
+	PRINTI	" and"
+?CND59:	ZERO?	DRIVE-TO-CONTROLS /?PRG71
+	PRINTI	" the control console"
+?PRG71:	PRINTC	41
+?CND1:	ZERO?	LEVEL \?CND73
+	FSET?	OBJ,ACTORBIT /?CND73
+	LOC	WINNER >AV
+	ZERO?	AV /?CND73
+	FSET?	AV,VEHBIT \?CND73
+	PRINTI	" (outside the "
+	PRINTD	AV
+	PRINTC	41
+?CND73:	CRLF	
+	CALL2	SEE-INSIDE?,OBJ
+	ZERO?	STACK /FALSE
+	FIRST?	OBJ \FALSE
+	CALL	PRINT-CONT,OBJ,V?,LEVEL
+	RSTACK	
+
+
+	.FUNCT	PRINT-CONT,OBJ,V?,LEVEL,Y,1ST?,AV,STR,PV?,INV?,SC
+	SET	'1ST?,TRUE-VALUE
+	FIRST?	OBJ >Y \TRUE
+	LOC	WINNER
+	FSET?	STACK,VEHBIT \?CND3
+	LOC	WINNER >AV
+?CND3:	LOC	OBJ
+	EQUAL?	PROTAGONIST,OBJ,STACK \?PRG8
+	SET	'INV?,TRUE-VALUE
+?CND5:	FIRST?	OBJ >Y /?PRG31
+?PRG31:	ZERO?	Y \?CCL35
+	ZERO?	PV? /TRUE
+	ZERO?	AV /TRUE
+	FIRST?	AV \TRUE
+	ICALL	PRINT-CONT,AV,V?,LEVEL
+	RTRUE	
+?PRG8:	ZERO?	Y /?CND5
+	EQUAL?	Y,AV \?CCL14
+	SET	'PV?,TRUE-VALUE
+	JUMP	?CND10
+?CCL14:	EQUAL?	Y,WINNER /?CND10
+	FSET?	Y,INVISIBLE /?CND10
+	FSET?	Y,TOUCHBIT /?CND10
+	GETP	Y,P?FDESC >STR
+	ZERO?	STR /?CND10
+	FSET?	Y,NDESCBIT /?CND20
+	PRINT	STR
+	CRLF	
+?CND20:	CALL2	SEE-INSIDE?,Y
+	ZERO?	STACK /?CND10
+	LOC	Y
+	GETP	STACK,P?DESCFCN
+	ZERO?	STACK \?CND10
+	FIRST?	Y \?CND10
+	ICALL	PRINT-CONT,Y,V?,0
+?CND10:	NEXT?	Y >Y /?PRG8
+	JUMP	?PRG8
+?CCL35:	EQUAL?	Y,AV,PROTAGONIST /?CND33
+	FSET?	Y,INVISIBLE /?CND33
+	ZERO?	INV? \?CCL42
+	FSET?	Y,TOUCHBIT /?CCL42
+	GETP	Y,P?FDESC
+	ZERO?	STACK \?CND33
+?CCL42:	EQUAL?	Y,STONE \?CCL50
+	EQUAL?	HERE,OUTER-LAIR \?CCL50
+	IN?	Y,HERE \?CCL50
+	FSET	Y,NDESCBIT
+	JUMP	?CND33
+?CCL50:	FSET?	Y,NDESCBIT /?CCL55
+	ZERO?	1ST? /?CND56
+	CALL	FIRSTER,OBJ,LEVEL
+	ZERO?	STACK /?CND58
+	LESS?	LEVEL,0 \?CND58
+	SET	'LEVEL,0
+?CND58:	INC	'LEVEL
+	SET	'1ST?,FALSE-VALUE
+?CND56:	ICALL	DESCRIBE-OBJECT,Y,V?,LEVEL
+	JUMP	?CND33
+?CCL55:	FIRST?	Y \?CND33
+	CALL2	SEE-INSIDE?,Y
+	ZERO?	STACK /?CND33
+	ICALL	PRINT-CONT,Y,V?,LEVEL
+?CND33:	NEXT?	Y >Y /?PRG31
+	JUMP	?PRG31
+
+
+	.FUNCT	PRINT-CONTENTS,OBJ,F,N,1ST?,IT?,TWO?
+	SET	'1ST?,TRUE-VALUE
+	FIRST?	OBJ >F \FALSE
+?PRG4:	NEXT?	F >N /?BOGUS6
+?BOGUS6:	ZERO?	1ST? /?PRG10
+	SET	'1ST?,FALSE-VALUE
+	JUMP	?CND7
+?PRG10:	PRINTC	44
+	ZERO?	N \?CND7
+	PRINTI	" and"
+?CND7:	ICALL2	ARTICLE,F
+	ZERO?	IT? \?CCL18
+	ZERO?	TWO? \?CCL18
+	SET	'IT?,F
+	JUMP	?CND16
+?CCL18:	SET	'TWO?,TRUE-VALUE
+	SET	'IT?,FALSE-VALUE
+?CND16:	SET	'F,N
+	ZERO?	F \?PRG4
+	ZERO?	IT? /TRUE
+	ZERO?	TWO? \TRUE
+	SET	'P-IT-OBJECT,IT?
+	RTRUE	
+
+
+	.FUNCT	FIRSTER,OBJ,LEVEL
+	EQUAL?	OBJ,WINNER /TRUE
+	IN?	OBJ,ROOMS /FALSE
+	GRTR?	LEVEL,0 \?CND6
+	GET	INDENTS,LEVEL
+	PRINT	STACK
+?CND6:	FSET?	OBJ,SURFACEBIT \?CCL12
+	PRINTI	"Sitting on the "
+	PRINTD	OBJ
+	PRINTR	" is:"
+?CCL12:	FSET?	OBJ,ACTORBIT \?PRG23
+	EQUAL?	OBJ,NUTRIMAT /?PRG23
+	PRINT	IT-LOOKS-LIKE
+	ICALL	ARTICLE,OBJ,TRUE-VALUE
+	PRINTR	" is holding:"
+?PRG23:	PRINT	IT-LOOKS-LIKE
+	ICALL	ARTICLE,OBJ,TRUE-VALUE
+	PRINTR	" contains:"
+
+
+	.FUNCT	DESCRIBE-VEHICLE
+	MOVE	PROTAGONIST,ROOMS
+	FIRST?	PRSO \?PRG4
+	ICALL2	PRINT-CONT,PRSO
+	JUMP	?CND1
+?PRG4:	PRINTI	"It's empty (not counting you)."
+	CRLF	
+?CND1:	MOVE	PROTAGONIST,PRSO
+	RTRUE	
+
+
+	.FUNCT	GOTO,RM,V?
+	ASSIGNED?	'V? /?CND1
+	SET	'V?,TRUE-VALUE
+?CND1:	MOVE	PROTAGONIST,RM
+	SET	'HERE,RM
+	SET	'OHERE,FALSE-VALUE
+	EQUAL?	HERE,DARK /?CND3
+	MOVE	NAME,HERE
+?CND3:	CALL2	LIT?,HERE >LIT
+	ICALL1	UNPLUG-HELD-STUFF
+	GETP	HERE,P?ACTION
+	ICALL	STACK,M-ENTER
+	ZERO?	V? /TRUE
+	EQUAL?	HERE,RM \TRUE
+	ICALL1	V-FIRST-LOOK
+	RTRUE	
+
+
+	.FUNCT	UNPLUG-HELD-STUFF
+	ZERO?	DRIVE-TO-CONTROLS /?CND1
+	CALL2	HELD?,SPARE-DRIVE
+	ZERO?	STACK /?CND1
+	SET	'DRIVE-TO-CONTROLS,FALSE-VALUE
+	FCLEAR	SPARE-DRIVE,NDESCBIT
+	PRINTI	"(unplugging the spare drive first)"
+	CRLF	
+?CND1:	CALL	HOLDING-ONE-BUT-NOT-BOTH?,SPARE-DRIVE,PLOTTER
+	ZERO?	STACK /?CND7
+	ZERO?	DRIVE-TO-PLOTTER /?CND7
+	SET	'DRIVE-TO-PLOTTER,FALSE-VALUE
+	PRINTI	"(disconnecting the short cord first)"
+	CRLF	
+?CND7:	CALL	HOLDING-ONE-BUT-NOT-BOTH?,BROWNIAN-SOURCE,PLOTTER
+	ZERO?	STACK /FALSE
+	ZERO?	BROWNIAN-SOURCE /FALSE
+	SET	'BROWNIAN-SOURCE,FALSE-VALUE
+	CALL1	REMOVING-BIT
+	RSTACK	
+
+
+	.FUNCT	JIGS-UP,DESC
+	PRINT	DESC
+	ZERO?	DREAMING /?PRG43
+	PRINTI	" Everything becomes..."
+	CRLF	
+	CRLF	
+	EQUAL?	IDENTITY-FLAG,FORD \?CCL10
+	ICALL	ROB,PROTAGONIST,LOCAL-GLOBALS
+	GET	FORD-TABLE,4
+	ZERO?	STACK /?CND11
+	FSET	THUMB,MUNGEDBIT
+?CND11:	ICALL	ROB,MEMORIAL,PROTAGONIST
+	GET	FORD-TABLE,0
+	MOVE	SATCHEL,STACK
+	GET	FORD-TABLE,1
+	MOVE	THUMB,STACK
+	GET	FORD-TABLE,2
+	MOVE	GUIDE,STACK
+	GET	FORD-TABLE,3
+	MOVE	TOWEL,STACK
+	GET	FORD-TABLE,5
+	MOVE	MINERAL-WATER,STACK
+	FSET?	COUNTRY-LANE,REVISITBIT /?CND13
+	MOVE	SATCHEL-FLUFF,SATCHEL
+?CND13:	FCLEAR	SATCHEL,OPENBIT
+	FCLEAR	COUNTRY-LANE,NDESCBIT
+	SET	'TOWEL-OFFERED,FALSE-VALUE
+	SET	'GONE-AROUND,FALSE-VALUE
+	CALL2	INT,I-ARTHUR
+	PUT	STACK,0,0
+	ICALL1	LEAVE-EARTH
+	JUMP	?CND8
+?CCL10:	EQUAL?	IDENTITY-FLAG,TRILLIAN \?CCL16
+	GET	PARTY-TABLE,0
+	MOVE	HANDBAG,STACK
+	IN?	TWEEZERS,HANDBAG \?CND17
+	GET	PARTY-TABLE,1
+	MOVE	TWEEZERS,STACK
+?CND17:	GET	PARTY-TABLE,2
+	ZERO?	STACK /?CCL21
+	FSET	HANDBAG,OPENBIT
+	JUMP	?CND19
+?CCL21:	FCLEAR	HANDBAG,OPENBIT
+?CND19:	FSET?	LIVING-ROOM,REVISITBIT /?CND22
+	MOVE	JACKET-FLUFF,LOCAL-GLOBALS
+	FSET	JACKET-FLUFF,TRYTAKEBIT
+	FSET	JACKET-FLUFF,NDESCBIT
+	SET	'FLUFF-REMOVED,FALSE-VALUE
+	FCLEAR	HOSTESS,NDESCBIT
+?CND22:	ICALL	ROB,RAMP,HANDBAG
+	FCLEAR	LIVING-ROOM,TOUCHBIT
+	FCLEAR	HANDBAG,NDESCBIT
+	FCLEAR	WINE,NDESCBIT
+	FCLEAR	APPETIZERS,NDESCBIT
+	MOVE	WINE,LOCAL-GLOBALS
+	MOVE	APPETIZERS,LOCAL-GLOBALS
+	SET	'TRILLIAN-PROB,10
+	SET	'ITEM-DROPPED-AT-PARTY,FALSE-VALUE
+	CALL2	INT,I-ARTHUR
+	PUT	STACK,0,0
+	CALL2	INT,I-ZAPHOD
+	PUT	STACK,0,0
+	CALL2	INT,I-HOSTESS
+	PUT	STACK,0,0
+	JUMP	?CND8
+?CCL16:	EQUAL?	IDENTITY-FLAG,ZAPHOD \?CCL25
+	SET	'BOAT-DOCKED,FALSE-VALUE
+	SET	'BOAT-COUNTER,0
+	SET	'CRASH-COUNTER,0
+	SET	'DAIS-COUNTER,0
+	MOVE	GUARDS,LOCAL-GLOBALS
+	MOVE	BLASTER,LOCAL-GLOBALS
+	MOVE	RIFLES,LOCAL-GLOBALS
+	FCLEAR	SPEEDBOAT,TOUCHBIT
+	FSET	RIFLES,NDESCBIT
+	CALL2	INT,I-GUARDS
+	PUT	STACK,0,0
+	CALL2	INT,I-SPEEDBOAT
+	PUT	STACK,0,0
+	FSET?	SPEEDBOAT,REVISITBIT /?CND26
+	MOVE	TOOLBOX,SPEEDBOAT
+	MOVE	CUSHION-FLUFF,LOCAL-GLOBALS
+	MOVE	KEY,LOCAL-GLOBALS
+?CND26:	ICALL	ROB,PROTAGONIST,LOCAL-GLOBALS
+	JUMP	?CND8
+?CCL25:	EQUAL?	HERE,INSIDE-WHALE \?CCL29
+	ICALL	ROB,INSIDE-WHALE,BULLDOZER
+	MOVE	WHALE-OBJECT,INSIDE-WHALE
+	CALL	HELD?,FLOWERPOT,THING
+	ZERO?	STACK \?CND30
+	MOVE	FLOWERPOT,HERE
+?CND30:	ICALL	ROB,PROTAGONIST,BULLDOZER
+	FCLEAR	INSIDE-WHALE,TOUCHBIT
+	IN?	GOWN,BULLDOZER \?CND32
+	FSET?	GOWN,WORNBIT \?CND32
+	MOVE	GOWN,PROTAGONIST
+?CND32:	IN?	BABEL-FISH,BULLDOZER \?CND8
+	MOVE	BABEL-FISH,PROTAGONIST
+	JUMP	?CND8
+?CCL29:	EQUAL?	HERE,WAR-CHAMBER,MAZE \?CCL39
+	CALL2	INT,I-DOG
+	PUT	STACK,0,0
+	FCLEAR	WAR-CHAMBER,TOUCHBIT
+	MOVE	THIRD-PLANET,LOCAL-GLOBALS
+	SET	'DOG-COUNTER,0
+	EQUAL?	HERE,WAR-CHAMBER \?CND8
+	ICALL	ROB,WAR-CHAMBER,LOCAL-GLOBALS
+	MOVE	AWL,HERE
+	MOVE	GGUGVUNT,HERE
+	MOVE	VLHURG,HERE
+	MOVE	CANOPY,HERE
+	MOVE	MICROSCOPIC-FLEET,HERE
+	MOVE	OTHER-PLANETS,HERE
+	FCLEAR	VLHURG,MUNGEDBIT
+	JUMP	?CND8
+?CCL39:	EQUAL?	HERE,LAIR,INNER-LAIR,OUTER-LAIR \?CND8
+	FCLEAR	BEAST,MUNGEDBIT
+	SET	'BEAST-COUNTER,0
+	SET	'BEARINGS-LOST,FALSE-VALUE
+	SET	'NAME-TOLD,FALSE-VALUE
+	FCLEAR	TOWEL,WORNBIT
+	FCLEAR	LAIR,NDESCBIT
+	MOVE	STONE,OUTER-LAIR
+	MOVE	BEAST,LAIR
+	CALL2	INT,I-BEAST
+	PUT	STACK,0,0
+?CND8:	SET	'TEA-COUNTER,0
+	MOVE	MAIN-DRIVE,GLOBAL-OBJECTS
+	SET	'HEART-PROB,100
+	CALL2	GOTO,DARK
+	RSTACK	
+?PRG43:	CRLF	
+	CRLF	
+	PRINTI	"    ****  You have died  ****"
+	CRLF	
+	CRLF	
+	CALL1	FINISH
+	RSTACK	
+
+
+	.FUNCT	ACCESSIBLE?,OBJ,L
+	LOC	OBJ >L
+	FSET?	OBJ,INVISIBLE /FALSE
+	ZERO?	L /FALSE
+	EQUAL?	L,GLOBAL-OBJECTS /TRUE
+	EQUAL?	L,LOCAL-GLOBALS \?CCL9
+	CALL	GLOBAL-IN?,OBJ,HERE
+	ZERO?	STACK \TRUE
+?CCL9:	CALL2	META-LOC,OBJ
+	EQUAL?	STACK,HERE \FALSE
+	EQUAL?	L,WINNER,HERE /TRUE
+	FSET?	L,OPENBIT \FALSE
+	CALL2	ACCESSIBLE?,L
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	VISIBLE?,OBJ,L
+	LOC	OBJ >L
+	CALL2	ACCESSIBLE?,OBJ
+	ZERO?	STACK \TRUE
+	CALL2	SEE-INSIDE?,L
+	ZERO?	STACK /FALSE
+	CALL2	VISIBLE?,L
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	META-LOC,OBJ
+?PRG1:	ZERO?	OBJ /FALSE
+	IN?	OBJ,GLOBAL-OBJECTS \?CND3
+	RETURN	GLOBAL-OBJECTS
+?CND3:	IN?	OBJ,ROOMS \?CCL9
+	RETURN	OBJ
+?CCL9:	LOC	OBJ >OBJ
+	JUMP	?PRG1
+
+
+	.FUNCT	OTHER-SIDE,DOBJ,P,TEE
+?PRG1:	NEXTP	HERE,P >P
+	LESS?	P,LOW-DIRECTION /FALSE
+	GETPT	HERE,P >TEE
+	PTSIZE	TEE
+	EQUAL?	STACK,DEXIT \?PRG1
+	GET	TEE,DEXITOBJ
+	EQUAL?	STACK,DOBJ \?PRG1
+	RETURN	P
+
+
+	.FUNCT	HELD?,OBJ,CONT
+	ZERO?	CONT \?CND1
+	SET	'CONT,WINNER
+?CND1:	ZERO?	OBJ /FALSE
+	IN?	OBJ,CONT /TRUE
+	IN?	OBJ,ROOMS /FALSE
+	IN?	OBJ,GLOBAL-OBJECTS /FALSE
+	LOC	OBJ
+	CALL	HELD?,STACK,CONT
+	RSTACK	
+
+
+	.FUNCT	SEE-INSIDE?,OBJ
+	FSET?	OBJ,INVISIBLE /FALSE
+	FSET?	OBJ,TRANSBIT /TRUE
+	FSET?	OBJ,OPENBIT /TRUE
+	RFALSE	
+
+
+	.FUNCT	GLOBAL-IN?,OBJ1,OBJ2,TEE
+	GETPT	OBJ2,P?GLOBAL >TEE
+	ZERO?	TEE /FALSE
+	PTSIZE	TEE
+	SUB	STACK,1
+	INTBL?	OBJ1,TEE,STACK /?CND1
+?CND1:	RSTACK	
+
+
+	.FUNCT	FIND-IN,WHERE,WHAT,W
+	FIRST?	WHERE >W /?BOGUS1
+?BOGUS1:	ZERO?	W /FALSE
+?PRG4:	FSET?	W,WHAT \?CCL8
+	RETURN	W
+?CCL8:	NEXT?	W >W /?PRG4
+	RFALSE	
+
+
+	.FUNCT	LOC-CLOSED
+	LOC	PRSO
+	FSET?	STACK,CONTBIT \FALSE
+	LOC	PRSO
+	FSET?	STACK,OPENBIT /FALSE
+	FSET?	PRSO,TAKEBIT \FALSE
+	PRINTI	"But"
+	LOC	PRSO
+	ICALL	ARTICLE,STACK,TRUE-VALUE
+	PRINTR	" is closed!"
+
+
+	.FUNCT	DO-WALK,DIR
+	SET	'P-WALK-DIR,DIR
+	CALL	PERFORM,V?WALK,DIR
+	RSTACK	
+
+
+	.FUNCT	FUCKING-CLEAR
+	SET	'P-CONT,FALSE-VALUE
+	SET	'QUOTE-FLAG,FALSE-VALUE
+	RETURN	2
+
+
+	.FUNCT	ROB,WHO,WHERE,N,X
+	FIRST?	WHO >X /?PRG2
+?PRG2:	ZERO?	X /TRUE
+	NEXT?	X >N /?BOGUS6
+?BOGUS6:	MOVE	X,WHERE
+	SET	'X,N
+	JUMP	?PRG2
+
+
+	.FUNCT	HOLDING-ONE-BUT-NOT-BOTH?,ONE,TWO
+	CALL2	HELD?,ONE
+	ZERO?	STACK /?CCL3
+	CALL2	HELD?,TWO
+	ZERO?	STACK \FALSE
+?CCL3:	CALL2	HELD?,ONE
+	ZERO?	STACK \TRUE
+	CALL2	HELD?,TWO
+	ZERO?	STACK /FALSE
+	RTRUE	
+
+
+	.FUNCT	HACK-HACK,STR
+	PRINT	STR
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	CALL2	PICK-ONE,HO-HUM
+	PRINT	STACK
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	ARTICLE,OBJ,THE
+	ZERO?	OBJ \?CND1
+	SET	'OBJ,NOT-HERE-OBJECT
+?CND1:	FSET?	OBJ,NARTICLEBIT /?PRG16
+	ZERO?	THE /?CCL7
+	PRINTI	" the"
+	JUMP	?PRG16
+?CCL7:	FSET?	OBJ,VOWELBIT \?PRG14
+	PRINTI	" an"
+	JUMP	?PRG16
+?PRG14:	PRINTI	" a"
+?PRG16:	PRINTC	32
+	PRINTD	OBJ
+	RTRUE	
+
+	.ENDI
diff --git a/verbs.zil b/verbs.zil
new file mode 100644
index 0000000..902fc6f
--- /dev/null
+++ b/verbs.zil
@@ -0,0 +1,2981 @@
+"VERBS for
+		  THE HITCHHIKER'S GUIDE TO THE GALAXY
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved."
+
+;"subtitle game commands"
+
+<GLOBAL VERBOSITY 1> ;"0 = superbrief, 1 = brief, 2 = verbose"
+
+<ROUTINE V-$REFRESH ()
+	 <LOWCORE FLAGS <BAND <LOWCORE FLAGS> <BCOM 4>>>
+	 <CLEAR -1>
+	 <INIT-STATUS-LINE>
+	 <RTRUE>>
+
+<ROUTINE V-VERBOSE ()
+	 <SETG VERBOSITY 2>
+	 <TELL "Maximum verbosity." CR CR>
+	 <V-LOOK>>
+
+<ROUTINE V-BRIEF ()
+	 <SETG VERBOSITY 1>
+	 <TELL "Brief descriptions." CR>>
+
+<ROUTINE V-SUPERBRIEF ()
+	 <SETG VERBOSITY 0>
+	 <TELL "Superbrief descriptions." CR>>
+
+<ROUTINE V-DIAGNOSE ()
+	 <COND (,HEADACHE
+		<TELL "You have a big blinding throbber." CR>)
+	       (,GROGGY
+		<TELL "You feel weak." CR>)
+	       (<EQUAL? ,IDENTITY-FLAG ,ZAPHOD>
+		<TELL "You have two " D ,HANGOVER "s." CR>)
+	       (T
+		<TELL "You are in good health." CR>)>>
+
+<ROUTINE V-INVENTORY ("AUX" SPARE-KLUDGE)
+	 <COND (<FSET? ,SPARE-DRIVE ,NDESCBIT>
+		<SET SPARE-KLUDGE T>
+		<FCLEAR ,SPARE-DRIVE ,NDESCBIT>)
+	       (T
+		<SET SPARE-KLUDGE <>>)>
+	 <COND (<AND <NOT <EQUAL? ,IDENTITY-FLAG ,ARTHUR>>
+		     <NOT <FIRST? ,PROTAGONIST>>>
+		<TELL "You are empty-handed." CR>)
+	       (T
+		<TELL "You have:" CR>
+		<COND (,HEADACHE
+		       <TELL "  a " D ,HANGOVER CR>)>
+		<COND (<AND <EQUAL? ,IDENTITY-FLAG ,ARTHUR>
+			    <OR ,HOLDING-NO-TEA
+				<NOT <HELD? ,TEA>>>>
+		       <SETG HOLDING-NO-TEA T>
+		       <TELL "  no tea" CR>)>
+		<PRINT-CONT ,PROTAGONIST>)>
+	 <COND (.SPARE-KLUDGE
+		<FSET ,SPARE-DRIVE ,NDESCBIT>)>>
+
+<ROUTINE V-QUIT ()
+	 <V-SCORE>
+	 <TELL
+"Do you wish to leave the game? (Y is affirmative): ">
+	 <COND (<YES?>
+		<QUIT>)
+	       (T
+		<TELL "Ok." CR>)>>
+
+<ROUTINE V-RESTART ()
+	 <V-SCORE T>
+	 <TELL "Do you wish to restart? (Y is affirmative): ">
+	 <COND (<YES?>
+		<TELL "Restarting." CR>
+		<RESTART>
+		<TELL "Failed." CR>)>>
+
+<ROUTINE FINISH ("OPTIONAL" (REPEATING <>))
+	 <CRLF>
+	 <COND (<NOT .REPEATING>
+		<V-SCORE>
+		<CRLF>)>
+	 <TELL
+"Would you like to start over, restore a saved position, get hints or end this session of the game?|
+(Type RESTART, RESTORE, HINTS or QUIT):|>">
+	 <PUTB ,P-INBUF 1 0>
+	 <READ ,P-INBUF ,P-LEXV>
+	 <COND (<EQUAL? <GET ,P-LEXV 1> ,W?RESTART>
+	        <RESTART>
+		<TELL "Failed." CR>
+		<FINISH T>)
+	       (<EQUAL? <GET ,P-LEXV 1> ,W?RESTORE>
+		<COND (<RESTORE>
+		       <TELL "Ok." CR>)
+		      (T
+		       <TELL "Failed." CR>
+		       <FINISH T>)>)
+	       (<EQUAL? <GET ,P-LEXV 1> ,W?HINTS>
+		<V-HINTS>
+		<INIT-STATUS-LINE>
+		<UPDATE-STATUS-LINE>
+		<FINISH T>)
+	       (<EQUAL? <GET ,P-LEXV 1> ,W?QUIT ,W?Q>
+		<QUIT>)
+	       (T
+		<FINISH T>)>>
+
+<ROUTINE YES? ()
+	 <PRINTI ">">
+	 <PUTB ,P-INBUF 1 0>
+	 <READ ,P-INBUF ,P-LEXV>
+	 <COND (<EQUAL? <GET ,P-LEXV 1> ,W?YES ,W?Y>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE V-RESTORE ()
+	 <COND (<RESTORE>
+		<TELL "Ok." CR>)
+	       (T
+		<TELL "Failed." CR>)>>
+
+<ROUTINE V-SAVE ("AUX" X)
+	 <SET X <SAVE>>
+	 <COND (<BTST <LOWCORE FLAGS> 4>
+		<V-$REFRESH>)
+	       (<EQUAL? .X 2>
+		<INIT-STATUS-LINE>)>
+	 <COND (<ZERO? .X>
+		<TELL "Failed." CR>
+		<RFATAL>)
+	       (T
+	        <TELL "Okay." CR>
+		<COND (<NOT <EQUAL? .X 1>>
+		       <V-FIRST-LOOK>)>
+		<RTRUE>)>>
+
+<ROUTINE V-SCORE ("OPTIONAL" (ASK? T))
+	 <COND (<L? ,SCORE 400>
+		<TELL
+"We are about to give you your score. Put on your peril-sensitive sunglasses
+now. (Hit RETURN or ENTER when ready.) ">
+		<PRINTI ">">
+		<PUTB ,P-INBUF 1 0>
+		<READ ,P-INBUF ,P-LEXV>
+		<SETG P-CONT <>>
+		<CRLF>)>
+	 <TELL "Your score is " N ,SCORE " of a possible 400, in " N ,MOVES>
+	 <COND (<1? ,MOVES>
+		<TELL " turn.">)
+	       (T
+		<TELL " turns.">)>
+	 <CRLF>
+	 ,SCORE>
+
+;<ROUTINE V-SCRIPT ()
+	<PUT 0 8 <BOR <GET 0 8> 1>>
+	<COPR-NOTICE "begins">
+	<V-VERSION>>
+
+<ROUTINE V-SCRIPT ()
+         <PRINT "[Transcripting o">
+	 <TELL "n.]" CR>
+	 <DIROUT ,D-PRINTER-ON>
+	 <COPR-NOTICE "begins">
+	 <RTRUE>>
+
+;<ROUTINE V-UNSCRIPT ()
+	<COPR-NOTICE "ends">
+	<V-VERSION>
+	<PUT 0 8 <BAND <GET 0 8> -2>>
+	<RTRUE>>
+
+<ROUTINE V-UNSCRIPT ()
+	 <COPR-NOTICE "ends">
+	 <DIROUT ,D-PRINTER-OFF>
+	 <PRINT "[Transcripting o">
+	 <TELL "ff.]" CR>
+	 <RTRUE>>
+
+;<ROUTINE COPR-NOTICE (STRING)
+	 <TELL
+"Here " .STRING " a transcript of interaction with " ,GUIDE-NAME "." CR>>
+
+<ROUTINE COPR-NOTICE (STR)
+	 <DIROUT ,D-SCREEN-OFF>
+	 <TELL CR "Here " .STR "s a transcript of interaction with" CR>
+	 <V-VERSION>
+	 <DIROUT ,D-SCREEN-ON>
+	 <RTRUE>>
+
+<ROUTINE V-$ID ()
+	 <TELL "Interpreter ">
+	 <PRINTN <GETB 0 30>>
+	 <TELL " Version ">
+	 <PRINTC <GETB 0 31>>
+	 <CRLF>
+	 <RTRUE>>
+
+<ROUTINE V-VERSION ("AUX" (CNT 17) V)
+	 <SET V <BAND <GET 0 1> *3777*>>
+	 <TELL CR 
+"THE HITCHHIKER'S GUIDE TO THE GALAXY|
+Infocom interactive fiction - a science fiction story|
+Copyright (c) 1984 by Infocom, Inc. All rights reserved.|
+Release " N .V " / Serial number ">
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> 23>
+			<RETURN>)
+		       (T
+			<PRINTC <GETB 0 .CNT>>)>>
+	 <TELL " / ">
+	 <V-$ID>
+	 <CRLF>>
+
+<ROUTINE V-$VERIFY ()
+	 <COND (<AND <PRSO? ,INTNUM>
+		     <EQUAL? ,P-NUMBER 469>>
+		<TELL N ,SERIAL CR>)
+	       (T
+		<TELL "Verifying..." CR>
+	 	<COND (<VERIFY>
+		       <TELL "Good." CR>)
+	       	      (T
+		       <TELL CR "** Bad **" CR>)>)>>
+
+<CONSTANT SERIAL 0>
+
+;<GLOBAL DEBUG <>>
+
+;<ROUTINE V-$DEBUG ()
+	 <COND (,DEBUG
+		<SETG DEBUG <>>
+		<TELL "Debugging off." CR>)
+	       (T
+		<SETG DEBUG T>
+		<TELL "Debugging on." CR>)>>
+
+;<ROUTINE V-$CHEAT ()
+	 <COND (<NOT <PRSO? ,INTNUM>>
+		<GOTO ,RAMP>)
+	       (<EQUAL? ,P-NUMBER 1>
+		<LEAVE-EARTH>
+		<SETG DOG-FED T>
+	        <FCLEAR ,GOWN ,NDESCBIT>
+		<FCLEAR ,TOOTHBRUSH ,TRYTAKEBIT>
+		<GOTO ,DARK>
+		<SETG DARK-FLAG ,HOLD>
+		<FSET ,DARK-OBJECT ,DARKBIT>
+		<MOVE ,MAIL ,DARK-OBJECT>
+		<MOVE ,TOWEL ,DARK-OBJECT>
+		<MOVE ,THUMB ,DARK-OBJECT>
+		<MOVE ,TOOTHBRUSH ,DARK-OBJECT>
+		<MOVE ,SCREWDRIVER ,DARK-OBJECT>
+		<MOVE ,GOWN ,DARK-OBJECT>
+		<FSET ,GOWN ,WORNBIT>)
+	       (<EQUAL? ,P-NUMBER 2>
+		<LEAVE-EARTH>
+		<FSET ,HOLD ,TOUCHBIT>
+		<SETG DOG-FED T>
+	        <FCLEAR ,GOWN ,NDESCBIT>
+		<FCLEAR ,TOOTHBRUSH ,TRYTAKEBIT>
+		<GOTO ,DARK>
+		<SETG DARK-FLAG ,ENTRY-BAY>
+		<FSET ,DARK-OBJECT ,DARKBIT>
+		<MOVE ,PLOTTER ,PROTAGONIST>
+		<MOVE ,BABEL-FISH ,PROTAGONIST>
+		<MOVE ,TOWEL ,PROTAGONIST>
+		<MOVE ,GUIDE ,PROTAGONIST>
+		<MOVE ,THUMB ,PROTAGONIST>)
+	       (<EQUAL? ,P-NUMBER 3>
+		<LEAVE-EARTH>
+		<FSET ,HOLD ,TOUCHBIT>
+		<SETG DOG-FED T>
+	        <FCLEAR ,GOWN ,NDESCBIT>
+		<FCLEAR ,TOOTHBRUSH ,TRYTAKEBIT>
+		<SETG LYING-DOWN <>>
+		<FSET ,DARK-OBJECT ,DARKBIT>
+		<MOVE ,PLOTTER ,BRIDGE>
+		<MOVE ,SPARE-DRIVE ,BRIDGE>
+		<MOVE ,HATCH ,GLOBAL-OBJECTS>
+		<MOVE ,TEA ,BRIDGE>
+		<MOVE ,BOARD ,LOCAL-GLOBALS>
+		<MOVE ,NUT-COM-INTERFACE ,NUTRIMAT>
+		<FSET ,BEAST ,MUNGEDBIT>
+		<SETG DRIVE-TO-PLOTTER T>
+		<SETG BROWNIAN-SOURCE ,TEA>
+		<MOVE ,FORD ,LOCAL-GLOBALS>
+		<MOVE ,TRILLIAN ,LOCAL-GLOBALS>
+		<MOVE ,ZAPHOD ,LOCAL-GLOBALS>
+		<GOTO ,BRIDGE>)
+	       (<EQUAL? ,P-NUMBER 4>
+		<LEAVE-EARTH>
+		<FSET ,HOLD ,TOUCHBIT>
+		<SETG DOG-FED T>
+	        <FCLEAR ,GOWN ,NDESCBIT>
+		<FCLEAR ,TOOTHBRUSH ,TRYTAKEBIT>
+		<FCLEAR ,JACKET-FLUFF ,TRYTAKEBIT>
+		<FCLEAR ,JACKET-FLUFF ,NDESCBIT>
+		<FSET ,DARK-OBJECT ,DARKBIT>
+		<SETG LYING-DOWN <>>
+		<SETG SCORE 200>
+		<MOVE ,SATCHEL-FLUFF ,PROTAGONIST>
+		<MOVE ,POCKET-FLUFF ,PROTAGONIST>
+		<MOVE ,JACKET-FLUFF ,PROTAGONIST>
+		<MOVE ,CUSHION-FLUFF ,PROTAGONIST>
+		<MOVE ,FLOWERPOT ,PROTAGONIST>
+		<MOVE ,TEA ,PROTAGONIST>
+		<MOVE ,HATCH ,GLOBAL-OBJECTS>
+		<MOVE ,FORD ,LOCAL-GLOBALS>
+		<MOVE ,TRILLIAN ,LOCAL-GLOBALS>
+		<MOVE ,ZAPHOD ,LOCAL-GLOBALS>
+		<FSET ,PARTICLE ,MUNGEDBIT>
+		<COND (<EQUAL? ,BROWNIAN-SOURCE ,TEA>
+		       <SETG BROWNIAN-SOURCE <>>)>
+		<MOVE ,SCREWDRIVER ,HATCHWAY>
+		<MOVE ,TOOTHBRUSH ,HATCHWAY>
+		<MOVE ,TWEEZERS ,HATCHWAY>
+		<MOVE ,RASP ,HATCHWAY>
+		<MOVE ,AWL ,HATCHWAY>
+		<MOVE ,CHISEL ,HATCHWAY>
+		<MOVE ,WRENCH ,HATCHWAY>
+		<MOVE ,PLIERS ,HATCHWAY>
+		<MOVE ,PINCER ,HATCHWAY>
+		<MOVE ,CHIPPER ,HATCHWAY>
+		<GOTO ,AFT-CORRIDOR>)
+	       (T
+		<GOTO ,RAMP>)>>
+
+;<ROUTINE V-$PROB ()
+	 <TELL "Heart: " N ,HEART-PROB CR>
+	 <TELL "Vogon: " N ,VOGON-PROB CR>
+	 <TELL "Traal: " N ,TRAAL-PROB CR>
+	 <TELL "Fleet: " N ,FLEET-PROB CR>
+	 <TELL "Whale: " N ,WHALE-PROB CR>
+	 <TELL "Trillian: " N ,TRILLIAN-PROB CR>
+	 <TELL "Ford: " N ,FORD-PROB CR>
+	 <TELL "Zaphod: " N ,ZAPHOD-PROB CR>>
+
+
+;"subtitle real verbs"
+
+;<ROUTINE V-AGAIN ("AUX" OBJ (N <>))
+	 <COND (,L-DONT-FLAG
+		<SETG DONT-FLAG T>
+		<SETG PRSA ,L-PRSA>
+		<DONT-F>
+		<RTRUE>)>
+	 <COND (<NOT ,L-PRSA>
+		<TELL "Not until you do something." CR>)
+	       (<OR <EQUAL? ,L-PRSA ,V?FIND ,V?FOLLOW ,V?CALL>
+		    <EQUAL? ,L-PRSA ,V?WHAT ,V?WHERE ,V?WHO>
+		    <EQUAL? ,L-PRSA ,V?WAIT-FOR ,V?WALK-TO ,V?WHAT-ABOUT>
+		    <EQUAL? ,L-PRSA ,V?ASK-ABOUT ,V?ASK-FOR ,V?I-AM>
+		    <EQUAL? ,L-PRSA ,V?MY-NAME ,V?TELL-ABOUT ,V?CALL-WITH>
+		    <EQUAL? ,L-PRSA ,V?CARVE>>
+		<TELL
+"Sorry, the Galactic Compendium on Interactive Fiction prohibits the use of
+AGAIN	 after your previous action." CR>
+		<SETG PRSA ,V?VERBOSE>) ;"so this won't run the clock"
+	       (<EQUAL? ,NOT-HERE-OBJECT ,L-PRSO ,L-PRSI>
+		<TELL "You can't see that here." CR>)
+	       (<EQUAL? ,L-PRSA ,V?WALK>
+		<DO-WALK ,L-PRSO>)
+	       (T
+		<SET OBJ
+		     <COND (<AND ,L-PRSO <NOT <VISIBLE? ,L-PRSO>>>
+			    ,L-PRSO)
+			   (<AND ,L-PRSI <NOT <VISIBLE? ,L-PRSI>>>
+			    ,L-PRSI)>>
+		<COND (<AND .OBJ 
+			    <NOT <EQUAL? .OBJ ,ROOMS>>>
+		       <TELL "You can't see">
+		       <COND (.N
+			      <TELL " any " D .OBJ " here." CR>)
+			     (T
+		       	      <ARTICLE .OBJ T>
+		       	      <TELL " anymore." CR>)>
+		       <RFATAL>)
+		      (T
+		       <COND (,L-FRONT-FLAG
+			      <SETG IN-FRONT-FLAG T>)>
+	 	       <PERFORM ,L-PRSA ,L-PRSO ,L-PRSI>)>)>>
+
+<ROUTINE V-ALARM ()
+	 <COND (<PRSO? ,ROOMS>
+		<PERFORM ,V?ALARM ,ME>
+		<RTRUE>)
+	       (T
+		<TELL "I don't think">
+	        <ARTICLE ,PRSO T>
+	        <TELL " is sleeping." CR>)>>
+
+<ROUTINE V-ANSWER ()
+	 <COND (<AND ,AWAITING-REPLY
+		     <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?YES>>
+		<V-YES>
+		<FUCKING-CLEAR>)
+	       (<AND ,AWAITING-REPLY
+		     <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?NO>>
+		<V-NO>
+		<FUCKING-CLEAR>)
+	       (<IN? ,BEAST ,HERE>
+		<V-SAY>
+		<FUCKING-CLEAR>)
+	       (T
+		<TELL "Nobody is awaiting your answer." CR>
+	        <FUCKING-CLEAR>)>>
+
+<ROUTINE V-APPLAUD ()
+	 <COND (<RUNNING? ,I-CAPTAIN>
+		<TELL "If you want to enjoy the poetry, just type that." CR>)
+	       (T
+		<TELL "Thank you, thank you." CR>)>>
+
+<ROUTINE V-APPRECIATE ()
+	 <COND (<RUNNING? ,I-CAPTAIN>
+		<V-APPLAUD>)
+	       (T
+		<TELL
+"Hey, I never get any appreciation! There's absolutely no job satisfaction
+in being a computer." CR>)>>
+
+<ROUTINE V-ASK-ABOUT ()
+	 <COND (<PRSO? ,ME>
+		<PERFORM ,V?TELL ,ME>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,ACTORBIT>
+		<TELL "A long silence tells you that">
+		<ARTICLE ,PRSO T>
+		<TELL " isn't interested in talking about">
+		<COND (<IN? ,PRSI ,ROOMS>
+		       <TELL " that">)
+		      (T
+		       <ARTICLE ,PRSI T>)>
+		<TELL "." CR>)
+	       (T
+		<PERFORM ,V?TELL ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-ASK-FOR ()
+	 <TELL "Unsurprisingly,">
+	 <ARTICLE ,PRSO T>
+	 <TELL " doesn't oblige." CR>>
+
+<ROUTINE V-BITE ()
+	 <HACK-HACK "Biting">>
+
+<ROUTINE V-BLOCK ()
+	 <V-DIG>>
+
+<ROUTINE V-BLOCK-WITH ()
+	 <V-DIG>>
+
+<ROUTINE PRE-BOARD ()
+	 <COND (,IN-FRONT-FLAG
+		<PERFORM ,V?STAND-BEFORE ,PRSO>
+		<RTRUE>)
+	       (<PRSO? <LOC ,PROTAGONIST>>
+		<TELL ,LOOK-AROUND CR>)>>
+
+<ROUTINE V-BOARD ("AUX" AV)
+	 <COND (<FSET? ,PRSO ,VEHBIT>
+		<TELL "You are now in">
+		<ARTICLE ,PRSO T>
+		<TELL "." CR>
+		<MOVE ,WINNER ,PRSO>
+		<COND (<NOT <EQUAL? ,HERE ,SPEEDBOAT>>
+		       <SETG LYING-DOWN T>)>
+		<APPLY <GETP ,PRSO ,P?ACTION> ,M-ENTER>
+		<SET OHERE <>>
+		<RTRUE>)
+	       (T
+		<TELL "You can't get into">
+		<ARTICLE ,PRSO T>
+		<TELL "!" CR>)>>
+
+<ROUTINE V-BRUSH ()
+	 <COND (<NOT ,PRSI>
+		<COND (<HELD? ,TOOTHBRUSH>
+		       <TELL "(with the " D ,TOOTHBRUSH ")" CR>
+		       <PERFORM ,V?BRUSH ,PRSO ,TOOTHBRUSH>
+		       <RTRUE>)
+		      (T
+		       <TELL "You have nothing to brush">
+		       <ARTICLE ,PRSO T>
+		       <TELL " with." CR>)>)
+	       (<NOT <PRSI? ,TOOTHBRUSH>>
+		<TELL "With">
+		<ARTICLE ,PRSI>
+		<TELL "!" CR>)
+	       (<NOT <PRSO? ,TEETH>>
+		<TELL
+"In general, " D ,TOOTHBRUSH "es are meant for teeth." CR>)
+	       (T
+		<TELL "Congratulations on your fine dental hygiene." CR>)>>
+
+<ROUTINE V-BUY ()
+	 <TELL "Sorry,">
+	 <ARTICLE ,PRSO T>
+	 <TELL " isn't for sale." CR>>
+
+<ROUTINE V-CALL ()
+	 <COND (<NOT <EQUAL? ,HERE ,BEDROOM>>
+		<TELL "There's no phone here!" CR>)
+	       (,HEADACHE
+		<TELL "You reach for the receiver. " <PICK-ONE ,LURCHES> CR>)
+	       (<FSET? ,PHONE ,TOUCHBIT>
+		<TELL "The cable is down, remember?" CR>)
+	       (<PRSO? ,DAIS>
+		<FSET ,PHONE ,TOUCHBIT>
+		<TELL
+"You explain your situation. The desk sergeant promises to send someone
+over soon, and says not to try anything crazy in the meantime, like lying
+down in front of the " D ,BULLDOZER "." ,DIALING-TONE CR>)
+	       (<PRSO? ,HOME>
+		<TELL "Who do you think you are, E.T.?" CR>)
+	       (<PRSO? ,MAZE>
+		<V-HINTS>)
+	       (T
+		<TELL "You don't know the number." CR>)>>
+
+<ROUTINE V-CALL-WITH ()
+	 <COND (<NOT <PRSI? ,PHONE>>
+		<TELL "You can't use">
+		<ARTICLE ,PRSI>
+		<TELL " as a " D ,PHONE "." CR>)
+	       (T
+		<PERFORM ,V?CALL ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE PRE-CARVE ()
+	 <COND (<NOT <HELD? ,STONE>>
+		<TELL "You have no carving instrument." CR>)>>
+
+<ROUTINE V-CARVE ()
+	 <TELL <PICK-ONE ,YUKS> CR>>
+
+<ROUTINE V-CARVE-WITH ()
+	 <COND (<EQUAL? ,HERE ,OUTER-LAIR>
+		<COND (<PRSI? ,STONE>
+		       <PERFORM ,V?CARVE ,PRSO ,MEMORIAL>
+		       <RTRUE>)
+		      (T
+		       <TELL "No luck;">
+		       <ARTICLE ,PRSI T>
+		       <TELL
+" doesn't even scratch the " D ,MEMORIAL "." CR>)>)
+	       (T
+		<TELL "Huh?" CR>)>>
+
+<ROUTINE V-CHASTISE ()
+	 <TELL
+"Use prepositions to indicate precisely what you want to do: LOOK AT the
+object, LOOK INSIDE it, LOOK UNDER it, etc." CR>>
+
+<ROUTINE V-CLEAN ()
+	 <COND (<AND <PRSO? ,ROOMS ,GLOBAL-ROOM>
+		     <EQUAL? ,HERE ,BEDROOM>>
+		<TELL "Just as you've got it all spick and span">
+		<BETTER-LUCK>)
+	       (<PRSO? ,TEETH>
+		<PERFORM ,V?BRUSH ,TEETH>
+		<RTRUE>)
+	       (T
+		<COND (<PRSO? ,TOWEL>
+		       <SETG TOWEL-MUDDY <>>)>
+		<TELL "It is now much cleaner." CR>)>>
+
+<ROUTINE V-CLIMB-DOWN ()
+	 <COND (<PRSO? ,ROOMS>
+		<DO-WALK ,P?DOWN>)
+	       (T
+		<V-CARVE>)>>
+
+<ROUTINE V-CLIMB-FOO ()
+	 <COND (<PRSO? ,ROOMS>
+		<DO-WALK ,P?UP>)
+	       (T
+		<V-CARVE>)>>
+
+<ROUTINE V-CLIMB-ON ()
+	 <COND (<FSET? ,PRSO ,VEHBIT>
+		<PERFORM ,V?BOARD ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL "You can't climb onto">
+		<ARTICLE ,PRSO T>
+		<TELL "." CR>)>>
+
+<ROUTINE V-CLIMB-OVER ()
+	 <V-CARVE>>
+
+<ROUTINE V-CLIMB-UP ()
+	 <COND (<PRSO? ,ROOMS>
+		<DO-WALK ,P?UP>)
+	       (T
+		<V-CARVE>)>>
+
+<ROUTINE V-CLOSE ()
+	 <COND (<FSET? ,PRSO ,SURFACEBIT>
+		<V-COUNT>)
+	       (<AND <FSET? ,PRSO ,ACTORBIT>
+		     <NOT <PRSO? ,NUTRIMAT ,SCREENING-DOOR>>>
+		<V-COUNT>)
+	       (<OR <FSET? ,PRSO ,DOORBIT>
+		    <FSET? ,PRSO ,CONTBIT>>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL "Okay,">
+		       <ARTICLE ,PRSO T>
+		       <TELL " is now closed." CR>
+		       <FCLEAR ,PRSO ,OPENBIT>)
+		      (T
+		       <TELL ,ALREADY-CLOSED CR>)>)
+	       (T
+		<TELL-ME-HOW>)>>
+
+<ROUTINE V-COUNT ()
+	 <TELL <PICK-ONE ,IMPOSSIBLES> CR>>
+
+<ROUTINE V-CUT ()
+	 <COND (<NOT ,PRSI>
+		<V-CARVE>)
+	       (T
+		<TELL "I doubt that the \"cutting edge\" of">
+		<ARTICLE ,PRSI>
+		<TELL " is adequate." CR>)>>
+
+<ROUTINE V-DIG ()
+	 <TELL <PICK-ONE ,WASTES> CR>>
+
+<ROUTINE V-DISEMBARK ()
+	 <COND (<AND <FSET? ,PRSO ,TAKEBIT> ;"since GET OUT is also TAKE OUT"
+		     <EQUAL? <META-LOC ,PRSO> ,HERE>
+		     <NOT <IN? ,PRSO ,HERE>>
+		     <NOT <IN? ,PRSO ,PROTAGONIST>>>
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)
+	       (<NOT <EQUAL? <LOC ,WINNER> ,PRSO>>
+		<TELL ,LOOK-AROUND CR>
+		<RFATAL>)
+	       (T
+		<OWN-FEET>
+		<SETG LYING-DOWN <>>
+		<MOVE ,WINNER ,HERE>
+		<SET OHERE <>>)>>
+
+<ROUTINE V-DOZE ()
+	 <TELL "You doze for several minutes. ">
+	 <V-WAIT>>
+
+<ROUTINE V-DRINK ("AUX" S)
+	 <TELL "You can't drink that!" CR>>
+
+<ROUTINE V-DRINK-FROM ()
+	 <V-COUNT>>
+
+<ROUTINE PRE-DROP ()
+	 <COND (<IDROP>
+		<RTRUE>)>>
+
+<ROUTINE V-DROP ()
+	 <COND (<EQUAL? ,HERE ,MAZE>
+		<COND (<NOT <PRSO? ,THING>>
+		       <SETG BRAIN-DAMAGED ,PRSO>)>
+		<MOVE ,PRSO ,LOCAL-GLOBALS>
+		<TELL "As you release">
+		<ARTICLE ,PRSO T>
+		<TELL ", it vanishes into the maze of synapses." CR>)
+	       (<EQUAL? ,HERE ,ACCESS-SPACE>
+		<MOVE ,PRSO ,LOCAL-GLOBALS>
+		<TELL "If you recall, the floor is just an open mesh, and">
+		<ARTICLE ,PRSO T>
+		<TELL " drops through and disappears." CR>)
+	       (T
+		<MOVE ,PRSO ,HERE>
+		<TELL "Dropped." CR>)>>
+
+<ROUTINE V-EAT ()
+	 <TELL "Stuffing">
+	 <ARTICLE ,PRSO T>
+	 <TELL " in your mouth would do little to help at this point." CR>>
+
+<ROUTINE V-ENJOY ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<V-KISS>)
+	       (T
+		<TELL "Not difficult at all, considering how enjoyable">
+	        <ARTICLE ,PRSO T>
+	        <TELL " is." CR>)>>
+
+<ROUTINE V-ENTER ("AUX" VEHICLE)
+	 <COND (<SET VEHICLE <FIND-IN ,HERE ,VEHBIT>>
+		<PERFORM ,V?BOARD .VEHICLE>		
+		<RTRUE>)
+	       (T
+		<DO-WALK ,P?IN>)>>
+
+<ROUTINE V-ESCAPE ()
+	 <SETG DREAMING <>>
+	 <TELL
+"You are so keen on escape that you literally leap through the fabric of the
+space-time continuum. You wake up in a shack on tenth-century Earth. A dressing
+gown, a " D ,TOOTHBRUSH>
+	 <JIGS-UP
+", and a flathead axe lie by your bed. Before you have a chance to move, Mongol
+hordes sweep magnificently across the plains of central Asia. They knock down
+your shack and burn the remains with you inside. You lose interest in the rest
+of the game.">
+	 <RTRUE>>
+
+<ROUTINE V-EXAMINE ()
+	 <COND (<FSET? ,PRSO ,DOORBIT>
+		<V-LOOK-INSIDE>)
+	       (<AND <FSET? ,PRSO ,CONTBIT>
+		     <NOT <FSET? ,PRSO ,ACTORBIT>>>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <V-LOOK-INSIDE>)
+		      (T
+		       <TELL "It's closed." CR>)>)
+	       (<GETP ,PRSO ,P?TEXT>
+		<PERFORM ,V?READ ,PRSO>
+		<RTRUE>)
+	       (<PRSO? ,BROWNIAN-SOURCE>
+		<PERFORM ,V?EXAMINE ,DANGLY-BIT>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,TOOLBIT>
+		<TELL
+,IT-LOOKS-LIKE " every other " D ,PRSO " you've ever seen." CR>)
+	       (<PRSO? ,EYES ,TEETH ,HEAD ,EARS>
+		<TELL "That would involve quite a contortion." CR>)
+	       (T
+		<TELL "You see nothing special about">
+		<ARTICLE ,PRSO T>
+		<TELL "." CR>)>>
+
+<ROUTINE V-EXAMINE-THROUGH ()
+	 <TELL "This reveals nothing new." CR>>
+
+<ROUTINE V-EXIT ()
+	 <COND (<ZERO? ,PRSO>
+		<SETG PRSO <LOC ,PROTAGONIST>>)>
+	 <COND (<FSET? ,PRSO ,VEHBIT>
+		<PERFORM ,V?DISEMBARK ,PRSO>
+		<RTRUE>)
+	       (T
+		<DO-WALK ,P?OUT>)>>
+
+<ROUTINE V-FEED ("AUX" FOOD)
+	 <COND (<SET FOOD <FIND-IN ,PROTAGONIST ,EATBIT>>
+		<TELL "(the " D .FOOD ")" CR>
+		<PERFORM ,V?GIVE .FOOD ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL "You have nothing to feed">
+		<ARTICLE ,PRSO T>
+		<TELL " with." CR>)>>
+
+<ROUTINE V-FILL ()
+	 <TELL "Phil who?" CR>>
+
+<ROUTINE V-FIND ("OPTIONAL" (WHERE <>) "AUX" (L <LOC ,PRSO>))
+	 <COND (<PRSO? ,HANDS ,HEAD ,EARS ,TEETH ,EYES>
+		<TELL "Are you sure">
+		<ARTICLE ,PRSO T>
+		<TELL " is lost?" CR>)
+	       (<PRSO? ,ME>
+		<TELL "You're in">
+		<ARTICLE ,HERE T>
+		<TELL "." CR>)
+	       (<IN? ,PRSO ,PROTAGONIST>
+		<TELL "You have it!" CR>)
+	       (<AND <PRSO? ,PROSSER>
+		     <EQUAL? ,IDENTITY-FLAG ,FORD>
+		     <NOT ,GONE-AROUND>>
+		<TELL "He's " ,ON-OTHER-SIDE " of the " D ,BULLDOZER "." CR>)
+	       (<OR <IN? ,PRSO ,HERE>
+		    ;<PRSO? ,PSEUDO-OBJECT>
+		    <AND <PRSO? ,MECHANISM>
+			 <EQUAL? ,HERE ,ACCESS-SPACE>>
+		    <AND <PRSO? ,HATCH>
+			 <EQUAL? ,HERE ,HATCHWAY>>>
+		<TELL "Right in front of you." CR>)
+	       (<GLOBAL-IN? ,PRSO ,HERE>
+		<TELL "You figure it out!" CR>)
+	       (<AND <FSET? .L ,ACTORBIT>
+		     <VISIBLE? .L>>
+		<TELL "As far as you can tell,">
+		<ARTICLE .L T>
+		<TELL " has it." CR>)
+	       (<AND <FSET? .L ,CONTBIT>
+		     <VISIBLE? ,PRSO>>
+		<TELL "It's in">
+		<ARTICLE .L T>
+		<TELL "." CR>)
+	       (.WHERE
+		<TELL "Beats me." CR>)
+	       (T
+		<TELL "You'll have to do that yourself." CR>)>>
+
+<ROUTINE V-FIRST-LOOK ()
+	 <COND (<DESCRIBE-ROOM>
+		<COND (<EQUAL? ,VERBOSITY 1 2>
+		       <DESCRIBE-OBJECTS>)>)>>
+
+<ROUTINE V-FLIPSWITCH ()
+	 <COND (<AND <FSET? ,PRSO ,SWITCHBIT>
+		     <PRSI? ,INTNUM>
+		     <L? ,P-NUMBER 9>
+		     <VISIBLE? ,BOARD>>
+		<PERFORM ,V?TURN ,DIPSWITCH>
+		<RTRUE>)
+	       (T
+		<V-TELL-TIME>)>>
+
+<ROUTINE V-FOLLOW ()
+	 <COND (<IN? ,PRSO ,HERE>
+		<TELL "But">
+		<ARTICLE ,PRSO T>
+		<TELL " is right here!" CR>)
+	       (<NOT <FSET? ,PRSO ,ACTORBIT>>
+		<V-COUNT>)
+	       (T
+		<TELL "You have no idea where">
+		<ARTICLE ,PRSO T>
+		<TELL " is." CR>)>>
+
+<GLOBAL FOLLOW-FLAG <>>
+
+<ROUTINE I-FOLLOW ()
+	 <SETG FOLLOW-FLAG <>>
+	 <RFALSE>>
+
+<ROUTINE V-FOOTNOTE ()
+	 <COND (<OR <NOT ,PRSO>
+		    <NOT <PRSO? ,INTNUM>>>
+		<TELL "Specify a number, as in \"FOOTNOTE 6.\"" CR>)
+	       (<EQUAL? ,P-NUMBER 1>
+		<TELL
+"In case anyone is interested, this quotation is from a letter written by John
+Keats, and thus he becomes the first major 19th Century British poet to feature
+in a computer game." CR>)
+	       (<EQUAL? ,P-NUMBER 2>
+		<TELL "Bob Dylan, 1969." CR>)
+	       (<EQUAL? ,P-NUMBER 3>
+		<TELL "A meaningless coincidence." CR>)
+	       (<EQUAL? ,P-NUMBER 4>
+		<TELL
+"The first single they recorded on their own Apple label, and one of
+their most successful songs ever." CR>)
+	       (<EQUAL? ,P-NUMBER 5>
+		<TELL
+"Peacefully for a " D ,BEAST " that is. Now and then it snorts or rolls over,
+and the walls shake a bit." CR>)
+	       (<EQUAL? ,P-NUMBER 6>
+		<TELL "That was just an example." CR>)
+	       (<EQUAL? ,P-NUMBER 7>
+		<SETG AWAITING-REPLY 13>
+		<ENABLE <QUEUE I-REPLY 1>> ;"only 1 since FOOTNOTE isn't move"
+		<NOT-VERY-GOOD "gun">)
+	       (<EQUAL? ,P-NUMBER 8>
+		<SETG AWAITING-REPLY 13>
+		<ENABLE <QUEUE I-REPLY 1>> ;"only 1 since FOOTNOTE isn't move"
+		<NOT-VERY-GOOD "legend">)
+	       (<EQUAL? ,P-NUMBER 9>
+		<TELL
+"Unfortunately, you couldn't hear a word of it, because sound doesn't travel
+in a vacuum." CR>)
+	       (<EQUAL? ,P-NUMBER 10>
+		<TELL
+"I guess it isn't all that dangerous a place after all." CR>)
+	       (<EQUAL? ,P-NUMBER 11> ;"not referenced"
+		<SETG AWAITING-REPLY 14>
+		<ENABLE <QUEUE I-REPLY 2>>
+		<TELL "Isn't it fun reading through all the footnotes?" CR>)
+	       (<EQUAL? ,P-NUMBER 12>
+	        <TELL
+"This is the famous recursive footnote (Footnote 12)." CR>)
+	       (<EQUAL? ,P-NUMBER 13>
+		<SETG AWAITING-REPLY 13>
+		<ENABLE <QUEUE I-REPLY 1>>
+		<NOT-VERY-GOOD "autopilot">)
+	       (<EQUAL? ,P-NUMBER 14>
+		<TELL
+,GUIDE-NAME " is also the name of a terrific work of interactive fiction by
+Douglas Adams and S. Eric Meretzky." ,ALREADY-KNOW-THAT CR>)
+	       (<EQUAL? ,P-NUMBER 15>
+		<SETG AWAITING-REPLY 13>
+		<ENABLE <QUEUE I-REPLY 1>>
+		<NOT-VERY-GOOD "banner">)
+	       (T
+		<TELL "There is no Footnote " N ,P-NUMBER "." CR>)>>
+
+<ROUTINE V-FRIPPING ()
+	 <TELL "Aaaaaaarggggghhhhhh!" CR>>
+
+<ROUTINE V-GET-DRESSED (GARMENT)
+	 <COND (<PRSO? ,ROOMS>
+		<COND (<OR <NOT <EQUAL? ,IDENTITY-FLAG ,ARTHUR>>
+			   <FSET? ,GOWN ,WORNBIT>>
+		       <TELL "You are!" CR>)
+		      (<HELD? ,GOWN>
+		       <PERFORM ,V?WEAR ,GOWN>
+		       <RTRUE>)
+		      (<VISIBLE? ,GOWN>
+		       <TELL ,NOT-HOLDING " " D ,GOWN "." CR>)
+		      (T
+		       <TELL "There's nothing to wear here." CR>)>)
+	       (T
+		<V-TELL-TIME>)>>
+
+<ROUTINE V-GET-DRUNK ()
+	 <COND (<PRSO? ,ROOMS>
+		<COND (<EQUAL? ,HERE ,PUB>
+		       <TELL
+"You get drunk and have a terrific time for twelve minutes, are the life and
+soul of the Pub, tell some really great stories, make everyone laugh a lot,
+and they all clap you on the back and tell you what a great chap you are and
+then the Earth gets unexpectedly demolished">
+		       <COND (<EQUAL? ,IDENTITY-FLAG ,ARTHUR>
+			      <TELL
+". You wake up with a hangover which lasts for all eternity." CR>
+			      <FINISH>)
+			     (T
+			      <JIGS-UP ".">)>)
+		      (<EQUAL? ,HERE ,LIVING-ROOM ,DINING-ROOM ,KITCHEN>
+		       <TELL ,YOU-ARE CR>)
+		      (T
+		       <TELL "You can't see any alcohol here!" CR>)>)
+	       (T
+		<V-TELL-TIME>)>>
+
+<ROUTINE V-GET-UNDRESSED ()
+	 <COND (<NOT ,PRSO>
+		<SETG PRSO ,ROOMS>)>
+	 <COND (<PRSO? ,ROOMS>
+		<COND (<EQUAL? ,IDENTITY-FLAG ,ARTHUR>
+		       <COND (<FSET? ,GOWN ,WORNBIT>
+			      <PERFORM ,V?TAKE-OFF ,GOWN>
+			      <RTRUE>)
+			     (T
+			      <TELL "You're not wearing anything!" CR>)>)
+		      (T
+		       <TELL ,ARRESTED CR>)>)
+	       (T
+		<V-TELL-TIME>)>>
+
+<ROUTINE PRE-GIVE ()
+	 <COND (<IDROP>
+		<RTRUE>)>>
+
+<ROUTINE V-GIVE ()
+	 <COND (<FSET? ,PRSI ,ACTORBIT>
+		<TELL "Politely,">
+		<ARTICLE ,PRSI T>
+		<TELL " refuses your offer." CR>)
+	       (T
+		<TELL "You can't give">
+		<ARTICLE ,PRSO>
+		<TELL " to">
+		<ARTICLE ,PRSI>
+		<TELL "!" CR>)>>
+
+<ROUTINE V-GIVE-UP ()
+	 <COND (<PRSO? ,ROOMS>
+		<V-QUIT>)
+	       (T
+		<V-TELL-TIME>)>>
+
+<ROUTINE V-HANG ()
+	 <TELL "You can't hang something from">
+	 <ARTICLE ,PRSI>
+	 <TELL "!" CR>>
+
+<ROUTINE V-HELLO ()
+       <COND (<AND ,PRSO
+		   <FSET? ,PRSO ,ACTORBIT>>
+	      <TELL "\"Hello to you too.\"" CR>)
+	     (,PRSO
+	      <PERFORM ,V?TELL ,PRSO>
+	      <RTRUE>)
+	     (T
+	      <PERFORM ,V?TELL ,ME>
+	      <RTRUE>)>>
+
+<ROUTINE V-HIDE ()
+	 <TELL "There's no place to hide here." CR>>
+
+<ROUTINE V-HITCHHIKE ()
+	 <PERFORM ,V?PUSH ,GREEN-BUTTON>
+	 <RTRUE>>
+
+<ROUTINE V-I-AM ()
+	 <TELL "Pleased to meet you. I'm your computer." CR>>
+
+<ROUTINE V-IDIOT ()
+	 <PERFORM ,V?TELL ,ME>
+	 <RTRUE>>
+
+<ROUTINE V-KICK ()
+	 <HACK-HACK "Kicking">>
+
+<ROUTINE V-KILL ()
+	 <TELL
+"You are obviously letting things get to you. You should learn to
+relax a little." CR>>
+
+<ROUTINE V-KNEEL ()
+	 <V-TASTE>>
+
+<ROUTINE V-KNOCK ()
+	 <COND (<FSET? ,PRSO ,DOORBIT>
+		<TELL "Nobody's home." CR>)
+	       (T
+		<HACK-HACK "Knocking on">)>>
+
+<ROUTINE V-KISS ()
+	 <TELL "This is family entertainment, not a video nasty." CR>>
+
+<ROUTINE V-LAMP-OFF ()
+	 <COND (<AND <FSET? ,PRSO ,LIGHTBIT>
+		     <NOT <FSET? ,PRSO ,ONBIT>>>
+		<TELL "It is already off." CR>)
+	       (<AND <PRSO? ,INTNUM>
+			 <L? ,P-NUMBER 9>
+			 <ACCESSIBLE? ,BOARD>>
+		<PERFORM ,V?TURN ,DIPSWITCH>
+		<RTRUE>)
+	       (T
+		<TELL "You can't turn that off." CR>)>>
+
+<ROUTINE V-LAMP-ON ()
+	 <COND (<AND <FSET? ,PRSO ,LIGHTBIT>
+		     <FSET? ,PRSO ,ONBIT>>
+		<TELL "It is already on." CR>)
+	       (<AND <PRSO? ,INTNUM>
+		     <L? ,P-NUMBER 9>
+		     <ACCESSIBLE? ,BOARD>>
+		<PERFORM ,V?TURN ,DIPSWITCH>
+		<RTRUE>)
+	       (T
+		<TELL "You can't turn that on." CR>)>>
+
+<ROUTINE V-LEAP ()
+	 <COND (,LYING-DOWN
+		<TELL ,WHILE-LYING CR>)
+	       (<EQUAL? ,HERE ,CAPTAINS-QUARTERS>
+		<V-STAND>)
+	       (<AND ,PRSO
+		     <NOT <IN? ,PRSO ,HERE>>>
+		<V-COUNT>)
+	       (<AND <NOT ,PRSO>
+		     <EQUAL? ,HERE ,SPEEDBOAT>>
+		<TELL ,DONT-MIX CR>
+		<RTRUE>)
+	       (T
+		<V-SKIP>)>>
+
+<ROUTINE V-LEAVE ()
+	 <COND (<NOT ,PRSO>
+		<SETG PRSO ,ROOMS>)>
+	 <COND (<PRSO? ,ROOMS>
+		<DO-WALK ,P?OUT>)
+	       (<PRSO? <LOC ,WINNER>>
+		<PERFORM ,V?DISEMBARK ,PRSO>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-LIE-DOWN ()
+	 <COND (<EQUAL? ,HERE ,CAPTAINS-QUARTERS>
+		<V-STAND>)
+	       (<PRSO? ,ROOMS>
+		<COND (<EQUAL? ,HERE ,BEDROOM>
+		       <PERFORM ,V?LIE-DOWN ,BED>
+		       <RTRUE>)
+		      (T
+		       <PERFORM ,V?LIE-DOWN ,GROUND>
+		       <RTRUE>)>)
+	       (T
+		<PERFORM ,V?BOARD ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-LISTEN ()
+	 <TELL "At the moment,">
+	 <ARTICLE ,PRSO T>
+	 <TELL " makes no sound." CR>>
+
+<ROUTINE V-LOCK ()
+	 <V-CARVE>>
+
+<ROUTINE V-LOOK ()
+	 <COND (<FSET? ,TOWEL ,WORNBIT>
+		<TELL "You see a towel." CR>)
+	       (<DESCRIBE-ROOM T>
+		<DESCRIBE-OBJECTS T>)>>
+
+<ROUTINE V-LOOK-BEHIND ()
+	 <TELL "There is nothing behind">
+	 <ARTICLE ,PRSO T>
+	 <TELL "." CR>>
+
+<ROUTINE V-LOOK-DOWN ()
+	 <COND (<NOT ,LIT>
+		<TELL ,TOO-DARK CR>)
+	       (<PRSO? ,ROOMS>
+		<PERFORM ,V?EXAMINE ,GROUND>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?LOOK-INSIDE ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-LOOK-INSIDE ()
+	 <COND (<AND <FSET? ,PRSO ,ACTORBIT>
+		     <NOT <PRSO? ,SCREENING-DOOR>>>
+		<TELL "There is nothing special to be seen." CR>)
+	       (<AND <PRSO? ,SPARE-DRIVE ,THUMB ,PLOTTER>>
+		<TELL "You can't do that." CR>)
+	       (<FSET? ,PRSO ,SURFACEBIT>
+		<COND (<PRSO? <LOC ,WINNER>>
+		       <DESCRIBE-VEHICLE>
+		       <RTRUE>)
+		      (<FIRST? ,PRSO>
+		       <PRINT-CONT ,PRSO>)
+		      (T
+		       <TELL "There is nothing on">
+		       <ARTICLE ,PRSO T>
+		       <TELL "." CR>)>)
+	       (<FSET? ,PRSO ,DOORBIT>
+		<TELL "All you can tell is that">
+		<ARTICLE ,PRSO T>
+		<TELL " is ">
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL "open.">)
+		      (T
+		       <TELL "closed.">)>
+		<CRLF>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<COND (<PRSO? <LOC ,WINNER>>
+		       <DESCRIBE-VEHICLE>
+		       <RTRUE>)
+		      (<SEE-INSIDE? ,PRSO>
+		       <COND (<FIRST? ,PRSO>
+			      <PRINT-CONT ,PRSO>)
+			     (T
+			      <TELL "It's empty." CR>)>)
+		      (<AND <NOT <FSET? ,PRSO ,OPENBIT>>
+			    <FIRST? ,PRSO>>
+		       <PERFORM ,V?OPEN ,PRSO>
+		       <RTRUE>)
+		      (T
+		       <TELL "It seems that">
+		       <ARTICLE ,PRSO T>
+		       <TELL " is closed." CR>)>)
+	       (T
+		<TELL "You can't do that." CR>)>>
+
+<ROUTINE V-LOOK-UNDER ()
+	 <COND (<HELD? ,PRSO>
+		<COND (<FSET? ,PRSO ,WORNBIT>
+		       <TELL "You're wearing it!" CR>)
+		      (T
+		       <TELL "You're holding it!" CR>)>)
+	       (T
+		<TELL "There is nothing but ">
+		<COND (<PRSO? ,HOOK>
+		       <TELL "a " D ,FISH-HOLE>)
+		      (<PRSO? ,BOAT-OBJECT>
+		       <TELL "water">)
+		      (<AND <PRSO? ,TOWEL>
+			    <FSET? ,TOWEL ,SURFACEBIT>>
+		       <TELL "a drain">)
+		      (T
+		       <TELL "dust">)>
+		<TELL " there." CR>)>>
+
+<ROUTINE V-LOOK-UP ()
+	 <COND (<NOT ,LIT>
+		<TELL ,TOO-DARK CR>)
+	       (<PRSO? ,ROOMS>
+		<COND (<FSET? ,HERE ,OUTSIDEBIT>
+		       <PERFORM ,V?EXAMINE ,SKY>
+		       <RTRUE>)
+		      (T
+		       <PERFORM ,V?EXAMINE ,CEILING>
+		       <RTRUE>)>)
+	       (T
+		<PERFORM ,V?LOOK-INSIDE ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-LOWER ()
+	 <V-RAISE>>
+
+<ROUTINE V-MAKE ()
+	 <TELL "You can't make">
+	 <ARTICLE ,PRSO>
+	 <TELL "!" CR>>
+
+<ROUTINE V-MOVE ()
+	 <COND (<HELD? ,PRSO>
+		<TELL "Why juggle objects?" CR>)
+	       (<PRSO? ,PANEL-BLOCKER>
+		<SETG PANEL-BLOCKER <>>
+		<TELL
+"Okay, it's no longer in front of the " D ,ROBOT-PANEL "." CR>)
+	       (<FSET? ,PRSO ,INTEGRALBIT>
+		<PART-OF>)
+	       (<LOC-CLOSED>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,TAKEBIT>
+		<TELL "Moving">
+		<ARTICLE ,PRSO T>
+		<TELL " reveals nothing." CR>)
+	       (<AND <PRSO? ,INTNUM>
+		     <L? ,P-NUMBER 9>
+		     <ACCESSIBLE? ,BOARD>>
+		<PERFORM ,V?TURN ,DIPSWITCH>
+		<RTRUE>)
+	       (T
+		<TELL "You can't move">
+		<ARTICLE ,PRSO T>
+		<TELL "." CR>)>>
+
+<ROUTINE V-MUNG ()
+	 <HACK-HACK "Trying to break">>
+
+<ROUTINE V-MY-NAME ()
+	 <COND (<PRSO? ,NAME>
+		<V-I-AM>)
+	       (T
+		<V-TELL-TIME>)>>
+
+<ROUTINE V-NO ()
+	 <COND (<EQUAL? ,AWAITING-REPLY 1>
+		<RFALSE>)
+	       (<EQUAL? ,AWAITING-REPLY 2>
+		<DO-WALK ,P?SOUTH>)
+	       (<EQUAL? ,AWAITING-REPLY 3 10>
+		<TELL "I should think not." CR>)
+	       (<EQUAL? ,AWAITING-REPLY 4>
+		<TELL "The word \"no\" is not in our hostess' vocabulary." CR>)
+	       (<EQUAL? ,AWAITING-REPLY 5>
+		<SETG AWAITING-REPLY 3>
+		<V-YES>)
+	       (<EQUAL? ,AWAITING-REPLY 6 11>
+		<SETG AWAITING-REPLY 6>
+		<V-YES>)
+	       (<OR <EQUAL? ,AWAITING-REPLY 7 8>
+		    <EQUAL? ,AWAITING-REPLY 13 15>>
+		<SETG AWAITING-REPLY 3>
+		<V-YES>)
+	       (<EQUAL? ,AWAITING-REPLY 9>
+		<TELL "I disagree." CR>)
+	       (<EQUAL? ,AWAITING-REPLY 12>
+		<ENGINEER-LEAVE>
+		<TELL
+"\"Think you're funny, huh?\" The " D ,ENGINEER ,ROARS-OFF ", making sure
+to spray you with his Sub-Ethon exhaust." CR>)
+	       (<EQUAL? ,AWAITING-REPLY 14>
+		<TELL "Then stop." CR>)
+	       (<EQUAL? ,AWAITING-REPLY 16>
+		<TELL "I didn't think so." CR>)
+	       (<EQUAL? ,AWAITING-REPLY 18 19>
+		<V-YES>)
+	       (T
+		<TELL "You sound rather negative." CR>)>>
+
+<ROUTINE V-OPEN ("AUX" F STR)
+	 <COND (<FSET? ,PRSO ,SURFACEBIT>
+		<V-COUNT>)
+	       (<AND <FSET? ,PRSO ,ACTORBIT>
+		     <NOT <PRSO? ,NUTRIMAT>>>
+		<V-COUNT>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL ,ALREADY-OPEN CR>)
+		      (T
+		       <FSET ,PRSO ,OPENBIT>
+		       <FSET ,PRSO ,TOUCHBIT>
+		       <COND (<OR <NOT <FIRST? ,PRSO>>
+				  <FSET? ,PRSO ,TRANSBIT>>
+			      <TELL "Opened." CR>)
+			     ;(<AND <SET F <FIRST? ,PRSO>>
+				   <NOT <NEXT? .F>>
+				   <SET STR <GETP .F ,P?FDESC>>>
+			      <TELL "Okay,">
+			      <ARTICLE ,PRSO T>
+			      <TELL " is now open." CR>
+			      <TELL .STR CR>)
+			     (T
+			      <TELL "Opening">
+			      <ARTICLE ,PRSO T>
+			      <TELL " reveals">
+			      <PRINT-CONTENTS ,PRSO>
+			      <TELL "." CR>)>)>)
+	       (<FSET? ,PRSO ,DOORBIT>
+		<COND (<FSET? ,PRSO ,OPENBIT>
+		       <TELL ,ALREADY-OPEN CR>)
+		      (T
+		       <TELL "Okay,">
+		       <ARTICLE ,PRSO T>
+		       <TELL " is now open." CR>
+		       <FSET ,PRSO ,OPENBIT>)>)
+	       (T
+		<TELL-ME-HOW>)>>
+
+<ROUTINE V-PANIC ()
+	 <TELL "Not surprised." CR>>
+
+<ROUTINE V-PICK ()
+	 <V-COUNT>>
+
+<ROUTINE V-PICK-UP ()
+	 <PERFORM ,V?TAKE ,PRSO ,PRSI>
+	 <RTRUE>>
+
+<ROUTINE V-PLANT ()
+	 <COND (<PRSI? ,FLOWERPOT>
+		<PERFORM ,V?PUT ,PRSO ,PRSI>
+		<RTRUE>)
+	       (T
+		<TELL "You can't plant something in">
+		<ARTICLE ,PRSI>
+		<TELL "." CR>)>>
+
+<ROUTINE V-PLUG ()
+	 <TELL "You can't seem to plug">
+	 <ARTICLE ,PRSO T>
+	 <TELL " into">
+	 <ARTICLE ,PRSI T>
+	 <TELL "." CR>>
+
+<ROUTINE V-POINT ()
+	 <COND (<EQUAL? ,HERE ,SPEEDBOAT>
+		<PERFORM ,V?STEER ,BOAT-OBJECT ,PRSO>
+		<RTRUE>)
+	       (T
+		<V-STEER>)>>
+
+<ROUTINE V-POUR ()
+	 <V-CARVE>>
+
+<ROUTINE V-PROTEST ()
+	 <COND (<AND <EQUAL? ,HERE ,FRONT-OF-HOUSE>
+		     <RUNNING? ,I-BULLDOZER>>
+		<TELL
+"Prosser says, \"I wouldn't stop the " D ,BULLDOZER " even if you were lying in
+front of it!\"" CR>)
+	       (T
+		<TELL "To whom? About what? Why?" CR>)>>
+
+<ROUTINE V-PULL-TOGETHER ()
+	 <V-TELL-TIME>>
+
+<ROUTINE V-PUSH ()
+	 <COND (<AND <PRSO? ,INTNUM>
+		     <L? ,P-NUMBER 9>
+		     <ACCESSIBLE? ,BOARD>>
+		<PERFORM ,V?TURN ,DIPSWITCH>
+		<RTRUE>)
+	       (T
+		<HACK-HACK "Pushing">)>>
+
+<ROUTINE PRE-PUT ()
+	 <COND (<PRSI? ,GROUND>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)
+	       (<HELD? ,PRSI ,PRSO>
+;"formerly <PRSO? <LOC ,PRSI>> but that only checked down one level"
+		<TELL "You can't put">
+		<ARTICLE ,PRSO T>
+		<TELL " in">
+		<ARTICLE ,PRSI T>
+		<TELL " when">
+		<ARTICLE ,PRSI T>
+		<TELL " is already in">
+		<ARTICLE ,PRSO T>
+		<TELL "!" CR>)
+	       (<IDROP>
+		<RTRUE>)
+	       (,IN-FRONT-FLAG
+		<PERFORM ,V?PUT-IN-FRONT ,PRSO ,PRSI>
+		<RTRUE>)
+	       (<PRSO? ,TEA>
+		<PERFORM ,V?POUR ,TEA ,PRSI>
+		<RTRUE>)
+	       (<PRSO? ,BROWNIAN-SOURCE>
+		<SETG BROWNIAN-SOURCE <>>
+		<REMOVING-BIT>
+		<RFALSE>)
+	       (<AND <PRSO? ,PLOTTER>
+		     ,BROWNIAN-SOURCE>
+		<SETG BROWNIAN-SOURCE <>>
+		<REMOVING-BIT>
+		<RFALSE>)
+	       (<OR <AND <PRSO? ,PLOTTER>
+			 ,DRIVE-TO-PLOTTER>
+		    <AND <PRSO? ,SPARE-DRIVE>
+			 ,DRIVE-TO-PLOTTER>
+		    <AND <PRSO? ,SPARE-DRIVE>
+			 ,DRIVE-TO-CONTROLS>>
+		<TELL "You'll have to unplug it first." CR>)>>
+
+<ROUTINE V-PUT ()
+	 <COND (<AND <NOT <FSET? ,PRSI ,OPENBIT>>
+		     <NOT <FSET? ,PRSI ,DOORBIT>>
+		     <NOT <FSET? ,PRSI ,CONTBIT>>
+		     <NOT <FSET? ,PRSI ,SURFACEBIT>>
+		     <NOT <FSET? ,PRSI ,VEHBIT>>>
+		<TELL "You can't put">
+		<ARTICLE ,PRSO T>
+		<TELL " in">
+		<ARTICLE ,PRSI>
+		<TELL "!" CR>
+		<RTRUE>)
+	       (<OR <PRSI? ,PRSO>
+		    <AND <HELD? ,PRSO>
+			 <NOT <FSET? ,PRSO ,TAKEBIT>>>
+		    <PRSI? ,SPARE-DRIVE ,THUMB ,PLOTTER>>
+		<TELL "How can you do that?" CR>)
+	       (<AND <NOT <FSET? ,PRSI ,OPENBIT>>
+		     <NOT <FSET? ,PRSI ,SURFACEBIT>>>
+		<TELL "Inspection reveals that">
+		<ARTICLE ,PRSI T>
+		<TELL " isn't open." CR>
+		<SETG P-IT-OBJECT ,PRSI>)
+	       (<IN? ,PRSO ,PRSI>
+		<TELL "I think">
+		<ARTICLE ,PRSO T>
+		<TELL " is already in">
+		<ARTICLE ,PRSI T>
+		<TELL "." CR>)
+	       (<G? <- <+ <WEIGHT ,PRSI> <GETP ,PRSO ,P?SIZE>>
+		       <GETP ,PRSI ,P?SIZE>>
+		    <GETP ,PRSI ,P?CAPACITY>>
+		<COND (<FSET? ,PRSI ,VEHBIT>
+		       <V-DIG>)
+		      (T
+		       <TELL "There's no room." CR>)>)
+	       (<AND <NOT <HELD? ,PRSO>>
+		     <EQUAL? <ITAKE> ,M-FATAL <>>>
+		<RTRUE>)
+	       (T
+		<MOVE ,PRSO ,PRSI>
+		<FSET ,PRSO ,TOUCHBIT>
+		<TELL "Done." CR>)>>
+
+<ROUTINE V-PUT-BEHIND ()
+	 <V-DIG>>
+
+<ROUTINE V-PUT-IN-FRONT ()
+	 <V-DIG>>
+
+<ROUTINE V-PUT-ON ()
+	 <COND (<PRSI? ,ME>
+		<PERFORM ,V?WEAR ,PRSO>
+		<RTRUE>)
+	       (<FSET? ,PRSI ,SURFACEBIT>
+		<V-PUT>)
+	       (<PRSI? ,HEAD ,EYES>
+		<TELL "You can't cover">
+		<ARTICLE ,PRSI T>
+		<TELL " with that." CR>)
+	       (T
+		<TELL "There's no good surface on">
+		<ARTICLE ,PRSI T>
+		<TELL "." CR>)>>
+
+<ROUTINE V-PUT-UNDER ()
+         <V-DIG>>
+
+<ROUTINE V-RAPE ()
+	 <V-KISS>>
+
+<ROUTINE V-RAISE ()
+	 <HACK-HACK "Playing in this way with">>
+
+;<ROUTINE V-REACH-IN ("AUX" OBJ)
+	 <COND (<OR <NOT <FSET? ,PRSO ,CONTBIT>>
+		    <FSET? ,PRSO ,ACTORBIT>>
+		<V-CARVE>)
+	       (<NOT <FSET? ,PRSO ,OPENBIT>>
+		<TELL "It's not open." CR>)
+	       (<OR <NOT <SET OBJ <FIRST? ,PRSO>>>
+		    <FSET? .OBJ ,INVISIBLE>
+		    <NOT <FSET? .OBJ ,TAKEBIT>>>
+		<TELL "It's empty." CR>)
+	       (T
+		<TELL "You reach into">
+		<ARTICLE ,PRSO T>
+		<TELL " and feel something." CR>
+		<RTRUE>)>>
+
+<ROUTINE PRE-READ ()
+	 <COND (<AND <FSET? ,TOWEL ,WORNBIT>
+		     <NOT <PRSO? ,TOWEL>>>
+		<TELL ,WITH-TOWEL CR>)
+	       (<AND <NOT ,LIT>
+		     <NOT <PRSO? ,HANGOVER>>>
+		<TELL ,TOO-DARK CR>)
+	       (<AND ,PRSI
+		     <NOT <FSET? ,PRSI ,TRANSBIT>>>
+		<TELL "How does one look through">
+		<ARTICLE ,PRSI>
+		<TELL "?" CR>)>>
+
+<ROUTINE V-READ ()
+	 <COND (<FSET? ,PRSO ,READBIT>
+		<TELL <GETP ,PRSO ,P?TEXT> CR>)
+               (T
+                <TELL "How can you read">
+		<ARTICLE ,PRSO>
+		<TELL "?" CR>)>>
+
+<ROUTINE V-REFUSE ()
+	 <SETG PRSA ,V?TAKE>
+	 <DONT-F>>
+
+<ROUTINE V-RELAX ()
+	 <TELL ,ZEN CR>>
+
+<ROUTINE V-REMOVE ()
+	 <COND (<FSET? ,PRSO ,WEARBIT>
+		<PERFORM ,V?TAKE-OFF ,PRSO>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?TAKE ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-REPLACE ()
+	 <TELL "It's not in need of replacement." CR>>
+
+<ROUTINE V-REPAIR ()
+	 <COND (<OR <AND <PRSO? ,THUMB>
+		         <FSET? ,THUMB ,MUNGEDBIT>>
+		    <AND <PRSO? ,HATCH>
+			 ,LANDED>>
+		<TELL "You have neither the tools nor the expertise." CR>)
+	       (T
+		<TELL "I'm not sure it's broken." CR>)>>
+
+<ROUTINE V-REPLY ()
+	 <TELL "It is hardly likely that">
+	 <ARTICLE ,PRSO T>
+	 <TELL " is interested." CR>
+	 <FUCKING-CLEAR>>
+
+<ROUTINE V-RUB ()
+	 <COND (<LOC-CLOSED>
+		<RTRUE>)
+	       (T
+		<HACK-HACK "Fiddling with">)>>
+
+<ROUTINE V-SAVE-SOMETHING ()
+	 <TELL "Sorry, but">
+	 <ARTICLE ,PRSO T>
+	 <TELL " is beyond help." CR>>
+
+<ROUTINE V-SAY ("AUX" V)
+	 <COND (<AND ,AWAITING-REPLY
+		     <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?YES>>
+		<V-YES>
+		<FUCKING-CLEAR>)
+	       (<AND ,AWAITING-REPLY
+		     <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?NO>>
+		<V-NO>
+		<FUCKING-CLEAR>)
+	       (<AND <IN? ,BEAST ,HERE>
+		     <FSET? ,TOWEL ,WORNBIT>>
+		<SAID-WITH-TOWEL>
+		<FUCKING-CLEAR>)
+	       (<AND <IN? ,BEAST ,HERE>
+		     <NOT ,P-CONT>>
+		<PERFORM ,V?TELL ,BEAST>
+		<RTRUE>)
+	       (<AND <IN? ,BEAST ,HERE>
+		     <SAID-YOUR-NAME?>>
+		<PERFORM ,V?SAY-NAME ,YOUR-NAME>
+		<FUCKING-CLEAR>)
+	       (<IN? ,BEAST ,HERE>
+		<PERFORM ,V?SAY-NAME ,BEAST-NAME>
+		<FUCKING-CLEAR>)
+	       (<SET V <FIND-IN ,HERE ,ACTORBIT>>
+		<TELL "You must address">
+		<ARTICLE .V T>
+		<TELL " directly." CR>
+		<FUCKING-CLEAR>)
+	       (T
+		<PERFORM ,V?TELL ,ME>
+		<FUCKING-CLEAR>)>>
+
+<ROUTINE SAID-YOUR-NAME? ("AUX" OFFS LEN WRD)
+	 <SET OFFS ,P-CONT>
+	 <SET LEN ,P-LEN>
+	 <REPEAT ()
+		 <COND (<L? <SET LEN <- .LEN 1>> 0>
+			<RFALSE>)>
+		 <SET WRD <GET ,P-LEXV .OFFS>>
+		 <COND (<OR <EQUAL? .WRD ,W?MY ,W?NAME ,W?IS>
+			    <EQUAL? .WRD ,W?I ,W?AM ,W?I\'M>> T)
+		       (<EQUAL? .WRD ,W?ARTHUR ,W?DENT>
+			<RTRUE>)
+		       (T
+			<RFALSE>)>
+		 <SET OFFS <+ .OFFS 2>>>>
+
+<ROUTINE SAID-WITH-TOWEL ()
+	 <TELL
+"The Beast is puzzled by a voice coming from something it can't see."
+,SLOWLY-DAWNS CR>>
+
+<ROUTINE V-SAY-NAME ()
+	 <COND (<IN? ,BEAST ,HERE>
+		<COND (,NAME-TOLD
+		       <TELL "You already told the Beast your name." CR>)
+		      (<FSET? ,TOWEL ,WORNBIT>
+		       <SAID-WITH-TOWEL>)
+		      (<PRSO? ,YOUR-NAME ,ARTHUR ,NAME ,ME>
+		       <ENABLE <QUEUE I-BEAST 2>>
+		       <SETG NAME-TOLD T>
+		       <TELL
+"The Beast roars your name with relish, and explains that once it has eaten
+you, your name will be added to its list of remembrance." CR>)
+		      (T
+		       <TELL
+"There's something about detecting insincerity that transcends even the
+vast gulf between Humanity and Bugblatter Bestiality. The Beast bellows,
+obviously convinced that you were lying and that isn't your name nor
+anything remotely like it." CR>)>)
+	       (T
+		<TELL "You should use quotes with this verb." CR>)>>
+
+<ROUTINE V-SEARCH ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<TELL "That wouldn't be polite." CR>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,CONTBIT>
+		<COND (<PRSO? <LOC ,WINNER>>
+		       <DESCRIBE-VEHICLE>
+		       <RTRUE>)
+		      (<NOT <FSET? ,PRSO ,OPENBIT>>
+		       <TELL "You'll have to open it first." CR>
+		       <RTRUE>)
+		      (<AND <FIRST? ,PRSO>
+			    <NOT <FSET? <FIRST? ,PRSO> ,NDESCBIT>>>
+		       <PRINT-CONT ,PRSO>
+		       <RTRUE>)>)>
+	 <TELL "You find nothing unusual." CR>>
+
+<ROUTINE V-SGIVE ()
+	 <PERFORM ,V?GIVE ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-SHAKE ("AUX" X)
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<TELL "Be real." CR>)
+	       (T
+		<HACK-HACK "Shaking">)>>
+
+<ROUTINE V-SHAKE-WITH ()
+	 <COND (<NOT <PRSO? ,HANDS>>
+		<V-TELL-TIME>)
+	       (<NOT <FSET? ,PRSI ,ACTORBIT>>
+		<TELL "I don't think">
+		<ARTICLE ,PRSI T>
+		<TELL " even has hands." CR>)
+	       (T
+		<PERFORM ,V?THANK ,PRSI>
+		<RTRUE>)>>
+
+<ROUTINE V-SHOOT ()
+	 <COND (<FSET? ,TOWEL ,WORNBIT>
+		<TELL ,WITH-TOWEL CR>
+		<RTRUE>)>
+	 <COND (<NOT ,PRSO>
+		<COND (<HELD? ,BEAST-GUN>
+		       <SETG PRSO ,BEAST-GUN>)
+		      (<HELD? ,BLASTER>
+		       <SETG PRSO ,BLASTER>)
+		      (T
+		       <TELL "With what? At whom? Why?" CR>
+		       <RTRUE>)>)>
+	 <COND (<NOT ,PRSI>
+		<COND (<PRSO? ,BEAST-GUN ,BLASTER>
+		       <TELL "Some rays shoot out of the gun." CR>)
+		      (<HELD? ,BEAST-GUN>
+		       <PERFORM ,V?SHOOT ,PRSO ,BEAST-GUN>
+		       <RTRUE>)
+		      (<HELD? ,BLASTER>
+		       <PERFORM ,V?SHOOT ,PRSO ,BLASTER>
+		       <RTRUE>)
+		      (T
+		       <TELL "You have nothing to shoot">
+		       <ARTICLE ,PRSO T>
+		       <TELL " with." CR>)>)
+	       (<PRSI? ,BEAST-GUN>
+		<TELL "Some rays from the gun strike">
+		<ARTICLE ,PRSO T>
+		<TELL ", but ">
+		<COND (<AND <PRSO? ,BEAST>
+			    <NOT <FSET? ,BEAST ,MUNGEDBIT>>>
+		       <SETG GUN-COUNTER <+ ,GUN-COUNTER 1>>
+		       <TELL "it only seems to make it madder">
+		       <COND (<EQUAL? ,GUN-COUNTER 3>
+			      <TELL " (Footnote 7)">)>
+		       <TELL "." CR>)
+		      (T
+		       <TELL "nothing else happens." CR>)>)
+	       (T
+		<TELL
+"Don't ever bother applying for a job as an armaments expert." CR>)>>
+
+<ROUTINE V-SHOW ()
+	 <TELL "I doubt">
+	 <ARTICLE ,PRSI T>
+	 <TELL " is interested." CR>>
+
+<ROUTINE V-SIT ("AUX" VEHICLE)
+	 <COND (<SET VEHICLE <FIND-IN ,HERE ,VEHBIT>>
+		<PERFORM ,V?BOARD .VEHICLE>
+		<RTRUE>)
+	       (T
+		<V-DIG>)>>
+
+<ROUTINE V-SKIP ()
+	 <SETG AWAITING-REPLY 15>
+	 <ENABLE <QUEUE I-REPLY 2>>
+	 <TELL "Wasn't that fun?" CR>>
+
+<ROUTINE V-SLEEP ("OPTIONAL" (TOLD? <>))
+	 <COND (<EQUAL? ,HERE ,BEDROOM>
+		<TELL
+"You nod off and are wakened briefly a few hours later as">
+		<BETTER-LUCK>)
+	       (<EQUAL? ,HERE ,HOLD>
+		<TELL
+"You try, but the grubby mattresses are too repulsive." CR>)
+	       (T
+		<TELL "There's no bed here." CR>)>>
+
+<ROUTINE V-SMELL ()
+	 <TELL "It smells just like">
+	 <ARTICLE ,PRSO>
+	 <TELL "." CR>>
+
+<ROUTINE V-SMILE ()
+	 <COND (<AND <EQUAL? ,HERE ,CAPTAINS-QUARTERS>
+		     <IN? ,POETRY ,HERE>>
+		<V-APPLAUD>)
+	       (T
+		<TELL "How nice." CR>)>>
+
+<ROUTINE V-SPIN ()
+	 <TELL "You can't spin that!" CR>>
+
+<ROUTINE V-SPUT-ON ()
+	 <COND (<AND <PRSO? ,EARS>
+		     <VISIBLE? ,POETRY>>
+		<PERFORM ,V?LISTEN ,POETRY>
+		<RTRUE>)
+	       (T
+		<PERFORM ,V?PUT-ON ,PRSI ,PRSO>
+		<RTRUE>)>>
+
+<ROUTINE V-SSHOOT ()
+	 <PERFORM ,V?SHOOT ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-SSHOW ()
+	 <PERFORM ,V?SHOW ,PRSI ,PRSO>
+	 <RTRUE>>
+
+<ROUTINE V-STAND ()
+	 <COND (<FSET? <LOC ,WINNER> ,VEHBIT>
+		<PERFORM ,V?DISEMBARK <LOC ,WINNER>>
+		<RTRUE>)
+	       (,LYING-DOWN
+		<SETG LYING-DOWN <>>
+		<SETG OHERE <>>
+		<COND (<RUNNING? ,I-PROSSER>
+		       <TELL
+"You are safe! Prosser heaves a visible sigh of relief, shakes his head
+and wipes his brow. " ,BULLDOZER-PILES CR>
+		       <BRICK-DEATH>)
+		      (<AND <EQUAL? ,HERE ,FRONT-OF-HOUSE>
+			    <NOT ,PROSSER-LYING>
+			    <NOT <IN? ,FLEET ,HERE>>>
+		       <TELL "The " D ,BULLDOZER-DRIVER
+" gives a quick chew of his gum and slams in the clutch. " ,BULLDOZER-PILES CR>
+		       <BRICK-DEATH>)
+		      (T
+		       <OWN-FEET>)>)
+	       (<AND ,PRSO
+		     <FSET? ,PRSO ,TAKEBIT>>
+		<V-DIG>)
+	       (T
+		<TELL "You are already standing." CR>)>>
+
+<ROUTINE V-STAND-BEFORE ()
+	 <COND (<PRSO? ,DISPENSER>
+		<TELL "The slot is too wide to block that way." CR>)
+	       (<PRSO? ,FISH-HOLE ,ROBOT-PANEL ,HOOK>
+		<TELL "You'd never be able to push the "
+D ,DISPENSER-BUTTON " from there." ,GETTING-CLOSE CR>)
+	       (<AND <PRSO? ,BULLDOZER ,HOUSE ,HOME>
+		     <EQUAL? ,IDENTITY-FLAG ,ARTHUR>>
+		<TELL
+"The " D ,BULLDOZER " could easily maneuver around you." ,GETTING-CLOSE CR>)
+	       (T
+		<V-DIG>)>>
+
+<ROUTINE V-STAND-ON ()
+	 <COND (,IN-FRONT-FLAG
+		<PERFORM ,V?STAND-BEFORE ,PRSO>
+		<RTRUE>)
+	       (T
+		<V-DIG>)>>
+
+<ROUTINE V-STEER ()
+	 <TELL "That would be pointless." CR>>
+
+<ROUTINE PRE-TAKE ()
+	 <COND (<OR <AND <PRSO? ,GOWN>
+			 ,GOWN-HUNG
+			 ,LYING-DOWN>
+		    <AND <PRSO? ,TOWEL>
+			 <FSET? ,TOWEL ,SURFACEBIT>
+			 ,LYING-DOWN>>
+		<TELL ,WHILE-LYING CR>)
+	       (<PRSO? ,BABEL-FISH>
+		<RFALSE>)
+	       (<LOC-CLOSED>
+		<RTRUE>)
+	       (<OR <AND <PRSO? ,DANGLY-BIT>
+			 <PRSI? ,BROWNIAN-SOURCE>
+			 ,PRSI>
+		    <AND <PRSO? ,SMALL-PLUG>
+			 <PRSI? ,PLOTTER ,SMALL-RECEPTACLE>
+			 ,DRIVE-TO-PLOTTER>
+		    <AND <PRSO? ,LARGE-PLUG>
+			 <PRSI? ,CONTROLS ,LARGE-RECEPTACLE>
+			 ,DRIVE-TO-CONTROLS>>
+		<PERFORM ,V?REMOVE ,PRSO>
+		<RTRUE>)
+	       (<AND <FSET? ,PRSO ,INTEGRALBIT>
+		     <PRSI? <LOC ,PRSO>>>
+		<RFALSE>)
+	       (<OR <IN? ,PRSO ,PROTAGONIST>
+		    <AND <HELD? ,PRSO>
+			 <NOT <FSET? ,PRSO ,TAKEBIT>>>>
+		<COND (<FSET? ,PRSO ,WORNBIT>
+		       <TELL "You are already wearing it." CR>)
+		      (T
+		       <TELL "You already have it." CR>)>)
+	       (,PRSI
+		<COND (<PRSI? ,ME>
+		       <PERFORM ,V?DROP ,PRSO>
+		       <RTRUE>)
+		      (<AND <PRSO? ,ITEM-ON-SATCHEL>
+			    <PRSI? ,SATCHEL>>
+		       <RFALSE>)
+		      (<AND <PRSO? ,ITEM-DROPPED-AT-PARTY>
+			    <PRSI? ,HOSTESS>>
+		       <RFALSE>)
+		      (<NOT <PRSI? <LOC ,PRSO>>>
+		       <TELL "But">
+		       <ARTICLE ,PRSO T>
+		       <TELL " isn't ">
+		       <COND (<AND <FSET? ,PRSI ,ACTORBIT>
+				   <NOT <PRSI? ,NUTRIMAT ,SCREENING-DOOR>>>
+			      <TELL "being held by">)
+			     (<FSET? ,PRSI ,SURFACEBIT>
+			      <TELL "on">)
+			     (T
+			      <TELL "in">)>
+		       <ARTICLE ,PRSI T>
+		       <TELL "." CR>)
+		      (T
+		       <SETG PRSI <>>
+		       <RFALSE>)>)
+	       (<PRSO? <LOC ,WINNER>>
+		<TELL "You are in it!" CR>)
+	       (<AND ,HEADACHE
+		     <NOT <PRSO? ,GOWN>>
+		     <FSET? ,PRSO ,TAKEBIT>
+		     <NOT <HELD? ,PRSO>>>
+		<TELL <PICK-ONE ,LURCHES> CR>)>>
+
+<CONSTANT LURCHES
+	<PLTABLE
+"It slips through your fumbling fingers and hits the carpet with a
+nerve-shattering bang."
+"It dances by you like a thing possessed."
+"You lunge for it, but the room spins nauseatingly away. The floor
+gives you a light tap on the forehead."
+"You're certainly picking the tough tasks. The floor acts like a
+trampoline on an ice rink, or like something they've been working
+on for years at Disneyland.">>
+
+<ROUTINE V-TAKE ()
+	 <COND (<EQUAL? <ITAKE> T>
+		<COND (<AND <PRSO? ,JACKET-FLUFF>
+			    <FSET? ,JACKET-FLUFF ,TRYTAKEBIT>>
+		       <FCLEAR ,JACKET-FLUFF ,TRYTAKEBIT>
+		       <FCLEAR ,JACKET-FLUFF ,NDESCBIT>
+		       <SETG FLUFF-REMOVED T>
+		       <ENABLE <QUEUE I-ZAPHOD 6>>
+		       <ENABLE <QUEUE I-ARTHUR 2>>
+		       <TELL
+"You remove the " D ,JACKET-FLUFF ", improving Arthur's appearance greatly.
+He is clearly touched, and starts happily to chat away to you. You discover
+that he is only slightly more interesting to talk to than an averagely
+interesting wall." CR>)
+		      (T
+		       <COND (<PRSO? ,ITEM-DROPPED-AT-PARTY>
+			      <FCLEAR ,ITEM-DROPPED-AT-PARTY ,NDESCBIT>
+			      <COND (<NOT <HELD? ,WINE>>
+				     <SETG ITEM-DROPPED-AT-PARTY ,WINE>
+				     <FCLEAR ,HOSTESS ,TOUCHBIT>)
+				    (<NOT <HELD? ,HANDBAG>>
+				     <SETG ITEM-DROPPED-AT-PARTY ,HANDBAG>
+				     <FCLEAR ,HOSTESS ,TOUCHBIT>)
+				    (<NOT <HELD? ,APPETIZERS>>
+				     <SETG ITEM-DROPPED-AT-PARTY ,APPETIZERS>
+				     <FCLEAR ,HOSTESS ,TOUCHBIT>)
+				    (T
+				     <SETG ITEM-DROPPED-AT-PARTY <>>
+				     <FCLEAR ,HOSTESS ,NDESCBIT>)>)
+			     (<AND <PRSO? ,GOWN>
+				   ,GOWN-HUNG>
+			      <FCLEAR ,GOWN ,TRYTAKEBIT>
+			      <FCLEAR ,GOWN ,NDESCBIT>
+			      <FSET ,GOWN ,OPENBIT>
+			      <SETG GOWN-HUNG <>>)
+			     (<PRSO? ,PANEL-BLOCKER>
+			      <SETG PANEL-BLOCKER <>>
+			      <FCLEAR ,PRSO ,TRYTAKEBIT>
+			      <FCLEAR ,PRSO ,NDESCBIT>)>
+		       <COND (<AND <PRSO? ,SATCHEL>
+				   ,ITEM-ON-SATCHEL>
+			      <MOVE ,ITEM-ON-SATCHEL ,HERE>
+			      <FCLEAR ,ITEM-ON-SATCHEL ,NDESCBIT>
+			      <FCLEAR ,ITEM-ON-SATCHEL ,TRYTAKEBIT>
+			      <SETG ITEM-ON-SATCHEL <>>)
+			     (<PRSO? ,ITEM-ON-SATCHEL>
+			      <FCLEAR ,ITEM-ON-SATCHEL ,NDESCBIT>
+			      <FCLEAR ,ITEM-ON-SATCHEL ,TRYTAKEBIT>
+			      <SETG ITEM-ON-SATCHEL <>>)>
+		       <TELL "Taken." CR>)>)>>
+
+<ROUTINE V-TAKE-OFF ()
+	 <COND (<FSET? ,PRSO ,WORNBIT>
+		<FCLEAR ,PRSO ,WORNBIT>
+		<TELL "Okay, you're no longer wearing">
+		<ARTICLE ,PRSO T>
+		<TELL "." CR>)
+	       (T
+		<TELL "You aren't wearing that!" CR>)>>
+
+<ROUTINE V-TASTE ()
+	 <TELL "You can't. At least, not in this game you can't." CR>>
+
+<ROUTINE V-TELL ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<COND (,P-CONT
+		       <SETG WINNER ,PRSO>
+		       <SETG HERE <LOC ,WINNER>>
+		       <RTRUE>)
+		      (T
+		       <TELL "Hmmm ...">
+		       <ARTICLE ,PRSO T>
+		       <TELL
+" looks at you expectantly, as if you seemed to be about to talk." CR>)>)
+	       (T
+		<TELL "You can't talk to">
+		<ARTICLE ,PRSO>
+		<TELL "!" CR>
+		<FUCKING-CLEAR>)>>
+
+<ROUTINE V-TELL-ABOUT ()
+	 <COND (<PRSO? ,ME>
+		<PERFORM ,V?WHAT ,PRSI>
+		<RTRUE>)
+	       (T
+		<TELL "It doesn't look like">
+		<ARTICLE ,PRSO T>
+		<TELL " is interested." CR>)>>
+
+<ROUTINE V-TELL-TIME ()
+	 <TELL "That sentence isn't one I recognise." CR>>
+
+<ROUTINE V-TELL-NAME ()
+	 <V-TELL-TIME>>
+
+<ROUTINE V-THANK ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<TELL "You do so, but">
+		<ARTICLE ,PRSO T>
+		<TELL " seems less than overjoyed." CR>)
+	       (T
+		<V-CARVE>)>>
+
+<ROUTINE V-THROUGH ("AUX" M)
+	<COND (<FSET? ,PRSO ,DOORBIT>
+	       <DO-WALK <OTHER-SIDE ,PRSO>>
+	       <RTRUE>)
+	      (<FSET? ,PRSO ,VEHBIT>
+	       <PERFORM ,V?BOARD ,PRSO>
+	       <RTRUE>)
+	      (<NOT <FSET? ,PRSO ,TAKEBIT>>
+	       <TELL "You hit your head against">
+	       <ARTICLE ,PRSO T>
+	       <TELL " as you attempt this feat." CR>)
+	      (<IN? ,PRSO ,WINNER>
+	       <PERFORM ,V?EXAMINE ,EYES>
+	       <RTRUE>)
+	      (T
+	       <V-CARVE>)>>
+
+<ROUTINE PRE-THROW ()
+	 <COND (<AND <PRSO? ,INTNUM>
+		     <L? ,P-NUMBER 9>
+		     <ACCESSIBLE? ,BOARD>>
+		<PERFORM ,V?TURN ,DIPSWITCH>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,SWITCHBIT>
+		<RFALSE>)
+	       (<IDROP>
+		<RTRUE>)>>
+
+<ROUTINE V-THROW ()
+	 <COND (<EQUAL? ,HERE ,HOLD>
+		<MOVE ,PRSO ,LOCAL-GLOBALS>
+		<TELL ,ROBOT-FLIES-IN "collects">
+		<ARTICLE ,PRSO T>
+		<TELL " in midair, and flashes away." CR>) 
+	       (<EQUAL? ,HERE ,MAZE ,ACCESS-SPACE>
+		<PERFORM ,V?DROP ,PRSO>
+		<RTRUE>)
+	       (,PRSI
+		<MOVE ,PRSO ,HERE>
+		<TELL "You missed." CR>)
+	       (T
+		<MOVE ,PRSO ,HERE>
+		<TELL "Thrown." CR>)>>
+
+<ROUTINE V-THROW-OFF ()
+	 <TELL "You can't do that!" CR>>
+
+<ROUTINE V-THROW-IN-TOWEL ()
+	 <COND (<PRSO? ,TOWEL>
+		<V-QUIT>)
+	       (T
+		<V-TELL-TIME>)>>
+
+<ROUTINE V-TIE ()
+	 <TELL "You can't tie">
+	 <ARTICLE ,PRSO>
+	 <TELL "." CR>>
+
+<ROUTINE V-TIE-TOGETHER ()
+	 <COND (<PRSO? ,SLEEVES>
+		<PERFORM ,V?TIE ,SLEEVES>
+		<RTRUE>)
+	       (T
+		<V-TELL-TIME>)>>
+
+<ROUTINE V-TURN ()
+	 <COND (<PRSO? ,BOAT-OBJECT>
+		<TELL "Try: STEER BOAT TOWARD (something)." CR>)
+	       (<PRSO? ,ME ,ROOMS>
+		<V-SKIP>)
+	       (<AND <PRSO? ,INTNUM>
+		     <L? ,P-NUMBER 9>
+		     <ACCESSIBLE? ,BOARD>>
+		<PERFORM ,V?TURN ,DIPSWITCH>
+		<RTRUE>)
+	       (T
+		<TELL "This has no effect." CR>)>>
+
+<ROUTINE V-TYPE ()
+	 <COND (<NOT <EQUAL? ,HERE ,HOLD>>
+		<TELL "There's no " D ,KEYBOARD " in sight." CR>
+		<FUCKING-CLEAR>)
+	       (<AND <NOT ,POEM-ENJOYED>
+		     ,P-CONT>
+		<PERFORM ,V?MUNG ,GLASS-CASE>
+		<RTRUE>)
+	       (<AND <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?FRIPPING>
+		     <EQUAL? ,LINE-NUMBER 1 2>
+		     <EQUAL? ,WORD-NUMBER 1>>
+		<GLASS-CASE-OPENS>)
+	       (<AND <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?LYSHUS>
+		     <EQUAL? ,LINE-NUMBER 1 2>
+		     <EQUAL? ,WORD-NUMBER 2>>
+		<GLASS-CASE-OPENS>)
+	       (<AND <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?WIMBGUNTS>
+		     <EQUAL? ,LINE-NUMBER 1 2>
+		     <EQUAL? ,WORD-NUMBER 3>>
+		<GLASS-CASE-OPENS>)
+	       (<AND <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?GASHEE>
+		     <EQUAL? ,LINE-NUMBER 3 4>
+		     <EQUAL? ,WORD-NUMBER 1>>
+		<GLASS-CASE-OPENS>)
+	       (<AND <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?MORPHOUSI>
+		     <EQUAL? ,LINE-NUMBER 3 4>
+		     <EQUAL? ,WORD-NUMBER 2>>
+		<GLASS-CASE-OPENS>)
+	       (<AND <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?THOU>
+		     <EQUAL? ,LINE-NUMBER 3 4>
+		     <EQUAL? ,WORD-NUMBER 3>>
+		<GLASS-CASE-OPENS>)
+	       (<AND <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?BLEEM>
+		     <EQUAL? ,LINE-NUMBER 5 6>
+		     <EQUAL? ,WORD-NUMBER 1>>
+		<GLASS-CASE-OPENS>)
+	       (<AND <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?MISERABLE>
+		     <EQUAL? ,LINE-NUMBER 5 6>
+		     <EQUAL? ,WORD-NUMBER 2>>
+		<GLASS-CASE-OPENS>)
+	       (<AND <EQUAL? <GET ,P-LEXV ,P-CONT> ,W?VENCHIT>
+		     <EQUAL? ,LINE-NUMBER 5 6>
+		     <EQUAL? ,WORD-NUMBER 3>>
+		<GLASS-CASE-OPENS>)
+	       (<NOT ,P-CONT>
+		<TELL "You didn't specify what you wanted to type." CR>)
+	       (T
+		<PERFORM ,V?MUNG ,GLASS-CASE>
+		<RFATAL>)>>
+
+<ROUTINE V-TYPE-ON ()
+	 <COND (<PRSO? ,KEYBOARD>
+		<SETG P-CONT <>>
+		<V-TYPE>)
+	       (T
+		<TELL "You can't type on that!" CR>)>> 
+
+<ROUTINE V-UNLOCK ()
+	 <V-CARVE>>
+
+<ROUTINE V-UNPLUG ()
+	 <COND (<PRSO? ,SPARE-DRIVE ,LARGE-PLUG ,SMALL-PLUG ,PLOTTER>
+		<TELL ,NOT-PLUGGED CR>)
+	       (T
+		<V-COUNT>)>>
+
+<ROUTINE V-UNTIE ()
+	 <V-CARVE>>
+
+<ROUTINE V-WALK ("AUX" PT PTS STR OBJ RM)
+	 <COND (<AND <IN? ,FLEET ,HERE>
+		     <NOT <PRSO? ,P?UP ,P?DOWN>>>
+		<TELL "You would be no safer there." CR>)
+	       (,LYING-DOWN
+		<TELL ,WHILE-LYING CR>)
+	       (<FSET? ,TOWEL ,WORNBIT>
+		<SETG BEARINGS-LOST T>
+		<TELL
+"You stumble in that direction, but as you can't see where you're going you
+wander around in circles.">
+		<COND (<NOT <FSET? ,BEAST ,MUNGEDBIT>>
+		       <TELL
+" The Beast is getting puzzled that something it can't see is stumbling around
+its lair." ,SLOWLY-DAWNS>)>
+		<CRLF>)
+	       (<AND <NOT <EQUAL? ,HERE ,MAZE>>
+		     <EQUAL? ,IDENTITY-FLAG ,ARTHUR>
+		     ,BRAIN-DAMAGED
+		     <PROB 30>>
+		<TELL
+"You notice that you can't remember how to walk. Oddly, as you think about
+walking, all that comes to mind is an image of">
+		<ARTICLE ,BRAIN-DAMAGED>
+		<TELL "." CR>)
+	       ;(<NOT ,P-WALK-DIR> ;"Replaced with below fix"
+		<PERFORM ,V?WALK-TO ,PRSO>
+		<RTRUE>)
+	       (<ZERO? ,P-WALK-DIR>
+		<COND (<T? ,PRSO>
+		       <TELL "[Presumably, you mean WALK TO">
+		       <ARTICLE ,PRSO>
+		       <TELL ".]" CR>
+		       <PERFORM ,V?WALK-TO ,PRSO>)
+		      (T
+		       <V-WALK-AROUND>)>
+		<RTRUE>)
+	       (<SET PT <GETPT ,HERE ,PRSO>>
+		<COND (<EQUAL? <SET PTS <PTSIZE .PT>> ,UEXIT>
+		       <GOTO <GET ;B .PT ,REXIT>>)
+		      (<EQUAL? .PTS ,NEXIT>
+		       <TELL <GET .PT ,NEXITSTR> CR>
+		       <RFATAL>)
+		      (<EQUAL? .PTS ,FEXIT>
+		       <COND (<SET RM <APPLY <GET .PT ,FEXITFCN>>>
+			      <GOTO .RM>)
+			     (<AND <EQUAL? ,HERE ,BRIDGE>
+				   <EQUAL? ,P-WALK-DIR ,P?WEST>>
+			      <RTRUE>)
+			     (T
+			      <RFATAL>)>)
+		      (<EQUAL? .PTS ,CEXIT>
+		       <COND (<VALUE <GETB .PT ,CEXITFLAG>> ;"GETB here"
+			      <GOTO <GET ;B .PT ,REXIT>>)
+			     (<SET STR <GET .PT ,CEXITSTR>>
+			      <TELL .STR CR>
+			      <RFATAL>)
+			     (T
+			      <TELL ,CANT-GO CR>
+			      <RFATAL>)>)
+		      (<EQUAL? .PTS ,DEXIT>
+		       <COND (<FSET? <SET OBJ <GET ;B .PT ,DEXITOBJ>> ,OPENBIT>
+			      <GOTO <GET ;B .PT ,REXIT>>)
+			     (<SET STR <GET .PT ,DEXITSTR>>
+			      <TELL .STR CR>
+			      <SETG P-IT-OBJECT .OBJ>
+			      <RFATAL>)
+			     (T
+			      <TELL "The " D .OBJ " is closed." CR>
+			      <SETG P-IT-OBJECT .OBJ>
+			      <RFATAL>)>)>)
+	       (T
+		<COND (<PRSO? ,P?OUT ,P?IN>
+		       <V-WALK-AROUND>)
+		      (T
+		       <TELL ,CANT-GO CR>)>
+		<RFATAL>)>>
+
+<ROUTINE V-WALK-AROUND ()
+	 <SETG AWAITING-REPLY 16>
+	 <ENABLE <QUEUE I-REPLY 2>>
+	 <TELL "Did you have any particular direction in mind?" CR>>
+
+<ROUTINE V-WALK-TO ()
+	 <COND (<OR <IN? ,PRSO ,HERE>
+		    <GLOBAL-IN? ,PRSO ,HERE>>
+		<COND (<PRSO? ,TRILLIAN ,HOSTESS>
+		       <TELL "She">)
+		      (<AND <FSET? ,PRSO ,ACTORBIT>
+			    <NOT <PRSO? ,NUTRIMAT ,SCREENING-DOOR ,BEAST>>>
+		       <TELL "He">)
+		      (T
+		       <TELL "It">)>
+		<TELL "'s here!" CR>)
+	       (T
+		<V-WALK-AROUND>)>>
+
+<ROUTINE V-WAIT ("OPTIONAL" (NUM 3))
+	 <TELL "Time passes..." CR>
+	 <REPEAT ()
+		 <COND (<L? <SET NUM <- .NUM 1>> 0>
+			<RETURN>)
+		       (<CLOCKER>
+			<RETURN>)>>
+	 <SETG CLOCK-WAIT T>>
+
+<ROUTINE V-WAIT-FOR ()
+	 <TELL "You may be waiting quite a while." CR>>
+
+<ROUTINE V-WATER ()
+	 <TELL "It doesn't need watering." CR>>
+
+<ROUTINE V-WAVE ()
+	 <V-CARVE>>
+
+<ROUTINE V-WAVE-AT ()
+	 <COND (<NOT ,PRSO>
+		<V-SMILE>)
+	       (T
+		<TELL "Despite your friendly nature,">
+		<ARTICLE ,PRSO T>
+		<TELL " isn't likely to respond." CR>)>>
+
+<ROUTINE V-WEAR ()
+	 <COND (<NOT <FSET? ,PRSO ,WEARBIT>>
+		<TELL "You can't wear">
+		<ARTICLE ,PRSO T>
+		<TELL "." CR>)
+	       (<FSET? ,PRSO ,WORNBIT>
+		<TELL "You're already wearing">
+		<ARTICLE ,PRSO T>
+		<TELL "!" CR>)
+	       (T
+		<MOVE ,PRSO ,PROTAGONIST>
+		<FSET ,PRSO ,WORNBIT>
+		<TELL "You are now wearing">
+		<ARTICLE ,PRSO T>
+		<TELL "." CR>)>>
+
+<ROUTINE V-WHAT ()
+	 <TELL "Good question." CR>>
+
+<ROUTINE V-WHAT-ABOUT ()
+	 <TELL "Well, what about it?" CR>>
+
+<ROUTINE V-WHAT-TIME ()
+	 <V-TELL-TIME>>
+
+<ROUTINE V-WHERE ()
+	 <V-FIND T>>
+
+<ROUTINE V-WHO ()
+	 <COND (<FSET? ,PRSO ,ACTORBIT>
+		<PERFORM ,V?WHAT ,PRSO>
+		<RTRUE>)
+	       (T
+		<TELL "That's not a person!" CR>)>>
+
+<ROUTINE V-WHY ()
+	 <TELL "Why not?" CR>>
+
+<ROUTINE V-YELL ()
+	 <TELL "You begin to get a sore throat." CR>>
+
+<ROUTINE V-YES ()
+	 <COND (<EQUAL? ,AWAITING-REPLY 1>
+		<DO-WALK ,P?SOUTH>)
+	       (<EQUAL? ,AWAITING-REPLY 2>
+		<RFALSE>)
+	       (<EQUAL? ,AWAITING-REPLY 3>
+		<TELL "Well, tough." CR>)
+	       (<EQUAL? ,AWAITING-REPLY 4>
+		<PERFORM ,V?TAKE ,ITEM-DROPPED-AT-PARTY>
+		<RTRUE>)
+	       (<EQUAL? ,AWAITING-REPLY 5>
+		<TELL "So do I." CR>)
+	       (<OR <EQUAL? ,AWAITING-REPLY 6 8 11>
+		    <EQUAL? ,AWAITING-REPLY 13 14 15>>
+		<TELL "That was just a rhetorical question." CR>)
+	       (<EQUAL? ,AWAITING-REPLY 7 9>
+		<TELL "Well, good for you!" CR>)
+	       (<EQUAL? ,AWAITING-REPLY 10>
+		<PERFORM ,V?ENJOY ,FORD>
+		<RTRUE>)
+	       (<EQUAL? ,AWAITING-REPLY 12>
+		<ENABLE <QUEUE I-ENGINEER 2>>
+		<TELL "\"Well, let's see the malfunctioning equipment.\"" CR>)
+	       (<EQUAL? ,AWAITING-REPLY 16>
+		<TELL "Then type it." CR>)
+	       (<EQUAL? ,AWAITING-REPLY 18 19>
+		<TELL "\"Well, leave me alone then! I'm busy!\"" CR>)
+	       (T
+		<TELL "You sound rather positive." CR>)>>
+
+
+;"subtitle object manipulation"
+
+<ROUTINE ITAKE ("OPTIONAL" (VB T) "AUX" CNT OBJ)
+	 <COND (<FSET? ,PRSO ,INTEGRALBIT>
+		<COND (.VB
+		       <PART-OF>)>
+		<RFATAL>)
+	       (<NOT <FSET? ,PRSO ,TAKEBIT>>
+		<COND (.VB
+		       <V-CARVE>)>
+		<RFATAL>)
+	       (<AND <EQUAL? ,IDENTITY-FLAG ,TRILLIAN>
+		     <G? <CCOUNT ,PROTAGONIST> 2>>
+		<COND (.VB
+		       <TELL
+"As is the case so often at parties, you find that you are holding too much
+and can't pick up anything else." CR>)>
+		<RFATAL>)
+	       (<NOT <IN? <LOC ,PRSO> ,WINNER>>
+		<COND (<G? <+ <WEIGHT ,PRSO> <WEIGHT ,WINNER>> 100>
+		       <COND (.VB
+			      <TELL "Your load is too heavy." CR>)>
+		       <RFATAL>)
+		      (<AND <G? <SET CNT <CCOUNT ,WINNER>> 7>
+			    <PROB <* .CNT 8>>>
+		       <COND (.VB
+			      <TELL "You're holding too much already." CR>)>
+		       <RFATAL>)>)>
+	 <MOVE ,PRSO ,PROTAGONIST>
+	 <FSET ,PRSO ,TOUCHBIT>
+	 <RTRUE>>
+
+<ROUTINE IDROP () ;"revised 7/19/84 by SEM"
+	 <COND (<PRSO? ,HANGOVER>
+		<RFALSE>)
+	       (<AND <PRSO? ,NO-TEA>
+		     ,HOLDING-NO-TEA>
+		<RFALSE>)
+	       (<AND <PRSO? ,DANGLY-BIT ,LARGE-PLUG ,SMALL-PLUG>
+		     <VERB? PUT PUT-ON>>
+		<RFALSE>)
+	       (<AND <VERB? GIVE>
+		     <PRSO? ,SPEECH>>
+		<RFALSE>)
+	       (<PRSO? ,SLEEVES>
+		<V-DIG>)
+	       (<PRSO? ,EYES ,EARS ,HANDS ,HEAD>
+		<COND (<VERB? DROP THROW GIVE>
+		       <V-COUNT>)
+		      (<AND <VERB? PUT-ON>
+			    <PRSI? ,SATCHEL>>
+		       <V-COUNT>)
+		      (T
+		       <RFALSE>)>)
+	       (<AND <PRSO? ,SPARE-DRIVE>
+		     <PRSI? ,LARGE-RECEPTACLE ,SMALL-RECEPTACLE
+			    ,CONTROLS ,PLOTTER>>
+		<RFALSE>)
+	       (<NOT <HELD? ,PRSO>>
+		<TELL "That's easy for you to say since you don't even have">
+		<ARTICLE ,PRSO T>
+		<TELL "." CR>)
+	       (<PRSO? ,PLANT>
+		<PERFORM ,V?DROP ,FLOWERPOT>
+		<RTRUE>)
+	       (<FSET? ,PRSO ,INTEGRALBIT>
+		<PART-OF>)
+	       (<AND <NOT <IN? ,PRSO ,WINNER>>
+		     <FSET? <LOC ,PRSO> ,CONTBIT>
+		     <NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>
+		<TELL "Impossible because">
+		<ARTICLE <LOC ,PRSO> T>
+		<TELL " is closed." CR>)
+	       (<OR <AND <PRSO? ,BABEL-FISH>
+			 <NOT <VERB? SHOW>>>
+		    <FSET? ,PRSO ,WORNBIT>>
+		<TELL "You'll have to remove it first." CR>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE CCOUNT	(OBJ "AUX" (CNT 0) X)
+	 <COND (<SET X <FIRST? .OBJ>>
+		<REPEAT ()
+			<COND (<AND <NOT <FSET? .X ,WORNBIT>>
+				    <NOT <EQUAL? .X ,BABEL-FISH>>>
+			       <SET CNT <+ .CNT 1>>)>
+			<COND (<NOT <SET X <NEXT? .X>>>
+			       <RETURN>)>>)>
+	 .CNT>
+
+;"Gets SIZE of supplied object, recursing to nth level."
+<ROUTINE WEIGHT (OBJ "AUX" CONT (WT 0))
+	 <COND (<SET CONT <FIRST? .OBJ>>
+		<REPEAT ()
+			<COND (<AND <EQUAL? .OBJ ,PLAYER>
+				    <FSET? .CONT ,WORNBIT>>
+			       <SET WT <+ .WT 1>>)
+			              ;"worn things shouldn't count"
+			      (<AND <EQUAL? .OBJ ,PLAYER>
+				    <FSET? <LOC .CONT> ,WORNBIT>>
+			       <SET WT <+ .WT 1>>)
+			              ;"things in worn things shouldn't count"
+			      (<AND <EQUAL? .OBJ ,PLAYER>
+				    <EQUAL? .CONT ,BABEL-FISH>>
+			       <SET WT <+ .WT 1>>)
+			              ;"the babel fish shouldn't count"
+			      (T
+			       <SET WT <+ .WT <WEIGHT .CONT>>>)>
+			<COND (<NOT <SET CONT <NEXT? .CONT>>> <RETURN>)>>)>
+	 <+ .WT <GETP .OBJ ,P?SIZE>>>
+
+
+;"subtitle describers"
+
+<ROUTINE DESCRIBE-ROOM ("OPTIONAL" (LOOK? <>) "AUX" V? STR AV)
+	 <SET V? <OR .LOOK? <EQUAL? ,VERBOSITY 2>>>
+	 <COND (<NOT ,LIT>
+		<TELL "It is pitch black.">
+		<CRLF>
+		<RETURN <>>)>
+	 <COND (<NOT <FSET? ,HERE ,TOUCHBIT>>
+		<FSET ,HERE ,TOUCHBIT>
+		<SET V? T>)>
+	 <COND (<IN? ,HERE ,ROOMS>
+		<TELL D ,HERE>
+		<SET AV <LOC ,WINNER>>
+		<COND (<AND <NOT ,LYING-DOWN>
+			    <NOT <FSET? .AV ,VEHBIT>>>
+		       <CRLF>)>)>
+	 <COND (<OR .LOOK?
+		    <EQUAL? ,VERBOSITY 1 2>>
+		<COND (<FSET? .AV ,VEHBIT>
+		       <TELL ", in the " D .AV CR>)
+		      (,LYING-DOWN
+		       <TELL ", lying down" CR>)>
+		<COND (<AND .V? <APPLY <GETP ,HERE ,P?ACTION> ,M-LOOK>>
+		       <RTRUE>)
+		      (<AND .V? <SET STR <GETP ,HERE ,P?LDESC>>>
+		       <TELL .STR CR>)
+		      (T
+		       <APPLY <GETP ,HERE ,P?ACTION> ,M-FLASH>)>
+		<COND (<AND <NOT <EQUAL? ,HERE .AV>>
+			    <FSET? .AV ,VEHBIT>>
+		       <APPLY <GETP .AV ,P?ACTION> ,M-LOOK>)>)>
+	 T>
+
+<ROUTINE DESCRIBE-OBJECTS ("OPTIONAL" (V? <>))
+   <COND (,LIT
+	  <COND (<FIRST? ,HERE>
+		 <PRINT-CONT ,HERE <SET V? <OR .V? <==? ,VERBOSITY 2>>> -1>)>)
+	 (T
+	  <TELL ,TOO-DARK CR>)>>
+
+"DESCRIBE-OBJECT -- takes object and flag.  if flag is true will print a
+long description (fdesc or ldesc), otherwise will print short."
+
+<ROUTINE DESCRIBE-OBJECT (OBJ V? LEVEL "AUX" (STR <>) AV)
+	 <COND (<AND <0? .LEVEL>
+		     <APPLY <GETP .OBJ ,P?DESCFCN> ,M-OBJDESC>>
+		<RTRUE>)
+	       (<AND <0? .LEVEL>
+		     <OR <AND <NOT <FSET? .OBJ ,TOUCHBIT>>
+			      <SET STR <GETP .OBJ ,P?FDESC>>>
+			 <SET STR <GETP .OBJ ,P?LDESC>>>>
+		<TELL .STR>)
+	       (<0? .LEVEL>
+		<TELL "There is">
+		<ARTICLE .OBJ>
+		<TELL " here.">)
+	       (T
+		<TELL <GET ,INDENTS .LEVEL>>
+		<COND (<FSET? .OBJ ,NARTICLEBIT>
+		       T)
+		      (<FSET? .OBJ ,VOWELBIT>
+		       <TELL "an ">)
+		      (T
+		       <TELL "a ">)>
+		<TELL D .OBJ>
+		<COND (<FSET? .OBJ ,WORNBIT>
+		       <TELL " (being worn)">)
+		      (<EQUAL? .OBJ ,BABEL-FISH>
+		       <TELL " (in your ear)">)
+		      (<AND <EQUAL? .OBJ ,PLOTTER>
+			    ,BROWNIAN-SOURCE>
+		       <TELL " (suspended in">
+		       <ARTICLE ,BROWNIAN-SOURCE>
+		       <TELL ")">)
+		      (<AND <EQUAL? .OBJ ,SPARE-DRIVE>
+			    <OR ,DRIVE-TO-PLOTTER ,DRIVE-TO-CONTROLS>>
+		       <TELL " (connected to">
+		       <COND (,DRIVE-TO-PLOTTER
+			      <TELL " the plotter">
+			      <COND (,DRIVE-TO-CONTROLS
+				     <TELL " and">)>)>
+		       <COND (,DRIVE-TO-CONTROLS
+			      <TELL " the control console">)>
+		       <TELL ")">)>)>
+	 <COND (<AND <0? .LEVEL>
+		     <NOT <FSET? .OBJ ,ACTORBIT>>
+		     <SET AV <LOC ,WINNER>>
+		     <FSET? .AV ,VEHBIT>>
+		<TELL " (outside the " D .AV ")">)>
+	 <CRLF>
+	 <COND (<AND <SEE-INSIDE? .OBJ> <FIRST? .OBJ>>
+		<PRINT-CONT .OBJ .V? .LEVEL>)>>
+
+<ROUTINE PRINT-CONT (OBJ "OPTIONAL" (V? <>) (LEVEL 0)
+		     "AUX" Y (1ST? T) (AV <>) STR (PV? <>) (INV? <>) (SC <>))
+	 <COND (<NOT <SET Y <FIRST? .OBJ>>>
+		<RTRUE>)>
+	 <COND (<FSET? <LOC ,WINNER> ,VEHBIT>
+		<SET AV <LOC ,WINNER>>)>
+	 <COND (<EQUAL? ,PROTAGONIST .OBJ <LOC .OBJ>>
+		<SET INV? T>)
+	       (T
+		<REPEAT ()
+			<COND (<NOT .Y>
+			       <RETURN ;<NOT .1ST?>>)
+			      (<EQUAL? .Y .AV>
+			       <SET PV? T>)
+			      (<EQUAL? .Y ,WINNER>)
+			      (<AND <NOT <FSET? .Y ,INVISIBLE>>
+				    <NOT <FSET? .Y ,TOUCHBIT>>
+				    <SET STR <GETP .Y ,P?FDESC>>>
+			       <COND (<NOT <FSET? .Y ,NDESCBIT>>
+				      <TELL .STR CR>)>
+			       <COND (<AND <SEE-INSIDE? .Y>
+					   <NOT <GETP <LOC .Y> ,P?DESCFCN>>
+					   <FIRST? .Y>>
+				      <PRINT-CONT .Y .V? 0>)>)>
+			<SET Y <NEXT? .Y>>>)>
+	 <SET Y <FIRST? .OBJ>>
+	 <REPEAT ()
+		 <COND (<NOT .Y>
+			<COND (<AND .PV? .AV <FIRST? .AV>>
+			       <PRINT-CONT .AV .V? .LEVEL>)>
+			<RETURN ;<NOT .1ST?>>)
+		       (<EQUAL? .Y .AV ,PROTAGONIST> ;"GTB" ;T)
+		       (<AND <NOT <FSET? .Y ,INVISIBLE>>
+			     <OR .INV?
+				 <FSET? .Y ,TOUCHBIT>
+				 <NOT <GETP .Y ,P?FDESC>>>>
+			<COND (<AND <EQUAL? .Y ,STONE>
+				    <EQUAL? ,HERE ,OUTER-LAIR>
+				    <IN? .Y ,HERE>>
+			       <FSET .Y ,NDESCBIT>)
+			      (<NOT <FSET? .Y ,NDESCBIT>>
+			       <COND (.1ST?
+				      <COND (<FIRSTER .OBJ .LEVEL>
+					     <COND (<L? .LEVEL 0>
+						    <SET LEVEL 0>)>)>
+				      <SET LEVEL <+ 1 .LEVEL>>
+				      <SET 1ST? <>>)>
+			       <DESCRIBE-OBJECT .Y .V? .LEVEL>)
+			      (<AND <FIRST? .Y>
+				    <SEE-INSIDE? .Y>>
+			       <PRINT-CONT .Y .V? .LEVEL>)>)>
+		 <SET Y <NEXT? .Y>>>>
+
+<ROUTINE PRINT-CONTENTS (OBJ "AUX" F N (1ST? T) (IT? <>) (TWO? <>))
+	 <COND (<SET F <FIRST? .OBJ>>
+		<REPEAT ()
+			<SET N <NEXT? .F>>
+			<COND (.1ST?
+			       <SET 1ST? <>>)
+			      (T
+			       <TELL ",">
+			       <COND (<NOT .N>
+				      <TELL " and">)>)>
+			<ARTICLE .F>
+			<COND (<AND <NOT .IT?>
+				    <NOT .TWO?>>
+			       <SET IT? .F>)
+			      (T
+			       <SET TWO? T>
+			       <SET IT? <>>)>
+			<SET F .N>
+			<COND (<NOT .F>
+			       <COND (<AND .IT? <NOT .TWO?>>
+				      <SETG P-IT-OBJECT .IT?>)>
+			       <RTRUE>)>>)>>
+
+<ROUTINE FIRSTER (OBJ LEVEL)
+	 <COND (<EQUAL? .OBJ ,WINNER>
+		<RTRUE>)
+	       (<NOT <IN? .OBJ ,ROOMS>>
+		<COND (<G? .LEVEL 0>
+		       <TELL <GET ,INDENTS .LEVEL>>)>
+		<COND (<FSET? .OBJ ,SURFACEBIT>
+		       <TELL "Sitting on the " D .OBJ " is:" CR>)
+		      (<AND <FSET? .OBJ ,ACTORBIT>
+			    <NOT <EQUAL? .OBJ ,NUTRIMAT>>>
+		       <TELL ,IT-LOOKS-LIKE>
+		       <ARTICLE .OBJ T>
+		       <TELL " is holding:" CR>)
+		      (T
+		       <TELL ,IT-LOOKS-LIKE>
+		       <ARTICLE .OBJ T>
+		       <TELL " contains:" CR>)>)>>
+
+<ROUTINE DESCRIBE-VEHICLE () ;"for LOOK AT vehicle when you're in it"
+	 <MOVE ,PROTAGONIST ,ROOMS>
+	 <COND (<FIRST? ,PRSO>
+		<PRINT-CONT ,PRSO>)
+	       (T
+		<TELL "It's empty (not counting you)." CR>)>
+	 <MOVE ,PROTAGONIST ,PRSO>>
+
+
+;"subtitle movement and death"
+
+;"when these are referenced, GET (and not GETB) must be used, since it
+takes TWO bytes to represent their values" 
+
+<ROUTINE GOTO (RM "OPTIONAL" (V? T))
+	 <MOVE ,PROTAGONIST .RM>
+	 <SETG HERE .RM>
+	 <SETG OHERE <>>
+	 <COND (<NOT <EQUAL? ,HERE ,DARK>>
+		<MOVE ,NAME ,HERE>)>
+	 <SETG LIT <LIT? ,HERE>>
+	 <UNPLUG-HELD-STUFF>
+	 <APPLY <GETP ,HERE ,P?ACTION> ,M-ENTER>
+	 <COND (<AND .V?
+		     <EQUAL? ,HERE .RM>>
+		<V-FIRST-LOOK>)>
+	 <RTRUE>>
+
+<ROUTINE UNPLUG-HELD-STUFF ()
+	 <COND (<AND ,DRIVE-TO-CONTROLS
+		     <HELD? ,SPARE-DRIVE>>
+		<SETG DRIVE-TO-CONTROLS <>>
+		<FCLEAR ,SPARE-DRIVE ,NDESCBIT>
+		<TELL "(unplugging the spare drive first)" CR>)>
+	 <COND (<AND <HOLDING-ONE-BUT-NOT-BOTH? ,SPARE-DRIVE ,PLOTTER>
+		     ,DRIVE-TO-PLOTTER>
+		<SETG DRIVE-TO-PLOTTER <>>
+		<TELL "(disconnecting the short cord first)" CR>)>
+	 <COND (<AND <HOLDING-ONE-BUT-NOT-BOTH? ,BROWNIAN-SOURCE ,PLOTTER>
+		     ,BROWNIAN-SOURCE>
+		<SETG BROWNIAN-SOURCE <>>
+		<REMOVING-BIT>)>>
+
+<ROUTINE JIGS-UP (DESC)
+	 <TELL .DESC>	       
+	 <COND (,DREAMING
+		<TELL " Everything becomes..." CR CR>
+		<COND (<EQUAL? ,IDENTITY-FLAG ,FORD>
+		       <ROB ,PROTAGONIST ,LOCAL-GLOBALS>
+		       <COND (<GET ,FORD-TABLE 4>
+			      <FSET ,THUMB ,MUNGEDBIT>)>
+		       <ROB ,MEMORIAL ,PROTAGONIST>
+		       <MOVE ,SATCHEL <GET ,FORD-TABLE 0>>
+		       <MOVE ,THUMB <GET ,FORD-TABLE 1>>
+		       <MOVE ,GUIDE <GET ,FORD-TABLE 2>>
+		       <MOVE ,TOWEL <GET ,FORD-TABLE 3>>
+		       <MOVE ,MINERAL-WATER <GET ,FORD-TABLE 5>>
+		       <COND (<NOT <FSET? ,COUNTRY-LANE ,REVISITBIT>>
+		       	      <MOVE ,SATCHEL-FLUFF ,SATCHEL>)>
+		       <FCLEAR ,SATCHEL ,OPENBIT>
+		       <FCLEAR ,COUNTRY-LANE ,NDESCBIT>
+		       <SETG TOWEL-OFFERED <>>
+		       <SETG GONE-AROUND <>>
+		       <DISABLE <INT I-ARTHUR>>
+		       <LEAVE-EARTH>)
+		      (<EQUAL? ,IDENTITY-FLAG ,TRILLIAN>
+		       <MOVE ,HANDBAG <GET ,PARTY-TABLE 0>>
+		       <COND (<IN? ,TWEEZERS ,HANDBAG>
+			      <MOVE ,TWEEZERS <GET ,PARTY-TABLE 1>>)>
+		       <COND (<GET ,PARTY-TABLE 2>
+			      <FSET ,HANDBAG ,OPENBIT>)
+			     (T
+			      <FCLEAR ,HANDBAG ,OPENBIT>)>
+		       <COND (<NOT <FSET? ,LIVING-ROOM ,REVISITBIT>>
+			      <MOVE ,JACKET-FLUFF ,LOCAL-GLOBALS>
+			      <FSET ,JACKET-FLUFF ,TRYTAKEBIT>
+			      <FSET ,JACKET-FLUFF ,NDESCBIT>
+			      <SETG FLUFF-REMOVED <>>
+			      <FCLEAR ,HOSTESS ,NDESCBIT>)>
+		       <ROB ,RAMP ,HANDBAG>
+		       <FCLEAR ,LIVING-ROOM ,TOUCHBIT>
+		       <FCLEAR ,HANDBAG ,NDESCBIT>
+		       <FCLEAR ,WINE ,NDESCBIT>
+		       <FCLEAR ,APPETIZERS ,NDESCBIT>
+		       <MOVE ,WINE ,LOCAL-GLOBALS>
+		       <MOVE ,APPETIZERS ,LOCAL-GLOBALS>
+		       <SETG TRILLIAN-PROB 10>
+		       <SETG ITEM-DROPPED-AT-PARTY <>>
+		       <DISABLE <INT I-ARTHUR>>
+		       <DISABLE <INT I-ZAPHOD>>
+		       <DISABLE <INT I-HOSTESS>>)
+		      (<EQUAL? ,IDENTITY-FLAG ,ZAPHOD>
+		       <SETG BOAT-DOCKED <>>
+		       <SETG BOAT-COUNTER 0>
+		       <SETG CRASH-COUNTER 0>
+		       <SETG DAIS-COUNTER 0>
+		       <MOVE ,GUARDS ,LOCAL-GLOBALS>
+		       <MOVE ,BLASTER ,LOCAL-GLOBALS>
+		       <MOVE ,RIFLES ,LOCAL-GLOBALS>
+		       <FCLEAR ,SPEEDBOAT ,TOUCHBIT>
+		       <FSET ,RIFLES ,NDESCBIT>
+		       <DISABLE <INT I-GUARDS>>
+		       <DISABLE <INT I-SPEEDBOAT>>
+		       <COND (<NOT <FSET? ,SPEEDBOAT ,REVISITBIT>>
+			      <MOVE ,TOOLBOX ,SPEEDBOAT>
+			      <MOVE ,CUSHION-FLUFF ,LOCAL-GLOBALS>
+			      <MOVE ,KEY ,LOCAL-GLOBALS>)>
+		       <ROB ,PROTAGONIST ,LOCAL-GLOBALS>)
+		      (<EQUAL? ,HERE ,INSIDE-WHALE> ;"remove non-worn items"
+		       <ROB ,INSIDE-WHALE ,BULLDOZER>
+		       <MOVE ,WHALE-OBJECT ,INSIDE-WHALE>
+		       <COND (<NOT <HELD? ,FLOWERPOT ,THING>>
+			      <MOVE ,FLOWERPOT ,HERE>)>
+		       <ROB ,PROTAGONIST ,BULLDOZER>
+		       <FCLEAR ,INSIDE-WHALE ,TOUCHBIT>
+		       <COND (<AND <IN? ,GOWN ,BULLDOZER>
+				   <FSET? ,GOWN ,WORNBIT>>
+			      <MOVE ,GOWN ,PROTAGONIST>)>
+		       <COND (<IN? ,BABEL-FISH ,BULLDOZER>
+			      <MOVE ,BABEL-FISH ,PROTAGONIST>)>)
+		      (<EQUAL? ,HERE ,WAR-CHAMBER ,MAZE>
+		       <DISABLE <INT I-DOG>>
+		       <FCLEAR ,WAR-CHAMBER ,TOUCHBIT>
+		       <MOVE ,THIRD-PLANET ,LOCAL-GLOBALS>
+		       <SETG DOG-COUNTER 0>
+		       <COND (<EQUAL? ,HERE ,WAR-CHAMBER>
+			      <ROB ,WAR-CHAMBER ,LOCAL-GLOBALS>
+			      <MOVE ,AWL ,HERE>
+			      <MOVE ,GGUGVUNT ,HERE>
+			      <MOVE ,VLHURG ,HERE>
+			      <MOVE ,CANOPY ,HERE>
+			      <MOVE ,MICROSCOPIC-FLEET ,HERE>
+			      <MOVE ,OTHER-PLANETS ,HERE>
+			      <FCLEAR ,VLHURG ,MUNGEDBIT>)>)
+		      (<EQUAL? ,HERE ,LAIR ,INNER-LAIR ,OUTER-LAIR>
+		       <FCLEAR ,BEAST ,MUNGEDBIT>
+		       <SETG BEAST-COUNTER 0>
+		       <SETG BEARINGS-LOST <>>
+		       <SETG NAME-TOLD <>>
+		       <FCLEAR ,TOWEL ,WORNBIT>
+		       <FCLEAR ,LAIR ,NDESCBIT>
+		       <MOVE ,STONE ,OUTER-LAIR>
+		       <MOVE ,BEAST ,LAIR>
+		       <DISABLE <INT I-BEAST>>)>
+		<SETG TEA-COUNTER 0>
+		<MOVE ,MAIN-DRIVE ,GLOBAL-OBJECTS>
+		<SETG HEART-PROB 100>
+		<GOTO ,DARK>)
+	       (T
+		<TELL CR CR
+"    ****  You have died  ****" CR CR>
+		<FINISH>)>>
+
+
+;"subtitle useful utility routines"
+
+<ROUTINE ACCESSIBLE? (OBJ "AUX" (L <LOC .OBJ>)) ;"can player TOUCH object?"
+	 ;"revised 5/2/84 by SEM and SWG"
+	 <COND (<FSET? .OBJ ,INVISIBLE>
+		<RFALSE>)
+	       ;(<EQUAL? .OBJ ,PSEUDO-OBJECT>
+		<COND (<EQUAL? ,LAST-PSEUDO-LOC ,HERE>
+		       <RTRUE>)
+		      (T
+		       <RFALSE>)>)
+	       (<NOT .L>
+		<RFALSE>)
+	       (<EQUAL? .L ,GLOBAL-OBJECTS>
+		<RTRUE>)	       
+	       (<AND <EQUAL? .L ,LOCAL-GLOBALS>
+		     <GLOBAL-IN? .OBJ ,HERE>>
+		<RTRUE>)
+	       (<NOT <EQUAL? <META-LOC .OBJ> ,HERE>>
+		<RFALSE>)
+	       (<EQUAL? .L ,WINNER ,HERE>
+		<RTRUE>)
+	       (<AND <FSET? .L ,OPENBIT>
+		     <ACCESSIBLE? .L>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE VISIBLE? (OBJ "AUX" (L <LOC .OBJ>)) ;"can player SEE object"
+	 ;"revised 5/2/84 by SEM and SWG"
+	 <COND (<ACCESSIBLE? .OBJ>
+		<RTRUE>)
+	       (<AND <SEE-INSIDE? .L>
+		     <VISIBLE? .L>>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE META-LOC (OBJ)
+	 <REPEAT ()
+		 <COND (<NOT .OBJ>
+			<RFALSE>)
+		       (<IN? .OBJ ,GLOBAL-OBJECTS>
+			<RETURN ,GLOBAL-OBJECTS>)>
+		 <COND (<IN? .OBJ ,ROOMS>
+			<RETURN .OBJ>)
+		       (T
+			<SET OBJ <LOC .OBJ>>)>>>
+
+<ROUTINE OTHER-SIDE (DOBJ "AUX" (P 0) TEE) ;"finds room on others side of door"
+	 <REPEAT ()
+		 <COND (<L? <SET P <NEXTP ,HERE .P>> ,LOW-DIRECTION>
+			<RETURN <>>)
+		       (T
+			<SET TEE <GETPT ,HERE .P>>
+			<COND (<AND <EQUAL? <PTSIZE .TEE> ,DEXIT>
+				    <EQUAL? <GET ;B .TEE ,DEXITOBJ> .DOBJ>>
+			       <RETURN .P>)>)>>>
+
+<ROUTINE HELD? (OBJ "OPTIONAL" (CONT <>))
+	 <COND (<NOT .CONT>
+		<SET CONT ,WINNER>)>
+	 <COND (<NOT .OBJ>
+		<RFALSE>)
+	       (<IN? .OBJ .CONT>
+		<RTRUE>)
+	       (<IN? .OBJ ,ROOMS>
+		<RFALSE>)
+	       (<IN? .OBJ ,GLOBAL-OBJECTS>
+		<RFALSE>)
+	       (T
+		<HELD? <LOC .OBJ> .CONT>)>>
+
+<ROUTINE SEE-INSIDE? (OBJ)
+	 <AND <NOT <FSET? .OBJ ,INVISIBLE>>
+	      <OR <FSET? .OBJ ,TRANSBIT>
+	          <FSET? .OBJ ,OPENBIT>>>>
+
+;<ROUTINE SEE-INSIDE? (OBJ)
+  	<COND (<T? .OBJ>
+	       <COND (<AND <NOT <FSET? .OBJ ,INVISIBLE>>
+	                   <OR  <FSET? .OBJ ,TRANSBIT>
+	                        <FSET? .OBJ ,OPENBIT>>>
+		      <RTRUE>)>)>> ;"GARY"
+
+<ROUTINE GLOBAL-IN? (OBJ1 OBJ2 "AUX" TEE)
+	 <COND (<SET TEE <GETPT .OBJ2 ,P?GLOBAL>>
+		<INTBL? .OBJ1 .TEE <- <PTSIZE .TEE> 1>>)>>
+
+<ROUTINE FIND-IN (WHERE WHAT "AUX" W)
+	 <SET W <FIRST? .WHERE>>
+	 <COND (<NOT .W>
+		<RFALSE>)>
+	 <REPEAT ()
+		 <COND (<FSET? .W .WHAT>
+			<RETURN .W>)
+		       (<NOT <SET W <NEXT? .W>>>
+			<RETURN <>>)>>>
+
+<ROUTINE LOC-CLOSED ()
+	 <COND (<AND <FSET? <LOC ,PRSO> ,CONTBIT>
+		     <NOT <FSET? <LOC ,PRSO> ,OPENBIT>>
+		     <FSET? ,PRSO ,TAKEBIT>>
+		<TELL "But">
+		<ARTICLE <LOC ,PRSO> T>
+		<TELL " is closed!" CR>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE DO-WALK (DIR)
+	 <SETG P-WALK-DIR .DIR>
+	 <PERFORM ,V?WALK .DIR>>
+
+<ROUTINE FUCKING-CLEAR ()
+	 <SETG P-CONT <>>
+	 <SETG QUOTE-FLAG <>>
+	 <RFATAL>>
+
+<ROUTINE ROB (WHO "OPTIONAL" (WHERE <>) "AUX" N X)
+	 <SET X <FIRST? .WHO>>
+	 <REPEAT ()
+		 <COND (<NOT .X>
+			<RETURN>)>
+		 <SET N <NEXT? .X>>
+		 <MOVE .X .WHERE>
+		 <SET X .N>>>
+
+<ROUTINE HOLDING-ONE-BUT-NOT-BOTH? (ONE TWO)
+	 <COND (<AND <HELD? .ONE>
+		     <HELD? .TWO>>
+		<RFALSE>)
+	       (<HELD? .ONE>
+		<RTRUE>)
+	       (<HELD? .TWO>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROUTINE HACK-HACK (STR)
+	 <TELL .STR>
+	 <ARTICLE ,PRSO T>
+	 <TELL <PICK-ONE ,HO-HUM> CR>>
+
+<ROUTINE ARTICLE (OBJ "OPTIONAL" (THE <>))
+	 <COND (<NOT .OBJ>
+		<SET OBJ ,NOT-HERE-OBJECT>)>
+	 <COND (<NOT <FSET? .OBJ ,NARTICLEBIT>>
+		<COND (.THE
+		       <TELL " the">)
+		      (<FSET? .OBJ ,VOWELBIT>
+		       <TELL " an">)
+		      (T
+		       <TELL " a">)>)>
+	 <TELL " " D .OBJ>>
+
+<CONSTANT HO-HUM
+	<PLTABLE
+	 " doesn't do anything."
+	 " accomplishes nothing."
+	 " has no desirable effect.">>		 
+
+<CONSTANT YUKS
+	<PLTABLE
+	 "What a concept."
+         "Nice try."
+	 "You can't be serious."
+	 "Not bloody likely.">>
+
+<CONSTANT IMPOSSIBLES
+	<PLTABLE
+	 "You have lost your mind."
+	 "You are clearly insane."
+	 "You appear to have gone barking mad."
+	 "I'm not convinced you're allowed to be playing with this computer."
+	 "Run out on the street and say that. See what happens."
+	 "No, no, a thousand times no. Go boil an egg.">>
+
+<CONSTANT WASTES
+	<PLTABLE
+	  "Complete waste of time."
+	  "Useless. Utterly useless."
+	  "A totally unhelpful idea.">>
\ No newline at end of file
diff --git a/vogon.zabstr b/vogon.zabstr
new file mode 100644
index 0000000..468ca1b
--- /dev/null
+++ b/vogon.zabstr
@@ -0,0 +1,117 @@
+
+<OBJECT MINERAL-WATER (LOC SATCHEL) (DESC "Santraginean Mineral Water") (LDESC
+"There is a bottle of mineral water here.") (SYNONYM BOTTLE WATER) (ADJECTIVE
+SANTRAGIN MINERAL) (FLAGS NARTICLEBIT DRINKBIT TAKEBIT) (GENERIC MINERAL-WATER)
+(ACTION MINERAL-WATER-F)> 
+<DEFINE-ROUTINE MINERAL-WATER-F> 
+<ROOM HOLD (LOC ROOMS) (SYNONYM PROTEIN) (DESC "Vogon Hold") (WEST SORRY
+"The door to the corridor is locked (from the outside).") (EAST TO AIRLOCK IF
+VOGON-INNER-DOOR IS OPEN) (FLAGS RLANDBIT ONBIT) (GLOBAL VOGON-INNER-DOOR
+AIRLOCK-OBJECT FLEET HOLD-FURNISHINGS WEAPON) (ACTION HOLD-F)> 
+<OBJECT WEAPON (LOC LOCAL-GLOBALS) (SYNONYM WEAPON WEAPONS) (DESC "weapon") (
+ACTION WEAPON-PSEUDO)> 
+<DEFINE-ROUTINE HOLD-F> 
+<OBJECT HOLD-FURNISHINGS (LOC LOCAL-GLOBALS) (DESC "it") (SYNONYM MATTRESS CUPS
+CUP UNDERWEAR) (ADJECTIVE GRUBBY UNWASHED UNIDENTIF SMELLY ALIEN) (FLAGS
+NDESCBIT NARTICLEBIT) (ACTION UNIMPORTANT-THING-F)> 
+<DEFINE-ROUTINE I-GROGGY> 
+<GLOBAL GROGGY-COUNTER 0> 
+<GLOBAL GOWN-HUNG <>> 
+<GLOBAL PANEL-BLOCKER <>> 
+<GLOBAL ITEM-ON-SATCHEL <>> 
+<GLOBAL FISH-COUNTER 5> 
+<OBJECT DISPENSER (LOC HOLD) (DESC "babel fish dispenser") (LDESC
+"Along one wall is a tall dispensing machine.") (SYNONYM DISPENSER MACHINE SLOT
+) (ADJECTIVE DISPENSIN BABEL FISH TALL VENDING) (ACTION DISPENSER-F)> 
+<DEFINE-ROUTINE DISPENSER-F> 
+<OBJECT DISPENSER-BUTTON (LOC HOLD) (DESC "dispenser button") (SYNONYM BUTTON)
+(ADJECTIVE DISPENSER SINGLE BABEL FISH) (FLAGS NDESCBIT) (ACTION
+DISPENSER-BUTTON-F)> 
+<DEFINE-ROUTINE DISPENSER-BUTTON-F> 
+<OBJECT FISH-HOLE (LOC HOLD) (DESC "small hole") (SYNONYM HOLE) (ADJECTIVE
+SMALL) (FLAGS NDESCBIT) (ACTION FISH-HOLE-F)> 
+<DEFINE-ROUTINE FISH-HOLE-F> 
+<OBJECT HOOK (LOC HOLD) (DESC "metal hook") (SYNONYM HOOK) (ADJECTIVE METAL) (
+FLAGS NDESCBIT) (ACTION HOOK-F)> 
+<DEFINE-ROUTINE HOOK-F> 
+<OBJECT DRAIN (LOC HOLD) (DESC "drain") (SYNONYM DRAIN GRATING GRATE) (FLAGS
+NDESCBIT) (ACTION DRAIN-F)> 
+<DEFINE-ROUTINE DRAIN-F> 
+<OBJECT ROBOT-PANEL (LOC HOLD) (DESC "tiny robot panel") (SYNONYM PANEL) (
+ADJECTIVE ROBOT TINY) (FLAGS NDESCBIT) (ACTION ROBOT-PANEL-F)> 
+<DEFINE-ROUTINE ROBOT-PANEL-F> 
+<OBJECT BABEL-FISH (LOC LOCAL-GLOBALS) (DESC "babel fish") (SYNONYM FISH) (
+ADJECTIVE BABEL) (FLAGS TAKEBIT) (ACTION BABEL-FISH-F)> 
+<DEFINE-ROUTINE BABEL-FISH-F> 
+<OBJECT GLASS-CASE (LOC HOLD) (DESC "glass case") (LDESC
+"In the corner is a glass case with a switch and a keyboard.") (SYNONYM CASE
+LID GLASS) (ADJECTIVE GLASS) (SIZE 40) (FLAGS CONTBIT TRANSBIT SEARCHBIT) (
+ACTION GLASS-CASE-F)> 
+<GLOBAL GLASS-CASE-SCORE <>> 
+<DEFINE-ROUTINE GLASS-CASE-F> 
+<DEFINE-ROUTINE GLASS-CASE-OPENS> 
+<OBJECT KEYBOARD (LOC HOLD) (DESC "keyboard") (SYNONYM KEYBOARD) (FLAGS
+NDESCBIT TRYTAKEBIT)> 
+<OBJECT CASE-SWITCH (LOC HOLD) (DESC "switch") (SYNONYM SWITCH) (FLAGS NDESCBIT
+SWITCHBIT) (ACTION CASE-SWITCH-F)> 
+<DEFINE-ROUTINE CASE-SWITCH-F> 
+<DEFINE-ROUTINE PRODUCE-GIBBERISH> 
+<DEFINE-ROUTINE I-ANNOUNCEMENT> 
+<GLOBAL GIBBERISH <PLTABLE "toy" "r g" "irb" "kwa" "o s" "fim" "p w" "osh"
+"flu" "a r" "vup" "d t" "imb" "tha" "i l" "cav" "s g" "ulp" "cho" "u n" "zit"
+"z z" "eft" "qui" "e h" "kon" "l m" "ork" "gry" "o t" "huv" "x j" "erl" "tru"
+"a b" "fud" "w c" "oll" "wro" "i s">> 
+<DEFINE-ROUTINE I-GUARDS> 
+<ROOM CAPTAINS-QUARTERS (LOC ROOMS) (DESC "Captain's Quarters") (FLAGS RLANDBIT
+ONBIT) (GLOBAL FLEET WEAPON) (ACTION CAPTAINS-QUARTERS-F)> 
+<OBJECT STRAPS (LOC CAPTAINS-QUARTERS) (SYNONYM STRAPS STRAP) (DESC "strap") (
+FLAGS NDESCBIT) (ACTION UNIMPORTANT-THING-F)> 
+<DEFINE-ROUTINE CAPTAINS-QUARTERS-F> 
+<OBJECT POETRY-APPRECIATION-CHAIR (LOC CAPTAINS-QUARTERS) (DESC
+"poetry appreciation chair") (SYNONYM CHAIR CHAIRS SEAT) (ADJECTIVE POETRY
+APPRECIAT LARGE MENACING) (FLAGS VEHBIT OPENBIT SEARCHBIT SURFACEBIT CONTBIT) (
+ACTION POETRY-APPRECIATION-CHAIR-F)> 
+<DEFINE-ROUTINE POETRY-APPRECIATION-CHAIR-F> 
+<OBJECT VOGON-CAPTAIN (LOC CAPTAINS-QUARTERS) (DESC "Vogon Captain") (LDESC
+"The Captain is indescribably hideous, indescribably blubbery,
+and indescribably mid-to-dark green. He is holding samples of his
+favourite poetry.") (SYNONYM CAPTAIN VOGONS) (ADJECTIVE VOGON) (FLAGS ACTORBIT)
+(ACTION VOGON-CAPTAIN-F)> 
+<DEFINE-ROUTINE VOGON-CAPTAIN-F> 
+<GLOBAL CAPTAIN-COUNTER 0> 
+<DEFINE-ROUTINE I-CAPTAIN> 
+<GLOBAL LINE-A "\"Fripping lyshus wimbgunts, awhilst moongrovenly kormzibs.\"">
+
+<GLOBAL LINE-B "\"Gashee morphousite, thou expungiest quoopisk!\""> 
+<GLOBAL LINE-C "\"Bleem miserable venchit! Bleem forever mestinglish asunder frapt.\""
+> 
+<GLOBAL LINE-NUMBER 0> 
+<GLOBAL WORD-NUMBER 0> 
+<DEFINE-ROUTINE GUARDS-TO-AIRLOCK> 
+<OBJECT POETRY (LOC CAPTAINS-QUARTERS) (DESC "Vogon poetry") (SYNONYM POETRY
+POEM SAMPLE VERSE) (ADJECTIVE VOGON FIRST SECOND) (FLAGS NDESCBIT NARTICLEBIT
+DARKBIT) (ACTION POETRY-F)> 
+<GLOBAL POEM-ENJOYED <>> 
+<GLOBAL AIRLOCK-COUNTER 0> 
+<DEFINE-ROUTINE POETRY-F> 
+<OBJECT VOGON-CORRIDOR-DOOR (LOC HOLD) (DESC "corridor door") (SYNONYM DOOR) (
+ADJECTIVE CORRIDOR) (FLAGS DOORBIT NDESCBIT) (ACTION VOGON-CORRIDOR-DOOR-F)> 
+<DEFINE-ROUTINE VOGON-CORRIDOR-DOOR-F> 
+<OBJECT VOGON-INNER-DOOR (LOC LOCAL-GLOBALS) (DESC "inner door") (SYNONYM DOOR)
+(ADJECTIVE INNER AIRLOCK MASSIVE) (FLAGS VOWELBIT NDESCBIT DOORBIT) (ACTION
+VOGON-AIRLOCK-DOOR-F)> 
+<OBJECT VOGON-OUTER-DOOR (LOC LOCAL-GLOBALS) (DESC "outer door") (SYNONYM DOOR)
+(ADJECTIVE OUTER AIRLOCK MASSIVE) (FLAGS VOWELBIT NDESCBIT DOORBIT) (ACTION
+VOGON-AIRLOCK-DOOR-F)> 
+<DEFINE-ROUTINE VOGON-AIRLOCK-DOOR-F> 
+<OBJECT AIRLOCK-OBJECT (LOC LOCAL-GLOBALS) (DESC "airlock") (SYNONYM AIRLOCK) (
+FLAGS VOWELBIT) (ACTION AIRLOCK-OBJECT-F)> 
+<DEFINE-ROUTINE AIRLOCK-OBJECT-F> 
+<OBJECT EQUATIONS (LOC LOCAL-GLOBALS) (DESC "it") (SYNONYM EQUATION EQUATIONS
+NUMBER PENCIL) (FLAGS NDESCBIT NARTICLEBIT) (ACTION UNIMPORTANT-THING-F)> 
+<ROOM AIRLOCK (LOC ROOMS) (SYNONYM BETELGEUS) (DESC "Airlock") (LDESC
+"This airlock has massive doors to port and starboard.") (WEST TO HOLD IF
+VOGON-INNER-DOOR IS OPEN) (EAST TO HOLD IF VOGON-OUTER-DOOR IS OPEN) (FLAGS
+RLANDBIT ONBIT) (GLOBAL VOGON-INNER-DOOR VOGON-OUTER-DOOR AIRLOCK-OBJECT FLEET
+EQUATIONS) (ACTION AIRLOCK-F)> 
+<DEFINE-ROUTINE AIRLOCK-F> 
\ No newline at end of file
diff --git a/vogon.zap b/vogon.zap
new file mode 100644
index 0000000..5ed52e3
--- /dev/null
+++ b/vogon.zap
@@ -0,0 +1,713 @@
+
+
+	.FUNCT	MINERAL-WATER-F
+	EQUAL?	PRSA,V?DRINK-FROM,V?DRINK \?CCL3
+	PRINTR	"Bad idea. Even Santraginus Five seawater is illegal on most planets. (You can imagine what kind of beach communities they have.)"
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL7
+	ICALL	PERFORM,V?EXAMINE,PRSO
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?CLOSE,V?OPEN \?CCL9
+	PRINTR	"This is one of those clever new always-open always-closed bottles."
+?CCL9:	EQUAL?	PRSA,V?THROW,V?POUR \FALSE
+	CALL1	LIQUID-SPILL
+	RSTACK	
+
+
+	.FUNCT	HOLD-F,RARG
+	EQUAL?	RARG,M-END \?CCL3
+	FSET?	HOLD,NDESCBIT /?CCL3
+	FSET	HOLD,NDESCBIT
+	FSET	PEANUTS,TAKEBIT
+	FCLEAR	PEANUTS,NDESCBIT
+	FCLEAR	PEANUTS,TRYTAKEBIT
+	FCLEAR	TOWEL,TRYTAKEBIT
+	MOVE	PEANUTS,PROTAGONIST
+	MOVE	FORD,HERE
+	MOVE	MINERAL-WATER,FORD
+	SET	'GROGGY,TRUE-VALUE
+	CALL	QUEUE,I-GROGGY,3
+	PUT	STACK,0,1
+	CALL	QUEUE,I-FORD,6
+	PUT	STACK,0,1
+	CALL	QUEUE,I-ANNOUNCEMENT,18
+	PUT	STACK,0,1
+	CALL	QUEUE,I-GUARDS,36
+	PUT	STACK,0,1
+	RANDOM	6 >LINE-NUMBER
+	RANDOM	3 >WORD-NUMBER
+	ADD	SCORE,8 >SCORE
+	SET	'P-IT-OBJECT,PEANUTS
+	CRLF	
+	PRINTI	"Ford removes the bottle of "
+	PRINTD	MINERAL-WATER
+	PRINTR	" which he's been waving under your nose. He tells you that you are aboard a Vogon spaceship, and gives you some peanuts."
+?CCL3:	EQUAL?	RARG,M-END \?CCL9
+	FSET?	HOLD,REVISITBIT \?CCL9
+	SET	'DREAMING,TRUE-VALUE
+	CRLF	
+	ICALL2	JIGS-UP,STR?91
+	RTRUE	
+?CCL9:	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is a squalid room filled with grubby mattresses, unwashed cups, and unidentifiable bits of smelly alien underwear. A door lies to port, and an airlock lies to starboard."
+	ZERO?	GOWN-HUNG /?CND16
+	PRINTI	" Your gown is hanging from a hook"
+	FSET?	TOWEL,SURFACEBIT /?CND16
+	PRINTC	46
+?CND16:	FSET?	TOWEL,SURFACEBIT \?CND24
+	ZERO?	GOWN-HUNG /?PRG31
+	PRINTI	" and a "
+	JUMP	?PRG33
+?PRG31:	PRINTI	" A "
+?PRG33:	PRINTI	"towel is draped over a drain on the floor."
+?CND24:	ZERO?	PANEL-BLOCKER /?CND35
+	EQUAL?	PANEL-BLOCKER,SATCHEL /?CND35
+	PRINTI	" Resting in front of a "
+	PRINTD	ROBOT-PANEL
+	PRINTI	" at the base of one wall is"
+	ICALL2	ARTICLE,PANEL-BLOCKER
+	PRINTR	"."
+?CND35:	CRLF	
+	RTRUE	
+
+
+	.FUNCT	I-GROGGY
+	CALL	QUEUE,I-GROGGY,-1
+	PUT	STACK,0,1
+	INC	'GROGGY-COUNTER
+	ZERO?	GROGGY \?CND1
+	CALL2	INT,I-GROGGY
+	PUT	STACK,0,0
+	SET	'GROGGY-COUNTER,0
+	RFALSE	
+?CND1:	CRLF	
+	EQUAL?	GROGGY-COUNTER,1,2 \?CCL5
+	PRINTI	"You begin to feel "
+	EQUAL?	GROGGY-COUNTER,2 \?PRG12
+	PRINTI	"in"
+?PRG12:	PRINTR	"distinctly groggy."
+?CCL5:	EQUAL?	GROGGY-COUNTER,3 \?PRG18
+	PRINTR	"You begin to feel very indistinct."
+?PRG18:	PRINTI	"Your serious allergic reaction to protein loss from"
+	PRINT	BEAM
+	PRINTI	"s becomes a cause celebre amongst various holistic pressure groups in the Galaxy and leads to a total ban on dematerialisation. Within fifty years, space travel is replaced by a keen interest in old furniture restoration and market gardening. In this new, quieter Galaxy, the art of telepathy flourishes as never before, creating a new universal harmony which brings all life together, converts all matter into thought and brings about the rebirth of the entire Universe on a higher and better plane of existence.
+
+However, none of this affects you, because you are dead."
+	CRLF	
+	CALL1	FINISH
+	RSTACK	
+
+
+	.FUNCT	DISPENSER-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The dispenser is tall, has a button at around eye-level, and says ""Babel Fish"" in large letters. Anything dispensed would probably come out the slot at around knee-level."
+	ICALL1	FINE-PRODUCT
+	CRLF	
+	RTRUE	
+?CCL3:	EQUAL?	PRSA,V?PUT-IN-FRONT \?CCL7
+	EQUAL?	PRSO,EARS,HEAD \?CCL7
+	SET	'LYING-DOWN,TRUE-VALUE
+	PRINTI	"You are now lying down with your ear near the "
+	PRINTD	DISPENSER
+	PRINTR	" slot."
+?CCL7:	EQUAL?	PRSA,V?LIE-DOWN \FALSE
+	ZERO?	IN-FRONT-FLAG /FALSE
+	ICALL	PERFORM,V?PUT-IN-FRONT,HEAD,DISPENSER
+	RTRUE	
+
+
+	.FUNCT	DISPENSER-BUTTON-F
+	EQUAL?	PRSA,V?PUSH \FALSE
+	ZERO?	LYING-DOWN /?CCL6
+	PRINTR	"You can't reach it from down here."
+?CCL6:	ZERO?	FISH-COUNTER \?CND4
+	PRINTR	"Click."
+?CND4:	DEC	'FISH-COUNTER
+	PRINTI	"A single "
+	PRINTD	BABEL-FISH
+	PRINTI	" shoots out of the slot. It sails across the room and "
+	ZERO?	GOWN-HUNG \?PRG19
+	PRINTI	"through a "
+	PRINTD	FISH-HOLE
+	PRINTI	" in the wall, just under a "
+	PRINTD	HOOK
+	PRINTR	"."
+?PRG19:	PRINTI	"hits the dressing gown. The fish slides down the "
+	ZERO?	SLEEVE-TIED /?PRG26
+	PRINTI	"inside (nice try, though)"
+	JUMP	?PRG28
+?PRG26:	PRINTI	"sleeve"
+?PRG28:	PRINTI	" of the gown and falls to the floor, "
+	FSET?	TOWEL,SURFACEBIT /?PRG35
+	PRINTR	"vanishing through the grating of a hitherto unnoticed drain."
+?PRG35:	PRINTI	"landing on the towel. A split second later, a tiny cleaning robot whizzes across the floor, grabs the fish, and continues its breakneck pace toward a "
+	PRINTD	ROBOT-PANEL
+	PRINTI	" at the base of the wall. "
+	ZERO?	PANEL-BLOCKER \?CCL39
+	PRINTR	"The robot zips through the panel, and is gone."
+?CCL39:	EQUAL?	PANEL-BLOCKER,SATCHEL /?PRG48
+	PRINTI	"The robot zips around"
+	ICALL2	ARTICLE,PANEL-BLOCKER
+	PRINTR	", through the panel, and is gone."
+?PRG48:	PRINTI	"The robot plows into the satchel, sending the "
+	PRINTD	BABEL-FISH
+	EQUAL?	ITEM-ON-SATCHEL,MAIL /?PRG56
+	ZERO?	ITEM-ON-SATCHEL /?PRG56
+	PRINTI	" and"
+	ICALL	ARTICLE,ITEM-ON-SATCHEL,TRUE-VALUE
+?PRG56:	PRINTI	" flying through the air in a graceful arc"
+	EQUAL?	ITEM-ON-SATCHEL,MAIL /?CCL60
+	PRINTI	". "
+	PRINT	ROBOT-FLIES-IN
+	PRINTI	"catches the "
+	PRINTD	BABEL-FISH
+	PRINTC	32
+	ZERO?	ITEM-ON-SATCHEL /?PRG68
+	MOVE	ITEM-ON-SATCHEL,LOCAL-GLOBALS
+	PRINTI	"and also manages to catch"
+	ICALL	ARTICLE,ITEM-ON-SATCHEL,TRUE-VALUE
+	SET	'ITEM-ON-SATCHEL,FALSE-VALUE
+	JUMP	?PRG70
+?PRG68:	PRINTI	"(which is all the flying junk it can find)"
+?PRG70:	PRINTR	", and exits."
+?CCL60:	EQUAL?	ITEM-ON-SATCHEL,MAIL \FALSE
+	MOVE	MAIL,LOCAL-GLOBALS
+	ADD	SCORE,12 >SCORE
+	MOVE	BABEL-FISH,PROTAGONIST
+	CALL2	RUNNING?,I-ANNOUNCEMENT
+	ZERO?	STACK /?CCL76
+	CALL	QUEUE,I-GUARDS,4
+	PUT	STACK,0,1
+	JUMP	?CND74
+?CCL76:	FSET?	CAPTAINS-QUARTERS,TOUCHBIT /?CND74
+	CALL	QUEUE,I-ANNOUNCEMENT,4
+	PUT	STACK,0,1
+	CALL	QUEUE,I-GUARDS,7
+	PUT	STACK,0,1
+?CND74:	SET	'FISH-COUNTER,0
+	SET	'ITEM-ON-SATCHEL,FALSE-VALUE
+	PRINTI	" surrounded by a cloud of junk mail. Another robot flies in and begins madly collecting the cluttered plume of mail. The "
+	PRINTD	BABEL-FISH
+	PRINTR	" continues its flight, landing with a loud ""squish"" in your ear."
+
+
+	.FUNCT	FISH-HOLE-F
+	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL3
+	PRINTI	"You see only "
+	PRINTD	DARK-OBJECT
+	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?PUT \?CCL7
+	EQUAL?	PRSI,FISH-HOLE \?CCL7
+	FSET?	PRSO,INTEGRALBIT \?CCL12
+	CALL1	PART-OF
+	RSTACK	
+?CCL12:	GETP	PRSO,P?SIZE
+	LESS?	STACK,5 \?PRG17
+	MOVE	PRSO,LOCAL-GLOBALS
+	PRINTR	"It falls through the hole and vanishes."
+?PRG17:	PRINTR	"It doesn't fit through the hole."
+?CCL7:	EQUAL?	PRSA,V?PUT-IN-FRONT,V?PUT-ON \?CCL20
+	EQUAL?	PRSI,FISH-HOLE \?CCL20
+	EQUAL?	PRSO,ME,EARS,HANDS /?CCL24
+	EQUAL?	PRSO,HEAD \?CND23
+?CCL24:	ICALL	PERFORM,V?STAND-BEFORE,FISH-HOLE
+	RTRUE	
+?CND23:	ICALL	PERFORM,V?HANG,PRSO,HOOK
+	RTRUE	
+?CCL20:	EQUAL?	PRSA,V?SPUT-ON,V?BLOCK-WITH \?CCL28
+	EQUAL?	PRSO,FISH-HOLE \?CCL28
+	ICALL	PERFORM,V?HANG,PRSI,HOOK
+	RTRUE	
+?CCL28:	EQUAL?	PRSA,V?BLOCK \?CCL32
+	ICALL	PERFORM,V?STAND-BEFORE,FISH-HOLE
+	RTRUE	
+?CCL32:	EQUAL?	PRSA,V?LIE-DOWN \FALSE
+	ZERO?	IN-FRONT-FLAG /FALSE
+	ICALL	PERFORM,V?STAND-BEFORE,FISH-HOLE
+	RTRUE	
+
+
+	.FUNCT	HOOK-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	ZERO?	GOWN-HUNG /?PRG9
+	PRINTR	"Your gown is hanging from it."
+?PRG9:	PRINTR	"The hook is attached to the wall, inches above a tiny hole."
+?CCL3:	EQUAL?	PRSA,V?PUT-ON,V?HANG \FALSE
+	ZERO?	LYING-DOWN /?CCL15
+	PRINT	WHILE-LYING
+	CRLF	
+	RTRUE	
+?CCL15:	EQUAL?	PRSO,GOWN \?CCL19
+	FSET?	GOWN,WORNBIT \?CND20
+	ICALL1	IDROP
+	RTRUE	
+?CND20:	SET	'GOWN-HUNG,TRUE-VALUE
+	MOVE	GOWN,HERE
+	FSET	GOWN,NDESCBIT
+	FSET	GOWN,TRYTAKEBIT
+	FCLEAR	GOWN,OPENBIT
+	PRINTR	"The gown is now hanging from the hook, covering a tiny hole."
+?CCL19:	EQUAL?	PRSO,HEAD,EARS,HANDS \?CCL25
+	ICALL	PERFORM,V?STAND-BEFORE,HOOK
+	RTRUE	
+?CCL25:	FSET?	PRSO,TAKEBIT \?CCL27
+	FSET?	PRSO,TRYTAKEBIT \?CCL30
+	PRINT	NOT-HOLDING
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"."
+?CCL30:	MOVE	PRSO,HERE
+	PRINTR	"It slips off the hook."
+?CCL27:	CALL1	V-COUNT
+	RSTACK	
+
+
+	.FUNCT	DRAIN-F
+	EQUAL?	PRSA,V?PUT-ON \?CCL3
+	FSET?	TOWEL,SURFACEBIT \?CCL6
+	PRINTR	"The drain is already covered by the towel."
+?CCL6:	ZERO?	LYING-DOWN /?CCL10
+	PRINT	WHILE-LYING
+	CRLF	
+	RTRUE	
+?CCL10:	EQUAL?	PRSO,TOWEL \?PRG15
+	FSET	TOWEL,CONTBIT
+	FSET	TOWEL,SURFACEBIT
+	FSET	TOWEL,OPENBIT
+	FSET	TOWEL,NDESCBIT
+	FSET	TOWEL,TRYTAKEBIT
+	MOVE	TOWEL,HERE
+	ICALL	PERFORM,V?EXAMINE,DRAIN
+	RTRUE	
+?PRG15:	PRINTI	"The drain is too large to be covered by"
+	ICALL	ARTICLE,PRSO,TRUE-VALUE
+	PRINTR	"."
+?CCL3:	EQUAL?	PRSA,V?LOOK-INSIDE \?CCL20
+	ICALL	PERFORM,V?LOOK-INSIDE,FISH-HOLE
+	RTRUE	
+?CCL20:	EQUAL?	PRSA,V?EXAMINE \FALSE
+	FSET?	TOWEL,SURFACEBIT \FALSE
+	PRINTR	"The towel completely covers the drain."
+
+
+	.FUNCT	ROBOT-PANEL-F
+	EQUAL?	PRSA,V?CLOSE,V?EXAMINE \?CCL3
+	PRINTR	"The panel, only a few inches high, is currently closed."
+?CCL3:	EQUAL?	PRSA,V?OPEN \?CCL7
+	PRINT	BUDGE
+	CRLF	
+	RTRUE	
+?CCL7:	EQUAL?	PRSA,V?BLOCK \?CCL11
+	SET	'AWAITING-REPLY,6
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTI	"With "
+	PRINTD	HANDS
+	PRINTR	"s? By force of will?"
+?CCL11:	EQUAL?	PRSA,V?LIE-DOWN \?CCL15
+	ZERO?	IN-FRONT-FLAG /?CCL15
+	ICALL	PERFORM,V?STAND-BEFORE,ROBOT-PANEL
+	RTRUE	
+?CCL15:	EQUAL?	PRSA,V?PUT-ON,V?PUT-IN-FRONT,V?PUT-IN-FRONT \?CCL19
+	EQUAL?	PRSI,ROBOT-PANEL \?CCL19
+	ICALL	PERFORM,V?BLOCK-WITH,ROBOT-PANEL,PRSO
+	RTRUE	
+?CCL19:	EQUAL?	PRSA,V?SPUT-ON,V?BLOCK-WITH \FALSE
+	EQUAL?	PRSO,ROBOT-PANEL \FALSE
+	EQUAL?	PRSI,EARS,HANDS,HEAD /?CTR27
+	EQUAL?	PRSI,EYES \?CCL28
+?CTR27:	CALL1	V-COUNT
+	RSTACK	
+?CCL28:	CALL2	HELD?,PRSI
+	ZERO?	STACK \?CCL32
+	PRINT	NOT-HOLDING
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTR	"."
+?CCL32:	ZERO?	PANEL-BLOCKER /?CCL38
+	PRINTI	"But"
+	ICALL	ARTICLE,PANEL-BLOCKER,TRUE-VALUE
+	PRINTI	" is already in front of the "
+	PRINTD	ROBOT-PANEL
+	PRINTR	"."
+?CCL38:	ZERO?	LYING-DOWN /?CCL44
+	PRINT	WHILE-LYING
+	CRLF	
+	RTRUE	
+?CCL44:	MOVE	PRSI,HERE
+	SET	'PANEL-BLOCKER,PRSI
+	FSET	PRSI,TRYTAKEBIT
+	PRINTI	"Okay,"
+	EQUAL?	PRSI,SATCHEL \?CCL51
+	PRINTI	" the satchel is lying on its side"
+	JUMP	?PRG56
+?CCL51:	FSET	PRSI,NDESCBIT
+	ICALL	ARTICLE,PRSI,TRUE-VALUE
+	PRINTI	" is sitting"
+?PRG56:	PRINTI	" in front of the "
+	PRINTD	ROBOT-PANEL
+	PRINTR	"."
+
+
+	.FUNCT	BABEL-FISH-F
+	EQUAL?	PRSA,V?REMOVE,V?TAKE \FALSE
+	PRINTI	"That would be foolish. Having a "
+	PRINTD	BABEL-FISH
+	PRINTR	" in your ear is terribly useful."
+
+
+	.FUNCT	GLASS-CASE-F
+	EQUAL?	PRSA,V?EXAMINE \?CCL3
+	PRINTI	"The "
+	PRINTD	GLASS-CASE
+	PRINTI	" is "
+	FSET?	GLASS-CASE,OPENBIT \?PRG11
+	PRINTI	"open"
+	JUMP	?PRG13
+?PRG11:	PRINTI	"closed"
+?PRG13:	PRINTI	". Attached to it are a "
+	PRINTD	KEYBOARD
+	PRINTR	" and a switch."
+?CCL3:	EQUAL?	PRSA,V?OPEN \?CCL16
+	FSET?	GLASS-CASE,OPENBIT /?CCL16
+	PRINT	BUDGE
+	CRLF	
+	RTRUE	
+?CCL16:	EQUAL?	PRSA,V?MUNG \FALSE
+	PRINTI	"The hold of the Vogon ship is virtually undamaged by the explosion of the "
+	PRINTD	GLASS-CASE
+	ICALL2	JIGS-UP,STR?94
+	RTRUE	
+
+
+	.FUNCT	GLASS-CASE-OPENS
+	FSET?	GLASS-CASE,OPENBIT \?CCL3
+	PRINTI	"Nothing happens."
+	CRLF	
+	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	FSET	GLASS-CASE,OPENBIT
+	PRINTI	"The "
+	PRINTD	GLASS-CASE
+	PRINTI	" opens."
+	CRLF	
+	FCLEAR	PLOTTER,TRYTAKEBIT
+	ZERO?	GLASS-CASE-SCORE \?CND8
+	SET	'GLASS-CASE-SCORE,TRUE-VALUE
+	ADD	SCORE,25 >SCORE
+?CND8:	CALL1	FUCKING-CLEAR
+	RSTACK	
+
+
+	.FUNCT	CASE-SWITCH-F
+	EQUAL?	PRSA,V?PUSH,V?TURN,V?LAMP-ON /?CCL3
+	EQUAL?	PRSA,V?THROW,V?MOVE \FALSE
+?CCL3:	CALL2	HELD?,BABEL-FISH
+	ZERO?	STACK /?PRG25
+	PRINTI	"A recording plays: ""To open the case, type in the "
+	EQUAL?	WORD-NUMBER,1 \?CCL13
+	PRINTI	"first"
+	JUMP	?PRG23
+?CCL13:	EQUAL?	WORD-NUMBER,2 \?CCL17
+	PRINTI	"second"
+	JUMP	?PRG23
+?CCL17:	EQUAL?	WORD-NUMBER,3 \?PRG23
+	PRINTI	"third"
+?PRG23:	PRINTR	" word from the second verse of the Captain's current favourite poem. WARNING: An incorrect input will cause the case to explode."""
+?PRG25:	PRINTI	"A recording plays: ""A"
+	ICALL2	PRODUCE-GIBBERISH,5
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	PRODUCE-GIBBERISH,N,GIBBERISH-COUNTER,SUPER-COUNTER
+	SET	'SUPER-COUNTER,0
+?PRG1:	INC	'SUPER-COUNTER
+	SET	'GIBBERISH-COUNTER,0
+?PRG3:	INC	'GIBBERISH-COUNTER
+	CALL2	PICK-ONE,GIBBERISH
+	PRINT	STACK
+	EQUAL?	GIBBERISH-COUNTER,10 \?PRG3
+	EQUAL?	SUPER-COUNTER,N /?REP4
+	PRINTI	" o"
+?REP4:	EQUAL?	SUPER-COUNTER,N \?PRG1
+	PRINTI	"."""
+	RTRUE	
+
+
+	.FUNCT	I-ANNOUNCEMENT
+	CALL	QUEUE,I-ANNOUNCEMENT,-1
+	PUT	STACK,0,1
+	CRLF	
+	PRINTI	"An announcement is coming over the ship's intercom. """
+	CALL	HELD?,BABEL-FISH,PROTAGONIST
+	ZERO?	STACK /?PRG8
+	PRINTR	"This is the Captain. My instruments show that we've picked up a couple of hitchhikers. I hate freeloaders, and when my guards find you I'll have you thrown into space. On second thought, maybe I'll read you some of my poetry first. Repeating..."""
+?PRG8:	PRINTC	69
+	ICALL2	PRODUCE-GIBBERISH,10
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	I-GUARDS
+	EQUAL?	HERE,HOLD \?CCL3
+	CALL2	INT,I-ANNOUNCEMENT
+	PUT	STACK,0,0
+	CRLF	
+	PRINTI	"Guards burst in and grab you and Ford, who comes slowly awake. They drag you down the corridor to a large cabin, where they strap you into large, menacing chairs..."
+	CRLF	
+	CRLF	
+	SET	'HERE,CAPTAINS-QUARTERS
+	MOVE	NAME,HERE
+	SET	'LYING-DOWN,FALSE-VALUE
+	CALL	QUEUE,I-CAPTAIN,2
+	PUT	STACK,0,1
+	SET	'FORD-SLEEPING,FALSE-VALUE
+	FSET	FORD,NDESCBIT
+	MOVE	PROTAGONIST,POETRY-APPRECIATION-CHAIR
+	SET	'OHERE,FALSE-VALUE
+	ICALL1	V-LOOK
+	MOVE	FORD,HERE
+	MOVE	GUARDS,HERE
+	RTRUE	
+?CCL3:	IN?	RIFLES,LOCAL-GLOBALS /FALSE
+	CRLF	
+	PRINT	GUARDS-REALIZE
+	PRINTI	"They"
+	ICALL1	GUARD-DEATH
+	RTRUE	
+
+
+	.FUNCT	CAPTAINS-QUARTERS-F,RARG
+	EQUAL?	RARG,M-LOOK \FALSE
+	PRINTI	"This is the cabin of the "
+	PRINTD	VOGON-CAPTAIN
+	PRINTI	". You and Ford are strapped into "
+	PRINTD	POETRY-APPRECIATION-CHAIR
+	PRINTR	"s."
+
+
+	.FUNCT	POETRY-APPRECIATION-CHAIR-F,RARG
+	ZERO?	RARG \FALSE
+	EQUAL?	PRSA,V?LEAP,V?WALK,V?DISEMBARK /?CTR4
+	EQUAL?	PRSA,V?WALK-AROUND \?CCL5
+?CTR4:	SET	'AWAITING-REPLY,7
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTR	"You're strapped in, remember?"
+?CCL5:	EQUAL?	PRSA,V?CLOSE,V?OPEN \FALSE
+	EQUAL?	PRSO,POETRY-APPRECIATION-CHAIR \FALSE
+	CALL1	TELL-ME-HOW
+	RSTACK	
+
+
+	.FUNCT	VOGON-CAPTAIN-F
+	EQUAL?	PRSA,V?THANK,V?HELLO,V?TELL /?PRG8
+	EQUAL?	PRSA,V?ASK-FOR,V?ASK-ABOUT \?CCL3
+	EQUAL?	VOGON-CAPTAIN,PRSO \?CCL3
+?PRG8:	PRINTI	"One of the guards lightly bashes your skull with the butt of his weapon"
+	CALL2	HELD?,BABEL-FISH
+	ZERO?	STACK /?PRG15
+	PRINTI	". ""This is a poetry appreciation session, prisoner. No talking!"""
+	CRLF	
+	JUMP	?CND10
+?PRG15:	PRINTI	" and says, ""A"
+	ICALL2	PRODUCE-GIBBERISH,2
+	CRLF	
+?CND10:	CALL1	FUCKING-CLEAR
+	RSTACK	
+?CCL3:	IN?	POETRY,HERE \FALSE
+	EQUAL?	PRSA,V?BLOCK \FALSE
+	ICALL	PERFORM,V?LISTEN,POETRY
+	RTRUE	
+
+
+	.FUNCT	I-CAPTAIN
+	CALL	QUEUE,I-CAPTAIN,-1
+	PUT	STACK,0,1
+	INC	'CAPTAIN-COUNTER
+	CRLF	
+	EQUAL?	CAPTAIN-COUNTER,1 \?CND1
+	PRINTI	"""If he's going to read us his poetry,"" mutters Ford, sweating profusely, ""just pray he softens us up with some cudgels first..."""
+	CRLF	
+	CRLF	
+?CND1:	CALL	HELD?,BABEL-FISH,PROTAGONIST
+	ZERO?	STACK \?CCL7
+	PRINTI	"The "
+	PRINTD	VOGON-CAPTAIN
+	PRINTI	" says, ""O"
+	ICALL2	PRODUCE-GIBBERISH,2
+	EQUAL?	CAPTAIN-COUNTER,6 \?CCL12
+	CALL1	GUARDS-TO-AIRLOCK
+	RSTACK	
+?CCL12:	CRLF	
+	RTRUE	
+?CCL7:	EQUAL?	CAPTAIN-COUNTER,1 \?CCL14
+	PRINTI	"""Hello, hitchhikers!"" begins the "
+	PRINTD	VOGON-CAPTAIN
+	PRINTR	". ""I've decided to read you a verse of my poetry!"""
+?CCL14:	EQUAL?	CAPTAIN-COUNTER,2 \?CCL18
+	PRINTR	"""Oh freddled gruntbuggly, thy nacturations are to me!"""
+?CCL18:	EQUAL?	CAPTAIN-COUNTER,3 \?CCL22
+	PRINTR	"""As plurdled gabbleblotchits on a lurgid bee."""
+?CCL22:	EQUAL?	CAPTAIN-COUNTER,4 \?CCL26
+	PRINTR	"""Groop I implore thee, my foonting turlingdromes."""
+?CCL26:	EQUAL?	CAPTAIN-COUNTER,5 \?CCL30
+	PRINTR	"""And hooptiously drangle me with crinkly bindlewurdles, or I will rend thee in the gobberwarts with my blurglecruncheon, see if I don't!"""
+?CCL30:	EQUAL?	CAPTAIN-COUNTER,6 \?CCL34
+	ZERO?	POEM-ENJOYED /?PRG40
+	PRINTR	"""You looked like you enjoyed my poem. I think...yes, I think I'll read the NEXT verse, also!"""
+?PRG40:	PRINTI	"""You didn't seem to enjoy my poem at all! Guards, toss them out the airlock!"""
+	CALL1	GUARDS-TO-AIRLOCK
+	RSTACK	
+?CCL34:	EQUAL?	CAPTAIN-COUNTER,7 \?CCL43
+	EQUAL?	LINE-NUMBER,1,2 \?CCL46
+	PRINT	LINE-A
+	CRLF	
+	RTRUE	
+?CCL46:	EQUAL?	LINE-NUMBER,3,4 \?PRG53
+	PRINT	LINE-B
+	CRLF	
+	RTRUE	
+?PRG53:	PRINT	LINE-C
+	CRLF	
+	RTRUE	
+?CCL43:	EQUAL?	CAPTAIN-COUNTER,8 \?CCL56
+	EQUAL?	LINE-NUMBER,3,5 \?CCL59
+	PRINT	LINE-A
+	CRLF	
+	RTRUE	
+?CCL59:	EQUAL?	LINE-NUMBER,1,6 \?PRG66
+	PRINT	LINE-B
+	CRLF	
+	RTRUE	
+?PRG66:	PRINT	LINE-C
+	CRLF	
+	RTRUE	
+?CCL56:	EQUAL?	CAPTAIN-COUNTER,9 \?CCL69
+	EQUAL?	LINE-NUMBER,4,6 \?CCL72
+	PRINT	LINE-A
+	CRLF	
+	RTRUE	
+?CCL72:	EQUAL?	LINE-NUMBER,2,5 \?PRG79
+	PRINT	LINE-B
+	CRLF	
+	RTRUE	
+?PRG79:	PRINT	LINE-C
+	CRLF	
+	RTRUE	
+?CCL69:	EQUAL?	CAPTAIN-COUNTER,10 \?CCL82
+	PRINTR	"""Gerond withoutitude form into formless bloit, why not then? Moose."""
+?CCL82:	EQUAL?	CAPTAIN-COUNTER,11 \FALSE
+	PRINTI	"""Since you have somehow managed to survive two verses of my poetry, I have no choice but to space you. Guards!"""
+	CALL1	GUARDS-TO-AIRLOCK
+	RSTACK	
+
+
+	.FUNCT	GUARDS-TO-AIRLOCK
+	CALL2	INT,I-CAPTAIN
+	PUT	STACK,0,0
+	PRINTI	" A guard grabs you and Ford, and drags you toward the hold. Ford whispers, ""Don't worry, I'll think of something!"""
+	CRLF	
+	CRLF	
+	FCLEAR	HOLD,TOUCHBIT
+	ICALL2	GOTO,HOLD
+	FCLEAR	FORD,NDESCBIT
+	MOVE	GUARDS,HERE
+	MOVE	FORD,HERE
+	CALL	QUEUE,I-FORD,1
+	PUT	STACK,0,1
+	RTRUE	
+
+
+	.FUNCT	POETRY-F
+	EQUAL?	PRSA,V?LISTEN,V?ENJOY \?CCL3
+	LESS?	CAPTAIN-COUNTER,2 \?CCL3
+	PRINTI	"The "
+	PRINTD	VOGON-CAPTAIN
+	PRINTR	" hasn't begun yet!"
+?CCL3:	EQUAL?	PRSA,V?ENJOY \?CCL9
+	CALL2	HELD?,BABEL-FISH
+	ZERO?	STACK \?CCL12
+	PRINTR	"You can't even understand it, let alone enjoy it!"
+?CCL12:	ZERO?	POEM-ENJOYED /?CCL16
+	SET	'AWAITING-REPLY,8
+	CALL	QUEUE,I-REPLY,2
+	PUT	STACK,0,1
+	PRINTR	"Hey, let's not overdo it, okay?"
+?CCL16:	SET	'POEM-ENJOYED,TRUE-VALUE
+	ADD	SCORE,15 >SCORE
+	PRINTI	"You realise that, although the "
+	PRINTD	POETRY
+	PRINTR	" is indeed astoundingly bad, worse things happen at sea, and in fact, at school. With an effort for which Hercules himself would have patted you on the back, you grit your teeth and enjoy the stuff."
+?CCL9:	EQUAL?	PRSA,V?LISTEN \?CCL22
+	PRINTR	"You have no choice. Why not relax and enjoy it?"
+?CCL22:	IN?	POETRY,HERE \?CCL26
+	EQUAL?	PRSA,V?BLOCK \?CCL26
+	ICALL	PERFORM,V?LISTEN,POETRY
+	RTRUE	
+?CCL26:	EQUAL?	PRSA,V?EXAMINE,V?READ \FALSE
+	PRINTR	"You can't see it from here."
+
+
+	.FUNCT	VOGON-CORRIDOR-DOOR-F
+	EQUAL?	PRSA,V?THROUGH,V?UNLOCK,V?OPEN \FALSE
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+
+
+	.FUNCT	VOGON-AIRLOCK-DOOR-F
+	EQUAL?	PRSA,V?THROUGH,V?OPEN \FALSE
+	PRINT	BUDGE
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	AIRLOCK-OBJECT-F
+	EQUAL?	PRSA,V?WALK-TO,V?THROUGH \?CCL3
+	EQUAL?	HERE,AIRLOCK \?CCL6
+	PRINT	LOOK-AROUND
+	CRLF	
+	RTRUE	
+?CCL6:	EQUAL?	HERE,HOLD \FALSE
+	CALL2	DO-WALK,P?WEST
+	RSTACK	
+?CCL3:	EQUAL?	PRSA,V?DISEMBARK,V?EXIT,V?LEAVE \FALSE
+	EQUAL?	HERE,AIRLOCK \?PRG16
+	CALL2	DO-WALK,P?EAST
+	RSTACK	
+?PRG16:	PRINT	LOOK-AROUND
+	CRLF	
+	RTRUE	
+
+
+	.FUNCT	AIRLOCK-F,RARG
+	EQUAL?	RARG,M-END \FALSE
+	INC	'AIRLOCK-COUNTER
+	CRLF	
+	EQUAL?	AIRLOCK-COUNTER,1 \?CCL6
+	PRINTI	"Ford points at the "
+	PRINTD	VOGON-OUTER-DOOR
+	PRINTR	". ""In about two minutes, it will open and we'll be ejected into the vacuum of space. But don't panic, I'll think of something."""
+?CCL6:	EQUAL?	AIRLOCK-COUNTER,2 \?CCL10
+	PRINTR	"Ford is mumbling to himself."
+?CCL10:	EQUAL?	AIRLOCK-COUNTER,3 \?CCL14
+	PRINTR	"Ford produces a pencil and begins scribbling equations on the wall."
+?CCL14:	EQUAL?	AIRLOCK-COUNTER,4 \FALSE
+	PRINTI	"Ford's eyes light up. ""Do you still have the Electronic Sub-Etha Auto Hitching Thu..."" At that moment, the airlock door opens, and you and Ford are blown out into space.
+
+"
+	CALL2	HELD?,GUIDE
+	ZERO?	STACK /?PRG25
+	PRINTI	"Your elbow must have struck some key on "
+	PRINTD	GUIDE
+	PRINTI	" because it begins droning out an entry, coincidentally enough the entry on SPACE. """
+	PRINT	SPACE-TEXT
+	PRINTI	""" (Footnote 9)"
+	CRLF	
+	CRLF	
+?PRG25:	PRINTI	"Precisely twenty-nine seconds later, you and Ford are scooped up by a passing ship. Gasping for air, you pass out..."
+	CRLF	
+	CRLF	
+	SET	'HEART-PROB,100
+	CALL2	GOTO,DARK
+	RSTACK	
+
+	.ENDI
diff --git a/vogon.zil b/vogon.zil
new file mode 100644
index 0000000..ceb2bcb
--- /dev/null
+++ b/vogon.zil
@@ -0,0 +1,900 @@
+"VOGON for
+		  THE HITCHHIKER'S GUIDE TO THE GALAXY
+	(c) Copyright 1984 Infocom, Inc.  All Rights Reserved."
+
+<OBJECT MINERAL-WATER
+	(LOC SATCHEL)
+	(DESC "Santraginean Mineral Water")
+	(LDESC "There is a bottle of mineral water here.")
+	(SYNONYM BOTTLE WATER)
+	(ADJECTIVE SANTRAGIN MINERAL)
+	(FLAGS NARTICLEBIT DRINKBIT TAKEBIT)
+	(GENERIC MINERAL-WATER)
+	(ACTION MINERAL-WATER-F)>
+
+<ROUTINE MINERAL-WATER-F ()
+	 <COND (<VERB? DRINK DRINK-FROM>
+		<TELL
+"Bad idea. Even Santraginus Five seawater is illegal on most planets. (You can
+imagine what kind of beach communities they have.)" CR>)
+	       (<VERB? LOOK-INSIDE>
+		<PERFORM ,V?EXAMINE ,PRSO>
+		<RTRUE>)
+	       (<VERB? OPEN CLOSE>
+		<TELL
+"This is one of those clever new always-open always-closed bottles." CR>)
+	       (<VERB? POUR THROW>
+		<LIQUID-SPILL>)>>
+
+<ROOM HOLD
+      (LOC ROOMS)
+      (SYNONYM PROTEIN)
+      (DESC "Vogon Hold")
+      (WEST SORRY "The door to the corridor is locked (from the outside).")
+      (EAST TO AIRLOCK IF VOGON-INNER-DOOR IS OPEN) ;"shouldn't happen"
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL VOGON-INNER-DOOR AIRLOCK-OBJECT FLEET HOLD-FURNISHINGS WEAPON)
+      (ACTION HOLD-F)>
+
+<OBJECT WEAPON
+      (LOC LOCAL-GLOBALS)
+      (SYNONYM WEAPON WEAPONS)
+      (DESC "weapon")
+      (ACTION WEAPON-PSEUDO)>
+
+<ROUTINE HOLD-F (RARG)
+	 <COND (<AND <EQUAL? .RARG ,M-END>
+		     <NOT <FSET? ,HOLD ,NDESCBIT>>>
+		<FSET ,HOLD ,NDESCBIT>
+		<FSET ,PEANUTS ,TAKEBIT>
+		<FCLEAR ,PEANUTS ,NDESCBIT>
+		<FCLEAR ,PEANUTS ,TRYTAKEBIT>
+		<FCLEAR ,TOWEL ,TRYTAKEBIT>
+		<MOVE ,PEANUTS ,PROTAGONIST>
+		<MOVE ,FORD ,HERE>
+		<MOVE ,MINERAL-WATER ,FORD>
+		<SETG GROGGY T>
+		<ENABLE <QUEUE I-GROGGY 3>>
+		<ENABLE <QUEUE I-FORD 6>>
+		<ENABLE <QUEUE I-ANNOUNCEMENT 18>>
+		<ENABLE <QUEUE I-GUARDS 36>>
+		<SETG LINE-NUMBER <RANDOM 6>>
+		<SETG WORD-NUMBER <RANDOM 3>>
+		<SETG SCORE <+ ,SCORE 8>>
+		<SETG P-IT-OBJECT ,PEANUTS>
+		<TELL CR
+"Ford removes the bottle of " D ,MINERAL-WATER " which he's been waving under
+your nose. He tells you that you are aboard a Vogon spaceship, and gives you
+some peanuts." CR>)
+	       (<AND <EQUAL? .RARG ,M-END>
+		     <FSET? ,HOLD ,REVISITBIT>>
+		<SETG DREAMING T>
+		<CRLF>
+		<JIGS-UP
+"A pair of Vogon guards stand nearby, waving acrid-smelling stun guns an inch
+away from your face. Simultaneously, they fire.">
+		<RTRUE>)
+	       (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is a squalid room filled with grubby mattresses, unwashed cups, and
+unidentifiable bits of smelly alien underwear. A door lies to port, and an
+airlock lies to starboard.">
+		<COND (,GOWN-HUNG
+		       <TELL " Your gown is hanging from a hook">
+		       <COND (<NOT <FSET? ,TOWEL ,SURFACEBIT>>
+			      <TELL ".">)>)>
+		<COND (<FSET? ,TOWEL ,SURFACEBIT>
+		       <COND (,GOWN-HUNG
+			      <TELL " and a ">)
+			     (T
+			      <TELL " A ">)>
+		       <TELL "towel is draped over a drain on the floor.">)>
+		<COND (<AND ,PANEL-BLOCKER
+			    <NOT <EQUAL? ,PANEL-BLOCKER ,SATCHEL>>>
+		       <TELL
+" Resting in front of a " D ,ROBOT-PANEL " at the base of one wall is">
+		       <ARTICLE ,PANEL-BLOCKER>
+		       <TELL ".">)>
+		<CRLF>)>>
+
+<OBJECT HOLD-FURNISHINGS
+	(LOC LOCAL-GLOBALS)
+	(DESC "it")
+	(SYNONYM MATTRESS CUPS CUP UNDERWEAR)
+	(ADJECTIVE GRUBBY UNWASHED UNIDENTIF SMELLY ALIEN)
+	(FLAGS NDESCBIT NARTICLEBIT)
+	(ACTION UNIMPORTANT-THING-F)>
+
+<ROUTINE I-GROGGY ()
+	 <ENABLE <QUEUE I-GROGGY -1>>
+	 <SETG GROGGY-COUNTER <+ ,GROGGY-COUNTER 1>>
+	 <COND (<NOT ,GROGGY>
+		<DISABLE <INT I-GROGGY>>
+		<SETG GROGGY-COUNTER 0>
+		<RFALSE>)>
+	 <CRLF>
+	 <COND (<EQUAL? ,GROGGY-COUNTER 1 2>
+		<TELL "You begin to feel ">
+		<COND (<EQUAL? ,GROGGY-COUNTER 2>
+		       <TELL "in">)>
+		<TELL "distinctly groggy." CR>)
+	       (<EQUAL? ,GROGGY-COUNTER 3>
+		<TELL "You begin to feel very indistinct." CR>)
+	       (T
+		<TELL
+"Your serious allergic reaction to protein loss from" ,BEAM "s becomes a cause
+celebre amongst various holistic pressure groups in the Galaxy and leads to a
+total ban on dematerialisation. Within fifty years, space travel is replaced by
+a keen interest in old furniture restoration and market gardening. In this new,
+quieter Galaxy, the art of telepathy flourishes as never before, creating a new
+universal harmony which brings all life together, converts all matter into
+thought and brings about the rebirth of the entire Universe on a higher and
+better plane of existence.|
+|
+However, none of this affects you, because you are dead." CR>
+		<FINISH>)>>
+
+<GLOBAL GROGGY-COUNTER 0>
+
+<GLOBAL GOWN-HUNG <>>
+
+<GLOBAL PANEL-BLOCKER <>>
+
+<GLOBAL ITEM-ON-SATCHEL <>>
+
+<GLOBAL FISH-COUNTER 5>
+
+<OBJECT DISPENSER
+	(LOC HOLD)
+	(DESC "babel fish dispenser")
+	(LDESC "Along one wall is a tall dispensing machine.")
+	(SYNONYM DISPENSER MACHINE SLOT)
+	(ADJECTIVE DISPENSIN BABEL FISH TALL VENDING)
+	(ACTION DISPENSER-F)>
+
+<ROUTINE DISPENSER-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL
+"The dispenser is tall, has a button at around eye-level, and says \"Babel
+Fish\" in large letters. Anything dispensed would probably come out the slot
+at around knee-level.">
+		<FINE-PRODUCT>
+		<CRLF>)
+	       (<AND <VERB? PUT-IN-FRONT>
+		     <PRSO? ,HEAD ,EARS>>
+		<SETG LYING-DOWN T>
+		<TELL
+"You are now lying down with your ear near the " D ,DISPENSER " slot." CR>)
+	       (<AND <VERB? LIE-DOWN>
+		     ,IN-FRONT-FLAG>
+		<PERFORM ,V?PUT-IN-FRONT ,HEAD ,DISPENSER>
+		<RTRUE>)>>
+
+<OBJECT DISPENSER-BUTTON
+	(LOC HOLD)
+	(DESC "dispenser button")
+	(SYNONYM BUTTON)
+	(ADJECTIVE DISPENSER SINGLE BABEL FISH)
+	(FLAGS NDESCBIT)
+	(ACTION DISPENSER-BUTTON-F)>
+
+<ROUTINE DISPENSER-BUTTON-F ()
+ <COND (<VERB? PUSH>
+	<COND (,LYING-DOWN
+	       <TELL "You can't reach it from down here." CR>
+	       <RTRUE>)
+	      (<EQUAL? ,FISH-COUNTER 0>
+	       <TELL "Click." CR>
+	       <RTRUE>)>
+	<SETG FISH-COUNTER <- ,FISH-COUNTER 1>>
+	<TELL
+"A single " D ,BABEL-FISH " shoots out of the slot. It sails across the
+room and ">
+	<COND (<NOT ,GOWN-HUNG>
+	       <TELL
+"through a " D ,FISH-HOLE " in the wall, just under a " D ,HOOK "." CR>)
+	      (T
+	       <TELL "hits the dressing gown. The fish slides down the ">
+	       <COND (,SLEEVE-TIED
+		      <TELL "inside (nice try, though)">)
+		     (T
+		      <TELL "sleeve">)>
+	       <TELL " of the gown and falls to the floor, ">
+	       <COND (<NOT <FSET? ,TOWEL ,SURFACEBIT>>
+		      <TELL
+"vanishing through the grating of a hitherto unnoticed drain." CR>)
+		     (T
+		      <TELL
+"landing on the towel. A split second later, a tiny cleaning robot whizzes
+across the floor, grabs the fish, and continues its breakneck pace toward
+a " D ,ROBOT-PANEL " at the base of the wall. ">
+		      <COND (<NOT ,PANEL-BLOCKER>
+			     <TELL
+"The robot zips through the panel, and is gone." CR>)
+			    (<NOT <EQUAL? ,PANEL-BLOCKER ,SATCHEL>>
+			     <TELL "The robot zips around">
+			     <ARTICLE ,PANEL-BLOCKER>
+			     <TELL ", through the panel, and is gone." CR>)
+			    (T
+			     <TELL
+"The robot plows into the satchel, sending the " D ,BABEL-FISH>
+			     <COND
+			      (<AND <NOT <EQUAL? ,ITEM-ON-SATCHEL ,MAIL>>
+				    ,ITEM-ON-SATCHEL>
+			       <TELL " and">
+			       <ARTICLE ,ITEM-ON-SATCHEL T>)>
+			     <TELL
+" flying through the air in a graceful arc">
+			     <COND
+			      (<NOT <EQUAL? ,ITEM-ON-SATCHEL ,MAIL>>
+			       <TELL
+". " ,ROBOT-FLIES-IN "catches the " D ,BABEL-FISH " ">
+			       <COND (,ITEM-ON-SATCHEL
+				      <MOVE ,ITEM-ON-SATCHEL ,LOCAL-GLOBALS>
+				      <TELL "and also manages to catch">
+				      <ARTICLE ,ITEM-ON-SATCHEL T>
+				      <SETG ITEM-ON-SATCHEL <>>)
+				     (T
+				      <TELL
+"(which is all the flying junk it can find)">)>
+			       <TELL ", and exits." CR>)
+			      (<EQUAL? ,ITEM-ON-SATCHEL ,MAIL>
+			       <MOVE ,MAIL ,LOCAL-GLOBALS>
+			       <SETG SCORE <+ ,SCORE 12>>
+			       <MOVE ,BABEL-FISH ,PROTAGONIST>
+			       <COND (<RUNNING? ,I-ANNOUNCEMENT>
+				      <ENABLE <QUEUE I-GUARDS 4>>)
+				     (<NOT
+				       <FSET? ,CAPTAINS-QUARTERS ,TOUCHBIT>>
+				      <ENABLE <QUEUE I-ANNOUNCEMENT 4>>
+				      <ENABLE <QUEUE I-GUARDS 7>>)>
+			       <SETG FISH-COUNTER 0>
+			       <SETG ITEM-ON-SATCHEL <>>
+			       <TELL
+" surrounded by a cloud of junk mail. Another robot flies in and begins madly
+collecting the cluttered plume of mail. The " D ,BABEL-FISH " continues its
+flight, landing with a loud \"squish\" in your ear." CR>)>)>)>)>)>>
+
+<OBJECT FISH-HOLE
+	(LOC HOLD)
+	(DESC "small hole")
+	(SYNONYM HOLE)
+	(ADJECTIVE SMALL)
+	(FLAGS NDESCBIT)
+	(ACTION FISH-HOLE-F)>
+
+<ROUTINE FISH-HOLE-F ()
+	 <COND (<VERB? LOOK-INSIDE>
+		<TELL "You see only " D ,DARK-OBJECT "." CR>)
+	       (<AND <VERB? PUT>
+		     <PRSI? ,FISH-HOLE>>
+		<COND (<FSET? ,PRSO ,INTEGRALBIT>
+		       <PART-OF>)
+		      (<L? <GETP ,PRSO ,P?SIZE> 5>
+		       <MOVE ,PRSO ,LOCAL-GLOBALS>
+		       <TELL "It falls through the hole and vanishes." CR>)
+		      (T
+		       <TELL "It doesn't fit through the hole." CR>)>)
+	       (<AND <VERB? PUT-ON PUT-IN-FRONT>
+		     <PRSI? ,FISH-HOLE>>
+		<COND (<PRSO? ,HANDS ,EARS ,ME ,HEAD>
+		       <PERFORM ,V?STAND-BEFORE ,FISH-HOLE>
+		       <RTRUE>)>
+		<PERFORM ,V?HANG ,PRSO ,HOOK>
+		<RTRUE>)
+	       (<AND <VERB? BLOCK-WITH SPUT-ON>
+		     <PRSO? ,FISH-HOLE>>
+		<PERFORM ,V?HANG ,PRSI ,HOOK>
+		<RTRUE>)
+	       (<VERB? BLOCK>
+		<PERFORM ,V?STAND-BEFORE ,FISH-HOLE>
+		<RTRUE>)
+	       (<AND <VERB? LIE-DOWN>
+		     ,IN-FRONT-FLAG>
+		<PERFORM ,V?STAND-BEFORE ,FISH-HOLE>
+		<RTRUE>)>>
+
+<OBJECT HOOK
+	(LOC HOLD)
+	(DESC "metal hook")
+	(SYNONYM HOOK)
+	(ADJECTIVE METAL)
+	(FLAGS NDESCBIT)
+	(ACTION HOOK-F)>
+
+<ROUTINE HOOK-F ()
+	 <COND (<VERB? EXAMINE>
+		<COND (,GOWN-HUNG
+		       <TELL "Your gown is hanging from it." CR>)
+		      (T
+		       <TELL
+"The hook is attached to the wall, inches above a tiny hole." CR>)>)
+	       (<VERB? HANG PUT-ON>
+		<COND (,LYING-DOWN
+		       <TELL ,WHILE-LYING CR>)
+		      (<PRSO?,GOWN>
+		       <COND (<FSET? ,GOWN ,WORNBIT>
+			      <IDROP>
+			      <RTRUE>)>
+		       <SETG GOWN-HUNG T>
+		       <MOVE ,GOWN ,HERE>
+		       <FSET ,GOWN ,NDESCBIT>
+		       <FSET ,GOWN ,TRYTAKEBIT>
+		       <FCLEAR ,GOWN ,OPENBIT>
+		       <TELL
+"The gown is now hanging from the hook, covering a tiny hole." CR>)
+		      (<PRSO? ,HANDS ,EARS ,HEAD>
+		       <PERFORM ,V?STAND-BEFORE ,HOOK>
+		       <RTRUE>)
+		      (<FSET? ,PRSO ,TAKEBIT>
+		       <COND (<FSET? ,PRSO ,TRYTAKEBIT>
+			      <TELL ,NOT-HOLDING>
+			      <ARTICLE ,PRSO T>
+			      <TELL "." CR>)
+			     (T
+		       	      <MOVE ,PRSO ,HERE>
+		       	      <TELL "It slips off the hook." CR>)>)
+		      (T
+		       <V-COUNT>)>)>>
+
+<OBJECT DRAIN
+	(LOC HOLD)
+	(DESC "drain")
+	(SYNONYM DRAIN GRATING GRATE)
+	(FLAGS NDESCBIT)
+	(ACTION DRAIN-F)>
+
+<ROUTINE DRAIN-F ()
+	 <COND (<VERB? PUT-ON>
+		<COND (<FSET? ,TOWEL ,SURFACEBIT>
+		       <TELL "The drain is already covered by the towel." CR>)
+		      (,LYING-DOWN
+		       <TELL ,WHILE-LYING CR>)
+		      (<PRSO?,TOWEL>
+		       <FSET ,TOWEL ,CONTBIT>
+		       <FSET ,TOWEL ,SURFACEBIT>
+		       <FSET ,TOWEL ,OPENBIT>
+		       <FSET ,TOWEL ,NDESCBIT>
+		       <FSET ,TOWEL ,TRYTAKEBIT>
+		       <MOVE ,TOWEL ,HERE>
+		       <PERFORM ,V?EXAMINE ,DRAIN>
+		       <RTRUE>)
+		      (T
+		       <TELL "The drain is too large to be covered by">
+		       <ARTICLE ,PRSO T>
+		       <TELL "." CR>)>)
+	       (<VERB? LOOK-INSIDE>
+		<PERFORM ,V?LOOK-INSIDE ,FISH-HOLE>
+		<RTRUE>)
+	       (<AND <VERB? EXAMINE>
+		     <FSET? ,TOWEL ,SURFACEBIT>>
+		<TELL "The towel completely covers the drain." CR>)>> 
+
+<OBJECT ROBOT-PANEL
+	(LOC HOLD)
+	(DESC "tiny robot panel")
+	(SYNONYM PANEL)
+	(ADJECTIVE ROBOT TINY)
+	(FLAGS NDESCBIT)
+	(ACTION ROBOT-PANEL-F)>
+
+<ROUTINE ROBOT-PANEL-F ()
+	 <COND (<VERB? EXAMINE CLOSE>
+		<TELL
+"The panel, only a few inches high, is currently closed." CR>)
+	       (<VERB? OPEN>
+		<TELL ,BUDGE CR>)
+	       (<VERB? BLOCK>
+		<SETG AWAITING-REPLY 6>
+		<ENABLE <QUEUE I-REPLY 2>>
+		<TELL "With " D ,HANDS "s? By force of will?" CR>)
+	       (<AND <VERB? LIE-DOWN>
+		     ,IN-FRONT-FLAG>
+		<PERFORM ,V?STAND-BEFORE ,ROBOT-PANEL>
+		<RTRUE>)
+	       (<AND <VERB? PUT-IN-FRONT PUT-IN-FRONT PUT-ON>
+		     <PRSI? ,ROBOT-PANEL>>
+		<PERFORM ,V?BLOCK-WITH ,ROBOT-PANEL ,PRSO>
+		<RTRUE>)
+	       (<AND <VERB? BLOCK-WITH SPUT-ON>
+			 <PRSO? ,ROBOT-PANEL>>
+		<COND (<PRSI? ,HEAD ,HANDS ,EARS ,EYES>
+		       <V-COUNT>)
+		      (<NOT <HELD? ,PRSI>>
+		       <TELL ,NOT-HOLDING>
+		       <ARTICLE ,PRSI T>
+		       <TELL "." CR>)
+		      (,PANEL-BLOCKER
+		       <TELL "But">
+		       <ARTICLE ,PANEL-BLOCKER T>
+		       <TELL
+" is already in front of the " D ,ROBOT-PANEL "." CR>)
+		      (,LYING-DOWN
+		       <TELL ,WHILE-LYING CR>)
+		      (T
+		       <MOVE ,PRSI ,HERE>
+		       <SETG PANEL-BLOCKER ,PRSI>
+		       <FSET ,PRSI ,TRYTAKEBIT>
+		       <TELL "Okay,">
+		       <COND (<PRSI? ,SATCHEL>
+			      <TELL " the satchel is lying on its side">)
+			     (T
+			      <FSET ,PRSI ,NDESCBIT>
+			      <ARTICLE ,PRSI T>
+			      <TELL " is sitting">)>
+		       <TELL " in front of the " D ,ROBOT-PANEL "." CR>)>)>>
+
+<OBJECT BABEL-FISH
+	(LOC LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
+	(DESC "babel fish")
+	(SYNONYM FISH)
+	(ADJECTIVE BABEL)
+	(FLAGS TAKEBIT)
+	(ACTION BABEL-FISH-F)>
+
+<ROUTINE BABEL-FISH-F ()
+	 <COND (<VERB? TAKE REMOVE>
+		<TELL
+"That would be foolish. Having a " D ,BABEL-FISH " in your ear is terribly
+useful." CR>)>>
+
+<OBJECT GLASS-CASE
+	(LOC HOLD)
+	(DESC "glass case")
+	(LDESC "In the corner is a glass case with a switch and a keyboard.")
+	(SYNONYM CASE LID GLASS)
+	(ADJECTIVE GLASS)
+	(SIZE 40)
+	(FLAGS CONTBIT TRANSBIT SEARCHBIT)
+	(ACTION GLASS-CASE-F)>
+
+<GLOBAL GLASS-CASE-SCORE <>>
+
+<ROUTINE GLASS-CASE-F ()
+	 <COND (<VERB? EXAMINE>
+		<TELL "The " D ,GLASS-CASE " is ">
+		<COND (<FSET? ,GLASS-CASE ,OPENBIT>
+		       <TELL "open">)
+		      (T
+		       <TELL "closed">)>
+		<TELL
+". Attached to it are a " D ,KEYBOARD " and a switch." CR>)
+	       (<AND <VERB? OPEN>
+		     <NOT <FSET? ,GLASS-CASE ,OPENBIT>>>
+		<TELL ,BUDGE CR>)
+	       (<VERB? MUNG>
+		<TELL
+"The hold of the Vogon ship is virtually undamaged by the explosion
+of the " D ,GLASS-CASE>
+		<JIGS-UP
+". You, however, are blasted into tiny bits and smeared all over the room.
+Several cleaning robots fly in and wipe you neatly off the walls.">
+		<RTRUE>)>>
+
+<ROUTINE GLASS-CASE-OPENS () ;"see V-TYPE"
+	 <COND (<FSET? ,GLASS-CASE ,OPENBIT>
+		<TELL "Nothing happens." CR>
+		<FUCKING-CLEAR>)
+	       (T
+		<FSET ,GLASS-CASE ,OPENBIT>
+		<TELL "The " D ,GLASS-CASE " opens." CR>
+		<FCLEAR ,PLOTTER ,TRYTAKEBIT>
+		<COND (<NOT ,GLASS-CASE-SCORE>
+		       <SETG GLASS-CASE-SCORE T>
+		       <SETG SCORE <+ ,SCORE 25>>)>
+		<FUCKING-CLEAR>)>>
+
+<OBJECT KEYBOARD
+	(LOC HOLD)
+	(DESC "keyboard")
+	(SYNONYM KEYBOARD)
+	(FLAGS NDESCBIT TRYTAKEBIT)>
+
+<OBJECT CASE-SWITCH
+	(LOC HOLD)
+	(DESC "switch")
+	(SYNONYM SWITCH)
+	(FLAGS NDESCBIT SWITCHBIT)
+	(ACTION CASE-SWITCH-F)>
+
+<ROUTINE CASE-SWITCH-F ()
+	 <COND (<VERB? LAMP-ON TURN PUSH MOVE THROW>
+		<COND (<HELD? ,BABEL-FISH>
+		       <TELL
+"A recording plays: \"To open the case, type in the ">
+		       <COND (<EQUAL? ,WORD-NUMBER 1>
+			      <TELL "first">)
+			     (<EQUAL? ,WORD-NUMBER 2>
+			      <TELL "second">)
+			     (<EQUAL? ,WORD-NUMBER 3>
+			      <TELL "third">)>
+		       <TELL
+" word from the second verse of the Captain's current favourite poem.
+WARNING: An incorrect input will cause the case to explode.\"" CR>)
+		      (T
+		       <TELL "A recording plays: \"A">
+		       <PRODUCE-GIBBERISH 5>
+		       <CRLF>)>)>>
+
+<ROUTINE PRODUCE-GIBBERISH (N "AUX" GIBBERISH-COUNTER SUPER-COUNTER)
+	 <SET SUPER-COUNTER 0>
+	 <REPEAT ()
+		 <SET SUPER-COUNTER <+ .SUPER-COUNTER 1>>
+		 <SET GIBBERISH-COUNTER 0>
+		 <REPEAT ()
+			 <SET GIBBERISH-COUNTER <+ .GIBBERISH-COUNTER 1>>
+			 <TELL <PICK-ONE ,GIBBERISH>>
+			 <COND (<EQUAL? .GIBBERISH-COUNTER 10>
+				<COND (<NOT <EQUAL? .SUPER-COUNTER .N>>
+				       <TELL " o">)>
+				<RETURN>)>>
+		 <COND (<EQUAL? .SUPER-COUNTER .N>
+			<TELL ".\"">
+			<RETURN>)>>>
+
+<ROUTINE I-ANNOUNCEMENT ()
+	 <ENABLE <QUEUE I-ANNOUNCEMENT -1>>
+	 <TELL CR "An announcement is coming over the ship's intercom. \"">
+	 <COND (<HELD? ,BABEL-FISH ,PROTAGONIST>
+		<TELL
+"This is the Captain. My instruments show that we've picked up a couple of
+hitchhikers. I hate freeloaders, and when my guards find you I'll have you
+thrown into space. On second thought, maybe I'll read you some of my poetry
+first. Repeating...\"" CR>)
+	       (T
+		<TELL "E">
+		<PRODUCE-GIBBERISH 10>
+		<CRLF>)>>
+
+<GLOBAL GIBBERISH
+	<PLTABLE
+"toy" "r g" "irb" "kwa" "o s"
+"fim" "p w" "osh" "flu" "a r"
+"vup" "d t" "imb" "tha" "i l"
+"cav" "s g" "ulp" "cho" "u n"
+"zit" "z z" "eft" "qui" "e h"
+"kon" "l m" "ork" "gry" "o t"
+"huv" "x j" "erl" "tru" "a b"
+"fud" "w c" "oll" "wro" "i s">>
+
+<ROUTINE I-GUARDS ()
+	 <COND (<EQUAL? ,HERE ,HOLD>
+		<DISABLE <INT I-ANNOUNCEMENT>>
+		<TELL CR
+"Guards burst in and grab you and Ford, who comes slowly awake. They drag you
+down the corridor to a large cabin, where they strap you into large, menacing
+chairs..." CR CR>
+		<SETG HERE ,CAPTAINS-QUARTERS>
+		<MOVE ,NAME ,HERE>
+		<SETG LYING-DOWN <>>
+		<ENABLE <QUEUE I-CAPTAIN 2>>
+		<SETG FORD-SLEEPING <>>
+		<FSET ,FORD ,NDESCBIT>
+		<MOVE ,PROTAGONIST ,POETRY-APPRECIATION-CHAIR>
+		<SETG OHERE <>>
+		<V-LOOK>
+		<MOVE ,FORD ,HERE>
+		<MOVE ,GUARDS ,HERE>)
+	       (<NOT <IN? ,RIFLES ,LOCAL-GLOBALS>>
+		<TELL CR ,GUARDS-REALIZE "They">
+		<GUARD-DEATH>
+		<RTRUE>)
+	       (T
+		<RFALSE>)>>
+
+<ROOM CAPTAINS-QUARTERS
+      (LOC ROOMS)
+      (DESC "Captain's Quarters")
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL FLEET WEAPON)
+      (ACTION CAPTAINS-QUARTERS-F)>
+
+<OBJECT STRAPS
+      (LOC CAPTAINS-QUARTERS)
+      (SYNONYM STRAPS STRAP)
+      (DESC "strap")
+      (FLAGS NDESCBIT)
+      (ACTION UNIMPORTANT-THING-F)>
+ 
+<ROUTINE CAPTAINS-QUARTERS-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-LOOK>
+		<TELL
+"This is the cabin of the " D ,VOGON-CAPTAIN ". You and Ford are strapped
+into " D ,POETRY-APPRECIATION-CHAIR "s." CR>)>>
+
+<OBJECT POETRY-APPRECIATION-CHAIR
+	(LOC CAPTAINS-QUARTERS)
+	(DESC "poetry appreciation chair")
+	(SYNONYM CHAIR CHAIRS SEAT)
+	(ADJECTIVE POETRY APPRECIAT LARGE MENACING)
+	(FLAGS VEHBIT OPENBIT SEARCHBIT SURFACEBIT CONTBIT)
+	(ACTION POETRY-APPRECIATION-CHAIR-F)>
+
+<ROUTINE POETRY-APPRECIATION-CHAIR-F ("OPTIONAL" (RARG <>))
+	 <COND (.RARG
+		<RFALSE>)
+	       (<VERB? DISEMBARK WALK LEAP WALK-AROUND>
+		<SETG AWAITING-REPLY 7>
+		<ENABLE <QUEUE I-REPLY 2>>
+		<TELL "You're strapped in, remember?" CR>)
+	       (<AND <VERB? OPEN CLOSE>
+		     <PRSO? ,POETRY-APPRECIATION-CHAIR>>
+		<TELL-ME-HOW>)>> 
+
+<OBJECT VOGON-CAPTAIN
+	(LOC CAPTAINS-QUARTERS)
+	(DESC "Vogon Captain")
+	(LDESC
+"The Captain is indescribably hideous, indescribably blubbery,
+and indescribably mid-to-dark green. He is holding samples of his
+favourite poetry.")
+	(SYNONYM CAPTAIN VOGONS)
+	(ADJECTIVE VOGON)
+	(FLAGS ACTORBIT)
+	(ACTION VOGON-CAPTAIN-F)>
+
+<ROUTINE VOGON-CAPTAIN-F ()
+	 <COND (<OR <VERB? TELL HELLO THANK>
+		    <AND <VERB? ASK-ABOUT ASK-FOR>
+			 <EQUAL? ,VOGON-CAPTAIN ,PRSO>>>
+		<TELL
+"One of the guards lightly bashes your skull with the butt of his weapon">
+		<COND (<HELD? ,BABEL-FISH>
+		       <TELL
+". \"This is a poetry appreciation session, prisoner. No talking!\"" CR>)
+		      (T
+		       <TELL " and says, \"A">
+		       <PRODUCE-GIBBERISH 2>
+		       <CRLF>)>
+		<FUCKING-CLEAR>)
+	       (<AND <IN? ,POETRY ,HERE>
+		     <VERB? BLOCK>>
+		<PERFORM ,V?LISTEN ,POETRY>
+		<RTRUE>)>> 
+
+<GLOBAL CAPTAIN-COUNTER 0>
+
+<ROUTINE I-CAPTAIN ()
+	 <ENABLE <QUEUE I-CAPTAIN -1>>
+	 <SETG CAPTAIN-COUNTER <+ ,CAPTAIN-COUNTER 1>>
+         <CRLF>
+	 <COND (<EQUAL? ,CAPTAIN-COUNTER 1>
+		<TELL
+"\"If he's going to read us his poetry,\" mutters Ford, sweating profusely,
+\"just pray he softens us up with some cudgels first...\"" CR CR>)>
+	 <COND (<NOT <HELD? ,BABEL-FISH ,PROTAGONIST>>
+		<TELL "The " D ,VOGON-CAPTAIN " says, \"O">
+		<PRODUCE-GIBBERISH 2>
+		<COND (<EQUAL? ,CAPTAIN-COUNTER 6>
+		       <GUARDS-TO-AIRLOCK>)
+		      (T
+		       <CRLF>)>)
+	       (<EQUAL? ,CAPTAIN-COUNTER 1>
+		<TELL
+"\"Hello, hitchhikers!\" begins the " D ,VOGON-CAPTAIN ". \"I've decided to
+read you a verse of my poetry!\"" CR>)
+	       (<EQUAL? ,CAPTAIN-COUNTER 2>
+		<TELL
+"\"Oh freddled gruntbuggly, thy nacturations are to me!\"" CR>)
+	       (<EQUAL? ,CAPTAIN-COUNTER 3>
+		<TELL
+"\"As plurdled gabbleblotchits on a lurgid bee.\"" CR>)
+	       (<EQUAL? ,CAPTAIN-COUNTER 4>
+		<TELL
+"\"Groop I implore thee, my foonting turlingdromes.\"" CR>)
+	       (<EQUAL? ,CAPTAIN-COUNTER 5>
+		<TELL
+"\"And hooptiously drangle me with crinkly bindlewurdles, or I will rend
+thee in the gobberwarts with my blurglecruncheon, see if I don't!\"" CR>)
+	       (<EQUAL? ,CAPTAIN-COUNTER 6>
+		<COND (,POEM-ENJOYED
+		       <TELL
+"\"You looked like you enjoyed my poem. I think...yes, I think I'll read
+the NEXT verse, also!\"" CR>)
+		      (T
+		       <TELL
+"\"You didn't seem to enjoy my poem at all! Guards, toss
+them out the airlock!\"">
+		       <GUARDS-TO-AIRLOCK>)>)
+	       (<EQUAL? ,CAPTAIN-COUNTER 7>
+		<COND (<EQUAL? ,LINE-NUMBER 1 2>
+		       <TELL ,LINE-A CR>)
+		      (<EQUAL? ,LINE-NUMBER 3 4>
+		       <TELL ,LINE-B CR>)
+		      (T
+		       <TELL ,LINE-C CR>)>)
+	       (<EQUAL? ,CAPTAIN-COUNTER 8>
+		<COND (<EQUAL? ,LINE-NUMBER 3 5>
+		       <TELL ,LINE-A CR>)
+		      (<EQUAL? ,LINE-NUMBER 1 6>
+		       <TELL ,LINE-B CR>)
+		      (T
+		       <TELL ,LINE-C CR>)>)
+	       (<EQUAL? ,CAPTAIN-COUNTER 9>
+		<COND (<EQUAL? ,LINE-NUMBER 4 6>
+		       <TELL ,LINE-A CR>)
+		      (<EQUAL? ,LINE-NUMBER 2 5>
+		       <TELL ,LINE-B CR>)
+		      (T
+		       <TELL ,LINE-C CR>)>)
+	       (<EQUAL? ,CAPTAIN-COUNTER 10>
+		<TELL
+"\"Gerond withoutitude form into formless bloit, why not then? Moose.\"" CR>)
+	       (<EQUAL? ,CAPTAIN-COUNTER 11>
+		<TELL
+"\"Since you have somehow managed to survive two verses of my poetry, I have
+no choice but to space you. Guards!\"">
+		<GUARDS-TO-AIRLOCK>)>>
+
+<GLOBAL LINE-A
+"\"Fripping lyshus wimbgunts, awhilst moongrovenly kormzibs.\"">
+
+<GLOBAL LINE-B
+"\"Gashee morphousite, thou expungiest quoopisk!\"">
+
+<GLOBAL LINE-C
+"\"Bleem miserable venchit! Bleem forever mestinglish asunder frapt.\"">
+
+<GLOBAL LINE-NUMBER 0>
+
+;"The line order is set randomly from 1 to 6, with the following result:
+	1	Line A, Line B, Line C
+	2	Line A, Line C, Line B
+	3	Line B, Line A, Line C
+	4	Line B, Line C, Line A
+	5	Line C, Line A, Line B
+	6	Line C, Line B, Line A"
+
+<GLOBAL WORD-NUMBER 0> ;"randomly set between one and three"
+
+<ROUTINE GUARDS-TO-AIRLOCK ()
+	 <DISABLE <INT I-CAPTAIN>>
+	 <TELL
+" A guard grabs you and Ford, and drags you toward the hold. Ford whispers,
+\"Don't worry, I'll think of something!\"" CR CR>
+	 <FCLEAR ,HOLD ,TOUCHBIT>
+	 <GOTO ,HOLD>
+	 <FCLEAR ,FORD ,NDESCBIT>
+	 <MOVE ,GUARDS ,HERE>
+	 <MOVE ,FORD ,HERE>
+	 <ENABLE <QUEUE I-FORD 1>>>
+
+<OBJECT POETRY
+	(LOC CAPTAINS-QUARTERS)
+	(DESC "Vogon poetry")
+	(SYNONYM POETRY POEM SAMPLE VERSE)
+	(ADJECTIVE VOGON FIRST SECOND)
+	(FLAGS NDESCBIT NARTICLEBIT DARKBIT)
+	(ACTION POETRY-F)>
+
+<GLOBAL POEM-ENJOYED <>>
+
+<GLOBAL AIRLOCK-COUNTER 0>
+
+<ROUTINE POETRY-F ()
+	 <COND (<AND <VERB? ENJOY LISTEN>
+		     <L? ,CAPTAIN-COUNTER 2>>
+		<TELL "The " D ,VOGON-CAPTAIN " hasn't begun yet!" CR>)
+	       (<VERB? ENJOY>
+		<COND (<NOT <HELD? ,BABEL-FISH>>
+		       <TELL
+"You can't even understand it, let alone enjoy it!" CR>)
+		      (,POEM-ENJOYED
+		       <SETG AWAITING-REPLY 8>
+		       <ENABLE <QUEUE I-REPLY 2>>
+		       <TELL "Hey, let's not overdo it, okay?" CR>)
+		      (T
+		       <SETG POEM-ENJOYED T>
+		       <SETG SCORE <+ ,SCORE 15>>
+		       <TELL
+"You realise that, although the " D ,POETRY " is indeed astoundingly bad,
+worse things happen at sea, and in fact, at school. With an effort for which
+Hercules himself would have patted you on the back, you grit your teeth and
+enjoy the stuff." CR>)>)
+	       (<VERB? LISTEN>
+		<TELL "You have no choice. Why not relax and enjoy it?" CR>)
+	       (<AND <IN? ,POETRY ,HERE>
+		     <VERB? BLOCK>>
+		<PERFORM ,V?LISTEN ,POETRY>
+		<RTRUE>)
+	       (<VERB? READ EXAMINE>
+		<TELL "You can't see it from here." CR>)>>
+
+<OBJECT VOGON-CORRIDOR-DOOR
+	(LOC HOLD)
+	(DESC "corridor door")
+	(SYNONYM DOOR)
+	(ADJECTIVE CORRIDOR)
+	(FLAGS DOORBIT NDESCBIT)
+	(ACTION VOGON-CORRIDOR-DOOR-F)>
+
+<ROUTINE VOGON-CORRIDOR-DOOR-F ()
+	 <COND (<VERB? OPEN UNLOCK THROUGH>
+		<DO-WALK ,P?WEST>)>>
+
+<OBJECT VOGON-INNER-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "inner door")
+	(SYNONYM DOOR)
+	(ADJECTIVE INNER AIRLOCK MASSIVE)
+	(FLAGS VOWELBIT NDESCBIT DOORBIT)
+	(ACTION VOGON-AIRLOCK-DOOR-F)>
+
+<OBJECT VOGON-OUTER-DOOR
+	(LOC LOCAL-GLOBALS)
+	(DESC "outer door")
+	(SYNONYM DOOR)
+	(ADJECTIVE OUTER AIRLOCK MASSIVE)
+	(FLAGS VOWELBIT NDESCBIT DOORBIT)
+	(ACTION VOGON-AIRLOCK-DOOR-F)>
+
+<ROUTINE VOGON-AIRLOCK-DOOR-F ()
+	 <COND (<VERB? OPEN THROUGH>
+		<TELL ,BUDGE CR>)>>
+
+<OBJECT AIRLOCK-OBJECT
+	(LOC LOCAL-GLOBALS)
+	(DESC "airlock")
+	(SYNONYM AIRLOCK)
+	(FLAGS VOWELBIT)
+	(ACTION AIRLOCK-OBJECT-F)>
+
+<ROUTINE AIRLOCK-OBJECT-F ()
+	 <COND (<VERB? THROUGH WALK-TO>
+		<COND (<EQUAL? ,HERE ,AIRLOCK>
+		       <TELL ,LOOK-AROUND CR>)
+		      (<EQUAL? ,HERE ,HOLD>
+		       <DO-WALK ,P?WEST>)>)
+	       (<VERB? LEAVE EXIT DISEMBARK>
+		<COND (<EQUAL? ,HERE ,AIRLOCK>
+		       <DO-WALK ,P?EAST>)
+		      (T
+		       <TELL ,LOOK-AROUND CR>)>)>>
+
+<OBJECT EQUATIONS
+	(LOC LOCAL-GLOBALS)
+	(DESC "it")
+	(SYNONYM EQUATION EQUATIONS NUMBER PENCIL)
+	(FLAGS NDESCBIT NARTICLEBIT)
+	(ACTION UNIMPORTANT-THING-F)>
+
+<ROOM AIRLOCK
+      (LOC ROOMS)
+      (SYNONYM BETELGEUS)
+      (DESC "Airlock")
+      (LDESC "This airlock has massive doors to port and starboard.")
+      (WEST TO HOLD IF VOGON-INNER-DOOR IS OPEN) ;"this should never happen"
+      (EAST TO HOLD IF VOGON-OUTER-DOOR IS OPEN) ;"ditto"
+      (FLAGS RLANDBIT ONBIT)
+      (GLOBAL VOGON-INNER-DOOR VOGON-OUTER-DOOR AIRLOCK-OBJECT FLEET EQUATIONS)
+      (ACTION AIRLOCK-F)>
+
+<ROUTINE AIRLOCK-F (RARG)
+	 <COND (<EQUAL? .RARG ,M-END>
+		<SETG AIRLOCK-COUNTER <+ ,AIRLOCK-COUNTER 1>>
+		<CRLF>
+		<COND (<EQUAL? ,AIRLOCK-COUNTER 1>
+		       <TELL
+"Ford points at the " D ,VOGON-OUTER-DOOR ". \"In about two minutes, it will
+open and we'll be ejected into the vacuum of space. But don't panic, I'll
+think of something.\"" CR>)
+		      (<EQUAL? ,AIRLOCK-COUNTER 2>
+		       <TELL "Ford is mumbling to himself." CR>)
+		      (<EQUAL? ,AIRLOCK-COUNTER 3>
+		       <TELL
+"Ford produces a pencil and begins scribbling equations on the wall." CR>)
+		      (<EQUAL? ,AIRLOCK-COUNTER 4>
+		       <TELL
+"Ford's eyes light up. \"Do you still have the Electronic Sub-Etha Auto
+Hitching Thu...\" At that moment, the airlock door opens, and you and Ford
+are blown out into space.||">
+		       <COND (<HELD? ,GUIDE>
+			      <TELL
+"Your elbow must have struck some key on " D ,GUIDE " because it begins
+droning out an entry, coincidentally enough the entry on SPACE. \""
+,SPACE-TEXT "\" (Footnote 9)" CR CR>)>
+		       <TELL
+"Precisely twenty-nine seconds later, you and Ford are scooped up by a passing
+ship. Gasping for air, you pass out..." CR CR>
+		       <SETG HEART-PROB 100>
+		       <GOTO ,DARK>)>)>>
\ No newline at end of file
diff --git a/zip-to-xzip.txt b/zip-to-xzip.txt
new file mode 100644
index 0000000..3875bb0
--- /dev/null
+++ b/zip-to-xzip.txt
@@ -0,0 +1,251 @@
+;"HOW TO TURN A ZIP GAME INTO AN XZIP GAME"
+
+;"ADD TO LOAD FILE"
+
+<VERSION XZIP>
+<SETG PLUS-MODE T>
+<SETG NEW-VOC? T>
+<FREQUENT-WORDS?>
+
+;"move directions to load file just before adding new files"
+;"status line stuff - add to GLOBALS file"
+
+<CONSTANT S-TEXT 0>
+<CONSTANT S-WINDOW 1>
+
+<CONSTANT H-NORMAL 0>
+<CONSTANT H-INVERSE 1>
+<CONSTANT H-BOLD 2>
+<CONSTANT H-ITALIC 4>
+
+<CONSTANT D-SCREEN-ON 1>
+<CONSTANT D-SCREEN-OFF -1>
+<CONSTANT D-PRINTER-ON 2>
+<CONSTANT D-PRINTER-OFF -2>
+<CONSTANT D-TABLE-ON 3>
+<CONSTANT D-TABLE-OFF -3>
+<CONSTANT D-RECORD-ON 4>
+<CONSTANT D-RECORD-OFF -4>
+
+<GLOBAL HOST:NUMBER 0> "Host machine."
+<GLOBAL WIDTH:NUMBER 0> "Width of screen in chars."
+
+;"put in GO routine"
+<SETG HOST <LOWCORE INTID>>
+<SETG WIDTH <LOWCORE SCRH>>
+
+<ROUTINE INIT-STATUS-LINE ()
+	 <COND (<L? ,WIDTH 38>
+		<TELL "[Screen too narrow.]" CR>
+		<QUIT>)>
+	 <SETG CHEIGHT <LOWCORE (FWRD 1)>>
+	 <SETG OHERE <>>
+	 <SETG OLD-LEN 0>
+	 <SPLIT 1>
+	 <SCREEN ,S-WINDOW>
+	 <HLIGHT ,H-INVERSE>
+	 <CURSET 1 1>	 
+	 ;<ERASE 1> ;"This semi by Jeff"
+	 ;<PRINT-SPACES <LOWCORE SCRH>>
+	 <PRINT-SPACES ,WIDTH>
+	 <COND (<G? ,WIDTH 75>
+		<CURSET 1 51>
+		<TELL "Score:">
+		<CURSET 1 64>
+		<TELL "Moves:">)>
+	 <HLIGHT ,H-NORMAL>
+	 <SCREEN ,S-TEXT>
+	 <RTRUE>>
+
+<CONSTANT SL-TABLE:TABLE <ITABLE NONE 80>>	"status line constructed here"
+<GLOBAL OHERE:OBJECT <>>
+<GLOBAL OLD-LEN:NUMBER 0>
+
+<ROUTINE UPDATE-STATUS-LINE ()
+	 <SCREEN ,S-WINDOW>
+	 ;<BUFOUT <>>
+	 <HLIGHT ,H-NORMAL>
+	 <HLIGHT ,H-INVERSE>
+	 <COND (<NOT <EQUAL? ,HERE ,OHERE>>
+		<SETG OHERE ,HERE>
+		;<DIROUT ,D-SCREEN-OFF>	        ; "Screen off."
+		<DIROUT ,D-TABLE-ON ,SL-TABLE>  ; "Table on."
+		<SAY-HERE>
+		<DIROUT ,D-TABLE-OFF> 	        ; "Table off."
+		;<DIROUT ,D-SCREEN-ON>		; "Screen on."
+		<CURSET 1 2>
+		<PRINT-SPACES ,OLD-LEN>  ; "Erase old HERE desc"
+		<SETG OLD-LEN <GET ,SL-TABLE 0>> ;"Print new HERE desc."
+		<CURSET 1 2>
+		<SAY-HERE>)>
+	 <COND (<G? ,WIDTH 74>
+		<CURSET 1 58>
+		<TELL N ,SCORE " ">  ;"for 110 to 80 score bug"
+		<CURSET 1 71>
+		<TELL N ,MOVES>)
+	       (T
+		<DIROUT ,D-TABLE-ON ,SL-TABLE>
+		<TELL N ,SCORE "/" N ,MOVES " ">
+		<DIROUT ,D-TABLE-OFF>
+		<CURSET 1 <- ,WIDTH <+ <GET ,SL-TABLE 0> 1>>>
+		<TELL N ,SCORE "/" N ,MOVES " ">)>
+	 <HLIGHT ,H-NORMAL>
+	 <SCREEN ,S-TEXT>  ;"Back to main screen."
+	 <RTRUE>>
+
+<ROUTINE PRINT-SPACES (CNT)
+	 <REPEAT ()
+		 <COND (<L? <SET CNT <- .CNT 1>> 0>
+			<RETURN>)
+		       (T
+			<PRINTC 32>)>>>
+
+<ROUTINE SAY-HERE ()
+	 <COND (<ZERO? ,LIT?>
+		<TELL "Darkness">)
+	       (T
+		<TELL D ,HERE>
+	        <COND (<AND <G? ,WIDTH 74>
+			    <NOT <IN? ,PROTAGONIST ,HERE>>>
+		       <TELL ", in the " <LOC ,PROTAGONIST>>)>)>
+	 <RTRUE>>
+
+"To update the status line during the game - after all MOVE ,WINNER
+(or similar) statements add - also check LIT to NOT LIT cases and vice-versa,
+V-BOARD, V-DISEMBARK and wherever else the status line changes in special
+cases, e.g. LYING DOWN in HHGG"
+
+<SETG OHERE <>>
+
+;"parser replacements - replace old routine with new"
+
+<CONSTANT P-PSOFF %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 6) (T 4)>>
+			"Offset to parts of speech byte"
+<CONSTANT P-P1OFF %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 7) (T 5)>>
+			"Offset to first part of speech"
+
+"in ROUTINE PARSER when printing prompt replace with:"
+
+%<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
+		       '<PROG ()
+			      <UPDATE-STATUS-LINE>
+			      <TELL ">">>)
+		      (T
+		       '<TELL ">">)>
+	       <PUTB ,P-INBUF 1 0>
+	       <READ ,P-INBUF ,P-LEXV>
+
+;"replace in PARSER"
+
+<ROUTINE THIS-IT? (OBJ TBL "AUX" SYNS)
+ <COND (<FSET? .OBJ ,INVISIBLE> <RFALSE>)
+       (<AND ,P-NAM
+	     <NOT <ZMEMQ ,P-NAM
+			 <SET SYNS <GETPT .OBJ ,P?SYNONYM>>
+			 <- </ <PTSIZE .SYNS> 2> 1>>>>
+	<RFALSE>)
+       (<AND ,P-ADJ
+	     <OR <NOT <SET SYNS <GETPT .OBJ ,P?ADJECTIVE>>>
+		 ;<NOT <ZMEMQB ,P-ADJ .SYNS <- <PTSIZE .SYNS> 1>>>
+		 <NOT %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
+			      '<ZMEMQ  ,P-ADJ .SYNS <RMGL-SIZE .SYNS>>)
+			     (T
+			      '<ZMEMQB ,P-ADJ .SYNS <RMGL-SIZE .SYNS>>)>>>>
+	<RFALSE>)
+       (<AND <NOT <ZERO? ,P-GWIMBIT>> <NOT <FSET? .OBJ ,P-GWIMBIT>>>
+	<RFALSE>)>
+ <RTRUE>>
+
+;"add in MISC" 
+
+<DEFMAC RMGL-SIZE ('TBL)
+	<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE>
+	       <FORM - <FORM / <FORM PTSIZE .TBL> 2> 1>)
+	      (T <FORM - <FORM PTSIZE .TBL> 1>)>>
+
+;"not needed in VERBS (INCLUDING next comment)"
+;"defined in compiler for xzip"
+;"when these are referenced, GET (and not GETB) must be used, since it
+takes TWO bytes to represent their values" 
+
+<CONSTANT REXIT 0>
+<CONSTANT UEXIT %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 2) (T 1)>>
+	"Uncondl EXIT:	(dir TO rm)		 = rm"
+<CONSTANT NEXIT %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 3) (T 2)>>
+	"Non EXIT:	(dir SORRY string)	 = str-ing"
+<CONSTANT FEXIT %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 4) (T 3)>>
+	"Fcnl EXIT:	(dir PER rtn)		 = rou-tine, 0"
+<CONSTANT CEXIT %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 5) (T 4)>>
+	"Condl EXIT:	(dir TO rm IF f)	 = rm, f, str-ing"
+<CONSTANT DEXIT %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 6) (T 5)>>
+	"Door EXIT:	(dir TO rm IF dr IS OPEN)= rm, dr, str-ing, 0"
+
+<CONSTANT CEXITFLAG %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 4) (T 1)>>
+	;"GETB"
+<CONSTANT CEXITSTR 1>		;"GET"
+<CONSTANT DEXITOBJ 1>		;"GET"
+<CONSTANT DEXITSTR %<COND (<AND <GASSIGNED? PLUS-MODE> ,PLUS-MODE> 2) (T 1)>>
+        ;"GET"
+
+;"find all GETBs before EXITs (not CEXITFLAG) (usually in VERBS
+V-WALK, OTHER-SIDE) and replace with GET"
+
+;"put SORRY in front of Exit Strings."
+
+;"before GO in MISC add"
+
+<CLEAR -1>
+<INIT-STATUS-LINE>
+
+
+;"CHANGE ALL VOCABULARY FROM 6 TO 9 LETTERS in ADJECTIVE, SYNONYM and SYNTAX"
+
+;"convert PSEUDO objects to real objects"
+;"give them NDESCBITS, DESCs (for default printouts), LOC, SYNONYM, ADJECTIVE,
+  ACTION"
+;"remove/fix assosciated PSEUDO code"
+
+;"ADD V-ID, change VERSION"
+<ROUTINE V-$ID ()
+	 <TELL "Interpreter ">
+	 <PRINTN <GETB 0 30>>
+	 <TELL " Version ">
+	 <PRINTC <GETB 0 31>>
+	 <CRLF>
+	 <RTRUE>>
+
+<ROUTINE V-VERSION ("AUX" (CNT 17) V)
+	 <SET V <BAND <GET 0 1> *3777*>>
+	 <TELL CR 
+"BORDER ZONE: A Game of Intrigue|
+Copyright (c) 1987 by Infocom, Inc. All rights reserved.|
+BORDER ZONE is a trademark of Infocom, Inc.|
+Release " N .V " / Serial number ">
+	 <REPEAT ()
+		 <COND (<G? <SET CNT <+ .CNT 1>> 23>
+			<RETURN>)
+		       (T
+			<PRINTC <GETB 0 .CNT>>)>>
+	 <TELL " / ">
+	 <V-$ID>
+	 <CRLF>>
+
+;"object locations have to be changed from (IN to (LOC"
+
+;"add $REFRESH code and modify V-SAVE"
+
+;"CHANGE SCRIPT AND UNSCRIPT CODE"
+
+;"REMOVE REFERENCES TO P1?OBJECT P1?ADJECTIVE"
+
+;"CHANGE ADJN TO ADJ, XADJN TO XADJ, and remove associated code"
+
+;"check NE in perform fix - for movement"
+
+;"CHANGE GLOBALS THAT ARE ONLY STRINGS TO CONSTANTS"
+
+;"added new AGAIN and OOPS code"
+
+;"changed ZMEMQ and ZMEMQB to INTBL? - added argument to BUT-MERGE"
+
+;"fixed RESTORE to INIT-STATUS-LINE rather than Clearing Screen"
\ No newline at end of file