ZXCleudo Q90Q  *****************  ****ZX CLEUDO****  *****************  A Detective Game for  1 to 5 players   Robbie Coull,1984   2236099\,30 Zi$(3,6):i$(1)="code A":i$(2)="code B":i$(3)="code C"::c(5,21):e$(100d,3):cp=0:g$=" ":a(5):b(5):r(5):d(5,3):z=15:a(z):b(z):z dff$(9 ,21,22):z=19 :x=121:m$:f$(z,x)=m$(2):x:z e4a$(14,9 ):x=114:a$(x):x f2r$(9 ,9 ):x=19 :r$(x):x ids$(6,9 ):x=16:s$(x):x:w$(6,9 ):x=16:w$(x):x nW1,5,1,14,20,5,20,14,17,19  pp=5 'o(5,3):x=15 lo(x,1)=(*3)+1:o(x,2)=(*3)+1:o(x,1)=o(x,2)506 ;o(x,1)+o(x,2)=5o(x,3)=1  ;o(x,1)+o(x,2)=3o(x,3)=3  ;o(x,1)+o(x,2)=4o(x,3)=2  x P7:p$(5,8):z=1pp:("Player ";z;"'s name:");p$(z):z: Cppp=0:z=15:p$(z)" "ppp=ppp+1 z:ppp<2511 Xnc=(18/ppp):z$(5,3,2):x$(100d,2):r=(*9 )+1:s=(*6)+10 :w=(*6)+16 bz=121 l1y=(*100d)+1:x$(y)" "620l v x$(y)=z 9z:y=0:z=1pp:p$(z)="Computer"800  p$(z)=" "730 7:1::1;p$(z);"'s CARDS................"::x=19 :x+2,0;1;r$(x,1);0;r$(x,2):x:x=16:x+2,10 ;1;x;0;s$(x);x+2,21;1;x;0;w$(x):x:v$:x=1nc $y=y+1:x$(y)=" "680  val=x$(y) val=rval=sval=w680 Aval<10 val+2,1;1;1;" " Oval>9 val<16val-7,11 ;1;1;" " Dval>15val-13 ,22;1;1;" " c(z,val)=1 x:13 ,0;"The Codes for Replies are... "::"If ROOM incorrect - ";i$(o(z,1)):"If SUSPECT incorrect- ";i$(o(z,2)):"If WEAPON incorrect- ";i$(o(z,3)) :19,0;"KEY 'C' FOR COPY :KEY WHEN READY" v$= v$=""722 v$="c"v$="C" :z:900  x=1nc *$y=y+1:x$(y)=" "810* + val=x$(y) ,val=rval=sval=w810* 4c(z,val)=1:x:z :0:6::0:"/////////////////////" 1"/@./ /....../ /..%/" 1"/../ /....../ /6../" )"/../ 5......5 ///" 3"//4/ /....../ /" $5"/  /5////5/ /" .'"/  ////" 8%"//// ////// 7.../" B-"/.../ ////// /.../" L-"/.../ ////// /.../" V3"/...3 ////// ///7/" `-"/.../ //////  /" j;"/.../ ////// //8//" t7"///// ////// /..../" ~;"/   8..../" 7"/    /..../" )"/ ///1/// /////" /"//2/ /...../ /" 1"/../ /.....1 /" 5"/../ /...../ /9////" 3"/%./ /...../ /...@/" "/////////////////////" :t=15:5300:5100:5120:t u=19999' 0,26;u ^t=15:0:0,23;"ZX-CLEUDO";19,23;"TURN ";u p$(t)=" "t t ܀1,23;p$(t);a(t),b(t);t;7*(t<3);p$(t,1):mp=(*6)+1:2,23;"DIE:";mp m=0:x=120:a(t),b(t);1;t;7*(t<3);p$(t,1);a(t),b(t);0;t;7*(t<3);p$(t,1):x /21,25;"MOVE":x=a(t):y=b(t) p$(t)="Computer"5000 ""2040 m$=:m$=""2042 &p$(t)"Computer".05|L,10 ,x,y;t;7*(t<3);p$(t,1) 21,25;" "  m$="S"m$="s"9000(# :(m$="A"m$="a")(g$(t)="."p$(t)="Computer")2510  x,y;g$(t)  Dx=x+(m$="6")-(m$="7"):y=y+(m$="8")-(m$="5"):c$=(x,y):c=(x,y) *c$="/"2030 /c$="."c$=" "2400` 1c$="%"9800H& 2c$="@"9800H& 4#c<491c>5792400` > r(t)=c$ Hg$(t)"."2400` R1z=1pp:ztƥ<.3c(z,r(t))=2 \z `Y20,1;"%";1,19;"%";20,19;"@";1,1;"@" ja(t),b(t);g$(t):g$(t)=c$: <x,y;t;7*(t<3);p$(t,1):a(t)=x:b(t)=y c$" "2030 m=m+1:m=mp3000 2030 "3,23;"#ACCUSED" 4,23;r$(r(t)) p$(t)"Computer"2555 Mb=110 :u$=r(t)+su+we:x=1cp:u$e$(x)x:2555 5500| p$(t)="Computer".1}L,0:su=d(t,2):we=d(t,3):100d:5,23;s$(su):.1}L,0:100d:6,23;w$(we):.1}L,0:2590 L21,23;"Suspect?":5600:x<1x>62556 su=x f5,23;s$(su):21,23;"Weapon? ":5600:x<1x>62560  we=x:6,23;w$(we) /r=r(t)s=su+9 w=we+152700 #%cp=cp+1:e$(cp)=r(t)+su+we %pp=28600! (ch=(*3) 2&ch=0w=we+152600( <%ch=1s=su+9 2600( Fch=2r=r(t)2600( Z{ch=08,23;(i$(o(t,3))p$(t)"Computer"):p$(t)="Computer"c(t,we+15)=1:5100 dzch=18,23;(i$(o(t,2))p$(t)"Computer"):p$(t)="Computer"c(t,su+9 )=1:5120 ntch=28,23;(i$(o(t,1))p$(t)"Computer"):p$(t)="Computer"c(t,r(t))=1:5200P xU9 ,23;"IS WRONG":z=12 0-2:.1}L,z:z:100d }<.2~L5200P ~<.2~L5100 <.2~L5120 3000 j20,23;p$(t):21,23;"HAS WON!":z=012 2:.1}L,z:z:u$: H6:0:z=121:z,23;" ":z:t:u .1}L,30 m$=f$(d(t,1),a(t),b(t))  2043 ?we=(*6)+1:c(t,we+15)=15100 d(t,3)=we: >su=(*6)+1:c(t,su+9 )=15120 Fd(t,2)=su: PIx=18:c(t,a$(r(t),x))=0d(t,1)=a$(r(t),x): Ux ZIx=18:c(t,a$(r(t),x))=2d(t,1)=a$(r(t),x): dx:"ERROR": Sx=19 :c(t,a$(t+9 ,x))=0d(t,1)=a$(t+9 ,x): x Sx=19 :c(t,a$(t+9 ,x))=2d(t,1)=a$(t+9 ,x): x:"ERROR": |5100:5120 b:5200P:3000 ""5600 v$=:v$=""5605 'v$<480ův$>5795600 .1}L,20:x=v$: To get to Rm1 "00506606666660660880" "07706606666660660777" "07706655555555555700" "00706607777770777755" "08755507000070677777" "07777755558875555000" "00007770000007788666" "06660770000006660666" "06660660000006660886" "08888660000006660006" "07770660000006688865" "07770660000006650060" "00000660000006606666" "88888888655566555550"  "08888888865556607777"  "08888700060006660000"  "00707706666606666666"  "087077088A5555555555"  "07707707777707707000" "07707707777707707555" "":To get to Rm2 "06606606666660660880" "06606606666660660777" "08608888888888888700" "00607707777770777755" "08888807000070777777" "07777887558875777000" "00007770000007777555"  "06660770000007770777" !"06660660000007770777" ""08888660000007770007" #"07770660000007788887" $"07770660000007770070" %"00000660000006608875" &"06666666668888887777" '"06666655558888707777" ("08655500070006750000" )"00607708875506755555" *"86677707777555555555" +"08A07707777707707000" ,"07707707777707707555" @"":To get to Rm3 A"06606606666660660880" B"06606606666660660887" C"08606655555555558700" D"00606606555550777755" E"08888606000070777777" F"08888655555875555000" G"00008660000007777555" H"06660660000007770777" I"06660660000007770777" J"08A55550000007770007" K"07770770000006668867" L"07770770000006650060" M"00000770000006606666" N"08888775555555555555" O"07777777777777707777" P"07777700070006660000" Q"00707708875506666666" R"08707707777755586555" S"07707707777707706000" T"07707707777707708888" ^"":To get to Rm4 _"06606606666660660666" `"06606606666660660655" a"0A506655555555555500" b"00706606555550776666" c"08755506000070776555" d"07777755558875556000" e"00007770000007778666" f"06660770000007770666" g"06660770000007770886" h"08888770000007770006" i"07770770000006668865" j"07770660000006600060" k"00000660000006606666" l"06666666666666655555" m"08888888865555507777" n"07777700060006660000" o"00707706666606666666" p"08707708888888886555" q"07707707777707706000" r"07707707777707708888" |"":To get to Rm5 }"06606606666660660666" ~"06606606666660660655" "086088888A5555555500" "00607707777770777755" "08888707000070777777" "07777887558875555000" "00007770000007777555" "06660770000007770777" "06660770000007770777" "08888770000007770007" "07770770000007778887" "07770770000006670070" "00000770000006608875" "06666666665888888875" "06666688865557707777" "08655500060007760000" "00607706666606666666" "06607708888888886555" "06607707777707706000" "07507707777707708885" "":To get to Rm6 "06606606666660660865" "066066066666606607A5" "08608888888888888700" "00607707777770777755" "08888707000070777777" "07777887558875577000" "00007770000007777555" "06660770000007770777" "06660770000007770777" "08888770000007770007" "07770660000007788887" "07770660000007770070" "00000660000007708875" "08655555558888888875" "08655555555588707777" "08655500070007750000" "00607708875506666666" "06607707775555555555" "06607707777707707000" "07507707777707707555" "":To get to Rm7 "06606606666660660666" "06606606666660660655" "08608888888865566600" "00607708888860666666" "08887707000060666555" "07777887558888666000" "00007770000008888886" "0666077000000777088A" "06660770000007770777" "08888770000007770007" "07770660000008888887" "07770660000007770070" "00000660000006608875" "06668888888888888875" "06668888867777707777" "08655500060007750000" "00607708888607775555" "06607708888887777777" "06607707777707707000" "07507707777707707555" "":To get to Rm8 "08506606666660660666" "07706606666660660655" "07708888888865566600" "00707708888860666666" "08757707000060666555" "07777887558888666000" "00007770000008888886" "06660770000007770886" "06660770000007770886" "08888660000006660006" "07770660000008888865" "07770660000007770060" "00000660000006606666" "066888888888888888A5" "06688888867777707777" "08655700060007750000" "00607708888607775555" "06607708888887777777" "06607707777707707000" "07507707777707707555" "":To get to Rm9 "08506606666660660666" "07706606666660660655" "07706655555555555500" "00706607777770777755" "08755507000070777777" "07777755558875556000" "00007770000007788886" "06660770000007770886" "06660770000007770886" "08888770000007770006" "07770660000006688865" "07770660000006650060" "00000660000006606666" "06688888865556655555" "06688888865556607777" "08657700060006660000" "00607706666606666666" "06607708888888886555" "06607707777707706000" "07507707777707708A55" "" ld"94827356","65718943","54912687","91536278","62497831","25781439","86259413","76259413","41587362" v="549678312","562784913","263517894","941875362","941875362" !4#x=122:f$(d(t),x):x !> !H"ZX CLEUDO Detective Card ":x=19 :r$(x);"____________________":x:x=16:1;x;s$(x);:"___________________":x:x=16:x;w$(x);"___________________":x !Mnx=15:z=121:z,x*3+10 ;("X"c(x,z)=1);("?"c(x,z)=2):z:x !N !R: !fUx=1cp:r$(e$(x,1));" ";s$(e$(x,2));" ";w$(e$(x,3)):x: !Nc(2-(t=2),su+9 )=0d(2-(t=2),2)=su !Oc(2-(t=2),we+15)=0d(2-(t=2),3)=we !Jc(2-(t=2),r(t))=0d(2-(t=2),1)=r(t) ! 2600( #(S21,23;"SAVE?":v$:21,23;" ":v$"save"2030 #2#"ZXCleudo"2030:"ZXCleudo" &HGx=20y=1x=1:y=19:r(t)=6:21004 &RGx=1y=19x=20:y=1:r(t)=2:21004 &zGx=20y=19x=1:y=1:r(t)=4:21004 &Gx=1y=1x=20:y=19:r(t)=9 :21004 & 21004 &c"1Hall","2Lounge","3DiningRm","4Kitchen","5Ballroom","6Consrvtry","7Billiard","8Library","9Study" &?"Scarlet","White","Prof Plum","Mustard","Rev Green","Peacock" &<"C'stick","Rope","Revolver","Lead Pipe","Dagger","Spanner" '"ZXCleudo"1:"" code Acode Bcode C1d G PbE 0506606666660660880 7706606666660660777 7706655555555555700 0706607777770777755 8755507000070677777 7777755558875555000 0007770000007788666 6660770000006660666 6660660000006660886 8888660000006660006 7770660000006688865 7770660000006650060 0000660000006606666 8888888655566555550 8888888865556607777 8888700060006660000 0707706666606666666 87077088A5555555555 7707707777707707000 7707707777707707555 6606606666660660880 6606606666660660777 8608888888888888700 0607707777770777755 8888807000070777777 7777887558875777000 0007770000007777555 6660770000007770777 6660660000007770777 8888660000007770007 7770660000007788887 7770660000007770070 0000660000006608875 6666666668888887777 6666655558888707777 8655500070006750000 0607708875506755555 6677707777555555555 8A07707777707707000 7707707777707707555 6606606666660660880 6606606666660660887 8606655555555558700 0606606555550777755 8888606000070777777 8888655555875555000 0008660000007777555 6660660000007770777 6660660000007770777 8A55550000007770007 7770770000006668867 7770770000006650060 0000770000006606666 8888775555555555555 7777777777777707777 7777700070006660000 0707708875506666666 8707707777755586555 7707707777707706000 7707707777707708888 6606606666660660666 6606606666660660655 A506655555555555500 0706606555550776666 8755506000070776555 7777755558875556000 0007770000007778666 6660770000007770666 6660770000007770886 8888770000007770006 7770770000006668865 7770660000006600060 0000660000006606666 6666666666666655555 8888888865555507777 7777700060006660000 0707706666606666666 8707708888888886555 7707707777707706000 7707707777707708888 6606606666660660666 6606606666660660655 86088888A5555555500 0607707777770777755 8888707000070777777 7777887558875555000 0007770000007777555 6660770000007770777 6660770000007770777 8888770000007770007 7770770000007778887 7770770000006670070 0000770000006608875 6666666665888888875 6666688865557707777 8655500060007760000 0607706666606666666 6607708888888886555 6607707777707706000 7507707777707708885 6606606666660660865 66066066666606607A5 8608888888888888700 0607707777770777755 8888707000070777777 7777887558875577000 0007770000007777555 6660770000007770777 6660770000007770777 8888770000007770007 7770660000007788887 7770660000007770070 0000660000007708875 8655555558888888875 8655555555588707777 8655500070007750000 0607708875506666666 6607707775555555555 6607707777707707000 7507707777707707555 6606606666660660666 6606606666660660655 8608888888865566600 0607708888860666666 8887707000060666555 7777887558888666000 0007770000008888886 666077000000777088A 6660770000007770777 8888770000007770007 7770660000008888887 7770660000007770070 0000660000006608875 6668888888888888875 6668888867777707777 8655500060007750000 0607708888607775555 6607708888887777777 6607707777707707000 7507707777707707555 8506606666660660666 7706606666660660655 7708888888865566600 0707708888860666666 8757707000060666555 7777887558888666000 0007770000008888886 6660770000007770886 6660770000007770886 8888660000006660006 7770660000008888865 7770660000007770060 0000660000006606666 66888888888888888A5 6688888867777707777 8655700060007750000 0607708888607775555 6607708888887777777 6607707777707707000 7507707777707707555 8506606666660660666 7706606666660660655 7706655555555555500 0706607777770777755 8755507000070777777 7777755558875556000 0007770000007788886 6660770000007770886 6660770000007770886 8888770000007770006 7770660000006688865 7770660000006650060 0000660000006606666 6688888865556655555 6688888865556607777 8657700060006660000 0607706666606666666 6607708888888886555 6607707777707706000 7507707777707708A55 M 94827356 65718943 54912687 91536278 62497831 25781439 86259413 76259413 41587362 549678312562784913263517894941875362941875362V 1Hall 2Lounge 3DiningRm4Kitchen 5Ballroom6Consrvtr7Billiard8Library 9Study ; Scarlet White Prof PlumMustard Rev GreenPeacock ; C'stick Rope Revolver Lead PipeDagger Spanner P- s 4 34 3 p% d 1 2 rs wyV