T{N?r!6(D:\l8rnd=29rnd=31rnd=33!rnd=35#f(i,2,2)=1 Bd=2:null0f(i,3,2)04600 x=16:y=i:3670V rnd=04322 ,rnd<19f(i,2,5)=1 Bd=5:null0f(i,3,5)04600 %x=7:y=i+14:3670V rnd=04332 ,rnd>18f(i,2,6)=1 Bd=6:null0f(i,3,6)04600 x=7:y=i:3670V '" A nyeroszam a '0' es abban az esetben,ha a fogadasi kod PAIR,INPAIR,NOIR,ROUGE,PASSE vagy MANQUE volt, az On elozoleg megadott kodjai ismetlodnek/Ez Onnek nem kerul penzebe/.Ezen tulmenoen valaszthat is:" '"1./ Vagy elkeri a felet a plusz nyeresegnek,"'"2./ vagy a kovetkezo jatekban az egeszet felteszi az emlitett modon."'"Melyik esetet valasztja?(1 vagy 2)" ="1".1}L,12 :n=16:f(i,2,n)=.5:f(i,2,n+6)=0:f(i,2,13 )=0:n:3630.:1,18;"SZAMLA:";n(i);3,0;6;" A KOD:";3,16;"NYEREMENY:":2850" "2"4530 &.1}L,12 :n=16 h(i,n)=f(i,3,n) n:2975 #0;7;1;"FIGYELEM!";0;"A koddal ";f(i,3,d);" FT.-ot-";'"lefoglalt(Nullszabaly)":200:200:2510  h5,6,7,8,9 ,10 ,11 ,12 ,13 ,14,15,16 $"roulette"1000 . "roulette" 8 ozx8 ?@@@BA\@@""@"D"A"b""""@@AA@HAAA@A! @@AAA@PAAA@A@}@@AAAA@`AAA@A  Jy ?@@@BA\@@""@"D"A"b""""@@AA@HAAA@A! @@AAA@PAAA@A@}@@AAAA@`AAA@A@@A!ABAPA!A@ADBBADq@@##D"H###@""$$""@@8F@-~@`H PpҀP )U: XVyPY PzP P]P< PHҀP WP_mpXҀ @ PUPi/ԅPXڀP P pP|P[^ p P=DA@꺚j*jJ)@ @mU ƀԀ kʍ<ʀ8聪>ƀlƀX:Sꅾ 8̀YhިXTgQ"jހ >A@ pTU@tQUT Qէm p PʀP Pu PulP PPpՀp PPwP(ʀp]]#]Po]PpԀP PՀ PQlP΀Pp pWA }UTUU@P PRR A@*o"v  J 7덍HUgH ꁮ`ΨV:*o h %ꇮ(Ԁ A@A@z jݠA@` P0@u]UUUD=`2P P ʀ@ PU p Pd P8׀P @P޷PU mPhP WTNz;PXԀ`5@~PڀP PTQA@=PUTTpPqs A@h j* "P@ԀSjʇՀ 끪Yʎ끪4ƨր/`Vx8ڀ KW(H(( zA@;*:j@"@0 @pTWW@`UUT UUCp*  X@P P P1ʀPX PU*MPԀP PP MlPP ]tdPaƀP P1@Po`]HڀP@TRr`A@pTUQP 5p>@鿲j* j8@ՀrSԀj B덯ڀꁦ yvۀ vڠO~I|k@Z4<`|AA`B@AAAA`@A@~`B@AA""`A@AAAA`#@!B!@`A@cAAA`@ A@AAAA`A@DA@`A@cAAA`@@@A@AAAA`A@@xA@`A@cAAA`@@A@AAAAA`A@@HAAA`A@UAAA`@@A@AAA"A1AAADA""`B@UAAA`@@@B@A"AA#""B#`|~IA`@@@|AAAA +GGGGFFFFGFFFFGGGGFFBBBFFFDDDGGGGFFFFGFFFFGGGGFFBBBFFFDDDGGGGFFFFGFFFFGGGGFFBFDDGGGGFFFFGFFFFGGGGFGFFFGFFFFGFFFFGGGGFGFGGGGFFFFGFFFFGGGGFGFFFFGGGGFFFFGFFFFGGGGFGGFFFGGGGFFFFGFFFGGGGFFFFGGGGFFF    @84|8E9|8MWE99E99|8lMXXT(Wq!'W![>,1 1 1 1 1 1 1 1 8E99E99E99|8|88E99|8lM{T>[![>??&a"w8$8 "6*"8$$8~B$$B8||8BfZBBBBbRJFB579h$(1)<4803600:2510 h$<10 Űh$>10CP#0;7;1,0;"A tet 10.-100,000.-kozott lehet";0,0;"TEVES BEADAS!":100d:2510 Qn(i)-h$<0#0;7;"NINCS ENNYI PENZE!":100d:2510 _h$-(h$)0#0;7;"CSAK KEREK OSSZEGGEL FOGADHAT!":100d:2510 8n(i)=n(i)-h$:n(5)=n(5)+h$:k(i)=1 7;2,0;"SZABALYOK=HELP JATEK VEGE=END";1,0;("A SZAMLA:";n(i));0,0;("A TET:";h$;" A KOD:");a$ a$="END"4210r "a$="HELP"b$="1"+a$:1140t a$="12P"4250 a$="12M"4260 a$="12D"4270 a$="PAIR"4280 #a$="INPAIR"4290 (a$="ROUGE"4300 -a$="NOIR"4310 2a$="MANQUE"4320 7a$="PASSE"4330 <a$="C"4000 Aa$="6"4040 Fa$="0"4070 Ka$="Q"4090 Pa$="T"4120 Ua$="Z"41506 Za$="P"4180T _3600:2560 i rnd0null=0 dur=1:i=1spi a(i)=02710 'i:3160X :3200 :3400H p:3160X :3200 :0,22;"NYEREMENY";1,22;"CHIPS";2,22;"-" ?#0;1;5;"A FOGADASOK A KOVETKEZOK VOLTAK:" i=1spi 'a(i)=1k(i)12790 #i*3+1,22;n$(i) 7i*3+2,23;i+3;(151+i) n=113 $g(i,1,n)=02755 :g(i,2,n),g(i,1,n);i+3;(151+i) n y=112 Ux=18:d(i,y,x)=1y+4,x+6;i+3;(151+i) x:y Le(i,4)0e(i,4),e(i,5);3+i;(151+i) i #0;6;1,0;" ( Mindenki tett ) ";0,0;" R I E N N E V A P L U S ":3000 g16,22;"PORGETETT";17,22;"SZAM:";19,22;1;" ";rnd;" " J#0;0,0;" ":3280 5:5: i=1spi sch=0:j=5 'k(i)1a(i)=12975 s3630.:1,18;"SZAMLA:";n(i):6;3,0;" A KOD:";3,16;"NYEREMENY:" ,gew=e(i,1)*e(i,2)*e(i,3) :go=2849! :fak=e(i,3):d$="PLEINE":3800 !null=14500 "n=113 ,2gew=f(i,1,n)*f(i,2,n)*f(i,3,n) 19go=2889I :fak=f(i,3,n):d$=c$(n):3800 In:2992 Kh=04 Muw$:h=0o$(i)="0"h=1p$(i)="0"h=2q$(i)="0"h=3r$(i)="0"h=4s$(i)="0"2920h Vn=136$ XPgew=c(i,h*3+1,n)*c(i,h*3+2,n)*c(i,h*3+3,n) Z@go=2912` :fak=c(i,h*3+3,n):d$=w$:3800 hn:h sch=03630.:1,18;"SZAMLA: ";n(i);3,0;6;"NYEREMENY:";3,16;"NYEREMENY:";5;'''"Ebben a menetben sajnos nem volt szerencseje." sn(i)0a(i)=0''"Mivel nincs tobb penze,a tovabbiakban sajnos csak nezheti a jatekot!":a(i)=1 23280 :n=16:h(i,n)=0:n i:1980 8"PLEINE","CHEVAL","TRANSV. PLEINE","CARRE","TRANSV. 6" j=5:3280 :3160X :6;3,0;" A KOD:";3,16;"NYEREMENY";5;25,1;"A SZAMLA: ";n(i):3630.: Ri=140(:.1}L,-6:.005y# =,-9 :.07}\(,3:i ̜.01z# =,24:.05|L,0:5:.001wn,480:.1}L,24:.05|L,-4:.01z# =,0:1,-12 :10 ֖.005y# =,15:.01z# =,0:.005y# =,-36$:6:.1}L,-30:.01z# =,-480:.1}L,4:.1}L,0:  3140D :n=112 p$:f=07 & a:p$+f,a 0f:n DL"a",1,3,7,15,31,63?,127,255 EU"b",128,192,224,240,248,252,254,255 FL"c",255,127,63?,31,15,7,3,1 GU"d",255,254,252,248,240,224,192,128 HJ"e",0,0,38&,97a,34",119w,0,0 II"f",0,568,36$,568,32 ,0,0,0 JI"g",0,34",546,42*,34",0,0,0 KI"h",0,568,36$,36$,568,0,0,0 LQ"i",0,126~,126~,126~,126~,126~,126~,0 MO"j",129,66B,36$,24,24,36$,66B,129 NO"k",16,568,124|,254,124|,568,16,0 OO"l",24,24,24,255,255,24,24,24 S b8,160:0,15:8,0:0,-8:-8,0:8,-7:24,160:0,15:8,0:0,-15:-8,0 d40(,175:0,-15:8,0:0,15:568,175:0,-15:8,0:79O,160:-8,0:0,15:8,0:72H,168:4,0 g 88X,175:8,0:92\,175:0,-15:104h,175:8,0:108l,175:0,-15:127,160:-8,0:0,15:8,0:120x,168:4,0: 6:60<,156:568,0:568,-16:0,-120x:-568,-8:-568,0:-568,8:0,120x:568,16 N0,-144:80P,140:0,-128:96`,140:0,-128:116t,156:0,-144:23,36$:0,-19:40(,36$:0,-21:135,36$:0,-21:135,36$:0,-21:152,36$:0,-19 4,140:168,0:4,103g:168,0:4,71G:168,0:4,36$:168,0:0 7;2;1;5,8;"1";5,12 ;"3";6,10 ;"5";7,8;"7";7,12 ;"9";8,12 ;"12";9 ,10 ;"14";10 ,8;"16";10 ,12 ;"18";11 ,8;"19";11 ,12 ;"21";12 ,10 ;"23";13 ,8;"25";13 ,12 ;"27";14,12 ;"30";15,10 ;"32";16,8;"34";16,12 ;"36";14,17;144;145;15,17;146;147 3,8;"0";5,10 ;"2";6,8;"4";6,12 ;"6";7,10 ;"8";8,8;"1011";9 ,8;"13";9 ,12 ;"15";10 ,10 ;"17";11 ,10 ;"20";12 ,8;"22";12 ,12 ;"24";13 ,10 ;"26";14,8;"2829";15,8;"31";15,12 ;"33";16,10 ;"35";14,3;144;145;15,3;146;147 6,1;"PASSE";6,15;"MANQUE";10 ,1;"PAIR";10 ,15;"INPAIR";18,1;148;149;148;150;148;151;18,15;148;149;148;150;148;151: X#0;1,3;"NYOMJON VALAMILYEN GOMBOT.":0:.1}L,12 :: 0,22;"A SZAMLAK:";1,22;"-";4;3,22;"BANK: ";4,22;"FT.";n(5) we=6:i=1spi a(i)=133804 =5;we,22;n$(i);we+1,22;"FT.";n(i) *we=we+3 4i:we6 I23658j\,0 M#0;1;6;0;;0,0;"A JATEKNAK VEGE! ";1,0;" UJ JATEK(i/n)? " R&="i".1}L,12 :1760 \"n"3410R p.1}L,12 : &1:0:0:7: i=190Z8.6 :.01z# =,i/5:127,87W:127,i:127,87W:i*1.3&fff,88X:127,87W:-127,i:127,87W:-i*1.3&fff,88X 127,87W:127,-i:127,87W:i*1.3&fff,-87W:127,87W:-127,-i:127,87W:-i*1.3&fff,-87W:i G#0;1,6;"BANKOT ROBBANTOTT!":200:3400H A#0;1,7;1;"TEVES BEADAS!":200: 8:3160X =X0,18;1;4;n$(i);0;3+i;"(";(151+i);")": `Xx,y;i+3;(151+i):g(i,1,d)=y:g(i,2,d)=x:f(i,3,d)=h$ j 2510 tLx,y;i+3;(151+i):x=x-4:y=y-6:d(i,x,y)=1 a$="Z"a$="6"a$="Q"  2510 gew=0go 2n(i)=n(i)+gew+fak:n(5)=n(5)-gew-fak  W1,25;n(i):j,0;d$;j,21;gew;" ";:j=j+1:sch=1 gew>fak*51;"*" ( F3280 :3160X PR3200 :2,18;"JATEKSZABALYOK";3,21;" -": d@17,22;"1-szeres";18,22;"nyeremeny": n@17,22;"2-szeres";18,22;"nyeremeny": 7;0,0;("A TET:";h$;" A KOD: colonne";1,0;"A SZAMLA:";n(i);2,0;"Melyik oszlop? (1-2-3)");b$ b$=""4004 9b$(1)>480b$(1)<5244005 3600:4000 b=b$ n=134"3 &rnd=nf(i,2,10 )=1 .rnd=n+1f(i,2,11 )=1 .rnd=n+2f(i,2,12 )=1 n  d=b+9 Di=1i=2x=18:y=b*2+5+i:3670V Di=3i=4x=19:y=b*2+3+i:3670V ͏7;0,0;("A TET:";h$;" A KOD: transv. 6";1,0;"A SZAMLA:";n(i);2,0;"1.szama a dupla sornak?");b$ b$=""4050 n=1313 b$=n4051 n 3600:4045 b=b$ n=05 [rnd=b+ns$(i)="1":c(i,13 ,b)=5:c(i,14,b)=1:c(i,15,b)=h$ n  4620  n=1313 x:x=x+1 0n=bi=1i=3y=7:4063 1n=bi=2i=4y=14:4063 n @j=x:n=y:3700t:x=j-1:y=n:3700t:2510 #d=13 :y=14:x=4 Irnd=0rnd=1rnd=2rnd=3f(i,2,d)=1 ,i=1i=3y=7:4082  3670V 7;0,0;("A TET:";h$;" A KOD: carre";1,0;"A SZAMLA:";n(i);2,0;"legkisebb szama a negyesnek?");b$ b$=""4119 9b$(1)<480b$(1)>5794119 n=333!3 b$=n4119  n:b=b$ "b<1b>32 4119 rnd=brnd=b+1rnd=b+3rnd=b+4r$(i)="1":c(i,10 ,b)=8:c(i,11 ,b)=1:c(i,12 ,b)=h$ +4620 :j=1313:x b=jy=10 :4108   %b=j+1y=12 :4108   j  j=x:n=y:3700t:x=j+1:y=n:3700t:x=j+1:y=n-1:3700t:x=j:y=n-1:3700t:2510 3600:4091 7;0,0;("A TET:";h$;" A KOD:transv.pl.";1,0;"A SZAMLA:";n(i);2,0;"1. szama a sornak?");b$:b$=""4130" n=134"3  b$=n4131# !n "3600:4125 #b=b$ $srnd=brnd=b+1rnd=b+2q$(i)="1":c(i,7,b)=11 :c(i,8,b)=1:c(i,9 ,b)=h$ '+4620 :n=134"3:x )0n=bi=1i=3y=7:4140, *1n=bi=2i=4y=14:4140, +n , 3700t ;7;0,0;("A TET:";h$;" A KOD: cheval";1,0;"A SZAMLA:";n(i);2,0;"Adja meg a ket szamot:");b$;" ";d$ <b$=""d$=""4160@ =eb$(1)<480b$(1)>579d$(1)<480d$(1)>5794160@ >b=b$:d=d$ ?=b+1=db-1=db+3=db-3=d4161A @3600:4155; Ad5794209q \b=b$ ]"b<0b>36$4209q ^b=0e(i,3)=h$:e(i,4)=3:e(i,5)=12 :3,12 ;3+i;(151+i):2510 `Wrnd=bo$(i)="1":c(i,1,b)=35#:c(i,2,b)=1:c(i,3,b)=h$ c+4620 :n=134"3:x en=by=9 :4201i f%n+1=by=11 :4201i g%n+2=by=13 :4201i hn i 3700t q3600:4185Y wv:3160X :5,0;6;n$(i);".JATEKOS BEFEJEZTE":''" A jatek vegen a jatekosnak van:";n(i);" FT." Hn(i)>5000'"Az o nyeresege:";n(i)-5000;" FT.":4235 Ln(i)=5000'"A jatekos szerencsesen megorizte a penzet.":4235 7'"A jatekos ";5000-n(i);" FT.-ot","eljatszott." n(i)=0:a(i)=1 3280 :2700 ,rnd<13 f(i,2,7)=1 &i=1i=2y=i:4257 y=i+12 #x=18:d=7:3670V 9rnd>12 rnd<25f(i,2,8)=1 .i=1i=2y=i+2:4267 y=i+14 #x=18:d=8:3670V ,rnd>24f(i,2,9 )=1 .i=1i=2y=i+4:4277 y=i+16 #x=18:d=9 :3670V rnd=04282 D(rnd/2-(rnd/2))=0f(i,2,4)=1 Bd=4:null0f(i,3,4)04600 x=11 :y=i:3670V rnd=04292 D(rnd/2-(rnd/2))0f(i,2,3)=1 Bd=3:null0f(i,3,3)04600 &x=11 :y=i+14:3670V rnd=04302 rnd=1rnd=3rnd=5rnd=7rnd=9 rnd=12 rnd=14rnd=16rnd=18rnd=19rnd=21rnd=23rnd=25rnd=27rnd=30rnd=32 rnd=34"rnd=36$f(i,2,1)=1 Bd=1:null0f(i,3,1)04600 &x=16:y=i+14:3670V rnd=04312 rnd=2rnd=4rnd=6rnd=8rnd=10 rnd=11 rnd=13 rnd=15rnd=17rnd=20rnd=22rnd=24rnd=26rnd=28@@2D?@@@BA\@@""@"D"A"b""""@@AA@HAAA@A! @@AAA@PAAA@A@}@@AAAA@`AAA@A@@A!ABAPA!A@ADBBADq@@##D"H###@""$$""@@8F@-~@`H PpҀP )U: XVyPY PzP P]P< PHҀP WP_mpXҀ @ PUPi/ԅPXڀP P pP|P[^ p P=DA@꺚j*jJ)@ @mU ƀԀ kʍ<ʀ8聪>ƀlƀX:Sꅾ 8̀YhިXTgQ"jހ >A@ pTU@tQUT Qէm p PʀP Pu PulP PPpՀp PPwP(ʀp]]#]Po]PpԀP PՀ PQlP΀Pp pWA }UTUU@P PRR A@*o"v  J 7덍HUgH ꁮ`ΨV:*o h %ꇮ(Ԁ A@A@z jݠA@` P0@u]UUUD=`2P P ʀ@ PU p Pd P8׀P @P޷PU mPhP WTNz;PXԀ`5@~PڀP PTQA@=PUTTpPqs A@h j* "P@ԀSjʇՀ 끪Yʎ끪4ƨր/`Vx8ڀ KW(H(( zA@;*:j@"@0 @pTWW@`UUT UUCp*  X@P P P1ʀPX PU*MPԀP PP MlPP ]tdPaƀP P1@Po`]HڀP@TRr`A@pTUQP 5p>@鿲j* j8@ՀrSԀj B덯ڀꁦ yvۀ vڠO~I|k@Z4<`|AA`B@AAAA`@A@~`B@AA""`A@AAAA`#@!B!@1B~B~|U`A@cAAA`@ A@AAAA`A@DA@1bD8h8|@b@B8U`A@cAAA`@@@A@AAAA`A@@xA@1RDDT<|R|BU`A@cAAA`@@A@AAAAA`A@@HAAA1JDDTD<@J@|>U`A@UAAA`@@A@AAA"A1AAADA""1F"3"1810 &spi=:.1}L,12 0#''" ";spi;" JATEKOS FOG JATSZANI" 56h(spi,6):n$(spi,10 ):n(5):a(spi) 6:23658j\,8 :i=1spi D(i;". JATEKOS NEVE: ");n$(i) N8"JATEKOS ";i;": ";n$(i):n(i)=5000:a(i)=0 Xi:n(5)=10t$ g 3280 A:3160X :3200 :null=0g(spi,2,13 ) ƨc(spi,15,36$):d(spi,12 ,8):f(spi,3,13 ):e(spi,5):c$(13 ,15):k(spi):o$(spi):p$(spi):q$(spi):r$(spi):s$(spi) *1995:i=113 :c$(i):i y"ROUGE","NOIR","IMPAIR","PAIR","MANQUUE","PASSE","12 P","12 M","12 D","1. OSZLOP","2. OSZLOP","3. OSZLOP","ELSO 4 SZAM" 3300 :i=1spi Vf(i,1,13 )=8:o$(i)="0":p$(i)="0":q$(i)="0":r$(i)="0":s$(i)="0" Nn=16:f(i,1,n)=1:f(i,1,n+6)=2:n ;null=1n=16:f(i,3,n)=h(i,n):n i  n(5)03450z 4rnd=(*37%) aZrnd=0null=1:i=1spi:e(i,1)=35#:e(i,2)=1:i 3280 :i=1spi a(i)=12700 4:4 3630.:3200 $2,24;3;1;"MENU";3,22;5;"P";4,22;"Z";5,22;"T";7,22;"Q";8,22;"0";9 ,22;"6";11 ,22;"C" )3,24;"1 SZAM";4,24;"2 SZAM";5,24;"3 SZAM";6,24;"1 SORB.";7,24;"NEGYZET";8,24;"ELSO 4";9 ,24;"6 SZAM";10 ,24;"2 SORB.";11 ,24;"OSZLOPOK" .13 ,22;148;149;" ";148;150;" ";148;151;14,22;"PAIR";15,22;"INPAIR";16,22;"ROUGE";17,22;"NOIR";18,22;"MANQUE";19,22;"PASSE" 0#dur=1b$="HELP"2500 1b$="1HELP"2560 3o#0;1;7;0,0;"ADJA MEG A KOD-BETUJELET(VILAGOSKEK),VAGY A KODSZOT.":100d 5m#0;6;0,0;"HA A JATEKOS NEM AKAR TOBBET TENNI,AKKOR 'ENTER'-T NYOMJON!":200 Ϋ7;2,0;"SZABALYOK=HELP JATEK VEGE=END";1,0;("A SZAMLA:";n(i));1,18;"TOVABB='ENTER'";0, @ # L88 * * ** * * ** ** * * * * * * * * *  * * * * *** *** * * ***"1025 PRINT INK 6; AT 2,5;"A jatekgyaros bemutatja:"; INK 5; AT 8,0;w$; INK 2; AT 20,1;"programjat  Ny.L. (2005)"1094 PRINT #0; PAPER 4; INK 6; FFLASH 1; AT 1,4;"ROULETTE-Kerem a turelmet!": GO SUB 30501100 PRINT #0; INK 5; AT 1,4; FLLASH 1;"Keri a szabalyokat ? (i/n)"RUN 1105 PAUSE 0Q1110 IF INKEY$ ="n" THEN BEEP .1V,12: GO TO 1760 1120 IF INKEY$ ="i" THEN GO TO 1` @@P!88q8p8p8p8p8p8p8p8p8p8p8p8''110110 pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori  pelda mutatja.De gya-kori `G1010 LET w$=" * * * * * *** *** *** *** * * * * * * *  * * * * ** * * * * * ** * * ** ** * * * * * * * * *  * * * * *** *** * * ***"GO TOQP01@0&00 00!!! !0!> @!P!G( ~#(S:>2 > ~G#(x>>yQ!ta8߾ #(7 (~#(ܷxQ8RUt[u