00010 PRINT " This is the latest version as of 9 March 1980." 00020 print "Questions and comments may be addressed to Rich Stratton" 00030 print"or Norm Hurst at .MAIL 215. Please note any bugs" 00040 print "that you may find and tell us about them." 00050 DIM B$(30) 00060 F=0\L=0\M=0\P8=0\P9=0 00070 S5=0\T1=1\V=1 00080 FOR A=100 TO 400 STEP 100 00090 FOR B = 10 TO 50 STEP 10 00100 FOR C= 1 TO 4 00110 B(A+B+C)=0 00120 NEXT C 00130 NEXT B 00140 NEXT A 00150 DIM B(454) 00160 RANDOMIZE 00170 FOR N5=1TO12 00180 A=(INT(4*RND(0)+1))*100 00190 B=(INT(5*RND(0)+1))*10 00200 C=(INT(4*RND(0)+1)) 00210 IF (A+B+C)=151 THEN 120 00220 IF (A+B+C)=234 THEN 120 00230 IF B(A+B+C)<>0 THEN 120 00240 B(A+B+C)=N5 00250 B(N5)=0 00260 NEXT N5 00270 B(29)=B(30)=0 00280 B$(1)="is nothing....it's empty" 00290 B$(30)="is a violin." 00300 B$(29)="are many trophies in the knapsack." 00310 B$(2)=B$(1) 00320 B$(3)=B$(1) 00330 B$(4)="is a key." 00340 B$(5)="is a key." 00350 B$(6)="are some batteries." 00360 B$(7)="is a large, poisonous snake..ready to bite!!!" 00370 B$(8)="is a beautiful gold pocket watch!" 00380 B$(9)="are some golden coins!!!" 00390 B$(10)="are some sparkling diamonds!!" 00400 B$(11)="is an ambiguity." 00410 B$(12)="is a knapsack." 00420 REM This is the Haunted House Game. It was conceived 00430 REM primarily by Rich Stratton, with Rich Gould and 00440 REM Norm Hurst. 00450 REM November, 1979 00460 REM 00470 REM 00480 PRINT 00490 PRINT "Welcome to Haunted House." 00500 PRINT "Do you want Instructions"; 00510 INPUT Q$ 00520 IF Q$="NO" THEN 590 00530 PRINT "You are about to begin a perilous journey." 00540 PRINT "You will wake up and find yourself in one of" 00550 PRINT "the many rooms of an old mansion---a mansion" 00560 PRINT "which has been abandoned and is now infested with" 00570 PRINT "Evils and Unspeakable Deaths of many kinds." 00580 PRINT "You must escape from the confines of the house." 00590 PRINT "By using single-word comands you may move through" 00600 PRINT"the maze of old rooms. You have the following items" 00610 PRINT"with you:" 00620 PRINT" TOILET PAPER" 00630 PRINT" CROWBAR" 00640 PRINT" LANTERN" 00650 PRINT" FLASHLIGHT" 00660 PRINT" RADAR JAMMER" 00670 PRINT" MACHETE" 00680 PRINT" A CAN OF GHOST REPELLANT" 00690 PRINT" MATCHES" 00700 PRINT" A DICTIONARY" 00710 PRINT" FLY-SWATTER" 00720 PRINT"Use your common sense to tell you what to do...." 00730 PRINT"Type `HELP' for help." 00740 PRINT "Select your difficulty level: 1 (easy) to 9 (hard)." 00750 INPUT K 00760 S9=INT((-10*K)+110) 00770 B9=INT((-4.38*K)+64.38) 00780 K9=B9 00790 B4=B9\K3=K9\S1=S9 00800 G=G+1 00810 GOSUB 8710 00820 IF G<>3 THEN 660 00830 PRINT "....thunder wakes you and you have the clap...." 00840 GOTO 670 00850 PRINT"....a clap of thunder wakes you and ...." 00860 GOSUB 8710 00870 A=(INT(4*RND(0)+1))*100 00880 B=(INT(5*RND(0)+1))*10 00890 C=(INT(4*RND(0)+1)) 00900 GOSUB 8710 00910 N=0\S=0\E=0\W=0\U=0\D=0 00920 P=0\D1=0\W1=0 00930 ON C THEN 760,770,780,790 00940 GOTO 710 00950 ON B/10 THEN 800,810,820,830,840 00960 ON B/10 THEN 850,860,870,880,890 00970 ON B/10 THEN 900,910,920,930,940 00980 ON B/10 THEN 950,960,970,980,990 00990 ON A/100 THEN 2280,2360,2410,2470 01000 ON A/100 THEN 2480,2530,2570,2620 01010 ON A/100 THEN 2720,2770,2810,2850 01020 ON A/100 THEN 2910,2960,3000,3050 01030 ON A/100 THEN 3100,3160,3190,3240 01040 ON A/100 THEN 3290,3340,3390,3440 01050 ON A/100 THEN 3490,3530,3580,3630 01060 ON A/100 THEN 3660,3710,3780,3840 01070 ON A/100 THEN 3900,3990,4040,4090 01080 ON A/100 THEN 4140,4190,4220,4270 01090 ON A/100 THEN 4330,4390,4430,4480 01100 ON A/100 THEN 4510,4550,4600,4630 01110 ON A/100 THEN 4680,4730,4770,4810 01120 ON A/100 THEN 4850,4880,4910,4940 01130 ON A/100 THEN 4970,5030,5060,5110 01140 ON A/100 THEN 5160,5220,5270,5320 01150 ON A/100 THEN 5360,5410,5460,5500 01160 ON A/100 THEN 5540,5600,5700,5740 01170 ON A/100 THEN 5770,5810,5850,5880 01180 ON A/100 THEN 5920,5960,5990,6030 01190 01200 REM MOVEMENT CONTROL... 01210 PRINT N;S;E;W;U;D 01220 IF Q$="N" THEN 1170 01230 IF Q$="NORTH" THEN 1170 01240 IF Q$="S" THEN 1200 01250 IF Q$="SOUTH" THEN 1200 01260 IF Q$="E" THEN 1230 01270 IF Q$="EAST" THEN 1230 01280 IF Q$="W" THEN 1260 01290 IF Q$="WEST" THEN 1260 01300 IF Q$="U" THEN 1290 01310 IF Q$="UP" THEN 1290 01320 IF Q$="D" THEN 1320 01330 IF Q$="DOWN" THEN 1320 01340 GO TO 1540 01350 GOTO1520 01360 IF N=0 THEN 1350 01370 A=A-100 01380 GOTO 750 01390 IF S=0 THEN 1350 01400 A=A+100 01410 GOTO 750 01420 IF E=0 THEN 1350 01430 B=B+10 01440 GOTO 750 01450 IF A+B+C=152 THEN 1342 01460 IF W=0 THEN 1350 01470 B=B-10 01480 GOTO 750 01490 IF U=0 THEN 1350 01500 C=C+1 01510 GOTO 750 01520 IF D=0 THEN 1350 01530 C=C-1 01540 GOTO 750 01550 IF W=1 THEN 1270 01560 PRINT"The door is far too heavy and refuses to budge." 01570 GOTO 1360 01580 PRINT "You can't go that way!" 01590 P=0 01600 GOTO 6110 01610 REM Command Routine 01620 IF RND(0) > .002 THEN 1410 01630 GOTO 9220 01640 PRINT"What next"; 01650 INPUT Q$ 01660 IF Q$="" THEN 1410 01670 Q1$=Q$\Q$=Q$+" "\Q$=LEFT$(Q$,INSTR(Q$," ")-1) 01680 IF P<>1 THEN 1530 01690 IF P$="ON" THEN 8620 01700 IF Q$<>P$ THEN 8380 01710 IF Q$="CHOP" THEN 7500 01720 IF Q$="SWAT" THEN 9570 01730 IF Q$="SPRAY" THEN 7470 01740 PRINT "What next"; 01750 INPUT Q$ 01760 IF Q$="" THEN 1490 01770 Q1$=Q$\Q$=Q$+" "\Q$=LEFT$(Q$,INSTR(Q$," ")-1) 01780 GOTO1530 01790 GOTO 1490 01800 GOTO 1030 01810 IF Q$="OPEN" THEN 1762 01820 IF Q$="LOOK" THEN 710 01830 IF Q$="READ" THEN 8950 01840 IF Q$="POINTS" THEN 7370 01850 IF Q$="TAKE" THEN 7800 01860 IF Q$="ON" THEN 6780 01870 IF Q$="EXTINGUISH" THEN 7100 01880 IF Q$="OFF" THEN 6780 01890 IF Q$="PRY" THEN 7160 01900 IF Q$="LIGHT" THEN 7230 01910 IF Q$="SPRAY" THEN 7400 01920 IF Q$="SWAT" THEN 9550 01930 IF Q$="DWEEB" THEN 8780 01940 IF Q$="HELP" THEN 20000 01950 IF Q$="DEFECATE" THEN 1690 01960 IF Q$="INVENTORY" THEN 10270 01970 IF Q$="INVE" THEN 10270 01980 GOTO 1720 01990 X=1 02000 GOTO 6520 02010 GOTO 1520 02020 IF Q$="CHOP" THEN 7630 02030 IF Q$="FILL" THEN 7660 02040 IF Q$="REPLACE" THEN 7720 02050 PRINT"This instruction is not clear." 02060 GOTO 1520 02070 IF INSTR(Q1$," ")=0 THEN 1770 02080 O$=MID$(Q1$,INSTR(Q1$," ")+1) 02090 GOTO 1790 02100 PRINT"What do you want to open"; 02110 INPUT O$ 02120 IF O$="BOX" THEN 1840 02130 IF O$="DOOR" THEN 1860 02140 IF O$="WINDOW" THEN 1880 02150 PRINT"It is impossible to open the ";O$ 02160 GOTO 1380 02170 IF B(A+B+C)=0 THEN 1900 02180 GOTO2240 02190 IF D1=0 THEN 1900 02200 GOTO2040 02210 IF W1 = 0 THEN 1900 02220 GOTO1920 02230 PRINT"There is no "O$" in this room." 02240 GOTO1520 02250 D=1 02260 PRINT"What next"; 02270 INPUT Q$ 02280 IF Q$<>"TIE" THEN 1520 02290 PRINT"You have tied the sheets together and they" 02300 PRINT"are lowered out of the window. They don't" 02310 PRINT"look very strong.....What next"; 02320 INPUT Q$ 02330 IF Q$<>"DOWN" THEN 1520 02340 IF RND(0)<.1 GOTO 2080 02350 IF RND(0)<.7 THEN 8750 02360 GOTO680 02370 IF B(4) = 1 THEN 2070 02380 IF B(5) = 1 THEN 2160 02390 GOTO2210 02400 PRINT"You put the key in the lock and slowly turn...." 02410 GOSUB 8710 02420 PRINT"CONGRATULATIONS!! You have overcome all odds" 02430 PRINT"and escaped from the house!" 02440 P9=P9+95 02450 PRINT 02460 PRINT 02470 PRINT 02480 GOTO 8410 02490 PRINT"You put the key in the lock and slowly turn...." 02500 GOSUB 8710 02510 PRINT"The key refuses to turn in the lock." 02520 PRINT"You need the proper key." 02530 GO TO 1520 02540 PRINT"The door is securely locked, and cannot be opened." 02550 GOTO1520 02560 REM Box Routine 02570 PRINT"Inside the box there "B$(B(A+B+C)) 02580 IF B(A+B+C)<>7 THEN 1520 02590 P=1\P$="CHOP" 02600 GOTO1410 02610 N=0\S=1\E=0\W=0\U=0\D=0 02620 PRINT"You are in the Kerosene storage room. There is a" 02630 PRINT"tank of Kerosene and a door to the south." 02640 PRINT"The room is filled with kerosene fumes..." 02650 IF L<>1 THEN 2350 02660 PRINT"......K A B O O O M!!!!!! " 02670 GOTO 8540 02680 GOTO 6090 02690 N=1\S=1\E=1\W=0\U=0\D=0 02700 PRINT"You are in the basement torture chamber. There is" 02710 PRINT"a door to the north. It's too dark to see " 02720 PRINT"anything else." 02730 GOTO 6090 02740 N=1\S=0\E=1\W=0\U=0\D=0 02750 PRINT"You are in the torture chamber. Great place for" 02760 PRINT"some discipline. You can't see past your nose" 02770 PRINT"since it's so dark down here. The smell of death" 02780 PRINT"is omnipresent." 02790 GOTO 6090 02800 02810 N=0\S=1\E=1\W=0\U=0\D=0 02820 PRINT"You are in the basement torture chamber. If you" 02830 PRINT"are into whips and chains, this is the place to be." 02840 PRINT"It's so dark you can't see too far." 02850 GOTO 6090 02860 N=1\S=1\E=1\W=1\U=0\D=0 02870 PRINT"You are in the basement torture chamber. It's too" 02880 PRINT"dark to see." 02890 GOTO 6090 02900 N=1\S=1\E=1\W=1\U=0\D=0 02910 PRINT"You are in the torture chamber. I'd get out before" 02920 PRINT"you undergo a little head shrinking. But who " 02930 PRINT"knows which way to go?" 02940 GOTO 6090 02950 N=1\S=0\E=0\W=0\U=0\D=0 02960 PRINT"You are in the boiler room. There is an acrid smell" 02970 PRINT"of coal dust in the air. Many have died in here" 02980 PRINT"for some reason. One should be careful, or join" 02990 PRINT"them." 03000 IF L<>1 THEN 2710 03010 PRINT".....K A B O O O M!!!!!! Looks like you joined " 03020 PRINT"them....." 03030 GOTO 8540 03040 GOTO 6090 03050 N=0\S=1\E=1\W=1\U=0\D=0 03060 PRINT"You are in the basement torture chamber. If you" 03070 PRINT"want to rest, there is a bed of nails. It's too" 03080 PRINT"dark to see very far." 03090 GOTO 6090 03100 N=1\S=1\E=1\W=1\U=0\D=0 03110 PRINT"You are in the basement torture chamber. There is a" 03120 PRINT"nice comfortable rack if you want to stretch a bit." 03130 GOTO 6090 03140 N=1\S=1\E=1\W=1 03150 PRINT"You are in the torture chamber. You'll have to " 03160 PRINT"find a way out fast, or learn to be a masochist." 03170 GOTO 6090 03180 U=1\N=1\E=1 03190 PRINT"You are in the torture chamber bathroom." 03200 PRINT"A toilet occupies the center of the room, its" 03210 PRINT"seat covered with metal spikes. Looks mighty" 03220 PRINT"uncomfortable...." 03230 GOTO 6090 03240 S=1\E=1\W=1 03250 PRINT"You are in the basement torture room. Many have" 03260 PRINT"found both pleasure and pain here. There is a" 03270 PRINT"door to the east. You can't see anything else." 03280 GOTO 6090 03290 N=1\S=1\E=1\W=1\U=0\D=0 03300 PRINT"You are in the basement torture chamber. There is a" 03310 PRINT"door to the east. You can't see anything else." 03320 GOTO 6090 03330 N=1\S=0\E=0\W=1\U=0\D=0 03340 PRINT"You are in the basement torture chamber. All around" 03350 PRINT" are many interesting devices of pain. It's too" 03360 PRINT" dark to see which way to go." 03370 GOTO 6090 03380 E=1\W=1 03390 PRINT"You find yourself in a dark tunnel. The passageway" 03400 PRINT"gets much narrower and darker to the east. There" 03410 PRINT"is an opening in the wall to the west." 03420 GOTO 6090 03430 PRINT"It is very caliginous...a cold wind sucks at you from" 03440 PRINT"all sides....it is getting stronger!! You are being" 03450 PRINT"pulled through the air by invisible forces!!!" 03460 PRINT"WHHHOOOSSHHH!!! Suddenly..." 03470 C=C+3 03480 GOTO 710 03490 N=0\S=0\E=0\W=1\U=1\D=0 03500 PRINT"You are in the dumbwaiter." 03510 GOTO 6090 03520 S=1 03530 PRINT"You are in a dark tunnel. It appears as if the only" 03540 PRINT"to go is to the south...there are massive boulders" 03550 PRINT"blocking your way on all other sides." 03560 GOTO 6090 03570 N=1\W=1 03580 PRINT"You are crawling on your hands and knees in a very" 03590 PRINT"low, narrow tunnel. It is cold and damp. To the " 03600 PRINT"west and north the tunnel extends into the darkness." 03610 GOTO 6090 03620 S=1\D1=1 03630 PRINT"You are in the Foyer. There is a heavy oak door on" 03640 PRINT"the north wall. There is also a doorway to the " 03650 PRINT"south." 03660 GOTO 6090 03670 N=1\S=1\E=1\W=0\U=0\D=0 03680 PRINT"You are in a Hallway. To the north and south are" 03690 PRINT"doorways. To the east is a large staircase " 03700 PRINT"heading up into the darkness." 03710 GOTO 6090 03720 N=1\S=1\E=1\W=0\U=0\D=0 03730 PRINT"You are in a Hallway. To the north and south are" 03740 PRINT"doorways. To the east is an archway with darkness" 03750 PRINT"beyond." 03760 GOTO 6090 03770 N=1\U=1 03780 PRINT"You are in an old Library. Books covered with dust" 03790 PRINT "line the walls. There is a door to the north, and there" 03800 PRINT "seems to be a small hatch in the ceiling." 03810 GOTO 6090 03820 N=0\S=0\E=1\W=0\U=0\D=0 03830 PRINT"You are in a Closet. There is dust and debris" 03840 PRINT"everywhere." 03850 GOTO 6090 03860 U=1\W=1 03870 PRINT"You are on a large Staircase. It extends from the" 03880 PRINT"darkness above to the darkness below. The stairs" 03890 PRINT"creak as you step. . . . " 03900 GOTO 6090 03910 N=0\S=1\E=1\W=1\U=0\D=0 03920 PRINT"You are now in a huge Ballroom. Dust and cobwebs" 03930 PRINT"hang from the walls. To the west is an archway. To" 03940 PRINT"the south and east are doors leading into darkness." 03950 GOTO 6090 03960 N=1\S=0\E=1\W=0\U=0\D=0 03970 PRINT"You are in a closet." 03980 GOTO 6090 03990 N=0\S=0\E=1\W=1\U=0\D=0 04000 PRINT"You are in an old Bathroom. A toilet sits ominously" 04010 PRINT"in the corner. There is a doorway to the east and " 04020 PRINT"one to the west." 04030 GOTO 6090 04040 N=0\S=1\E=1\W=0\U=0\D=0 04050 PRINT"You are in a Study. An old desk is in the center of" 04060 PRINT"the room with years of dust and dirt caked upon it." 04070 PRINT"Fresh footprints lead through a door to the south." 04080 PRINT"Perhaps you are not alone. . . There is a doorway" 04090 PRINT"to the east." 04100 GOTO 6090 04110 N=1\S=1\E=1\W=1\U=0\D=0 04120 PRINT"You are in the west end of a Living Room. The " 04130 PRINT"furniture is covered with sheets. To the north " 04140 PRINT"there is a doorway, and perhaps to the west and " 04150 PRINT"south as well. It is difficult to tell for sure." 04160 GOTO 6090 04170 P=1\N=1\W=1\E=1\D=1\P$="ON" 04180 PRINT"You are in an Aviary, long since void of any birds." 04190 PRINT"To the east, west, and north are doors leading to" 04200 PRINT"darkness. Suddenly you hear the sound of thousands" 04210 PRINT"of wings....BATS surround you!!!" 04220 GOTO 6090 04230 N=0\S=1\E=1\W=1\U=0\D=0 04240 PRINT"You are in the Kitchen. The smell of leaky gas is " 04250 PRINT"almost overwhelming... There are doors to the west" 04260 PRINT"and south, and a massive steel door to the east." 04270 PRINT"It is cold to the touch..." 04280 IF L<>1 THEN 3980 04290 PRINT"......K A B O O O M!!!!!" 04300 GOTO 8540 04310 GOTO 6090 04320 N=1\S=1\W=1 04330 PRINT"You are in an old Dining Hall. Perhaps as many" 04340 PRINT"as 30 chairs line a huge table. Doors lead to" 04350 PRINT"the west, and maybe elsewhere..." 04360 GOTO 6090 04370 N=1\S=1\E=1\W=1 04380 PRINT"You are in the east end of a large Living Room." 04390 PRINT"There is darkness to the west, and a door to " 04400 PRINT"the south." 04410 GOTO 6090 04420 N=1\E=1\W=1 04430 PRINT"You are in a Sitting Room. A ruined dust covered" 04440 PRINT"couch lines the east wall. Somewhere nearby you" 04450 PRINT"can hear the sound of beating wings..." 04460 GOTO 6090 04470 N=0\S=1\E=0\W=0\U=1\D=1 04480 PRINT"You are in a meat locker. It is very cold." 04490 PRINT"To the west is a massive steel door. To the" 04500 PRINT"south is a tiny door, placed on the wall." 04510 GOTO 6090 04520 U=1\D=1\N=1 04530 PRINT"You are in a dumbwaiter." 04540 GOTO 6090 04550 W=1\S=1 04560 PRINT"You are in a den. Rats scurry into holes as you" 04570 PRINT"enter. A moose head on the wall watches your" 04580 PRINT"every move....." 04590 GOTO 6090 04600 N=1\W=1 04610 PRINT"You have entered a room full of ghosts!!" 04620 PRINT"But wait.. they are engrossed in a game on" 04630 PRINT"a computer terminal...It looks like they are" 04640 PRINT"playing ADVENTURE......" 04650 GOTO 6090 04660 N=0\S=1\E=1\W=0\U=0\D=0 04670 PRINT"You are in the west end of what appears to" 04680 PRINT"be the Master Bedroom. To the east is " 04690 PRINT"darkness. A doorway MIGHT be to the north," 04700 PRINT"but it is dark...." 04710 GOTO 6090 04720 N=1\S=1 04730 PRINT"You are in a Bathroom. A toilet sits in the " 04740 PRINT"corner. To the north and south are doors." 04750 GOTO 6090 04760 N=1\S=1\E=1 04770 PRINT"You are in the west end of a Bedroom. To the" 04780 PRINT"south is a door. To the east is darkness. There" 04790 PRINT"is a doorway to the north." 04800 GOTO 6090 04810 N=1 04820 PRINT"You are in a closet." 04830 GOTO 6090 04840 E=1\W=1 04850 PRINT"You are in the center of the Master Bedroom." 04860 PRINT"You can see nothing but darkness in any direction." 04870 GOTO 6090 04880 D=1\E=1 04890 PRINT"You are on a large Staircase. It extends from the" 04900 PRINT "darkness above to the darkness below. The stairs" 04910 PRINT"creak as you step." 04920 GOTO 6090 04930 W=1 04940 PRINT"You are in the east end of a Bedroom." 04950 GOTO 6090 04960 U=1\E=1 04970 PRINT "You are in a large Staircase. It extends from the" 04980 PRINT"darkness above to the darkness below. The stairs" 04990 PRINT"creak as you step." 05000 GOTO 6090 05010 S=1\W=1\E=1 05020 PRINT"You are in the east end the Master Bedroom. There" 05030 PRINT"are doorways to the east and south with darkness" 05040 PRINT "to the west." 05050 GOTO 6090 05060 N=1\E=1\W=1 05070 PRINT "You are in a Hallway with door to the north" 05080 PRINT"and a large painting on the south wall." 05090 GOTO 6090 05100 E=1 05110 PRINT "You are in a sort of Reading Room. There is a " 05120 PRINT"door on the east wall." 05130 GOTO 6090 05140 E=1\W=1 05150 PRINT "You are within a Hallway. There is a staircase" 05160 PRINT" to the west." 05170 GOTO 6090 05180 W=1\S=1\E=1 05190 PRINT "You are in a closet." 05200 GOTO 6090 05210 N=1\W=1\S=1 05220 PRINT"You are in a Hallway. There is darkness all around." 05230 GOTO 6090 05240 N=1\W=1\S=1 05250 PRINT"You are in a Hallway. There is darkness all around." 05260 GOTO 6090 05270 N=1\W=1\E=1 05280 PRINT "You are in a Hallway. There is darkness all around." 05290 GOTO 6090 05300 W=1\P=1 05310 PRINT"You are in an empty room. Suddenly flies begin" 05320 PRINT"to swarm around you!!!! A voice murmers.." 05330 PRINT".....FOR GOD'S SAKE GET OUT!!!!..." 05340 P$="SWAT" 05350 GOTO 6090 05360 U=1\D=1\S=1 05370 PRINT"You are in a Dumbwaiter." 05380 GOTO 6090 05390 N=1\S=1 05400 PRINT"You are in a vomitorium. This is the room where" 05410 PRINT"the ghosts go after they overeat...the smell is " 05420 PRINT"disgusting." 05430 GOTO 6090 05440 W=1\N=1 05450 PRINT"You are in an Observatory. An abandoned telescope" 05460 PRINT"points to the east, but the lense is old and " 05470 PRINT"cracked. There are doors to the north and west." 05480 GOTO 6090 05490 S=1\E=1 05500 PRINT"You are in the Music Room. Old, dust covered" 05510 PRINT"musical instruments lie everywhere." 05520 GOTO 9820 05530 GOTO 6090 05540 E=1\N=1 05550 PRINT"You are in a Trophy Room. Hundreds of golden" 05560 PRINT"trophies cover the walls and fill the cabinets!" 05570 PRINT"There are doorways to the north and south." 05580 GOTO 6090 05590 S=1\E=1 05600 PRINT"You are in a Bedroom filled with many spiders, just" 05610 PRINT"waiting for something or someone to fall entrapped" 05620 PRINT"in their webbing." 05630 GOTO 6090 05640 N=1 05650 PRINT"You are in an Old Bathroom. A toilet sits ominously" 05660 PRINT"in the corner." 05670 GOTO 6090 05680 E=1\W=1\S=1\P=1\P$="SPRAY" 05690 PRINT"You are in a Large Bedroom. Ghosts advance upon you" 05700 PRINT"with ominous toilets. There is darkness to the east" 05710 PRINT"and west, but a doorway lies to the south." 05720 GOTO 6090 05730 N=1\W=1\S=1\E=1\P=1\P$="CHOP" 05740 PRINT"You are in the east end of the Greenhouse Room." 05750 PRINT"Man-eating plants lunge at you. There is a doorway " 05760 PRINT"to the east." 05770 GOTO 6090 05780 N=1\W=1\E=1 05790 PRINT"You are in a Bedroom that once belonged to a " 05800 PRINT "posessed child." 05810 GOTO 6090 05820 D=1\W=1 05830 PRINT"You are on a Stairway. There is darkness in all" 05840 PRINT"directions. " 05850 GOTO 6090 05860 P=1\W=1\S=1\E=1\P$="SPRAY" 05870 PRINT"You are in a Large Bedroom. The ghosts are look-" 05880 PRINT"for recruits. There is a doorway to the east, " 05890 PRINT"darkness to the north and west. Who knows what" 05900 PRINT"lies to the south." 05910 GOTO 6090 05920 05930 PRINT "CHEKOV HERE: IT'S A ROMULAN WITH A CLOAKING DEVICE!!" 05940 PRINT "153 UNIT HIT FROM QUADRANT (2,5): (243 REMAINING)" 05950 PRINT "167 UNIT HIT FROM QUADRANT (3,7): ( 76 REMAINING)" 05960 PRINT "112 UNIT HIT FROM QUADRANT (3,2): (-36 REMAINING)" 05970 PRINT 05980 PRINT "THE ENTERPRISE HAS BEEN DESTROYED." 05990 PRINT "THE FEDERATION WILL BE DESTR%^ &*$ #@$&*(" 06000 PRINT "^&*GEBJ &*(SB +@^%^&*@ HS$@~W" 06010 GOTO 680 06020 W=1\S=1\E=1 06030 PRINT"You are in a Hallway. Your fate is in your" 06040 PRINT"own hands." 06050 GOTO 6090 06060 N=1\W=1\E=1 06070 PRINT"You are in a Bedroom." 06080 GOTO 6090 06090 W1=1\W=1\E=1 06100 PRINT"You are in the Ghost's Closet. Numerous sheets" 06110 PRINT"hang from hooks. There is a window to the north." 06120 GOTO 6090 06130 E=1\S=1 06140 PRINT"You are in a Hallway. There is a doorway to the" 06150 PRINT"east. Darkness surrounds you." 06160 GOTO 6090 06170 N=1\W=1\E=1 06180 PRINT"You are in a Hallway." 06190 GOTO 6090 06200 W=1 06210 PRINT"You are in a closet. Who knows what queer things" 06220 PRINT"are hiding there?" 06230 GOTO 6090 06240 W=1\S=1 06250 PRINT"You are in the Ghost's Study. It is filled with" 06260 PRINT"books and magazines about famous ghosts." 06270 GOTO 6090 06280 D=1\W=1\N=1 06290 PRINT"You are in a Dumbwaiter." 06300 GOTO 6090 06310 W=1\S=1 06320 PRINT"You are in the servant's quarters, long since" 06330 PRINT"vacated. There is a door to the south." 06340 GOTO 6090 06350 W=1\N=1 06360 PRINT"You are in the maids quarters, but it is empty." 06370 PRINT"There are broken boards on the west wall," 06380 PRINT"perhaps you can squeeze through...." 06390 GOTO 6090 06400 REM ************ C H E C K R O U T I N E ********" 06410 IF B(A+B+C)=0 THEN 6110 06420 PRINT "There is a small box here." 06430 M=M+1 06440 S1=S1-1 06450 IF S1<=0 THEN 6250 06460 IF S1=1 THEN 6230 06470 IF S1=5 THEN 6210 06480 IF S1=10 THEN 6180 06490 GO TO 6270 06500 PRINT"Nature will soon call...You had better find a" 06510 PRINT"bathroom." 06520 GOTO6270 06530 PRINT"You had better go soon!!" 06540 GOTO6270 06550 PRINT"You can't hold it any longer!!!!" 06560 GOTO6270 06570 X=0 06580 GOTO 6520 06590 IF F=1 THEN 6320 06600 IF L=1 THEN 6360 06610 IF F=1 THEN 6510 06620 IF M=1 THEN 1380 06630 GOTO 8420 06640 B4=B4-1 06650 IF B4=10 THEN 6400 06660 IF B4=0 THEN 6420 06670 GOTO6280 06680 K3=K3-1 06690 IF K3=10 THEN 6470 06700 IF K3=0 THEN 6490 06710 GOTO6510 06720 PRINT"Your flashlight is running low." 06730 GOTO6280 06740 PRINT"Your flashlight is dead." 06750 F=0 06760 IF K3>0 THEN 6280 06770 GOTO 8420 06780 GOTO 6510 06790 PRINT"Your kerosene is running low." 06800 GOTO 6510 06810 PRINT"Your lantern is out of fuel." 06820 L=0 06830 GOTO 1380 06840 T=A+B+C 06850 IF T=132 THEN 6590 06860 IF T=213 THEN 6590 06870 IF T=414 THEN 6590 06880 IF T=431 THEN 6580 06890 GOTO 6710 06900 PRINT"OOUUCCHH!! OOOOOO!! AAHHHHH!!!" 06910 PRINT"You have successfully gone to the bathroom." 06920 PRINT"What next"; 06930 INPUT Q$ 06940 IF Q$<>"WIPE" THEN 6670 06950 PRINT"Good. You have saved yourself from the wolverines." 06960 S1=S9 06970 IF X=1 THEN 1520 06980 GOTO 6270 06990 PRINT"You neglected to clean up. A pack of wolverines" 07000 PRINT"have been attracted by the scent and have devoured" 07010 PRINT"you." 07020 GOTO 8540 07030 PRINT"You did it right on the floor! How gross!" 07040 PRINT"But worse, you have attracted the wolverines," 07050 PRINT"which have eaten both the feces(first) and you" 07060 PRINT"(second), which says something about you." 07070 GOTO 8380 07080 IF X=1 THEN 1520 07090 GOTO 6270 07100 IF Q$="ON" THEN 6950 07110 PRINT"What do you want to turn off"; 07120 INPUT Q$ 07130 IF Q$="FLASHLIGHT" THEN 6860 07140 IF Q$="FLASH" THEN 6860 07150 IF Q$="RADAR" THEN 6930 07160 PRINT"What on earth is a "Q$" ?" 07170 GOTO 1520 07180 IF F=0 THEN 6900 07190 F=0 07200 PRINT "O.K.!!! Your flashlight is off." 07210 GOTO 1490 07220 PRINT "Are you stupid???!!? It's not on!!" 07230 GOTO 1490 07240 GOTO 1520 07250 PRINT "The Radar Jammer is not on." 07260 GOTO 1520 07270 PRINT"What do you want to turn on"; 07280 INPUT Q$ 07290 IF Q$="FLASHLIGHT" THEN 7040 07300 IF Q$="FLASH" THEN 7040 07310 IF Q$="RADAR" THEN 7020 07320 PRINT"A what?" 07330 GOTO 6950 07340 PRINT"The Radar Jammer does not seem to work here." 07350 GOTO 1490 07360 IF F=1 THEN 7080 07370 F=1 07380 PRINT"Your flashlight cuts a narrow swath in the darkness." 07390 GOTO 1490 07400 PRINT"What, are you blind?!? It's already on!" 07410 GOTO 1490 07420 IF L=0 THEN 7140 07430 PRINT"OK, the lantern is out." 07440 L=0 07450 GOTO 1520 07460 PRINT"It's already out, DUMMY!!" 07470 GOTO 1520 07480 W1=A+B+C 07490 IF W1=152 THEN 7200 07500 PRINT"There is nothing here to pry." 07510 GOTO 1520 07520 W=1 07530 PRINT"You have pried open the Meatlocker door." 07540 GOTO 1520 07550 IF L=1 THEN 7340 07560 E1=A+B+C 07570 IF E1=142 THEN 8930 07580 IF E1=111 THEN 8930 07590 IF E1=421 THEN 8930 07600 IF K3>0 THEN 7310 07610 PRINT "You can't light the lantern; you're out of fuel." 07620 GOTO 1520 07630 PRINT "The lantern casts eerie shadows on the wall." 07640 L=1 07650 GOTO 1520 07660 PRINT"You just burned your fingers because the lantern" 07670 PRINT"is already lit! Boy, are you dumb." 07680 GO TO 1520 07690 P8=K*P9+M 07700 PRINT"You have accumulated "P8" points so far." 07710 GOTO 1490 07720 S2=A+B+C 07730 IF S2=114 THEN 7470 07740 IF S2=124 THEN 7470 07750 IF S2=134 THEN 7470 07760 PRINT"Your spraying has no effect on anything in the " 07770 PRINT"room. The spray does, however, smell pretty bad." 07780 GOTO 1520 07790 PRINT"The ghosts shy away from you, but still look at" 07800 PRINT"you hungrily..." 07810 GOTO 1520 07820 C1=A+B+C 07830 IF C1=214 THEN 7570 07840 IF C1=224 THEN 7570 07850 PRINT"You have severed the head of the snake. There is " 07860 PRINT"nothing else in the box." 07870 B(A+B+C)=0 07880 GOTO 1520 07890 IF RND(0)<-.05*K+.95 THEN 7600 07900 PRINT "You have damaged the plants, but it wasn't enough." 07910 GOTO 8460 07920 PRINT "You have damaged the plants in this part of the" 07930 PRINT "room enough to manuever safely for a short while." 07940 GOTO 1520 07950 PRINT"There is not much here to chop. If you continue" 07960 PRINT"to chop so freely, you may hurt yourself." 07970 GOTO 1520 07980 IF A+B+C=111 THEN 7690 07990 PRINT"There is nothing here to fill the lantern with." 08000 GOTO 1520 08010 PRINT"The lantern is now full." 08020 K3=K9 08030 GOTO 1520 08040 IF B(6)=1 THEN 7750 08050 PRINT"You don't have any spare batteries!" 08060 GOTO 1520 08070 PRINT"Duracell...the most MACHO battery you can buy!" 08080 B(6)=0 08090 B4=B9 08100 GOTO 1520 08110 REM TAKE ROUTINE..... 08120 IF INSTR(Q1$," ")=0 THEN 7830 08130 Q$=MID$(Q1$,INSTR(Q1$," ")+1) 08140 GOTO 7850 08150 PRINT "Take? Take What"; 08160 INPUT Q$ 08170 IF Q$="KEY" THEN 8300 08180 IF Q$="WATCH" THEN 7930 08190 IF Q$="COINS" THEN 7990 08200 IF Q$="DIAMONDS" THEN 8050 08210 IF LEFT$(Q$,4)="BATT" THEN 8210 08220 IF Q$="SNAKE" THEN 8110 08230 GOTO 9950 08240 GOTO 1490 08250 IF B(A+B+C)=8 THEN 7960 08260 PRINT"Watch? There is no watch here!" 08270 GOTO 1490 08280 PRINT"It looks good on you, too!" 08290 P9=P9+10 08300 B(8)=1 08310 GOTO 8280 08320 IF B(A+B+C)=9 THEN 8020 08330 PRINT"Coins? There are no coins here!" 08340 GOTO 1490 08350 PRINT"Your pockets are now stuffed full of coins!" 08360 P9=P9+10 08370 B(9)=1 08380 GOTO 8280 08390 IF B(A+B+C)=10 THEN 8080 08400 PRINT"Diamonds are forever, but there are none here!" 08410 GOTO 1490 08420 PRINT"Your pockets are now full of diamonds! Lucky you!" 08430 P9=P9+10 08440 B(10)=1 08450 GOTO 8280 08460 IF B(A+B+C)=7 THEN 8140 08470 PRINT "There's no snake here!" 08480 GOTO 1520 08490 PRINT"What's that for? A souvenier to show " 08500 PRINT"the guys back home? In any case, you now" 08510 PRINT"are carrying a dead snake with you." 08520 P9=P9+10 08530 B(7)=1 08540 B(A+B+C)=0 08550 GOTO 1520 08560 IF B(A+B+C)=6 THEN 8240 08570 PRINT"Sorry! No batteries in here!" 08580 GOTO 1520 08590 PRINT "And they're Duracells! Wise move!" 08600 B(A+B+C)=0 08610 P9=P9+10 08620 B(6)=1 08630 B(A+B+C)=0 08640 GOTO 1520 08650 IF B(A+B+C)=4 THEN 8340 08660 IF B(A+B+C)=5 THEN 8340 08670 PRINT "Key? There's no key in here!" 08680 GOTO 1520 08690 PRINT "O.K." 08700 B(B(A+B+C))=1 08710 B(A+B+C)=0 08720 GOTO 1520 08730 IF P$="CHOP" THEN 8460 08740 IF P$="SPRAY" THEN 8480 08750 IF P$="SWAT" THEN 9590 08760 GO TO 8540 08770 PRINT"You are surrounded by darkness.....thousands of" 08780 PRINT"dwarves and goblins, no longer afraid of you," 08790 PRINT"attack and devour you!!!! AAAAARRRRRRGGHHH!!!" 08800 GOTO 8540 08810 PRINT"You have been mercilously devoured!!!!" 08820 GOTO 8540 08830 PRINT"The ghosts have strapped you to the bed and" 08840 PRINT"smothered you!!!!" 08850 GOTO 8540 08860 PRINT"The bats have pecked your eyes out and you" 08870 PRINT"you have bled to a hideous death!!!!" 08880 GOTO 8540 08890 PRINT"You are no longer in the house or the game." 08900 PRINT"You were in the house for exactly "M-1" moves." 08910 P8=K*P9+M 08920 PRINT"You scored a total of "P8" points." 08930 PRINT"Do you want to play again"; 08940 INPUT W$ 08950 IF W$="YES" THEN 10 08960 STOP 08970 IF Q$<>P$ THEN 8510 08980 PRINT"What do you want to turn on"; 08990 INPUT T$ 09000 IF T$="RADAR" THEN 8670 09010 GOTO 8510 09020 PRINT"By turning on your radar-jammer you have" 09030 PRINT"confused the bats into thinking that you " 09040 PRINT"are not in the room. You can move around." 09050 GOTO 1520 09060 FOR N9= 1 TO 5 09070 PRINT 09080 NEXT N9 09090 RETURN 09100 PRINT "The sheets have broken and you have fallen to a" 09110 PRINT "painful death." 09120 GOTO 8540 09130 PRINT "This instruction is not clear." 09140 PRINT "What next"; 09150 INPUT Q$ 09160 IF Q$<>"DWEEB" THEN 1530 09170 GOSUB 8710 09180 GOSUB 8710 09190 GOSUB 8710 09200 GOSUB 8710 09210 PRINT "INPUT ROOM COORDINATES: A,B,C:"; 09220 INPUT A,B,C 09230 IF A>4 THEN 8921 09240 IF B>5 THEN 8921 09250 IF C>4 THEN 8921 09260 A=A*100\B=B*10 09270 GOSUB 8710 09280 GOSUB 8710 09290 GOSUB 8710 09300 GOTO 750 09310 PRINT" You have just blasted yourself into the afterworld!!!" 09320 GOTO 8540 09330 PRINT".......K A B O O O M!!!!!!" 09340 GOTO 8540 09350 PRINT"What do you want to read"; 09360 INPUT Q$ 09370 IF Q$<>"DICTIONARY" THEN 9040 09380 PRINT"You open the dictionary....it says..." 09390 PRINT"Ahhhh...too bad. It is written in ghost language." 09400 PRINT"Do you know how to read ghost language"; 09410 INPUT Q$ 09420 IF Q$="YES" THEN 9100 09430 GOTO1520 09440 IF Q$="BOOK" THEN 9150 09450 IF Q$="BOOKS" THEN 9150 09460 IF Q$="MAGAZINE" THEN 9150 09470 IF Q$="MAGAZINES" THEN 9150 09480 PRINT"You can't read a "Q$" , FOOL!!" 09490 GOTO 1520 09500 PRINT"What does IARANDME mean"; 09510 INPUT Q$ 09520 IF Q$="IAMANERD" THEN 9141 09530 IF Q$="IAMA NERD" THEN 9141 09540 IF Q$="IAM ANERD" THEN 9141 09550 IF Q$="IAM A NERD" THEN 9141 09560 IF Q$="I AMANERD" THEN 9141 09570 IF Q$="I AMA NERD" THEN 9141 09580 IF Q$="I AM ANERD" THEN 9141 09590 IF Q$="I AM A NERD" THEN 9141 09600 PRINT"That is not correct. That means you lied, and" 09610 PRINT"this house does not like a LIAR!!" 09620 GOTO 8540 09630 PRINT"That is CORRECT!! You must be a NERD to understand" 09640 PRINT"ghost language." 09650 PRINT"All is not lost however. All you have to do is talk to ..." 09660 A9=1 09670 GOTO 9280 09680 R1=(A+B+C) 09690 IF R1=412 THEN 9620 09700 IF R1=333 THEN 9650 09710 IF R1=154 THEN 9730 09720 PRINT"There are none here to read!" 09730 GOTO 1490 09740 PRINT 09750 PRINT 09760 PRINT 09770 PRINT" SUDDENLY......" 09780 PRINT" an icy chill races down your spine; Someone is behind you!!" 09790 PRINT" you turn........" 09800 PRINT" It's" 09810 PRINT" !! T E D K E N N E D Y !!" 09820 PRINT 09830 PRINT" He offers to show you the way out; " 09840 PRINT" will you follow him"; 09850 INPUT H$ 09860 IF H$="YES" THEN 9430 09870 IF H$="NO" THEN 9390 09880 PRINT" Are you speaking English,son?? Now please " 09890 PRINT" say yes or no to the Senator." 09900 PRINT" Well"; 09910 GOTO9320 09920 PRINT 09930 PRINT 09940 IF A9=1 THEN 9421 09950 PRINT" At this, Ted shrugs and walks away, shaking his head.." 09960 GOTO 1410 09970 PRINT"'I HATE NERDS!!!'" 09980 PRINT" shouts the good senator as he smashes you to a pulp." 09990 A9=0 10000 GOTO 8540 10010 IF RND(0)>.50 THEN 9460 10020 PRINT 10030 IF A9<>1THEN 9450 10040 PRINT" 'You got away with it this time.'" 10050 PRINT" theatens the good senator." 10060 A9=0 10070 GOTO 2080 10080 PRINT 10090 PRINT" Ah Ted, shouldn't we be going left here??" 10100 PRINT" TED, left.... NO TED, LEFT.....LEFT!!!!!" 10110 PRINT 10120 PRINT" ooops, looks like Ted missed that turn, but he'll" 10130 PRINT" be back in a week to pull you out (or rather dredge" 10140 PRINT" you up)." 10150 A9=0 10160 GOTO 8540 10170 GOTO8540 10180 PRINT"There is nothing here to swat!" 10190 GOTO 1490 10200 PRINT"You have miraculously killed all the flies." 10210 GOTO 1490 10220 PRINT"The flies have eaten all the skin off your body!" 10230 PRINT"You have bled to a hideous skinless death!" 10240 GOTO 8540 10250 PRINT"All the pages are the same... they say" 10260 PRINT"'If here ye rise, thence shall ye not fall back.'" 10270 GOTO 1520 10280 PRINT"Every page is the same! The writing says..." 10290 PRINT 10300 PRINT" HICJACKET" 10310 PRINT"What next"; 10320 INPUT Q$ 10330 IF Q$<>"HICJACKET" THEN 1540 10340 A=100\B=10\C=2 10350 GOTO 750 10360 PRINT"Hmm..this seems to be written in Swedish!" 10370 PRINT"Each page says.." 10380 PRINT" 'Oh, yah...on chancer der boom-boom!" 10390 PRINT" VIRDE !'" 10400 PRINT"What next"; 10410 INPUT Q$ 10420 IF Q$<>"VIRDE" THEN 1540 10430 A=100\B=10\C=1 10440 GOTO 750 10450 IF V=0 THEN 6090 10460 PRINT"There is a beautiful Stradivarius violin here!" 10470 GOTO 6090 10480 IF Q$="VIOLIN" THEN 10000 10490 IF Q$="TROPHIES" THEN 10100 10500 IF Q$="KNAPSACK" THEN 10200 10510 PRINT"You can't take the "Q$" !!" 10520 GOTO 1490 10530 IF (A+B+C)=114 THEN 10020 10540 PRINT"There is no violin here!" 10550 GOTO 1490 10560 IF V=0 THEN 10005 10570 PRINT"You are now the proud owner of a violin!" 10580 P9=P9+K 10590 B(30)=1 10600 V=0 10610 GOTO 1490 10620 IF (A+B+C)=214 THEN 10130 10630 PRINT"There are no trophies here." 10640 GOTO 1490 10650 IF T1=0 THEN 10160 10660 IF S5=1 THEN 10180 10670 PRINT"You can't possibly carry any of these without" 10680 PRINT"some form of help." 10690 GOTO 1490 10700 PRINT"There are no trophies here which can be carried" 10710 PRINT"anywhere, except for the ones in your knapsack." 10720 PRINT"Getting awfully greedy, aren't we?" 10730 GOTO 1490 10740 PRINT"You have taken all the trophies in the room" 10750 PRINT"which will fit in your knapsack. These will" 10760 PRINT"look real nice on the mantel back home!" 10770 S5=0 10780 P9=P9+K 10790 B(29)=1 10800 GOTO 1490 10810 IF B(A+B+C)=12 THEN 10250 10820 PRINT"There is no knapsack here." 10830 GOTO 1490 10840 PRINT"You now are wearing a knapsack on your back." 10850 S5=1 10860 B(12)=1 10870 GOTO 8280 10880 PRINT "You have....." 10890 FOR N8=1TO30 10900 IF B(N8)= 0 THEN 10290 10910 PRINT"..."MID$(B$(N8),INSTR(B$(N8)," ")+1) 10920 I1=1 10930 NEXT N8 10940 IF I1=1 THEN 10304 10950 PRINT "....nothing at all!" 10960 I1 = 0 10970 GOTO 1520 10980 PRINT"To move around the house, type map directions like" 10990 PRINT"NORTH (N), EAST (E), or UP (U). All other commands" 11000 PRINT"are action words such as `LOOK' or `LIGHT'. Some" 11010 PRINT"action words that take objects may be entered" 11020 PRINT"as two-word commands. Your common sense will help" 11030 PRINT"you the most. To see what you are carrying, type" 11040 PRINT"INVENTORY (INVE). Strange things will occur from" 11050 PRINT"time to time, so beware!" 11060 GOTO 1520 11070 END