mastermind'3~A$(4):D$="MASTERMIND":XS=3:YS=15:Y=8:CS=8:1:6:1::"STOP THE TAPE":9400$:Y=128:1:6:D$="  By M.S.Boboli M.Sc. 1983 ":CS=8:XS=1:YS=2:9400$:20,0;"PRESS C IF YOU DON'T NEED MANUAL":1:Y=176:CS=7:D$="PRESS ANY KEY TO BEGIN":9400$ C0:.01z# =+.1}L*,-10 +30*:=""2 PD$=:D$"C"D$"c"1:1:6:1:0::2000 c7;0;"NUMBER OF GAMES IN MATCH? ";NG:CG=1:SSC=0:PSC=0:64@ EB$(4):i=14:B$(i)=((65.4+5*)):i  XP=0 WI=-2020:.02{# =,I+10 *:I:1:7:0:0: 2i=14:31977|+i,B$(i)-64@ i  4000 6:0:23658j\,8:236099\,75K:D$="GUESS THE COMBINATION ":XS=1:YS=2:Y=176:9400$: xp=xp+1 v1:7:CS=8:d$=" "+XP+" ":x=0:xs=2:ys=3:y=24*(xp-1):9410$ PY=24*(XP-1):XS=2:YS=3:CS=8:I=14 0:A$(I)=:.05|L,34":31973|+i,a$(i)-64@:X=32 +16*I:D$=A$(I):A$(I)<"A"A$(I)>"F"A$(I)"Q"I=I-(I>1):X=X-16*(X>480):D$=" ":9410$:31: A$(I)="Q"SSC=SSC-XP+9 :Y=(XP-1)*24:X=480:D$=B$+" 40":6:0:502:9410$:4000:D$=" SORRY, YOU CAN'T GUESS, PRESS Q":XS=1:YS=2:Y=176:0:6:1:9400$:0:0:62> " 9410$ #I $\0:S$=:.05|L,34":S$13 I=I-1:D$=" ":9410$:31 %&SSC=SSC+1:4000:" " ,kkk=32173} 26:0:X=128:D$=31982|+31983|:XS=2:YS=3:CS=8:Y=24*(XP-1):9410$ 7AXP=7ƾ31982|<4I=1:A$(I)="Q":32 < 31982|<410 >QCG=CG+1:CG>NGI=-20502:.02{# =,I:I:3000 :4 @0:7::7:2::D$="NOW ME!":XS=4:YS=10 :CS=8:Y=24:9400$:5000:D$=" CHOOSE YOUR WORD THEN PRESS ~S~":1:7:XS=1:YS=2:Y=176:1:9400$:0:0 A!Z(4):31984|,0 BX()=(1.5@+5*) F 1000 K 6: PVV=1:500 UB$(1)="4"I=20-10 -1:.02{# =,I+10 *:I::D$="NOW YOU!":XS=4:YS=10 :CS=8:Y=24:9400$:5 Z 600X dc<41000 n500:B$(1)="4"I=20-10 -1:.02{# =,I+10 *:I::D$="NOW YOU!":XS=4:YS=10 :CS=8:Y=24:9400$:5 x 110n 4000:PSC=PSC+1:B$(2):KKK=0:31984|,31984|+1:i=14:(6*31984|)+i+31979|,Z(5-i):i &I=14:A$(I)=H$(Z(I)):I CS=8:d$=" "+31984|+" "+a$+" ":x=0:xs=2:ys=3:y=4+24*(31984|-1):1:7:9410$  C$="YOUR" CS=8:Y=176:XS=1:YS=2:D$=" TYPE "+C$+" ANSWER ":(KKK=65535):6:0:9400$:0 bY=4+24*(31984|-1):XS=2:YS=3:CS=8:I=12 0:6:0:B$(I)=:.05|L,34":(6*31984|+31983|)+I,B$(i)-480:X=112p+16*I:D$=B$(I):B$(I)<"0"B$(I)>"4"I=I-(I>1):X=X-16*(X>128):1:D$=" ":9410$:512: 9410$:I .0:SS=49150:.05|L,34" CSS254I=I-1:D$=" ":1:9410$:512 4000:" " b$(1)="4" kkk=320524}  kkk=65535C$="PROPER":X=128:1:D$=" ":Y=4+24*(31984|-1):CS=8:XS=2:YS=3:9410$:508 &cVV=0ŰB$(1)+B$(2)=4i=14:Z(5-i)=(31969|+i):i + VV=0 0 X]c=0:i=1̾31984|:c=c+(6*I+31984|)+(6*I+31985|):i b  X(4) X(1)=X() 0I=14:X(1)=Z(I)1000 :I .51050 4X(2)=X():X(2)=X(1)1020 0I=14:X(2)=Z(I)1020  I :X(3)=X(1):X(4)=X(2):1070. 4X(3)=X():X(3)=X(1)1050 $0I=14:Z(I)=X(3)1050 )1I:X(2)=X(1):X(4)=X(3) .#I=14:Z(I)=X(I):I: H:2040:Y=0:XS=1:YS=1:CS=7:X=0 ڱD$:I=03:.02{# =,I:I:D$="^"y=176:d$=" PRESS ANY KEY TO BEGIN ":YS=2:CS=8:1:9400$:0:y=0:2014:  2020 1.1}L,-10 +20*:=""2014  9410$:Y=Y+8  2010 "HELLO!"," I'M ZX-SPECTRUM PERSONAL COMPUTER.","I WOULD LIKE TO PLAY ~MASTERMIND~,","SO IF YOU'VE GOT A PIECE OF TIME,", "WE COULD PLAY IT TOGETHER." "Choose any combination of four let-","ters from A to F and remember it.","I shall try to guess your minds, but","with your little help.","I will writte my suppositions on ","the screen. Please compare it across","your combination and type two digits"  "First one points a number of letters","on a propper positions, second one","points a number of propper letters,","but on an incorrect positions." ^"When You type 40, ","(it means I found a regular word)","You will have a chance to repay."  Q"Winner is, who would guess","the propper word after less number"," of tests." "^" :XS=2:YS=7:Y=24:CS=8:SSC>PSCD$="SPECTRUM WINS":9400$:D$=SSC+":"+PSC:Y=104h:XS=5:9400$ ^SSC2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[~2[: [G: [2 [*[ ~2[: [G: [2[: [Oͤ~:[<2[ :[<2[ :[0~@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!~xO F![F(//![c