home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / CLUE---64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  13.0 KB  |  460 lines
  1. 10 POKE53280,0:POKE53281,0:PRINTCHR$(14)"[147][195][159]L[156]UE"CHR$(13)"[194][158]Y[129]: ";
  2. 20 PRINT"[149][194][150]R[151]I[152]A[153]N [154][211][155]HAF[159]F[156]ER"
  3. 30 PRINT"[197][159]N[156]TER [158][217][129]O[149]U[150]R [198][201][210][211][212] [151][206][152]A[153]M[154]E: ";:INPUTZ$
  4. 35 PRINT"[197][159]N[156]TER [158][217][129]O[149]U[150]R [204][193][211][212] [151][206][152]A[153]M[154]E:  ";:INPUTY$
  5. 40 PRINT""Z$;", [215][159]E[156]LCO[158]M[129]E [149][212][150]O......"
  6. 41 GOSUB60000
  7. 45 PRINT"[147]"CHR$(142)
  8. 50 PRINT"  [206][205][197][197][197][197][197][197][197][197][197][197][197][197][197][197][205]"
  9. 55 PRINT"  [206] [206][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][205]"
  10. 60 PRINT" [206] [206]                 [205]"
  11. 65 PRINT" [205][206]                   [205]"
  12. 70 PRINT" [194][194]  [176][174]    [176][174]    [176][174]   [194]"
  13. 80 PRINT" [194][194]  [173][189]    [173][189]    [173][189]   [194]"
  14. 90 PRINT" [194][194]                   [194]"
  15. 100 PRINT"[194][194]  [176][174]    [176][174]    [176][174]   [194]"
  16. 105 PRINT"[194][194]  [173][189]    [173][189]    [173][189]   [194]"
  17. 110 PRINT"[194][194]                   [194]"
  18. 115 PRINT"[194][194]        [176][174]         [194]"
  19. 120 PRINT"[205][194]        [194][194]         [194]"
  20. 125 PRINT" [173][195][195][195][195][195][195][195][195][177][177][195][195][195][195][195][195][195][195][195][189]"
  21. 130 PRINT"C   [159]L   [156]U   E"
  22. 135 FORT=1TO3:FORD=1TO500:NEXTD:FORK=1TO30:POKE53281,12
  23. 136 PRINT"[206][157][157][206][157][205][157][206][157][157][206][157][205][157][206][157][157][206]"
  24. 140 POKE53281,0:PRINT" [157][157] [157] [157] [157][157] [157] [157] [157][157] "
  25. 141 NEXTK:NEXTT
  26. 145 FORD=1TO500:NEXTD
  27. 150 V=54296:W=54276:A=54277:H =54273:L=54272
  28. 155 FORX=15TO0STEP-1:POKEV,X:POKEW,129:POKEA,15:POKEH,40::POKEL,200:NEXT
  29. 160 POKEW,0:POKEA,0
  30. 161 FORD=1TO500:NEXTD
  31. 162 V=54296:W=54276:A=54277:H =54273:L=54272
  32. 163 FORX=15TO0STEP-1:POKEV,X:POKEW,129:POKEA,15:POKEH,40::POKEL,200:NEXT
  33. 164 POKEW,0:POKEA,0
  34. 165 V=54296:W=54276:A=54277:H =54273:L=54272
  35. 166 FORX=15TO0STEP-1:POKEV,X:POKEW,129:POKEA,15:POKEH,40::POKEL,200:NEXT
  36. 167 POKEW,0:POKEA,0
  37. 168 FORD=1TO500:PRINT"AAARRRGGGHHH!!![157][157][157][157][157][205]"
  38. 170 FORD=1TO1000:NEXTD:PRINT"[147]"CHR$(14)
  39. 171 PRINT"[147][196][159]O [156][217]OU [158][215][129]A[149]N[150]T [212][159]O [154][214][155]IE[152]W [158][196][201][193][204][207][199][213][197][146] (Y/N)?";
  40. 172 GETJ$:IFJ$=""THEN172
  41. 173 IFJ$="N"THEN500
  42. 175 FORD=1TO500:NEXTD:PRINT"[147][207]H[159] [205][158]Y!":GOSUB40000:PRINT"[129][205][149]R[151]. [155][194][154]O[152]D[151]Y";
  43. 176 PRINT" [152][200][153]A[154]S"
  44. 180 PRINT"[158][194][151]E[152]E[154]N [158][201]NJ[159]U[156]RED[158]!"
  45. 185 GOSUB40000:PRINT"[195]OL. [205]USTARD:  [215][159]H[156]AT [158][211][129]H[149]A[150]L[149]L[151] [215][153]E[154] [196]O?"
  46. 190 GOSUB40000:PRINT"[208]ROF. [208]LUM: [201][159]'[156]M [206]O[158]T[129] [211][149]U[150]R[151]E [152]I[153]F[154] [212][155]HE[159]R[156]E IS"
  47. 195 PRINT"[158][193][129]N[149]Y[150]T[151]H[152]I[153]N[154]G [215][159]E [156][195]AN [158][196][129]O... [200][197]'[211] [196][197][193][196]!"
  48. 196 FORD=1TO1000:NEXTD:PRINT"[205]RS. [215]HITE: [193][159]N[156]D ON[158]E [129]O[149]F [150]U[151]S [152]I[153]S[155] THE"
  49. 197 PRINT"[158][205][213][210][196][197][210][197][210]!![146]":FORD=1TO1000:NEXTD:PRINT"[205]R. [199]REEN: ";
  50. 200 PRINT"[215][159]H[156]O [195]O[158]U[129]L[150]D [151][201][152]T [154][194][155]E?":GOSUB40000
  51. 205 PRINT"[206]EVER [198]EAR!  [201], [196]ETECTIVE "Z$" "Y$CHR$(13)"[195]AN [211]OLVE [193][206][217] [195]ASE!"
  52. 210 PRINT"[156][208]RESS [193]NY [203]EY [212]O [194]EGIN"
  53. 215 GETJ$:IFJ$=""THEN215
  54. 500 GOSUB50000:PRINT"[147][195][159]L[156]UE[157][157][157][157][194][158]Y[129]: [149][194][150]R[151]I[152]A[153]N [154][211][155]HA[159]F[156]FER"
  55. 509 WR=INT(3+(4-3+1)*RND(1)):FORT=1TOWR
  56. 510 PRINTCHR$(14)"[212]A[159]K[156]E [217]O[158]U[129]R [149][208][150]I[151]C[152]K[153]:"
  57. 515 PRINT"[[212]] [212]AKE [217]OUR [212]URN"CHR$(13)"[[193]] [193]CCUSE [212]HE [205]URDERER"
  58. 516 PRINT"[[214]] [214]IEW [195]ARDS"
  59. 520 PRINT"[[196]] [196]OCUMENTATION"CHR$(13)"[[209]] [209]UIT"CHR$(13)"[217][159]O[156]UR [211][158]E[129]L[149]E[150]C[152]T";
  60. 530 PRINT"I[159]O[156]N: ";
  61. 535 GETA$:IFA$=""THEN535
  62. 536 GOSUB62100
  63. 540 IFA$="Q"THEN POKE53280,14:POKE53281,6:PRINT"[147][154]"CHR$(142):END
  64. 545 PRINT"[147]"CHR$(142):IFA$<>"T"THEN1000
  65. 550 GOSUB53000:PRINT"FIRST, YOU MUST PICK A PERSON[146]..."
  66. 560 PRINT"HERE IS A LIST OF ALL THE PEOPLE:"
  67. 561 PRINT"COL. MUSTARD, PROF. PLUM, MR. GREEN,"CHR$(13)"MRS. PEACOCK, ";
  68. 562 PRINT"MISS SCARLET, AND         MRS. WHITE."
  69. 563 PRINT"ENTER YOUR SELECTION: ":INPUTBA$
  70. 564 IFBA$="+"THEN573
  71. 565 IFBA$=AF$THENGOSUB54000:GOTO573
  72. 567 IFBA$=AG$THENGOSUB54000:GOTO573
  73. 569 IFBA$=AH$THENGOSUB54000:GOTO573
  74. 571 PRINT"[158]I [129]D[149]O[150]N[151]'[152]T [156]H[159]AVE [154]I[153]T!"
  75. 573 PRINT"PRESS ANY KEY TO CONTINUE[146]"
  76. 575 GETJ$:IFJ$=""THEN575
  77. 580 GOSUB53000:PRINT"[159]NOW, YOU MUST PICK A WEAPON..."
  78. 590 PRINT"HERE IS A LIST OF ALL THE WEAPONS:"
  79. 591 PRINT"KNIFE, CANDLESTICK, REVOLVER, ROPE,"CHR$(13)"LEAD PIPE, AND WRENCH."
  80. 592 PRINT"ENTER YOUR SELECTION: ":INPUTBB$
  81. 593 IFBB$="+"THEN605
  82. 594 IFBB$=AK$THENGOSUB54000:GOTO600
  83. 595 IFBB$=AL$THENGOSUB54000:GOTO600
  84. 596 IFBB$=AM$THENGOSUB54000:GOTO600
  85. 597 PRINT"[158]I [129]D[149]O[150]N[151]'[152]T [156]H[159]AVE [154]I[153]T!"
  86. 600 GOTO 605
  87. 605 PRINT"PRESS ANY KEY TO CONTINUE[146]"
  88. 610 GETJ$:IFJ$=""THEN610
  89. 620 GOSUB53000:PRINT"[156]AND NOW, YOU MUST PICK A ROOM..."
  90. 630 PRINT"HERE IS A LIST OF ALL THE ROOMS:"
  91. 631 PRINT"HALL, LOUNGE, DINING ROOM, KITCHEN,"CHR$(13)"BALL ROOM, CONSERVA";
  92. 632 PRINT"TORY, BILLIARD ROOM, LIBRARY, AND"CHR$(13)"STUDY."
  93. 635 PRINT"ENTER YOUR SELECTION: ":INPUTBC$
  94. 636 IFBC$="+"THEN650
  95. 637 IFBC$=AR$THENGOSUB54000:GOTO650
  96. 639 IFBC$=AS$THENGOSUB54000:GOTO650
  97. 641 IFBC$=AT$THENGOSUB54000:GOTO650
  98. 643 IFBC$=AU$THENGOSUB54000:GOTO650
  99. 644 PRINT"[158]I [129]D[149]O[150]N[151]'[152]T [156]H[159]AVE [154]I[153]T!"
  100. 650 PRINT"[158]PRESS ANY KEY TO CONTINUE[146]"
  101. 651 GETJ$:IFJ$=""THEN651
  102. 652 PRINT"[147]"CHR$(14):NEXTT
  103. 653 PRINT"[147]SORRY... I GOT IT FIRST... THE ANSWER"CHR$(13)"IS: "AA$", WITH";
  104. 654 PRINT" THE "AB$", IN THE "AC$".
  105. 655 [153]"BETTER LUCK CLRNEXT TIME!"
  106. 656 [153][199](142):[128]
  107. 1000 [139]A$[179][177]"V"[167]2000
  108. 1010 RR[178]95
  109. 1015 [137]53000
  110. 2000 [139]A$[179][177]"A"[167]3000
  111. 2005 [153]"LOAD"[199](142)"AOPENCCLRCUSSYSAFORTVERIFYIDEFOPOKEN!"
  112. 2010 [153]"SYSARE YOU SURE (Y/N)?"
  113. 2015 [161]J$:[139]J$[178]""[167]2015
  114. 2016 [139]J$[178]"N"[167][153]"LOAD"[199](14):[137]510:[139]CA$[178]AA$[167]2040
  115. 2020 [153]"WHO WAS THE MURDERERWAIT":[133]CA$
  116. 2025 [139]CA$[178]AA$[167]2040
  117. 2030 [139]CA$[179][177]AA$[167][153]"SORRY. YOU ARE WRONG. THE ANSWER IS:"
  118. 2035 [153]AA$", WITH";:[137]654
  119. 2040 [153]"WHAT WAS THE WEAPONWAIT":[133]CB$:[139]CB$[178]AB$[167]2050
  120. 2045 CA$[178]"ASDF":[137]2030
  121. 2050 [153]"WHAT WAS THE ROOMWAIT":[133]CC$:[139]CC$[178]AC$[167]2055
  122. 2051 CA$[178]"JJ":[137]2030
  123. 2055 [153]"LOAD":[129]J[178]1[164]25
  124. 2056 [153]"STOP   OPEN CLR   SYS FOR VERIFY DEF POKE PRINT# PRINT CONT LIST STOP   OPEN CLR   SYS FOR VERIFY DEF POKE PRINT# PRINT ";
  125. 2057 [153]"CONT LIST STOP  WAIT":[130]J
  126. 2058 [153]"YOU WIN!":[129]D[178]1[164]2000:[130]D
  127. 2059 [153]"LOADCONT"[199](142):[151]53280,14:[151]53281,6:[128]
  128. 3000 [139]A$[179][177]"D"[167]510
  129. 3005 [153]"LOAD"[199](14)"--------------------------------------"
  130. 3010 [153]"STR$OCUMENTATION ASCOR: LENOPENLCLRUE"
  131. 3011 [153]"PEEKY: PEEKOPENRCLRIANSYS (null)FORHVERIFYADEFFPOKEFPRINT#EPRINTR"
  132. 3015 [153]"--------------------------------------"
  133. 3020 [153]"(null)HE FIRST THING YOU MUST TYPE IN"[199](13)"(AFTER YOU TYPE YOUR";
  134. 3025 [153]" NAME) IS IF YOU    WANT 'STR$IALOGUE'.  STR$IALOGUE IS WHAT THE ";
  135. 3030 [153]" LENOPENLCLRUE CHARACTERS SAID AFTER (null)R. PEEKODY'S   DEATH."
  136. 3035 [153]"(null)HIS IS JUST A FUN FUNCTION RIGHT$ THOUGHT"[199](13)"YOU MIGHT ENJOY.  ";
  137. 3040 [153]"ATNFTER YOU ARE DONE    VIEWING THE DIALOGUE,"[199](13)"THE COMPUTER ";
  138. 3045 [153]"WILL SHUFFLE THE CARDS AND THE GAME WILL START!  ";
  139. 3050 [153]"ASCIRST, YOU WILL   SEE A MENU."[199](13)"(null)OUR CHOICES ARE:"
  140. 3055 [153]"(null)AKE (null)OUR (null)URN, ATNCCUSE THE (null)URDERER,"[199](13)"(null)IEW LENARDS, ";
  141. 3060 [153]"STR$OCUMENTATION, AND (null)UIT."[199](13)"(null)HE FIRST THING YOU WANT TO";
  142. 3065 [153]" DO IS TO"[199](13)"CLRCHR$VAL(null) ATN (null)VAL(null)LENRIGHT$(null) ATN(null)STR$ (null)ATN(null)VAL(null)!WAIT"
  143. 3070 [153]"SYS(null)RESS ATNNY (null)EY (null)O LENONTINUE"
  144. 3075 [161]J$:[139]J$[178]""[167]3075
  145. 3080 [129]D[178]1[164]30:[153]:[130]D
  146. 3085 [153]"(null)OU WON'T NEED TO VIEW YOUR CARDS, FOR"
  147. 3090 [153]"WHEN YOU TAKE YOUR TURN, THEY ARE AT"
  148. 3095 [153]"THE TOP OF YOUR MONITOR.  (null)OW, CHOOSE"[199](13)"'T' FOR (null)AKE (null)OUR ";
  149. 3100 [153]"(null)URN.  (null)HE NEAT THING ABOUT COMPUTER CLUE IS THAT YOU ";
  150. 3105 [153]"DON'T   HAVE TO ENTER A ROOM TO"[199](13)"TAKE A GUESS!  ATNLL YOU";
  151. 3110 [153]" HAVE TO DO IS    KEEP GUESSING PEOPLE, WEAPONS, AND ROOMS";
  152. 3111 [153]"(UNTIL YOU KNOW THE MURDERER, WEAPON,   AND ROOM) ";
  153. 3115 [153]"BY USING (null)AKE (null)OUR (null)URN."[199](13)"ATNLSO, YOU DON'T HAVE TO GUESS ";
  154. 3120 [153]"EACH ONE  VAL(null)VAL(null)(null) TIME.  VAL(null)ATN(null)(null)(null)VAL: (null)ET'S SAY YOU KNEWTHE ";
  155. 3125 [153]"MURDERER AND THE WEAPON, BUT"[199](13)"DIDN'T KNOW THE ROOM.  ";
  156. 3130 [153]"(null)OU CAN SKIP     MURDERER AND WEAPON BY PRESSING '+' WHEN";
  157. 3135 [153]"THE PROMPT IS GIVEN."[199](13)"(null)RESS ATNNY (null)EY (null)O LENONTINUEWAIT"
  158. 3140 [161]J$:[139]J$[178]""[167]3140
  159. 3145 [129]D[178]1[164]30:[153]:[130]D:[153]"(null)HEN YOU THINK YOU KNOW THE ANSWER,"
  160. 3150 [153]"CHOOSE 'A' FOR ATNLENLEN(null)(null)ATN(null)RIGHT$(null)(null)! (null)HE REST IS"[199](13)"SELF-EXPLANITORY."
  161. 3155 [153]"(null)(null)(null)VAL: (null)HE PAPER AND PENCIL YOU WERE"[199](13)"TOLD TO GET ARE FOR ";
  162. 3160 [153]"JOTTING DOWN NOTES  DURING THE GAME... (null)(null)(null)'(null)(null) (null)VALVALSTR$ (null)LEFT$VAL(null)!!"
  163. 3165 [153]"VERIFYVAL(null)MID$(null)(null)!"[199](13)"(null)RESS ATNNY (null)EY (null)O LENONTINUEWAIT"
  164. 3170 [161]J$:[139]J$[178]""[167]3170
  165. 3171 [129]D[178]1[164]30:[153]:[130]D
  166. 3175 [153]"LOAD":[137]510
  167. 40000 [129]D[178]1[164]1000:[130]D:[142]
  168. 50000 [153][199](13)"(null)LEASE (null)AIT...":AA[178][181](6[172][187](1))
  169. 50010 [139]AA[178]0[167]AA$[178]"COL. MUSTARD"
  170. 50015 [139]AA[178]1[167]AA$[178]"PROF. PLUM"
  171. 50020 [139]AA[178]2[167]AA$[178]"MR. GREEN"
  172. 50025 [139]AA[178]3[167]AA$[178]"MRS. PEACOCK"
  173. 50030 [139]AA[178]4[167]AA$[178]"MRS. WHITE"
  174. 50035 [139]AA[178]5[167]AA$[178]"MISS SCARLET"
  175. 50040 AB[178][181](6[172][187](1))
  176. 50045 [139]AB[178]0[167]AB$[178]"LEAD PIPE"
  177. 50050 [139]AB[178]1[167]AB$[178]"WRENCH"
  178. 50055 [139]AB[178]2[167]AB$[178]"REVOLVER"
  179. 50060 [139]AB[178]3[167]AB$[178]"ROPE"
  180. 50065 [139]AB[178]4[167]AB$[178]"KNIFE"
  181. 50070 [139]AB[178]5[167]AB$[178]"CANDLESTICK"
  182. 50075 AC[178][181](9[172][187](1))
  183. 50080 [139]AC[178]0[167]AC$[178]"HALL"
  184. 50085 [139]AC[178]1[167]AC$[178]"LOUNGE"
  185. 50090 [139]AC[178]2[167]AC$[178]"DINING ROOM"
  186. 50095 [139]AC[178]3[167]AC$[178]"KITCHEN"
  187. 50100 [139]AC[178]4[167]AC$[178]"BALL ROOM"
  188. 50105 [139]AC[178]5[167]AC$[178]"CONSERVATORY"
  189. 50110 [139]AC[178]6[167]AC$[178]"BILLIARD ROOM"
  190. 50115 [139]AC[178]7[167]AC$[178]"LIBRARY"
  191. 50120 [139]AC[178]8[167]AC$[178]"STUDY"
  192. 50125 AD[178][181](6[172][187](1))
  193. 50130 [139]AD[178]0[167]AD$[178]"COL. MUSTARD"
  194. 50135 [139]AD[178]1[167]AD$[178]"PROF. PLUM"
  195. 50140 [139]AD[178]2[167]AD$[178]"MR. GREEN"
  196. 50145 [139]AD[178]3[167]AD$[178]"MRS. PEACOCK"
  197. 50150 [139]AD[178]4[167]AD$[178]"MRS. WHITE"
  198. 50155 [139]AD[178]5[167]AD$[178]"MISS SCARLET"
  199. 50160 [139]AD[178]AA[167]50125
  200. 50165 AE[178][181](6[172][187](1))
  201. 50170 [139]AE[178]0[167]AE$[178]"COL. MUSTARD"
  202. 50175 [139]AE[178]1[167]AE$[178]"PROF. PLUM"
  203. 50180 [139]AE[178]2[167]AE$[178]"MR. GREEN"
  204. 50185 [139]AE[178]3[167]AE$[178]"MRS. PEACOCK"
  205. 50190 [139]AE[178]4[167]AE$[178]"MRS. WHITE"
  206. 50195 [139]AE[178]5[167]AE$[178]"MISS SCARLET"
  207. 50196 [139]AE[178]AA[167]50165
  208. 50197 [139]AE[178]AD[167]50165
  209. 50200 AF[178][181](6[172][187](1))
  210. 50205 [139]AF[178]0[167]AF$[178]"COL. MUSTARD"
  211. 50210 [139]AF[178]1[167]AF$[178]"PROF. PLUM"
  212. 50215 [139]AF[178]2[167]AF$[178]"MR. GREEN"
  213. 50220 [139]AF[178]3[167]AF$[178]"MRS. PEACOCK"
  214. 50225 [139]AF[178]4[167]AF$[178]"MRS. WHITE"
  215. 50230 [139]AF[178]5[167]AF$[178]"MISS SCARLET"
  216. 50235 [139]AF[178]AA[167]50200
  217. 50236 [139]AF[178]AD[167]50200
  218. 50237 [139]AF[178]AE[167]50200
  219. 50240 AG[178][181](6[172][187](1))
  220. 50245 [139]AG[178]0[167]AG$[178]"COL. MUSTARD"
  221. 50250 [139]AG[178]1[167]AG$[178]"PROF. PLUM"
  222. 50255 [139]AG[178]2[167]AG$[178]"MR. GREEN"
  223. 50260 [139]AG[178]3[167]AG$[178]"MRS. PEACOCK"
  224. 50265 [139]AG[178]4[167]AG$[178]"MRS. WHITE"
  225. 50270 [139]AG[178]5[167]AG$[178]"MISS SCARLET"
  226. 50275 [139]AG[178]AA[167]50240
  227. 50286 [139]AG[178]AD[167]50240
  228. 50287 [139]AG[178]AE[167]50240
  229. 50288 [139]AG[178]AF[167]50240
  230. 50290 AH[178][181](6[172][187](1))
  231. 50295 [139]AH[178]0[167]AH$[178]"COL. MUSTARD"
  232. 50300 [139]AH[178]1[167]AH$[178]"PROF. PLUM"
  233. 50305 [139]AH[178]2[167]AH$[178]"MR. GREEN"
  234. 50310 [139]AH[178]3[167]AH$[178]"MRS. PEACOCK"
  235. 50315 [139]AH[178]4[167]AH$[178]"MRS. WHITE"
  236. 50320 [139]AH[178]5[167]AH$[178]"MISS SCARLET"
  237. 50325 [139]AH[178]AA[167]50290
  238. 50336 [139]AH[178]AD[167]50290
  239. 50337 [139]AH[178]AE[167]50290
  240. 50338 [139]AH[178]AF[167]50290
  241. 50339 [139]AH[178]AG[167]50290
  242. 50340 AI[178][181](6[172][187](1))
  243. 50345 [139]AI[178]0[167]AI$[178]"LEAD PIPE"
  244. 50350 [139]AI[178]1[167]AI$[178]"WRENCH"
  245. 50355 [139]AI[178]2[167]AI$[178]"REVOLVER"
  246. 50360 [139]AI[178]3[167]AI$[178]"ROPE"
  247. 50365 [139]AI[178]4[167]AI$[178]"KNIFE"
  248. 50370 [139]AI[178]5[167]AI$[178]"CANDLESTICK"
  249. 50371 [139]AI[178]AB[167]50340
  250. 50375 AJ[178][181](6[172][187](1))
  251. 50380 [139]AJ[178]0[167]AJ$[178]"LEAD PIPE"
  252. 50385 [139]AJ[178]1[167]AJ$[178]"WRENCH"
  253. 50390 [139]AJ[178]2[167]AJ$[178]"REVOLVER"
  254. 50395 [139]AJ[178]3[167]AJ$[178]"ROPE"
  255. 50400 [139]AJ[178]4[167]AJ$[178]"KNIFE"
  256. 50405 [139]AJ[178]5[167]AK$[178]"CANDLESTICK"
  257. 50406 [139]AJ[178]AB[167]50375
  258. 50407 [139]AJ[178]AI[167]50375
  259. 50408 AK[178][181](6[172][187](1))
  260. 50410 [139]AK[178]0[167]AK$[178]"LEAD PIPE"
  261. 50415 [139]AK[178]1[167]AK$[178]"WRENCH"
  262. 50420 [139]AK[178]2[167]AK$[178]"REVOLVER"
  263. 50425 [139]AK[178]3[167]AK$[178]"ROPE"
  264. 50430 [139]AK[178]4[167]AK$[178]"KNIFE"
  265. 50435 [139]AK[178]5[167]AK$[178]"CANDLESTICK"
  266. 50446 [139]AK[178]AB[167]50408
  267. 50447 [139]AK[178]AI[167]50408
  268. 50448 [139]AK[178]AJ[167]50408
  269. 50449 AL[178][181](6[172][187](1))
  270. 50450 [139]AL[178]0[167]AL$[178]"LEAD PIPE"
  271. 50455 [139]AL[178]1[167]AL$[178]"WRENCH"
  272. 50460 [139]AL[178]2[167]AL$[178]"REVOLVER"
  273. 50465 [139]AL[178]3[167]AL$[178]"ROPE"
  274. 50470 [139]AL[178]4[167]AL$[178]"KNIFE"
  275. 50475 [139]AL[178]5[167]AL$[178]"CANDLESTICK"
  276. 50486 [139]AL[178]AB[167]50449
  277. 50487 [139]AL[178]AI[167]50449
  278. 50488 [139]AL[178]AJ[167]50449
  279. 50489 [139]AL[178]AK[167]50449
  280. 50490 AM[178][181](6[172][187](1))
  281. 50500 [139]AM[178]0[167]AM$[178]"LEAD PIPE"
  282. 50505 [139]AM[178]1[167]AM$[178]"WRENCH"
  283. 50510 [139]AM[178]2[167]AM$[178]"REVOLVER"
  284. 50515 [139]AM[178]3[167]AM$[178]"ROPE"
  285. 50520 [139]AM[178]4[167]AM$[178]"KNIFE"
  286. 50525 [139]AM[178]5[167]AM$[178]"CANDLESTICK"
  287. 50526 [139]AM[178]AB[167]50490
  288. 50527 [139]AM[178]AI[167]50490
  289. 50528 [139]AM[178]AJ[167]50490
  290. 50529 [139]AM[178]AK[167]50490
  291. 50530 [139]AM[178]AL[167]50490
  292. 50545 AN[178][181](9[172][187](1))
  293. 50550 [139]AN[178]0[167]AN$[178]"HALL"
  294. 50555 [139]AN[178]1[167]AN$[178]"LOUNGE"
  295. 50560 [139]AN[178]2[167]AN$[178]"DINING ROOM"
  296. 50565 [139]AN[178]3[167]AN$[178]"KITCHEN"
  297. 50570 [139]AN[178]4[167]AN$[178]"BALL ROOM"
  298. 50575 [139]AN[178]5[167]AN$[178]"CONSERVATORY"
  299. 50580 [139]AN[178]6[167]AN$[178]"BILLIARD ROOM"
  300. 50585 [139]AN[178]7[167]AN$[178]"LIBRARY"
  301. 50590 [139]AN[178]8[167]AN$[178]"STUDY"
  302. 50591 [139]AN[178]AC[167]50545
  303. 50595 AO[178][181](9[172][187](1))
  304. 50600 [139]AO[178]0[167]AO$[178]"HALL"
  305. 50605 [139]AO[178]1[167]AO$[178]"LOUNGE"
  306. 50610 [139]AO[178]2[167]AO$[178]"DINING ROOM"
  307. 50615 [139]AO[178]3[167]AO$[178]"KITCHEN"
  308. 50620 [139]AO[178]4[167]AO$[178]"BALL ROOM"
  309. 50625 [139]AO[178]5[167]AO$[178]"CONSERVATORY"
  310. 50630 [139]AO[178]6[167]AO$[178]"BILLIARD ROOM"
  311. 50635 [139]AO[178]7[167]AO$[178]"LIBRARY"
  312. 50640 [139]AO[178]8[167]AO$[178]"STUDY"
  313. 50641 [139]AO[178]AC[167]50595
  314. 50642 [139]AO[178]AN[167]50595
  315. 50645 AP[178][181](9[172][187](1))
  316. 50650 [139]AP[178]0[167]AP$[178]"HALL"
  317. 50655 [139]AP[178]1[167]AP$[178]"LOUNGE"
  318. 50660 [139]AP[178]2[167]AP$[178]"DINING ROOM"
  319. 50665 [139]AP[178]3[167]AP$[178]"KITCHEN"
  320. 50670 [139]AP[178]4[167]AP$[178]"BALL ROOM"
  321. 50675 [139]AP[178]5[167]AP$[178]"CONSERVATORY"
  322. 50680 [139]AP[178]6[167]AP$[178]"BILLIARD ROOM"
  323. 50685 [139]AP[178]7[167]AP$[178]"LIBRARY"
  324. 50690 [139]AP[178]8[167]AP$[178]"STUDY"
  325. 50691 [139]AP[178]AC[167]50645
  326. 50692 [139]AP[178]AN[167]50645
  327. 50693 [139]AP[178]AO[167]50645
  328. 50695 AQ[178][181](9[172][187](1))
  329. 50700 [139]AQ[178]0[167]AQ$[178]"HALL"
  330. 50705 [139]AQ[178]1[167]AQ$[178]"LOUNGE"
  331. 50710 [139]AQ[178]2[167]AQ$[178]"DINING ROOM"
  332. 50715 [139]AQ[178]3[167]AQ$[178]"KITCHEN"
  333. 50720 [139]AQ[178]4[167]AQ$[178]"BALL ROOM"
  334. 50725 [139]AQ[178]5[167]AQ$[178]"CONSERVATORY"
  335. 50730 [139]AQ[178]6[167]AQ$[178]"BILLIARD ROOM"
  336. 50735 [139]AQ[178]7[167]AQ$[178]"LIBRARY"
  337. 50740 [139]AQ[178]8[167]AQ$[178]"STUDY"
  338. 50741 [139]AQ[178]AC[167]50695
  339. 50742 [139]AQ[178]AN[167]50695
  340. 50743 [139]AQ[178]AO[167]50695
  341. 50744 [139]AQ[178]AP[167]50695
  342. 50745 AR[178][181](9[172][187](1))
  343. 50750 [139]AR[178]0[167]AR$[178]"HALL"
  344. 50755 [139]AR[178]1[167]AR$[178]"LOUNGE"
  345. 50760 [139]AR[178]2[167]AR$[178]"DINING ROOM"
  346. 50765 [139]AR[178]3[167]AR$[178]"KITCHEN"
  347. 50770 [139]AR[178]4[167]AR$[178]"BALL ROOM"
  348. 50775 [139]AR[178]5[167]AR$[178]"CONSERVATORY"
  349. 50780 [139]AR[178]6[167]AR$[178]"BILLIARD ROOM"
  350. 50785 [139]AR[178]7[167]AR$[178]"LIBRARY"
  351. 50790 [139]AR[178]8[167]AR$[178]"STUDY"
  352. 50791 [139]AR[178]AC[167]50645
  353. 50792 [139]AR[178]AN[167]50645
  354. 50793 [139]AR[178]AO[167]50645
  355. 50794 [139]AR[178]AP[167]50645
  356. 50795 [139]AR[178]AQ[167]50645
  357. 50796 AS[178][181](9[172][187](1))
  358. 50800 [139]AS[178]0[167]AS$[178]"HALL"
  359. 50805 [139]AS[178]1[167]AS$[178]"LOUNGE"
  360. 50810 [139]AS[178]2[167]AS$[178]"DINING ROOM"
  361. 50815 [139]AS[178]3[167]AS$[178]"KITCHEN"
  362. 50820 [139]AS[178]4[167]AS$[178]"BALL ROOM"
  363. 50825 [139]AS[178]5[167]AS$[178]"CONSERVATORY"
  364. 50830 [139]AS[178]6[167]AS$[178]"BILLIARD ROOM"
  365. 50835 [139]AS[178]7[167]AS$[178]"LIBRARY"
  366. 50840 [139]AS[178]8[167]AS$[178]"STUDY"
  367. 50841 [139]AS[178]AC[167]50796
  368. 50842 [139]AS[178]AN[167]50796
  369. 50843 [139]AS[178]AO[167]50796
  370. 50844 [139]AS[178]AP[167]50796
  371. 50845 [139]AS[178]AQ[167]50796
  372. 50846 [139]AS[178]AR[167]50796
  373. 50847 AT[178][181](9[172][187](1))
  374. 50850 [139]AT[178]0[167]AT$[178]"HALL"
  375. 50855 [139]AT[178]1[167]AT$[178]"LOUNGE"
  376. 50860 [139]AT[178]2[167]AT$[178]"DINING ROOM"
  377. 50865 [139]AT[178]3[167]AT$[178]"KITCHEN"
  378. 50870 [139]AT[178]4[167]AT$[178]"BALL ROOM"
  379. 50875 [139]AT[178]5[167]AT$[178]"CONSERVATORY"
  380. 50880 [139]AT[178]6[167]AT$[178]"BILLIARD ROOM"
  381. 50885 [139]AT[178]7[167]AT$[178]"LIBRARY"
  382. 50890 [139]AT[178]8[167]AT$[178]"STUDY"
  383. 50891 [139]AT[178]AC[167]50847
  384. 50892 [139]AT[178]AN[167]50847
  385. 50893 [139]AT[178]AO[167]50847
  386. 50894 [139]AT[178]AP[167]50847
  387. 50895 [139]AT[178]AQ[167]50847
  388. 50896 [139]AT[178]AR[167]50847
  389. 50897 [139]AT[178]AS[167]50847
  390. 50898 AU[178][181](9[172][187](1))
  391. 50900 [139]AU[178]0[167]AU$[178]"HALL"
  392. 50905 [139]AU[178]1[167]AU$[178]"LOUNGE"
  393. 50910 [139]AU[178]2[167]AU$[178]"DINING ROOM"
  394. 50915 [139]AU[178]3[167]AU$[178]"KITCHEN"
  395. 50920 [139]AU[178]4[167]AU$[178]"BALL ROOM"
  396. 50925 [139]AU[178]5[167]AU$[178]"CONSERVATORY"
  397. 50930 [139]AU[178]6[167]AU$[178]"BILLIARD ROOM"
  398. 50935 [139]AU[178]7[167]AU$[178]"LIBRARY"
  399. 50940 [139]AU[178]8[167]AU$[178]"STUDY"
  400. 50941 [139]AU[178]AC[167]50898
  401. 50952 [139]AU[178]AN[167]50898
  402. 50953 [139]AU[178]AO[167]50898
  403. 50964 [139]AU[178]AP[167]50898
  404. 50965 [139]AU[178]AQ[167]50898
  405. 50966 [139]AU[178]AR[167]50898
  406. 50967 [139]AU[178]AS[167]50898
  407. 50968 [139]AU[178]AT[167]50898
  408. 50990 [142]
  409. 53000 [153][199](142)"LOADHOPENECLRRE ASYSRFORE DEFYPOKEOPRINT#UPRINTR CONTCLISTAROPENDCLRS:"
  410. 53010 [153]""AD$", "AE$","[199](13)AI$", "AJ$","[199](13)AN$", ";
  411. 53020 [153]AO$", "[199](13)AP$", AND "AQ$".
  412. 53025 IFRR=95THENPRINT"[149]PRESS ANY KEY TO CONTINUE[146]":GOTO54010
  413. 53030 RETURN
  414. 54000 PRINT"SORRY. [159]I [156]HAVE IT.":RETURN
  415. 54010 GETJ$:IFJ$=""THEN54010
  416. 54020 PRINT"[147]"CHR$(14):RR=0:GOTO510
  417. 60000 FORL=54272TO54296:POKEL,0:NEXT
  418. 60010 POKE54296,15
  419. 60020 POKE54277,64
  420. 60030 POKE54284,64
  421. 60040 POKE54278,128
  422. 60050 POKE54285,128
  423. 60060 POKE54273,16:POKE54272,195
  424. 60070 POKE54280,9:POKE54279,247
  425. 60080 POKE54276,17:POKE54283,17:FORT=1TO600:NEXTT
  426. 60160 POKE54273,18:POKE54272,209
  427. 60170 POKE54280,9:POKE54279,104
  428. 60171 FORT=1TO150:NEXTT
  429. 60260 POKE54273,19:POKE54272,239
  430. 60270 POKE54280,8:POKE54279,97
  431. 60280 FORT=1TO400:NEXT
  432. 60360 POKE54273,16:POKE54272,195
  433. 60370 POKE54280,9:POKE54279,247
  434. 60380 FORT=1TO400:NEXT
  435. 60460 POKE54273,25:POKE54272,30
  436. 60470 POKE54280,8:POKE54279,97
  437. 60480 FORT=1TO850:NEXTT
  438. 60490 POKE54276,16:POKE54283,16:FORT=1TO50:NEXT:RETURN
  439. 61000 RESTORE:FORL=54272TO54296:POKEL,0:NEXT
  440. 61010 POKE54296,05
  441. 61020 POKE54277,64
  442. 61030 POKE54284,64
  443. 61035 POKE54291,64
  444. 61040 POKE54278,128
  445. 61045 POKE54292,128
  446. 61050 POKE54285,128
  447. 61060 READA:READB:READC:READD:READE:READF
  448. 61065 POKE54273,A:POKE54272,B:POKE54280,C:POKE54279,D:POKE54287,E:POKE54286,F
  449. 61070 POKE54276,17:POKE54283,17:POKE54290,17
  450. 61074 FORD=1TO500:NEXTD
  451. 61075 POKE54276,16:POKE54283,16:POKE54290,16
  452. 61076 RETURN
  453. 62000 DATA8,97,9,247,12,143
  454. 62100 IFA$="T"THEN61000
  455. 62110 IFA$="A"THEN61000
  456. 62120 IFA$="D"THEN61000
  457. 62130 IFA$="Q"THEN61000
  458. 62135 IFA$="V"THEN61000
  459. 62140 RETURN
  460.