880 IF OB$(NOO) = "" AND NO < >7 THEN PRINT R$: GOTO 120
890 IF NO = 7 THEN 920
900 IF OB(NO,0) < > -1 THEN PRINT A$: GOTO 120
910 IF NO < >7 THEN PRINT "I CAN'T RING ";OB$(NO);"!!": GOTO 120
920 IF CP < >2 THEN PRINT "I SEE NO BELL HERE!": GOTO 120
930 PRINT "THE DOOR FLIES OPEN AND I'M SWEPT"
931 PRINT "INSIDE,BUT THEN THE DOOR VANISHES"
932 PRINT "LEAVING NO VISIBLE WAY OUT!":FF = 1:CP = 5: GOTO 120
940 IF VB < >12 THEN 1010
950 IF NO = 8 AND OB(10,0) < >0 THEN PRINT "IT IS ALREADY FULL.": GOTO 120
960 IF OB(NO,0) < > -1 THEN PRINT "I'M NOT HOLDING IT RIGHT NOW.": GOTO 120
970 IF NO < >8 AND NO < >29 THEN PRINT "I CANT FILL THAT !": GOTO 120
980 IF CP < >3 THEN PRINT "THERE IS NOTHING TO FILL IT WITH HERE.": GOTO 120
990 IF NO = 29 THEN PRINT "NO, I VALUE MY LIFE AND THAT FLUID": PRINT "THAT WAS IN THERE MIGHT REACT WITH": PRINT "THE WATER.": GOTO 120
1000 IF NO = 8 THEN PRINT "YOUR BUCKET IS NOW FULL.":OB(8,0) = 0:OB(10,0) = -1: GOTO 120
1010 IF VB < >13 THEN 1070
1020 IF NO < >27 AND NO < >26 AND NO < >9 AND NO < >13 AND NO < >31 THEN PRINT "IT ISN'T ALIVE !": GOTO 120
1030 IF OB(NO,0) < >CP THEN PRINT A$: GOTO 120
1040 IF NO = 9 THEN PRINT "I DON'T THINK IT WOULD APPROVE.": GOTO 120
1050 IF NO = 27 THEN PRINT "IT DOESN'T TAKE TO FAVORABLY": PRINT "TO THE IDEA.": GOTO 120
1051 PRINT "FAVORABLY TO THE IDEA .": GOTO 120
1060 PRINT "YOU'LL HAVE TO BE MORE SPECIFIC.": GOTO 120
1070 IF VB < >14 THEN 1130
1080 IF NO = 0 THEN PRINT "THROW WHAT ?": GOTO 120
1090 IF OB(NO,0) < > -1 THEN PRINT "I'M NOT HOLDING IT!": GOTO 120
1100 IF NO < >24 AND NO < >10 THEN 610
1110 IF CP = 38 AND NO = 10 THEN PRINT "THE WITCH HAS VANISHED!":OB(18,0) = 38: PRINT "HER HAT REMAINS.":OB(31,0) = 0:OB(10,0) = 0:OB(8,0) = -1: GOTO 120
1120 GOTO 610
1130 IF VB < >15 THEN 1190
1140 IF NO = 0 THEN PRINT "SHOW WHAT ?": GOTO 120
1150 IF OB(NO,0) < > -1 THEN PRINT "I'M NOT CARRYING IT !": GOTO 120
1160 IF NO < >11 THEN PRINT "NOTHING HAPPENED.": GOTO 120
1170 IF OB(9,0) < >25 THEN PRINT "NOTHING EXCITING HAPPENED.": GOTO 120
1180 PRINT "THE VAMPIRE SCURRIES OFF SAYING:"
1181 PRINT "YOU HAVEN'T SEEN THE END OF ME YET !!!":OB(9,0) = 9: GOTO 120
1190 IF VB < >16 THEN 1260
1200 IF NO < >9 AND NO < >13 AND NO < >31 THEN PRINT "THAT IS STUPID.": GOTO 120
1210 IF OB(NO,0) < >CP THEN PRINT A$: GOTO 120
1220 IF OB(23,0) < > -1 THEN PRINT "I DON'T HAVE ANY FOOD,STUPID !!!": GOTO 120
1230 IF NO = 9 AND OB(23,0) < > -1 THEN PRINT "HE ONLY LIKES BANANAS.": GOTO 120
1240 IF NO = 9 THEN PRINT "HE GULPS DOWN YOUR BANANA AND EATS": PRINT "THE PEEL TOO!!":OB(23,0) = 0: GOTO 120
1250 PRINT "SHE GRABS THE BANANA AND THROWS IT"
1251 PRINT "INTO THE BREW.":OB(23,0) = 0: GOTO 120
1260 IF VB < >17 THEN 1320
1270 IF OB(NO,0) < > -1 AND OB(NO,0) < >CP THEN PRINT "I DON'T SEE IT HERE.": GOTO 120
1280 IF NO = 11 THEN PRINT "I DON'T WANT TO HAVE BAD BREATH.": GOTO 120
1290 IF NO < >12 AND NO < >23 THEN PRINT R$: GOTO 120
1300 IF OB(NO,0) < > -1 THEN PRINT "I'M NOT CARRYING IT.": GOTO 120
1670 IF NO < >16 AND NO < >10 AND NO < >28 AND NO < >15 THEN PRINT "YOU CAN'T BE SERIOUS.": GOTO 120
1680 IF NO = 16 AND CP = 38 THEN PRINT "I DON'T THINK I SHOULD."
1681 PRINT "(THERES AN OLD SHOE IN IT!)": GOTO 120
1690 IF NO = 10 AND OB(10,0) = -1 THEN PRINT "OKAY...":OB(10,0) = 0:OB(8,0) = -1
1691 PRINT "GULP..GULP..GULP.": GOTO 120
1700 IF NO = 28 AND OB(28,0) = -1 THEN PRINT "ALLRIGHT....": PRINT " POOF!!!"1: PRINT "OH MY! WHERE AM I? OH MY! ALL MY": PRINT "POSSESIONS WERE LOST IN THAT DENSE": PRINT "CLOUD OF GREASY BLACK SMOKE!"
1701 PRINT " OH MY! ALL MY POSSESIONS WERE LOST IN"
1702 PRINT "THE DENSE CLOUD OF GREASY BLACK SMOKE."
1710 IF NO < >28 OR OB(28,0) < > -1 THEN 1800
1720 FOR I = 8 TO LO
1730 IF OB$(I) = "" THEN 1760
1740 IF OB(I,0) < > -1 AND OB(I,0) < >5 THEN 1760
1750 OB(I,0) = INT( RND(1) *38)
1760 NEXT I
1770 OB(28,00) = 0:OB(29,0) = -1
1780 ZZ = 1
1790 GOTO 120
1800 IF NO = 15 THEN PRINT "I DON'T WANT TO TRY THAT.": GOTO 120
1810 PRINT "I CAN'T DO THAT YET..": GOTO 120
1820 IF VB < >23 THEN 1880
1830 IF NO = 22 AND (CP = 2 OR CP = 6) THEN 1850
1840 IF OB(NO,0) < > -1 AND OB(NO,0) < >CP THEN PRINT "I DON'T SEE IT HERE.": GOTO 120
1850 IF NO < >9 AND NO < >13 AND NO < >31 THEN PRINT "I DON'T WANT TO HIT THE ";NO$;".": GOTO 120
1860 IF NO = 9 THEN PRINT "HIT HIM YOURSELF! I'M SURE NOT GONNA !": GOTO 120
1870 PRINT "YUK! SHE'S GOT WARTS ALL OVER HER !!": GOTO 120
1880 IF VB = 24 THEN PRINT "ALL RIGHT...";NO$: GOTO 120
1890 IF VB = 25 THEN PRINT "YOU HAVE USED "T" TURNS SO FAR.": GOTO 120
1900 IF VB < >26 THEN 1960
1910 IF NO < >10 AND NO < >28 AND NO < >15 THEN PRINT "DON'T BE DUMB.": GOTO 120
1920 IF NO = 10 AND OB(10,0) = -1 THEN PRINT "YOURBUCKET IS EMPTY AND THE "
1930 IF NO = 28 THEN PRINT "YOU'RE STUCK WITH AN EMPTY TESTTUBE NOW":OB(28,0) = 0:OB(29,0) = -1: GOTO 120
1940 IF NO = 15 AND OB(15,0) = -1 THEN PRINT "THE CHEMICALS REACTED WITH THE DUST": PRINT "AND I GOT LOST IN A THICK CLOUD OF": PRINT "ORANGE SMOKE...I SUGGEST YOU 'LOOK'":CP = 12: GOTO 120
1950 PRINT "I'M NOT CARRYING IT RIGHT NOW.": GOTO 120
1960 IF VB = 27 THEN PRINT "I'M NOT ROCKY, YOU KNOW.": GOTO 120
1970 IF VB < >29 THEN 2010
1980 IF NO < >33 THEN PRINT "GIVE ME A BREAK!": GOTO 120
1990 IF OB(33,0) < > -1 THEN PRINT "I'M NOT HOLDING AN AIRPLANE !": GOTO 120
2020 IF OB(NO,0) < >CP AND OB(NO,0) < > -1 THEN PRINT "I DON'T SEE IT AND I'M NOT HOLDING IT.": GOTO 120
2030 IF NO < >34 AND NO < >32 AND NO < >19 THEN PRINT "THERE IS NO WRITING THERE.": GOTO 120
2040 IF OB(NO,0) < > -1 THEN PRINT "I DON'T HAVE IT WITH ME.": GOTO 120
2050 IF NO = 32 THEN PRINT "IT SAYS: NOTTUB SSERP": GOTO 120
2060 IF NO = 34 THEN PRINT "IT READS:REMEMBER THE WIZARD OF OZ.": GOTO 120
2070 PRINT "THEY ARE WRITTEN IN WITCHISH.": GOTO 120
2080 IF VB = 30 THEN PRINT "TRY OPEN.": GOTO 120
2090 IF VB < >31 THEN 2150
2100 IF OB(NO,0) < >CP THEN PRINT A$: GOTO 120
2110 IF NO < >9 AND NO < >31 THEN PRINT "BE SERIOUS.": GOTO 120
2120 IF OB(35,0) < > -1 THEN PRINT "I DON'T HAVE A KNIFE !!": GOTO 120
2130 IF NO = 31 THEN PRINT "THE KNIFE VANISHES WHEN IT TOUCHES HER.":OB(35,0) = 0: GOTO 120
2140 PRINT "THE VAMPIRE DIES AND THEN VANISHES.":OB(9,0) = 0: GOTO 120
2150 IF NO < >40 THEN PRINT "THAT'S IDIOTIC.": GOTO 120
2160 IF CP < >37 THEN PRINT "I SEE NO BUTTON HERE.": GOTO 120
2170 CP = 38: GOTO 90
2180 PRINT "OH MY! A GHOST POPS OUT AND SAYS:": PRINT "THROW ME SOME TREASURE!": GOSUB 2410
2190 IF VB < >16 OR NO < >13 THEN 2210
2200 IF OB(23,0) = 0 THEN PRINT "I HAVE NO FOOD.": GOTO 2210
2201 PRINT "HE EATS THE BANANA AND VANISHES.":OB(23,0) = 0:OB(24,0) = CP: GOTO 120
2210 IF VB < >14 THEN PRINT "HE IS GETTING MAD!": GOSUB 2410
2220 IF VB < >14 THEN PRINT "HE HAS KILLED ME !": GOTO 2330
2230 IF OB(NO,0) < > -1 THEN PRINT "I'M NOT HOLDING IT." GOSUB 2410: GOSUB 2210
2240 IF OB(NO,1) = 0 THEN PRINT "HE GROWLS:": PRINT "NOT GOOD ENOUGH! AND THROWS IT BACK.": GOSUB 2410: GOSUB 2210
2250 PRINT "HE SNATCHES THE TREASURE AND RUNS AWAY.":ZZ = ZZ -1:OB(NO,0) = 0: GOTO 120
2260 PRINT "HEAVENS! A ONE EYED GHOUL POPPED OUT!"
2270 INPUT "WHAT AM I TO DO ?";CM$: GOSUB 2420
2280 IF VB < >14 OR NO < >15 THEN 2320
2290 IF OB(15,0) < > -1 THEN PRINT "I DON'T HAVE THEM!": GOTO 2320
2300 IF CF = 0 THEN PRINT "THEY WEREN'T MIXED!": GOTO 2320
2310 PRINT "THE GHOUL MELTS TO NOTHING.":OB(15,0) = CP:ZZ = ZZ -1: GOTO 120
2320 PRINT "THE GHOUL KILLS ME!": GOTO 2330
2330 J = 0: FOR I = 8 TO LO: IF OB(I,0) = 5 THEN J = J +OB(I,1)
2340 NEXT I
2350 J = J +MI
2360 PRINT "OUT OF A MAXIMUM OF 160 POINTS, YOU": PRINT "SCORED "J" POINTS, USING "T" TURNS.": PRINT : PRINT "DO YOU WISH TO PLAY": INPUT "THIS ADVENTURE AGAIN? ";AG$: IF LEFT$(AG$,1) = "N" THEN HOME
2365 PRINT : PRINT CHR$(4)"RUN STARTUP"
2370 FOR K = 1 TO LEN(NA$): POKE 24576 +K, ASC( MID$ (NA$,K,1)): NEXT K: POKE 24576 +K,191
2380 CLEAR :CO = 0:NA$ = ""
2390 CO = CO +1:PE = PEEK(24576 +CO): IF PE < >191 THEN NA$ = NA$ + CHR$(PE): GOTO 2390
2400 GOTO 20
2410 PRINT "WHAT SHOULD I DO --->";:CM$ = ""
2411 GET GT$: IF ASC(GT$) = 13 THEN 2419
2412 IF ASC(GT$) < >8 THEN CM$ = CM$ +GT$: GOTO 2418
2413 IF LEN(CM$) < = 1 THEN CM$ = "": GOTO 2418
2414 CM$ = LEFT$(CM$, LEN(CM$) -1)
2418 PRINT GT$;: GOTO 2411
2419 PRINT
2420 NO$ = "":VB$ = "":VB = 0:NO = 0
2430 LC = LEN(CM$): FOR I = 1 TO LC: IF MID$ (CM$,I,1) < >" " THEN VB$ = VB$ + MID$ (CM$,I,1): NEXT I
2440 V1$ = VB$
2450 VB$ = LEFT$(VB$,3)
2460 FOR I = 1 TO NV: IF VB$(I) = VB$ THEN VB = I: GOTO 2480
2465 NEXT I
2470 VB = 1:NO$ = VB$: GOTO 2500
2480 IF LEN(V1$) +1 > = LEN(CM$) THEN NO = 0: RETURN
2490 NO$ = RIGHT$(CM$, LEN(CM$) -1 - LEN(V1$))
2500 NO$ = LEFT$(NO$,3): FOR I = 1 TO NN: IF NO$ = NO$(I) THEN 2520
2505 NEXT I
2510 NO = 0: RETURN
2520 NO = I: RETURN
2530 HOME
2540 PRINT P$(CP)
2550 FOR I = 8 TO LO: IF OB(I,0) = CP THEN PRINT "THERE IS ";OB$(I);" HERE."
2560 NEXT I
2570 FL = 0: IF OB(27,0) < > -1 THEN 2590
2575 PRINT "I CAN GO --";: FOR I = 0 TO 5: IF P(CP,I) < >0 THEN PRINT NO$(41 +I);" ";:FL = 1
2580 NEXT I: IF FL = 0 THEN PRINT "NOWHERE!": GOTO 2590