HRY .4 P w*:g ~ܯ2^ !+|(/8N! F͘ >2/ >^ >2>ͥ  "CRT:M1"<p, ,"HRY MZ 800 .4",,@,8::::"****************************************"/ :" TENTO PROGRAM OBSAHUJE 4 HRY"- :" ZADEJTE HRU PODLE CISLA !"2:"".:" 1 - G E O E V R O P A"':" 2 - L O G I K 3"/:" 3 - CLOVECE NEZLOB SE !"&:" 4 - P O K L A D"A$:A$"" A$"1" dA$"2" PA$"3" A$"4" :d"CRT:M1" i jBO: mDn,:,P:,:@,p$X(l),Y(l),M$(l)9:Al:Q,W,E$:X(A)Q:Y(A)W:M$(A)E$:ASE8[@]"*** GEOGRAFIE EVROPY MVSOFT - ' ***"v,8:[@]"SERIE: ";SE:p,8:[@]"OTAZKA: ";OT:p,8:[@]"BODY: ";BO;X1(@),Y1(@),J$(@),R(@),U$( )"&K1 :"MAP":GK1 (8,8:[@]K1 0  : 4D@:X,:"JAK SE ":X, :"JMENUJE MESTO":X,@:"VYZNACENE NA":X,`:"MAPE ?":X,:""$N@:X1(CIS),Y1(CIS):"?";SJ@:X,J:" ":J7XJ@:X,J:J;")";J$(J):J5bX,:" ":H,H5g`,:"ZMACKNI 1-6": PO$:PO$"" giPO(PO$)lPOCIS BOBO:,8:[@]BO: , :I :p,:[@]"SPRAVNE":z:p,:" ":z:I{vPOCIS  , :I :x,:[@]"CHYBA":z:x,:" ":z:IK14I:X,I:" ":I K2 :GK2 *"MAP"D4`,8:[@]:8,8:[@]K2;" " >  H 4R@:X,:"KTERE Z MEST":X, :"VYZNACENYCH":X,@:"NA MAPE SE":X,`:"JMENUJE"d\X,:" ":X,:J$(CIS);" ?":X,:"">fJ@:A$(J):X1(J),Y1(J):(A$,):J9pI@:X,I :I;") ";I:I5zX,:" ":H,H4`,:"ZMACKNI 1-6":PO$:PO$"" PO(PO$)POCIS BOBO:,8:BO: , :I :p, :"SPRAVNE":z:p, :" ":z:IsPOCIS  , :I :x, :"CHYBA":z:x, :" ":z:IK2H:: BOVVBO:JV$JM$:V$(V)[]p,,"DOSAVADNI REKORD DRZI:",,,:[]C,,JV$,,,:[]z,,V$,,,:[],,"BODU.",,,R[]p,*," N - K - ",,,OP$:OP$"" OP$"N" []p,,"",,,:[]p,*,"",,,O: j$OP$"K": . K@CT(()p)LKCTR(L) L1X1(K)X(CT):Y1(K)Y(CT):J$(K)M$(CT):R(K)CT K 4T%9CIS(()@);TT<T \>IGHU$(I)(CIS) 9RI\U$(G)(CIS)fD ,`:,:,@:@,@8 [,],,,y,8 [,],,,>,8 [,],,,.,; :::[]" * G E O G R A F I E E V R O P Y *"6 :[]" C MARTIN VLK (C)1987"8 :[]" ' - MVSOFT F 566 PRAHA 4"4 []" SHARP -800 (BASIC MZ-1Z016)"T [], ,, ,,*,,*,,  [,]`,p,:[,],p,:[,], ,:[,]`, ,& t @:z, ,"VASE JMENO",,,: ,,"......",,,:JM$""G W@:W,,"",,, L$:L$""  JM$JM$L$> []W,,"",,,5 W,,L$,,, W- =,,"",,," LL$:(LL$)P::€  "MAP":,8[,],,T,4,[],, , ,0,,<,,L,,,,,,,",>,*,N,0,h,3,l,,,,*, ,/,',*[]',*,1,+,9,,7,,*,,",,,,,,,,,|,%,|,3,l,6,t,B,t,J,f,8,N[]8,N,;,:,1,H,4,N,*,Z,(,H,",D,,h,,x,,,,,, ,,,|,,d,,f,z[]f,z,>,T,2,\,F,x,N,x,N,,\,,V, ,N,,F,,@,,B,,,j,,b,,Z,|,d,\,\[]\,\,L,d,D,r,,, ,,H,,0,,,|,`,L, ,J,,Z,,F,,&,$,(, ,,",,$,T[]$,T,0,L,.,,:,,D, ,X,,^,,n,t,p,T,x,X,z,0,,,,,x, ,r,,j,,z,@[]z,@,n,8,R,,\,(,P,d,8,x,<,d,4,,, ,@,,0,,,\, ,,0, ,,,@,,H,,[],,%,h,$,H,2,p,H,,T,,T,4,,4,,:[] , ,:[]H,,[]H,@, ,0, ,p,$,,,(,@,0,H,@:[]P,`,[],,@,,T,,D,,4,H,<,(,0, ,,(, ,l,,:[] ,,[]0,x,p,x, ,\,,@,H,H,0,x:[]@,p,:[]$,,8,,4,,$,:[],,, [],,,,,,,:[],,:[],z, ,x,,|, ,,,,,z:[],,(# 3,2,"R")# 6,8,"L"*# 13,6,"S"+# 10,15,"R",# 9,18,"T"-# 6,14,"M".# 16,5,"L"/# 17,13,"B"0# 11,10,"P"1# 14,14,"B"2# 11,7,"K"3# 8,9,"A"4# 16,8,"M"5# 10,8,"H"6# 2,14,"V"7# 20,21,"K"8# 12,11,"B"9# 5,7,"L":# 11,5,"O";# 18,14,"V"<# 10,11,"M"=# 7,10,"B"># 21,16,"A"?# 13,9,"W"@# 10,18,"P"A# 17,15,"P"B# 19,12,"O"C# 0,15,"L"D# 4,11,"N"E# 8,12,"G"F# 12,13,"Z"G# 13,16,"B"H# 11,6,"G"I# 6,11,"P"J# 4,6,"G"K# 5,15,"B"L# 17,19,"E"M# 10,10,"F"N# 12,9,"L"O# 9,13,"G"P# 15,4,"H"Q# 20,8,"M"R# 11,13,"V"S# 2,12,"L C"T# 9,12,"B"U# 19,15,"I"V# 11,11,"W"W# 9,10,"B"X# 3,15,"M"Y# 9,8,"B"Z# 10,13,"M"[# 4,12,"B"\# 11,16,"N"]# 16,18,"A"^# 14,16,"T"_# 18,10,"K"`# 8,16,"S"a# 3,7,"D"b# 15,3,"O"c# 5,5,"A"P× PROGRAM 'LOGIC'ZÖ Y(@)dÛnÖ H(0,@)xÖ P(0,@)7Ï (`): "MYSLIM SI PETICI CISEL OD 1 DO 8."Ö X(@)Ö M(0)Ö N(0)ÏÏ "SNAZ SE JI ZJISTIT"Ï$Ï "PO KAZDEM KROKU TI OZNAMIM:"ÏBÏ" A)POCET UHODNUTYCH CISEL NA SPRAVNE POZICI"CÏ" B)POCET UHODNUTYCH CISEL NA JINYCH POZICICH"Ï&Ï "CELKEM MUZES HADAT DESETKRAT."ď:::::ď" MAS PRECTENO ?";"ĭ A$: A$"" , : 6C"KK: Kj` Kj`:"DELEJ NECO":  :  ,Ā "6ě: (`)(@ď "UZ SI MYSLIM CISLA, TAK HADEJ. "Jď!Tď "CISLA ZADAVEJ PO JEDNOM."^ď:::: hď:::%rė 1. CYK - VYTVORENI Y(S)|č S  (Ğ Y(S)(())Ď Sė 1. CYKL - KONEC L$ė HLAVNI CYKL - RADKOVANIč R  ď R;". POKUS ? "ē R $ď "POZOR - MOC CASU TI NEZBYVA"ē R ď "POSLEDNI MOZNOST"#ė 2. CYKL - ZADANI H(R,K)č K  ,ŭ B$: B$""  : H(R,K)(B$)ŏ " ";B$;ō B &œ H(R,K)B 0Ŏ B-:ŏ "SNAD BYS NECHTEL BALAMUTIT POCITAC ?"Dŏ,Nŏ "SMIS PRECE ZADAT POUZE CELA KLADNA "Xŏ(bŏ "CISLA OD 1 DO 8 ! TAK ZNOVU. "lŏ vŀ Ŏ Kŏ%ŗ PRESUNY H(R,K) DO P(L,K)ō K  P(L,K)H(R,K)Ŏ Kŗ 2. CYKL - KONEC!ŗ PRESUNY Y(S) DO X(S)ō S  X(S)Y(S)Ŏ S'ŗ 3. CYKL - TESTOVANI (POZICE) Kƍ S   Ɠ H(R,K)X(S) *ƞ M(R)M(R) H(R,K):X(S)*KK4Ǝ S>Ɨ 3. CYKL - KONEC'HƗ 4. CYKL - TESTOVANI (OSTATNI)Rƍ S  \ƍ K  fƓ H(R,K)X(S) pN(R)N(R)zH(R,K) :X(S)0Ǝ KƎ SƗ 4. CYKL - KONECƛƓ M(R)N(R) Ə "TOS TOHO MOC NEUHOD'"ƏLRN(L)N(R):M(L)M(R)Ɨ VYPIS POLE"ƍ L  Ə M(L);N(L);" ";ƍ K  Ǐ P(L,K);ǎ KǏ:$ǎ L.Ǐ8LRBLLLǎ R VǗ HLAVNI CYKL - KONEC`ǛjǏ:::::::$tǏ " LOGIKU MOC NEOVLADAS."~Ǐ:!Ǐ " SPRAVNA KOMBINACE JE:";Ǐ " ";Ǎ S  Ǐ Y(S);ǎ S Ǐ::: ǀ xǓ M(R) Ǜ Ǐ::ǏǏ%ȏ " V Y H R A L J S I " ȏ#ȏ " G R A T U L U J I"ȏ(ȏ2ȏ<ȏFȏPȏZȏdȏnȏ"xȏ "CHCES OPAKOVAT (A/N)": A$ȓ A$"N" : PȘț: CLOVECE NEZLOB SEȏ (`)EȖ H(),P(),P2(),H1(),P1(),R( ),ȏ "CHCETE UPRESNIT PRAVIDLA ? (1=ANO)"; ȁ pȓ I ȁ Ȟ Xȍ I Ȟ H(I)ɞ P(I)Ɏ I Ɂ F "ɞ XX,ɞ C6ɞ D@ɓ X JɁ Tɍ I ^ɓ P(I) rhɞ DDrɎ I|ɓ D "#ɏ "NEDARI SE VAM, VYHRAL JSEM" ɀ Ɂ ɍ I ɓ H(I) ɞ CCɎ Iɓ C ""ɏ "BLAHOPREJI, ZVITEZIL JSTE"&ɏ "ZAHRAJEME SI JESTE ? (1=ANO)"; Ɂ pɓ I ɀ Rʗ TISK INSTRUKCIʏ%ʏ "HRAJEME 'CLOVECE, NEZLOB SE'"&ʏ'0ʏ "VASE FIGURKY JSOU 11,12,13,14;":ʏDʏ "MOJE 21,22,23,24"Nʏ,Xʏ "NAPISU VAM HOD A VY URCITE FIGURKU,"bʏ.lʏ "KTEROU POTAHNETE. POKUD NECHCETE NEBO"vʏ/ʏ "NEMUZETE, NAPISTE '0'.PADNE-LI VAM '6'"ʏ*ʏ "A MATE MOZNOST NASADIT,MUSITE TAK"ʏ)ʏ "UCINIT. PO KAZDEM TAHU VYTISKNU "ʏ+ʏ "SITUACI. FIGURKOU NEMUSITE TAHNOUT"ʏ#ʏ "BEZPROSTREDNE PO NASAZENI."ʏ!ʏ "MATE PRECTENO ? (1=ANO)"; ʁ pʏ˄ ˗ TAH HRACE ˞ A(@(K)) ˏ "PADLO VAM ";A;*ˏ ", KTEROU POTAHNETE ?";4ˑ I>˓ I <H˞ II R˓ I(I) p/\ˏ "PSAL JSEM, ZE MATE FIGURKY 11,12,13,14" fˀ *p˓ I zˀ ˓ I +ˏ "KOLIK MYSLITE, ZE MATE FIGUREK ?!!" ˀ *ˍ J ˓ H(J) ˎ Jˍ J ˓ H(J) ˎ J˓ H(I) 8˞ MH(I)A ˀ j˓ A@ ̓ H(I) $̏ "MUSITE NASADIT !" ̀ *$̞ M .̀ 8̓ A@ VB̏ " NEPODVADEJTE !!!" L̀ *V̏ " CHCETE SE VYHODIT ?" `̀ *j̍ K t̓ K ~̓ H(K)M ̏ " CHCETE SE VYHODIT ?" ̀ *̎ K ̞ H(I)M̍ K ̓ P(K) ̓ P(K) ̞ QP(K) ̀ ̞ QP(K) ̓ QH(I) ̎ K ̀ ( ͞ P(K)͞ QK ͏ " VYHODIL JSTE MI ";Q (́ F2͓ A@ <̈́F͗ TISK MAPYP͍ I  Z͞ R(I)d͎ In͍ I x͞ H1(I)͞ P1(I)͎ I͍ I ͓ H(I) ͓ H(I) ͞ KH(I)͞ R(K) I ̀ ͞ KH(I)͞ H1(K) I ̀ ͍ K ͓ H1(K) Ύ KΞ H1(K) IΎ I"΍ I ,Γ P(I) |6Γ P(I) @Γ P(I) ^JΞ KP(I) T΀ h^Ξ KP(I) hΞ R(K) I r΀ |Ξ KP(I)Ξ P1(K) I ΀ ΍ K Γ P1(K) Ύ KΞ P1(K) IΎ IΏBΏ ();R();();R( );();R(()0Ώ (P);P1();();P1()CΏ ();R();();P1( );();R(0)0Ώ (P);P1(@);();P1()CΏ ();R();();P1(@);();R(8)ϏCϏ ();R();();P1(`);();R(@)ϏW&Ϗ ();R(0);();R(@);();R(P);();R(`);X0Ϗ ();R(p);();P1();();R(H);();R(P);A:Ϗ();R(X);();R(`);();R(h)DϏ.NϏ ();R( );(h);R(p)XϏWbϏ ();R();();R();();R(`);();R(@);XlϏ ();R( );();H1();();R( );();R();BvϏ ();R();();R();();R(x)ϏCϏ ();R();();H1(`);();R()ϏCϏ ();R(@);();H1(@);();R()0Ϗ ( );H1();();H1()CϏ ();R();();H1( );();R()0Ϗ ( );H1(@);();H1()BϏ ();R();();R( );();R()Ϗτϗ TAH POCITACE Ϟ A(@(K))Ϗ "PADLO MI ";A;Г A@ : 6 З VYHOZENIЍ I  Г P(I) *О MP(I)A4Г M >Г M \HО M1M RЀ f\О M1M fЍ K pГ H(K)M1 NzЎ KЎ I З DOMUЍ I О MP(I)AГ M0 Г MCЍ K Г P(K)M Ў K Ѐ vЎ IЗ ODCHOD Z '1'Ѝ I ѓ P(I) Bў MP(I)Aэ K $ѓ P(K)M L.ю K 8р vBю ILї UTECT (NEJVETSI)Vэ I `ў P2(I)jю Itэ I ~ѓ P(I) ѓ P(I) ѓ P(I) ў MP(I) р ў MP(I) ў Bэ K ѓ H(K) ѓ H(K) ѓ H(K)M ѓ H(K)M` ю K Ҁ  Ҟ BҞ P2(I)P(I)Ҏ I(ғ B x 2ҁ <ғ L Fҗ NEJVETSI NEPREDBEHNUVSIPҍ I ZҞ P2(I)dҎ InҞ Bxҍ I ғ P(I) ғ P(I) Ҟ MP(I)Aғ M Ҟ M1M Ҁ Ҟ M1M ҍ K ғ H(K)M1 ғ H(K)P(I) Ҁ Ҏ KҞ BӞ P2(I)P(I)ӎ Iӓ B 6 "Ӂ ,ӓ L 6ӗ NEJVETSI@Ӟ M1JӞ LTӍ I ^ӓ P(I) hӞ MP(I)Arӓ M0 |Ӎ K ӓ MP(K) ӎ Kӓ M1M Ӟ M1M Ӟ LIӎ Iӓ L ӏ ", NEMOHU TAHNOUT" Ӏ ӗ NASAZENIӍ I ӓ P(I) ӎ Iԍ I ԓ P(I) 0Ԏ I &Ԁ 0Ԟ P(I)!:ԏ ", NASADIL JSEM ";I DԀ NԞ H(K) XԞ P(I)M9bԏ ", TAHL JSEM ";I ;" A VYHODIL VAM ";K lԀ vԞ P(I)Mԏ ", TAHL JSEM ";I Ԁ Ԟ P(L)P(L)Aԏ ", TAHL JSEM ";L ԁ Fԓ A@ Ԅԗ VYBER NEJVETSIԞ M1Ԟ Lԍ I ԓ P2(I) >ԓ P2(I)A0 >Փ M1P2(I) > Ս K Փ P(I)AP(K) > Վ K*՞ M1P(I) 4 LI>Վ IHՄR՗ KONEC PROGRAMU\Տf՘pՑ A$: A$" " zKK: Kj` Տ "DELEJ NECO !" Հ p՞ K#Փ K K : z$Փ A$"1" I : IՄ A*Տ ();A;();A;();AՏ (P);A;();A*Տ ();A;();A;();AՏ (P);A;();A*Տ ();A;();A;();A՛"CRT:M1"*֏ (`)"*** HLEDANI POKLADU ***"֏:>֏ "POKLAD SE SKRYVA V SITI O ROZMERU 10 10. JEDNOTLIVA"$֏C.֏ "POLE SITE URCUJEME DVOJICI CELYCH CISEL ODDELENYCH CARKOU."8֏@B֏ "VLEVO NA HORE JE POLE 0,0 - VPRAVO DOLE JE POLE 10,10":L֏?V֏ "POKUS SE UHODNOUT, V KTEREM POLI JE POKLAD UKRYTY. MAS"`֏<j֏ "PET POKUSU. PO KAZDEM POKUSU TI PROGRAM OZNACI SMER"t֏~֏ "DALSIHO HLEDANI."֞ N ֞ G ֑ A$: A$ " " 6KK: K j` K: : "֓ K H K: RANDOMIZE K֏ (`) ֞ A(G()) ֞ B(G())֛ ց r ց @׍ K N ׏" ";׏ "POKUS #";K; ב X,Y#(ד (XA)(YB) 2LX:CY: @ <ׁ F׏P׎ KZ׏3d׏ (`) "LITUJI, TOTO BYL POSLEDNI POKUS"n׏x׏ "POKLAD JE V POLI"A","B@ב"UKRYL JSEM DALSI POKLAD, CHCES SE POKUSIT OPET?(A/N) ";W$ד W$"N" : ח SUCCESS׏0׏ (`)"POKLAD NALEZEN V";K;"POKUSU !"׍ I @׏׎ I ׀ ׏ " JDI NA ";#ד XA YB "VYCHOD";: 6"ד XA YB "ZAPAD";: 6 ד YB XA "JIH";: 6"ؓ YB XA "SEVER";: 6'ؓ XA YB "JIHOVYCHOD";: 6&ؓ XA YB "JIHOZAPAD";: 6)"ؓ XA YB "SEVEROVYCHOD";: 6",ؓ XA YB "SEVEROZAPAD";6؄@؍ I C J؏ : IT؍ J L^؏ " ";: J h؏""+r؏ (`)" 0 1 2 3 4 5 6 7 8 910"#|؍ J  : "##";J;1؍ I  : "";: I: ()'؎ J:" ":"؁ r:L :C : @/؏ (@)(`)();A$IN$: A$" " ؘ