0 CLEAR:CLS 1 PRINT:PRINT:PRINT"Hraje se na ctvercove siti 8x8" 2 PRINT"poli. Kazdy tah je treba zadat" 3 PRINT"dvema souradnicemi - nejprve" 4 PRINT"svislou, pak vodorovnou a" 5 PRINT"potvrdit tlacitkem CR. 6 PRINT:PRINT"Kameny musis klast tak, aby jsi" 7 PRINT"mezi sve sevrel co nejvice" 8 PRINT"kamenu souperovych. Hra konci, " 9 PRINT"prijdes-li o vsechny kameny," 10 PRINT"nebo je-li obsazena cela sit.":PRINT&30,8"Zmackni neco!" 11 IFINKEY$=""THEN11 12 Y=0:DIMA(2,200),D(8),E(60) 14 FORI=1TO8 16 READD(I) 18 NEXTI 20 DATA39,40,41,49,51,59,60,61 22 FORI=1TO60 24 READE(I) 26 NEXTI 28 DATA159,229,222,152,202,157 30 DATA172,227,209,154,179,224 32 DATA204,177,174,207,189,155 34 DATA199,225,156,192,182,226 36 DATA205,194,206,184,175,197 38 DATA176,187,203,188,198,216 40 DATA164,162,178,165,214,217 42 DATA183,166,208,173,193,215 44 DATA212,153,169,158,228,167 46 DATA223,219,213,168,218,163 56 A(1,89)=1:A(1,90)=1 57 A(2,89)=1:A(2,90)=1 58 A(1,91)=-1:A(1,92)=-1 59 A(2,91)=-1:A(2,92)=-1 60 A(1,109)=-1:A(1,110)=-1 61 A(2,109)=-1:A(2,110)=-1 62 A(1,111)=1:A(1,112)=1 63 A(2,111)=1:A(2,112)=1 90 CLS 100 PRINT&0,7"MMWWWWWWWWWWWWWWWWMM" 110 PRINT&1,7"MM1 2 3 4 5 6 7 8 MM" 120 PRINT&2,7"Y1\\\\\\\\\\\\\\\\1Y" 130 PRINT&3,7"Y \\\\\\\\\\\\\\\\ Y" 140 PRINT&4,7"Y2\\\\\\\\\\\\\\\\2Y" 150 PRINT&5,7"Y \\\\\\\\\\\\\\\\ Y" 160 PRINT&6,7"Y3\\\\\\\\\\\\\\\\3Y" 170 PRINT&7,7"Y \\\\\\\\\\\\\\\\ Y" 180 PRINT&8,7"Y4\\\\\\\\\\\\\\\\4Y" 190 PRINT&9,7"Y \\\\\\\\\\\\\\\\n  Y" 200 PRINT&10,7"Y5\\\\\\\\\\\\\\\\5Y" 210 PRINT&11,7"Y \\\\\\\\\\\\\\\\ Y" 220 PRINT&12,7"Y6\\\\\\\\\\\\\\\\6Y" 230 PRINT&13,7"Y \\\\\\\\\\\\\\\\ Y" 240 PRINT&14,7"Y77\\\\\\\\\\\\\\\\7Y" 250 PRINT&15,7"Y \\\\\\\\\\\\\\\\ Y" 260 PRINT&16,7"Y8\\\\\\\\\\\\\\\\8Y" 270 PRINT&17,7"Y \\\\\\\\\\\\\\\\ Y" 280 PRINT&18,7"MM1 2 3 4 5 6 7 8 MM" 290 PRINT&19,7"MMWWWWWWWWWWWWWWWWMM" 300 PRINT&8,15"[X[X"; 310 PRINT&9,15"VUVU"; 320 PRINT&10,15"[X[X"; 330 PRINT&11,15"VUVU"; 335 FORI=7TO10:FORJ=0TO6:PRINT&I,J;"M";:NEXTJ:NEXTI 340 PRINT&8,1"JA:[X"&8,27"TY:[X"; 350 PRINT&9,4"VU"&9,30"VU"; 355 IFRND(0)>.5THEN690 360 REM POCITAC TAHNE 370 BS=1 380 CS=-1 410 FORK=1TO60 420 B=E(K)-140 430 IFA(1,2*B)<>0THEN650 440 H=0 450 FORX=1TO8 460 N=D(X)-50 470 E=0 480 F=B 490 IFA(1,(F+N)*2)<>BSTHEN530 500 E=1 510 F=F+N 520 GOTO490 530 IFA(1,(F+N)*2)<>CSORE=0THEN630 540 FORA=B*2TOF*2STEPN*2 550 A(1,A-1)=CS:A(1,A)=CS 560 LI=2*INT((A-1)/20) 570 CO=5+A-20*INT((A-1)/20) 590 A(2,A-1)=CS:A(2,A)=CS 600 GOSUB2000 610 H=1 620 NEXTA 630 NEXTX 633 PRINT&22,0;"TED TAHNU JA" 640 IFBS=-1ORH=1THEN660 650 NEXTK 660 IFBS=-1THEN370 670 IFH=0THEN672 671 GOTO680 672 GOSUB780 680 REM HRAC TAHNE 690 BS=-1 700 CS=1 721 GOSUB780 723 PRINT&22,0;"JSI NA TAHU " 730 INPUTB 731 PRINT&22,0;" " 732 PRINT&24,0;" " 733 IFB<11ORB>88THEN723 740 B=B+1 750 IFA(1,B*2)<>0THEN1010 760 GOTO440 770 REM VYPOCET SCORE 780 CP=0 790 HP=CP 800 FORA=23TO177STEP2 810 IFA(1,A)=-1THEN812 811 GOTO820 812 CP=CP+1 820 IFA(1,A)=1THEN822 821 GOTO830 822 HP=HP+1 830 NEXTA 840 PRINT&12,2;CP;&12,29;HP; 850 IFCP+HP<64ANDHP>0THENRETURN 860 IFCP>HPORHP=0THEN862 861 GOTO870 862 PRINT&22,0;"VYHRAL JSEM " 870 IFCP