start tok64 d64-G1NERA 3 REM murder at mystery manor 9 POKE53280,1:POKE53281,0:s=54272:FORj=0TO24:POKEs+j,0:NEXT:POKEs+24,15 12 PRINT"{clear}{down*6}"TAB(7)"{light gray}{reverse on}{cm asterisk}{right*4}{sh pound}" 13 PRINTTAB(7)"{reverse on} {cm asterisk}{right*2}{sh pound} ":PRINTTAB(7)"{reverse on}{space*2}{cm asterisk}{sh pound}{space*2}{reverse off} ystery" 15 PRINTTAB(7)"{reverse on} B{space*2}B ":PRINTTAB(7)"{reverse on} B{space*2}B ":PRINT"{up*3}"TAB(21)CHR$(142); 24 GOSUB1713:PRINT"at" 27 PRINT"{down}"TAB(12)"{gray}{reverse on}{cm asterisk}{right*4}{sh pound}":PRINTTAB(12)"{reverse on} {cm asterisk}{right*2}{sh pound} " 28 PRINTTAB(12)"{reverse on}{space*2}{cm asterisk}{sh pound}{space*2}{reverse off} arple" 30 PRINTTAB(12)"{reverse on} B{space*2}B ":PRINTTAB(12)"{reverse on} B{space*2}B " 33 PRINT"{up}"TAB(17)"{dark gray}{reverse on}{cm asterisk}{right*4}{sh pound}":PRINTTAB(17)"{reverse on} {cm asterisk}{right*2}{sh pound} ":PRINTTAB(17)"{reverse on}{space*2}{cm asterisk}{sh pound}{space*2}{reverse off} anor" 36 PRINTTAB(17)"{reverse on} B{space*2}B ":PRINTTAB(17)"{reverse on} B{space*2}B " 39 GOSUB1713 42 FORj=1TO1000:NEXT 45 POKEs+5,15:POKEs+6,0:POKEs+4,129 50 j=1:FORi=1TO15:POKE53281,j:POKE53280,1-j 51 POKEs+1,INT(RND(1)*60)+5 53 j=1-j:FORp=1TO30:NEXT:NEXT 56 POKEs+4,0 100 DEFFNr(x)=INT(RND(1)*x)+1:j=RND(-ti) 103 DIMp%(50),s$(22),r$(14),c$(6),v$(3),v(3),d%(10,2) 112 FORj=1TO10:p%(j)=FNr(11)+3:NEXT 115 FORj=11TO22:p%(j)=FNr(13)+1:NEXT 118 FORj=24TO31:p%(j)=4:NEXT 121 p%(23)=FNr(8)+6 124 j=FNr(10):p%(35)=j:p%(34)=p%(j):p%(j)=0 127 j=FNr(10):IFp%(j)=0THEN127 130 p%(32)=j:p%(j)=0:j=FNr(12):p%(33)=j:p%(j+10)=0 133 FORj=1TO22:IFRND(1)<=.75THENp%(j)=-p%(j) 136 READs$(j):NEXT 139 FORj=1TO14:READr$(j):NEXT 142 FORj=0TO10:READd%(j,1),d%(j,2):IFRND(1)<.9THENd%(j,0)=-1 143 NEXT 145 FORj=0TO3:READv$(j):NEXT 148 p=2049:i=0:FORj=4000TO7000STEP1000 151 IFj=PEEK(p+2)+PEEK(p+3)*256THENda(i)=p:i=i+1:GOTO157 154 p=PEEK(p)+PEEK(p+1)*256:GOTO151 157 NEXT 172 PRINT"{home}{down*21}{black}{space*6}how many players (1-6) ?" 175 GETa$:IFa$<"1"ORa$>"6"THEN175 178 i=VAL(a$):p%(49)=i 181 FORj=1TOi:p%(35+j)=1:NEXT 190 PRINT"{clear}{down*2}{dark gray}All players except Player #1 must leave"CHR$(14) 192 PRINT"the room at this point.":PRINT"{down}{space*3}Player # 1: Press {reverse on} RETURN {reverse off}" 193 PRINT"{space*7}to begin the game!" 194 GETa$:IFa$<>CHR$(13)THEN194 196 POKE53280,12:POKE53281,15:q=1 200 PRINT"{clear}{down*2}{black}PLAYER #"q"{-*15}{dark gray}{down}" 203 IFc$(q)<>""THEN212 206 PRINT"Press any two keys to establish your" 207 PRINT"Secret Code. With this code, no other" 209 PRINT"player can steal your turn!":PRINT"{down}Enter your code now!" 210 GOSUB1700:c$(q)=a$:GOTO218 212 PRINT"{down}Enter your Secret Code!":GOSUB1700 215 IFc$(q)<>a$THENi=0:GOSUB1710:GOTO200 218 PRINT"{clear}{down*2}{black}PLAYER #"q"{-*15}{dark gray}{down}" 221 r=p%(35+q):PRINT"You are in the "r$(r)"." 224 PRINT"Do you wish to leave this room [Y/N] ?" 227 GETa$:IFa$="n"THENPRINT"No":GOTO330 230 IFa$<>"y"THEN227 233 i=1:j=r:GOSUB1730:FORj=0TO3:READv(j):NEXT 236 PRINT"Yes":PRINT"{down}Doors from this room are found to the:" 239 FORj=0TO3:IFv(j)<>0THENPRINTTAB(4);v$(j) 242 NEXT:PRINT"{down}Type {reverse on}{black} N {reverse off} , {reverse on} S {reverse off} , {reverse on} E {reverse off} ,{dark gray}or {reverse on}{black} W {reverse off}{dark gray} to move!":i=3 245 GETa$:IFa$=""THEN245 248 a=ASC(a$)OR128:i=0:IFa<197ORa>215THEN245 251 IFa=ASC(v$(i))THEN260 254 i=i+1:IFi<4THEN251 257 GOTO245 260 PRINT"Go "v$(i) 261 IF v(i)<1THENPRINT"No door this way. You can't move.":GOTO1910 263 IFv(i)<100THENr=v(i):PRINT"Moving to new room.":FORi=1TO1000:NEXT:GOTO330 266 z=v(i)-100:IFd%(z,0)=0THEN300 269 PRINT"That door is locked":GOSUB1760 270 IFa=0THENPRINT"You don't have a matching key.":PRINT"No move.":GOTO1910 272 PRINT"Your key opens the door.":GOSUB1770:PRINT"Moving to new room." 300 i=d%(z,1):IFi=rTHENi=d%(z,2) 303 r=i:GOSUB1760:IFa<>1THEN330 306 PRINT"Do you want to lock this door behind{space*4}you{space*2}[Y / N] ?" 309 GETa$:IFa$="n"THENPRINT"No":GOTO330 312 IFa$<>"y"THEN309 315 PRINT"Yes":GOSUB1770:PRINT"Door locked." 330 p%(q+35)=r:PRINT"{down}{clear}{down*5}You are in the "r$(r)"." 333 PRINT"You carry ";:i=p%(q+41):GOSUB1780:PRINT"." 336 j=0:PRINT"You see the following here:" 339 FORi=1TO31:IFp%(i)=rTHENj=j+1:PRINT"{space*3}";:GOSUB1780:PRINT"." 342 NEXT:FORi=1TO6:IFi<>qANDp%(35+i)=rTHENPRINT"{space*3}Player #"i".":j=j+1 345 NEXT:IFp%(34)=rTHENPRINT"{space*3}the body of the "s$(p%(35))".":j=j+1 348 IFj=0THENPRINT"Nothing of interest." 351 PRINT"{down}Press {reverse on}{black} RETURN{sh space}{reverse off}{dark gray} for options{.*4}" 354 GETa$:IFa$<>CHR$(13)THEN354 375 PRINT"{clear}" 376 PRINT"{down*4}{black}{space*3}{>*5} TURN{sh space}OPTIONS {<*5}{down*2}":PRINT" {dark gray}{reverse on}A{reverse off} Accuse the Murderer!" 377 PRINT"{sh space}{reverse on}D{reverse off} Drop an item.":PRINT" {reverse on}H{reverse off} Hide an item or suspect." 379 PRINT" {reverse on}N{reverse off} No action.":PRINT" {reverse on}P{reverse off} Pilfer from another player." 381 PRINT" {reverse on}S{reverse off} Search the room for hidden items.":PRINT" {reverse on}T{reverse off} Take an item." 384 PRINT"{down*2}Enter letter for action desired!{down*3}" 387 GETa$:IFa$<"a"ORa$>"t"THEN387 390 PRINT"{clear}":a=ASC(a$):ONa-64GOTO700,387,387,800 393 IFa$="h"THEN970 396 IFa$<"n"THEN387 400 ONa-77GOTO450,387,880,398,387,930,820 450 PRINT"{down*2}Press {reverse on}{black} RETURN {reverse off}{dark gray} to end your turn!" 453 GETa$:IFa$<>CHR$(13)THEN453 456 i=0:PRINT"{black}{clear}{down*4}PLAYER #"q"{=*11} End Turn":GOSUB1710 459 q=q+1:IFq>p%(49)THENq=1 462 IFp%(q+35)=0THEN459 465 GOTO200 700 PRINT"{clear}{down}{black}{space*3}***** MAKE AN ACCUSATION *****{down}{dark gray}":i=1 703 FORj=1TO10:PRINTj"{left}:"TAB(5)"The ";s$(j)".":NEXT 706 PRINT"{down*3}Enter number of Murder Victim ";:INPUTj 709 IFj<>p%(35)THENi=0 712 GOSUB1900 715 FORj=1TO10:PRINTj"{left}:"TAB(5)"The ";s$(j)".":NEXT 718 PRINT"{down*3}Enter number of Murderer ";:INPUTj 721 IFj<>p%(32)THENi=0 724 GOSUB1900 727 FORj=1TO12:PRINTj"{left}:"TAB(5)"The "s$(j+10)".":NEXT 730 PRINT"{down*3}Enter number of Murder Weapon ";:INPUTj 733 IFj<>p%(33)THENi=0 736 GOSUB1900 739 FORj=1TO14:PRINTj"{left}:"TAB(5)"The "r$(j)".":NEXT 742 PRINT"{down*3}Enter number of Murder Room ";:INPUTj 745 IFj<>ABS(p%(34))THENi=0 746 PRINT"{clear}{down*5}Summoning the Police to make an":PRINT"arrest{.*6}" 748 POKEs+14,5:POKEs+18,16:POKEs+3,1:POKEs+24,143:POKEs+6,240:POKEs+4,65:a=5389 751 FORj=1TO200:r=a+PEEK(s+27)*3.5:POKEs,rAND255:POKEs+1,INT(r/256):NEXT 754 FORj=0TO24:POKEs+j,0:NEXT:POKEs+24,15 757 FORj=1TO2500:NEXT 760 IFi=0THEN772 763 i=3:PRINT"Your solution is correct!":GOSUB1710 769 PRINT"{down*2}Player #"q"has cracked the case!":GOTO787 772 i=2:PRINT"No!{.*3}That was a false arrest!":GOSUB1710 775 GOSUB1800:p%(35+q)=0:p%(50)=p%(50)+1:PRINT"You're out of the game!" 778 IFp%(50)rTHEN829 826 PRINTj": ";:GOSUB1780:PRINT".":POKE900+j,i:j=j+1 829 NEXT:IFj=1THENPRINT"No items.":GOTO450 832 PRINT"{down}Enter number to take an item, or":PRINT"enter zero to take nothing." 835 INPUT"What item do you want";a:IFa<0ORa>=jTHEN835 838 IFa=0THENPRINT"{down}No item taken.":GOTO450 841 GOSUB1800:IFi<>0THENPRINT"You drop ";:GOSUB1780:PRINT"." 844 i=PEEK(900+a):p%(i)=100+q:p%(q+41)=i 845 PRINT"You take ";:GOSUB1780:PRINT".":GOTO450 880 PRINT"{down*2}{black}{space*3}*** PILFER FROM ANOTHER ***{dark gray}":j=0 881 PRINT"{down}These players are also in the room{.*3}" 883 FORi=1TO6:IFp%(35+i)=rANDi<>qTHENPRINT"{space*3}Player #"i".":j=j+1 886 NEXT:IFj=0THENPRINT"No other players are in the room!":GOTO450 889 PRINT"{down}Which player will you steal from ?" 890 PRINT"Enter number, or press zero." 892 INPUT"Pilfer from player #";a:IFa<0ORa>p%(49)THEN889 893 IFa=0THENPRINT"No theft.":GOTO450 895 IFa=qTHENPRINT"You can't steal from yourself!":GOTO892 898 IFp%(35+a)<>rTHENPRINT"Player #"a"is not here !":GOTO889 901 GOSUB1800:IFi<>0THENPRINT"You drop ";:GOSUB1780:PRINT"." 904 i=p%(a+41):IFi=0THENPRINT"Player #"a"carried no item!":GOTO450 907 p%(q+41)=i:p%(a+41)=0:p%(i)=100+q 908 PRINT"You take ";:GOSUB1780:PRINT".":GOTO450 930 PRINT"{down*2}{black}{space*3}*** SEARCH THE ROOM ***{dark gray}":j=0:PRINT"{down}You find the following:" 933 FORi=1TO31:IFp%(i)<>-rTHEN942 936 IFRND(1)>.5THEN942 939 j=j+1:PRINTTAB(4);:GOSUB1780:PRINT".":p%(i)=r 942 NEXT:IFp%(34)<>-rORRND(1)>.5THEN948 945 j=1:PRINT"{space*4}The body of the "s$(p%(35))".":p%(34)=r 948 IFj=0THENPRINT"{space*2}{-*6}Nothing !" 951 GOTO450 970 PRINT"{down*2}{black}{space*3}*** HIDE ITEM OR SUSPECT ***{dark gray}":j=1 971 PRINT"{down}These can be hidden:" 973 FORi=1TO31:IFp%(i)<>rTHEN979 976 PRINTj": ";:GOSUB1780:PRINT".":POKE900+j,i:j=j+1 979 NEXT:i=p%(q+41):IFi=0THEN985 982 PRINTj": ";:GOSUB1780:PRINT" (you carry it).":POKE900+j,q+41:j=j+1 985 IFp%(34)=rTHENPRINTj": the body of the "s$(p%(35))".":POKE900+j,34:j=j+1 988 IFj=1THENPRINT"Nothing here can be hidden!":GOTO450 991 PRINT"{down}Enter number of item to hide, or":PRINT"enter zero to hide nothing." 994 INPUT"What will you hide";a:IFa<0ORa>=jTHEN994 997 IFa=0THENPRINT"Nothing hidden.":GOTO450 1000 i=PEEK(900+a):IFi>34THEN1009 1003 p%(i)=-r:IFi=34THENPRINT"You hide the body.":GOTO450 1006 PRINT"You hide ";:GOSUB1780:PRINT".":GOTO450 1009 i=p%(q+41):PRINT"You hide the object you carry{.*4}":GOSUB1780:PRINT"." 1012 p%(q+41)=0:p%(i)=-r:GOTO450 1700 GETa$:IFa$=""THEN1700 1703 GETb$:IFb$=""THEN1703 1706 a$=a$+b$:RETURN 1710 j=1:GOSUB1730 1713 READw,i,j:POKEs+2,i:POKEs+3,j:READi,j:POKEs+5,i:POKEs+6,j 1716 READz:IFz<0THENRETURN 1719 POKEs+1,INT(z/256):POKEs,zAND255:READz:POKEs+4,w 1722 FORj=1TOz*100:NEXT:POKEs+4,0:GOTO1716 1730 p=da(i):IFj=1THEN1736 1733 FORi=1TOj-1:p=PEEK(p)+PEEK(p+1)*256:NEXT 1736 p=p-1:POKE66,INT(p/256):POKE65,pAND255:RETURN 1760 a=0:i=p%(41+q):IFi<23ORi>31THENRETURN 1763 IFi=23THENa=-1:RETURN 1766 i=i-17:IFi=d%(z,1)ORi=d%(z,2)THENa=1 1769 RETURN 1770 IFd%(z,0)=0THENd%(z,0)=-1:RETURN 1773 d%(z,0)=0:RETURN 1780 IFi=0THENPRINT"no item";:RETURN 1783 IFi<23THENPRINT"the "s$(i);:RETURN 1786 IFi=23THENPRINT"the Skeleton Key";:RETURN 1789 PRINT"the "r$(i-17)" Key";:RETURN 1800 i=p%(q+41):IFi=0THENRETURN 1803 r=p%(q+35):p%(i)=r:p%(q+41)=0:RETURN 1900 PRINT"{clear}{down}{black}{space*3}***** MAKE AN ACCUSATION *****{down}{dark gray}":RETURN 1910 FORi=1TO2200:NEXT:GOTO330 2000 DATA17,0,0,0,240,14435,1,12860,1,14435,7,0,4 2005 DATA12860,1,11457,1,10814,1,9634,1,9094,6,9634,8,0,8,-1 2020 DATA17,0,0,0,240,7217,1,6430,1,7217,8,0,7 2025 DATA5407,6,5728,6,4547,6,4817,24,-1 3000 DATA"Cook","Butler","Gardener","Chauffer","Duke","Duchess","Nanny" 3005 DATA"Opera Star","Ambassador","Prime Minister","Carving Knife","Rope" 3010 DATA"Box of Weed Killer","Antique Mace","Duelling Pistol","Fencing Foil" 3015 DATA"Ice Pick","Plastic Bag","Chain Saw","Hedge Trimmers","Polo Mallet" 3020 DATA"Garden Spade","Entry Foyer","Corridor","Hall","Pantry","Dining Room" 3025 DATA"Kitchen","Study","Bedroom","Bathroom","Closet","Greenhouse","Garden" 3030 DATA"Pool","Garage",2,13,2,14,3,7,3,8,3,11,7,9,8,9,8,10,11,12,12,13,13,14 3035 DATA"North","East","South","West" 4000 DATA33,0,0,88,89,1804,6,2025,3,2145,6,2703,3 4005 DATA2408,1,2551,1,2408,1,2551,1,2408,1,2551,1,2408,1,2551,1,2703,8,-1 5000 DATA5,3,0,2 5005 DATA4,1,101,100 5010 DATA104,103,102,1 5015 DATA0,6,2,0 5020 DATA6,0,1,0 5025 DATA0,0,5,4 5030 DATA102,105,0,0 5035 DATA0,107,106,103 5040 DATA106,0,0,105 5045 DATA0,0,0,107 5050 DATA0,0,104,108 5055 DATA0,108,109,0 5060 DATA109,100,0,110 5065 DATA101,110,0,0 6000 DATA65,255,0,9,0,1804,6,1804,4.4,1804,1.5,1804,6,2145,4.5,2025,1.5 6005 DATA2025,4.5,1804,1.5,1804,4.5,1804,1.5,1804,12,-1 7000 DATA33,0,0,88,89,2408,4,3215,12,3608,1.33,2408,1.33,3608,1.33 7005 DATA4050,4,4050,4,4050,4,4050,1.33,4291,1.33,3215,1.33 7010 DATA4050,6,3608,2,3215,8,-1 stop tok64 (bastext 1.0)