PRINT "	This is the latest version as of 9 March 1980."
 print "Questions and comments may be addressed to Rich Stratton"
 print"or Norm Hurst at .MAIL 215. Please note any bugs"
 print "that you may find and tell us about them."
 DIM B$(30)
 F=0\L=0\M=0\P8=0\P9=0
 S5=0\T1=1\V=1
 FOR A=100 TO 400 STEP 100
 FOR B = 10 TO 50 STEP 10
 FOR C= 1 TO 4
 B(A+B+C)=0
 NEXT C
 NEXT B
 NEXT A
 DIM B(454)
 RANDOMIZE
 FOR N5=1TO12
 A=(INT(4*RND(0)+1))*100
 B=(INT(5*RND(0)+1))*10
 C=(INT(4*RND(0)+1))
 IF (A+B+C)=151 THEN 120
 IF (A+B+C)=234 THEN 120
 IF B(A+B+C)<>0 THEN 120
 B(A+B+C)=N5
 B(N5)=0
 NEXT N5
 B(29)=B(30)=0
 B$(1)="is nothing....it's empty"
 B$(30)="is a violin."
 B$(29)="are many trophies in the knapsack."
 B$(2)=B$(1)
 B$(3)=B$(1)
 B$(4)="is a key."
 B$(5)="is a key."
 B$(6)="are some batteries."
 B$(7)="is a large, poisonous snake..ready to bite!!!"
 B$(8)="is a beautiful gold pocket watch!"
 B$(9)="are some golden coins!!!"
 B$(10)="are some sparkling diamonds!!"
 B$(11)="is an ambiguity."
 B$(12)="is a knapsack."
 REM   This is the Haunted House Game. It was conceived
 REM   primarily by Rich Stratton, with Rich Gould and
 REM   Norm Hurst. 
 REM                                 November, 1979
 REM
 REM
 PRINT 
 PRINT "Welcome to Haunted House."
 PRINT "Do you want Instructions";
 INPUT Q$
 IF Q$="NO" THEN 590
 PRINT "You are about to begin a perilous journey."
 PRINT "You will wake up and find yourself in one of"
 PRINT "the many rooms of an old mansion---a mansion"
 PRINT "which has been abandoned and is now infested with"
 PRINT "Evils and Unspeakable Deaths of many kinds."
 PRINT "You must escape from the confines of the house."
 PRINT "By using single-word comands you may move through"
 PRINT"the maze of old rooms. You have the following items"
 PRINT"with you:"
 PRINT"	TOILET PAPER"
 PRINT"	CROWBAR"
 PRINT"	LANTERN"
 PRINT"	FLASHLIGHT"
 PRINT"	RADAR JAMMER"
 PRINT"	MACHETE"
 PRINT"	A CAN OF GHOST REPELLANT"
 PRINT"	MATCHES"
 PRINT"	A DICTIONARY"
 PRINT"	FLY-SWATTER"
 PRINT"Use your common sense to tell you what to do...."
 PRINT"Type `HELP' for help."
 PRINT "Select your difficulty level: 1 (easy) to 9 (hard)."
 INPUT K
 S9=INT((-10*K)+110)
 B9=INT((-4.38*K)+64.38)
 K9=B9
 B4=B9\K3=K9\S1=S9
 G=G+1
 GOSUB 8710
 IF G<>3 THEN 660
 PRINT "....thunder wakes you and you have the clap...."
 GOTO 670
 PRINT"....a clap of thunder wakes you and ...."
 GOSUB 8710
 A=(INT(4*RND(0)+1))*100
 B=(INT(5*RND(0)+1))*10
 C=(INT(4*RND(0)+1))
 GOSUB 8710
 N=0\S=0\E=0\W=0\U=0\D=0
 P=0\D1=0\W1=0
 ON C THEN 760,770,780,790
 GOTO 710
 ON B/10 THEN 800,810,820,830,840
 ON B/10 THEN 850,860,870,880,890
 ON B/10 THEN 900,910,920,930,940
 ON B/10 THEN 950,960,970,980,990
 ON A/100 THEN 2280,2360,2410,2470
 ON A/100 THEN 2480,2530,2570,2620
 ON A/100 THEN 2720,2770,2810,2850
 ON A/100 THEN 2910,2960,3000,3050
 ON A/100 THEN 3100,3160,3190,3240
 ON A/100 THEN 3290,3340,3390,3440
 ON A/100 THEN 3490,3530,3580,3630
 ON A/100 THEN 3660,3710,3780,3840
 ON A/100 THEN 3900,3990,4040,4090
 ON A/100 THEN 4140,4190,4220,4270
 ON A/100 THEN 4330,4390,4430,4480
 ON A/100 THEN 4510,4550,4600,4630
 ON A/100 THEN 4680,4730,4770,4810
 ON A/100 THEN 4850,4880,4910,4940
 ON A/100 THEN 4970,5030,5060,5110
 ON A/100 THEN 5160,5220,5270,5320
 ON A/100 THEN 5360,5410,5460,5500
 ON A/100 THEN 5540,5600,5700,5740
 ON A/100 THEN 5770,5810,5850,5880
 ON A/100 THEN 5920,5960,5990,6030
 
 REM       		MOVEMENT CONTROL...
 PRINT N;S;E;W;U;D
 IF Q$="N" THEN 1170
 IF Q$="NORTH" THEN 1170
 IF Q$="S" THEN 1200
 IF Q$="SOUTH" THEN 1200
 IF Q$="E" THEN 1230
 IF Q$="EAST" THEN 1230
 IF Q$="W" THEN 1260
 IF Q$="WEST" THEN 1260
 IF Q$="U" THEN 1290
 IF Q$="UP" THEN 1290
 IF Q$="D" THEN 1320
 IF Q$="DOWN" THEN 1320
 GO TO 1540
 GOTO1520
 IF N=0 THEN 1350
 A=A-100
 GOTO 750
 IF S=0 THEN 1350
 A=A+100
 GOTO 750
 IF E=0 THEN 1350
 B=B+10
 GOTO 750
 IF A+B+C=152 THEN 1342
 IF W=0 THEN 1350
 B=B-10
 GOTO 750
 IF U=0 THEN 1350
 C=C+1
 GOTO 750
 IF D=0 THEN 1350
 C=C-1
 GOTO 750
 IF W=1 THEN 1270
 PRINT"The door is far too heavy and refuses to budge."
 GOTO 1360
 PRINT "You can't go that way!"
 P=0
 GOTO 6110
 REM         Command Routine
 IF RND(0) > .002 THEN 1410
 GOTO 9220
 PRINT"What next";
 INPUT Q$
 IF Q$="" THEN 1410
 Q1$=Q$\Q$=Q$+" "\Q$=LEFT$(Q$,INSTR(Q$," ")-1)
 IF P<>1 THEN 1530
 IF P$="ON" THEN 8620
 IF Q$<>P$ THEN 8380
 IF Q$="CHOP" THEN 7500
 IF Q$="SWAT" THEN 9570
 IF Q$="SPRAY" THEN 7470
 PRINT "What next";
 INPUT Q$
 IF Q$="" THEN 1490
 Q1$=Q$\Q$=Q$+" "\Q$=LEFT$(Q$,INSTR(Q$," ")-1)
 GOTO1530
 GOTO 1490
 GOTO 1030
 IF Q$="OPEN" THEN 1762
 IF Q$="LOOK" THEN 710
 IF Q$="READ" THEN 8950
 IF Q$="POINTS" THEN 7370
 IF Q$="TAKE" THEN 7800
 IF Q$="ON" THEN 6780
 IF Q$="EXTINGUISH" THEN 7100
 IF Q$="OFF" THEN 6780
 IF Q$="PRY" THEN 7160
 IF Q$="LIGHT" THEN 7230
 IF Q$="SPRAY" THEN 7400
 IF Q$="SWAT" THEN 9550
 IF Q$="DWEEB" THEN 8780
 IF Q$="HELP" THEN 20000
 IF Q$="DEFECATE" THEN 1690
 IF Q$="INVENTORY" THEN 10270
 IF Q$="INVE" THEN 10270
 GOTO 1720
 X=1
 GOTO 6520
 GOTO 1520
 IF Q$="CHOP" THEN 7630
 IF Q$="FILL" THEN 7660
 IF Q$="REPLACE" THEN 7720
 PRINT"This instruction is not clear."
 GOTO 1520
 IF INSTR(Q1$," ")=0 THEN 1770
 O$=MID$(Q1$,INSTR(Q1$," ")+1)
 GOTO 1790
 PRINT"What do you want to open";
 INPUT O$
 IF O$="BOX" THEN 1840
 IF O$="DOOR" THEN 1860
 IF O$="WINDOW" THEN 1880
 PRINT"It is impossible to open the ";O$
 GOTO 1380
 IF B(A+B+C)=0 THEN 1900
 GOTO2240
 IF D1=0 THEN 1900
 GOTO2040
 IF W1 = 0   THEN 1900
 GOTO1920
 PRINT"There is no "O$" in this room."
 GOTO1520
 D=1
 PRINT"What next";
 INPUT Q$
 IF Q$<>"TIE" THEN 1520
 PRINT"You have tied the sheets together and they"
 PRINT"are lowered out of the window.  They don't"
 PRINT"look very strong.....What next";
 INPUT Q$
 IF Q$<>"DOWN" THEN 1520
 IF RND(0)<.1 GOTO 2080
 IF RND(0)<.7 THEN 8750
 GOTO680
 IF B(4) = 1 THEN 2070
 IF B(5) = 1 THEN 2160
 GOTO2210
 PRINT"You put the key in the lock and slowly turn...."
 GOSUB 8710
 PRINT"CONGRATULATIONS!!  You have overcome all odds"
 PRINT"and escaped from the house!"
 P9=P9+95
 PRINT
 PRINT
 PRINT
 GOTO 8410
 PRINT"You put the key in the lock and slowly turn...."
 GOSUB 8710
 PRINT"The key refuses to turn in the lock."
 PRINT"You need the proper key."
 GO TO 1520
 PRINT"The door is securely locked, and cannot be opened."
 GOTO1520
 REM            Box Routine
 PRINT"Inside the box there "B$(B(A+B+C))
 IF B(A+B+C)<>7 THEN 1520
 P=1\P$="CHOP"
 GOTO1410
 N=0\S=1\E=0\W=0\U=0\D=0
 PRINT"You are in the Kerosene storage room. There is a"
 PRINT"tank of Kerosene and a door to the south."
 PRINT"The room is filled with kerosene fumes..."
 IF L<>1 THEN 2350
 PRINT"......K A B O O O M!!!!!! "
 GOTO 8540
 GOTO 6090
 N=1\S=1\E=1\W=0\U=0\D=0
 PRINT"You are in the basement torture chamber. There is"
 PRINT"a door to the north. It's too dark to see "
 PRINT"anything else."
 GOTO 6090
 N=1\S=0\E=1\W=0\U=0\D=0
 PRINT"You are in the torture chamber. Great place for"
 PRINT"some discipline. You can't see past your nose"
 PRINT"since it's so dark down here. The smell of death"
 PRINT"is omnipresent."
 GOTO 6090
 
 N=0\S=1\E=1\W=0\U=0\D=0
 PRINT"You are in the basement torture chamber. If you"
 PRINT"are into whips and chains, this is the place to be."
 PRINT"It's so dark you can't see too far."
 GOTO 6090
 N=1\S=1\E=1\W=1\U=0\D=0
 PRINT"You are in the basement torture chamber. It's too"
 PRINT"dark to see."
 GOTO 6090
 N=1\S=1\E=1\W=1\U=0\D=0
 PRINT"You are in the torture chamber. I'd get out before"
 PRINT"you undergo a little head shrinking. But who "
 PRINT"knows which way to go?"
 GOTO 6090
 N=1\S=0\E=0\W=0\U=0\D=0
 PRINT"You are in the boiler room. There is an acrid smell"
 PRINT"of coal dust in the air. Many have died in here"
 PRINT"for some reason. One should be careful, or join"
 PRINT"them."
 IF L<>1 THEN 2710
 PRINT".....K A B O O O M!!!!!!  Looks like you joined "
 PRINT"them....."
 GOTO 8540
 GOTO 6090
 N=0\S=1\E=1\W=1\U=0\D=0
 PRINT"You are in the basement torture chamber. If you"
 PRINT"want to rest, there is a bed of nails. It's too"
 PRINT"dark to see very far."
 GOTO 6090
 N=1\S=1\E=1\W=1\U=0\D=0
 PRINT"You are in the basement torture chamber. There is a"
 PRINT"nice comfortable rack if you want to stretch a bit."
 GOTO 6090
 N=1\S=1\E=1\W=1
 PRINT"You are in the torture chamber. You'll have to "
 PRINT"find a way out fast, or learn to be a masochist."
 GOTO 6090
 U=1\N=1\E=1
 PRINT"You are in the torture chamber bathroom."
 PRINT"A toilet occupies the center of the room, its"
 PRINT"seat covered with metal spikes.  Looks mighty"
 PRINT"uncomfortable...."
 GOTO 6090
 S=1\E=1\W=1
 PRINT"You are in the basement torture room. Many have"
 PRINT"found both pleasure and pain here.  There is a"
 PRINT"door to the east.  You can't see anything else."
 GOTO 6090
 N=1\S=1\E=1\W=1\U=0\D=0
 PRINT"You are in the basement torture chamber. There is a"
 PRINT"door to the east. You can't see anything else."
 GOTO 6090
 N=1\S=0\E=0\W=1\U=0\D=0
 PRINT"You are in the basement torture chamber. All around"
 PRINT" are many interesting devices of pain. It's too"
 PRINT" dark to see which way to go."
 GOTO 6090
 E=1\W=1
 PRINT"You find yourself in a dark tunnel.  The passageway"
 PRINT"gets much narrower and darker to the east.  There"
 PRINT"is an opening in the wall to the west."
 GOTO 6090
 PRINT"It is very caliginous...a cold wind sucks at you from"
 PRINT"all sides....it is getting stronger!!  You are being"
 PRINT"pulled through the air by invisible forces!!!"
 PRINT"WHHHOOOSSHHH!!!  Suddenly..."
 C=C+3
 GOTO 710
 N=0\S=0\E=0\W=1\U=1\D=0
 PRINT"You are in the dumbwaiter."
 GOTO 6090
 S=1
 PRINT"You are in a dark tunnel. It appears as if the only"
 PRINT"to go is to the south...there are massive boulders"
 PRINT"blocking your way on all other sides."
 GOTO 6090
 N=1\W=1
 PRINT"You are crawling on your hands and knees in a very"
 PRINT"low, narrow tunnel. It is cold and damp. To the "
 PRINT"west and north the tunnel extends into the darkness."
 GOTO 6090
 S=1\D1=1
 PRINT"You are in the Foyer. There is a heavy oak door on"
 PRINT"the north wall. There is also a doorway to the "
 PRINT"south."
 GOTO 6090
 N=1\S=1\E=1\W=0\U=0\D=0
 PRINT"You are in a Hallway. To the north and south are"
 PRINT"doorways. To the east is a large staircase "
 PRINT"heading up into the darkness."
 GOTO 6090
 N=1\S=1\E=1\W=0\U=0\D=0
 PRINT"You are in a Hallway. To the north and south are"
 PRINT"doorways. To the east is an archway with darkness"
 PRINT"beyond."
 GOTO 6090
 N=1\U=1
 PRINT"You are in an old Library. Books covered with dust"
 PRINT "line the walls. There is a door to the north, and there"
 PRINT "seems to be a small hatch in the ceiling."
 GOTO 6090
 N=0\S=0\E=1\W=0\U=0\D=0
 PRINT"You are in a Closet. There is dust and debris"
 PRINT"everywhere."
 GOTO 6090
 U=1\W=1
 PRINT"You are on a large Staircase. It extends from the"
 PRINT"darkness above to the darkness below. The stairs"
 PRINT"creak as you step. . . . "
 GOTO 6090
 N=0\S=1\E=1\W=1\U=0\D=0
 PRINT"You are now in a huge Ballroom. Dust and cobwebs"
 PRINT"hang from the walls. To the west is an archway. To"
 PRINT"the south and east are doors leading into darkness."
 GOTO 6090
 N=1\S=0\E=1\W=0\U=0\D=0
 PRINT"You are in a closet."
 GOTO 6090
 N=0\S=0\E=1\W=1\U=0\D=0
 PRINT"You are in an old Bathroom. A toilet sits ominously"
 PRINT"in the corner. There is a doorway to the east and "
 PRINT"one to the west."
 GOTO 6090
 N=0\S=1\E=1\W=0\U=0\D=0
 PRINT"You are in a Study. An old desk is in the center of"
 PRINT"the room with years of dust and dirt caked upon it."
 PRINT"Fresh footprints lead through a door to the south."
 PRINT"Perhaps you are not alone. . . There is a doorway"
 PRINT"to the east."
 GOTO 6090
 N=1\S=1\E=1\W=1\U=0\D=0
 PRINT"You are in the west end of a Living Room. The "
 PRINT"furniture is covered with sheets. To the north "
 PRINT"there is a doorway, and perhaps to the west and "
 PRINT"south as well. It is difficult to tell for sure."
 GOTO 6090
 P=1\N=1\W=1\E=1\D=1\P$="ON"
 PRINT"You are in an Aviary, long since void of any birds."
 PRINT"To the east, west, and north are doors leading to"
 PRINT"darkness.  Suddenly you hear the sound of thousands"
 PRINT"of wings....BATS surround you!!!"
 GOTO 6090
 N=0\S=1\E=1\W=1\U=0\D=0
 PRINT"You are in the Kitchen.  The smell of leaky gas is "
 PRINT"almost overwhelming... There are doors to the west"
 PRINT"and south, and a massive steel door to the east."
 PRINT"It is cold to the touch..."
 IF L<>1 THEN 3980
 PRINT"......K A B O O O M!!!!!"
 GOTO 8540
 GOTO 6090
 N=1\S=1\W=1
 PRINT"You are in an old Dining Hall.  Perhaps as many"
 PRINT"as 30 chairs line a huge table.  Doors lead to"
 PRINT"the west, and maybe elsewhere..."
 GOTO 6090
 N=1\S=1\E=1\W=1
 PRINT"You are in the east end of a large Living Room."
 PRINT"There is darkness to the west, and a door to "
 PRINT"the south."
 GOTO 6090
 N=1\E=1\W=1
 PRINT"You are in a Sitting Room.  A ruined dust covered"
 PRINT"couch lines the east wall.  Somewhere nearby you"
 PRINT"can hear the sound of beating wings..."
 GOTO 6090
 N=0\S=1\E=0\W=0\U=1\D=1
 PRINT"You are in a meat locker.  It is very cold."
 PRINT"To the west is a massive steel door. To the"
 PRINT"south is a tiny door, placed on the wall."
 GOTO 6090
 U=1\D=1\N=1
 PRINT"You are in a dumbwaiter."
 GOTO 6090
 W=1\S=1
 PRINT"You are in a den. Rats scurry into holes as you"
 PRINT"enter.  A moose head on the wall watches your"
 PRINT"every move....."
 GOTO 6090
 N=1\W=1
 PRINT"You have entered a room full of ghosts!!"
 PRINT"But wait.. they are engrossed in a game on"
 PRINT"a computer terminal...It looks like they are"
 PRINT"playing ADVENTURE......"
 GOTO 6090
 N=0\S=1\E=1\W=0\U=0\D=0
 PRINT"You are in the west end of what appears to"
 PRINT"be the Master Bedroom.   To the east is "
 PRINT"darkness.  A doorway MIGHT be to the north,"
 PRINT"but it is dark...."
 GOTO 6090
 N=1\S=1
 PRINT"You are in a Bathroom.  A toilet sits in the "
 PRINT"corner.  To the north and south are doors."
 GOTO 6090
 N=1\S=1\E=1
 PRINT"You are in the west end of a Bedroom. To the"
 PRINT"south is a door. To the east is darkness. There"
 PRINT"is a doorway to the north."
 GOTO 6090
 N=1
 PRINT"You are in a closet."
 GOTO 6090
 E=1\W=1
 PRINT"You are in the center of the Master Bedroom."
 PRINT"You can see nothing but darkness in any direction."
 GOTO 6090
 D=1\E=1
 PRINT"You are on a large Staircase. It extends from the"
 PRINT "darkness above to the darkness below. The stairs"
 PRINT"creak as you step."
 GOTO 6090
 W=1
 PRINT"You are in the east end of a Bedroom."
 GOTO 6090
 U=1\E=1
 PRINT "You are in a large Staircase. It extends from the"
 PRINT"darkness above to the darkness below. The stairs"
 PRINT"creak as you step."
 GOTO 6090
 S=1\W=1\E=1
 PRINT"You are in the east end the Master Bedroom. There"
 PRINT"are doorways to the east and south with darkness"
 PRINT "to the west."
 GOTO 6090
 N=1\E=1\W=1
 PRINT "You are in a Hallway with door to the north"
 PRINT"and a large painting on the south wall."
 GOTO 6090
 E=1
 PRINT "You are in a sort of Reading Room. There is a "
 PRINT"door on the east wall."
 GOTO 6090
 E=1\W=1
 PRINT "You are within a Hallway. There is a staircase"
 PRINT" to the west."
 GOTO 6090
 W=1\S=1\E=1
 PRINT "You are in a closet."
 GOTO 6090
 N=1\W=1\S=1
 PRINT"You are in a Hallway. There is darkness all around."
 GOTO 6090
 N=1\W=1\S=1
 PRINT"You are in a Hallway. There is darkness all around."
 GOTO 6090
 N=1\W=1\E=1
 PRINT "You are in a Hallway. There is darkness all around."
 GOTO 6090
 W=1\P=1
 PRINT"You are in an empty room.  Suddenly flies begin"
 PRINT"to swarm around you!!!! A voice murmers.."
 PRINT".....FOR GOD'S SAKE  GET OUT!!!!..."
 P$="SWAT"
 GOTO 6090
 U=1\D=1\S=1
 PRINT"You are in a Dumbwaiter."
 GOTO 6090
 N=1\S=1
 PRINT"You are in a vomitorium. This is the room where"
 PRINT"the ghosts go after they overeat...the smell is "
 PRINT"disgusting."
 GOTO 6090
 W=1\N=1
 PRINT"You are in an Observatory. An abandoned telescope"
 PRINT"points to the east, but the lense is old and "
 PRINT"cracked. There are doors to the north and west."
 GOTO 6090
 S=1\E=1
 PRINT"You are in the Music Room. Old, dust covered"
 PRINT"musical instruments lie everywhere."
 GOTO 9820
 GOTO 6090
 E=1\N=1
 PRINT"You are in a Trophy Room.  Hundreds of golden"
 PRINT"trophies cover the walls and fill the cabinets!"
 PRINT"There are doorways to the north and south."
 GOTO 6090
 S=1\E=1
 PRINT"You are in a Bedroom filled with many spiders, just"
 PRINT"waiting for something or someone to fall entrapped"
 PRINT"in their webbing."
 GOTO 6090
 N=1
 PRINT"You are in an Old Bathroom. A toilet sits ominously"
 PRINT"in the corner."
 GOTO 6090
 E=1\W=1\S=1\P=1\P$="SPRAY"
 PRINT"You are in a Large Bedroom. Ghosts advance upon you"
 PRINT"with ominous toilets. There is darkness to the east"
 PRINT"and west, but a doorway lies to the south."
 GOTO 6090
 N=1\W=1\S=1\E=1\P=1\P$="CHOP"
 PRINT"You are in the east end of the Greenhouse Room."
 PRINT"Man-eating plants lunge at you. There is a doorway "
 PRINT"to the east."
 GOTO 6090
 N=1\W=1\E=1
 PRINT"You are in a Bedroom that once belonged to a "
 PRINT "posessed child."
 GOTO 6090
 D=1\W=1
 PRINT"You are on a Stairway. There is darkness in all"
 PRINT"directions. "
 GOTO 6090
 P=1\W=1\S=1\E=1\P$="SPRAY"
 PRINT"You are in a Large Bedroom. The ghosts are look-"
 PRINT"for recruits. There is a doorway to the east, "
 PRINT"darkness to the north and west. Who knows what"
 PRINT"lies to the south."
 GOTO 6090
 
 PRINT "CHEKOV HERE: IT'S A ROMULAN WITH A CLOAKING DEVICE!!"
 PRINT "153 UNIT HIT FROM QUADRANT (2,5): (243 REMAINING)"
 PRINT "167 UNIT HIT FROM QUADRANT (3,7): ( 76 REMAINING)"
 PRINT "112 UNIT HIT FROM QUADRANT (3,2): (-36 REMAINING)"
 PRINT
 PRINT "THE ENTERPRISE HAS BEEN DESTROYED."
 PRINT "THE FEDERATION WILL BE DESTR%^ &*$ #@$&*("
 PRINT "^&*GEBJ &*(SB +@^%^&*@  HS$@~W"
 GOTO 680
 W=1\S=1\E=1
 PRINT"You are in a Hallway. Your fate is in your"
 PRINT"own hands."
 GOTO 6090
 N=1\W=1\E=1
 PRINT"You are in a Bedroom."
 GOTO 6090
 W1=1\W=1\E=1
 PRINT"You are in the Ghost's Closet. Numerous sheets"
 PRINT"hang from hooks. There is a window to the north."
 GOTO 6090
 E=1\S=1
 PRINT"You are in a Hallway. There is a doorway to the"
 PRINT"east. Darkness surrounds you."
 GOTO 6090
 N=1\W=1\E=1
 PRINT"You are in a Hallway."
 GOTO 6090
 W=1
 PRINT"You are in a closet. Who knows what queer things"
 PRINT"are hiding there?"
 GOTO 6090
 W=1\S=1
 PRINT"You are in the Ghost's Study. It is filled with"
 PRINT"books and magazines about famous ghosts."
 GOTO 6090
 D=1\W=1\N=1
 PRINT"You are in a Dumbwaiter."
 GOTO 6090
 W=1\S=1
 PRINT"You are in the servant's quarters, long since"
 PRINT"vacated. There is a door to the south."
 GOTO 6090
 W=1\N=1
 PRINT"You are in the maids quarters, but it is empty."
 PRINT"There are broken boards on the west wall,"
 PRINT"perhaps you can squeeze through...."
 GOTO 6090
 REM  ************ C H E C K   R O U T I N E ********"
 IF B(A+B+C)=0 THEN 6110
 PRINT "There is a small box here."
 M=M+1
 S1=S1-1
 IF S1<=0 THEN 6250
 IF S1=1 THEN 6230
 IF S1=5 THEN 6210
 IF S1=10 THEN 6180
 GO TO 6270
 PRINT"Nature will soon call...You had better find a"
 PRINT"bathroom."
 GOTO6270
 PRINT"You had better go soon!!"
 GOTO6270
 PRINT"You can't hold it any longer!!!!"
 GOTO6270
 X=0
 GOTO 6520
 IF F=1 THEN 6320
 IF L=1 THEN 6360
 IF F=1 THEN 6510
 IF M=1 THEN 1380
 GOTO 8420
 B4=B4-1
 IF B4=10 THEN 6400
 IF B4=0 THEN 6420
 GOTO6280
 K3=K3-1
 IF K3=10 THEN 6470
 IF K3=0 THEN 6490
 GOTO6510
 PRINT"Your flashlight is running low."
 GOTO6280
 PRINT"Your flashlight is dead."
 F=0
 IF K3>0 THEN 6280
 GOTO 8420
 GOTO 6510
 PRINT"Your kerosene is running low."
 GOTO 6510
 PRINT"Your lantern is out of fuel."
 L=0
 GOTO 1380
 T=A+B+C
 IF T=132 THEN 6590
 IF T=213 THEN 6590
 IF T=414 THEN 6590
 IF T=431 THEN 6580
 GOTO 6710
 PRINT"OOUUCCHH!!  OOOOOO!! AAHHHHH!!!"
 PRINT"You have successfully gone to the bathroom."
 PRINT"What next";
 INPUT Q$
 IF Q$<>"WIPE" THEN 6670
 PRINT"Good.  You have saved yourself from the wolverines."
 S1=S9
 IF X=1 THEN 1520
 GOTO 6270
 PRINT"You neglected to clean up. A pack of wolverines"
 PRINT"have been attracted by the scent and have devoured"
 PRINT"you."
 GOTO 8540
 PRINT"You did it right on the floor! How gross!"
 PRINT"But worse, you have attracted the wolverines,"
 PRINT"which have eaten both the feces(first) and you"
 PRINT"(second), which says something about you."
 GOTO 8380
 IF X=1 THEN 1520
 GOTO 6270
 IF Q$="ON" THEN 6950
 PRINT"What do you want to turn off";
 INPUT Q$
 IF Q$="FLASHLIGHT" THEN 6860
 IF Q$="FLASH" THEN 6860
 IF Q$="RADAR" THEN 6930
 PRINT"What on earth is a "Q$" ?"
 GOTO 1520
 IF F=0 THEN 6900
 F=0
 PRINT "O.K.!!! Your flashlight is off."
 GOTO 1490
 PRINT "Are you stupid???!!? It's not on!!"
 GOTO 1490
 GOTO 1520
 PRINT "The Radar Jammer is not on."
 GOTO 1520
 PRINT"What do you want to turn on";
 INPUT Q$
 IF Q$="FLASHLIGHT" THEN 7040
 IF Q$="FLASH" THEN 7040
 IF Q$="RADAR" THEN 7020
 PRINT"A what?"
 GOTO 6950
 PRINT"The Radar Jammer does not seem to work here."
 GOTO 1490
 IF F=1 THEN 7080
 F=1
 PRINT"Your flashlight cuts a narrow swath in the darkness."
 GOTO 1490
 PRINT"What, are you blind?!? It's already on!"
 GOTO 1490
 IF L=0 THEN 7140
 PRINT"OK, the lantern is out."
 L=0
 GOTO 1520
 PRINT"It's already out, DUMMY!!"
 GOTO 1520
 W1=A+B+C
 IF W1=152 THEN 7200
 PRINT"There is nothing here to pry."
 GOTO 1520
 W=1
 PRINT"You have pried open the Meatlocker door."
 GOTO 1520
 IF L=1 THEN 7340
 E1=A+B+C
 IF E1=142 THEN 8930
 IF E1=111 THEN 8930
 IF E1=421 THEN 8930
 IF K3>0 THEN 7310
 PRINT "You can't light the lantern; you're out of fuel."
 GOTO 1520
 PRINT "The lantern casts eerie shadows on the wall."
 L=1
 GOTO 1520
 PRINT"You just burned your fingers because the lantern"
 PRINT"is already lit!  Boy, are you dumb."
 GO TO 1520
 P8=K*P9+M
 PRINT"You have accumulated "P8" points so far."
 GOTO 1490
 S2=A+B+C
 IF S2=114 THEN 7470
 IF S2=124 THEN 7470
 IF S2=134 THEN 7470
 PRINT"Your spraying has no effect on anything in the "
 PRINT"room. The spray does, however, smell pretty bad."
 GOTO 1520
 PRINT"The ghosts shy away from you, but still look at"
 PRINT"you hungrily..."
 GOTO 1520
 C1=A+B+C
 IF C1=214 THEN 7570
 IF C1=224 THEN 7570
 PRINT"You have severed the head of the snake.  There is "
 PRINT"nothing else in the box."
 B(A+B+C)=0
 GOTO 1520
 IF RND(0)<-.05*K+.95 THEN 7600
 PRINT "You have damaged the plants, but it wasn't enough."
 GOTO 8460
 PRINT "You have damaged the plants in this part of the"
 PRINT "room enough to manuever safely for a short while."
 GOTO 1520
 PRINT"There is not much here to chop. If you continue"
 PRINT"to chop so freely, you may hurt yourself."
 GOTO 1520
 IF A+B+C=111 THEN 7690
 PRINT"There is nothing here to fill the lantern with."
 GOTO 1520
 PRINT"The lantern is now full."
 K3=K9
 GOTO 1520
 IF B(6)=1 THEN 7750
 PRINT"You don't have any spare batteries!"
  GOTO 1520
 PRINT"Duracell...the most MACHO battery you can buy!"
 B(6)=0
 B4=B9
 GOTO 1520
 REM		TAKE ROUTINE.....
 IF INSTR(Q1$," ")=0 THEN 7830
 Q$=MID$(Q1$,INSTR(Q1$," ")+1)
 GOTO 7850
 PRINT "Take? Take What";
 INPUT Q$
 IF Q$="KEY" THEN 8300
 IF Q$="WATCH" THEN 7930
 IF Q$="COINS" THEN 7990
 IF Q$="DIAMONDS" THEN 8050
 IF LEFT$(Q$,4)="BATT" THEN 8210
 IF Q$="SNAKE" THEN 8110
 GOTO 9950
 GOTO 1490
 IF B(A+B+C)=8 THEN 7960
 PRINT"Watch?  There is no watch here!"
 GOTO 1490
 PRINT"It looks good on you, too!"
 P9=P9+10
 B(8)=1
 GOTO 8280
 IF B(A+B+C)=9 THEN 8020
 PRINT"Coins?  There are no coins here!"
 GOTO 1490
 PRINT"Your pockets are now stuffed full of coins!"
 P9=P9+10
 B(9)=1
 GOTO 8280
 IF B(A+B+C)=10 THEN 8080
 PRINT"Diamonds are forever, but there are none here!"
 GOTO 1490
 PRINT"Your pockets are now full of diamonds! Lucky you!"
 P9=P9+10
 B(10)=1
 GOTO 8280
 IF B(A+B+C)=7 THEN 8140
 PRINT "There's no snake here!"
 GOTO 1520
 PRINT"What's that for? A souvenier to show "
 PRINT"the guys back home?  In any case, you now"
 PRINT"are carrying a dead snake with you."
 P9=P9+10
 B(7)=1
 B(A+B+C)=0
 GOTO 1520
 IF B(A+B+C)=6 THEN 8240
 PRINT"Sorry! No batteries in here!"
 GOTO 1520
 PRINT "And they're Duracells! Wise move!"
 B(A+B+C)=0
 P9=P9+10
 B(6)=1
 B(A+B+C)=0
 GOTO 1520
 IF B(A+B+C)=4 THEN 8340
 IF B(A+B+C)=5 THEN 8340
 PRINT "Key? There's no key in here!"
 GOTO 1520
 PRINT "O.K."
 B(B(A+B+C))=1
 B(A+B+C)=0
 GOTO 1520
 IF P$="CHOP" THEN 8460
 IF P$="SPRAY" THEN 8480
 IF P$="SWAT" THEN 9590
 GO TO 8540
 PRINT"You are surrounded by darkness.....thousands of"
 PRINT"dwarves and goblins, no longer afraid of you,"
 PRINT"attack and devour you!!!!  AAAAARRRRRRGGHHH!!!"
 GOTO 8540
 PRINT"You have been mercilously devoured!!!!"
 GOTO 8540
 PRINT"The ghosts have strapped you to the bed and"
 PRINT"smothered you!!!!"
 GOTO 8540
 PRINT"The bats have pecked your eyes out and you"
 PRINT"you have bled to a hideous death!!!!"
 GOTO 8540
 PRINT"You are no longer in the house or the game."
 PRINT"You were in the house for exactly "M-1" moves."
 P8=K*P9+M
 PRINT"You scored a total of "P8" points."
 PRINT"Do you want to play again";
 INPUT W$
 IF W$="YES" THEN 10
 STOP
 IF Q$<>P$ THEN 8510
 PRINT"What do you want to turn on";
 INPUT T$
 IF T$="RADAR" THEN 8670
 GOTO 8510
 PRINT"By turning on your radar-jammer you have"
 PRINT"confused the bats into thinking that you "
 PRINT"are not in the room. You can move around."
 GOTO 1520
 FOR N9= 1 TO 5
 PRINT
 NEXT N9
 RETURN
 PRINT "The sheets have broken and you have fallen to a"
 PRINT "painful death."
 GOTO 8540
 PRINT "This instruction is not clear."
 PRINT "What next";
 INPUT Q$
 IF Q$<>"DWEEB" THEN 1530
 GOSUB 8710
 GOSUB 8710
 GOSUB 8710
 GOSUB 8710
 PRINT "INPUT ROOM COORDINATES: A,B,C:";
 INPUT A,B,C
 IF A>4 THEN 8921
 IF B>5 THEN 8921
 IF C>4 THEN 8921
 A=A*100\B=B*10
 GOSUB 8710
 GOSUB 8710
 GOSUB 8710
 GOTO 750
 PRINT" You have just blasted yourself into the afterworld!!!"
 GOTO 8540
 PRINT".......K A B O O O M!!!!!!"
 GOTO 8540
 PRINT"What do you want to read";
 INPUT Q$
 IF Q$<>"DICTIONARY" THEN 9040
 PRINT"You open the dictionary....it says..."
 PRINT"Ahhhh...too bad. It is written in ghost language."
 PRINT"Do you know how to read ghost language";
 INPUT Q$
 IF Q$="YES" THEN 9100
 GOTO1520
 IF Q$="BOOK" THEN 9150
 IF Q$="BOOKS" THEN 9150
 IF Q$="MAGAZINE" THEN 9150
 IF Q$="MAGAZINES" THEN 9150
 PRINT"You can't read a "Q$" , FOOL!!"
 GOTO 1520
 PRINT"What does IARANDME mean";
 INPUT Q$
 IF Q$="IAMANERD" THEN 9141
 IF Q$="IAMA NERD" THEN 9141
 IF Q$="IAM ANERD" THEN 9141
 IF Q$="IAM A NERD" THEN 9141
 IF Q$="I AMANERD" THEN 9141
 IF Q$="I AMA NERD" THEN 9141
 IF Q$="I AM ANERD" THEN 9141
 IF Q$="I AM A NERD" THEN 9141
 PRINT"That is not correct. That means you lied, and"
 PRINT"this house does not like a LIAR!!"
 GOTO 8540
 PRINT"That is CORRECT!! You must be a NERD to understand"
 PRINT"ghost language."
 PRINT"All is not lost however. All you have to do is talk to ..."
 A9=1
 GOTO 9280
 R1=(A+B+C)
 IF R1=412 THEN 9620
 IF R1=333 THEN 9650
 IF R1=154 THEN 9730
 PRINT"There are none here to read!"
 GOTO 1490
 PRINT
 PRINT
 PRINT 
 PRINT"           SUDDENLY......"
 PRINT" an icy chill races down your spine; Someone is behind you!!"
 PRINT"         you turn........"
 PRINT"  It's"
 PRINT"        !! T E D   K E N N E D Y !!"
 PRINT
 PRINT" He offers to show you the way out; "
 PRINT" will you follow him";
 INPUT H$
 IF H$="YES" THEN 9430
 IF H$="NO" THEN 9390
 PRINT" Are you speaking English,son?? Now please "
 PRINT" say yes or no to the Senator."
 PRINT" Well";
 GOTO9320
 PRINT
 PRINT
 IF A9=1 THEN 9421
 PRINT" At this, Ted shrugs and walks away, shaking his head.."
 GOTO 1410
 PRINT"'I HATE NERDS!!!'"
 PRINT"  shouts the good senator as he smashes you to a pulp."
 A9=0
 GOTO 8540
 IF RND(0)>.50 THEN 9460
 PRINT
 IF A9<>1THEN 9450
 PRINT" 'You got away with it this time.'"
 PRINT" theatens the good senator."
 A9=0
 GOTO 2080
 PRINT 
 PRINT" Ah Ted, shouldn't we be going left here??"
 PRINT"   TED, left.... NO TED, LEFT.....LEFT!!!!!"
 PRINT
 PRINT" ooops, looks like Ted missed that turn, but he'll"
 PRINT" be back in a week to pull you out (or rather dredge"
 PRINT" you up)."
 A9=0
 GOTO 8540
 GOTO8540
 PRINT"There is nothing here to swat!"
 GOTO 1490
 PRINT"You have miraculously killed all the flies."
 GOTO 1490
 PRINT"The flies have eaten all the skin off your body!"
 PRINT"You have bled to a hideous skinless death!"
 GOTO 8540
 PRINT"All the pages are the same... they say"
 PRINT"'If here ye rise, thence shall ye not fall back.'"
 GOTO 1520
 PRINT"Every page is the same! The writing says..."
 PRINT
 PRINT"                 HICJACKET"
 PRINT"What next";
 INPUT Q$
 IF Q$<>"HICJACKET" THEN 1540
 A=100\B=10\C=2
 GOTO 750
 PRINT"Hmm..this seems to be written in Swedish!"
 PRINT"Each page says.."
 PRINT"       'Oh, yah...on chancer der boom-boom!"
 PRINT"        VIRDE  !'"
 PRINT"What next";
 INPUT Q$
 IF Q$<>"VIRDE" THEN 1540
 A=100\B=10\C=1
 GOTO 750
 IF V=0 THEN 6090
 PRINT"There is a beautiful Stradivarius violin here!"
 GOTO 6090
 IF Q$="VIOLIN" THEN 10000
 IF Q$="TROPHIES" THEN 10100
 IF Q$="KNAPSACK" THEN 10200
 PRINT"You can't take the "Q$" !!"
 GOTO 1490
 IF (A+B+C)=114 THEN 10020
 PRINT"There is no violin here!"
 GOTO 1490
 IF V=0 THEN 10005
 PRINT"You are now the proud owner of a violin!"
 P9=P9+K
 B(30)=1
 V=0
 GOTO 1490
 IF (A+B+C)=214 THEN 10130
 PRINT"There are no trophies here."
 GOTO 1490
 IF T1=0 THEN 10160
 IF S5=1 THEN 10180
 PRINT"You can't possibly carry any of these without"
 PRINT"some form of help."
 GOTO 1490
 PRINT"There are no trophies here which can be carried"
 PRINT"anywhere, except for the ones in your knapsack."
 PRINT"Getting awfully greedy, aren't we?"
 GOTO 1490
 PRINT"You have taken all the trophies in the room"
 PRINT"which will fit in your knapsack. These will"
 PRINT"look real nice on the mantel back home!"
 S5=0
 P9=P9+K
 B(29)=1
 GOTO 1490
 IF B(A+B+C)=12 THEN 10250
 PRINT"There is no knapsack here."
 GOTO 1490
 PRINT"You now are wearing a knapsack on your back."
 S5=1
 B(12)=1
 GOTO 8280
 PRINT "You have....."
 FOR N8=1TO30
 IF B(N8)= 0 THEN 10290
 PRINT"..."MID$(B$(N8),INSTR(B$(N8)," ")+1)
 I1=1
 NEXT N8
 IF I1=1 THEN 10304
 PRINT "....nothing at all!"
 I1 = 0
 GOTO 1520
 PRINT"To move around the house, type map directions like"
 PRINT"NORTH (N), EAST (E), or UP (U). All other commands"
 PRINT"are action words such as `LOOK' or `LIGHT'. Some"
 PRINT"action words that take objects may be entered"
 PRINT"as two-word commands. Your common sense will help"
 PRINT"you the most. To see what you are carrying, type"
 PRINT"INVENTORY (INVE). Strange things will occur from"
 PRINT"time to time, so beware!"
 GOTO 1520
 END