home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64games / 7gables.prg (.txt) < prev    next >
Commodore BASIC  |  1988-12-02  |  12KB  |  284 lines
  1. 10 PRINT"[147]":POKE53280,0:POKE53281,0
  2. 25 REM PET CONVERSION BY JOHN O'HARE
  3. 50 LS$="YOU'RE LOST IN A CLOUD OF ORANGE SMOKE  YOU'D BETTER 'LOOK'"
  4. 100 PRINT"[147]":PRINTTAB(7);"THE HOUSE OF SEVEN GABLES":PRINT:PRINTTAB(12);"BY GREG HASSETT"
  5. 110 A$="I DON'T SEE IT HERE.":R$="DON'T BE REDICULOUS!":Y$="I DON'T KNOW THAT WORD.":H$="I'M NOT HOLDING IT.":CP=2:GOTO2630
  6. 120 GOTO2530
  7. 130 IFINT(RND(1)*100)=50ANDZZ>2THEN2110
  8. 140 IFINT(RND(1)*40)=1ANDCP<>2ANDCP<>5ANDCP<>21ANDCP<>41THEN2200
  9. 150 GOSUB2310:T=T+1:IFT=50THENOB$(27)="A TARNISHED OLD COMPASS"
  10. 160 IFNO>40THENNO=NO-40
  11. 170 IFVB<>25ANDVB>10ANDNO$=""THENINPUT"GIVE ME AN OBJECT";NO$:GOSUB2480
  12. 180 IFNO$<>""ANDNO=0ANDVB=1THENPRINT"WHAT?":GOTO150
  13. 190 IFT>175THENMI=-10
  14. 200 IFT>225THENMI=-15
  15. 210 IFNO=0ANDNO$<>""THENPRINTY$:GOTO150
  16. 220 IFVB<>1THEN370
  17. 230 IFVB=1ANDNO$=""THENINPUT"WHERE ?";NO$:GOSUB2480
  18. 240 IFNO>40THENNO=NO-40
  19. 250 IFNO<7THEN290
  20. 260 AB%=OB(NO,0)
  21. 270 IF(AB%>10ANDAB%<18)ORABS(CP-ABB%)>3ORCP=2ORAB%=0THENPRINTY$:GOTO150
  22. 280 CP=AB%:GOTO120
  23. 290 IFOB(27,0)<>-1THENPRINT"I DON'T HAVE A COMPASS!":GOTO150
  24. 300 IFP(CP,NO-1)=0THENPRINT"I CAN'T GO THAT WAY!":GOTO150
  25. 310 IFCP=2ANDNO=2THENPRINT"IT'S LOCKED.":GOTO150
  26. 320 IFCP=6ANDNO=3ANDDF=0THENPRINT"THE DOOR IS CLOSED.":GOTO150
  27. 330 IFCP=9ANDOB(9,0)=9ANDNO=1THENPRINT"HE WON'T LET ME!":GOTO150
  28. 340 IFCP=38ANDNO=6ANDOB(18,0)<>0THENP(5,0)=2
  29. 350 IFCP=5ANDFF=1ANDP(5,0)=2ANDNO=1THENPRINT"[147]":PRINT"YOU MADE IT !!":GOTO2260
  30. 360 CP=P(CP,NO-1):GOTO120
  31. 370 IFVB<>2THEN520
  32. 380 IFNO$=""THENINPUT"GET WHAT";NO$:GOSUB2480
  33. 390 IFOB(NO,0)=-1THENPRINT"I'VE ALREADY GOT IT!":GOTO150
  34. 400 IFNO=7ANDCP=2THENPRINT"IT'S IMPOSSIBLE TO REMOVE.":GOTO150
  35. 410 IFNO=0THENPRINTY$:GOTO150
  36. 420 IFOB(NO,0)<>CPTHENPRINTA$:GOTO150
  37. 430 IFNO=31THENPRINTR$:GOTO150
  38. 440 IFNO=9THENPRINTR$:GOTO150
  39. 450 IFNO=40THENPRINT"I CAN'T PULL IT OUT OF IT'S SOCKET.":GOTO150
  40. 460 IFNO=14THENPRINT"IT'S TO HEAVY.":GOTO150
  41. 470 IFNO=16THENPRINT"IT'S IN A BIG POT THAT I CAN'T LIFT.":GOTO150
  42. 480 IFNO=22THENPRINTR$:GOTO150
  43. 490 IFZZ>5THENPRINT"I CAN'T CARRY ANY MORE!":GOTO150
  44. 500 ZZ=ZZ+1
  45. 510 OB(NO,0)=-1:PRINT"YOU GOT IT.":GOTO150
  46. 520 IFVB=3THEN120
  47. 530 IFVB<>4THEN570
  48. 540 ZZ=0:PRINT"I'M CARRYING:":FORI=8TO39:IFOB(I,0)=-1THENPRINTOB$(I):ZZ=ZZ+1
  49. 550 NEXTI:IFZZ=0THENPRINT"NOTHING AT ALL!"
  50. 560 GOTO150
  51. 570 IFVB<>5THEN610
  52. 580 J=0:FORI=1TOLO:IFOB(I,0)=5THENJ=J+OB(I,1)
  53. 590 NEXTI:J=J+MI
  54. 600 PRINT"YOU HAVE "J" OUT OF 160 POINTS.":GOTO150
  55. 610 IFVB<>6THEN650
  56. 620 IFNO$=""THENINPUT"DROP WHAT";NO$:GOSUB2480
  57. 630 IFOB(NO,0)<>-1THEN2860
  58. 640 PRINT"OK":ZZ=ZZ-1:OB(NO,0)=CP:GOTO150
  59. 650 IFVB=7THENPRINT"SORRY, I CAN'T.":GOTO150
  60. 660 IFVB<>8THEN720
  61. 670 INPUT"HIT RETURN WHEN READY";XX$:PRINT"SAVING":FORXX=8TO39:IFOB$(XX)=""THEN690
  62. 680 QQ(XX)=OB(XX,0)
  63. 690 NEXTXX
  64. 700 QQ(1)=CP:QQ(2)=FF:QQ(3)=ZZ:QQ(4)=T:QQ(5)=P(5,0):QQ(6)=DF
  65. 710 SAVEQQ:GOTO150
  66. 720 IFVB<>9THEN780
  67. 730 INPUT"HIT RETURN WHEN READY";XX$:PRINT"LOADING"
  68. 740 LOADQQ:FORI=8TOLO:IFOB$(I)=""THEN760
  69. 750 OB(I,0)=QQ(I)
  70. 760 NEXTI
  71. 770 CP=QQ(1):FF=QQ(2):ZZ=QQ(3):T=QQ(4):P(5,0)=QQ(5):DF=QQ(6):GOTO120
  72. 780 IFVB<>10THEN820
  73. 790 INPUT"ARE YOU SURE?";QN$
  74. 800 QN$=LEFT$(QN$,1):IFQN$="N"THEN150
  75. 810 GOTO2260
  76. 820 IFVB<>11THEN890
  77. 830 IFOB$(NO)=""ANDNO<>7THENPRINTR$:GOTO150
  78. 840 IFNO=7THEN870
  79. 850 IFOB(NO,0)<>-1THENPRINTA$:GOTO150
  80. 860 IFNO<>7THENPRINT"I CAN'T RING ";OB$(NO);"!!":GOTO150
  81. 870 IFCP<>2THENPRINTA$:GOTO150
  82. 880 PRINT"THE DOOR OPENS AND I'M SWEPT INSIDE.    IT THEN VANISHES!":FF=1:CP=5:GOTO150
  83. 890 IFVB<>12THEN960
  84. 900 IFNO=8ANDOB(10,0)<>0THENPRINT"IT IS ALREADY FULL.":GOTO150
  85. 910 IFOB(NO,0)<>-1THEN2860
  86. 920 IFNO<>8ANDNO<>29THENPRINT"I CAN'T FILL THAT!":GOTO150
  87. 930 IFCP<>3THENPRINT"HOW?":GOTO150
  88. 940 IFNO=29THENPRINT"NO, I VALUE MY LIFE. THAT FLUID MIGHT   REACT WITH THE WATER!":GOTO150
  89. 950 IFNO=8THENPRINT"YOUR BUCKET IS NOW FULL.":OB(8,0)=0:OB(10,0)=-1:GOTO150
  90. 960 IFVB<>13THEN1020
  91. 970 IFNO<>27ANDNO<>26ANDNO<>9ANDNO<>13ANDNO<>31THENPRINT"IT ISN'T ALIVE !":GOTO150
  92. 980 IFOB(NO,0)<>CPTHENPRINTA$:GOTO150
  93. 990 IFNO=9THENPRINT"IT DOESN'T APPROVE.":GOTO150
  94. 1000 IFNO=27THENPRINT"IT DOESN'T LIKE THE IDEA.":GOTO150
  95. 1010 PRINT"BE MORE SPECIFIC.":GOTO150
  96. 1020 IFVB<>14THEN1080
  97. 1030 IFNO=0THENPRINT"THROW WHAT ?":GOTO150
  98. 1040 IFOB(NO,0)<>-1THEN2860
  99. 1050 IFNO<>24ANDNO<>10THEN630
  100. 1060 IFCP=38ANDNO=10THENPRINT"SHE VANISHED BUT THE HAT REMAINS!":OB(18,0)=38:OB(31,0)=0:OB(10,0)=0:OB(8,0)=-1:GOTO150
  101. 1070 GOTO630
  102. 1080 IFVB<>15THEN1140
  103. 1090 IFNO=0THENPRINT"SHOW WHAT ?":GOTO150
  104. 1100 IFOB(NO,0)<>-1THEN2860
  105. 1110 IFNO<>11OROB(9,0)<>25THENPRINT"NOTHING HAPPENED.":GOTO150
  106. 1120 IFOB(9,0)<>25THENPRINT"NOTHING HAPPENED.":GOTO150
  107. 1130 PRINT"HE RUNS OFF SAYING 'I'LL RETURN!'":OB(9,0)=9:GOTO150
  108. 1140 IFVB<>16THEN1210
  109. 1150 IFNO<>9ANDNO<>13ANDNO<>31THENPRINTR$:GOTO150
  110. 1160 IFOB(NO,0)<>CPTHENPRINTA$:GOTO150
  111. 1170 IFOB(23,0)<>-1THEN2860
  112. 1180 IFNO=9ANDOB(23,0)<>-1THENPRINT"HE ONLY LIKES BANANAS.":GOTO150
  113. 1190 IFNO=9THENPRINT"HE GULPS DOWN THE BANANA, PEEL AND ALL!":OB(23,0)=0:GOTO150
  114. 1200 PRINT"SHE THROWS IT INTO THE BREW!":OB(23,0)=0:GOTO150
  115. 1210 IFVB<>17THEN1270
  116. 1220 IFOB(NO,0)<>-1ANDOB(NO,0)<>CPTHENPRINTA$:GOTO150
  117. 1230 IFNO=11THENPRINTR$:GOTO150
  118. 1240 IFNO<>12ANDNO<>23THENPRINTR$:GOTO150
  119. 1250 IFOB(NO,0)<>-1THEN2860
  120. 1260 PRINT"MUNCH MUNCH MUNCH. GOOD.":OB(23,0)=0:OB(24,0)=-1:GOTO150
  121. 1270 IFVB<>18THEN1390
  122. 1280 IFNO=0THENPRINT"I DON'T UNDERSTAND.":GOTO150
  123. 1290 IFNO<>14ANDNO<>22ANDNO<>33THENPRINT"I CAN'T DO THAT!":GOTO150
  124. 1300 IFCP<>25ANDNO=14THENPRINTA$:GOTO150
  125. 1310 IFCP=25ANDOB(9,0)=CPANDNO=14THENPRINT"THE VAMPIRE WON'T LET ME!":GOTO150
  126. 1320 IFNO=14ANDCP=25THENPRINT"THE COFFIN IS OPEN":CF=1:IFOB(35,0)=0THENOB(35,0)=25:GOTO150
  127. 1330 IFNO<>22THEN1370
  128. 1340 IFCP=2THENPRINT"IT'S LOCKED. TRY RINGING THE BELL.":GOTO150
  129. 1350 IFCP=6THENPRINT"I CAN'T. THERE'S NO DOORKNOB OR KEYHOLE":GOTO150
  130. 1360 PRINT"I SEE NO DOOR HERE.":GOTO150
  131. 1370 IFOB(33,0)=-1THENPRINT"TRY UNFOLDING THE AIRPLANE.":GOTO150
  132. 1380 IFOB(33,0)<>-1THENPRINT"I HAVE NO AIRPLANE.":GOTO150
  133. 1390 IFVB<>20THEN1480
  134. 1400 IFNO=22AND(CP=2ORCP=6)THEN1430
  135. 1410 IFNO=0THENPRINT"CHOP WHAT?":GOTO150
  136. 1420 IFOB(NO,0)<>CPTHENPRINTA$:GOTO150
  137. 1430 IFOB(39,0)<>-1THENINPUT"WITH WHAT, MY BARE HANDS";BH$:IFLEFT$(BH$,1)="Y"THENPRINT"I DON'T KNOW KARATE!":GOTO150
  138. 1440 IFOB(39,0)<>-1THENPRINT"ALL RIGHT THEN!":GOTO150
  139. 1450 IFNO<>22THENPRINT"THAT IS BEYOND MY POWER.":GOTO150
  140. 1460 IFCP<>2ANDCP<>6THENPRINT"I SEE NO DOOR HERE.":GOTO150
  141. 1470 PRINT"THE DOOR IS CHOPPED TO PIECES.":DF=1:GOTO150
  142. 1480 IFVB<>19THEN1560
  143. 1490 IFNO<>22ANDNO<>38ANDNO<>14THENPRINTR$:GOTO150
  144. 1500 IFNO=14ANDCP<>25THENPRINTA$:GOTO150
  145. 1510 IFNO=14ANDCP=25THENPRINT"THE COFFIN IS CLOSED.":CF=0:GOTO150
  146. 1520 IFNO=22ANDCP=6ANDDF=1THENPRINT"WHAT - A BUNCH OF SCRAPS?":GOTO150
  147. 1530 IFNO=22ANDCP=5THENPRINT"THE DOOR VANISHED, REMEMBER?":GOTO150
  148. 1540 IFNO=22ANDCP=2THENPRINT"IT IS ALREADY CLOSED.":GOTO150
  149. 1550 IFNO=22THENPRINTA$:GOTO150
  150. 1560 IFVB<>21THEN1610
  151. 1570 IFNO=0THENPRINTY$:GOTO150
  152. 1580 IFNO<>15THENPRINTR$:GOTO150
  153. 1590 IFOB(15,0)<>-1THENPRINT"I'M NOT HOLDING THEM !!":GOTO150
  154. 1600 PRINT"OKAY..":PRINT"    POOF!!":PRINT"THEY'RE NOW AN ORANGE BUBBLING LIQUID.":CF=1:GOTO150
  155. 1610 IFVB<>22THEN1750
  156. 1620 IFNO<>16ANDNO<>10ANDNO<>28ANDNO<>15THENPRINTR$:GOTO150
  157. 1630 IFNO=16ANDCP=38THENPRINT"THERE'S AN OLD SHOE IN IT!":GOTO150
  158. 1640 IFNO=10ANDOB(28,0)=-1THENPRINT"OKAY":OB(10,0)=0:OB(8,0)=-1:GOTO150
  159. 1650 IFNO=28ANDOB(28,0)=-1THENPRINT"ALLRIGHT..":PRINTTAB(15)"POOF!!":PRINT"OH OH!! - WHERE AM I? ALL OF MY POSSES- IONS WERE LOST IN THAT BLACK SMOKE!"
  160. 1660 IFNO<>28OROB(28,0)<>-1THEN1730
  161. 1670 FORI=8TOLO
  162. 1680 IFOB$(I)=""THEN1710
  163. 1690 IFOB(I,0)<>-1ANDOB(I,0)<>5THEN1710
  164. 1700 OB(I,0)=INT(RND(1)*38)
  165. 1710 NEXTI
  166. 1720 OB(27,0)=CP:OB(28,0)=0:OB(29,0)=-1:ZZ=1:GOTO150
  167. 1730 IFNO=15THENPRINTR$:GOTO150
  168. 1740 PRINT"I CAN'T.":GOTO150
  169. 1750 IFVB<>23THEN1810
  170. 1760 IFNO=22AND(CP=2ORCP=6)THEN1780
  171. 1770 IFOB(NO,0)<>-1ANDOB(NO,0)<>CPTHENPRINTA$:GOTO150
  172. 1780 IFNO<>9ANDNO<>13ANDNO<>31THENPRINT"I DON'T WANT TO HIT THE ";NO$;".":GOTO150
  173. 1790 IFNO=9THENPRINT"HIT HIM YOURSELF!":GOTO150
  174. 1800 PRINT"YUK! SHE'S TOO UGLY!":GOTO150
  175. 1810 IFVB=24THENPRINT"ALL RIGHT...";NO$:GOTO150
  176. 1820 IFVB=25THENPRINT"YOU HAVE USED "T" TURNS SO FAR.":GOTO150
  177. 1830 IFVB<>26THEN1890
  178. 1840 IFNO<>10ANDNO<>28ANDNO<>15THENPRINTR$:GOTO150
  179. 1850 IFNO=10ANDOB(10,0)=-1THENPRINT"IT'S EMPTY AND THE GROUND IS WET.":OB(10,0)=0:OB(8,0)=-1:GOTO150
  180. 1860 IFNO=28THENPRINT"YOU NOW HAVE AN EMPTY TEST TUBE.":OB(28,0)=0:OB(29,0)=-1:GOTO150
  181. 1870 IFNO=15ANDOB(15,0)=-1THENPRINTTAB(16)"POOF!!":PRINT:PRINTLS$:OB(15,0)=CP:CP=12:GOTO150
  182. 1880 PRINTH$:GOTO150
  183. 1890 IFVB=27THENPRINTR$:GOTO150
  184. 1900 IFVB<>29THEN1940
  185. 1910 IFNO<>33THENPRINTR$:GOTO150
  186. 1920 IFOB(33,0)<>-1THEN2860
  187. 1930 PRINT"O.K.":OB(33,0)=0:OB(34,0)=-1:GOTO150
  188. 1940 IFVB<>28THEN2010
  189. 1950 IFOB(NO,0)<>CPANDOB(NO,0)<>-1THENPRINTA$;" AND ";H$:GOTO150
  190. 1960 IFNO<>34ANDNO<>32ANDNO<>19THENPRINT"READ WHAT?":GOTO150
  191. 1970 IFOB(NO,0)<>-1THEN2860
  192. 1980 IFNO=32THENPRINT"IT SAYS: NOTTUB SSERP":GOTO150
  193. 1990 IFNO=34THENPRINT"'REMEMBER THE WIZARD OF OZ.'":GOTO150
  194. 2000 PRINT"IT'S IN WITCHISH!":GOTO150
  195. 2010 IFVB=30THENPRINT"TRY OPEN.":GOTO150
  196. 2020 IFVB<>31THEN2080
  197. 2030 IFOB(NO,0)<>CPTHENPRINTA$:GOTO150
  198. 2040 IFNO<>9ANDNO<>31THENPRINTR$:GOTO150
  199. 2050 IFOB(35,0)<>-1THEN2860
  200. 2060 IFNO=31THENPRINT"THE KNIFE VANISHES WHEN IT TOUCHES HER.":OB(35,0)=0:GOTO150
  201. 2070 PRINT"THE VAMPIRE DIES AND THEN VANISHES.":OB(9,0)=0:GOTO150
  202. 2080 IFNO<>40THENPRINTR$:GOTO150
  203. 2090 IFCP<>37THENPRINTA$:GOTO150
  204. 2100 CP=38:GOTO120
  205. 2110 PRINT"A GHOST APPEARS AND SAYS 'THROW ME SOME TREASURE!'":GOSUB2310
  206. 2120 IFVB<>16ORNO<>13THEN2150
  207. 2130 IFOB(23,0)=0THENPRINT"I HAVE NO FOOD.":GOTO2150
  208. 2140 PRINT"HE EATS THE BANANA AND VANISHES.":OB(23,0)=0:OB(24,0)=CP:GOTO150
  209. 2150 IFVB<>14THENPRINT"HE IS GETTING MAD!":GOSUB2310
  210. 2160 IFVB<>14THENPRINT"HE HAS KILLED ME !":GOTO2260
  211. 2170 IFOB(NO,0)<>-1THENPRINTH$:GOSUB2310:GOSUB2150
  212. 2180 IFOB(NO,1)=0THENPRINT"HE GROWLS 'NOT GOOD ENOUGH' AND THROWS  IT BACK.":GOSUB2310:GOSUB2150
  213. 2190 PRINT"HE GRABS IT AND RUNS.":ZZ=ZZ-1:OB(NO,0)=0:GOTO150
  214. 2200 PRINT"OH OH! A ONE EYED GHOUL!":INPUT"WHAT SHALL I DO?";CM$:GOSUB2380
  215. 2210 IFVB<>14ORNO<>15THEN2250
  216. 2220 IFOB(15,0)<>-1THENPRINT"I DON'T HAVE THEM!":GOTO2250
  217. 2230 IFCF=0THENPRINT"THEY WEREN'T MIXED!":GOTO2250
  218. 2240 PRINT"THE GHOUL MELTS TO NOTHING.":OB(15,0)=CP:ZZ=ZZ-1:GOTO150
  219. 2250 PRINT"THE GHOUL KILLS ME!":GOTO2260
  220. 2260 J=0:FORI=8TOLO:IFOB(I,0)=5THENJ=J+OB(I,1)
  221. 2270 NEXTI
  222. 2280 J=J+MI
  223. 2290 PRINT"OUT OF 160 POINTS, YOU SCORED "J"       POINTS USING "T" TURNS.":PRINT:INPUT"WANT TO TRY AGAIN?";AG$:AG$=LEFT$(AG$,1):IFAG$="Y"THENRUN
  224. 2300 END
  225. 2310 PRINT"WHAT SHOULD I DO --->";:CM$=""
  226. 2320 GETGT$:IFGT$=""THEN2320
  227. 2321 IFGT$=CHR$(13)ANDLEN(CM$)=0THEN2320
  228. 2325 IFGT$=CHR$(13)THEN2370
  229. 2330 IFASC(GT$)<>20THENCM$=CM$+GT$:GOTO2360
  230. 2340 IFLEN(CM$)<=1THENCM$="":GOTO2360
  231. 2350 CM$=LEFT$(CM$,LEN(CM$)-1)
  232. 2360 PRINTGT$;:GOTO2320
  233. 2370 PRINT
  234. 2380 NO$="":VB$="":VB=0:NO=0
  235. 2390 LC=LEN(CM$):FORI=1TOLC:IFMID$(CM$,I,1)<>" "THENVB$=VB$+MID$(CM$,I,1):NEXTI
  236. 2400 V1$=VB$
  237. 2410 VB$=LEFT$(VB$,3)
  238. 2420 FORI=1TONV:T$=MID$(V$,I*3-2,3):IFRIGHT$(T$,1)=" "THENT$=LEFT$(T$,2)
  239. 2430 IFVB$=T$THENVB=I:GOTO2460
  240. 2440 NEXTI
  241. 2450 VB=1:NO$=VB$:GOTO2480
  242. 2460 IFLEN(V1$)+1>=LEN(CM$)THENNO=0:RETURN
  243. 2470 NO$=RIGHT$(CM$,LEN(CM$)-1-LEN(V1$))
  244. 2480 NO$=LEFT$(NO$,3):FORI=1TONN:T$=MID$(N$,I*3-2,3):IFRIGHT$(T$,1)=" "THENT$=LEFT$(T$,1)
  245. 2490 IFNO$=T$THEN2520
  246. 2500 NEXTI
  247. 2510 NO=0:RETURN
  248. 2520 NO=I:RETURN
  249. 2530 PRINT"[147]"
  250. 2540 PRINTP$(CP)
  251. 2550 FORI=8TOLO:IFOB(I,0)=CPTHENPRINT"THERE IS ";OB$(I);" HERE."
  252. 2560 NEXTI
  253. 2570 FL=0:IFOB(27,0)<>-1THEN2610
  254. 2580 PRINT"I CAN GO --";:FORI=0TO5:IFP(CP,I)<>0THENPRINTMID$(N$,121+3*I,3);:FL=1
  255. 2590 NEXTI:IFFL=0THENPRINT"NOWHERE!":GOTO2610
  256. 2600 PRINT
  257. 2610 PRINT"---------------------------------------"
  258. 2620 GOTO130
  259. 2630 NN=46:LO=40:P=40:NV=32:DIMOB$(LO),OB(LO,1),QQ(46)
  260. 2640 DIMP$(P),P(P,5),VB$(NV)
  261. 2650 DATAI'M AT THE 2ND GABLE,0,4,0,0,0,0,I'M OUTSIDE A HOUSE WITH 7 GABLES. I SEE A DOOR WITH A BELL,0,5,0,0,0,0,I'M IN THE KITCHEN. THERE IS A SINK WITH A SPICKET HERE,0,6,0,0,0,0,I'M IN THE GUESTROOM,1,0,5,8,0,0
  262. 2660 DATAI'M IN THE LIVING ROOM,0,9,6,4,0,0,I'M IN THE DINING ROOM,3,0,7,5,0,0,I'M AT THE BOTTOM OF THE STAIRWELL,0,0,0,6,29,0,I'M AT THE 1ST GABLE,0,0,4,0,0,0,I'M AT THE TOP OF A STAIRCASE,5,0,0,10,0,20
  263. 2670 DATAI'M IN A CLOSET. A VOICE SAYS 'MIX EM',0,0,9,0,0,0,I'M IN A MAD SCIENTIST'S LAB,0,0,0,0,0,12,I'M IN A MAZE OF HALLWAYS,0,16,12,12,11,15,X,0,0,0,0,0,0,X,0,0,0,0,0,0,X,15,17,15,16,0,0,X,15,16,12,16,16,16
  264. 2680 DATAX,15,0,18,0,0,0,I'M AT THE WEST END OF THE HALLWAY,19,0,23,17,0,0
  265. 2690 DATA I'M IN A DUNGEON. A NOTE ON THE WALL    READS- 'YOU HAVE TO KILL THE WITCH TO   LEAVE,0,18,19,19,19,19,I'M AT THE BOTTOM OF A STAIRCASE,0,23,0,0,9,0,X,0,0,0,0,0,0,I'M IN A BARREN LIBRARY,0,24,0,0,0,0
  266. 2700 DATAI'M IN THE CENTER OF A LONG E/W HALLWAY,20,0,24,18,0,0,I'M AT THE EAST END OF THE HALLWAY,22,0,25,23,0,0,I'M IN DRACULA'S CHAMBER,0,0,0,24,0,0,I'M IN A BROOM CLOSET,0,0,27,0,0,0,I'M AT THE 4TH GABLE,28,0,0,26,0,0
  267. 2710 DATAI'M AT GABLE 5,0,27,29,0,0,0,X,0,0,0,28,0,32,I'M IN A BEDROOM,0,0,31,33,0,0,I'M IN A DUSTY BEDROOM,0,34,32,30,0,0,I'M AT THE 6TH GABLE,0,0,0,31,0,0,I'M AT THE 3RD GABLE,0,0,30,34,0,0,I'M AT THE END OF A HALLWAY,31,40,35,0,0,0
  268. 2720 DATAI'M IN THE MIDDLE OF A HALLWAY,0,0,36,34,0,0
  269. 2730 DATAX,32,0,37,35,0,0,I'M IN A ROOM WITH A PEDESTAL WITH A    LARGE BUTTON ON TOP,0,0,0,36,0,39,I'M IN THE WITCH'S CHAMBER,0,0,0,0,0,5,I'M AT THE 7TH GABLE,0,0,0,0,37,0,I'M IN A MAMMOTH ART GALLERY,34,0,0,0,0,0
  270. 2740 DATAAN EMPTY BUCKET,6,0,A MEAN LOOKING VAMPIRE,25,0,A BUCKET OF WATER,0,0,SOME FRESH GARLIC,3,0,X,0,0,X,0,0,A COFFIN,25,0,SOME CHEMICALS,11,0,A POT OF WITCHS' BREW,38,0,X,0,0,A BLACK HAT,0,50
  271. 2750 DATASOME VALUABLE RECIPIES,26,15,SOME SILVER CANDLESTICKS,6,10,X,0,0,X,0,0,A BANANA,3,0,A BANANA PEEL,0,0,A SPARKLING DIAMOND,39,15,X,0,0,A SHINY COMPASS,2,0,A TEST TUBE OF FLUID,33,0
  272. 2760 DATAAN EMPTY TEST TUBE,0,0,A BEAUTIFUL ROSE,29,10,AN UGLY WITCH,38,0,A BOOK OF WITCHCRAFT,22,0,A PAPER AIRPLANE,32,0,A PIECE OF PAPER WITH WRITING ON IT,0,0,SULTON'S DAGGER,0,35
  273. 2770 DATAA PRICELESS REMBRANDT,40,20,X,0,0,X,0,0,AN OLD RUSTY AXE,15,5
  274. 2780 FORI=1TOP:READP$(I):FORJ=0TO5:READP(I,J):NEXTJ,I
  275. 2790 P$(15)=P$(12):P$(16)=P$(12):P$(17)=P$(12):P$(29)=P$(9):P$(36)=P$(34)
  276. 2800 FORI=8TO39
  277. 2810 READOB$(I),OB(I,0),OB(I,1)
  278. 2820 NEXTI
  279. 2830 N$="NORSOUEASWESUP DOWBELBUCVAMWATGARFOOGHOCOFCHEBRECUPHATRECCANKEYDOOBANPEEDIACATCOMFLUTUBROSWITBOOAIRPAPDAGREMCAGGATAXEBUTN  S  E  W  U  D  "
  280. 2840 V$="GO GETLOOINVSCODROHELSAVLOAQUIRINFILKILTHRSHOFEEEATOPECLOCHOMIXDRIHITSAYTURDUMFIGREAUNFUNLSTAPRE"
  281. 2850 GOTO120
  282. 2860 PRINTH$:GOTO150
  283. 2870 PRINT"WHAZZAT ?":GOTO150
  284.