home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Adventure / DEATH-HOUSE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  20.1 KB  |  727 lines
  1. 5 POKE775,200
  2. 10 GOSUB5000
  3. 15 PRINTTAB(10)"[196]*[197]*[193]*[212]*[200] [200]*[207]*[213]*[211]*[197]"
  4. 20 FORT=1TO6000:NEXT
  5. 25 PRINTTAB(18)"*BY*"
  6. 30 FORT=1TO3000:NEXT
  7. 35 PRINTTAB(13)"[205]ARK [211]. [194]OUCHER"
  8. 40 FORT=1TO6000:NEXT
  9. 45 PRINT"[197]NTER FIRST NAME":INPUTA$
  10. 50 FORT=1TO3000:NEXT
  11. 55 PRINT"[147]":PRINT"[215]ELCOME TO MY HOUSE, ";A$;"."
  12. 58 FORT=1TO4000:NEXT
  13. 60 PRINT"[215]ELL, LET'S SEE.[207]H, IT'S ONLY HALF PAST"
  14. 62 PRINT"ELEVEN. [212]HAT GIVES ME A FEW MINUTES TO"
  15. 64 PRINT"EXPLAIN THE SITUATION TO YOU. [193]RE YOU"
  16. 66 PRINT"QUITE COMFORTABLE IN THAT CHAIR? [199]OOD,"
  17. 68 PRINT"THEN WHY DON'T [201] BEGIN........"
  18. 70 GOSUB5300
  19. 72 PRINT"[212]HE PROPOSITION IS ACTUALLY QUITE A"
  20. 74 PRINT"SIMPLE ONE. [193]T MIDNIGHT [201] LOCK YOU IN"
  21. 76 PRINT"THE EAST BEDROOM OF THIS HOUSE. [193]T PRE-"
  22. 78 PRINT"CISELY 1[193][205] [201] WILL UNLOCK THE DOOR. [201]F"
  23. 80 PRINT"YOU ARE STILL ALIVE, [201] WILL GIVE YOU"
  24. 82 PRINT"THE SUM OF $1,000,000, FREE AND CLEAR."
  25. 84 PRINT"[201] KNOW THAT MUST SOUND TERRIBLY INSANE,"
  26. 86 PRINT"BUT [201] TRUST YOU DID ENOUGH RESEARCH TO"
  27. 88 PRINT"UNDERSTAND THE OFFER. [217]OU DID DO SOME"
  28. 90 PRINT"CHECKING AROUND, DIDN'T YOU? [215]ELL, NOT"
  29. 92 PRINT"TO MIND; [201] CAN TELL YOU ABOUT IT....."
  30. 94 GOSUB5300
  31. 96 PRINT"[212]HE ROOM YOU ARE ABOUT TO ENTER WAS"
  32. 98 PRINT"ONCE MY GREAT-GRANDFATHER'S. [211]OME TIME"
  33. 100 PRINT"AFTER MIDNIGHT ONE DREARY NIGHT, THE"
  34. 102 PRINT"SERVANTS HEARD A TERRIBLE SCREAM COMING"
  35. 104 PRINT"FROM HIS CHAMBERS. [215]HEN THEY OPENED THE"
  36. 106 PRINT"DOOR TO HIS ROOM, HE WAS DEAD. [212]HE DOC-"
  37. 108 PRINT"TOR SAID THAT HE HAD DIED OF A HEART"
  38. 110 PRINT"ATTACK. [212]HE SERVANTS SWORE HE LOOKED AS"
  39. 112 PRINT"IF HE WAS SCARED INTO HIS GRAVE. [197]VER"
  40. 114 PRINT"SINCE HIS DEATH, ANYONE WHO SLEPT IN"
  41. 116 PRINT"HIS ROOM DIED, SOMETIME BETWEEN MID-"
  42. 118 PRINT"NIGHT AND 1[193][205]. [215]HEN [201] TOOK POSSESSION"
  43. 120 PRINT"OF THIS HOUSE, [201] MADE THE OFFER [201] NOW"
  44. 122 PRINT"PROPOSE TO YOU. [198]OUR PEOPLE TOOK ME UP"
  45. 124 PRINT"ON IT. [193]LL DIED. [211]O THAT'S THE STORY,"
  46. 126 PRINT"PURE AND SIMPLE..............."
  47. 128 GOSUB5300
  48. 130 PRINT"[205]Y, IS IT THAT TIME ALREADY? [215]ELL, WHY"
  49. 132 PRINT"DON'T YOU FOLLOW ME UP THESE STAIRS...."
  50. 134 FORT=1TO4000:NEXT
  51. 136 PRINT"[193]H, HERE WE ARE. [201] SEE YOU HAVE YOUR"
  52. 138 PRINT"FLASHLIGHT. [199]OOD, YOU NEVER KNOW AROUND"
  53. 140 PRINT"HERE WHEN THE LIGHTS WILL GO OFF. [215]ELL,"
  54. 142 PRINT"IT'S THAT TIME, ";A$;"."
  55. 144 FORT=1TO4000:NEXT
  56. 146 PRINT"[212]AKE CARE, AND [201] HOPE TO SEE YOU WELL"
  57. 148 PRINT"AND FINE IN AN HOUR. [199][207][207][196] [204][213][195][203]!!!"
  58. 150 GOSUB5300
  59. 155 PRINT"[147]"
  60. 160 TI$="120000"
  61. 162 GOSUB6000
  62. 163 FORT=1TO4000:NEXT
  63. 164 PRINT"....THE TURNING OF THE KEY IN THE LOCK"
  64. 166 PRINT"MAKES YOUR FLESH CREEP. [200]OWEVER, AS YOU"
  65. 168 PRINT"LOOK AROUND THE ROOM, YOU SLOWLY START"
  66. 170 PRINT"TO RELAX. [207]THER THAN THE FACT THAT THE"
  67. 172 PRINT"FURNISHINGS ARE OBVIOUSLY QUITE OLD,"
  68. 174 PRINT"THE ROOM APPEARS QUITE NORMAL. [212]HERE IS"
  69. 176 PRINT"A WINDOW IN THE MIDDLE OF THE WALL TO"
  70. 178 PRINT"YOUR FRONT, NO DOUBT AFFORDING A BREATH"
  71. 180 PRINT"TAKING VIEW OF THE ESTATE. [212]O THE LEFT"
  72. 182 PRINT"OF THE WINDOW IS AN ORNATE WRITING DESK"
  73. 184 PRINT"THAT MUST BE AT LEAST 200 YEARS OLD. [212]O"
  74. 186 PRINT"THE RIGHT OF THE WINDOW, ON A RICHLY"
  75. 188 PRINT"INLAID TABLE, IS A GRAMOPHONE, LOOKING"
  76. 190 PRINT"AS IF IT WAS BOUGHT ONLY YESTERDAY."
  77. 192 GOSUB5300
  78. 194 PRINT"[212]HE WALL TO YOUR RIGHT IS COMPLETELY"
  79. 196 PRINT"TAKEN UP WITH AN IMMENSE BOOKCASE BUILT"
  80. 198 PRINT"AROUND AN [201]TALIAN MARBLE FIREPLACE. [212]HE"
  81. 199 PRINT"SHELVES ARE PACKED TIGHT WITH BOOKS,"
  82. 200 PRINT"AND FROM YOUR VIEWPOINT, MOST OF THEM"
  83. 202 PRINT"SEEM TO BE BOUND IN LEATHER. [212]HERE ARE"
  84. 204 PRINT"LOGS IN THE FIREPLACE, BUT NO FIRE.[207]F"
  85. 206 PRINT"COURSE, CONSIDERING THE SUMMER HEAT,"
  86. 208 PRINT"A FIRE WOULD BE OUT OF THE QUESTION,"
  87. 210 PRINT"BUT SOMEHOW YOU KIND OF WISH THERE WAS,"
  88. 212 PRINT"AS IF THE CHEERY GLOW FROM IT WOULD"
  89. 214 PRINT"WARD AWAY ALL THINGS EVIL."
  90. 216 GOSUB5300
  91. 218 PRINT"[201]N THE CENTER OF THE LEFT WALL IS THE"
  92. 220 PRINT"BED, A MASSIVE FOUR-POSTER WITH CANOPY."
  93. 222 PRINT"[212]O ITS RIGHT, A NIGHTSTAND. [193] RATHER"
  94. 224 PRINT"TIME-WORN ROCKING CHAIR IS TO THE LEFT."
  95. 226 PRINT"[194]EHIND YOU IS THE DOOR, AND TO ITS"
  96. 228 PRINT"RIGHT, AN OLD-FASHIONED WASH STAND,"
  97. 230 PRINT"WITH PITCHER, BOWL, AND A RATHER ODDLY-"
  98. 232 PRINT"SHAPED MIRROR ON THE WALL BEHIND. [193]LL"
  99. 234 PRINT"IN ALL, A NORMAL-LOOKING ROOM."
  100. 236 GOSUB5300
  101. 238 PRINT"[147]"
  102. 240 FORT=1TO4000:NEXT
  103. 242 PRINT"[215]ELL, ";A$;", WHAT WILL YOU DO NOW?"
  104. 244 FORT=1TO4000:NEXT
  105. 246 PRINTTAB(11)"[198]1[146]  [195]HECK THE TIME"
  106. 248 PRINTTAB(11)"[198]3[146]  [211]LEEP"
  107. 250 PRINTTAB(11)"[198]5[146]  [197]XAMINE THE ROOM"
  108. 251 GETC$:IFC$=""THEN251
  109. 254 IFC$=CHR$(133)THENPRINT"[147]":GOSUB6000:GOTO7000
  110. 256 IFC$=CHR$(134)THENGOTO260
  111. 258 IFC$=CHR$(135)THENGOTO600
  112. 260 GOSUB6010:PRINT"[147]"
  113. 265 FORT=1TO3000:NEXT
  114. 270 PRINT"[217]OU SLOWLY CLIMB INTO THE BED.[212]HE THICK"
  115. 275 PRINT"COVERLETS ARE QUITE COMFORTABLE,BUT THE"
  116. 280 PRINT"BED ITSELF IS RATHER HARD. [211]LOWLY YOU"
  117. 285 PRINT"LAY YOUR HEAD ON THE PILLOW........"
  118. 290 FORT=1TO8000:NEXT
  119. 295 H=INT(4*RND(1))
  120. 297 GETH$
  121. 298 IFH=0THEN310
  122. 300 IFH=1THEN360
  123. 302 IFH=2THEN380
  124. 304 IFH=3THEN410
  125. 310 PRINT"...AND IT FEELS LIKE YOU'VE JUST SLAM-"
  126. 311 PRINT"MED IT INTO A BUILDING. [212]HERE'S SOME-"
  127. 312 PRINT"THING UNDER THE PILLOW!"
  128. 313 GOSUB5300
  129. 314 PRINT"[147]":PRINT"[215]HAT NOW, ";A$;"?"
  130. 315 PRINTTAB(11)"[198]1[146]   [199]RAB ITEM"
  131. 316 PRINTTAB(11)"[198]3[146]   [201]GNORE IT"
  132. 317 GETCH$:IFCH$=""THEN317
  133. 318 IFCH$=CHR$(133)THEN320
  134. 319 IFCH$=CHR$(134)THEN410
  135. 320 PRINT"[147]"
  136. 321 H=INT(2*RND(1))
  137. 322 GETH$
  138. 323 IFH=0THEN325
  139. 324 IFH=1THEN340
  140. 325 PRINT"[206]O WONDER IT FELT LIKE YOU SLAMMED YOUR"
  141. 326 PRINT"HEAD INTO A BUILDING! [211]OMEONE PUT A "
  142. 327 PRINT"BRICK UNDER THE PILLOW. [196]ISGUSTED, YOU"
  143. 328 PRINT"THROW THE BRICK DOWN AND AGAIN LAY ON"
  144. 329 PRINT"THE PILLOW......"
  145. 330 GOSUB5300
  146. 331 GOSUB6010
  147. 332 FORT=1TO3000:NEXT
  148. 335 GOTO384
  149. 340 PRINT"[193]S YOU REACH UNDER THE PILLOW AND WITH-"
  150. 342 PRINT"DRAW THE ITEM,YOU SUDDENLY REALIZE IT'S"
  151. 343 PRINT"MOVING. [211]TARTLED, YOU FIND THAT YOU'RE"
  152. 344 PRINT"HOLDING A RATTLESNAKE! [217]OU FEEL A SHARP"
  153. 345 PRINT"PAIN IN YOUR CHEST, AND LAPSE INTO UN-"
  154. 346 PRINT"CONSCIOUSNESS........."
  155. 347 GOSUB5300:PRINT"[147]"
  156. 350 GOTO15000
  157. 360 PRINT"[147]"
  158. 362 PRINT"[202]UST AS YOUR GETTING ALL SNUGGLED IN,"
  159. 364 PRINT"STRONG HANDS SEIZE YOU ROUGHLY BY THE"
  160. 366 PRINT"THROAT. [217]OUR EYES OPEN WIDE, BUT YOU"
  161. 368 PRINT"CAN'T SEE WHO'S STRANGLING YOU. [211]LOWLY,"
  162. 370 PRINT"YOU SINK INTO OBLIVION......"
  163. 372 GOSUB5300:PRINT"[147]"
  164. 374 GOTO15000
  165. 380 GOSUB6010
  166. 384 PRINT"[193]FTER A MOMENT OR SO OF TOSSING AND"
  167. 386 PRINT"TURNING,YOU REALIZE YOU'LL NEVER GET TO"
  168. 388 PRINT"SLEEP. [195]URSING, YOU GET OUT OF BED."
  169. 390 GOSUB5300
  170. 400 GOTO238
  171. 410 GOSUB6010:PRINT"[147]":FORT=1TO3000:NEXT
  172. 411 PRINT"[211]UDDENLY, SOMEONE(SOMETHING?) IN AN"
  173. 412 PRINT"EVIL-SOUNDING VOICE SCREAMS'[199]ET OUT OF"
  174. 414 PRINT"MY DAMN BED' RIGHT IN YOUR EAR. [215]ITH"
  175. 416 PRINT"SPEED THAT WOULD PLEASE YOUR OLD DRILL"
  176. 418 PRINT"SERGEANT, YOU JUMP OUT OF BED AND START"
  177. 420 PRINT"TO STAMMER AN APOLOGY, UNTIL YOU REAL-"
  178. 422 PRINT"IZE THAT YOU'RE ALONE!"
  179. 424 GOSUB5300
  180. 426 GOTO238
  181. 600 PRINT"[147]":FORT=1TO3000:NEXT
  182. 605 PRINT"[215]HERE WILL YOU START, ";A$;"?"
  183. 606 FORT=1TO3000:NEXT
  184. 610 PRINTTAB(11)"[198]1[146]  [206]ORTH WALL"
  185. 612 PRINTTAB(11)"[198]3[146]  [211]OUTH WALL"
  186. 614 PRINTTAB(11)"[198]5[146]  [197]AST WALL"
  187. 616 PRINTTAB(11)"[198]7[146]  [215]EST WALL"
  188. 617 GETCH$:IFCH$=""THEN617
  189. 618 IFCH$=CHR$(133)THEN700
  190. 619 IFCH$=CHR$(134)THEN800
  191. 620 IFCH$=CHR$(135)THEN900
  192. 625 IFCH$=CHR$(136)THEN1000
  193. 700 GOSUB6010
  194. 702 PRINT"[147]"
  195. 704 FORT=1TO3000:NEXT
  196. 706 PRINT"....MOVING TO NORTH WALL.."
  197. 708 H=INT(3*RND(1))
  198. 710 GETH$
  199. 712 IFH=0THEN720
  200. 714 IFH=1THEN740
  201. 716 IFH=2THEN760
  202. 720 FORT=1TO3000:NEXT
  203. 722 PRINT"[198]UNNY, THE FLOOR IN FRONT OF YOU JUST"
  204. 724 PRINT"OPENED UP. [217]OU'RE FALLING INTO A PIT!"
  205. 726 FORT=1TO3000:NEXT
  206. 728 PRINT"[193]S YOU FALL,SEEMINGLY FOREVER, YOU LOOK"
  207. 730 PRINT"DOWN. [217]OU'RE GETTING CLOSER TO A BED-"
  208. 732 PRINT"DING OF 30-FOOT SPIKES![217]OU FEEL A"
  209. 734 PRINT"SHARP PAIN, THEN NOTHING......."
  210. 736 GOSUB5300
  211. 738 GOTO15000
  212. 740 GOSUB6010
  213. 742 FORT=1TO3000:NEXT
  214. 744 PRINT"[193]S YOU GET CLOSER TO THE NORTH WALL,"
  215. 746 PRINT"SOMETHING ON THE EAST WALL CATCHES YOUR"
  216. 748 PRINT"EYE!!!!"
  217. 750 GOSUB5300
  218. 752 GOTO600
  219. 760 GOSUB6010
  220. 762 FORT=1TO3000:NEXT
  221. 763 PRINT"[147]"
  222. 764 PRINT"[215]HICH AREA FIRST, ";A$;"?"
  223. 765 FORT=1TO3000:NEXT
  224. 766 PRINTTAB(11)"[198]1[146]  [196]ESK"
  225. 768 PRINTTAB(11)"[198]3[146]  [215]INDOW"
  226. 770 PRINTTAB(11)"[198]5[146]  [199]RAMOPHONE"
  227. 772 GETCH$:IFCH$=""THEN772
  228. 774 IFCH$=CHR$(133)THEN2000
  229. 776 IFCH$=CHR$(134)THEN2100
  230. 778 IFCH$=CHR$(135)THEN2200
  231. 800 PRINT"[147]":FORT=1TO3000:NEXT
  232. 802 GOSUB6010
  233. 804 PRINT".....MOVING TO SOUTH WALL....."
  234. 806 FORT=1TO3000:NEXT
  235. 808 H=INT(3*RND(1))
  236. 810 GETH$
  237. 812 IFH=0THEN820
  238. 814 IFH=1THEN840
  239. 815 IFH=2THEN840
  240. 820 PRINT"[147]"
  241. 822 PRINT"[207]H OH. [193]S YOU MOVE TOWARDS THE SOUTH"
  242. 823 PRINT"WALL, SOMETHING GRABS YOU FROM BEHIND!"
  243. 824 PRINT"[193]LMOST IN SLOW MOTION, IT TURNS YOU"
  244. 825 PRINT"AROUND........."
  245. 826 FORT=1TO6000:NEXT
  246. 830 GOTO7610
  247. 840 PRINT"[147]":GOSUB6010
  248. 842 PRINT"[215]HAT WILL YOU SEARCH, ";A$;"?"
  249. 844 FORT=1TO3000:NEXT
  250. 846 PRINTTAB(11)"[198]1[146]  [196]OOR"
  251. 848 PRINTTAB(11)"[198]3[146]  [215]ASHSTAND"
  252. 850 GETCH$:IFCH$=""THEN850
  253. 852 IFCH$=CHR$(133)THEN860
  254. 854 IFCH$=CHR$(134)THEN880
  255. 860 PRINT"[147]":FORT=1TO3000:NEXT
  256. 861 GOSUB6010
  257. 862 PRINT"[217]EP, THIS IS A DOOR, ALRIGHT, AND AS"
  258. 863 PRINT"YOU ARE QUITE AWARE OF, IT'S [204][207][195][203][197][196]!"
  259. 864 PRINT"[193]FTER ALL, IT'S ONLY ";LEFT$(TI$,2);":";MID$(TI$,3,2);"; YOU"
  260. 865 PRINT"KNOW YOU'RE [206][207][212] GETTING OUT OF HERE"
  261. 866 PRINT"UNTIL 1[193][205]!!!!!"
  262. 867 GOSUB5300
  263. 868 GOTO238
  264. 880 PRINT"[147]":FORT=1TO3000:NEXT
  265. 881 GOSUB6010
  266. 882 PRINT"[193]S YOU TURN TO EXAMINE THE WASH STAND,"
  267. 883 PRINT"YOU JUMP BACK IN FRIGHT! [212]HE STAND IS"
  268. 884 PRINT"GONE![193]LL THAT REMAINS IS THE MIRROR,"
  269. 885 PRINT"WHICH IS EMANATING A PECULIAR GREENISH"
  270. 886 PRINT"GLOW."
  271. 887 GOSUB5300
  272. 888 PRINT"[147]":FORT=1TO3000:NEXT
  273. 889 PRINT"[215]HAT NOW, ";A$;"?"
  274. 890 FORT=1TO3000:NEXT
  275. 891 PRINTTAB(11)"[198]1[146]  [204]OOK IN MIRROR"
  276. 892 PRINTTAB(11)"[198]3[146]  [195]HECK SOMETHING ELSE"
  277. 893 GETCH$:IFCH$=""THEN893
  278. 894 IFCH$=CHR$(133)THEN3000
  279. 895 IFCH$=CHR$(134)THEN896
  280. 896 PRINT"[147]":FOR T=1TO3000:NEXT
  281. 897 GOTO605
  282. 900 GOSUB6010
  283. 902 PRINT"[147]":FORT=1TO3000:NEXT
  284. 904 PRINT"[215]HAT NOW, ";A$;"?"
  285. 906 FORT=1TO3000:NEXT
  286. 908 PRINTTAB(11)"[198]1[146]  [195]HECK BOOKCASE"
  287. 910 PRINTTAB(11)"[198]3[146]  [197]XAMINE FIREPLACE"
  288. 912 GETCH$:IFCH$=""THEN912
  289. 914 IFCH$=CHR$(133)THEN920
  290. 916 IFCH$=CHR$(134)THEN960
  291. 920 PRINT"[147]":FORT=1TO3000:NEXT
  292. 922 PRINT"[212]HE BOOKCASE BESPEAKS OF AN OWNER WITH"
  293. 923 PRINT"EXCELLENT TASTE. [193]LL OF THE MAJOR AUTH-"
  294. 924 PRINT"ORS ARE REPRESENTED HERE-[200]ARDY, [202]AMES,"
  295. 925 PRINT"[212]WAIN, [211]HAKESPEARE, ETC. [207]NE LARGE BOOK"
  296. 926 PRINT"HAS BEEN PULLED MOST OF THE WAY OUT OF"
  297. 927 PRINT"THE BOOKCASE, AND SEEMS TO BE DANGER-"
  298. 928 PRINT"OUSLY CLOSE TO FALLING."
  299. 929 GOSUB5300
  300. 930 PRINT"[147]":FORT=1TO3000:NEXT
  301. 931 PRINT"[215]HAT NOW, ";A$;"?"
  302. 932 FORT=1TO3000:NEXT
  303. 933 PRINTTAB(11)"[198]1[146]  [212]AKE BOOK"
  304. 934 PRINTTAB(11)"[198]3[146]  [197]XAMINE FIREPLACE"
  305. 935 PRINTTAB(11)"[198]5[146]  [197]XAMINE ANOTHER AREA"
  306. 936 GETCH$:IFCH$=""THEN936
  307. 937 IFCH$=CHR$(133)THEN940
  308. 938 IFCH$=CHR$(134)THEN960
  309. 939 IFCH$=CHR$(135)THEN605
  310. 940 PRINT"[147]":GOSUB6010
  311. 941 FORT=1TO3000:NEXT
  312. 942 H=INT(2*RND(1))
  313. 943 GETH$
  314. 944 IFH=0THEN946
  315. 945 IFH=1THEN13000
  316. 946 PRINT"[199]EE, JUST LIKE IN THE MOVIES. [217]OU TAKE"
  317. 947 PRINT"THE BOOK,AND A TRAPDOOR OPENS UP UNDER-"
  318. 948 PRINT"NEATH YOU."
  319. 949 FORT=1TO3000:NEXT
  320. 950 PRINT"[212][210][193][208] [196][207][207][210]???? [193][193][193][193][210][210][199][199][200][200][200]!!"
  321. 951 FORT=1TO4000:NEXT
  322. 952 GOTO15000
  323. 960 PRINT"[147]":FORT=1TO3000:NEXT
  324. 961 GOSUB6010
  325. 962 PRINT"[212]HIS FIREPLACE IS HUGE! [201]T LOOKS LIKE"
  326. 963 PRINT"YOU COULD PARK A [214][215] BUG IN IT. [212]HE"
  327. 964 PRINT"MARBLE HAS BEEN METICULOUSLY SCRUBBED."
  328. 965 PRINT"[206]OT ONE TRACE OF SOOT REMAINS. [212]HE LOGS"
  329. 966 PRINT"GIVE OFF A TANTALIZING PINE ODOR. [195]ON-"
  330. 967 PRINT"SPICUOUS BY ITS ABSENCE IS THE SCREEN."
  331. 968 PRINT"[198]OR SUCH A LARGE FIREPLACE,IT SEEMS"
  332. 969 PRINT"RATHER DANGEROUS TO LEAVE THE FRONT OP-"
  333. 970 PRINT"ENED UP."
  334. 971 GOSUB5300
  335. 972 H=INT(2*RND(1))
  336. 973 GETH$
  337. 974 IFH=0THEN980
  338. 975 IFH=1THEN990
  339. 980 PRINT"[211]ENSING DANGER, YOU MOVE BACK TO THE"
  340. 981 PRINT"CENTER OF THE ROOM."
  341. 982 FORT=1TO6000:NEXT
  342. 983 GOTO238
  343. 990 PRINT"[217]OU SEEM RATHER WARM. [207]F COURSE, YOU"
  344. 991 PRINT"[211][200][207][213][204][196] FEEL WARM. [211]OMEHOW, YOU'RE [201][206]"
  345. 992 PRINT"THE FIREPLACE, WITH A ROARING FIRE A-"
  346. 993 PRINT"ROUND YOU! [198]RANTICALLY, YOU JUMP OUT"
  347. 994 PRINT"OF THE FIREPLACE.[217]OUR PAIN IS TOO MUCH,"
  348. 995 PRINT"AND YOU HIT THE FLOOR,BLACKING OUT."
  349. 996 FORT=1TO8000:NEXT
  350. 997 GOTO15000
  351. 1000 PRINT"[147]":FORT=1TO3000:NEXT
  352. 1010 PRINT"[212]HAT'S FUNNY. [217]OU CAN GET NEAR THE"
  353. 1020 PRINT"BED, BUT AN UNSEEN FORCE KEEPS YOU"
  354. 1030 PRINT"FROM EXAMINING THE NIGHTSTAND AND THE"
  355. 1035 PRINT"ROCKER...."
  356. 1040 GOSUB5300
  357. 1045 PRINT"[147]":FORT=1TO3000:NEXT
  358. 1046 PRINT"[215]HAT NOW, ";A$;"?"
  359. 1047 FORT=1TO3000:NEXT
  360. 1048 PRINTTAB(11)"[198]1[146]  [199]ET IN BED"
  361. 1049 PRINTTAB(11)"[198]3[146]  [197]XAMINE ANOTHER AREA"
  362. 1050 GETCH$:IFCH$=""THEN1050
  363. 1051 IFCH$=CHR$(133)THENGOSUB6010:GOTO260
  364. 1052 IFCH$=CHR$(134)THENGOSUB6010:GOTO600
  365. 2000 PRINT"[147]"
  366. 2001 GOSUB6010
  367. 2002 FORT=1TO3000:NEXT
  368. 2004 PRINT"[212]HIS IS QUITE A FINE PIECE OF FURNI-"
  369. 2006 PRINT"TURE. [212]HE DESK IS MADE OUT OF SOLID"
  370. 2008 PRINT"TEAK, WITH BRASS TRIMMINGS. [193]N INK WELL"
  371. 2010 PRINT"IS SET INTO THE RIGHT SIDE, AN OLD"
  372. 2012 PRINT"QUILL PEN NEXT TO IT. [207]THER THAN A NOTE"
  373. 2014 PRINT"NEXT TO THE PEN, THE DESKTOP IS EMPTY,"
  374. 2016 PRINT"EXCEPT FOR AN ANTIQUE CLOCK. [212]HERE ARE"
  375. 2018 PRINT"TWO DRAWERS IN THE DESK, BOTH PARTIALLY"
  376. 2020 PRINT"OPENED."
  377. 2022 GOSUB5300
  378. 2024 PRINT"[147]"
  379. 2026 FORT=1TO3000:NEXT
  380. 2028 PRINT"[215]HAT NOW, ";A$;"?"
  381. 2030 PRINTTAB(11)"[198]1[146] [210]EAD NOTE"
  382. 2032 PRINTTAB(11)"[198]3[146] [211]EARCH DRAWERS"
  383. 2034 PRINTTAB(11)"[198]5[146] [195]HECK TIME"
  384. 2036 PRINTTAB(11)"[198]7[146] [211]EARCH ANOTHER AREA"
  385. 2038 GETCH$:IFCH$=""THEN2038
  386. 2040 IFCH$=CHR$(133)THEN2050
  387. 2042 IFCH$=CHR$(134)THEN2070
  388. 2044 IFCH$=CHR$(135)THEN2080
  389. 2046 IFCH$=CHR$(136)THEN2090
  390. 2050 PRINT"[147]"
  391. 2051 FORT=1TO3000:NEXT
  392. 2052 PRINT"******************[206][207][212][197]******************":FORT=1TO3000:NEXT
  393. 2053 PRINT"[202]. [200]ENDERSON-[196][197][193][196]"
  394. 2054 FORT=1TO2000:NEXT
  395. 2055 PRINT"[194]. [208]ARKER-[196][197][193][196]"
  396. 2056 FORT=1TO2000:NEXT
  397. 2057 PRINT"[195]. [196]AVIES-[196][197][193][196]"
  398. 2058 FORT=1TO3000:NEXT
  399. 2059 PRINT"[208].[202]OHNSON-[196][197][193][196]"
  400. 2060 FORT=1TO2000:NEXT
  401. 2061 PRINT"";A$;"-[211]*[207]*[207]*[206]!!!"
  402. 2062 GOSUB5300
  403. 2063 PRINT"[212]ERRIFIED, YOU DROP THE NOTE AND RUN"
  404. 2064 PRINT"TOWARDS THE WINDOW."
  405. 2065 FORT=1TO4000:NEXT
  406. 2066 GOTO2100
  407. 2070 PRINT"[147]":FORT=1TO3000:NEXT
  408. 2071 H=INT(2*RND(1))
  409. 2072 GETH$
  410. 2073 IFH=0THEN2075
  411. 2074 IFH=1THEN2078
  412. 2075 PRINT"[207]PENING THE DRAWERS REVEAL-A HUMAN"
  413. 2076 PRINT"HEAD![199]RABBING YOUR CHEST,YOU FALL!"
  414. 2077 GOSUB5300:GOTO15000
  415. 2078 PRINT"[194]OTH DRAWERS ARE EMPTY.":FORT=1TO3000:NEXT
  416. 2079 GOSUB6010:GOTO2024
  417. 2080 PRINT"[147]":FORT=1TO3000:NEXT
  418. 2081 GOSUB6000
  419. 2082 FORT=1TO3000:NEXT
  420. 2083 PRINT"[217]OU HEAR A NOISE BEHIND YOU. [209]UICKLY"
  421. 2084 PRINT"YOU TURN AND WALK TO THE CENTER OF"
  422. 2085 PRINT"THE ROOM. [193]LL SEEMS FINE."
  423. 2086 GOSUB5300
  424. 2087 GOTO238
  425. 2090 PRINT"[147]":FORT=1TO3000:NEXT
  426. 2091 PRINT"[215]HERE WILL YOU LOOK NOW, ";A$;"?"
  427. 2092 GOTO606
  428. 2100 PRINT"[147]":FORT=1TO3000:NEXT
  429. 2110 PRINT"[207]N CLOSE INSPECTION OF THE WINDOW, YOU"
  430. 2112 PRINT"NOTICE THAT IT WAS BADLY SET. [212]HE SASH"
  431. 2114 PRINT"IS CRACKED, THE PAINT IS PEELING, AND"
  432. 2116 PRINT"YOU CAN FEEL THE WIND BLOWING THROUGH"
  433. 2118 PRINT"THE NUMEROUS CRACKS."
  434. 2120 GOSUB5300
  435. 2122 H=INT(3*RND(1))
  436. 2123 GETH$
  437. 2124 IFH=0THEN2130
  438. 2125 IFH=1THEN2150
  439. 2126 IFH=2THEN2170
  440. 2130 PRINT"[195][210][193][211][200]!! [211]OMETHING WITH INCREDIBLE"
  441. 2132 PRINT"STRENGTH COMES HURTLING THROUGH THE"
  442. 2133 PRINT"WINDOW.[201]T GRABS YOU AND SHAKES YOU 'TIL"
  443. 2134 PRINT"YOUR LIMP AS A DISHRAG. [217]OU HIT THE"
  444. 2135 PRINT"FLOOR AND BLACK OUT......"
  445. 2136 FORT=1TO6000:NEXT
  446. 2137 PRINT"[147]":GOTO15000
  447. 2150 PRINT"[145][206]OTHING MUCH OF INTEREST HERE. [217]OU"
  448. 2151 PRINT"DECIDE TO CHECK THE GRAMOPHONE.":FORT=1TO3000:NEXT
  449. 2152 GOSUB5300
  450. 2153 GOTO2200
  451. 2170 GOTO2080
  452. 2200 PRINT"[147]":FORT=1TO3000:NEXT
  453. 2210 PRINT"[215]HAT YOU WOULDN'T GIVE TO OWN THIS! [212]HE"
  454. 2215 PRINT"GRAMOPHONE HAS OBVIOUSLY BEEN GIVEN A"
  455. 2220 PRINT"LOT OF TENDER-LOVING CARE. [212]HE RICH"
  456. 2225 PRINT"WOOD OF THE CASE AND THE BRASS OF THE"
  457. 2230 PRINT"HORN PRACTICALLY SPARKLE WITH POLISH."
  458. 2235 PRINT"[212]HERE IS A RECORD ON THE PLATTER. [193]CC-"
  459. 2240 PRINT"ORDING TO THE LABEL,IT IS [212]CHAIKOVSKY'S"
  460. 2242 PRINT"[215]AR OF 1812 [207]VERTURE."
  461. 2244 GOSUB5300
  462. 2245 FORT=1TO3000:NEXT
  463. 2246 H=INT(2*RND(1))
  464. 2247 GETH$
  465. 2248 IFH=0THEN2260
  466. 2250 IFH=1THEN2280
  467. 2260 PRINT"[147]":FORT=1TO3000:NEXT
  468. 2261 PRINT"[211]TARING IN DISBELIEF, YOU WATCH AS"
  469. 2262 PRINT"THE GRAMOPHONE STARTS TO CRANK UP BY"
  470. 2263 PRINT"ITSELF! [198]ROM THE HORN COMES THE WONDER-"
  471. 2264 PRINT"FUL STRAINS OF-THE [198][213][206][197][210][193][204] [205][193][210][195][200]????"
  472. 2265 PRINT"[209]UICKLY, YOU RUN BACK TOWARDS THE DOOR."
  473. 2266 GOSUB6010
  474. 2267 GOSUB5300
  475. 2268 GOTO238
  476. 2280 PRINT"[217]OU NOTICE IT IS NOW ";LEFT$(TI$,2);":";MID$(TI$,3,2);"."
  477. 2281 PRINT"[206]O TIME TO BE PLAYING AROUND...."
  478. 2282 GOSUB5300
  479. 2283 GOTO238
  480. 3000 PRINT"[147]":FORT=1TO3000:NEXT
  481. 3010 H=INT(2*RND(1))
  482. 3012 GETH$
  483. 3014 IFH=0THEN3020
  484. 3016 IFH=1THEN3040
  485. 3020 PRINT"[217]OU KNOW, ";A$;", THAT WASN'T TOO BRIGHT!"
  486. 3022 FORT=1TO3000:NEXT
  487. 3024 PRINT"[212]HE GREEN MIST SEEMS TO ENVELOP YOU."
  488. 3026 PRINT"[217]OU FEEL YOURSELF GAGGING, CHOKING."
  489. 3028 PRINT"[205]ERCIFULLY, YOU SLUMP TO THE FLOOR."
  490. 3029 FORT=1TO6000:NEXT
  491. 3030 GOTO15000
  492. 3040 PRINT"[212]HE GLOW SEEMS TO SURROUND YOU. [217]OU"
  493. 3042 PRINT"CAN'T SEE!! [212]HE ROOM STARTS TO SPIN,"
  494. 3043 PRINT"AND THEN........"
  495. 3044 FORT=1TO6000:NEXT
  496. 3045 GOTO155
  497. 5000 POKE53281,0:POKE53280,3:PRINT""
  498. 5100 PRINTCHR$(14):PRINT"[147]"
  499. 5200 RETURN
  500. 5300 PRINT"CONTINUE[146]"
  501. 5310 WAIT197,64,64
  502. 5315 POKE198,0
  503. 5320 RETURN
  504. 6000 PRINT"[201]T IS NOW ";LEFT$(TI$,2);":";MID$(TI$,3,2);"."
  505. 6010 IFTI$>"125900"THENGOTO10000
  506. 6020 RETURN
  507. 7000 H=INT(4*RND(1))
  508. 7001 GETH$
  509. 7010 IFH=0THEN7500
  510. 7020 IFH=1THEN7400
  511. 7030 IFH=2THEN7300
  512. 7040 IFH=3THEN7200
  513. 7200 FORT=1TO3000:NEXT
  514. 7210 PRINT"[198]ROM OUT OF NOWHERE, YET FROM ALL"
  515. 7211 PRINT"AROUND YOU, COMES A VOICE. [215]ITH AN EVIL"
  516. 7212 PRINT"LAUGH, IT SAYS,'[198]OOL, YOU DIE SOON!'"
  517. 7213 GOSUB5300
  518. 7214 GOSUB6010
  519. 7215 GOTO238
  520. 7300 PRINT"[217]OU NOTICE, OUT OF THE CORNER OF YOUR"
  521. 7310 PRINT"EYE, A SHADOW PASS OVER THE WINDOW!"
  522. 7320 GOSUB5300
  523. 7325 PRINT"[147]":PRINT"[215]HAT NOW, ";A$;"?"
  524. 7330 FORT=1TO3000:NEXT
  525. 7335 PRINTTAB(11)"[198]1[146]  [204]OOK OUT WINDOW"
  526. 7336 PRINTTAB(11)"[198]3[146]  [201]GNORE IT"
  527. 7337 GETD$:IFD$=""THEN7337
  528. 7338 IFD$=CHR$(133)THEN7340
  529. 7339 IFD$=CHR$(134)THEN7370
  530. 7340 GOSUB6010
  531. 7342 H=INT(3*RND(1))
  532. 7343 GETH$
  533. 7344 IFH=0THENPRINT"[147]":GOTO7600
  534. 7345 IFH=1THENGOTO7350
  535. 7346 IFH=2THENGOTO7360
  536. 7350 PRINT"[147]":PRINT"[201]T APPEARS A LARGE BIRD JUST"
  537. 7351 PRINT"FLEW CLOSE TO THE WINDOW, AND THE MOON-"
  538. 7352 PRINT"LIGHT CAST A WIERD SHADOW.[215]HEW!!"
  539. 7353 GOSUB5300
  540. 7354 GOTO238
  541. 7360 PRINT"[147]":PRINT"[217]OU LOOK OUT THE WINDOW, AND"
  542. 7361 PRINT"HAVE A WONDERFUL MOONLIT VIEW OF THE"
  543. 7362 PRINT"ESTATE. [211]ORT OF MAKES YOU WISH YOU HAD"
  544. 7363 PRINT"BROUGHT YOUR CAMERA, DOESN'T IT?"
  545. 7364 GOSUB5300
  546. 7365 GOSUB6010:GOTO238
  547. 7370 H=INT(2*RND(1))
  548. 7371 GETH$
  549. 7372 IFH=0THEN7374
  550. 7373 IFH=1THEN7380
  551. 7374 PRINT"[147]"
  552. 7375 FORT=1TO3000:NEXT
  553. 7376 PRINT"[199]ETTING BRAVE, ";A$;"?"
  554. 7377 GOSUB6010
  555. 7378 FORT=1TO3000:NEXT
  556. 7379 GOTO238
  557. 7380 PRINT"[147]"
  558. 7381 FORT=1TO3000:NEXT
  559. 7382 PRINT"[207]H WELL, MAYBE THERE WASN'T ANYTHING"
  560. 7383 PRINT"THERE, ANYWAYS."
  561. 7384 FORT=1TO3000:NEXT
  562. 7385 PRINT"[207][210][160][215][193][211][160][212][200][197][210][197]???????"
  563. 7386 GOSUB6010
  564. 7387 FORT=1TO3000:NEXT
  565. 7390 GOTO238
  566. 7400 PRINT"[217]OU SUDDENLY FEEL QUITE SLEEPY, AND"
  567. 7410 PRINT"SEEM TO BE MOVING TOWARDS THE BED."
  568. 7415 GOSUB5300
  569. 7420 GOTO238
  570. 7500 FORT=1TO3000:NEXT
  571. 7510 PRINT"[193]LL OF A SUDDEN, YOU JUMP AS YOU FEEL A"
  572. 7511 PRINT"DEATH-COLD HAND GRAB YOU FROM BEHIND!"
  573. 7512 GOSUB5300
  574. 7513 PRINT"[147]":PRINT"[215]HAT NOW, ";A$;"?"
  575. 7514 PRINTTAB(11)"[198]1[146]  [212]URN AROUND & LOOK"
  576. 7515 PRINTTAB(11)"[198]3[146]  [210]UN!"
  577. 7516 PRINTTAB(11)"[198]5[146]  [201]GNORE IT"
  578. 7517 GETD$:IFD$=""THEN7517
  579. 7518 IFD$=CHR$(133)THEN7600
  580. 7519 IFD$=CHR$(134)THEN7700
  581. 7520 IFD$=CHR$(135)THEN7650
  582. 7600 PRINT"[147]"
  583. 7601 W=INT(2*RND(1))
  584. 7602 GETW$
  585. 7603 IFW=0THEN7610
  586. 7604 IFW=1THEN7800
  587. 7610 PRINT"[193]S YOU TURN AROUND, YOU ARE CONFRONTED"
  588. 7611 PRINT"WITH THE MOST GRUESOME CREATURE IMAG-"
  589. 7612 PRINT"INABLE. [201]N FACT, IT IS SO HIDEOUS THAT"
  590. 7613 PRINT"YOUR BLOODPRESSURE SKYROCKETS. [212]HE"
  591. 7614 PRINT"STRAIN IS MUCH TOO MUCH FOR YOUR HEART,"
  592. 7615 PRINT"AND WITH A GASP OF PAIN, YOU COLLAPSE"
  593. 7616 PRINT"TO THE FLOOR."
  594. 7617 GOSUB5300
  595. 7618 POKE53280,0:PRINT"[147]":GOTO15000
  596. 7650 GOSUB6010
  597. 7655 GOTO238
  598. 7700 FORT=1TO3000:NEXT
  599. 7710 PRINT"[147]":PRINT"[217]OU'RE FROZEN TO THE SPOT!"
  600. 7715 GOSUB5300
  601. 7716 GOTO7513
  602. 7800 PRINT"[147]":PRINT"[217]OU TURN AROUND, BUT NO ONE'S THERE!"
  603. 7810 GOSUB5300
  604. 7815 GOTO238
  605. 10000 PRINT"[147]":FORT=1TO3000:NEXT
  606. 10010 PRINT"[201]T'S NOW 1[193][205]!!!!"
  607. 10020 FORT=1TO3000:NEXT
  608. 10030 PRINT"...THE DOOR TO THE ROOM SUDDENLY FLIES"
  609. 10035 PRINT"OPEN, AND IN WALKS THE OLD MAN. [200]E'S"
  610. 10040 PRINT"APPARENTLY STARTLED TO SEE YOU STANDING"
  611. 10050 PRINT"(STILL?) THERE. [215]ITH A NOD OF HIS HEAD,"
  612. 10060 PRINT"HE MOTIONS YOU TO FOLLOW HIM. [217]OU DO"
  613. 10070 PRINT"SO,OUT OF THE ROOM,DOWN THE STAIRS,AND"
  614. 10080 PRINT"BACK TO THE PARLOR, WHERE YOU FIRST"
  615. 10090 PRINT"STARTED TONIGHT........."
  616. 10100 GOSUB5300
  617. 10110 PRINT"[215]ELL, ";A$;", SIT DOWN!!"
  618. 10120 PRINT"[199]OOD SHOW, GOOD SHOW! [201]'M GLAD SOMEONE"
  619. 10130 PRINT"HAS FINALLY SURVIVED. [204]OOKS LIKE YOU'VE"
  620. 10140 PRINT"BROKEN THE CURSE OF THAT DAMNED ROOM."
  621. 10150 PRINT"[201]'VE GOT YOUR CHECK RIGHT HERE. [196]ON'T"
  622. 10160 PRINT"WORRY, IT'S CERTIFIED, ALL ON THE UP"
  623. 10170 PRINT"AND UP. [215]OULD YOU CARE TO JOIN ME FOR"
  624. 10180 PRINT"TEA BEFORE YOU GO(Y/N)?"
  625. 10190 GETA$:IFA$=""THEN10190
  626. 10200 IFA$="Y"THEN11000
  627. 10210 IFA$="N"THEN10300
  628. 10300 PRINT"[215]ELL, FINE THEN. [212]AKE CARE, AND THANK"
  629. 10310 PRINT"YOU SO MUCH FOR YOUR HELP."
  630. 10320 GOSUB5300
  631. 10330 PRINT"[193]S YOU WALK AWAY FROM THE ESTATE,CHECK"
  632. 10340 PRINT"CLUTCHED TIGHTLY IN HAND, YOU WONDER IF"
  633. 10350 PRINT"IT'S ALL BEEN WORTH IT. [193]NYWAYS, YOU'VE"
  634. 10360 PRINT"SURVIVED, AND THE CURSE OF [196][197][193][212][200] [200][207][213][211][197]"
  635. 10370 PRINT"IS NO MORE...."
  636. 10380 FORT=1TO5000:NEXT
  637. 10390 PRINT"[193]LL OF A SUDDEN, YOU HEAR A PIERCING"
  638. 10400 PRINT"SCREAM COMING FROM THE HOUSE. [205]AYBE YOU"
  639. 10410 PRINT"DIDN'T BREAK THE CURSE. [208]ERHAPS-YOU"
  640. 10420 PRINT"WERE JUST-[204][213][195][203][217]!!!!!"
  641. 10430 FORT=1TO6000:NEXT
  642. 10440 SYS64759
  643. 11000 PRINT"[193]S YOU SIT THERE, SIPPING YOUR TEA,"
  644. 11100 PRINT"YOU REALIZE THE OLD MAN IS GRINNING"
  645. 11200 PRINT"MADLY AT YOU. [212]HE ROOM STARTS TO SPIN,"
  646. 11300 PRINT"AND YOU FALL TO THE FLOOR, TEACUP STILL"
  647. 11400 PRINT"CLUTCHED IN HAND....."
  648. 11500 FORT=1TO8000:NEXT
  649. 11600 GOTO15000
  650. 13000 PRINT"[206]ICE BOOK. [212]HE TITLE IS-[195][193][206][206][193][194][193][204][201][211][205]-"
  651. 13100 PRINT"[199][213][201][196][197] [198][207][210] [212][200][197] [199][207][213][210][205][197][212].[217]UK, IT'S A"
  652. 13200 PRINT"COOKBOOK! [217]OU OPEN IT TO THE TABLE"
  653. 13300 PRINT"OF CONTENTS....."
  654. 13400 FORT=1TO6000:NEXT
  655. 13500 PRINT"[147]"
  656. 13600 PRINT"*************** [195][200][193][208][212][197][210] [201] **************"
  657. 13602 FORT=1TO3000:NEXT
  658. 13610 PRINT"[200][207][215] [212][207] [195][207][207][203]- ";A$;" -!!"
  659. 13612 FORT=1TO3000:NEXT
  660. 13614 PRINT"[207]MIGOD! [217]OU DROP THE BOOK AND RUN"
  661. 13615 PRINT"OVER TO THE FIREPLACE......"
  662. 13620 FORT=1TO3000:NEXT
  663. 13621 GOSUB6010
  664. 13622 GOTO960
  665. 15000 POKE53280,0:PRINT"[147]":FORT=1TO3000:NEXT
  666. 15050 PRINT"[217]OU HEAR, OFF IN THE DISTANCE, A"
  667. 15100 PRINT"DOOR BEING OPENED, FOLLOWED BY FURTIVE"
  668. 15150 PRINT"FOOTSTEPS. [215]ITH THE STRENGTH ONLY A"
  669. 15200 PRINT"DYING MAN COULD MUSTER, YOU MANAGE TO"
  670. 15250 PRINT"OPEN YOUR EYES. [212]HE OLD MAN IS NOW"
  671. 15300 PRINT"STANDING OVER YOU, SADLY SHAKING HIS"
  672. 15350 PRINT"HEAD. [217]OU TRY TO SPEAK, BUT CAN ONLY"
  673. 15400 PRINT"GASP IN PAIN. [211]LOWLY, THE VISION OF THE"
  674. 15450 PRINT"OLD MAN DIMS, AND WITH A FINAL HEAVY"
  675. 15500 PRINT"SIGH, YOU PASS FROM THIS WORLD......"
  676. 15510 GOSUB5300
  677. 15520 POKE53280,1
  678. 15521 FORT=1TO200:NEXT
  679. 15522 POKE53280,2
  680. 15523 FORT=1TO200:NEXT
  681. 15524 POKE53280,3
  682. 15525 FORT=1TO200:NEXT
  683. 15526 POKE53280,4
  684. 15527 FORT=1TO200:NEXT
  685. 15528 POKE53280,5
  686. 15529 FORT=1TO200:NEXT
  687. 15530 POKE53280,6
  688. 15531 FORT=1TO200:NEXT
  689. 15532 POKE53280,7
  690. 15533 FORT=1TO200:NEXT
  691. 15534 POKE53280,8
  692. 15535 FORT=1TO200:NEXT
  693. 15536 PRINT"[147]":POKE53281,1:POKE53280,1:PRINT"[144]"
  694. 15540 PRINT"..SUDDENLY YOU FIND YOURSELF STANDING"
  695. 15545 PRINT"BACK BY THE BED. [193]STONISHED,YOU FEEL"
  696. 15550 PRINT"A GREAT SENSE OF RELIEF WASH OVER YOU."
  697. 15555 PRINT"[201]T MUST ALL HAVE BEEN A DREAM. [217]OU'RE"
  698. 15560 PRINT"ALIVE-YOU'VE SURVIVED, AND SOON YOU'LL"
  699. 15565 PRINT"BE A MILLIONAIRE! [217]OUR REVERIE GETS CUT"
  700. 15570 PRINT"SHORT WHEN YOU SEE A GHASTLY CREATURE"
  701. 15575 PRINT"WALK OUT OF THE WALL IN FRONT OF YOU!"
  702. 15580 PRINT"[202]OY TURNS TO PANIC, AND YOU REACH FOR"
  703. 15585 PRINT"THE DOORKNOB-BUT YOUR HAND PASSES ON"
  704. 15590 PRINT"THROUGH IT. [217]OU TURN SLOWLY AROUND,"
  705. 15595 PRINT"AND COME FACE TO FACE WITH A ROOMFULL"
  706. 15600 PRINT"OF GHOSTS. [217]OU NOTICE THAT THEY NO"
  707. 15610 PRINT"LONGER SEEM TO EYE YOU MALEVOLENTLY,"
  708. 15620 PRINT"BUT APPEAR TO BE......JUST WAITING."
  709. 15625 GOSUB5300
  710. 15630 POKE53281,0:POKE53280,4:PRINT""
  711. 15635 PRINT"[206]OW THE FULL HORROR OF IT ALL DAWNS ON"
  712. 15640 PRINT"YOU. [217]OU [200][193][214][197] [196][201][197][196]; YOU'RE JUST LIKE-"
  713. 15645 PRINT"THEM, AND LIKE THEM, FOR ALL ETERNITY,"
  714. 15650 PRINT"YOU'LL KEEP WATCH HERE, WAITING FOR"
  715. 15655 PRINT"ANOTHER FOOL TO ENTER-"
  716. 15660 FORT=1TO8000:NEXT
  717. 15665 PRINTTAB(11)"[196]*[197]*[193]*[212]*[200] [200]*[207]*[213]*[211]*[197] !!!"
  718. 15670 FORT=1TO8000:NEXT
  719. 15675 PRINT"[147]":PRINTA$;" YOU SURVIVED FOR ";MID$(TI$,3,2);" MINUTES."
  720. 15680 FORT=1TO5000:NEXT
  721. 15685 PRINT"[215]OULD YOU LIKE TO TRY AGAIN(Y/N)?"
  722. 15690 INPUTR$
  723. 15691 IFR$="Y"THENGOTO10
  724. 15695 IFR$="N"THENGOTO15700
  725. 15699 IFR$=""THEN15699
  726. 15700 SYS 64759
  727.