Atari 8-bit Source code

0REM
5OPEN#1,4,0,"K"
10DIMS$(20),R$(36),A$(3),P(5,9),Z$(36),Y$(36),M$(36),S1$(16),FN$(16),R1$(16)
20SETCOLOR2,0,0
90S$="BILLMARYPAULSUZYJOHN"
100R$="LOUNGEATRIUMLIVINGDININGTROPHYGARAGE"
105GOTO210
110FN$=M$((P-1)*O+1,P*O):RETURN
120FORA=1TOH
140M$=Y$:P=A:O=L:GOSUB110
145IFZ$<>FN$THEN170
150P=A:GOTO200
170NEXTA
180P=0
200RETURN
210?"":POSITION10,1:?""
215?"Bill,Mary,John,Suzy,&Paulare":?"houseguests.Theirhostwasmurdered"
220?"byoneofthembetween1PM9PM.":?"YourjobasinspectorClew-Soisto"
225?"findthekiller,time,&room.You":?"willbegivenafloorplanofthe"
230?"houseandasetofquestionsforthe":?"suspects,buttheguiltypersonmay"
235?"trytomisleadyoubylyingsomeof":?"thetime.Ifoneofthesuspects"
240?"claimthatthehostwasalreadydead":?"orthatthehostwasstillalive,you"
245?"havefoundtheroomwherethemurder":?"tookplace."
250?"Whenaskingquestions,besureto":?"enterdatainUPPERCASEonly."
310C=0:C1=0
320POSITION11,22:GOSUB10000
330?""
340?"|\Trophy/Garage|"
350?"|Dining|"
360?"|||"
370?"/|||"
380?"|Living|"
390?"||"
400?"|/Atrium/Lounge|"
410?"\/"
420?"Notethatonlyroomswhichhavedoors":?"(marked'/'or'\')areconsidered"
430?"adjacent.Whenasuspectsaysheor":?"shewas'with'someone,thismeans"
440?"thattheywereinthesameroom.":?"Whenasuspectsaysheorshe'saw'"
450?"someone,thatmeansthatpersonwas":?"inanadjacentroom.Itissuggested"
451?"thatyouhaveanotepadtorecord":?"theanswerstothequestionsyouask"
452?"ofyoursuspects.Ifyouwishtoend":?"thegame,enterthe'totallybaffled'":?"option.";
453GOSUB10000
460FORK=1TO5:P(K,1)=INT(6*RND(1))+1:NEXTK
490FORL=2TO9
500FORK=1TO5
510A=INT(6*RND(1))+1
520IFA=P(K,L-1)THEN510
530P(K,L)=A
540NEXTK
550NEXTL
580M=INT(5*RND(1))+1:T=INT(9*RND(1))+1:R=P(M,T)
610TRAP610:?"Inspector,whoisyoursuspect";:INPUTS1$
620Z$=S1$:Y$=S$:L=4:H=5:GOSUB120:S=P
630IFS=0THEN610
640?"Doyouwishtoquestion";S1$;"about:"
660?"1-Thesuspectswhereaboutsata":?"particulartime"
670?"2-Whattimethesuspectwasina":?"certainroom"
680?"3-Thecrimeissolved"
690TRAP640:?"Which";:INPUTA
695IFA<1ORA>3THEN640
700C=C+1
710ONAGOTO720,990,1200
720?S1$;",";
740TRAP720:?"wherewereyouat";:INPUTT1
750TRAP640:IFT1<1ORT1>9THEN720
760R1=P(S,T1)
770IFS<>MTHEN860
790IFRND(1)<0.5THEN910
800R1=INT(6*RND(3))+1
810IFRND(1)<0.5THEN840
820?"Thehostwasalreadydead."
830GOTO910
840?"Ourhostwasstillalive."
850GOTO910
860IFR1=RTHEN880
870GOTO910
880IFRND(1)<0.5THEN910
890IFT1<TTHEN?"Thehostwasstillalive."
900IFT1>TTHEN?"Thehostwasalreadydead."
910?"Iwasinthe";:M$=R$:P=R1:O=6:GOSUB110:?FN$;"room."
920FORK=1TO5
930IFK=STHEN960
940IFP(K,T1)<>R1THEN950
945M$=S$:P=K:O=4:GOSUB110:?"Iwaswith";FN$;"."
950IFABS(R1-P(K,T1))<>1THEN960
955M$=S$:P=K:O=4:GOSUB110:?"Isaw";FN$;"."
960NEXTK
970GOTO610
990?S1$;",whenwereyouin[room]";:INPUTR1$
1010Z$=R1$:Y$=R$:L=6:H=6:GOSUB120:T1=P
1020IFT1=0THEN990
1030IFS<>MTHEN1110
1040IFRND(1)<0.5THEN1110
1050T1=INT(RND(1)*6)+1
1060GOTO1090
1070IFT1=FTHEN?"Iwasn'tinthatroom."
1080GOTO610
1090?"Iwasinthatroomat";T1
1100GOTO610
1110K=0
1120FORB=1TO9
1130IFP(S,B)<>T1THEN1160
1140?"Iwasinthatroomat";B
1150K=1
1160NEXTB
1170IFK=0THEN?"Iwasn'tinthatroom."
1180GOTO610
1200C1=C1+1
1210?"Inspector,doyouthinkyouknow:"
1220?"1-Killer"
1230?"2-Room"
1240?"3-Time"
1250?"4-Totallybaffled"
1260TRAP1210:?"Which";:INPUTA
1265TRAP1210:ONAGOTO1270,1420,1350,1550
1270?"Thekilleris";:INPUTS1$
1280Z$=S1$:Y$=S$:L=4:H=5:GOSUB120:X=P
1290IFX=0THEN1210
1300M$=S$:P=M:O=4:GOSUB110:IFS1$<>FN$THEN1530
1310?"Youhavethekiller."
1320KI=1
1330IFKI+RO+TI=3THEN1500
1340GOTO610
1350TRAP1350:?"Timeofthemurder";:INPUTT1
1360IFT1<1ORT1>9THEN1350
1370IFT1<>TTHEN1530
1380?"Youhavetherighttime.":TI=1
1400IFKI+RO+TI=3THEN1500
1410GOTO610
1420?"Roomofthemurder";:INPUTR1$
1430Z$=R1$:Y$=R$:L=6:H=6:GOSUB120:X=P
1440IFX=0THEN1420
1450M$=R$:P=R:O=6:GOSUB110:IFR1$<>FN$THEN1530
1460?"Youhavetheroom.":RO=1
1480IFKI+RO+TI<3THEN610
1500?"YouarebrilliantInspectorClew-So."
1510?"Ittookyou";C;"questionsand":?C1;"confrontations."
1520GOTO1590
1530?"InspectorClew-So,youareabumbling":?"idiot.Tryagain,youfool!"
1540GOTO610
1550?"Toobad,InspectorClew-So."
1560?"Thefactsare:"
1570M$=S$:P=M:O=4:GOSUB110:?FN$;"killedthehost"
1575?"at";T;"PMinthe";:M$=R$:P=R:O=6:GOSUB110:?FN$;"(room)."
1590?"Doyouwantanewcase,Inspector";:INPUTA$
1600IFA$(1,1)="Y"THENRUN
1700?"":END
10000?"";:GET#1,X
10010?"";:RETURN	

• Download link 1

• Download link 1
• Download link 2