ZXTape! 6MasterMind*69>!$ O0!+| 00>Ƹ0$ 0x0yO& u yO#.>˸|gz |>= > (y/O7!\S>7{!H\w!\{ F0:0:0:0:653291:23613=\,0 'a$="" 'b$="" F4;4,0;a$;5,0;a$;6,0;a$ I4;17,0;b$;18,0;b$;19,0;b$ &8,4;4;1;" ";9 ,4;" ";10 ,4;" " 013 ,8;4;1;" ";14,8;" ";15,8;" " :23950]:23931{]  'AMIGA' is powerfull A B S0# # [@TT \\\w\үS\ epX![!@P!! W K SR Px |v0f<0 0`0 ~~`0 0`fff~fff~~ xflxlf```bf8ll8ff|``8lvff|lfff>|`lvff8<ff<`flxl8<lfffffff<ll8lfff>|~ 0~pppv>3C0P >831037P>>s0P >> CCs93C0PCh310P p3`Ca03`P Ca mmmmmmhEEP mmmmmm1EPmmmmmmp3` E03`P mmmmmmhE mmmmmmIIPmmmmmm1 IP mmmmmmhdz0PI>37 mmmmmmI QQ0P0C`PQ dz0PQ@37 Qaa0 0C`Pa0P a@Paa >>q203300P >P0>P >>   8 >>~ >> >?fllC CC CCCblf mmmmmmE(mmmmmm E@ mmmmmmhmmmE@ mmmmmmExfmmmmmm I mmmmmmhmmmI~ mmmmmm mmI~mmmmmm IlfQ  mmQ QAQfll a aaaA a8 >>> >> > <<<< >>ffff >> CAffff CAmmmmmmmmh EA     mmmmmmhmmmEA mmmmmm mmmmmmhmmmI> mmmmmm mmI?mmmmmm QA Q aAaa>> >> \2,8;7;"Wczytanie danych":1120`:10808:160:7: f=021:7,f+5;2;1;"*";13 ,f+5;"*":f:f=06:7+f,5;2;1;"*";7+f,26;"*":f (9 ,7;4;1;"'";7;0;"I";4;1;"'... Instrukcja";11 ,7;5;"'";7;0;"M";5;1;"'... Master Mind" 2$="i".1}L,20:80P <%="m".1}L,20:190 F 502 P80:0:0:0:0:9 : Zk$="Dowolny klawisz":z$=" ":1,10 ;4;" ";3,10 ;4;" " d2,10 ;4;0;" MASTER MIND ":5,0:#0;1,3;6;" 1987 Dariusz W$odarczak" nc$=" Program stanowi przeniesienie znanej gry Master Mind na kom- puter.Dla os&b nie znaj!cych tej gry zaleca si# przeczyta- nie instrukcji do$!czonej do gry.Wersja na Spectrum prze- znaczona jest dla jednej oso- by.Zadaniem gracza jest odgad- ni#cie kodu u$o)onego przez komputer.W podstawowej wersji gry przewidzianych jest sze(@ kolor&w /klawisze od 1 do 6/. W wersji rozszerzonej mo)na stosowa@ dodatkowy czarny ko- lor /klawisz 0/.Kod u$o)ony jest przez komputer tak,aby kolory w kodzie nie powtarza- $y sie.Dlatego przy wprowadza- niu odgadywanego kodu kolor powt&rnie wci(ni#ty jest za- blokowany." xd$=" Ocenianie wprowadzanych kod&w komputer przeprowadza za pomo c! dw&ch pionk&w / /. ozna- cza w$a(ciwy kolor na niew$a(- ciwym miejscu. oznacza w$a(ci- wy kolor na w$a(ciwym miejscu. Brak pionka oceniaj!cego ozna cza niew$a(ciwy kolor.Dla po- siadaczy telewizor&w lub moni- tor&w monochromatycznych prze- widziano w miejsce kolorowych pionk&w odpowiednie cyfry. Nie ma tu limitu czasu,jest natomiast limit ilo(ci odgad- ni#@.Posiadasz dziesi#@ pr&b odgadni#cia kodu.Po wyczerpa- niu tego limitu komputer poka- zuje u$o)ony wcze(niej kod. Cztery pierwsze wolne kolum- ny planszy przeznaczone s! dla gracza,cztery pozosta$e kompu- ter wykorzystuje do oceny." [e$=" Po ka)dorazowym wprowadzeniu przez gracza zgadywanego kodu komputer czeka na zatwierdze- nie danej kombinacji drukuj!c napis 'Tak/Nie'.Je)eli pope$- ni$e( b$!d we wpisanym przez siebie kodzie, to posiadasz szans# poprawy wciskaj!c kla- wisz 'N'.Ka)dy inny klawisz zatwierdza dan! kombinacj#. Przyjemnej zabawy." f=1384:c$(f);:f:20,8;k$:10 :0:.1}L,25:f=621:f,0;z$:f:5,0:f=385̱c$:c$(f);:f:20,8;k$:10 :0:.1}L,25:f=621:f,0;z$:f:5,0:f=1384:d$(f);:f:20,8;k$:10 :0:.1}L,25:f=621:f,0;z$:f:5,0:f=385̱d$:d$(f);:f:20,8;k$:10 :0:.1}L,25:f=621:f,0;z$:f:5,0:f=1340T:e$(f);:f:20,8;k$:10 :0:.1}L,25:f=021:f,0;z$:f 190 160:n=07:x:"a"+n,x:n:126~,255,255,231,231,255,255,126~ 170:n=07:x:"b"+n,x:n:126~,129,129,153,153,129,129,126~ 180:n=07:x:"c"+n,x:n:126~,255,195,195,195,195,255,126~: Pf=060<:f::1;6;5,7;"Telewizor/monitor:";10 ,1;7;0;"1. Kolorowy / ":f=06:10 ,17+2*f;f;1;"":f:10 ,31;"/":12 ,1;"2. Monochrom / 0 1 2 3 4 5 6 /";17,8;5;1;"Wci(nij 1 lub 2" ȕ="1".1}L,20:f=020:f:10 ,4;1;"Kolorowy":tv=1:b$="Kolor&w":f=0120x:f:230 ғ="2".1}L,20:f=020:f:12 ,4;1;"Monochrom":tv=0:b$="cyfr":f=0120x:f:230 200 f=060<:f::f=031:2;1;0,f;"*";21,31-f;"*":f:f=021:21-f,0;2;1;"*";f,31;2;"*":f k(7):2:1:70F,134:114r,0:0,26:-114r,0:0,-26:71G,135:112p,0:0,24:-112p,0:0,-24:7:0 =3,10 ;0;8;9 ;"WARIANTY GRY" t8,4;0;4;"1. Sze(@ ";b$;" /1 - 6/";10 ,4;5;"2. Siedem ";b$;" /0 - 6/" 414,5;6;"TWOJ WYBOR .....<1 2>" "19,18;"MASTER MIND" Op1=23154rZ:p2=23157uZ:p3=23160xZ:p4=23163{Z:attr=67C tp1,attr:p2,attr:p3,attr:p4,attr:p1-1,7:p2-1,7:p3-1,7:p4-1,7 /p1=p1+1:p1=23166~Zp1=23154rZ "/p2=p2+1:p2=23166~Zp2=23154rZ '/p3=p3+1:p3=23166~Zp3=23154rZ ,/p4=p4+1:p4=23166~Zp4=23154rZ 6="1"v=1:.1}L,20:a=1:8,4;7;1;1;;" ":f=0120x:f:960::340T @="2"v=2:.1}L,20:a=0:10 ,4;1;1;" ":f=0120x:f::1020:340T J 280 T 0: ^l=23362B[ h%23391_[,7:l=23375O[ r 7  a(28) x=-1182 an=22282:9 ,21;0;" ";1;" ";a;"-6 ";0;" " ‘v=2Ʀ="0"tv=1k(7)=0zap=23335'[:a(n)=0:11 ,n;1;0;"":k(7)=1:600X ̃v=2Ʀ="0"tv=0k(7)=0zap=23335'[:a(n)=0:11 ,n;0:k(7)=1:600X և="1"tv=1k(1)=0a(n)=1:zap=23335'[:11 ,n;1;1;"":k(1)=1:600X y="1"tv=0k(1)=0a(n)=1:zap=23335'[:11 ,n;1:k(1)=1:600X ="2"tv=1k(2)=0a(n)=2:zap=23335'[:11 ,n;2;1;"":k(2)=1:600X y="2"tv=0k(2)=0a(n)=2:zap=23335'[:11 ,n;2:k(2)=1:600X ="3"tv=1k(3)=0a(n)=3:zap=23335'[:11 ,n;1;3;"":k(3)=1:600X y="3"tv=0k(3)=0a(n)=3:zap=23335'[:11 ,n;3:k(3)=1:600X ="4"tv=1k(4)=0a(n)=4:zap=23335'[:11 ,n;0;4;"":k(4)=1:600X y="4"tv=0k(4)=0a(n)=4:zap=23335'[:11 ,n;4:k(4)=1:600X &="5"tv=1k(5)=0a(n)=5:zap=23335'[:11 ,n;0;5;"":k(5)=1:600X 0y="5"tv=0k(5)=0a(n)=5:zap=23335'[:11 ,n;5:k(5)=1:600X :="6"tv=1k(6)=0a(n)=6:zap=23335'[:11 ,n;0;6;"":k(6)=1:600X Dy="6"tv=0k(6)=0a(n)=6:zap=23335'[:11 ,n;6:k(6)=1:600X N 450 Xn b""610b gf=010 :f lJ9 ,22;1;"T";0;"ak/";1;"N";0;"ie" v$f=17:k(f)=0:f {="n".1}L,20:11 ,22;" ";11 ,24;" ";11 ,26;" ";11 ,28;" ":440 ,("n"Ʀ"").1}L,20:670 ="n".1}L,20:11 ,22;" ";11 ,24;" ";11 ,26;" ";11 ,28;" ":440  635{ |9 ,21;" ":11 ,22;" ";11 ,24;" ";11 ,26;" ";11 ,28;" " "tv=1(x+2),4;a(22);(1a(22)<4);"";(x+2),6;a(24);(1a(24)<4);"";(x+2),8;a(26);(1a(26)<4);"";(x+2),10 ;a(28);(1a(28)<4);"" tv=0(x+2),4;a(22);(x+2),6;a(24);(x+2),8;a(26);(x+2),10 ;a(28)  c=0 ja(22)=x(1)a(22)=x(2)a(22)=x(3)a(22)=x(4)c=c+1 ja(24)=x(1)a(24)=x(2)a(24)=x(3)a(24)=x(4)c=c+1 ja(26)=x(1)a(26)=x(2)a(26)=x(3)a(26)=x(4)c=c+1 ja(28)=x(1)a(28)=x(2)a(28)=x(3)a(28)=x(4)c=c+1 tc=4(x+2),12 ;"";(x+2),14;"";(x+2),16;"";(x+2),18;"" Zc=3(x+2),12 ;"";(x+2),14;"";(x+2),16;"" @c=2(x+2),12 ;"";(x+2),14;""  &c=1(x+2),12 ;""  c=0  %a(22)=x(1)c=c+1 *%a(24)=x(2)c=c+1 4%a(26)=x(3)c=c+1 >%a(28)=x(4)c=c+1 Htv=1c=4(x+2),12 ;"";(x+2),14;"";(x+2),16;"";(x+2),18;"";9 ,22;1;" BRAWO ":17,22;x(1);(1x(1)<4);"";17,24;x(2);(1x(2)<4);"";17,26;x(3);(1x(3)<4);"";17,28;x(4);(1x(4)<4);"":win=23296[:920 R:tv=0c=4(x+2),12 ;"";(x+2),14;"";(x+2),16;"";(x+2),18;"";9 ,22;1;" BRAWO ":17,22;x(1);17,24;x(2);17,26;x(3);17,28;x(4):win=23296[:920 \Zc=3(x+2),12 ;"";(x+2),14;"";(x+2),16;"" f@c=2(x+2),12 ;"";(x+2),14;"" p&c=1(x+2),12 ;"" zx Btv=117,22;x(1);(1x(1)<4);"";17,24;x(2);(1x(2)<4);"";17,26;x(3);(1x(3)<4);"";17,28;x(4);(1x(4)<4);"":9 ,22;1;" ????? ":920 tv=017,22;x(1);17,24;x(2);17,26;x(3);17,28;x(4):9 ,22;1;" ????? ":920 f=0200:f [65278=190.1}L,20:23391_[,0:l=23375O[:190 I"".1}L,20:23391_[,0:l=23375O[:230  930  x(4) !x(1)=(*6)+1 Cx(2)=(*6)+1:x(2)=x(1)980 Yx(3)=(*6)+1:x(3)=x(2)x(3)=x(1)990 px(4)=(*6)+1:x(4)=x(3)x(4)=x(2)x(4)=x(1)1000   x(4) x(1)=(*7) <x(2)=(*7):x(2)=x(1)1040 Rx(3)=(*7):x(3)=x(2)x(3)=x(1)1050 $hx(4)=(*7):x(4)=x(3)x(4)=x(2)x(4)=x(1)1060$ . 8 1090B B243,33!,96`,234,14,0,6,2,0,16,254,121y,211,254,62>,0,211,254,121y,211,254,12 ,43+,62>,0,211,254,6,7,188,32 ,232,62>,0,211,254,251,201,0,6,1,197,33!,0,3,17,1,0,229,205,181,3,225,17,16,0,167,237,82R,32 ,240,193,16,233,201,0,33!,208,95_,17,0,64@,1,0,24,237,176,201 G0,221,33!,0,88X,14,17,221,229,17,17,0,6,44,,221,546,0,7,221,546,17,7,221,25,205,117u,91[,16,241,221,225,221,35#,13 ,175,185,32 ,225,201,33!,502,0,43+,124|,181,32 ,251,201,0,0,0,0 L&F=23296[23423[:C:F,C:F V ` 1210 jSTART=653302 t+ERRSP=23613=\+256*23614>\ ~*ERRSP,START-256*(START/256) "ERRSP+1,(START/256) N J=STARTSTART+N-1 A:J,A J 33!,33!,3,19,58:,58:,92\,254,20,40(,4,254,12 ,32 ,15,33! 7START-256*(START/256),(START/256) Θ229,253,546,0,255,253,203,1,174,195,125},27,229,195,3,19  23637U\,209:23638V\,119w:"p"23552\,21500S p Z