6502/8bitworkshop
1
0
Fork 0
mirror of https://github.com/sehugg/8bitworkshop.git synced 2024-11-29 14:51:17 +00:00
Code Issues Projects Releases Wiki Activity
4ccf588c80
8bitworkshop/presets/basic/haunted.bas

1446 lines
40 KiB
QBasic
Raw Blame History

OPTION DIALECT DEC:REM http://www.bitsavers.org/bits/DEC/pdp10/games/
00001 PRINT " This is the latest version as of 2-Jun-82."
00005 DIM B$(30)
00010 F=0
00011 L=0
00012 M=0
00013 P8=0
00014 P9=0
00015 S5=0
00016 T1=1
00017 V=1
00020 FOR A=100 TO 400 STEP 100
00030 FOR B = 10 TO 50 STEP 10
00040 FOR C= 1 TO 4
00050 B(A+B+C)=0
00060 NEXT C
00070 NEXT B
00080 NEXT A
00090 DIM B(454)
00100 RANDOMIZE
00110 FOR N5=1 TO 12
00120 A=(INT(4*RND+1))*100
00130 B=(INT(5*RND+1))*10
00140 C=(INT(4*RND+1))
00142 IF (A+B+C)=151 THEN 120
00144 IF (A+B+C)=234 THEN 120
00150 IF B(A+B+C)<>0 THEN 120
00160 B(A+B+C)=N5
00170 B(N5)=0
00180 NEXT N5
00185 B(28)=0
00186 B(29)=0
00187 B(30)=0
00190 B$(1)="is nothing....it's empty"
00192 B$(30)="is a violin."
00193 B$(29)="are many trophies in the knapsack."
00194 B$(28)="is a large snake, with its head neatly sliced off!"
00200 B$(2)=B$(1)
00210 B$(3)=B$(1)
00220 B$(4)="is a key."
00230 B$(5)="is a key."
00240 B$(6)="are some batteries."
00250 B$(7)="is a large, poisonous snake..ready to bite!!!"
00260 B$(8)="is a beautiful gold pocket watch!"
00270 B$(9)="are some golden coins!!!"
00280 B$(10)="are some sparkling diamonds!!"
00285 B$(11)="is an ambiguity."
00288 B$(12)="is a knapsack."
00290 REM This is the Haunted House Game. It was conceived
00300 REM primarily by Rich Stratton, with Rich Gould and
00310 REM Norm Hurst.
00320 REM November, 1979
00330 REM
00340 REM
00341 REM 20-May-82/Converted to run with BASIC-10/20/+2
00342 REM /Added remaining room on level 1/Allowed taking snake & text
00343 REM /Allow multi word commands for ON,OFF,READ,TIE,WIPE
00344 REM /Allow lower case commands/Allow second take on trophies
00345 REM /Made room descriptions unique/Allow INVEN for INVENTORY
00346 REM /Allow D for DOWN at window/Made INVEN say 'collected'
00347 REM /Count LOOK only as time, not movement (for scoring)
00348 REM /Allow READ to use next command if not a special word
00349 REM
00350 REM Scoring: <Points for escape; taking watch,coins,diamonds,snake,
00351 REM batteries,violin,trophies>*level+number of moves made
00352 REM Taking knapsack and either key does not count
00360 PRINT
00361 PRINT "Welcome to the Haunted House."
00370 PRINT "Do you want Instructions";
00380 INPUT Q$
00382 GOSUB 30000
00390 if Q$="YES" then 400
00391 if Q$="Y" then 400
00392 GO TO 590
00400 PRINT "You are about to begin a perilous journey."
00410 PRINT "You will wake up and find yourself in one of"
00420 PRINT "the many rooms of an old mansion---a mansion"
00430 PRINT "which has been abandoned and is now infested with"
00440 PRINT "Evils and Unspeakable Deaths of many kinds."
00450 PRINT "You must escape from the confines of the house."
00460 PRINT "By using single-word comands you may move through"
00470 PRINT "the maze of old rooms. You have the following items"
00480 PRINT "with you:"
00490 PRINT " TOILET PAPER"
00500 PRINT " CROWBAR"
00510 PRINT " LANTERN"
00520 PRINT " FLASHLIGHT"
00530 PRINT " RADAR JAMMER"
00540 PRINT " MACHETE"
00550 PRINT " A CAN OF GHOST REPELLANT"
00560 PRINT " MATCHES"
00570 PRINT " A DICTIONARY"
00575 PRINT " FLY-SWATTER"
00580 PRINT "Use your common sense to tell you what to do...."
00585 PRINT "Type 'HELP' for help."
00590 PRINT "Select your difficulty level: 1 (easy) to 9 (hard)."
00600 INPUT K
00602 IF K<1 THEN 606
00603 IF K>9 THEN 606
00604 GO TO 610
00606 PRINT "Having a problem with your basic numbers?"
00607 GO TO 590
00610 S9=INT((-10*K)+110)
00620 B9=INT((-4.38*K)+64.38)
00630 K9=B9
00640 B4=B9
00641 K3=K9
00642 S1=S9
00645 G=G+1
00650 GOSUB 8710
00652 IF G<>3 THEN 660
00654 PRINT "....thunder wakes you and you have the clap...."
00656 GO TO 670
00660 PRINT "....a clap of thunder wakes you and ...."
00670 GOSUB 8710
00680 A=(INT(4*RND+1))*100
00690 B=(INT(5*RND+1))*10
00700 C=(INT(4*RND+1))
00710 GOSUB 8710
00720 N=0
00721 S=0
00722 E=0
00723 W=0
00724 U=0
00725 D=0
00730 P=0
00731 D1=0
00732 W1=0
00740 ON C THEN 760,770,780,790
00750 GO TO 710
00760 ON B/10 THEN 800,810,820,830,840
00770 ON B/10 THEN 850,860,870,880,890
00780 ON B/10 THEN 900,910,920,930,940
00790 ON B/10 THEN 950,960,970,980,990
00800 ON A/100 THEN 2280,2360,2410,2470
00810 ON A/100 THEN 2480,2530,2570,2620
00820 ON A/100 THEN 2720,2770,2810,2850
00830 ON A/100 THEN 2910,2960,3000,3050
00840 ON A/100 THEN 3100,3160,3190,3240
00850 ON A/100 THEN 3290,3340,3390,3440
00860 ON A/100 THEN 3490,3530,3580,3630
00870 ON A/100 THEN 3660,3710,3780,3840
00880 ON A/100 THEN 3900,3990,4040,4090
00890 ON A/100 THEN 4140,4190,4220,4270
00900 ON A/100 THEN 4330,4390,4430,4480
00910 ON A/100 THEN 4510,4550,4600,4630
00920 ON A/100 THEN 4680,4730,4770,4810
00930 ON A/100 THEN 4850,4880,4910,4940
00940 ON A/100 THEN 4970,5030,5060,5110
00950 ON A/100 THEN 5160,5220,5270,5320
00960 ON A/100 THEN 5360,5410,5460,5500
00970 ON A/100 THEN 5540,5600,5700,5740
00980 ON A/100 THEN 5770,5810,5850,5880
00990 ON A/100 THEN 5920,5960,5990,6030
01000
01010 REM MOVEMENT CONTROL...
01020 PRINT N;S;E;W;U;D
01030 IF Q$="N" THEN 1170
01040 IF Q$="NORTH" THEN 1170
01050 IF Q$="S" THEN 1200
01060 IF Q$="SOUTH" THEN 1200
01070 IF Q$="E" THEN 1230
01080 IF Q$="EAST" THEN 1230
01090 IF Q$="W" THEN 1260
01100 IF Q$="WEST" THEN 1260
01110 IF Q$="U" THEN 1290
01120 IF Q$="UP" THEN 1290
01130 IF Q$="D" THEN 1320
01140 IF Q$="DOWN" THEN 1320
01150 GO TO 1540
01160 GO TO 1520
01170 IF N=0 THEN 1350
01180 A=A-100
01190 GO TO 750
01200 IF S=0 THEN 1350
01210 A=A+100
01220 GO TO 750
01230 IF E=0 THEN 1350
01240 B=B+10
01250 GO TO 750
01260 IF A+B+C=152 THEN 1342
01265 IF W=0 THEN 1350
01270 B=B-10
01280 GO TO 750
01290 IF U=0 THEN 1350
01300 C=C+1
01310 GO TO 750
01320 IF D=0 THEN 1350
01330 C=C-1
01340 GO TO 750
01342 IF W=1 THEN 1270
01345 PRINT "The door is far too heavy and refuses to budge."
01347 GO TO 1360
01350 PRINT "You can't go that way!"
01360 P=0
01370 GO TO 6110
01380 REM Command Routine
01390 IF RND > .002 THEN 1410
01400 GO TO 9220
01410 PRINT "What next";
01420 INPUT Q$
01421 IF Q$="" THEN 1410
01423 GOSUB 30000
01425 Q1$=Q$
01426 Q$=Q$+" "
01427 Q$=LEFT$(Q$,INSTR(1,Q$," ")-1)
01430 IF P<>1 THEN 1530
01440 IF P$="ON" THEN 8620
01450 IF Q$<>P$ THEN 8380
01460 IF Q$="CHOP" THEN 7500
01470 IF Q$="SWAT" THEN 9570
01480 IF Q$="SPRAY" THEN 7470
01490 PRINT "What next";
01500 INPUT Q$
01501 IF Q$="" THEN 1490
01503 GOSUB 30000
01505 Q1$=Q$
01506 Q$=Q$+" "
01507 Q$=LEFT$(Q$,INSTR(1,Q$," ")-1)
01510 GO TO 1530
01520 GO TO 1490
01530 GO TO 1030
01540 IF Q$="OPEN" THEN 1762
01550 IF Q$="LOOK" THEN 10400
01560 IF Q$="READ" THEN 8950
01570 IF Q$="POINTS" THEN 7370
01580 IF Q$="TAKE" THEN 7800
01590 IF Q$="ON" THEN 6780
01600 IF Q$="EXTINGUISH" THEN 7100
01610 IF Q$="OFF" THEN 6780
01620 IF Q$="PRY" THEN 7160
01630 IF Q$="LIGHT" THEN 7230
01640 IF Q$="SPRAY" THEN 7400
01650 IF Q$="SWAT" THEN 9550
01660 IF Q$="DWEEB" THEN 8780
01665 IF Q$="HELP" THEN 20000
01670 IF Q$="DEFECATE" THEN 1690
01672 IF Q$="INVENTORY" THEN 10270
01674 IF Q$="INVE" THEN 10270
01676 IF Q$="INVEN" THEN 10270
01680 GO TO 1720
01690 X=1
01700 GO TO 6520
01710 GO TO 1520
01720 IF Q$="CHOP" THEN 7630
01730 IF Q$="FILL" THEN 7660
01740 IF Q$="REPLACE" THEN 7720
01750 PRINT "This instruction is not clear."
01760 GO TO 1520
01762 IF INSTR(1,Q1$," ")=0 THEN 1770
01763 S0=INSTR(1,Q1$," ")
01764 IF S0=LEN(Q1$) THEN 1770
01765 O$=MID$(Q1$,S0+1,LEN(Q1$)-S0)
01767 GO TO 1790
01770 PRINT "What do you want to open";
01780 INPUT O$
01781 R$=Q$
01782 Q$=O$
01783 GOSUB 30000
01784 O$=Q$
01785 Q$=R$
01790 IF O$="BOX" THEN 1840
01800 IF O$="DOOR" THEN 1860
01810 IF O$="WINDOW" THEN 1880
01820 PRINT "It is impossible to open the ";O$
01830 GO TO 1380
01840 IF B(A+B+C)=0 THEN 1900
01850 GO TO 2240
01860 IF D1=0 THEN 1900
01870 GO TO 2040
01880 IF W1 = 0 THEN 1900
01890 GO TO 1920
01900 PRINT "There is no ";O$;" in this room."
01910 GO TO 1520
01920 D=1
01930 PRINT "What next";
01940 INPUT Q$
01941 IF Q$="" GO TO 1520
01943 GOSUB 30000
01944 Q$=Q$+" "
01945 Q$=LEFT$(Q$,INSTR(1,Q$," ")-1)
01950 IF Q$<>"TIE" THEN 1530
01960 PRINT "You have tied the sheets together and they"
01970 PRINT "are lowered out of the window. They don't"
01980 PRINT "look very strong.....What next";
01990 INPUT Q$
01992 GOSUB 30000
01993 Q$=Q$+" "
01994 Q$=LEFT$(Q$,INSTR(1,Q$," ")-1)
02000 IF Q$="D" THEN 2010
02005 IF Q$<>"DOWN" THEN 1530
02010 IF RND<.1 GO TO 2080
02020 IF RND<.7 THEN 8750
02030 GO TO 680
02040 IF B(4) = 1 THEN 2070
02050 IF B(5) = 1 THEN 2160
02060 GO TO 2210
02070 PRINT "You put the key in the lock and slowly turn...."
02080 GOSUB 8710
02090 PRINT "CONGRATULATIONS!! You have overcome all odds"
02100 PRINT "and escaped from the house!"
02110 P9=P9+95
02120 PRINT
02130 PRINT
02140 PRINT
02150 GO TO 8410
02160 PRINT "You put the key in the lock and slowly turn...."
02170 GOSUB 8710
02180 PRINT "The key refuses to turn in the lock."
02190 PRINT "You need the proper key."
02200 GO TO 1520
02210 PRINT "The door is securely locked, and cannot be opened."
02220 GO TO 1520
02230 REM Box Routine
02240 PRINT "Inside the box there ";B$(B(A+B+C))
02250 IF B(A+B+C)<>7 THEN 1520
02260 P=1
02261 P$="CHOP"
02270 GO TO 1410
02280 N=0
02281 S=1
02282 E=0
02283 W=0
02284 U=0
02285 D=0
02290 PRINT "You are in the Kerosene storage room. There is a"
02300 PRINT "tank of Kerosene and a door to the south."
02310 PRINT "The room is filled with kerosene fumes..."
02320 IF L<>1 THEN 2350
02330 PRINT "......K A B O O O M!!!!!! "
02340 GO TO 8540
02350 GO TO 6090
02360 N=1
02361 S=1
02362 E=1
02363 W=0
02364 U=0
02365 D=0
02370 PRINT "You are in the basement torture chamber. There is"
02380 PRINT "a door to the north. It's too dark to see "
02390 PRINT "anything else."
02400 GO TO 6090
02410 N=1
02411 S=1
02412 E=1
02413 W=0
02414 U=0
02415 D=0
02420 PRINT "You are in the torture chamber. Great place for"
02430 PRINT "some discipline. You can't see past your nose"
02440 PRINT "since it's so dark down here. The smell of death"
02450 PRINT "is omnipresent."
02460 GO TO 6090
02470 N=1
02471 S=0
02472 E=0
02473 W=0
02474 U=0
02475 D=0
02476 PRINT "You are in the torture chamber. You feel as if the"
02477 PRINT "walls are closing in on you. There is no telling"
02478 PRINT "any directions at all its so dark here."
02479 GO TO 6090
02480 N=0
02481 S=1
02482 E=1
02483 W=0
02484 U=0
02485 D=0
02490 PRINT "You are in the basement torture chamber. If you"
02500 PRINT "are into whips and chains, this is the place to be."
02510 PRINT "It's so dark you can't see too far."
02520 GO TO 6090
02530 N=1
02531 S=1
02532 E=1
02533 W=1
02534 U=0
02535 D=0
02540 PRINT "You are in the basement torture chamber. It's too"
02550 PRINT "dark to see."
02560 GO TO 6090
02570 N=1
02571 S=1
02572 E=1
02573 W=1
02574 U=0
02575 D=0
02580 PRINT "You are in the torture chamber. I'd get out before"
02590 PRINT "you undergo a little head shrinking. But who "
02600 PRINT "knows which way to go?"
02610 GO TO 6090
02620 N=1
02621 S=0
02622 E=0
02623 W=0
02624 U=0
02625 D=0
02630 PRINT "You are in the boiler room. There is an acrid smell"
02640 PRINT "of coal dust in the air. Many have died in here"
02650 PRINT "for some reason. One should be careful, or join"
02660 PRINT "them."
02670 IF L<>1 THEN 2710
02680 PRINT ".....K A B O O O M!!!!!! Looks like you joined "
02690 PRINT "them....."
02700 GO TO 8540
02710 GO TO 6090
02720 N=0
02721 S=1
02722 E=1
02723 W=1
02724 U=0
02725 D=0
02730 PRINT "You are in the basement torture chamber. If you"
02740 PRINT "want to rest, there is a bed of nails. It's too"
02750 PRINT "dark to see very far."
02760 GO TO 6090
02770 N=1
02771 S=1
02772 E=1
02773 W=1
02774 U=0
02775 D=0
02780 PRINT "You are in the basement torture chamber. There is a"
02790 PRINT "nice comfortable rack if you want to stretch a bit."
02800 GO TO 6090
02810 N=1
02811 S=1
02812 E=1
02813 W=1
02820 PRINT "You are in the torture chamber. You'll have to "
02830 PRINT "find a way out fast, or learn to be a masochist."
02840 GO TO 6090
02850 U=1
02851 N=1
02852 E=1
02860 PRINT "You are in the torture chamber bathroom."
02870 PRINT "A toilet occupies the center of the room, its"
02880 PRINT "seat covered with metal spikes. Looks mighty"
02890 PRINT "uncomfortable...."
02900 GO TO 6090
02910 S=1
02911 E=1
02912 W=1
02920 PRINT "You are in the basement torture room. Many have"
02930 PRINT "found both pleasure and pain here. There is a"
02940 PRINT "door to the east. You can't see anything else."
02950 GO TO 6090
02960 N=1
02961 S=1
02962 E=1
02963 W=1
02964 U=0
02965 D=0
02970 PRINT "You are in the basement torture chamber. There is a"
02980 PRINT "door to the east. You can't see anything else."
02990 GO TO 6090
03000 N=1
03001 S=0
03002 E=0
03003 W=1
03004 U=0
03005 D=0
03010 PRINT "You are in the basement torture chamber. All around"
03020 PRINT " are many interesting devices of pain. It's too"
03030 PRINT " dark to see which way to go."
03040 GO TO 6090
03050 E=1
03051 W=1
03060 PRINT "You find yourself in a dark tunnel. The passageway"
03070 PRINT "gets much narrower and darker to the east. There"
03080 PRINT "is an opening in the wall to the west."
03090 GO TO 6090
03100 PRINT "It is very caliginous...a cold wind sucks at you from"
03110 PRINT "all sides....it is getting stronger!! You are being"
03120 PRINT "pulled through the air by invisible forces!!!"
03130 PRINT "WHHHOOOSSHHH!!! Suddenly..."
03140 C=C+3
03150 GO TO 710
03160 N=0
03161 S=0
03162 E=0
03163 W=1
03164 U=1
03165 D=0
03170 PRINT "You are in the dumbwaiter."
03180 GO TO 6090
03190 S=1
03200 PRINT "You are in a dark tunnel. It appears as if the only"
03210 PRINT "to go is to the south...there are massive boulders"
03220 PRINT "blocking your way on all other sides."
03230 GO TO 6090
03240 N=1
03241 W=1
03250 PRINT "You are crawling on your hands and knees in a very"
03260 PRINT "low, narrow tunnel. It is cold and damp. To the "
03270 PRINT "west and north the tunnel extends into the darkness."
03280 GO TO 6090
03290 S=1
03291 D1=1
03300 PRINT "You are in the Foyer. There is a heavy oak door on"
03310 PRINT "the north wall. There is also a doorway to the "
03320 PRINT "south."
03330 GO TO 6090
03340 N=1
03341 S=1
03342 E=1
03343 W=0
03344 U=0
03345 D=0
03350 PRINT "You are in a Hallway. To the north and south are"
03360 PRINT "doorways. To the east is a large staircase "
03370 PRINT "heading up into the darkness."
03380 GO TO 6090
03390 N=1
03391 S=1
03392 E=1
03393 W=0
03394 U=0
03395 D=0
03400 PRINT "You are in a Hallway. To the north and south are"
03410 PRINT "doorways. To the east is an archway with darkness"
03420 PRINT "beyond."
03430 GO TO 6090
03440 N=1
03441 U=1
03450 PRINT "You are in an old Library. Books covered with dust"
03460 PRINT "line the walls. There is a door to the north, and there"
03470 PRINT "seems to be a small hatch in the ceiling."
03480 GO TO 6090
03490 N=0
03491 S=0
03492 E=1
03493 W=0
03494 U=0
03495 D=0
03500 PRINT "You are in a Closet. There is dust and debris"
03510 PRINT "everywhere."
03520 GO TO 6090
03530 U=1
03531 W=1
03540 PRINT "You are on a large Staircase. It extends from the"
03550 PRINT "darkness above to the darkness below. The stairs"
03560 PRINT "creak as you step. . . . "
03570 GO TO 6090
03580 N=0
03581 S=1
03582 E=1
03583 W=1
03584 U=0
03585 D=0
03590 PRINT "You are now in a huge Ballroom. Dust and cobwebs"
03600 PRINT "hang from the walls. To the west is an archway. To"
03610 PRINT "the south and east are doors leading into darkness."
03620 GO TO 6090
03630 N=1
03631 S=0
03632 E=1
03633 W=0
03634 U=0
03635 D=0
03640 PRINT "You are in a closet. It is completely empty."
03650 GO TO 6090
03660 N=0
03661 S=0
03662 E=1
03663 W=1
03664 U=0
03665 D=0
03670 PRINT "You are in an old Bathroom. A toilet sits ominously"
03680 PRINT "in the corner. There is a doorway to the east and "
03690 PRINT "one to the west."
03700 GO TO 6090
03710 N=0
03711 S=1
03712 E=1
03713 W=0
03714 U=0
03715 D=0
03720 PRINT "You are in a Study. An old desk is in the center of"
03730 PRINT "the room with years of dust and dirt caked upon it."
03740 PRINT "Fresh footprints lead through a door to the south."
03750 PRINT "Perhaps you are not alone. . . There is a doorway"
03760 PRINT "to the east."
03770 GO TO 6090
03780 N=1
03781 S=1
03782 E=1
03783 W=1
03784 U=0
03785 D=0
03790 PRINT "You are in the west end of a Living Room. The "
03800 PRINT "furniture is covered with sheets. To the north "
03810 PRINT "there is a doorway, and perhaps to the west and "
03820 PRINT "south as well. It is difficult to tell for sure."
03830 GO TO 6090
03840 P=1
03841 N=1
03842 W=1
03843 E=1
03844 D=1
03845 P$="ON"
03850 PRINT "You are in an Aviary, long since void of any birds."
03860 PRINT "To the east, west, and north are doors leading to"
03870 PRINT "darkness. Suddenly you hear the sound of thousands"
03880 PRINT "of wings....BATS surround you!!!"
03890 GO TO 6090
03900 N=0
03901 S=1
03902 E=1
03903 W=1
03904 U=0
03905 D=0
03910 PRINT "You are in the Kitchen. The smell of leaky gas is "
03920 PRINT "almost overwhelming... There are doors to the west"
03930 PRINT "and south, and a massive steel door to the east."
03940 PRINT "It is cold to the touch..."
03950 IF L<>1 THEN 3980
03960 PRINT "......K A B O O O M!!!!!"
03970 GO TO 8540
03980 GO TO 6090
03990 N=1
03991 S=1
03992 W=1
04000 PRINT "You are in an old Dining Hall. Perhaps as many"
04010 PRINT "as 30 chairs line a huge table. Doors lead to"
04020 PRINT "the west, and maybe elsewhere..."
04030 GO TO 6090
04040 N=1
04041 S=1
04042 E=1
04043 W=1
04050 PRINT "You are in the east end of a large Living Room."
04060 PRINT "There is darkness to the west, and a door to "
04070 PRINT "the south."
04080 GO TO 6090
04090 N=1
04091 E=1
04092 W=1
04100 PRINT "You are in a Sitting Room. A ruined dust covered"
04110 PRINT "couch lines the east wall. Somewhere nearby you"
04120 PRINT "can hear the sound of beating wings..."
04130 GO TO 6090
04140 N=0
04141 S=1
04142 E=0
04143 W=0
04144 U=1
04145 D=1
04150 PRINT "You are in a meat locker. It is very cold."
04160 PRINT "To the west is a massive steel door. To the"
04170 PRINT "south is a tiny door, placed on the wall."
04180 GO TO 6090
04190 U=1
04191 D=1
04192 N=1
04200 PRINT "You are in a dumbwaiter."
04210 GO TO 6090
04220 W=1
04221 S=1
04230 PRINT "You are in a den. Rats scurry into holes as you"
04240 PRINT "enter. A moose head on the wall watches your"
04250 PRINT "every move....."
04260 GO TO 6090
04270 N=1
04271 W=1
04280 PRINT "You have entered a room full of ghosts!!"
04290 PRINT "But wait.. they are engrossed in a game on"
04300 PRINT "a computer terminal...It looks like they are"
04310 PRINT "playing ADVENTURE......"
04320 GO TO 6090
04330 N=0
04331 S=1
04332 E=1
04333 W=0
04334 U=0
04335 D=0
04340 PRINT "You are in the west end of what appears to"
04350 PRINT "be the Master Bedroom. To the east is "
04360 PRINT "darkness. A doorway MIGHT be to the north,"
04370 PRINT "but it is dark...."
04380 GO TO 6090
04390 N=1
04391 S=1
04400 PRINT "You are in a Bathroom. A toilet sits in the "
04410 PRINT "corner. To the north and south are doors."
04420 GO TO 6090
04430 N=1
04431 S=1
04432 E=1
04440 PRINT "You are in the west end of a Bedroom. To the"
04450 PRINT "south is a door. To the east is darkness. There"
04460 PRINT "is a doorway to the north."
04470 GO TO 6090
04480 N=1
04490 PRINT "You are in a closet. The shelves are bare."
04500 GO TO 6090
04510 E=1
04511 W=1
04520 PRINT "You are in the center of the Master Bedroom."
04530 PRINT "You can see nothing but darkness in any direction."
04540 GO TO 6090
04550 D=1
04551 E=1
04560 PRINT "You are on a large Staircase. It extends from the"
04570 PRINT "darkness above to the darkness below. The stairs"
04580 PRINT "creak as you step."
04590 GO TO 6090
04600 W=1
04610 PRINT "You are in the east end of a Bedroom."
04620 GO TO 6090
04630 U=1
04631 E=1
04640 PRINT "You are in a large Staircase. It extends from the"
04650 PRINT "darkness above to the darkness below. The stairs"
04660 PRINT "creak as you step."
04670 GO TO 6090
04680 S=1
04681 W=1
04682 E=1
04690 PRINT "You are in the east end the Master Bedroom. There"
04700 PRINT "are doorways to the east and south with darkness"
04710 PRINT "to the west."
04720 GO TO 6090
04730 N=1
04731 E=1
04732 W=1
04740 PRINT "You are in a Hallway with door to the north"
04750 PRINT "and a large painting on the south wall."
04760 GO TO 6090
04770 E=1
04780 PRINT "You are in a sort of Reading Room. There is a "
04790 PRINT "door on the east wall."
04800 GO TO 6090
04810 E=1
04811 W=1
04820 PRINT "You are within a Hallway. There is a staircase"
04830 PRINT " to the west."
04840 GO TO 6090
04850 W=1
04851 S=1
04852 E=1
04860 PRINT "You are in a closet."
04870 GO TO 6090
04880 N=1
04881 W=1
04882 S=1
04890 PRINT "You are in a Hallway. There is darkness all around."
04900 GO TO 6090
04910 N=1
04911 W=1
04912 S=1
04920 PRINT "You are in a Hallway. There is darkness everywhere."
04930 GO TO 6090
04940 N=1
04941 W=1
04942 E=1
04950 PRINT "You are in a Hallway. It is too dark to see."
04960 GO TO 6090
04970 W=1
04971 P=1
04980 PRINT "You are in an empty room. Suddenly flies begin"
04990 PRINT "to swarm around you!!!! A voice murmers.."
05000 PRINT ".....FOR GOD'S SAKE GET OUT!!!!..."
05010 P$="SWAT"
05020 GO TO 6090
05030 U=1
05031 D=1
05032 S=1
05040 PRINT "You are in a Dumbwaiter."
05050 GO TO 6090
05060 N=1
05061 S=1
05070 PRINT "You are in a vomitorium. This is the room where"
05080 PRINT "the ghosts go after they overeat...the smell is "
05090 PRINT "disgusting."
05100 GO TO 6090
05110 W=1
05111 N=1
05120 PRINT "You are in an Observatory. An abandoned telescope"
05130 PRINT "points to the east, but the lense is old and "
05140 PRINT "cracked. There are doors to the north and west."
05150 GO TO 6090
05160 S=1
05161 E=1
05170 PRINT "You are in the Music Room. Old, dust covered"
05180 PRINT "musical instruments lie everywhere."
05190 GO TO 9820
05210 GO TO 6090
05220 E=1
05221 N=1
05230 PRINT "You are in a Trophy Room. Hundreds of golden"
05232 PRINT "trophies cover the walls and fill the cabinets!"
05234 PRINT "There are doorways to the north and south."
05260 GO TO 6090
05270 S=1
05271 E=1
05280 PRINT "You are in a Bedroom filled with many spiders, just"
05290 PRINT "waiting for something or someone to fall entrapped"
05300 PRINT "in their webbing."
05310 GO TO 6090
05320 N=1
05330 PRINT "You are in an Old Bathroom. A toilet sits ominously"
05340 PRINT "in the corner."
05350 GO TO 6090
05360 E=1
05361 W=1
05362 S=1
05363 P=1
05364 P$="SPRAY"
05370 PRINT "You are in a Large Bedroom. Ghosts advance upon you"
05380 PRINT "with ominous toilets. There is darkness to the east"
05390 PRINT "and west, but a doorway lies to the south."
05400 GO TO 6090
05410 N=1
05411 W=1
05412 S=1
05413 E=1
05414 P=1
05415 P$="CHOP"
05420 PRINT "You are in the east end of the Greenhouse Room."
05430 PRINT "Man-eating plants lunge at you. There is a doorway "
05440 PRINT "to the east."
05450 GO TO 6090
05460 N=1
05461 W=1
05462 E=1
05470 PRINT "You are in a Bedroom that once belonged to a "
05480 PRINT "posessed child."
05490 GO TO 6090
05500 D=1
05501 W=1
05510 PRINT "You are on a Stairway. There is darkness in all"
05520 PRINT "directions. "
05530 GO TO 6090
05540 P=1
05541 W=1
05542 S=1
05543 E=1
05544 P$="SPRAY"
05550 PRINT "You are in a Large Bedroom. The ghosts are look-"
05560 PRINT "for recruits. There is a doorway to the east, "
05570 PRINT "darkness to the north and west. Who knows what"
05580 PRINT "lies to the south."
05590 GO TO 6090
05600
05610 PRINT "CHEKOV HERE: IT'S A ROMULAN WITH A CLOAKING DEVICE!!"
05620 PRINT "153 UNIT HIT FROM QUADRANT (2,5): (243 REMAINING)"
05630 PRINT "167 UNIT HIT FROM QUADRANT (3,7): ( 76 REMAINING)"
05640 PRINT "112 UNIT HIT FROM QUADRANT (3,2): (-36 REMAINING)"
05650 PRINT
05660 PRINT "THE ENTERPRISE HAS BEEN DESTROYED."
05670 PRINT "THE FEDERATION WILL BE DESTR%^ &*$ #@$&*("
05680 PRINT "^&*GEBJ &*(SB +@^%^&*@ HS$@~W"
05690 GO TO 680
05700 W=1
05701 S=1
05702 E=1
05710 PRINT "You are in a Hallway. Your fate is in your"
05720 PRINT "own hands."
05730 GO TO 6090
05740 N=1
05741 W=1
05742 E=1
05750 PRINT "You are in a Bedroom."
05760 GO TO 6090
05770 W1=1
05771 W=1
05772 E=1
05780 PRINT "You are in the Ghost's Closet. Numerous sheets"
05790 PRINT "hang from hooks. There is a window to the north."
05800 GO TO 6090
05810 E=1
05811 S=1
05820 PRINT "You are in a Hallway. There is a doorway to the"
05830 PRINT "east. Darkness surrounds you."
05840 GO TO 6090
05850 N=1
05851 W=1
05852 E=1
05860 PRINT "You are in a Hallway."
05870 GO TO 6090
05880 W=1
05890 PRINT "You are in a closet. Who knows what queer things"
05900 PRINT "are hiding there?"
05910 GO TO 6090
05920 W=1
05921 S=1
05930 PRINT "You are in the Ghost's Study. It is filled with"
05940 PRINT "books and magazines about famous ghosts."
05950 GO TO 6090
05960 D=1
05961 W=1
05962 N=1
05970 PRINT "You are in the Dumbwaiter."
05980 GO TO 6090
05990 W=1
05991 S=1
06000 PRINT "You are in the servant's quarters, long since"
06010 PRINT "vacated. There is a door to the south."
06020 GO TO 6090
06030 W=1
06031 N=1
06040 PRINT "You are in the maids quarters, but it is empty."
06050 PRINT "There are broken boards on the west wall,"
06060 PRINT "perhaps you can squeeze through...."
06070 GO TO 6090
06080 REM ************ C H E C K R O U T I N E ********"
06090 IF B(A+B+C)=0 THEN 6110
06100 PRINT "There is a small box here."
06110 M=M+1
06120 S1=S1-1
06130 IF S1<=0 THEN 6250
06140 IF S1=1 THEN 6230
06150 IF S1=5 THEN 6210
06160 IF S1=10 THEN 6180
06170 GO TO 6270
06180 PRINT "Nature will soon call...You had better find a"
06190 PRINT "bathroom."
06200 GO TO 6270
06210 PRINT "You had better go soon!!"
06220 GO TO 6270
06230 PRINT "You can't hold it any longer!!!!"
06240 GO TO 6270
06250 X=0
06260 GO TO 6520
06270 IF F=1 THEN 6320
06280 IF L=1 THEN 6360
06290 IF F=1 THEN 6510
06300 IF M=1 THEN 1380
06310 GO TO 8420
06320 B4=B4-1
06330 IF B4=10 THEN 6400
06340 IF B4=0 THEN 6420
06350 GO TO 6280
06360 K3=K3-1
06370 IF K3=10 THEN 6470
06380 IF K3=0 THEN 6490
06390 GO TO 6510
06400 PRINT "Your flashlight is running low."
06410 GO TO 6280
06420 PRINT "Your flashlight is dead."
06430 F=0
06440 IF K3>0 THEN 6280
06450 GO TO 8420
06460 GO TO 6510
06470 PRINT "Your kerosene is running low."
06480 GO TO 6510
06490 PRINT "Your lantern is out of fuel."
06500 L=0
06510 GO TO 1380
06520 T=A+B+C
06530 IF T=132 THEN 6590
06540 IF T=213 THEN 6590
06550 IF T=414 THEN 6590
06560 IF T=431 THEN 6580
06570 GO TO 6710
06580 PRINT "OOUUCCHH!! OOOOOO!! AAHHHHH!!!"
06590 PRINT "You have successfully gone to the bathroom."
06600 PRINT "What next";
06610 INPUT Q$
06611 IF Q$="" GO TO 6670
06612 GOSUB 30000
06613 Q$=Q$+" "
06614 Q$=LEFT$(Q$,INSTR(1,Q$," ")-1)
06620 IF Q$<>"WIPE" THEN 6670
06630 PRINT "Good. You have saved yourself from the wolverines."
06640 S1=S9
06650 IF X=1 THEN 1520
06660 GO TO 6270
06670 PRINT "You neglected to clean up. A pack of wolverines"
06680 PRINT "have been attracted by the scent and have devoured"
06690 PRINT "you."
06700 GO TO 8540
06710 PRINT "You did it right on the floor! How gross!"
06720 PRINT "But worse, you have attracted the wolverines,"
06730 PRINT "which have eaten both the feces(first) and you"
06740 PRINT "(second), which says something about you."
06750 GO TO 8380
06760 IF X=1 THEN 1520
06770 GO TO 6270
06780 IF Q$="ON" THEN 6950
06781 IF INSTR(1,Q1$," ")=0 THEN 6790
06782 S0=INSTR(1,Q1$," ")
06783 IF S0=LEN(Q1$) THEN 6790
06784 Q$=MID$(Q1$,S0+1,LEN(Q1$)-S0)
06785 GO TO 6810
06790 PRINT "What do you want to turn off";
06800 INPUT Q$
06802 GOSUB 30000
06810 IF Q$="FLASHLIGHT" THEN 6860
06820 IF Q$="FLASH" THEN 6860
06830 IF Q$="RADAR" THEN 6930
06840 PRINT "What on earth is a ";Q$;" ?"
06850 GO TO 1520
06860 IF F=0 THEN 6900
06870 F=0
06880 PRINT "O.K.!!! Your flashlight is off."
06890 GO TO 1490
06900 PRINT "Are you stupid???!!? It's not on!!"
06910 GO TO 1490
06920 GO TO 1520
06930 PRINT "The Radar Jammer is not on."
06940 GO TO 1520
06950 IF INSTR(1,Q1$," ")=0 THEN 6955
06951 S0=INSTR(1,Q1$," ")
06952 IF S0=LEN(Q1$) THEN 6955
06953 Q$=MID$(Q1$,S0+1,LEN(Q1$)-S0)
06954 GO TO 6970
06955 PRINT "What do you want to turn on";
06960 INPUT Q$
06962 GOSUB 30000
06970 IF Q$="FLASHLIGHT" THEN 7040
06980 IF Q$="FLASH" THEN 7040
06990 IF Q$="RADAR" THEN 7020
07000 PRINT "A what?"
07010 GO TO 6955
07020 PRINT "The Radar Jammer does not seem to work here."
07030 GO TO 1490
07040 IF F=1 THEN 7080
07050 F=1
07060 PRINT "Your flashlight cuts a narrow swath in the darkness."
07070 GO TO 1490
07080 PRINT "What, are you blind?!? It's already on!"
07090 GO TO 1490
07100 IF L=0 THEN 7140
07110 PRINT "OK, the lantern is out."
07120 L=0
07130 GO TO 1520
07140 PRINT "It's already out, DUMMY!!"
07150 GO TO 1520
07160 W1=A+B+C
07170 IF W1=152 THEN 7200
07180 PRINT "There is nothing here to pry."
07190 GO TO 1520
07200 W=1
07210 PRINT "You have pried open the Meatlocker door."
07220 GO TO 1520
07230 IF L=1 THEN 7340
07240 E1=A+B+C
07250 IF E1=142 THEN 8930
07260 IF E1=111 THEN 8930
07270 IF E1=421 THEN 8930
07280 IF K3>0 THEN 7310
07290 PRINT "You can't light the lantern; you're out of fuel."
07300 GO TO 1520
07310 PRINT "The lantern casts eerie shadows on the wall."
07320 L=1
07330 GO TO 1520
07340 PRINT "You just burned your fingers because the lantern"
07350 PRINT "is already lit! Boy, are you dumb."
07360 GO TO 1520
07370 P8=K*P9+M
07380 PRINT "You have accumulated ";P8;" points so far."
07390 GO TO 1490
07400 S2=A+B+C
07410 IF S2=114 THEN 7470
07420 IF S2=124 THEN 7470
07430 IF S2=134 THEN 7470
07440 PRINT "Your spraying has no effect on anything in the "
07450 PRINT "room. The spray does, however, smell pretty bad."
07460 GO TO 1520
07470 PRINT "The ghosts shy away from you, but still look at"
07480 PRINT "you hungrily..."
07490 GO TO 1520
07500 C1=A+B+C
07510 IF C1=214 THEN 7570
07520 IF C1=224 THEN 7570
07530 PRINT "You have severed the head of the snake. There is "
07540 PRINT "nothing else in the box."
07550 B(A+B+C)=28
07560 GO TO 1520
07570 IF RND<-.05*K+.95 THEN 7600
07580 PRINT "You have damaged the plants, but it wasn't enough."
07590 GO TO 8460
07600 PRINT "You have damaged the plants in this part of the"
07610 PRINT "room enough to manuever safely for a short while."
07620 GO TO 1520
07630 PRINT "There is not much here to chop. If you continue"
07640 PRINT "to chop so freely, you may hurt yourself."
07650 GO TO 1520
07660 IF A+B+C=111 THEN 7690
07670 PRINT "There is nothing here to fill the lantern with."
07680 GO TO 1520
07690 PRINT "The lantern is now full."
07700 K3=K9
07710 GO TO 1520
07720 IF B(6)=1 THEN 7750
07730 PRINT "You don't have any spare batteries!"
07740 GO TO 1520
07750 PRINT "Duracell...the most MACHO battery you can buy!"
07760 B(6)=0
07770 B4=B9
07780 GO TO 1520
07790 REM TAKE ROUTINE.....
07800 IF INSTR(1,Q1$," ")=0 THEN 7830
07810 S0=INSTR(1,Q1$," ")
07811 IF S0=LEN(Q1$) THEN 7830
07812 Q$=MID$(Q1$,S0+1,LEN(Q1$)-S0)
07820 GO TO 7850
07830 PRINT "Take? Take What";
07840 INPUT Q$
07842 GOSUB 30000
07850 IF Q$="KEY" THEN 8300
07860 IF Q$="WATCH" THEN 7930
07870 IF Q$="COINS" THEN 7990
07880 IF Q$="DIAMONDS" THEN 8050
07890 IF LEFT$(Q$,4)="BATT" THEN 8210
07900 IF Q$="SNAKE" THEN 8110
07910 GO TO 9950
07920 GO TO 1490
07930 IF B(A+B+C)=8 THEN 7960
07940 PRINT "Watch? There is no watch here!"
07950 GO TO 1490
07960 PRINT "It looks good on you, too!"
07970 P9=P9+10
07975 B(8)=1
07980 GO TO 8280
07990 IF B(A+B+C)=9 THEN 8020
08000 PRINT "Coins? There are no coins here!"
08010 GO TO 1490
08020 PRINT "Your pockets are now stuffed full of coins!"
08030 P9=P9+10
08035 B(9)=1
08040 GO TO 8280
08050 IF B(A+B+C)=10 THEN 8080
08060 PRINT "Diamonds are forever, but there are none here!"
08070 GO TO 1490
08080 PRINT "Your pockets are now full of diamonds! Lucky you!"
08090 P9=P9+10
08095 B(10)=1
08100 GO TO 8280
08110 IF B(A+B+C)=28 THEN 8140
08120 PRINT "There's no snake here!"
08130 GO TO 1520
08140 PRINT "What's that for? A souvenier to show "
08150 PRINT "the guys back home? In any case, you now"
08160 PRINT "are carrying a dead snake with you."
08170 P9=P9+10
08180 B(28)=1
08190 B(A+B+C)=0
08200 GO TO 1520
08210 IF B(A+B+C)=6 THEN 8240
08220 PRINT "Sorry! No batteries in here!"
08230 GO TO 1520
08240 PRINT "And they're Duracells! Wise move!"
08250 B(A+B+C)=0
08260 P9=P9+10
08270 B(6)=1
08280 B(A+B+C)=0
08290 GO TO 1520
08300 IF B(A+B+C)=4 THEN 8340
08310 IF B(A+B+C)=5 THEN 8340
08320 PRINT "Key? There's no key in here!"
08330 GO TO 1520
08340 PRINT "O.K."
08350 B(B(A+B+C))=1
08360 B(A+B+C)=0
08370 GO TO 1520
08380 IF P$="CHOP" THEN 8460
08390 IF P$="SPRAY" THEN 8480
08400 IF P$="SWAT" THEN 9590
08410 GO TO 8540
08420 PRINT "You are surrounded by darkness.....thousands of"
08430 PRINT "dwarves and goblins, no longer afraid of you,"
08440 PRINT "attack and devour you!!!! AAAAARRRRRRGGHHH!!!"
08450 GO TO 8540
08460 PRINT "You have been mercilously devoured!!!!"
08470 GO TO 8540
08480 PRINT "The ghosts have strapped you to the bed and"
08490 PRINT "smothered you!!!!"
08500 GO TO 8540
08510 PRINT "The bats have pecked your eyes out and you"
08520 PRINT "you have bled to a hideous death!!!!"
08530 GO TO 8540
08540 PRINT "You are no longer in the house or the game."
08550 PRINT "You were in the house for exactly ";M-1;" moves."
08560 P8=K*P9+M
08570 PRINT "You scored a total of ";P8;" points."
08580 PRINT "Do you want to play again";
08590 INPUT Q$
08592 GOSUB 30000
08600 IF Q$="YES" THEN 10
08601 IF Q$="Y" THEN 10
08610 GO TO 99999
08620 IF Q$<>P$ THEN 8510
08621 IF INSTR(1,Q1$," ")=0 THEN 8630
08622 S0=INSTR(1,Q1$," ")
08623 IF S0=LEN(Q1$) THEN 8630
08624 T$=MID$(Q1$,S0+1,LEN(Q1$)-S0)
08625 GO TO 8650
08630 PRINT "What do you want to turn on";
08640 INPUT T$
08641 R$=Q$
08642 Q$=T$
08643 GOSUB 30000
08644 T$=Q$
08645 Q$=R$
08650 IF T$="RADAR" THEN 8670
08660 GO TO 8510
08670 PRINT "By turning on your radar-jammer you have"
08680 PRINT "confused the bats into thinking that you "
08690 PRINT "are not in the room. You can move around."
08700 GO TO 1520
08710 FOR N9= 1 TO 5
08720 PRINT
08730 NEXT N9
08740 RETURN
08750 PRINT "The sheets have broken and you have fallen to a"
08760 PRINT "painful death."
08770 GO TO 8540
08780 PRINT "This instruction is not clear."
08790 PRINT "What next";
08800 INPUT Q$
08802 GOSUB 30000
08810 IF Q$<>"DWEEB" THEN 1530
08820 GOSUB 8710
08830 GOSUB 8710
08840 GOSUB 8710
08850 GOSUB 8710
08860 PRINT "INPUT ROOM COORDINATES: A,B,C:";
08870 INPUT A,B,C
08871 IF A>4 THEN 8921
08872 IF B>5 THEN 8921
08873 IF C>4 THEN 8921
08880 A=A*100
08881 B=B*10
08890 GOSUB 8710
08900 GOSUB 8710
08910 GOSUB 8710
08920 GO TO 750
08921 PRINT " You have just blasted yourself into the afterworld!!!"
08922 GO TO 8540
08930 PRINT ".......K A B O O O M!!!!!!"
08940 GO TO 8540
08950 IF INSTR(1,Q1$," ")=0 THEN 8955
08951 S0=INSTR(1,Q1$," ")
08952 IF S0=LEN(Q1$) THEN 8955
08953 Q$=MID$(Q1$,S0+1,LEN(Q1$)-S0)
08954 GO TO 8970
08955 PRINT "What do you want to read";
08960 INPUT Q$
08962 GOSUB 30000
08970 IF Q$<>"DICTIONARY" THEN 9040
08980 PRINT "You open the dictionary....it says..."
08990 PRINT "Ahhhh...too bad. It is written in ghost language."
09000 PRINT "Do you know how to read ghost language";
09010 INPUT Q$
09012 GOSUB 30000
09020 IF Q$="YES" THEN 9100
09021 if Q$="Y" THEN 9100
09030 GO TO 1520
09040 IF Q$="BOOK" THEN 9150
09050 IF Q$="BOOKS" THEN 9150
09060 IF Q$="MAGAZINE" THEN 9150
09070 IF Q$="MAGAZINES" THEN 9150
09080 PRINT "You can't read a ";Q$;" , FOOL!!"
09090 GO TO 1520
09100 PRINT "What does IARANDME mean";
09110 INPUT Q$
09111 GOSUB 30000
09112 IF Q$="IAMANERD" THEN 9141
09113 IF Q$="IAMA NERD" THEN 9141
09114 IF Q$="IAM ANERD" THEN 9141
09115 IF Q$="IAM A NERD" THEN 9141
09116 IF Q$="I AMANERD" THEN 9141
09117 IF Q$="I AMA NERD" THEN 9141
09118 IF Q$="I AM ANERD" THEN 9141
09119 IF Q$="I AM A NERD" THEN 9141
09120 PRINT "That is not correct. That means you lied, and"
09130 PRINT "this house does not like a LIAR!!"
09140 GO TO 8540
09141 PRINT "That is CORRECT!! You must be a NERD to understand"
09142 PRINT "ghost language."
09143 PRINT "All is not lost however. All you have to do is talk to ..."
09144 A9=1
09145 GO TO 9280
09150 R1=(A+B+C)
09160 IF R1=412 THEN 9620
09170 IF R1=333 THEN 9650
09180 IF R1=154 THEN 9730
09190 PRINT "There are none here to read!"
09200 GO TO 1490
09210 PRINT
09220 PRINT
09230 PRINT
09240 PRINT " SUDDENLY......"
09250 PRINT " an icy chill races down your spine; Someone is behind you!!"
09260 PRINT " you turn........"
09270 PRINT " It's"
09280 PRINT " !! T E D K E N N E D Y !!"
09290 PRINT
09300 PRINT " He offers to show you the way out; "
09310 PRINT " will you follow him";
09320 INPUT H$
09321 R$=Q$
09322 Q$=H$
09323 GOSUB 30000
09324 H$=Q$
09325 Q$=R$
09330 IF H$="YES" THEN 9430
09340 IF H$="NO" THEN 9390
09350 PRINT " Are you speaking English,son?? Now please "
09360 PRINT " say yes or no to the Senator."
09370 PRINT " Well";
09380 GO TO 9320
09390 PRINT
09400 PRINT
09401 IF A9=1 THEN 9421
09410 PRINT " At this, Ted shrugs and walks away, shaking his head.."
09420 GO TO 1410
09421 PRINT "'I HATE NERDS!!!'"
09422 PRINT " shouts the good senator as he smashes you to a pulp."
09423 A9=0
09424 GO TO 8540
09430 IF RND>.50 THEN 9460
09440 PRINT
09441 IF A9<>1 THEN 9450
09442 PRINT " 'You got away with it this time.'"
09443 PRINT " theatens the good senator."
09444 A9=0
09450 GO TO 2080
09460 PRINT
09470 PRINT " Ah Ted, shouldn't we be going left here??"
09480 PRINT " TED, left.... NO TED, LEFT.....LEFT!!!!!"
09490 PRINT
09500 PRINT " ooops, looks like Ted missed that turn, but he'll"
09510 PRINT " be back in a week to pull you out (or rather dredge"
09520 PRINT " you up)."
09521 A9=0
09530 GO TO 8540
09540 GO TO 8540
09550 PRINT "There is nothing here to swat!"
09560 GO TO 1490
09570 PRINT "You have miraculously killed all the flies."
09580 GO TO 1490
09590 PRINT "The flies have eaten all the skin off your body!"
09600 PRINT "You have bled to a hideous skinless death!"
09610 GO TO 8540
09620 PRINT "All the pages are the same... they say"
09630 PRINT "'If here ye rise, thence shall ye not fall back.'"
09640 GO TO 1520
09650 PRINT "Every page is the same! The writing says..."
09660 PRINT
09670 PRINT " HICJACKET"
09680 PRINT "What next";
09690 INPUT Q$
09692 GOSUB 30000
09700 IF Q$<>"HICJACKET" THEN 1530
09710 A=100
09711 B=10
09712 C=2
09720 GO TO 750
09730 PRINT "Hmm..this seems to be written in Swedish!"
09740 PRINT "Each page says.."
09750 PRINT " 'Oh, yah...on chancer der boom-boom!"
09760 PRINT " VIRDE !'"
09770 PRINT "What next";
09780 INPUT Q$
09782 GOSUB 30000
09790 IF Q$<>"VIRDE" THEN 1530
09800 A=100
09801 B=10
09802 C=1
09810 GO TO 750
09820 IF V=0 THEN 6090
09830 PRINT "There is a beautiful Stradivarius violin here!"
09840 GO TO 6090
09950 IF Q$="VIOLIN" THEN 10000
09955 IF Q$="TROPHIES" THEN 10100
09957 IF Q$="KNAPSACK" THEN 10200
09960 PRINT "You can't take the ";Q$;" !!"
09970 GO TO 1490
10000 IF (A+B+C)=114 THEN 10020
10005 PRINT "There is no violin here!"
10010 GO TO 1490
10020 IF V=0 THEN 10005
10030 PRINT "You are now the proud owner of a violin!"
10035 P9=P9+K
10037 B(30)=1
10040 V=0
10050 GO TO 1490
10100 IF (A+B+C)=214 THEN 10130
10105 PRINT "There are no trophies here."
10110 GO TO 1490
10130 IF T1=0 THEN 10160
10140 IF S5=1 THEN 10180
10150 PRINT "You can't possibly carry any of these without"
10153 PRINT "some form of help."
10155 GO TO 1490
10160 PRINT "There are no trophies here which can be carried"
10165 PRINT "anywhere, except for the ones in your knapsack."
10167 PRINT "Getting awfully greedy, aren't we?"
10168 GO TO 1490
10180 PRINT "You have taken all the trophies in the room"
10190 PRINT "which will fit in your knapsack. These will"
10193 PRINT "look real nice on the mantel back home!"
10194 S5=0
10195 P9=P9+K
10196 B(29)=1
10197 T1=0
10198 GO TO 1490
10200 IF B(A+B+C)=12 THEN 10250
10210 PRINT "There is no knapsack here."
10220 GO TO 1490
10250 PRINT "You now are wearing a knapsack on your back."
10255 S5=1
10257 B(12)=1
10260 GO TO 8280
10270 PRINT "You have with you....."
10271 PRINT " TOILET PAPER, a CROWBAR, a LANTERN, a FLASHLIGHT,"
10272 PRINT " a RADAR JAMMER, a MACHETE, A CAN OF GHOST REPELLANT,"
10273 PRINT " some MATCHES, A DICTIONARY, and a FLY-SWATTER."
10280 PRINT "You have collected....."
10285 FOR N8=1 TO 30
10286 IF B(N8)= 0 THEN 10290
10287 S0=INSTR(1,B$(N8)," ")
10288 PRINT "...";MID$(B$(N8),S0+1,LEN(B$(N8))-S0)
10289 I1=1
10290 NEXT N8
10302 IF I1=1 THEN 10304
10303 PRINT "....nothing at all!"
10304 I1 = 0
10305 GO TO 1520
10400 M=M-1
10410 GO TO 710
20000 PRINT "To move around the house, type map directions like"
20005 PRINT "NORTH (N), EAST (E), or UP (U). All other commands"
20010 PRINT "are action words such as 'LOOK' or 'LIGHT'. Some"
20015 PRINT "action words that take objects may be entered"
20020 PRINT "as two-word commands. Your common sense will help"
20025 PRINT "you the most. To see what you are carrying, type"
20030 PRINT "INVENTORY (INVE). Strange things will occur from"
20035 PRINT "time to time, so beware!"
20040 GO TO 1520
30000 DIM Z(80)
30010 CHANGE Q$ TO Z
30020 FOR Z0=1 TO Z(0)
30030 IF Z(Z0)<97 THEN 30060
30040 IF Z(Z0)>122 THEN 30060
30050 Z(Z0)=Z(Z0)-32
30060 NEXT Z0
30070 CHANGE Z TO Q$
30080 RETURN
99999 END
Reference in New Issue View Git Blame Copy Permalink