DETECTIVE GDGG+++ 48K ZX SPECTRUM +++ ++ GARY GATES 1983 ++ -- SET UP VARIABLES -- (:0::0:0:7 C=0:XX=18:YY=14:SA=0:A$(6,11 ):B$(6,10 ):C$(5,9 ):D$(4,8):Y$(7,14) `CA=0:CB=0:CC=0:CD=0:ZA=0:ZB=0:ZC=0:ZD=0 0V(6):U(6):O(5):P(4) --- TITLE --- #0,0;2;"";3;"*****GARY GATES PRESENTS******";4;"" (8,5;6;" " 2>6:F=13:132,88X,568-F:F 7S25,0:62>,58::35#,0:45-,43+:7 <F=13:.5,12 *F:.5,12 *F:.5,8*F:.5,8*F:.2~L,14*F:.2~L,14*F:.2~L,16*F:.2~L,20*F:F A?21,0;"PRESS ANY KEY TO CONTINUE":=""65A C EH"DO YOU WISH FOR INSTRUCTIONS (Y/N) ";Q$:Q$="N"Q$="n"300, O-- INSTRUCTIONS -- P,1;" WELCOME TO DETECTIVE " U(" ====================== ": Z"CLIVE HAS BEEN MURDERED.": \"YOU HAVE TO FIND BY THE PROCESS"'"OF ELEMINATION:-"''" 1. THE MURDERER"'" 2. THE WEAPON"'" 3. THE PLACE OF THE MURDER"'" 4. THE MOTIVE" ^:"WHEN YOU ENTER A ROOM, YOU HAVE TO MAKE A SERIES OF DECISIONS."'"THE COMPUTER WILL, AFTER EACH"'"SERIES OF DECISIONS, INDICATE"'"ONE DECISION WHICH IS INCORRECT"'"BY INVERSING THE FULL STOP.":: _|F=162:G=162:H=162:.08}# =,F+G-H:.08}# =,G+H-F:H:G:F `821,2;1;"PRESS ANY KEY TO CONTINUE" d=""100d i:::"FIRST OF ALL, YOU WILL BE"'"CONFRONTED WITH A PLAN OF"'"CLIVE'S HOUSE."''"A PAIR OF DICE CONTROLS THE"'"NUMBER OF MOVEMENTS OF THE 'MAN' "'"WHILE HIS DIRECTION IS"'"CONTROLLED BY THE FOLLOWING"'"KEYS:-": nB" 5 - LEFT"'" 6 - DOWN"'" 7 - UP"'" 8 - RIGHT" x.F=-60<60<2:.05|L,F:F 821,2;1;"PRESS ANY KEY TO CONTINUE" =""140 ,:3,8;4;" " 611 ,8;6;" " @GF=120:4:.05|L,F*2:7:F:0 J 15 -- STATEMENTS -- R=(*6)+1 S=(*6)+1 W=(*5)+1 M=(*4)+1  -- SETTING UP BOARD -- :8000@ YY,XX;8;"" 321,0;1;"PRESS R TO ROLL DICE"  ="R"Ŧ="r"524   520  ?21,0;6;""  a10 ,16;"";11 ,16;"";10 ,19;"";11 ,19;"" --- ROLLING DICE --- 2DA=(*6)+1:DB=(*6)+1 A=135:D=88X F=12 &F=1L=DA +F=2L=DB 0L=14000 2L=24010 4L=34020 8L=44030 :L=54040 <L=64050 DA=A+24 I.1}L,-10 NF XSA=SA+1:L=DA+DB ]---- MOVING MAN ---- bF=1L+1 lXX=XX+(="8")-(="5") mYY=YY+(="6")-(="7") q 3000 vYY,XX;8;"" {.2~L,30:5 ~ YY,XX;"" =""620l F  YY,XX;""  520  9550N%  --- DETECTIVE LIST --- F=16:A$(F):F F=16:B$(F):F F=15:C$(F):F F=14:D$(F):F Ї:0,0:0,175:255,0:0,-175:-255,0:111o,0:0,175 6F=16:1+F,1;F;".";B$(F):F 6F=15:8+F,1;F;".";C$(F):F 7F=14:14+F,1;F;".";D$(F):F !-- INPUTTING CHOICES -- C2,15;"YOU ARE IN ";3,15;"THE ";A$(ROOM) "SUSPECT (16) ";SUSPECT ,SUSPECT<1SUSPECT>6745 <5,15;"SUSPECT:";6,19;B$(SUSPECT) "WEAPON (15) ";WEAPON *WEAPON<0WEAPON>5755 (8,15;"WEAPON:";C$(WEAPON) "MOTIVE (14) ";MOTIVE *MOTIVE<0MOTIVE>4765 )10 ,15;"MOTIVE:";D$(MOTIVE) --- MAIN LOOP --- kX=0:CA=0:CB=0:CC=0:CD=0:ZA=0:ZB=0:ZC=0:ZD=0  A$(ROOM)A$(R)CA=1 !B$(SUSPECT)B$(S)CB=100d C$(WEAPON)C$(W)CC=7  D$(MOTIVE)D$(M)CD=200  C=CA+CB+CC+CD *C=05000 4H=3110& 9 9600% >F=115 C 0 HA RC=AH W 6 \H=H+30 fF h 0 kZA=R775 nZB=S775 zZC=W775 ZD=M775 "-- DISPLAYING RESULTS -- 'F=16:ZA=FV(F)=1 F 'F=16:ZB=FU(F)=1 F 'F=15:ZC=FO(F)=1 F 'F=14:ZD=FP(F)=1 F 9550N%: F=16:A$(F):F F=16:B$(F):F F=15:C$(F):F F=14:D$(F):F AF=16:V(F)=01+F,1;F;".";A$(F) 2V(F)=11+F,1;F;".";A$(F) F AF=16:U(F)=08+F,1;F;".";B$(F) 2U(F)=18+F,1;F;".";B$(F) F BF=15:O(F)=01+F,17;F;".";C$(F) 3O(F)=11+F,17;F;".";C$(F) F BF=14:P(F)=08+F,17;F;".";D$(F) 5P(F)=18+F,17;F;".";D$(F) F .5,60< &"DO YOU WISH TO COPY LIST (Y/N) ";H$ H$="Y"H$="y" A:"DO YOU WISH TO GIVE UP (Y/N) ";J$:J$="Y"J$="y"5300 !- COORDINATES FOR MAN - 2ROOM=1YY=6:XX=13 :500 2ROOM=2YY=4:XX=29:500 1ROOM=3YY=9 :XX=6:500 $2ROOM=4YY=9 :XX=24:500 .2ROOM=5YY=18:XX=3:500 83ROOM=6YY=15:XX=29:500  ----- ----- (YY,XX)=63100 (YY,XX)=7630v (YY,XX)=1ROOM=6 (YY,XX)=2ROOM=4 (YY,XX)=3ROOM=3 (YY,XX)=4ROOM=2 (YY,XX)=5ROOM=1 !(YY,XX)=68DROOM=5  690 8YY=14:XX=18:1,-20:630v !--- DECISION LOOP --- &ZA=ROOM:875k DZB=SUSPECT:875k bZC=WEAPON:875k ,X=(*2)+1:X=1ZA=ROOM X=2ZB=SUSPECT 875k ,X=(*2)+1:X=1ZA=ROOM X=2ZC=WEAPON 875k ,X=(*2)+1:X=1ZA=ROOM X=2ZD=MOTIVE 875k /X=(*2)+1:X=1ZB=SUSPECT X=2ZC=WEAPON 875k /X=(*2)+1:X=1ZB=SUSPECT X=2ZD=MOTIVE 875k .X=(*2)+1:X=1ZC=WEAPON X=2ZD=MOTIVE  875k 4X=(*4)+1 8X=1ZA=ROOM :X=2ZB=SUSPECT <X=3ZC=WEAPON >X=4ZD=MOTIVE C 875k R,X=(*3)+1:X=1ZA=ROOM TX=2ZB=SUSPECT WX=3ZC=WEAPON \ 875k p,X=(*3)+1:X=1ZA=ROOM qX=2ZC=WEAPON uX=3ZD=MOTIVE z 875k ,X=(*3)+1:X=1ZA=ROOM X=2ZB=SUSPECT X=3ZD=MOTIVE 875k /X=(*3)+1:X=1ZB=SUSPECT X=2ZD=MOTIVE X=3ZC=WEAPON 875k ZD=MOTIVE:875k  -PLOTING DOTS ON DICE- A,D:580D %A-4,D:A+4,D:580D *A,D:A,D+4:A,D-4:580D _A-4,D+4:A+4,D+4:A+4,D-4:A-4,D-4:580D dA-4,D+4:A+4,D+4:A+4,D-4:A-4,D-4:A,D:580D yA-4,D:A-4,D+4:A-4,D-4:A+4,D:A+4,D+4:A+4,D-4:580D ~-- DISPLAY IF WON -- :0,0;4;" " >F=13:.3,40(:.2~L,35.5:F 6,0;4;1;"***************************************** ****************** ****************** ****************** *****************************************" RF=07:.1}L,30:2:.1}L,-30:F:F:0 !13 ,1;"YOU ARE A :" )9610%:F=17:Y$(F):F -SA1513 ,12 ;Y$(1) 9SA>15SA2013 ,12 ;Y$(2) 9SA>20SA3013 ,12 ;Y$(4) 9SA>30SA40(13 ,12 ;Y$(5) 9SA>40(SA50213 ,12 ;Y$(6) -SA>50213 ,12 ;Y$(7) F415,1;"SCORE :";(150-SA)*5 K .5,(60<-SA)/2 P17,1;"IT WAS :";18,8;"SUSPECT:";B$(S);19,8;"ROOM :";A$(R);20,8;"WEAPON :";C$(W);21,8;"MOTIVE :";D$(M) U.9ffff,30 Z"PRESS (Y OR N) TO COPY ";M$ _M$="Y"M$="y" a?.5,0:4:3:6:3:0 d6:"DO YOU WISH FOR ANOTHER GAME (Y OR N)";M$ nM$="Y"M$="y"  9700% -DISPLAY IF GIVEN UP- :0,0;4;" " $F=-10 0:.1}L,F:F 6,5;2;" " @F=0-60<-3:6:1:.08}# =,F:F  0 ܪ17,1;"IT WAS :";18,8;"SUSPECT:";B$(S);19,8;"ROOM :";A$(R);20,8;"WEAPON :";C$(W);21,8;"MOTIVE :";D$(M) .9ffff,30 Q.5,0:4:3:6:3:6:3:0  200 6:"DO YOU WISH FOR ANOTHER GAME (Y OR N)";M$ M$="Y"M$="y"  9700% 6- GRAPHICS FOR PLAN - @Y7:0:0:0,0;6;"" En1,0;6;"";5;"";6;" ";4;"";6;"" Gp2,0;6;"";5;"";6;" ";4;"";6;"" J3,0;6;"";5;"";6;" ";4;"";6;"";4;"";6;"" On4,0;6;"";5;"";6;" ";4;"";6;" " TV5,0;6;"";5;"";6;" " XV6,0;6;"";5;"";6;" " ZV7,0;6;" ";2;"";6;"" \V8,0;6;" ";2;"";6;"" ^b9 ,0;6;" ";6;" ";2;"";6;"" ao10 ,0;6;"";3;"";6;" ";2;"";6;"" do11 ,0;6;"";3;"";6;" ";2;"";6;"" ho12 ,0;6;"";3;"";6;" ";2;"";6;"" jW13 ,0;6;"";3;"";6;" " l?14,0;6;" " n?15,0;6;" " rW16,0;6;" ";1;"";6;"" wW17,0;6;" ";1;"";6;"" |18,0;6;" ";1;4;"";0;6;" ";1;"";6;"" 19,0;6;" ";1;4;"";0;6;" ";1;"";6;"" 20,0;6;" ";1;9 ;"";0;6;" ";1;"";6;"" ?21,0;6;"" #1,1;"LIVINGROOM" $1,16;"DININGROOM" 7,26;"HALL" "13 ,1;"BATHROOM"  18,18;"STUDY" !20,5;"KITCHEN" -- DRAWING GRID --  85004! G=110 AX:BY:C:D:E  F=1E !BY,AX:C,D:AX=AX+8:F:G  9510&% G=110 A:B:C:D:E  F=1E B,A:C,D:B=B+8:F:G -- CHR GRAPHICS -- DF=05:G=07:A:(144+F)+G,A:G:F a10 ,16;"";11 ,16;"";10 ,19;"";11 ,19;"" /14,17;"";14,18;""  510 %-- DATA FOR GRID -- %112p,104h,15,0,7,40(,96`,15,0,9 ,8,8,23,0,6,8,120x,15,0,6,40(,184,15,0,13 ,480,199,480,0,3,40(,8,207,0,2,96`,8,103g,0,2,112p,120x,79O,0,2,128,168,79O,0,2 %&113q,104h,0,546,2,128,168,0,15,10 ,112p,120x,0,15,10 ,96`,8,0,15,13 ,568,96`,0,557,2,568,184,0,557,2,480,200,0,23,6,40(,8,0,15,26,8,8,0,32 ,3,8,120x,0,32 ,2 %:-- DATA FOR CHR -- %D0,24,90Z,60<,24,24,36$,0,255,128,128,128,128,128,128,128,255,1,1,1,1,1,1,1,128,128,128,128,128,128,128,255,1,1,1,1,1,1,1,255,255,129,129,129,129,129,129,255 %M - DATA FOR ROOMS ETC - %NA"LIVING ROOM","DINING ROOM","BATHROOM","HALL","KITCHEN","STUDY" %X@"MAID","BUTLER","MR.KINTOFF","MISS.CHASE","MRS.DYKE","MR.DYKE" %b5"REVOLVER","POISON","IRON BAR","DAGGER","MEAT HOOK" %l'"MONEY","JEALOUSY","LOVE","PROPERITY" % - DATA FOR DECISIONS - %1,100d,7,201,8,101e,207,300,,107k,3084,208,108l,301-,3073,200 % -- DATA FOR RATINGS -- %O"SUPERINTENDENT","DEPUTY","INSPECTOR","CAPTAIN","LIEUTENANT","SERGEANT","P.C" %:F=12:G=17:0,6;G;" " %10 ,6;G;" " %@.001wn,-10 :.01z# =,F*30/G:G:G:F:0 &18,0;4;"THANK YOU FOR PLAYING DETECTIVE":20,5;6;"  ";4;" 1983 ";6;"GARY GATES" c<QNrswm%dXeabloouspeceapootivxhR HNJYMNG A 2 % g !!Y