10 DIMP$(5),R$(6),W$(5):G=0 20 TQ1=1665:TP2=1705:PL=1:RE=0:WN=0 30 GOSUB990:GOSUB1140 40 JP=56320:CL=54272:TK=209:PL=1:PO=TQ1 50 FORM=1TOSP 60 J1=PEEK(JP) 70 F1=JIAND16 80 J1=15-(J1AND15) 90 IFJ1=4THEN140 100 IFJ1=8THEN320 110 IFJ1=1THEN500 120 IFJ1=2THEN660 130 GOTO60 140 IFPEEK(PO-1)<>160THEN60 150 IFPL=2THEN170 160 TQ1=TQ1-1:POKETQ1,209:POKETQ1+1,160:PO=TQ1:GOTO180 170 TP2=TP2-1:POKETP2,218:POKETP2+1,160:PO=TP2 180 GOSUB830 190 NEXTM 200 RT=INT(RND(0)*3)+1:IFRT=2THENGOSUB2360 210 IFPL=2THEN240 220 IFTQ1=1502ORTQ1=1507ORTQ1=1526ORTQ1=1861ORTQ1=1788ORTQ1=1966THENGOSUB1610 230 GOTO250 240 IFTP2=1502ORTP2=1507ORTP2=1526ORTP2=1861ORTP2=1788ORTP2=1966THENGOSUB1610 250 IFD=1THEN280 260 IFPL=2THENPL=1:GOTO280 270 IFPL=1THENPL=2 280 GOSUB 1540:GOTO2080 290 IFPL=1THEN40 300 PL=2:PO=TP2:TK=218:JP=56321 310 GOTO50 320 IFPEEK(PO+1)<>160THEN60 330 IFPL=2THEN350 340 TQ1=TQ1+1:POKETQ1,209:POKETQ1-1,160:PO=TQ1:GOSUB830:GOTO370 350 TP2=TP2+1:POKETP2,218:POKETP2-1,160:PO=TP2 360 GOSUB830 370 NEXTM 380 RT=INT(RND(0)*3)+1:IFRT=2THENGOSUB2360 390 IFPL=2THEN420 400 IFTQ1=1502ORTQ1=1507ORTQ1=1526ORTQ1=1861ORTQ1=1788ORTQ1=1966THENGOSUB1610 410 GOTO430 420 IFTP2=1502ORTP2=1507ORTP2=1526ORTP2=1861ORTP2=1788ORTP2=1966THENGOSUB1610 430 IFD=1THEN280 440 IFPL=2THENPL=1:GOTO280 450 IFPL=1THENPL=2 460 GOSUB 1540:GOTO2080 470 IFPL=1THEN40 480 PL=2:PO=TP2:TK=218:JP=56321 490 GOTO50 500 IFPEEK(PO-40)<>160 THEN60 510 IFPL=2THEN530 520 TQ1=TQ1-40:POKETQ1,209:POKETQ1+40,160:PO=TQ1:GOSUB830:GOTO370 530 TP2=TP2-40:POKETP2,218:POKETP2+40,160:PO=TP2 540 GOSUB830 550 NEXTM 560 RT=INT(RND(0)*3)+1:IFRT=2THENGOSUB2360 570 IFTQ1=1502ORTQ1=1507ORTQ1=1526ORTQ1=1861ORTQ1=1788ORTQ1=1966THENGOSUB1610 580 IFTP2=1502ORTP2=1507ORTP2=1526ORTP2=1861ORTP2=1788ORTP2=1966THENGOSUB1610 590 IFD=1THEN620 600 IFPL=2THENPL=1:GOTO620 610 IFPL=1THENPL=2 620 GOSUB1540:GOTO2080 630 IFPL=1THEN30 640 P=2:PO=TP2:TK=208:JP=56321 650 GOTO50 660 IFPEEK(PO+40)<>160THEN60 670 IFPL=2THEN690 680 TQ1=TQ1+40:POKETQ1,209:POKETQ1-40,160:PO=TQ1:GOSUB830:GOTO370 690 TP2=TP2+40:POKETP2,218:POKETP2-40,160:PO=TP1 700 GOSUB830 710 NEXTM 720 RT=INT(RND(0)*3)+1:IFRT=2THENGOSUB2360 730 IFTQ1=1502ORTQ1=1507ORTQ1=1526ORTQ1=1861ORTQ1=1788ORTQ1=1966THENGOSUB1610 740 IFTP2=1502ORTP2=1507ORTP2=1526ORTP2=1861ORTP2=1788ORTP2=1966THENGOSUB1610 750 IFD=1THEN780 760 IFPL=2THENPL=1:GOTO780 770 IFPL=1THENPL=2 780 GOSUB1540:GOTO2080 790 IFPL=1THEN30 800 PL=2:PO=TP2:TK=94:JP=56321 810 GOTO50 820 S=54272:FORE=STOS+28:POKEE,0:NEXT 830 POKE54296,12:POKE54277,85:POKE54278,197 840 POKE54276,33:POKE54273,1:POKE54272,250 850 FORT=1TO100:NEXT:POKE54276,128:FORT=1TO10:NEXT 860 RETURN 870 FORP=1TO5:READP$(P):NEXT 880 FORR=1TO6:READR$(R):NEXT 890 FORW=1TO5:READW$(W):NEXT 900 DATA MRS.LANE,STEPSON,BUTLER,MAID,MISTRESS 910 DATALIBRARY,LIVING RM,DEN,KITCHEN,LOUNGE,STUDY 920 DATAHAMMER,GUN,CHAIN,KNIFE,POISON 930 P=INT(RND(0)*5)+1 940 R=INT(RND(0)*6)+1 950 W=INT(RND(0)*5)+1 960 FORT=1TO100:NEXT 970 IFRE=1THENRESTORE:FORI=1TO16:READDD$:NEXT:GOTO1140 980 RETURN 990 PRINT"[147]";CHR$(14):POKE53280,1:POKE53281,1 1000 PRINTTAB(9)"[144][205]YSTERY OF [204]ANE [205]ANOR" 1010 PRINTTAB(12)"[194]Y [202]IM [211]ANDERS" 1020 FORT=1TO1300:NEXT:GOSUB870 1030 PRINT"[147]":POKE53281,7:POKE53280,7 1040 PRINTCHR$(142) 1050 PRINT"[144]HOW MANY WILL WORK ON THIS CASE 1 OR 2" 1060 GETD:IFD<1ORD>2THEN1060 1070 PRINT"PLEASE ENTER NAMES(6 LETTERS MAX) THEN PUSH RETURN[146]" 1080 INPUT"DETECTIVE #1";D1$:IFD1$=""THEN1080 1090 IFD=2THEN1120 1100 GOSUB2940 1110 IFD=1THEN1140 1120 INPUT"DETECTIVE #2";D2$:IFD2$=""THEN1120 1130 GOSUB2940 1140 POKE53265,PEEK(53265)AND239:PRINT"[147]":POKE53281,0:POKE53280,8 1150 FORI=1024TO1063:POKEI,99:NEXT 1160 FORI=1063TO1423STEP40:POKEI,106:NEXT 1170 FORI=1024TO1384STEP40:POKEI,116:NEXT 1180 FORI=1384TO1423:POKEI,100:NEXT 1190 FORI=1043TO1323STEP40:POKEI,106:NEXT 1200 FORI=1044TO1324STEP40:POKEI,116:NEXT 1210 PRINTTAB(12)"[158]PUSH" 1220 PRINTTAB(8)"J[146]STK BUTTON" 1230 PRINTTAB(11)"TO STOP" 1240 PRINTTAB(10)"STEP-GEN." 1250 PRINT"";TAB(16)"[155]12345678" 1260 FORI=1425TO1462:POKEI,100:NEXT:FORI=1985TO2022:POKEI,99:NEXT 1270 FORI=1503TO1983STEP40:POKEI,116:NEXT:FORI=1464TO1944STEP40:POKEI,106:NEXT 1280 TI$="000000" 1290 PRINT"[152]  [144][166] [144][166] [144][166][158] " 1300 PRINT"[152]  [144][166] [144][166] [144][166][158] " 1310 PRINT"[152] [144][166] [144][166] [144][166] [144][166][158] " 1320 PRINT"[152] [144][166] [144][166] [144][166] [144][166][158] " 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] " 1340 PRINT" " 1350 PRINT" " 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]" 1370 PRINT"[155] [144][166] [144][166][156] [144][166] [144][166][154] " 1380 PRINT"[155] [144][166] [144][166][156] [144][166] [154] " 1390 PRINT"[155] [144][166] [144][166][156] [144][166] [154] " 1400 PRINT"[155]  [144][166][156] [144][166] [144][166][154] " 1410 PRINT"[155]  [144][166][156] [144][166] [144][166][154] " 1420 PRINT"LIBRARY";TAB(19)"LIVING RM";TAB(34)"DEN" 1430 PRINT"KITCHEN";TAB(16)"LOUNGE";TAB(31)"STUDY" 1440 CL=54272:POKECL+1507,2:POKECL+1526,2:POKECL+1502,2 1450 POKECL+1788,2:POKECL+1966,2:POKECL+1861,2:POKE1665,209:POKE1705,218 1460 TQ1=1665:TP2=1705 1470 PRINTCHR$(142):POKE53265,PEEK(53265)OR16 1480 GOSUB1490:GOSUB1540:GOSUB2330:GOTO2080 1490 PRINT"[155]";TAB(10);D1$ 1500 IFD=1THENRETURN 1510 PRINTTAB(25)"[145]";D2$ 1520 FORT=1TO1500:NEXT 1530 RETURN 1540 IFPL=2THEN1580 1550 PRINT"[155]";TAB(10);D1$ 1560 PRINTTAB(25)"[145][144] [155]" 1570 RETURN 1580 PRINT"";TAB(10)"[144] [155]" 1590 PRINTTAB(25)"[145][155]";D2$ 1600 RETURN 1610 GOSUB2010:IFPL=1THENX=8:IFPL=1THENY=1 1620 IFPL=2THENX=28:IFPL=2THENY=21 1630 PRINT"[155]";TAB(X)"1.MRS LANE" 1640 PRINTTAB(X)"2.STEPSON" 1650 PRINTTAB(Y)"PERSON:3.BUTLER" 1660 PRINTTAB(X)"4.MAID" 1670 PRINTTAB(X)"5.MISTRESS" 1680 Q=5:GOSUB2560:REM GUESS STEPPER 1690 GOSUB2010:REM BLANKS PLAYER SCRN 1700 GP=GS 1710 PRINT"";TAB(X)"1.LIBRARY" 1720 PRINTTAB(X)"2.LIVING RM" 1730 PRINTTAB(X)"3.DEN" 1740 PRINTTAB(Y)"ROOM: 4.KITCHEN" 1750 PRINTTAB(X)"5.LOUNGE" 1760 PRINTTAB(X)"6.STUDY" 1770 Q=6:GOSUB2560 1780 GOSUB2010 1790 GR=GS 1800 PRINT"";TAB(X)"1.HAMMER" 1810 PRINTTAB(X)"2.GUN" 1820 PRINTTAB(Y)"WEAPON:3.CHAIN" 1830 PRINTTAB(X)"4.KNIFE" 1840 PRINTTAB(X)"5.POISON" 1850 Q=5:GOSUB2560 1860 GOSUB2010 1870 GW=GS 1880 PRINT"";TAB(Y)"PERSON:";P$(GP) 1890 PRINTTAB(Y)"ROOM:";R$(GR) 1900 PRINTTAB(Y)"WEAPON:";W$(GW) 1910 GOSUB2610:FORT=1TO2000:NEXT 1920 IFPL=1THENCO=7 1930 IFPL=2THENCO=27 1940 CB=0 1950 IFP=GPTHENCB=CB+1 1960 IFR=GRTHENCB=CB+1 1970 IFW=GWTHENCB=CB+1 1980 GOSUB2990:FORT=1TO1300:NEXT:GOSUB3030 1990 GOSUB2260:RETURN 2000 PRINT"";TAB(CO)" " 2010 PRINT"" 2020 IFPL=2THENB=21 2030 IFPL=1THENB=1 2040 FORI=1TO6 2050 PRINTTAB(B)" " 2060 NEXT 2070 RETURN 2080 SP=15 2090 IFSP=23THENSP=15 2100 PRINT" " 2110 IFXV=1THEN2130 2120 PRINT"[144]" 2130 PRINT"";TAB(SP)" ^ " 2140 PRINTTAB(23)"[145] " 2150 SP=SP+1 2160 IFPEEK(197)=1THENPRINT"":GOTO1290 2170 IFPL=1THENJP=56320 2180 IFPL=2THENJP=56321 2190 IFJP=56320THENJ0=111 2200 IFJP=56321THENJ0=239 2210 IFPEEK(JP)<>J0THEN2090 2220 IFSP=23THEN2170 2230 PRINT"";TAB(SP)"^ " 2240 SP=SP-15 2250 GOTO290 2260 IFPL=2THEN2290 2270 RJ=INT(RND(0)*37)+1665 2280 GOTO2310 2290 RK=INT(RND(0)*37)+1704 2300 GOTO2320 2310 POKERJ,209:POKETQ1,160:TQ1=RJ:GOTO2330 2320 POKERK,218:POKETP2,160:TP2=RK:GOTO2330 2330 POKE54296,15:POKE54277,17:POKE54278,129 2340 POKE54276,17:POKE54273,179:POKE54272,6 2350 FORT=1TO100:NEXT:POKE54276,16:FORT=1TO100:NEXT:POKE54276,0:RETURN 2360 NU=INT(RND(0)*5)+1 2370 FORI=1TONU 2380 TR=INT(RND(1)*518)+55740 2390 IFTR>56200ORTR<55780THEN2380 2400 IFTR>55936ANDTR<56016THEN2380 2410 IFPEEK(TR-CL)=209THENGOTO2460 2420 IFPEEK(TR-CL)=218THENGOTO2490 2430 IFPEEK(TR-CL)=116ORPEEK(TR-CL)=106ORPEEK(TR-CL)=100THEN2380 2440 POKETR,0:POKETR-CL,102 2450 GOSUB2520:NEXT:RETURN 2460 POKETR,0:POKETR-CL,160 2470 GOSUB2520 2480 POKE1665,209:TQ1=1665:NEXTI:RETURN 2490 POKETR,0:POKETR-CL,160 2500 GOSUB2520 2510 POKE1705,218:TP2=1705:NEXTI:RETURN 2520 POKE54296,15:POKE54277,95:POKE54278,197 2530 POKE54276,33:POKE54273,6:POKES,160 2540 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO250:NEXT 2550 RETURN 2560 PRINT"";TAB(15)" ":GS=1 2570 PRINTTAB(15+GS);"[145]^[157]";:FORT=1TO100:NEXT 2580 J=15-(PEEK(JP)AND15):GS=GS+((JAND8)=8)*(GS1) 2590 IF(PEEK(JP)AND16)=0THENFORT=1TO300:NEXT:RETURN 2600 PRINT" ":GOTO2570 2610 IFR=1THENWS=1507 2620 IFR=2THENWS=1526 2630 IFR=3THENWS=1502 2640 IFR=4THENWS=1788 2650 IFR=5THENWS=1966 2660 IFR=6THENWS=1861 2670 IFP=GPANDR=GRANDW=GWTHENWN=1 2680 IFWN=1ANDPO=WSTHENWN=0:GOTO2700 2690 RETURN 2700 FORT=1TO1000:NEXT:IFPL=1THENWR$=D1$ 2710 IFPL=2THENWR$=D2$ 2720 PRINT"[147]":POKE53281,15:POKE53280,15 2730 PRINTTAB(2)"[144]CONGRADULATIONS ";WR$;" YOU HAVE SOLVED 2740 [153][163]2)"THE MYSTERY." 2750 [153]:[153]:[153][163]13)"TIME TO SOLVE:" 2760 [153]:[153][163]15);[202](TI$,3,2);" MINUTES" 2770 [153]:[153][163]15);[201](TI$,2);" SECONDS" 2780 BE[178]54272:[129]CL[178]BE[164]BE[170]24:[151]CL,0:[130] 2790 [151]BE[170]5,85:[151]BE[170]6,85:[151]BE[170]12,85:[151]BE[170]13,85 2800 [151]BE[170]24,15 2810 [151]BE[170]4,33:[151]BE[170]11,17 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 2830 [139]H1[178]50[167][129]T[178]1[164]200:[130] 2840 [129]T[178]1[164]100:[130] 2850 [131]25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162,42,62,31,165,50,60 2860 [131]37,162 2870 [130]X 2880 BE[178]54272:[129]CL[178]BE[164]BE[170]24:[151]CL,0:[130] 2890 [153]:[153]"WOULD YOU LIKE TO TRY AGAIN-Y/N" 2900 [161]AG$:[139]AG$[178]""[167]2900 2910 [139]AG$[178]"Y"[167][138] 2920 [139]AG$[178]"N"[167][128] 2930 [137]2900 2940 [153]"DO YOU WANT STEP GEN. VISIBLE (Y/N)" 2950 [161]V$:[139]V$[178]""[167]2950 2960 [139]V$[178]"Y"[167]XV[178]1:[142] 2970 [139]V$[178]"N"[167]XV[178]0:[142] 2980 [137]2950 2990 [153]"";[163]Y)"PERSON: " 3000 [153][163]Y)"ROOM: " 3010 [153][163]Y)"WEAPON: " 3020 [142] 3030 [153]"";[163]CO)"";CB 3040 [142]