UaL?((!6eD:\'00 "  5a jatekos valasztasa,a kiiras betunkent,latvanyosan 6u$="MELYIK KUPBL VESZEL 1-6 ?":u=127 g.01z# =,u/10 :17,1+u;u$(u):u:7;1;18,11 ;" TE LPSZ "  "0;15,i+n+7;i  a jatekos lep p.05|L,1:7;1;18,11 ;" TE LPSZ ";1;1;15,x+n+7;x  ,a babszemeket tartalmazo kupak beszamozasa ֗17,1;" ":.05|L,1:0;18,11 ;" ";15,7;" 1 2 3 4 5 6"  18,3;" ": y=0:o=16 m-7oy=y+2:o =1;1;7;1;5,24-y-o;o g=140(:g: $a lepesek utani uj allapot kiirasa 40;0;0;15,x+n+7;x & +Vha sikerult eppen a gyujtobe tenni az utolso babszemet,akkor jutalombol ujra lephet 0k$=" JRA LPEK " :?i=112 :.02{# =,i:3,11 +i;k$(i):i D N#3,11 ;" " X b40;0;0;5,24-y-o;o l mekezetes betuk es mentes qUDG-K v "babszem" csIGIG3X3-3 LEKKTR DNALL .1 xY2. VLETLENSZEREN 2-TL 5-IG A Haen a gyujtobe tenni az utolso babszemet,akkor jutalombol ujra lephet 3,-14:-246,0:0,14:2 KI\̀>(-14:-246,0:0,14:2  " ,40(:0,80P P p+q+s+râ K SR P n (*Q\##0*Q\^#V,ɇo&\^#Vz *O\"Q\0####N!-^KSP0M d*e\!K\>^#VR0 r+s##= RDM~ V#^*c\+U##Ca\#*Y\6 "[\#6#"a\*a\"c\*c\"e\!\"h\[Y\#~ȹ# 78 N#Fq#p*O\ ###N!N KSP͔8!\O N#F+8x(*O\ ###~K(S(P ]s#r+x O!z0N KSP  x Ws?\6ͯ F1D0*I\[l\R8"nRn͸ 8V#^+Sl\"l\*l\n(3>>60%p 8;(, ͙͂x?gi"I\nUf(:k\O !l\KI\̀>(s-~@(###z(0!;\˖7n(*_\R >?~Ͷ# (7#~*\˼"\!\V6 tW"\*[\R:A\(C!;\˞>KV( <0^(>C^#V#n͕7nr+s{ <8B=(-00!8,($: 7n 0V(" :j\2j\*S\T]̀͸~#~+###"]\ #~Ͷ"]\"  :( A( 7~@8o(?0#~0##N#F# ѧRDMx/Gy/Od*Y\+"]\!\"e\;-͢-8! ڊx `iV#^ ***}ɱ˼į.lnpHV?A+7wDY+C-Q:mB I\D]=g#= ,O_k ":'B #   #z"`, 6  ,  2G\=2:\Ϳ4  (z:(!vOyڊO!H N *t\~#"t\RO 0 ! N ߹ŠT8 ~ q*B\|(!"E\*a\+[Y\:D\3n:D\( CG~x(0%*U\>V#^SE\#^#V#"U\"]\W6 r (͋(0% (:(ÊK g {q*t\N#FͲ(6707 ̖)v 0%+!q\wCr\"M\V:;\$V@ $z*Ͳ(y< ͂, $v $v~M :t\!*\"\!\~檮w0%(M !\~wW! (: 0%80%( 84ڳ) ͂88*"h\+~ 8 U#8 *E\s#rV #rF8*E\"B\:G\DW*]\KU\͆CU\8 (>2D\~:(#~7F#NCB\#N#F DM͋7N.*M\~(#"h\8*h\^#V#fs678870%()"_\*W\~,( ͆0 wV"W\*_\6&x,(0% $,>GË͙`in+"W\͙x Kx\Cv\*n\V6 ͙`i|0,"B\r ͅyͅ-8(D͙-͢-8 gE͙x K\[K\*Y\+k *e\2R0*\R0"\6>+s=\f $3KE\s=\g*e\ 8 !P8r.UDMz>( ;s=\s͙v x( x< n(>>0%(>9͍,0$ ( <)( ͍,Ҋ$ U##6, ) = :;\$@Š0%>>0%M E ( N (N ()> y#> ͙͂>yx!p $v+-x ) :;(, 0%( >'E #7͔͂0%(>n 6 K\:k\8!GC\>2\ n N (( )Šò! 7vŠ ͍,ү!70%ʲ!Ϳ!q\˶~ :;\@ w6 y0>"+w"[\7~ ,*]\*=\!:!0f(s=\*a\ͧ6,͹!,6"! K\ !q\ˮ~˾ "=\"_\͹!*_\6&"]\*c\[a\7RDMͲ**N *a\"]\( :q\Y 0%*Q\####~K!,(;(Ê?͔͂Wz((Vz Oz0y!\8z88Oz 8!\8 ~(/$(xOyl">l"PG>w#xɟz @Oz(0y!\l"y͔0o 2H\>$G7gyǨoy#ͪ"G~(-#"M C}\ͪ"G>G~NWA Q /w #G#YQO-$,Š͂*=8~08868}$18~08"1184b͔o͔g"}\ $,(w$͂Ţ1008w$1***=8~08w$}$111 **8w$8:}\(-8:~\(-8(<1818:}\(-8:~\(-8ͷ$8:}\(-8:~\(-8ͷ$M 1(42*8-80>(-11118#y0iկ_hA`x88OO*}\xGy<8 ( =O"y( O!%y҄&N t ʊ" t"( y)Š~#*6\y_y@W`(< =O# > Hò*#yOoyXg~(-"(O.+VW檿ǩ$#% %(0%(~#" ~#"( !;\˶~IJ*'$)Š'ý'0%((Kv\+-474A218͢-Cv\~(w 0%(84&Z# '!;\˶~(͎ 0_3Ͳ*'"%5%%"%Ā%H"%"?͈,0VA0<0% #͛,U#6#*e\B"e\+w#~ #ʹ3"]\Ͳ(.̖):;\8#ʹ33 -('( ֯ڊ(ҊO0˱8˹$( v R*O!'0N!& Fz8:!;\{ v 0%( {?G;8 {@Š!;\{ ˶yv ?O 8($+-*/^=>< 0% 5͍,Ҋ$ ( )($, )Š!;\˶('G$O *S\+͆0ͫ(߸ ͫ($( +͋ק̫(S]\ͫ()(B#~@(+ͫ(##$@ +*e\B"e\+ͫ()( , ͫ()("]\* \" \$"]\" \'#~!8͍,ҊO((($(͈,0͈,0˱: \(0%Q)A0% yO7*K\~(- "?)80# ( ( ͈,0͸((  ͈,0p* \~)(~`G#~(+ͫ(#˨x(#ͫ()(ͫ(i #[e\3"e\ѯ<ɯGy K~ <#N#F#Ͳ*I*###Fq( (( a$,( y(Rq ) <)(l 2+"]\^!y )(Q(**8 * y fq BK)(* ** #BKͱ*)(, R*((0%+)(Pկ(*PY( )Šbk)( *`i) +R8# *DM0%ȯͩ3*e\w#s#r#q#p#"e\ɯ͂0%(͙x7(Bz#^#V0%ͩ0*M\7N(^#~ (0 80 #͈,8$+y*Y\+U##*M\G(#~!8 >*M\ +8B@v(*M\Kr\7F 0xT]#6 +B 0DMx(x+++~+>*M\+ +"M\*Y\+U*M\#p+q+w*Y\+*e\+F+N+V+^+~"e\Ͳ(Š0% ˱͖)8͸!q .&* *$`i*,() yh&##)DM*Y\+U#w #q#px#wbk6q(6 p+q+= -?A?[a?{ 1 ?jڭ1BK+-.(;-. (-8" -ڊ88"-8 8E(e+(- -8;--ڭ11(DO-0:?-0O!:\_QHGͶ*88"-8t0/0*8>-81'8~ G-z ( SW8~~-W:\2\zO-1'8-2\=oA8ͺ/>./~q8 {͋/_z͋/W!\yNq w4q!\Nq A+~w( ?064rpq8K\!\x 88&R/G y(~# y>.>0APJ/>EJy/DO>->+o&]T)))YL}~6#~+ AO7+~/wyN#Fw#yN#N#FW^#V#^#V#^ɧ!0G-0ٯ.W] n4 &##^#V###~#N#F  w#s#r++++͓2͛/G͛/O0xAͺ//whaJ|o0>/4(#}#w+({D?_z/W{/_z/04ʭ1WٯU1|M!)8 084#+ "-A-xOͩ08 z O͎-͓2008Zͺ/xbb!0Zx =??F10h< 8z \wx0~>(٢/w8.#w+) z 5(0 0 4(#xw#q#r#s͓2080ͺ/`iah)j8RR0Z٧RR71(_QYPx=1~06> Q ###>++ >+ 6w#6+>30,/Ƒ#V#^++z( 8Z(G:͎-~֠D+G888(6+( G>'w͖2~-#w+wz B(SX)0 +s+r+p@0Iڢ@ 6<43001Q85$5;5;5;5;5;5;50-5;5;5;5;5;5;5554E6n4i65t677738C87766J84j44446553663z6546723O-2I44-44Ϳ5x2g\Se\~#3W`|oz0T] o2&^#V!e3Kf\:g\[e\3Se\ͩ3bkͩ3~O ~? #~P>#G3=OO *h\43bk!233*h\43Nq#G^31183b3584~( #x怶?w+-x/O͎-4#+O͎-͙x͙ (-͙!+-+ x #͍,8 ֐80<=0 K{\O0+- G~###x74>4#+>w#w#w#w#w474Ч4xW =0<4W 03++|x (?( 8 #+8545++ DMͲ*x(x(*e\-8 Ͳ* *]\x+S]\+6 $ @Š"]\$"]\"[\*Q\>-*[\RDMͲ*͔ҟ*Q\0 Ͳ*ÿ5+x((-++-!g\5 #^{W #1'816:81:08=48;)1'16Xefxe@`2!$/~X:~8- 80 80Dw8=178 8~6(-4814L78441r142  VڥY0\poaږ1\C6~^n#8=4"n1'111*178ɡ689*39111\ 8c# #]81 8͗2~8163111UX9[6ucB 66s]ca 811($18"810810%8610 78 $$$~$$~$>(> >bd&F(*D:  >>> < >>>BB<DHpHDB@~BfZBBBBbRJFB $$$~$$~$>(> >bd&F(*D:  >>> <b<8~~F~``~~FF~FFF~~`~F~~b`~bb~~F >p<xrrtxtrp~j~rrrrrzvrrrp<N<~8r<rrrv<rrrz~$bd88dbbt8~8p~@ pp8T40x0~8>BB<H>6BBBB~BBBfZBBBBbRJFB/`:Ψҩ./x/(g}<0S_ -8z<({ZW͎!\~ #5+ 6}!\ !\(.!\('~ ~_w#6#: \w#NV3w2\#6#5: \w#~B{' x!~7{:8/ O(O!(!~!)@(Z( 0^ ƥ0  !Th(80 6!09(0(ƀh!0 "( >_>@}==/O! :H\8 ?DOg z( yMM 1'4l8!\~ ^#N#Fx T# Px<%l 0 !n4ʹ38w18͔ 0"4CU45q8͙͙PYzõ  `uA$Sʉ.68I>CjsOT\i$v$:;\+bk !?!(! +>G- %/> 7;oz( n|g>7%lyx0B>XMMF F3MMU PMMM#3(2(43Pa#3'{Rv> $$$~$$~$>(> >bd&F(*D:  >>> <b<8~~F~``~~FF~FFF~~`~F~~b`~bb~~F >p<xrrtxtrp~j~rrrrrzvrrrp<N<~8r<rrrv<rrrz~$bd88dbbt8~8p~@ pp8T40x0~8>(brrr<~8888~~p<Fb4~rxrpx>urr~1zt88rr8ppprFb48ztrppu||r1v888rr8p<pr~<58vrrp<trr8r1r88|~8p8prb58rrrpurrpr1r88rr8pNpprFb58rtrpNu||~r1r~8rr~~<~~<~<5~rx<~<u~~E~ ~$~8xpp~~|4~rF~E`vpp8ppr8p|rpr`>8rp>8vpprrtrr8ttppFFE`~xj<~ztr~tr~prprp~r8v8rrrrr|pp|p|pr<rr8rrrr~rpv|ppppr8rr8rrrtrrprprNprr8r& l^zC5IڢPW! {"\ P "23739","244":"23658","8"  K SR P NYITRAI BASIC 1998' POKE 23606,150 POKE 23607,162 (KEZETES BETK 2 <BETUKOD 41852,768 FUDG CODE USR "A",168 P4awari/awale babszem/kavics-jatek U beallitjuk az alapszineket Z&0:4:4:0: _V alaphelyzetben a pontszam c es s nulla,b es g szamtomb 14 helyerteku,a lepestomb=51 d?c=0:s=0::b(14):g(14):f(513) i a fomenu felirat n2,8;1;1;2;"BABSZEM JTK";0;1;4,6;"NYITRAI LSZL 98'";6,9 ;0;3;" INDULS:" sD a menuvalasztek erdekes -betukenti kiirasa,az elso sor visszafele x3x$="3-3 LEKKTR DNALL .1 ":x=124 42;9 ,28-x;x$(x):.01z# >,x:x :y$="2. VLETLENSZEREN 2-TL 5-IG ":y=130 41;12 ,0+y;y$(y):.02{# >,y:y . a babszemek 3-3,vagy 2 es 5 kozott lehetnek 019,5;"NYOMD A MEGFELEL SZMOT !" a$=:a$<"1"a$>"2"170 x=30-10 -3 .05|L,x x 460:1580, 940:720 7 a b(14) a szamitogepe,a b(7) az en babszemeit jeloli |(b(7)-20)*(b(14)-20)0e=04,2;"VGE":l=1300,:l:330J mh260 #710:1820:1770 K ha e=0 a jateknak vege,nem maradt a szamitogepnek mar babszem a kupakban Ge=04,2;"VGE":i=1300,:i:330J s=01640h $1750:1240:1890b A ha e=0 a jateknak vege,nem maradt nekem mar babszem a kupakban "Ge=04,2;"VGE":i=1300,:i:330J ,mh320@ 6;940:18400:1240:1890b:1870N @e>0220 E)vege a jateknak,az ertekeles kovetkezik J(:4,8;"VGE A JTKNAK !" Td=b(7)-b(14) ^d0370r c8ha a b(14) erteke nagyobb,mint b(7),a szamitogep nyert h;8,5;"N NYERTEM ! ";-d;" PONTTAL":420 r#m=m+1:d0390 w6ha a b(14) erteke megegyezik b(7)-el,akkor dontetlen |,8,10 ;"DNTETLEN !":420 6ha a b(7) erteke nagyobb,mint b(14),a jatekos nyert Q8,5;"TE NYERTL ! ";d;" PONTTAL";12 ,10 ;"GRATULLOK !" @itt van az eselylatolgatas,ez alapjan gondolkodik a szamitogep ,410:n=122:j,b:j,b:n .2~L,0,.2~L,2,.2~L,4,.4L,5,.3,0,.2~L,5,.2~L,4,.2~L,5,.4L,7,.2~L,2,.2~L,2,.2~L,4,.2~L,5,.3,9 ,.2~L,7,.2~L,7,.2~L,5,.2~L,5,.2~L,4,.2~L,2,.2~L,4,.2~L,5,.2~L,5 "JRA ? (I/N) ";c$ c$="I"90Z 9ha nincs ujabb jatek , a szamitogep udvariasan elkoszon s:2;5,5;"BEFEJEZTK A JTKOT!";1;9 ,1;"VISSZLT,MLT ELLENFL VOLTL!": 1*** a kepenyotabla ***,megrajzolom a kuzdoteret  _1,171:251,0:0,-15:-251,0:0,15 _2,170:251,0:0,-15:-251,0:0,15 r2:1,1;" AWARI":2:1,7;" SI";1;" MAYA";3;" BABSZEM-JTK" ֳ1:0,120x:252,0:0,-80P:-252,0:0,80P:30,40(:0,80P:225,40(:0,80P ۳1:1,120x:252,0:0,-80P:-252,0:0,80P:30,40(:0,80P:225,40(:0,80P  m=15:n=.01z# > a kupak kerek korvonala .kozep=64@:iv=100d:sugar=14 2:kozep,iv,sugar:n,m kozep+25,iv,sugar:n,m kozep+502,iv,sugar:n,m kozep+75K,iv,sugar:n,m kozep+100d,iv,sugar:n,m &kozep+125},iv,sugar:n,m 01:i=9691-1 :212,i-12,15:.01,i/10:i D(kozep+125},iv-27,sugar:n,m N(kozep+100d,iv-27,sugar:n,m X'kozep+75K,iv-27,sugar:n,m b'kozep+502,iv-27,sugar:n,m l'kozep+25,iv-27,sugar:n,m vkozep,iv-27,sugar:n,m 1:i=105100-1:2 38,i-14,15:.01,i/10:i %a rajzolas kozben egy kis hanghatas u1:n=0:i=16:.01z# =,i:15,i+n+7;i;5,24-i-n;i:n=n+2:i J2;5,0;"IBM PC";1;18,25;"JTKOS"  *** lepesek ***  720 ;ha a gyujtobe sikerult lepnunk,jutalomkent ujra lephetunk i.05|L,25:2;18,3;1;"ISMT";0:1820:730 1660|:1680 =a kupak kivalasztasa korlatozva,hogy csak 1-6 kozott legyen  a$=:a$<"1"a$>"6"730 m=a$ b(m)=0730  n=0 x=16  a$xn=n+2:x  1730  h=7:m=x * 830> 4 940 >k=m:1120` H!e=0:k6860\ R k=k-7 \#c=c+1:c9 880p ff(m)=f(m)*6+k p,i=16:b(i)0900 zi: -i=813 :b(i)=0920  e=1: i: *** lepes kijelzes *** z=0:i=16 3a gyujtokosarban levo babszemek kiiras es torles 6b(i)10 12 ,i+z+6;b(i):980 5b(i)=012 ,i+z+6;" ":980 ).01z# >,i:12 ,i+z+7;b(i) z=z+2:30:i @b(7)10 11 ,29;b(7):1010 *a jatekos kosaraban levo babszemek szama 11 ,30;b(7) N2:20,6;"AZ LLS ";b(14);"-";b(7);" BABSZEM" p3:4,18:246,0:0,-14:-246,0:0,14:2 p3:5,17:246,0:0,-14:-246,0:0,14:2 z=0:i=813 7b(i)10 9 ,30-i-z;b(i):1060$ 6b(i)=09 ,30-i-z;" ":1060$ ).01z# >,i:9 ,31-i-z;b(i) $z=z+2:30:i .Ab(14)10 11 ,1;b(14):1090B 3+a PC gyujtokosaraban levo babszemek szama 811 ,2;b(14) Br1:20,6;"AZ LLS ";2;b(14);2;"-";1;b(7);3;" BABSZEM" L V*** lepesismetlesek *** `p=b(m):b(m)=0 jp=p1-1 t%m=m+1:m141160 ~m=m-14 b(m)=b(m)+1 p b(m)11210 .(m-7)*(m-14)=01210 #b(14-m)01220  Hb(h)=b(h)+b(14-m)+1:b(m)=0:b(14-m)=0: *** a szamitogep lep *** %kl=6:d=-99c:h=14 "i=114:g(i)=b(i):i 8j=13 8 -1:b(j)=01520 q=0:m=j:1120` 8 hangjelzes kisereteben a lepes utani allapot kijelzes s=0i=16  .05|L,-10 *i b(i)=01400x l=b(i)+1:r=0 (l141340< 2%l=l-14:r=1:1320( <b(l)01370Z F.(l-7)*(l-14)=01370Z Pr=b(14-l)+r Zs=01380d drq1400x nq=r xi 's=0q=b(14)-b(7)-q c>81490 k=j:k71450  k=k-7 i=1m-1 @f(m)*7+kɺ(f(i)/7^(7-c)+1)1480  q=q-2 i "i=114:b(i)=g(i):i q 0*** a szubrutinok,az alapallapot beallitasa*** 2i=114:b(i)=(*4)+2:i )b(14)=0:b(7)=0 " ,a$"1"1610J 6 1630^ @ 1620T J 1550 T ^Pi=114:b(i)=3:i:b(7)=0:b(14)=0: hG.05|L,1:7;2;3,11 ;" IBM PC LP " r |5.05|L,1:3,11 ;"