TN?(! 6'D:\l>)E9|8M8EE99|8ME99|E9E99E9E99|8lM43E998E99|8lMT>[![>,<~~<>T|~~~~||((|(|41120` tEa megfelelo szam kivalasztas,korlatozva,hogy csak 1-4 kozott legyen ~a=41390n 8A>1B=0:W=7:T=1:J$="FEK": ""1170 :7,1;"A FEKETE LP ELSZR,A FEHR MSODSZOR MELYIKET AKAROD ?";15,1;"IRD BE FEK VAGY FEH ?" j$ :j$=""1190 .J$="FEK" B=0:W=7:T=1: .J$="FEH" B=7:W=0:T=0:  1170 Gg=1:s=1:h=0:p;20,10 ;"GONDOLKODOM!" a31460 a=3660 %20,10 ;" " 9h=0j=j+1:e=0:f=0:200 Ga=3a(77M)=h:i=77M:s=0:j=0:950  a gep segit,jo lepest ajanl :1;20,10 ;"J LPS: ";h:p:400 a jatek vegen ertekeles ( 25x>y19,16;0;"GYZTT A FEKETE" <5x%IC MH >*4%C/9ILJK+ ezjxypf+gmh, v7r,c,s:10 ,7;"ENTER-t":0:  8 !@>>#&#= $$$~$$~$>(> >bd&F(*D:  >>> ||8X~|||>|<| |||800||||~~| >> ||'''@ :\[2\[y[*Z[:\[2\[y!!:\[2\[y2\[y PA}1500}}[+%! ?8E9E9E99E9E99E99E99|8lM#8H ['lh)J ?z& g& T #  @R Zi\\]m\y[X!`HP! !''  PW!/{"\ Po)othello Nyi K SR4[/[P )othello Nyitrai '98 POKE 23606,150 elkeszitjuk a korongokat (KEZETES BETK 2bn=03:a:"a"+n,a:"a"+(7-n),a:n:60<,126~,255,231: <BETUKOD 41852,768 FUDG CODE USR "A",168 P a fomenu Qa$="" R0;4,1;a$;5,24;a$;2,13 ;a$;9 ,4;a$;4,10 ;a$;2,20;a$;1,31;a$;6,1;a$;7,12 ;a$;9 ,13 ;a$;5,15;a$;10 ,21;a$;5,31;a$;2,6;a$;7,16;a$;9 ,7;a$;2,24;a$;9 ,1;a$;6,24;a$;7,18;a$;2,7;a$;9 ,15;a$;10 ,17;a$;3,28;a$;7,1;a$ S1;5,7;a$;4,4;a$;6,10 ;a$;10 ,16;a$;3,15;a$;4,24;a$;9 ,31;a$;7,15;a$;3,10 ;a$;2,2;a$;10 ,30;a$;6,13 ;a$;10 ,3;a$;6,4;a$;5,20;a$;2,13 ;a$;3,24;a$;6,7;a$;8,1;a$;10 ,13 ;a$;8,20;a$;5,28;a$;7,31;a$;10 ,7;a$;8,24;a$ T3;3,31;a$;2,18;a$;7,10 ;a$;8,28;a$;10 ,26;a$;5,4;a$;9 ,24;a$;3,1;a$;9 ,28;a$;10 ,2;a$;7,7;a$;2,8;a$;4,20;a$;8,13 ;a$;7,4;a$;10 ,10 ;a$;2,15;a$;6,20;a$;10 ,24;a$;8,31;a$;2,3;a$;6,15;a$;8,4;a$;5,10 ;a$;4,7;a$ U2;3,7;a$;2,16;a$;6,31;a$;4,13 ;a$;10 ,18;a$;3,20;a$;10 ,22;a$;7,28;a$;4,15;a$;9 ,13 ;a$;2,17;a$;7,20;a$;5,13 ;a$;10 ,20;a$;7,24;a$;4,28;a$;3,13 ;a$;8,15;a$;10 ,29;a$;7,17;a$;4,31;a$;7,11 ;a$;6,28;a$;8,7;a$;3,4;a$ V0;7,13 ;a$;9 ,20;a$;2,29;a$;5,1;a$;8,10 ;a$;10 ,15;a$;2,10 ;a$;9 ,10 ;a$;2,30;a$;10 ,25;a$ Wh16,5;"KSZLT AZ 'X128'-AS"'" SPECTRUM EMULTORRAL 1998-BAN",,," NYOMD LE AZ ENTER-t" X 0 Z)1100L:2:4:4: d kezdjuk a jatekot n% "OTHELL,AVAGY KI NEVET A VGN ?" xa palyaracsozat hi=43+17116:i,35#:0,128:43+,i-8:128,0:i 1:1:i=43+17116:i+1,35#:0,128:43+,i-7:128,0:i:0:2 1-8-ig beszamozzuk i=18:18,i*2+4;i;i*2,4;i;i*2,22;i::i:3,25;"JTK";4,24;"LLSA: ";20,3;"LP" 2alapertekek beallitasa,a lepestombok elkeszitese Ub(100d):a(77M):m(8):i=176L:a(i):i:i=18:m(i):i:11 ,18,81Q,88X,12 ,21,17,28,71G,82R,78N,87W,13 ,16,31,61=,38&,68D,83S,86V,15,14,513,58:,41),480,85U,84T,33!,36$,63?,66B,34",568,46.,43+,35#,535,65A,64@,25,42*,74J,579,24,524,75K,47/,23,76L,62>,37%,26,73I,67C,32 ,22,77M,27,72H,23,26,24,25,32 ,62>,42*,524,37%,67C,47/,579,73I,76L,74J,75K,-11 ,-10 ,-9 ,-1,1,9 ,10 ,11 i=1100d:b(i)=4:i:b(44,)=7:b(557)=7:b(45-)=0:b(546)=0:e=0:z=4:j=0:7;8,12 ;"";10 ,14;"";0;8,14;"";10 ,12 ;"" ha a j=2 a jateknak vege j=21320( t valtozo,a lepesek szamlaloja x a feher,y a fekete korong e<8t=t+1 @x=0:y=0:i=11 88X:b(i)=bx=x+1 b(i)=wy=y+1 b a feher szin,w a fekete ,i:b;7,24+(x<10 );" ";x *w;10 ,24+(y<10 );" ";y "3x=y19,18;9 ;"MOST DNTETLEN" ,Gj$="FEH"x>y19,18;7;"VEZET A FEHR ":350^ 63x>y19,18;0;"VEZET A FEKETE" @Gj$="FEH"x88Xi=9 i=0380| b(x)4380| b(x)=p:g=0:m=p Ti=12:h=x:p=m:10808:p=4:10808:i:p=m:10808 e=0:k=18 v=x:r=v+m(k):c=v !v=v+m(k):v<11 570: b(v)=4570: b(v)=p530 c=c+m(k):490 c=x570:  g=1 &4j=0:r=cb(r)=p:h=r:10808:580D 0.b(r)=p:h=r:10808:r=r+m(k):530 : e=e+1 Dk N g=1 Xnincs tobb hely,a jatek vege be<8200 l5b(x)=4:h=x:p=4:10808:200 vs=0:g=1 valtakozo lepesek %20,10 ;p;" N LPEK.."  i=1 p=w ugyanolyan szinu korongok i=41)p=w970 i=30p=w1010 /e=8:b(a(i))=4x=a(i):470 4 a sor tele van,mind a nyolc helyen van mar korong e=8760 #(i>4i<13 )930  950 &az i valtozo leptetese eggyel tovabb $i=i+1:i<579680  i=579  n=11 *(i=579)-11 *(i=58:)+9 *(i=59;)-9 *(i=60<):e=8:b(a(i))=4x=a(i):470 e=88204  Nv=0:c=15:b(a(i)+c*n)=pb(a(i)+c*n)=4v=v+1 *Ic:v=5(b(a(i)+6*n)=pb(a(i)+6*n)=4)950 4$i=i+1:i<61=780  > i=579 HEe=8:b(a(i))=4x=a(i):470:e8950 R$i=i+1:i<61=840H \ i=4 fEe=8:b(a(i))=4x=a(i):470:e8950 p$i=i+1:i<13 870f z s=1 ?ha az f valtozo erteke=0,nincs tovabb,az ertekelo sorra ugrik f=01320( t=t-1:360h ((i=5i=6)b(11 )z)((i=7i=8)b(18)z)((i=9 i=10 )b(81Q)z)((i=11 i=12 )b(88X)z)950  760 s=1h=a(i): x=a(i):450  i=61= n=-10 *(i<65A)-1*(i>64@i<69E)+1*(i>68Di<73I)+10 *(i>72H):e=8:b(a(i))=4b(a(i)+n)4x=a(i):470:e8950 $i=i+1:i<77M980 i=41):700  i=579 /e=8:b(a(i))=4x=a(i):470 e=81050 (i=579b(11 )4)(i=58:b(88X)4)(i=59;b(18)4)(i=60<b(81Q)4)950 %i=i+1:i<61=1020 $i=30:700 .Ba szamitogep valaszlepese,a megfelelo szinre forditja a korongot 8]p:hh=(h/10 ):2*hh,2*(h-hh*10 )+4;"":.1}L,h/10 : B+a fomenu,a megfelelo menupont kivalasztas L6:23624H\,480::1:2::'" OTHELL  NYITRAI LSZL 1998' "''''" MEN :"'''" 1: ELLENFL A SZMTGP"''" 2: ELLENFL EGY EMBER"''" 3: SZMTGP BEMUTAT"''" @ # (88460 FOR i=1 TO 2: LET h=x: LET p=m: GO SUB 1080: LET p=4: GO SUB 1080: NEXT i: LET p=m: GO SUB 1080 CLS:PRINT AT 10,7;"ENTER-t":PAUSE 0:RUNLET e=0: FOR k=1 TO 8480 LET v=x: LET r=v+m(k): LET c=v490 LET v=v+m(k): IF v<11 THEN GO TO 570500 IF b(v)=4 THEN GO TO 570510 IF b(v)=p THEN GO TO 530520 LET c=c+m(k): GO TO 490530 IF c=x THEN GO TO 570540 IF g=1 THEN RETURN 550 LET j=0: IF r=c THEN LET b(&r)=p: LET h=r: GO SUB 1080: GO TO 580560 LET b(r)=p: LET h=r: GO SUB0 1080: LET r=r+m(k): GO TO   @PP 2h|||~|8>~(||<>|D 8<>0  08|~||8>~88(X<>~><D D<>~<  |~| 8|~||~8>(|<>8D 0<> 0|  8~||||~~88>~X(|<>D <>~||  8|||~|<8>~|(||<>>D <> |  |8|~|||8>~8(X<>|~D <>~|  ~||8|~|8>~<88>(|X(<>><>D D <><>  |~ 8|~||||~8>(||<>D <>||  8|<8>|(><>D <>| 8~ ~ |0 8 | 8  8p8| | 8'' 530530a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; a$; AT 9,24;a$; AT 3,1;a$; 04210 REM othello   Nyitrai '98 7-n),a: NEXT n: DATA 60,126,255,231: REM  7,12;a$; AT 9,13;a$; AT 5,15;a$; AT 10,21;a$; AT 5,31;a$; AT 2,6;a$; AT 7,16;a$; AT 9,7;a$; AT 2,24;a$; AT 9,1;a$; AT 6,24;a$; AT 7,18;a$; AT 2,7;a$; AT 9,15;a$; AT 10,17;a$; AT 3,28;a$; AT 7,1;a$76,74,75,-11,-10,-9,-1,1,9,10,1156OQP01@0&00 00!!! !0!> @!P!G( ~#(S:>2 > ~G#(x>>yQ!ta8߾ #(7 (~#(ܷxQ8RUSEt׌([u