ZXTape! 0Created with Ramsoft MakeTZXwhodunit 0:0:0: Q10 ,0;2;7;1;" PROGRAM LOADING PLEASE WAIT ! " ^.1}L,5:.1}L,10 :.1}L,15:.1}L,20:.1}L,25 "" 20,0:"" whodunit @ iAAAA0A @ @@ @`@ @@0@ @a@  AAA     @ `@@ @ @0@ @  @ @ A@ `  A @ @@ @@8 @ @@@ ` A @A@ @ @@0@@ @4@(`@ @@ 0@ A ` @@0 @  @4 H`@ @ @@ ?0 @@`?" H @@@  @  A A @ @0 @@ @@@ @@  b D@0@@@@  @@@ @ @ @ @@@@`@ @ `@@0  !  @  !    @   @@@0 H @@ A `@ @@@`@ ! ` @0@@0@@@  H$ @ A 0@ @  @@ ` @ @   ` @`` H$@   A @ @  @ @@ @ @   @ ??`@@D$@ @?  @@@ @   !@` @@     0@DD@@@ @@@  @@  0 @   @`@ @@@@   @DD@    @`@0 @     @@  @0@@@P  B@  @ @ @ 0 @`@     @ @@ @@ @P @  @@ @ @ 0  @@ << @@ B0 ???0 B @@@@ <<0 000 0 0 < 0 @@30 ?0 0 0 3 0 @0 ? 0??0 00 0 0 0 000000 0<0 @B0 0 ?0 0 0 B<<Awhodunit D= <sF=d 44500ԭ i 5000 n%a=6524065240+125} xn a,n a Q10 ,0;0;6;1;"WHODUNIT IS LOADING,PLEASE WAIT." 19,0:"" 19,0:"" 1:6:0: 1000 9.8L,11 :.2~L,13 :.8L,14 &.2~L,13 :.3,11 &.2~L,13 :.3,11 &.2~L,13 :.3,14 &.2~L,13 :.3,14 &&.2~L,19:.8L,17 +z=110 :z 0r.1}L,19:.1}L,17:.1}L,16:.1}L,14:.1}L,12 :.1}L,11 5.1}L,10 X  1 l=65261 'v$="..PRESS.ANY.KEY.TO.BEGIN.PLAY..." U9 ,10 ;5;0;" WELCOME TO";10 ,11 ;" WHODUNIT?"  500 z=1502:z !.05|L,(*30)+1 '0,0;0;5;v$ !.05|L,(*30)+1 v$=v$(2)+v$(1) =""1012 a=130 .01z# =,a:a  l=65261  8100 *9 ,11 ;1;"PLEASE WAIT"   4500  100d  85004! l=65303  8200 !q$="":s$="" " ani=0 )Xx=x+(="6"x<14ƫ(x+1,y)7)-(="7"x>2ƫ(x-1,y)7) .Xy=y+(="8"y<30ƫ(x,y+1)7)-(="5"y>2ƫ(x,y-1)7) /B="7"x>2ƫ(x-1,y)=41)x=x-3:1300 0C="6"x<14ƫ(x+2,y)=41)x=x+3:1400x 1$x,y;8;8;1;q$ 3wog=(*30)+1 8sw=1con=con+1 ?&wog=10 con=07000X C(con>0t,u;8;8;s$ D(con>0t,u;8;8;s$ E&con=ski*13 +47200  Gx=ty=u7400 I$x,y;8;8;1;q$ L6ani=0q$="":s$="":ani=1:1200 V*ani=1q$="":s$="":ani=0  1060$  door routines  #$x+2,y;8;8;"" ( .05,-10 )z=110 :z -$x+2,y;8;8;"" 2 .05,-10 3z=110 :z 7$x+2,y;8;8;"" w x door routine 2  $x-1,y;8;8;"" z=110 :z $x-1,y;8;8;"" z=110 :z $x-1,y;8;8;""  gosh=gosh+39' l=65345A 618,0;"KEYS... 4 DELETE PEOPLE " ߠ19,0;"1 NAME PEOPLE 5 DELETE WEAPONS";20,0;"2 NAME WEAPONS 6 DELETE TIMES ";21,0;"3 for TIMES 7 to CONTINUE " z=1100d:z w.02{# =,5:.02{# =,10 :.02{# =,15:.02{# =,20:.02{# =,25:.02{# =,30  0 5="1".4L,10 :lin=200:21004 5="2".4L,15:lin=205:21004 5="3".4L,15:lin=210:21004 ="4"v=6:2250 ="5"v=11 :2250 ="6"v=16:2250  ="7"7455 / 2020 5l=65345A 7619,0;".......KEYS A-J..Q to QUIT......" 9 0 :="q"2000 >a=-96` C"a>10 a<12110> H2000+lin R 0 SD20,0;8;8;" " W 2106: 921,4;6;8;a$(a);" ";a$(a): 721,0;6;8;b$(a);" ";b$(a): 821,4;6;8;c$(a);" OCLOCK":  w=2 9.3,10 :.3,30:.3,20 l=65345A 619,0;"KEYS...Y to DELETE.....N to SKIP" z=110 7v,w;8;8;1;1;"":0 %v,w;8;8;1;"" #="y"v,w;0;7;"" w=w+3:z  100d H19,0;6;1;" " l=65324,  2000 not=ski*3 mon=mon-1 clu=(*not)+1 8400 clu22600( 2570 ret=(*10 )+1 z=1ret:p$:z 018,6;a$(int);20,3;p$ 8300l 8400  7440 u"RUNS QUICKLY AWAY","SETS THE DOG ON YOU","SAY'S 'NO BRIBES SIR!'","PUNCHES YOU ON THE NOSE","GIVES YOU A BIG KISS" "SLAPS YOUR FACE","TAKES YOUR `1 AND WALKS OFF","GIVES YOUR `1 TO THE DOG","SWEARS AT YOU IN FRENCH","MAKES A RUDE SIGN AT YOU" -7hint=(*11 )+1:per=(*10 )+1 T3000 +(hint*10 ) 7440 int=mur2600( 9intmur20,1;"I DID'NT KILL THE BUTLER !" z=1300,:z 7440 tim=per2600( hr=per2600( etimper18,1;"THE BUTLER WAS ALIVE AT .......";20,10 ;c$(per);" OCLOCK." z=1300,:z 7440 per=wep2600( gun=per2600( Wwepper18,10 ;i$(per);20,2;" WERE NOT FOUND ON THE BODY.." z=1300,:z 7440 per=wep2600( gun=per2600( [wepper18,7;"THE ";b$(per);20,1;" WAS LOCKED IN THE SAFE...." z=1300,:z 7440 per=mur2600( klr=per2600( <murper20,1;a$(per);" WAS OUT AT THE TIME!" z=1300,:z 7440 per=tim2600( hr=per2600( `timper18,1;"THE BUTLER WAS NOT KILLED AT";20,5;c$(per);" OCLOCK." z=1300,:z 7440 per=mur2600( klr=per2600( 5murper20,1;a$(per);" DID'NT DO IT!" z=1300,:z  7440 per=rom2600( oom=per2600( =romper20,1;"HE WAS NOT KILLED IN ROOM ";per z=1300,:z  7440 per=rom2600( oom=per2600( ;romper20,1;"ROOM NO ";per;" WAS LOCKED !" z=1300,:z  7440 per=wep2600( gun=per2600( Zwepper18,4;"THE ";b$(per);20,1;" IS NOT THE MURDER WEAPON." "z=1300,:z $ 7440 'oom=per2600( (per=rom2600( *>romper20,1;"THE BUTLER NEVER USED ROOM ";per ,z=1300,:z . 7440  8600! 613 ,0;"DO YOU WISH TO NAME WHODUNIT Y/N"  0 "y"7485= =""4020 H13 ,0;6;1;" "  85004! ó10 ,16;"MURDERER";13 ,16;" WEAPON ";16,16;" TIME ";19,16;" ROOM ";8,0;" YOUR ANSWERS " ō10 ,0;" ";13 ,0;" ";16,0;" ";19,0;" " 310 ,25;1;"A to J ":44000  10 ,0;a$(a):rum=a 313 ,25;1;"A to J ":44000  13 ,0;b$(a):pew=a 316,25;1;"A to J ":44000 *16,0;c$(a);" OCLOCK":mit=a D19,25;1;"1 to 10";21,25;" : = 10"  0 a=-480 "a>10 a<14073 $19,0;"ROOM ";a:mor=a  4490 10 ,25;6;1;" ";13 ,25;" ";16,25;" ";19,25;" ";21,25;" " 8300l :85004!  sc=0:mark=0 rum=murmark=1  4300 )10 ,28;h$:.8L,0 pew=wepmark=1  4300 "*13 ,28;h$:.8L,10 'mit=timmark=1 ) 4300 ,*16,28;h$:.8L,20 1mor=rommark=1 3 4300 6*19,28;h$:.8L,30 9 500 ;z=210-1 @Oz,0;2;" ":.01z# =,20:z hsc=46800 mgo=go+1 rsc<46500d  mark=1sc=sc+1 mark=1h$="" mark=0h$="X" mark=0 & 0 0 5a=-96` :"a<1a>10 44000 b z=1130:z   4600 %x=9 :y=16:gosh=0 a$(11 ,10 ) a=111 z$:a$(a)=z$:a b$(10 ,14) a=110 z$:b$(a)=z$:a c$(10 ,6) a=110 z$:c$(a)=z$:a w"MR SNIPE","PUNK","NORA BUTTY","REV SMITH","MRS SNARG","PC PLODDS","SAILOR SAM","HILDA","LITTLE JOE","MILK MAN","YOU" Z"GUN","KNIFE","AXE","ROPE","BOW & ARROW","COSH","SPEAR","ELECTRIC SHOCK","SPADE","CHAIN" I"TWELVE","ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE" mur=(*10 )+1  klr=mur  wep=(*10 )+1  gun=wep tim=(*10 )+1 hr=tim rom=(*10 )+1  oom=rom sw=0:con=0  t=0:u=0 %6mon=ski*15+10 :sus=ski*20+10 *i$(10 ,13 ) /a=110 4z$:i$(a)=z$:a >"BULLET WOUNDS","STAB WOUNDS","AXE WOUNDS","NECK MARKS","ARROW HEADS","HEAD WOUNDS","SPEAR WOUNDS","LIVE WIRES","SPADE WOUNDS","CHAIN MARKS" C go=0 Hwins=0 ~ 17,215,227,33!,0,64@,6,27,197,6,0,126~,18,19,35#,16,249,193,16,244,201 17,0,64@,33!,215,227,6,27,197,6,0,126~,18,19,35#,16,249,193,16,244,201 17,214,200,33!,0,64@,6,27,197,6,0,126~,18,19,35#,16,249,193,16,244,201 17,0,64@,33!,214,200,6,27,197,6,0,126~,18,19,35#,16,249,193,16,244,201 17,213,173,33!,0,64@,6,27,197,6,0,126~,18,19,35#,16,249,193,16,244,201 17,0,64@,33!,213,173,6,27,197,6,0,126~,18,19,35#,16,249,193,16,244,201 rz=1100d:z ul=65261 z>0,0;1;" " ;mon00,0;1;"NO MONEY LEFT " <sus00,16;1;"NO SUSPECTS LEFT" #8,9 ;a$(mur);" " 9 ,9 ;b$(wep);" " (10 ,9 ;c$(tim);" OCLOCK " ,11 ,9 ;"IN ROOM ";rom;" " wins=6*(sus+mon) b6,0;1;" ";6,10 ;"YOU SCORE ";wins  6830 i:go=ski9 ,1;"YOU HAVE FAILED IN YOUR QUEST" ngo=ski6000p =go0,0;1;" NOW CLEARING OLD NOTES " 4490:4490  8000@  4490  1000  "wins=4000-(ski*1000) wins=wins+mon+sus*10 !go=1wins=wins+500 !go2wins=wins+300,  !go3wins=wins+100d yob=2500 -gosh wins=wins+yob N ]t=(*15)+1 bu=(*30)+1 gM(t,u)=41)ū(t,u)=23ū(t,u)=47/ū(t,u)=40(7005] l1t,u;8;8;1;"":sw=1  %=t,u;8;8;1;s$:sw=0:con=0 *t=0:u=0 /sus=sus-1 120,25;" " 420,25;sus Hsus06000p Mmon06000p  x,y;7;0;"" <.02{# =,30:.02{# =,20:.02{# =,10 wins=wins+25 int=(*10 )+1 618,0;" " /18,0;" YOU INTERVIEW ";a$(int) 620,0;" DO YOU WISH TO MAKE A `1 BRIBE " +z=114:.01z# =,10 :z  0 ="y"2500  =""7430  ="y"2500  8400 620,0;" DO YOU WISH TO SEE YOUR NOTES " +z=114:.01z# =,10 :z  0 ="y"2000 =""7445 ="y"2000 $ 8400 '620,0;" DO YOU WISH TO GUESS WHODUNIT " )+z=114:.01z# =,10 :z , 0 .="y"4000 1=""7468, 3="y"4000 = 7200  B 1055 L El=65345A G 500 Jv=6:8040h Ov=11 :8040h Tv=16:8040h Y&10 ,40(:236,0 ^l=65324, c hz=2293 mv,z;8;8;"_":z r `10 ,10 ;8;8;1;"1,2 or 3 = low";9 ,11 ;"SKILL LEVEL" .5,20  0 a=-480 !a>3a<18107 ski=a 9.1}L,10 :.1}L,20:.1}L,30 710 ,10 ;8;8;" "  818,0;"KEYS 5,6,7,8 TO CATCH SUSPECTS " T20,0;"MONEY `";mon;20,15;"SUSPECTS ";sus M21,0;1;" " g q+z=120:.01z# =,32 :z v+z=120:.01z# =,25:z {+z=120:.01z# =,18:z  k18,0;" ";20,0;" " k21,0;" ";19,0;" " !  !9.5,11 :.5,13 :.5,14:.5,23:.73333,18:.2~L,23:.2~L,18:.2~L,16:.2~L,14:.2~L,13 :.8L,11 ! !l=65261 !(9 ,12 ;1;"WHODUNIT?" ! 85004! !z=721 !Xz,0;6;1;" ":.01z# =,20:z ! ' "whodunit"10 '$"whodunit"44501խ,25000a '""whodunit""a",21*8 VUnnl32V S.ANY.KEY.TO.BEGIN.PLAY.....PRES whodunit aխa ́AUIǁ1A AA}0A A U f၆} D 9  (AAAAH!1IA "cI}><|<x~~<B> a<0zAAEA!84!$!a EA9a6 0aDTBBBD@@BB0<T~H!AQ")!B}A㡉IAȂ$Aက8A 518B|@B||@~xA$A! ~=1<| G!1fa$=%!AAAABxAр@ J"Dy~B@B@@NBBx!BA qBIB~ a=A"($A"!"<AA I!yBBBD@@BBBx!BA0 2 fa= 4aq]B"1!@!A!01B|<x~@<B><xBA%2AUqπ!!!}A %((ɀ>?ɐ8|1A!01 x&ABA?x?! B~H!!<   Q@03A B?`(A!<<`<|<x~~<B>   1@<|<x~~<B>HB@( A<ABBBD@@BB<<<<<<<<<<!!!!!!!!!!BBBD@@BB~HB  <! B|@B||@~B|@B||@~~`H  $  <" ~B@B@@NBB~B@B@@NBB<H0 O >BBBD@@BBB!!!!!!!!!! <<<<<<<<<<BBBD@@BBB<HA<$aB|<x~@<B><Q    @ B|<x~@<B><H<   ?000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((888888888888888888888888888888(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000888888888888888888888888888888000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((000(((888888888888888888888888888888@@@@@@  ?|    @@@~~~~pzzzz ~~~~ <<<< @@ ?   ~~~~zzzz~~~~<<<<??~@z~?<<())))(())(()))))((())))))(((((((((((((((((((((()(((()(((((()((((()(((((((()(((((()((((()(((((()(((((((((((((())))))))))))))))))))))))))))))))~~~~~~~~~~~~~~~|~~~~~~~~~~~~~~~~~~~~~~~~~|~~~~~~~~~~~~~~~~~~~~~~~~|~~~~~~~~?~~~~~~~~~~~~|~~~~~~~~~??~~8~~~~?~~~~~~|~~~~~~~~~~~|~~~~?~~~~~~|~~~?~~~~~~~~~|~~~~~~~~~~~~~|~~~?~~~~~~~~~|~~~~~~~~~~~~~~~~|~~~~~~~~~~~8~x< ~~<0??~??????? a`?` |BH?"<BBBF@BB~<|<<<8888888822222222222222222222222222222222$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$222211112221111122211111222111112222111121211111212111112221111122221111222111112221111122211111$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$22222222222222222222222222222222  ((((((((((((((((  (((((((((((((((( !!!!!! (((((((((((((((( !!!!!! (((((((((((((((( !!!!!! !!!!!! !!!!!! !!!!!! !!!!!! ))))))) ))))))) )))))))  !@~#@!~#!@~#@!~#խ!@~#@!խ~#>888T(DB$$Bd NN$d 88/`:Ψҩ./x/(g}<0S_ -8z<({ZW͎!\~ #5+ 6}!\ !\(.!\('~ ~_w#6#: \w#NV3w2\#6#5: \w#~B{' x!~7{:8/ O(O!(!~!)@(Z( 0^ ƥ0  !Th(80 6!09(0(ƀh!0 "( >_>@}==/O! :H\8 ?DOg z( yMM 1'4l8!\~ ^#N#Fx T# Px<%l 0 !n4ʹ38w18͔ 0"4CU45q8͙͙PYzõ  `uA$Sʉ.68I>CjsOT\i$v$:;\+bk !?!(! +>G- %/> 7;oz( n|g>7%lyx0B> <#1>z<;:H\8>8 >!? O0!+| 00>Ƹ0$ 0x0yO& 0uyO~#.>˸|gz |>= >Щ (y/O7:t\2t\͌0%(<:t\(" > 6+! 0:t\ x(  # I:t\ʊͲ(0 !:t\=(Š0%(#~w #~w #q>q(6R~ݾ 0 ! ~< yO#  y > ~( :t\=ʶnf^ V |( R8&(~ | n f:t\7 >V^ V |  nf7R8 DM~(>|(+F+N+"_\*_\*Y\+N F ~U#w#s#r#7>*Y\+"_\N F U*_\#NF "K\f| n "B\6 7>N F 67>[S\~ # +0͸, ~O*K\~(%(͸ # 0><7,  "_\͸*_\͸"_\*S\8+U#U#SS\[_\> 2v^ V >Start tape, then press any key Program: Number array: Character array: Bytes: 8i0e! _^ NW)TSR7PO_^]\[ZTS >" N > ! :\6W> e 2\N!U   y==Z>?l 2\ m  2\*Q\s#r ̀ *\W}" )DJ>8 ON >ڟ ;  $ N F C\"\C\C\"\qE"\N K\*\FK\*\NE*\8=0&G8  \G!\> Ow# ֥0 K{\   K6\!;\ˆ &o))) y=>! ON(yU :\8O>N(078#= %N #> _|Xg[\~Wv(W 8Wf(o w&A 8 > F; ; 0H(z> <~#(= AN xF 18f(^-(Z>{?\5R E>2\*\:\> !;\ˮ (E(A n(;>2\"\ F1!͛|XgZN q#ɀscroll 81DG*\*\M x!k\Fx*Q\ s#r#?8!*!"}\0͔ >M D*Q\ s#r6R!![N xF(1G͛>!_ ͛xx ! =!GOx $ ͈!͛xOx T]6=G $ ͈bk:\F(:H\w !|=Pgah)))))DM>Woz@g!@$| } o?g ![>![uFGw#0! xWT8 > 0 ^#0z *=\!s=\^!͵!8018-8:W8 7~_*[\U#pwhodunit Xq?ߪ888T(DB$$Bd NN$d 88