home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / MANOR-LANE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.6 KB  |  305 lines
  1. 10 DIMP$(5),R$(6),W$(5):G=0
  2. 20 TQ1=1665:TP2=1705:PL=1:RE=0:WN=0
  3. 30 GOSUB990:GOSUB1140
  4. 40 JP=56320:CL=54272:TK=209:PL=1:PO=TQ1
  5. 50 FORM=1TOSP
  6. 60 J1=PEEK(JP)
  7. 70 F1=JIAND16
  8. 80 J1=15-(J1AND15)
  9. 90 IFJ1=4THEN140
  10. 100 IFJ1=8THEN320
  11. 110 IFJ1=1THEN500
  12. 120 IFJ1=2THEN660
  13. 130 GOTO60
  14. 140 IFPEEK(PO-1)<>160THEN60
  15. 150 IFPL=2THEN170
  16. 160 TQ1=TQ1-1:POKETQ1,209:POKETQ1+1,160:PO=TQ1:GOTO180
  17. 170 TP2=TP2-1:POKETP2,218:POKETP2+1,160:PO=TP2
  18. 180 GOSUB830
  19. 190 NEXTM
  20. 200 RT=INT(RND(0)*3)+1:IFRT=2THENGOSUB2360
  21. 210 IFPL=2THEN240
  22. 220 IFTQ1=1502ORTQ1=1507ORTQ1=1526ORTQ1=1861ORTQ1=1788ORTQ1=1966THENGOSUB1610
  23. 230 GOTO250
  24. 240 IFTP2=1502ORTP2=1507ORTP2=1526ORTP2=1861ORTP2=1788ORTP2=1966THENGOSUB1610
  25. 250 IFD=1THEN280
  26. 260 IFPL=2THENPL=1:GOTO280
  27. 270 IFPL=1THENPL=2
  28. 280 GOSUB 1540:GOTO2080
  29. 290 IFPL=1THEN40
  30. 300 PL=2:PO=TP2:TK=218:JP=56321
  31. 310 GOTO50
  32. 320 IFPEEK(PO+1)<>160THEN60
  33. 330 IFPL=2THEN350
  34. 340 TQ1=TQ1+1:POKETQ1,209:POKETQ1-1,160:PO=TQ1:GOSUB830:GOTO370
  35. 350 TP2=TP2+1:POKETP2,218:POKETP2-1,160:PO=TP2
  36. 360 GOSUB830
  37. 370 NEXTM
  38. 380 RT=INT(RND(0)*3)+1:IFRT=2THENGOSUB2360
  39. 390 IFPL=2THEN420
  40. 400 IFTQ1=1502ORTQ1=1507ORTQ1=1526ORTQ1=1861ORTQ1=1788ORTQ1=1966THENGOSUB1610
  41. 410 GOTO430
  42. 420 IFTP2=1502ORTP2=1507ORTP2=1526ORTP2=1861ORTP2=1788ORTP2=1966THENGOSUB1610
  43. 430 IFD=1THEN280
  44. 440 IFPL=2THENPL=1:GOTO280
  45. 450 IFPL=1THENPL=2
  46. 460 GOSUB 1540:GOTO2080
  47. 470 IFPL=1THEN40
  48. 480 PL=2:PO=TP2:TK=218:JP=56321
  49. 490 GOTO50
  50. 500 IFPEEK(PO-40)<>160 THEN60
  51. 510 IFPL=2THEN530
  52. 520 TQ1=TQ1-40:POKETQ1,209:POKETQ1+40,160:PO=TQ1:GOSUB830:GOTO370
  53. 530 TP2=TP2-40:POKETP2,218:POKETP2+40,160:PO=TP2
  54. 540 GOSUB830
  55. 550 NEXTM
  56. 560 RT=INT(RND(0)*3)+1:IFRT=2THENGOSUB2360
  57. 570 IFTQ1=1502ORTQ1=1507ORTQ1=1526ORTQ1=1861ORTQ1=1788ORTQ1=1966THENGOSUB1610
  58. 580 IFTP2=1502ORTP2=1507ORTP2=1526ORTP2=1861ORTP2=1788ORTP2=1966THENGOSUB1610
  59. 590 IFD=1THEN620
  60. 600 IFPL=2THENPL=1:GOTO620
  61. 610 IFPL=1THENPL=2
  62. 620 GOSUB1540:GOTO2080
  63. 630 IFPL=1THEN30
  64. 640 P=2:PO=TP2:TK=208:JP=56321
  65. 650 GOTO50
  66. 660 IFPEEK(PO+40)<>160THEN60
  67. 670 IFPL=2THEN690
  68. 680 TQ1=TQ1+40:POKETQ1,209:POKETQ1-40,160:PO=TQ1:GOSUB830:GOTO370
  69. 690 TP2=TP2+40:POKETP2,218:POKETP2-40,160:PO=TP1
  70. 700 GOSUB830
  71. 710 NEXTM
  72. 720 RT=INT(RND(0)*3)+1:IFRT=2THENGOSUB2360
  73. 730 IFTQ1=1502ORTQ1=1507ORTQ1=1526ORTQ1=1861ORTQ1=1788ORTQ1=1966THENGOSUB1610
  74. 740 IFTP2=1502ORTP2=1507ORTP2=1526ORTP2=1861ORTP2=1788ORTP2=1966THENGOSUB1610
  75. 750 IFD=1THEN780
  76. 760 IFPL=2THENPL=1:GOTO780
  77. 770 IFPL=1THENPL=2
  78. 780 GOSUB1540:GOTO2080
  79. 790 IFPL=1THEN30
  80. 800 PL=2:PO=TP2:TK=94:JP=56321
  81. 810 GOTO50
  82. 820 S=54272:FORE=STOS+28:POKEE,0:NEXT
  83. 830 POKE54296,12:POKE54277,85:POKE54278,197
  84. 840 POKE54276,33:POKE54273,1:POKE54272,250
  85. 850 FORT=1TO100:NEXT:POKE54276,128:FORT=1TO10:NEXT
  86. 860 RETURN
  87. 870 FORP=1TO5:READP$(P):NEXT
  88. 880 FORR=1TO6:READR$(R):NEXT
  89. 890 FORW=1TO5:READW$(W):NEXT
  90. 900 DATA MRS.LANE,STEPSON,BUTLER,MAID,MISTRESS
  91. 910 DATALIBRARY,LIVING RM,DEN,KITCHEN,LOUNGE,STUDY
  92. 920 DATAHAMMER,GUN,CHAIN,KNIFE,POISON
  93. 930 P=INT(RND(0)*5)+1
  94. 940 R=INT(RND(0)*6)+1
  95. 950 W=INT(RND(0)*5)+1
  96. 960 FORT=1TO100:NEXT
  97. 970 IFRE=1THENRESTORE:FORI=1TO16:READDD$:NEXT:GOTO1140
  98. 980 RETURN
  99. 990 PRINT"[147]";CHR$(14):POKE53280,1:POKE53281,1
  100. 1000 PRINTTAB(9)"[144][205]YSTERY OF [204]ANE [205]ANOR"
  101. 1010 PRINTTAB(12)"[194]Y [202]IM [211]ANDERS"
  102. 1020 FORT=1TO1300:NEXT:GOSUB870
  103. 1030 PRINT"[147]":POKE53281,7:POKE53280,7
  104. 1040 PRINTCHR$(142)
  105. 1050 PRINT"[144]HOW MANY WILL WORK ON THIS CASE 1 OR 2"
  106. 1060 GETD:IFD<1ORD>2THEN1060
  107. 1070 PRINT"PLEASE ENTER NAMES(6 LETTERS MAX) THEN  PUSH RETURN[146]"
  108. 1080 INPUT"DETECTIVE #1";D1$:IFD1$=""THEN1080
  109. 1090 IFD=2THEN1120
  110. 1100 GOSUB2940
  111. 1110 IFD=1THEN1140
  112. 1120 INPUT"DETECTIVE #2";D2$:IFD2$=""THEN1120
  113. 1130 GOSUB2940
  114. 1140 POKE53265,PEEK(53265)AND239:PRINT"[147]":POKE53281,0:POKE53280,8
  115. 1150 FORI=1024TO1063:POKEI,99:NEXT
  116. 1160 FORI=1063TO1423STEP40:POKEI,106:NEXT
  117. 1170 FORI=1024TO1384STEP40:POKEI,116:NEXT
  118. 1180 FORI=1384TO1423:POKEI,100:NEXT
  119. 1190 FORI=1043TO1323STEP40:POKEI,106:NEXT
  120. 1200 FORI=1044TO1324STEP40:POKEI,116:NEXT
  121. 1210 PRINTTAB(12)"[158]PUSH"
  122. 1220 PRINTTAB(8)"J[146]STK BUTTON"
  123. 1230 PRINTTAB(11)"TO STOP"
  124. 1240 PRINTTAB(10)"STEP-GEN."
  125. 1250 PRINT"";TAB(16)"[155]12345678"
  126. 1260 FORI=1425TO1462:POKEI,100:NEXT:FORI=1985TO2022:POKEI,99:NEXT
  127. 1270 FORI=1503TO1983STEP40:POKEI,116:NEXT:FORI=1464TO1944STEP40:POKEI,106:NEXT
  128. 1280 TI$="000000"
  129. 1290 PRINT"[152]                 [144][166]          [144][166]   [144][166][158]     "
  130. 1300 PRINT"[152]                 [144][166]          [144][166]   [144][166][158]     "
  131. 1310 PRINT"[152]            [144][166]    [144][166]          [144][166]   [144][166][158]     "
  132. 1320 PRINT"[152]            [144][166]    [144][166]          [144][166]   [144][166][158]     "
  133. 1330 PRINT"[144][166][166][166][166][166][166][166][152]   [144][166][166][166]    [144][166][166][166][166][166][166]   [144][166][166][166]   [144][166][166][166][166][158]  "
  134. 1340 PRINT"                                      "
  135. 1350 PRINT"                                      "
  136. 1360 PRINT"[144][166][166][166][166][166][166][166][155]   [144][166]   [144][166][166][166][156]  [144][166][166][166][166][156]  [144][166]   [144][166][166][166][166][166][166][166][166][166]"
  137. 1370 PRINT"[155]          [144][166]   [144][166][156]          [144][166]   [144][166][154]        "
  138. 1380 PRINT"[155]          [144][166]   [144][166][156]          [144][166]   [154]         "
  139. 1390 PRINT"[155]          [144][166]   [144][166][156]          [144][166]   [154]         "
  140. 1400 PRINT"[155]              [144][166][156]          [144][166]   [144][166][154]        "
  141. 1410 PRINT"[155]              [144][166][156]          [144][166]   [144][166][154]        "
  142. 1420 PRINT"LIBRARY";TAB(19)"LIVING RM";TAB(34)"DEN"
  143. 1430 PRINT"KITCHEN";TAB(16)"LOUNGE";TAB(31)"STUDY"
  144. 1440 CL=54272:POKECL+1507,2:POKECL+1526,2:POKECL+1502,2
  145. 1450 POKECL+1788,2:POKECL+1966,2:POKECL+1861,2:POKE1665,209:POKE1705,218
  146. 1460 TQ1=1665:TP2=1705
  147. 1470 PRINTCHR$(142):POKE53265,PEEK(53265)OR16
  148. 1480 GOSUB1490:GOSUB1540:GOSUB2330:GOTO2080
  149. 1490 PRINT"[155]";TAB(10);D1$
  150. 1500 IFD=1THENRETURN
  151. 1510 PRINTTAB(25)"[145]";D2$
  152. 1520 FORT=1TO1500:NEXT
  153. 1530 RETURN
  154. 1540 IFPL=2THEN1580
  155. 1550 PRINT"[155]";TAB(10);D1$
  156. 1560 PRINTTAB(25)"[145][144]      [155]"
  157. 1570 RETURN
  158. 1580 PRINT"";TAB(10)"[144]      [155]"
  159. 1590 PRINTTAB(25)"[145][155]";D2$
  160. 1600 RETURN
  161. 1610 GOSUB2010:IFPL=1THENX=8:IFPL=1THENY=1
  162. 1620 IFPL=2THENX=28:IFPL=2THENY=21
  163. 1630 PRINT"[155]";TAB(X)"1.MRS LANE"
  164. 1640 PRINTTAB(X)"2.STEPSON"
  165. 1650 PRINTTAB(Y)"PERSON:3.BUTLER"
  166. 1660 PRINTTAB(X)"4.MAID"
  167. 1670 PRINTTAB(X)"5.MISTRESS"
  168. 1680 Q=5:GOSUB2560:REM GUESS STEPPER
  169. 1690 GOSUB2010:REM BLANKS PLAYER SCRN
  170. 1700 GP=GS
  171. 1710 PRINT"";TAB(X)"1.LIBRARY"
  172. 1720 PRINTTAB(X)"2.LIVING RM"
  173. 1730 PRINTTAB(X)"3.DEN"
  174. 1740 PRINTTAB(Y)"ROOM:  4.KITCHEN"
  175. 1750 PRINTTAB(X)"5.LOUNGE"
  176. 1760 PRINTTAB(X)"6.STUDY"
  177. 1770 Q=6:GOSUB2560
  178. 1780 GOSUB2010
  179. 1790 GR=GS
  180. 1800 PRINT"";TAB(X)"1.HAMMER"
  181. 1810 PRINTTAB(X)"2.GUN"
  182. 1820 PRINTTAB(Y)"WEAPON:3.CHAIN"
  183. 1830 PRINTTAB(X)"4.KNIFE"
  184. 1840 PRINTTAB(X)"5.POISON"
  185. 1850 Q=5:GOSUB2560
  186. 1860 GOSUB2010
  187. 1870 GW=GS
  188. 1880 PRINT"";TAB(Y)"PERSON:";P$(GP)
  189. 1890 PRINTTAB(Y)"ROOM:";R$(GR)
  190. 1900 PRINTTAB(Y)"WEAPON:";W$(GW)
  191. 1910 GOSUB2610:FORT=1TO2000:NEXT
  192. 1920 IFPL=1THENCO=7
  193. 1930 IFPL=2THENCO=27
  194. 1940 CB=0
  195. 1950 IFP=GPTHENCB=CB+1
  196. 1960 IFR=GRTHENCB=CB+1
  197. 1970 IFW=GWTHENCB=CB+1
  198. 1980 GOSUB2990:FORT=1TO1300:NEXT:GOSUB3030
  199. 1990 GOSUB2260:RETURN
  200. 2000 PRINT"";TAB(CO)" "
  201. 2010 PRINT""
  202. 2020 IFPL=2THENB=21
  203. 2030 IFPL=1THENB=1
  204. 2040 FORI=1TO6
  205. 2050 PRINTTAB(B)"                  "
  206. 2060 NEXT
  207. 2070 RETURN
  208. 2080 SP=15                           
  209. 2090 IFSP=23THENSP=15                  
  210. 2100 PRINT"          "
  211. 2110 IFXV=1THEN2130
  212. 2120 PRINT"[144]"
  213. 2130 PRINT"";TAB(SP)" ^ "
  214. 2140 PRINTTAB(23)"[145] "
  215. 2150 SP=SP+1
  216. 2160 IFPEEK(197)=1THENPRINT"":GOTO1290
  217. 2170 IFPL=1THENJP=56320
  218. 2180 IFPL=2THENJP=56321
  219. 2190 IFJP=56320THENJ0=111
  220. 2200 IFJP=56321THENJ0=239
  221. 2210 IFPEEK(JP)<>J0THEN2090
  222. 2220 IFSP=23THEN2170
  223. 2230 PRINT"";TAB(SP)"^ "
  224. 2240 SP=SP-15
  225. 2250 GOTO290
  226. 2260 IFPL=2THEN2290
  227. 2270 RJ=INT(RND(0)*37)+1665
  228. 2280 GOTO2310
  229. 2290 RK=INT(RND(0)*37)+1704
  230. 2300 GOTO2320
  231. 2310 POKERJ,209:POKETQ1,160:TQ1=RJ:GOTO2330
  232. 2320 POKERK,218:POKETP2,160:TP2=RK:GOTO2330
  233. 2330 POKE54296,15:POKE54277,17:POKE54278,129
  234. 2340 POKE54276,17:POKE54273,179:POKE54272,6
  235. 2350 FORT=1TO100:NEXT:POKE54276,16:FORT=1TO100:NEXT:POKE54276,0:RETURN
  236. 2360 NU=INT(RND(0)*5)+1
  237. 2370 FORI=1TONU
  238. 2380 TR=INT(RND(1)*518)+55740
  239. 2390 IFTR>56200ORTR<55780THEN2380
  240. 2400 IFTR>55936ANDTR<56016THEN2380
  241. 2410 IFPEEK(TR-CL)=209THENGOTO2460
  242. 2420 IFPEEK(TR-CL)=218THENGOTO2490
  243. 2430 IFPEEK(TR-CL)=116ORPEEK(TR-CL)=106ORPEEK(TR-CL)=100THEN2380
  244. 2440 POKETR,0:POKETR-CL,102
  245. 2450 GOSUB2520:NEXT:RETURN
  246. 2460 POKETR,0:POKETR-CL,160
  247. 2470 GOSUB2520
  248. 2480 POKE1665,209:TQ1=1665:NEXTI:RETURN
  249. 2490 POKETR,0:POKETR-CL,160
  250. 2500 GOSUB2520
  251. 2510 POKE1705,218:TP2=1705:NEXTI:RETURN
  252. 2520 POKE54296,15:POKE54277,95:POKE54278,197
  253. 2530 POKE54276,33:POKE54273,6:POKES,160
  254. 2540 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO250:NEXT
  255. 2550 RETURN
  256. 2560 PRINT"";TAB(15)"        ":GS=1
  257. 2570 PRINTTAB(15+GS);"[145]^[157]";:FORT=1TO100:NEXT
  258. 2580 J=15-(PEEK(JP)AND15):GS=GS+((JAND8)=8)*(GS<Q)-((JAND4)=4)*(GS>1)
  259. 2590 IF(PEEK(JP)AND16)=0THENFORT=1TO300:NEXT:RETURN
  260. 2600 PRINT"  ":GOTO2570
  261. 2610 IFR=1THENWS=1507
  262. 2620 IFR=2THENWS=1526
  263. 2630 IFR=3THENWS=1502
  264. 2640 IFR=4THENWS=1788
  265. 2650 IFR=5THENWS=1966
  266. 2660 IFR=6THENWS=1861
  267. 2670 IFP=GPANDR=GRANDW=GWTHENWN=1
  268. 2680 IFWN=1ANDPO=WSTHENWN=0:GOTO2700
  269. 2690 RETURN
  270. 2700 FORT=1TO1000:NEXT:IFPL=1THENWR$=D1$
  271. 2710 IFPL=2THENWR$=D2$
  272. 2720 PRINT"[147]":POKE53281,15:POKE53280,15
  273. 2730 PRINTTAB(2)"[144]CONGRADULATIONS ";WR$;" YOU HAVE SOLVED
  274. 2740 [153][163]2)"THE MYSTERY."
  275. 2750 [153]:[153]:[153][163]13)"TIME TO SOLVE:"
  276. 2760 [153]:[153][163]15);[202](TI$,3,2);" MINUTES"
  277. 2770 [153]:[153][163]15);[201](TI$,2);" SECONDS"
  278. 2780 BE[178]54272:[129]CL[178]BE[164]BE[170]24:[151]CL,0:[130]
  279. 2790 [151]BE[170]5,85:[151]BE[170]6,85:[151]BE[170]12,85:[151]BE[170]13,85
  280. 2800 [151]BE[170]24,15
  281. 2810 [151]BE[170]4,33:[151]BE[170]11,17
  282. 2820 [129]X[178]1[164]6:[135]H1,L1,H2,L2:[151]BE[170]1,H1:[151]BE,L1:[151]BE[170]8,H2:[151]BE[170]7,L2
  283. 2830 [139]H1[178]50[167][129]T[178]1[164]200:[130]
  284. 2840 [129]T[178]1[164]100:[130]
  285. 2850 [131]25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162,42,62,31,165,50,60
  286. 2860 [131]37,162
  287. 2870 [130]X
  288. 2880 BE[178]54272:[129]CL[178]BE[164]BE[170]24:[151]CL,0:[130]
  289. 2890 [153]:[153]"WOULD YOU LIKE TO TRY AGAIN-Y/N"
  290. 2900 [161]AG$:[139]AG$[178]""[167]2900
  291. 2910 [139]AG$[178]"Y"[167][138]
  292. 2920 [139]AG$[178]"N"[167][128]
  293. 2930 [137]2900
  294. 2940 [153]"DO YOU WANT STEP GEN. VISIBLE (Y/N)"
  295. 2950 [161]V$:[139]V$[178]""[167]2950
  296. 2960 [139]V$[178]"Y"[167]XV[178]1:[142]
  297. 2970 [139]V$[178]"N"[167]XV[178]0:[142]
  298. 2980 [137]2950
  299. 2990 [153]"";[163]Y)"PERSON:        "
  300. 3000 [153][163]Y)"ROOM:           "
  301. 3010 [153][163]Y)"WEAPON:           "
  302. 3020 [142]
  303. 3030 [153]"";[163]CO)"";CB
  304. 3040 [142]
  305.