2 PRINTCHR$(147)"WOULD YOU LIKE INSTRUCTIONS (Y/N)?
4 [161] A$: [139] A$[179][177] "Y" [175] A$[179][177]"N" [167] 4
6 [139] A$[178]"N" [167] 112
8 [153]"INSTRUCTIONS ON SCREEN OR PRINTER (S/P)?
10 GET B$: IF B$<> "S" AND B$<>"P" THEN 10
12 IF B$="S"THEN  D=3
14 IF B$="P" THEN D=4
16 OPEN D,D
18 PRINT#D,"
20 [152]D,"MYSTERY OF LANE MANOR BY JIM SANDERS
22 PRINT#D,"
24 [152]D,"RUN IT RIGHT: C-64; 1 OR 2 JOYSTICKS
26 PRINT#D,"
28 [152]D,"IN MYSTERY OF LANE MANOR, AN VARIATION
30 PRINT#D,"OF CLUE, YOU COMPETE AGAINST A PERSON
32 [152]D,"OR THE CLOCK TO REVEAL WHO MURDERED
34 PRINT#D,"JAMES LANE, WHERE AND WITH WHAT. THERE
36 [152]D,"ARE FIVE SUSPECTS, SIX ROOMS AND FIVE
38 PRINT#D,"WEAPONS.
40 [152]D,"
42 PRINT#D,"AS PLAY STARTS, YOUR TOKEN IS IN HOME
44 [152]D,"POSITION IN THE HALLWAY. TO GUESS, YOU
46 PRINT#D,"MUST MOVE IT TO THE RED SQUARE IN ANY
48 [152]D,"ROOM. THE "[199](34)"STEP-GENERATOR"[199](34)"
50 PRINT#D,"POINTER SKIMS PAST A ROW OF NUMBERS;
52 [152]D,"PRESS FIRE TO STOP IT AT THE NUMBER OF
54 PRINT#D,"STEPS YOU WANT, THEN MOVE YOUR TOKEN.":IF D=4 THEN 68
56 PRINT#D,"
58 [153]"PRESS A KEY TO CONTINUE"
60 [161] DD$:[139] DD$[178]"" [167] 60
62 [152]D,"
64 PRINT#D,"
66 [152]D,"
68 PRINT#D,"CONTINUE FOR AS MANY TURNS NEEDED TO
70 [152]D,"LAND EXACTLY ON A RED SQUARE. (FOR MORE
72 PRINT#D,"CHALLENGE, TURN OFF THE STEP-GENERATOR
74 [152]D,"POINTER.)
76 PRINT#D,"
78 [152]D,"NOW CHOOSE A PERSON, ROOM AND WEAPON BY
80 PRINT#D,"OPTING FROM A LIST OF CORRESPONDING
82 [152]D,"NUMBERS. USE THE JOYSTICK (PORT 2 FOR
84 PRINT#D,"ONE PLAYER) TO POINT THE ARROW AT A
86 [152]D,"NUMBER YOU WANT, THEN PRESS FIRE. AFTER
88 PRINT#D,"ALL THREE CHOICES, YOU WILL SEE HOW
90 [152]D,"MANY WERE RIGHT.
92 PRINT#D,"
94 [152]D,"AFTER EACH GUESS, YOUR TOKEN WILL START
96 PRINT#D,"IN A NEW LOCATION. MAKE YOUR LAST GUESS
98 [152]D,"IN THE ROOM WHERE THE CRIME OCCURRED.
100 PRINT#D,"
102 [152]D,"DURING PLAY, BLACK TRAPDOORS WILL
104 PRINT#D,"APPEAR. FALL THROUGH ONE AND YOUR TOKEN
106 [152]D,"GOES HOME. CLEAR THE TRAPDOORS BY
108 PRINT#D,"PRESSING RETURN AND BOTH TOKENS GO HOME.
110 [152]D,"":[160]D
112 [153]"PRESS ANY KEY TO BEGIN THE PROGRAM..."
114 [161] E$:[139] E$[178]"" [167] 114
116 [156]
118 [134]P$(5),R$(6),W$(5):G[178]0
120 TQ1[178]1665:TP2[178]1705:PL[178]1:RE[178]0:WN[178]0
122 [141]314:[141]344
124 JP[178]56320:CL[178]54272:TK[178]209:PL[178]1:PO[178]TQ1
126 [129]M[178]1[164]SP
128 J1[178][194](JP)
130 F1[178]JI[175]16
132 J1[178]15[171](J1[175]15)
134 [139]J1[178]4[167]144
136 [139]J1[178]8[167]180
138 [139]J1[178]1[167]216
140 [139]J1[178]2[167]248
142 [137]128
144 [139][194](PO[171]1)[179][177]160[167]128
146 [139]PL[178]2[167]150
148 TQ1[178]TQ1[171]1:[151]TQ1,209:[151]TQ1[170]1,160:PO[178]TQ1:[137]152
150 TP2[178]TP2[171]1:[151]TP2,218:[151]TP2[170]1,160:PO[178]TP2
152 [141]282
154 [130]M
156 RT[178][181]([187](0)[172]3)[170]1:[139]RT[178]2[167][141]586
158 [139]PL[178]2[167]164
160 [139]TQ1[178]1502[176]TQ1[178]1507[176]TQ1[178]1526[176]TQ1[178]1861[176]TQ1[178]1788[176]TQ1[178]1966[167][141]438
162 [137]166
164 [139]TP2[178]1502[176]TP2[178]1507[176]TP2[178]1526[176]TP2[178]1861[176]TP2[178]1788[176]TP2[178]1966[167][141]438
166 [139]D[178]1[167]172
168 [139]PL[178]2[167]PL[178]1:[137]172
170 [139]PL[178]1[167]PL[178]2
172 [141] 424:[137]532
174 [139]PL[178]1[167]124
176 PL[178]2:PO[178]TP2:TK[178]218:JP[178]56321
178 [137]126
180 [139][194](PO[170]1)[179][177]160[167]128
182 [139]PL[178]2[167]186
184 TQ1[178]TQ1[170]1:[151]TQ1,209:[151]TQ1[171]1,160:PO[178]TQ1:[141]282:[137]190
186 TP2[178]TP2[170]1:[151]TP2,218:[151]TP2[171]1,160:PO[178]TP2
188 [141]282
190 [130]M
192 RT[178][181]([187](0)[172]3)[170]1:[139]RT[178]2[167][141]586
194 [139]PL[178]2[167]200
196 [139]TQ1[178]1502[176]TQ1[178]1507[176]TQ1[178]1526[176]TQ1[178]1861[176]TQ1[178]1788[176]TQ1[178]1966[167][141]438
198 [137]202
200 [139]TP2[178]1502[176]TP2[178]1507[176]TP2[178]1526[176]TP2[178]1861[176]TP2[178]1788[176]TP2[178]1966[167][141]438
202 [139]D[178]1[167]172
204 [139]PL[178]2[167]PL[178]1:[137]172
206 [139]PL[178]1[167]PL[178]2
208 [141] 424:[137]532
210 [139]PL[178]1[167]124
212 PL[178]2:PO[178]TP2:TK[178]218:JP[178]56321
214 [137]126
216 [139][194](PO[171]40)[179][177]160 [167]128
218 [139]PL[178]2[167]222
220 TQ1[178]TQ1[171]40:[151]TQ1,209:[151]TQ1[170]40,160:PO[178]TQ1:[141]282:[137]190
222 TP2[178]TP2[171]40:[151]TP2,218:[151]TP2[170]40,160:PO[178]TP2
224 [141]282
226 [130]M
228 RT[178][181]([187](0)[172]3)[170]1:[139]RT[178]2[167][141]586
230 [139]TQ1[178]1502[176]TQ1[178]1507[176]TQ1[178]1526[176]TQ1[178]1861[176]TQ1[178]1788[176]TQ1[178]1966[167][141]438
232 [139]TP2[178]1502[176]TP2[178]1507[176]TP2[178]1526[176]TP2[178]1861[176]TP2[178]1788[176]TP2[178]1966[167][141]438
234 [139]D[178]1[167]240
236 [139]PL[178]2[167]PL[178]1:[137]240
238 [139]PL[178]1[167]PL[178]2
240 [141]424:[137]532
242 [139]PL[178]1[167]122
244 P[178]2:PO[178]TP2:TK[178]208:JP[178]56321
246 [137]126
248 [139][194](PO[170]40)[179][177]160[167]128
250 [139]PL[178]2[167]254
252 TQ1[178]TQ1[170]40:[151]TQ1,209:[151]TQ1[171]40,160:PO[178]TQ1:[141]282:[137]190
254 TP2[178]TP2[170]40:[151]TP2,218:[151]TP2[171]40,160:PO[178]TP1
256 [141]282
258 [130]M
260 RT[178][181]([187](0)[172]3)[170]1:[139]RT[178]2[167][141]586
262 [139]TQ1[178]1502[176]TQ1[178]1507[176]TQ1[178]1526[176]TQ1[178]1861[176]TQ1[178]1788[176]TQ1[178]1966[167][141]438
264 [139]TP2[178]1502[176]TP2[178]1507[176]TP2[178]1526[176]TP2[178]1861[176]TP2[178]1788[176]TP2[178]1966[167][141]438
266 [139]D[178]1[167]272
268 [139]PL[178]2[167]PL[178]1:[137]272
270 [139]PL[178]1[167]PL[178]2
272 [141]424:[137]532
274 [139]PL[178]1[167]122
276 PL[178]2:PO[178]TP2:TK[178]94:JP[178]56321
278 [137]126
280 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
282 [151]54296,12:[151]54277,85:[151]54278,197
284 [151]54276,33:[151]54273,1:[151]54272,250
286 [129]T[178]1[164]100:[130]:[151]54276,128:[129]T[178]1[164]10:[130]
288 [142]
290 [129]P[178]1[164]5:[135]P$(P):[130]
292 [129]R[178]1[164]6:[135]R$(R):[130]
294 [129]W[178]1[164]5:[135]W$(W):[130]
296 [131] MRS.LANE,STEPSON,BUTLER,MAID,MISTRESS
298 [131]LIBRARY,LIVING RM,DEN,KITCHEN,LOUNGE,STUDY
300 [131]HAMMER,GUN,CHAIN,KNIFE,POISON
302 P[178][181]([187](0)[172]5)[170]1
304 R[178][181]([187](0)[172]6)[170]1
306 W[178][181]([187](0)[172]5)[170]1
308 [129]T[178]1[164]100:[130]
310 [139]RE[178]1[167][140]:[129]I[178]1[164]16:[135]DD$:[130]:[137]344
312 [142]
314 [153]"LOAD";[199](14):[151]53280,1:[151]53281,1
316 [153][163]9)"STOP(null)YSTERY OF (null)ANE (null)ANOR"
318 [153][163]12)"PEEKY MID$IM (null)ANDERS"
320 [129]T[178]1[164]1300:[130]:[141]290
322 [153]"LOAD":[151]53281,7:[151]53280,7
324 [153][199](142)
326 [153]"STOPHOW MANY WILL WORK ON THIS CASE 1 OR 2"
328 [161]D:[139]D[179]1[176]D[177]2[167]328
330 [153]"PLEASE ENTER NAMES(6 LETTERS MAX) THEN  PUSH RETURNWAIT"
332 [133]"DETECTIVE #1";D1$:[139]D1$[178]""[167]332
334 [139]D[178]2[167]340
336 [141]702
338 [139]D[178]1[167]344
340 [133]"DETECTIVE #2";D2$:[139]D2$[178]""[167]340
342 [141]702
344 [151]53265,[194](53265)[175]239:[153]"LOAD":[151]53281,0:[151]53280,8
346 [129]I[178]1024[164]1063:[151]I,99:[130]
348 [129]I[178]1063[164]1423[169]40:[151]I,106:[130]
350 [129]I[178]1024[164]1384[169]40:[151]I,116:[130]
352 [129]I[178]1384[164]1423:[151]I,100:[130]
354 [129]I[178]1043[164]1323[169]40:[151]I,106:[130]
356 [129]I[178]1044[164]1324[169]40:[151]I,116:[130]
358 [153][163]12)"SYSPUSH"
360 [153][163]8)"JWAITSTK BUTTON"
362 [153][163]11)"TO STOP"
364 [153][163]10)"STEP-GEN."
366 [153]"";[163]16)"LIST12345678"
368 [129]I[178]1425[164]1462:[151]I,100:[130]:[129]I[178]1985[164]2022:[151]I,99:[130]
370 [129]I[178]1503[164]1983[169]40:[151]I,116:[130]:[129]I[178]1464[164]1944[169]40:[151]I,106:[130]
372 TI$[178]"000000"
374 [153]"PRINT#                 STOPSPC(          STOPSPC(   STOPSPC(SYS     "
376 [153]"PRINT#                 STOPSPC(          STOPSPC(   STOPSPC(SYS     "
378 [153]"PRINT#            STOPSPC(    STOPSPC(          STOPSPC(   STOPSPC(SYS     "
380 [153]"PRINT#            STOPSPC(    STOPSPC(          STOPSPC(   STOPSPC(SYS     "
382 [153]"STOPSPC(SPC(SPC(SPC(SPC(SPC(SPC(PRINT#   STOPSPC(SPC(SPC(    STOPSPC(SPC(SPC(SPC(SPC(SPC(   STOPSPC(SPC(SPC(   STOPSPC(SPC(SPC(SPC(SYS  "
384 [153]"                                      "
386 [153]"                                      "
388 [153]"STOPSPC(SPC(SPC(SPC(SPC(SPC(SPC(LIST   STOPSPC(   STOPSPC(SPC(SPC(CLR  STOPSPC(SPC(SPC(SPC(CLR  STOPSPC(   STOPSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
390 [153]"LIST          STOPSPC(   STOPSPC(CLR          STOPSPC(   STOPSPC(CONT        "
392 [153]"LIST          STOPSPC(   STOPSPC(CLR          STOPSPC(   CONT         "
394 [153]"LIST          STOPSPC(   STOPSPC(CLR          STOPSPC(   CONT         "
396 [153]"LIST              STOPSPC(CLR          STOPSPC(   STOPSPC(CONT        "
398 [153]"LIST              STOPSPC(CLR          STOPSPC(   STOPSPC(CONT        "
400 [153]"LIBRARY";[163]19)"LIVING RM";[163]34)"DEN"
402 [153]"KITCHEN";[163]16)"LOUNGE";[163]31)"STUDY"
404 CL[178]54272:[151]CL[170]1507,2:[151]CL[170]1526,2:[151]CL[170]1502,2
406 [151]CL[170]1788,2:[151]CL[170]1966,2:[151]CL[170]1861,2:[151]1665,209:[151]1705,218
408 TQ1[178]1665:TP2[178]1705
410 [153][199](142):[151]53265,[194](53265)[176]16
412 [141]414:[141]424:[141]580:[137]532
414 [153]"LIST";[163]10);D1$
416 [139]D[178]1[167][142]
418 [153][163]25)"ON";D2$
420 [129]T[178]1[164]1500:[130]
422 [142]
424 [139]PL[178]2[167]432
426 [153]"LIST";[163]10);D1$
428 [153][163]25)"ONSTOP      LIST"
430 [142]
432 [153]"";[163]10)"STOP      LIST"
434 [153][163]25)"ONLIST";D2$
436 [142]
438 [141]518:[139]PL[178]1[167]X[178]8:[139]PL[178]1[167]Y[178]1
440 [139]PL[178]2[167]X[178]28:[139]PL[178]2[167]Y[178]21
442 [153]"LIST";[163]X)"1.MRS LANE"
444 [153][163]X)"2.STEPSON"
446 [153][163]Y)"PERSON:3.BUTLER"
448 [153][163]X)"4.MAID"
450 [153][163]X)"5.MISTRESS"
452 Q[178]5:[141]626:[143] GUESS STEPPER
454 [141]518:[143] BLANKS PLAYER SCRN
456 GP[178]GS
458 [153]"";[163]X)"1.LIBRARY"
460 [153][163]X)"2.LIVING RM"
462 [153][163]X)"3.DEN"
464 [153][163]Y)"ROOM:  4.KITCHEN"
466 [153][163]X)"5.LOUNGE"
468 [153][163]X)"6.STUDY"
470 Q[178]6:[141]626
472 [141]518
474 GR[178]GS
476 [153]"";[163]X)"1.HAMMER"
478 [153][163]X)"2.GUN"
480 [153][163]Y)"WEAPON:3.CHAIN"
482 [153][163]X)"4.KNIFE"
484 [153][163]X)"5.POISON"
486 Q[178]5:[141]626
488 [141]518
490 GW[178]GS
492 [153]"";[163]Y)"PERSON:";P$(GP)
494 [153][163]Y)"ROOM:";R$(GR)
496 [153][163]Y)"WEAPON:";W$(GW)
498 [141]636:[129]T[178]1[164]2000:[130]
500 [139]PL[178]1[167]CO[178]7
502 [139]PL[178]2[167]CO[178]27
504 CB[178]0
506 [139]P[178]GP[167]CB[178]CB[170]1
508 [139]R[178]GR[167]CB[178]CB[170]1
510 [139]W[178]GW[167]CB[178]CB[170]1
512 [141]712:[129]T[178]1[164]1300:[130]:[141]720
514 [141]566:[142]
516 [153]"";[163]CO)" "
518 [153]""
520 [139]PL[178]2[167]B[178]21
522 [139]PL[178]1[167]B[178]1
524 [129]I[178]1[164]6
526 [153][163]B)"                  "
528 [130]
530 [142]
532 SP[178]15                           
534 [139]SP[178]23[167]SP[178]15                  
536 [153]"          "
538 [139]XV[178]1[167]542
540 [153]"STOP"
542 [153]"";[163]SP)" ^ "
544 [153][163]23)"ON "
546 SP[178]SP[170]1
548 [139][194](197)[178]1[167][153]"":[137]374
550 [139]PL[178]1[167]JP[178]56320
552 [139]PL[178]2[167]JP[178]56321
554 [139]JP[178]56320[167]J0[178]111
556 [139]JP[178]56321[167]J0[178]239
558 [139][194](JP)[179][177]J0[167]534
560 [153]"";[163]SP)"^ "
562 SP[178]SP[171]15
564 [137]174
566 [139]PL[178]2[167]572
568 RJ[178][181]([187](0)[172]37)[170]1665
570 [137]576
572 RK[178][181]([187](0)[172]37)[170]1704
574 [137]578
576 [151]RJ,209:[151]TQ1,160:TQ1[178]RJ:[137]580
578 [151]RK,218:[151]TP2,160:TP2[178]RK:[137]580
580 [151]54296,15:[151]54277,17:[151]54278,129
582 [151]54276,17:[151]54273,179:[151]54272,6
584 [129]T[178]1[164]100:[130]:[151]54276,16:[129]T[178]1[164]100:[130]:[151]54276,0:[142]
586 NU[178][181]([187](0)[172]5)[170]1
588 [129]I[178]1[164]NU
590 TR[178][181]([187](1)[172]518)[170]55740
592 [139]TR[177]56200[176]TR[179]55780[167]590
594 [139]TR[177]55936[175]TR[179]56016[167]590
596 [139][194](TR[171]CL)[178]209[167][137]606
598 [139][194](TR[171]CL)[178]218[167][137]612
600 [139][194](TR[171]CL)[178]116[176][194](TR[171]CL)[178]106[176][194](TR[171]CL)[178]100[167]590
602 [151]TR,0:[151]TR[171]CL,102
604 [141]618:[130]:[142]
606 [151]TR,0:[151]TR[171]CL,160
608 [141]618
610 [151]1665,209:TQ1[178]1665:[130]I:[142]
612 [151]TR,0:[151]TR[171]CL,160
614 [141]618
616 [151]1705,218:TP2[178]1705:[130]I:[142]
618 [151]54296,15:[151]54277,95:[151]54278,197
620 [151]54276,33:[151]54273,6:[151]S,160
622 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]250:[130]
624 [142]
626 [153]"";[163]15)"        ":GS[178]1
628 [153][163]15[170]GS);"ON^CMD";:[129]T[178]1[164]100:[130]
630 J[178]15[171]([194](JP)[175]15):GS[178]GS[170]((J[175]8)[178]8)[172](GS[179]Q)[171]((J[175]4)[178]4)[172](GS[177]1)
632 [139]([194](JP)[175]16)[178]0[167][129]T[178]1[164]300:[130]:[142]
634 [153]"  ":[137]628
636 [139]R[178]1[167]WS[178]1507
638 [139]R[178]2[167]WS[178]1526
640 [139]R[178]3[167]WS[178]1502
642 [139]R[178]4[167]WS[178]1788
644 [139]R[178]5[167]WS[178]1966
646 [139]R[178]6[167]WS[178]1861
648 [139]P[178]GP[175]R[178]GR[175]W[178]GW[167]WN[178]1
650 [139]WN[178]1[175]PO[178]WS[167]WN[178]0:[137]654
652 [142]
654 [129]T[178]1[164]1000:[130]:[139]PL[178]1[167]WR$[178]D1$
656 [139]PL[178]2[167]WR$[178]D2$
658 [153]"LOAD":[151]53281,15:[151]53280,15
660 [153][163]2)"STOPCONGRATULATIONS ";WR$;" YOU HAVE SOLVED
662 PRINTTAB(2)"THE MYSTERY."
664 PRINT:PRINT:PRINTTAB(13)"TIME TO SOLVE:"
666 PRINT:PRINTTAB(15);MID$(TI$,3,2);" MINUTES"
668 PRINT:PRINTTAB(15);RIGHT$(TI$,2);" SECONDS"
670 BE=54272:FORCL=BETOBE+24:POKECL,0:NEXT
672 POKEBE+5,85:POKEBE+6,85:POKEBE+12,85:POKEBE+13,85
674 POKEBE+24,15
676 POKEBE+4,33:POKEBE+11,17
678 FORX=1TO6:READH1,L1,H2,L2:POKEBE+1,H1:POKEBE,L1:POKEBE+8,H2:POKEBE+7,L2
680 IFH1=50THENFORT=1TO200:NEXT
682 FORT=1TO100:NEXT
684 DATA25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162,42,62,31,165,50,60
686 DATA37,162
688 NEXTX
690 BE=54272:FORCL=BETOBE+24:POKECL,0:NEXT
692 PRINT:PRINT"WOULD YOU LIKE TO TRY AGAIN-Y/N"
694 GETAG$:IFAG$=""THEN694
696 IFAG$="Y"THENRUN
698 IFAG$="N"THENEND
700 GOTO694
702 PRINT"DO YOU WANT STEP GEN. VISIBLE (Y/N)"
704 GETV$:IFV$=""THEN704
706 IFV$="Y"THENXV=1:RETURN
708 IFV$="N"THENXV=0:RETURN
710 GOTO704
712 PRINT"";TAB(Y)"PERSON:        "
714 PRINTTAB(Y)"ROOM:           "
716 PRINTTAB(Y)"WEAPON:           "
718 RETURN
720 PRINT"";TAB(CO)"";CB
722 RETURN