ROULETTE @s ?xy||?ǀ s p}Cyp==?| =B8x<==B||~==?s~x= [|==BCgE)CC?~BAAB?~<BCCb|||(G()(Csx(C((A/B(A((CfC[C??  >8??B)}}B |?~8<B=CR>x0c A??><CCA@CCBACy??=#@ ==<<~?B==By>=>?>?|Ux?<>=> >=@@>=>>=B?!x>|?ǀ8yp?>U@@?? >pyG@<=<=<<?>]<=<=< 8?p<<=<x>G|<=<=<=B<<<=<=<?< <<=?==@~@(CBGB)B?|]<BCBCBBABAB<BBCBCBGbBB)BCBCB0?BBABA)CCA<CK B??< )#Ϗ}}?B=C KR?B  B,?|? ) } }  ?=|?BB BABCB?BBCBC AC/<>=~=~?<{xx~~=~ ~=~=~ ?<B~=~=<=B~<<|fffff vv fvfflfh~h`````````f`````````f`f`f`f`f`fffff`f|`f``2~xfbfffl`𐐐  𐐙 ffff<f<f<`f`ff`flfB>f<8<𐐐  𐐙 <<~<<<<<< ~`f 0f8ll8mf; 0 000 0 0~<~~0~ 0` 80 0`0 ~~0  0 l8flxpxlf``````~cwkkccffv~nff>f>``|fff|fff>ff><``|ffff8<8p``flxlf8<6kkc|ffffff>lv```>`<|00|0000ffff>fff<ckk6f<<~ 0~ p 001kF12 n=020 (S1:23624H\,105i::"Ubacite imena igraca"''"(max 10 karaktera)"''' : A=1N <':23658j\,8:#0;5;1;"IGRAC ";A;" : ";:JJ=1:FG=1:BR=10 :9000(#:A$=O$:A$""K$(A)=A$:"Igrac ";a;" : ";6;k$(a):A:65A ? 60< A6500d PMO,-10 :1:MO,-5:4:MO,0:4:MO,5:2:MO,10 :23624H\,96`::MO,20 dK1:6:MO,35#:a=1n:.1}L,N:i=0:k$(a); n\1;11 ;":Koliko novca imate ?":23692\,255:23658j\,8 xO':#0;"$";:FG=0:BR=8:9000(#:l$=O$:l$=""120x k(a)=l$:A(A)=L$:a "SUM=0:0:2080  b23658j\,8:q$(12 ,18,5):l(12 ,18):w(12 ):p=1 v236066\,229:236077\,91[:0:1:7:7:23624H\,23624H\+66B: CX=0 ?a=63?15932 :7,a:96`,0:a J103g,63?:0,96`:7,63?:0,96`  280 Ga=114:n$:A,4;CX;1;CX;n$:a:410 " p m d"," 1 2 3"," 4 5 6"," 7 8 9","101112","131415","161718","192021","222324","252627","282930","313233","343536","<1<2<3" N420:A=011 :I,J,N$:I+1,J-6;N$:A:530 2,8,"P",2,17,"U",3,8,"A",3,17,"N",6,8,"P",6,17,"M",7,8,"S",7,17,"Q",10 ,8,"R",10 ,17,"N",11 ,8,"O",11 ,17,"O" ž1,14,9 ,18,7,12 ,3,32 ,19,21,25,34",27,36$,30,23,5,16 CX=1 w1:17,0;"6 Kurzor dolje"'"7 Kurzor gore","P Pregled"'"0 Ulaganje","S Save"'"I Izvlacenje","L Load"',"C COPY":1:4:236066\,0:236077\,60<:1,14;"#################":O=215:O,14;"#";O,30;"#":O:16,14;"#################":0:0 |A=1:O=1N:O+2,16;1;B$(K$(O));" : ":2:O+2,23;B$(K(O)):O:0 O$="":236066\,0:236077\,60<:A+1,14;4;"# ";A+2,14;3;"#";4;A+3,14;"#":ZB=0:2440 O$"".3,35# G0:.01z# =,24:O$=:o$="6"ANA=A+1:536 *o$="7"A1A=A-1:536 !o$="0"W(A)<18550&  o$="I"650 !o$="S"2240 "o$="L"2370B #o$="P"7500L:540 $O$="C":540 % 541 &':236066\,229:236077\,91[:23658j\,8:#0;0,0;"Kombinacija : ";:9100#:R$=O$:#0;1,0;"Ulog : ";:FG=0:BR=8:9000(#:':U$=O$ 0B=W(A)+1:2180 :(ZB=U$:ZB>K(A)ZB=ZB-U$:2390V ;<K(A)=K(A)-ZB:Q$(A,W(A)+1)=R$:L(A,W(A)+1)=U$ DP2:2;A+2,23;" ";A+2,23;B$(K(A)) N'W(A)=W(A)+1:0:540 9236066\,229:236077\,91[:4000 G:F=140(:23769\,228:F*1E-3wn+23760\,F-4:Z$=((*37%)+" ")(2):19,7;1;Z$:23769\,212:23760\+F*1E-3wn,5+F:19,7;" ":F:19,7;1;Z$:Z=Z$:F=130:.05|L,*502-30:F =450:b=118:r:r=zc=2:753 $b:c=0:z=0c=4 z236066\,0:236077\,60<:5:5::0,0;0;5;5;Z:7400 0:x=015:y=168175:.005y# =,31:(x,y)C;351_-2*y,2*x+1;"";350^-2*y,2*x+1;"":.005y# =,24  Y:X:ZZ=Z RV=1N:W(V)=0W(V)=1:Q$(V,1)="1":L(V,1)=0 V N:W=1N:V=1W(W):K(W)=K(W)+L(W,V):V:W:Z=01790 $A=1N:B=1W(A):Z=ZZ: Q$(A,B)="PA "1190 Q$(A,B)="UN "1220 Q$(A,B)="PS "1150~ Q$(A,B)="MQ "1180 Q$(A,B)="RO "1230 Q$(A,B)="NO "1260 Q$(A,B)="P "1290  Q$(A,B)="M "1320( Q$(A,B)="D "13302 $Q$(A,B)="P,M "1340< .Q$(A,B)="M,D "1370Z 8Q$(A,B)="<1 "1400x BQ$(A,B)="<2 "1430 LQ$(A,B)="<3 "1460 VQ$(A,B)="<1,<2"1470 `Q$(A,B)="<2,<3"1500 j$Q$(A,B,3)=" "1530 t 1560 ~*Z>18K(A)=K(A)+L(A,B):1170 K(A)=K(A)-L(A,B) (.02{# =,*40(:B:A:1830& Z=37%-Z:1150~ 6(Z/2)=Z/2K(A)=K(A)+L(A,B):1170  1160 Z=Z+1:1190 )C=2K(A)=K(A)+L(A,B):1170  1160 C=2-C:1230  HZ-(3*(Z/3))=1K(A)=K(A)+2*L(A,B):1170  1160 (Z=Z+2:1290  2Z=Z+1:1290  <>Z/3ɺ(Z/3)K(A)=K(A)+L(A,B)/2:1170 F 1160 ZHZ-(3*(Z/3))1K(A)=K(A)+L(A,B)/2:1170 d 1160 x2Z12 K(A)=K(A)+2*L(A,B):1170  1160 =Z>12 Z24K(A)=K(A)+2*L(A,B):1170  1160 Z=37%-Z:1400x 2Z24K(A)=K(A)+L(A,B)/2:1170  1160 2Z12 K(A)=K(A)+L(A,B)/2:1170  1160 3Q$(A,B)=ZK(A)=K(A)+35#*L(A,B):1170  1160 #Q$(A,B,4)=" "1580, "<V=Q$(A,B,12):V$=Q$(A,B,4):15906 ,(V=Q$(A,B,1):V$=Q$(A,B,3) 6V$="A"1640h @V$="B"1670 JV$="C"1700 TV$="D"1730 ^V$="E"1760 h8V=ZV+1=ZK(A)=K(A)+17*L(A,B):1170 r 1160 8V=ZV+3=ZK(A)=K(A)+17*L(A,B):1170  1160 DV=ZV+1=ZV+2=ZK(A)=K(A)+11 *L(A,B):1170  1160 OV=ZV+1=ZV+3=ZV+4=ZK(A)=K(A)+8*L(A,B):1170  1160 CI=05:V+I=ZK(A)=K(A)+5*L(A,B):I:1170  1160 )A=1N:B=1W(A):1160 &1:3:3:23624H\,23624H\+64@:1::"  I S P L A T A  "'' 0)A=1N:6;K$(A);:I=0 :K(A)01856@ ?4" :";12 ;" imas $";6;K(A):1880X @A12 ;7;2;1;1;" BANKROTIRAO!!!" N<K$(A)=K$(N):K(A)=K(N):1,10 :M=N:N=N-1 X,A/21=(A/21)0:0 b".1}L,30:A:2090* {#6500d:N=12 140 (254,1:23692\,0 K':20,0;"Da li neko zeli da se prikljuci?";0,0; V=130:V .23658j\,8:o$=:o$=""1935 o$"D"2071  n=n+1 e':#0;"Ime novog igraca:"'':br=10 :fg=1:9000(#:k$(n)=o$:o$=""1950 a':#0;"Vase novcano stanje:"''"$";:br=8:fg=0:9000(#:o$=""1960 k(n)=o$:a(n)=o$  1925  N=0  140  a=1n:sum=sum+k(a):a: * a=1n 4sum=sum-k(a):a >&ban=ban+sum:ban02170z H8'" ";2;7;"BANKA : $";BAN:sum=0: \ zn#0;3;7;1;1;"Banka bankrotirala...":502:0:0:2140\  2380L }f$(38&,10 ):f$(1)=n:f$(2)=ban:V=3n+2:.005y# =,*40(:f$(V)=k$(V-2):V [V=n+32*n+2:f$(V)=k(V-n-2):MO,V/2:V:V=2*N+33*N+2:F$(V)=A(V-(2*N+3)+1):V:7400:#0;" Startuj kasetofon...":23734\,124|:23735\,0:8+8+8+8+8+8+8+229+8+68Df$() F$(1):540 :18,0;"Upisivanje snimljene igre (d/n)?" v=1502:v .23658j\,8:o$=:o$=""2315 o$"D"10 Bq':23659k\,1:21,0;;:F$(38&,10 ):""f$():23659k\,3:':3150N L+2440 :Q$(A,B)=R$:U$=""2390V M0I=1̱U$:U$(I)<"0"U$(I)>"9"2390V NI:U=U$:U>K(A)2390V OU=0541 P 2400` Va1,-12 :2,-24:#0;"  NETACAN PODATAK !!!":0:550& `P39'640 j/I=116:I$:Q$(A,B)=I$570: tI "P ","M ","D ","<1 ","<2 ","<3 ","PA ","UN ","PS ","MQ ","RO ","NO ","P,M ","M,D ","<1,<2","<2,<3" %Q$(A,B,2)" "2501 1Q$(A,B)<480ůQ$(A,B)>5792390V 0VA=Q$(A,B):VA<1VA>9 2390V 570: $Q$(A,B,3)" "2520 <I=12:Q$(A,B,I)<"0"Q$(A,B,I)>"9"2390V )I:VA=Q$(A,B):VA>36$2390V 570: !Q$(A,B,5)" "2390V !Q$(A,B,4)" "2780 !Q$(A,B,2)","2390V 5Q$(A,B,1)<"0"Q$(A,B,1)>"9"2390V JY=Q$(A,B,1):Y$=Q$(A,B,3):Y>36$Y=02390V Y$="A"2640P Y$="B"2670n (Y$="C"2700 2Y$="D"2730 <Y$="E"2760 F 2390V P$(Y/3)=Y/32390V Z 570: nY>33!2390V x 570: .Y-(3*(Y/3))12390V 570: /Y>32 Y/3=(Y/3)2390V 570: Y>33!2390V 2700 !Q$(A,B,3)","2390V <I=12:Q$(A,B,I)<"0"Q$(A,B,I)>"9"2390V NI:Y=Q$(A,B,2):Y$=Q$(A,B,4):Y=0Y>36$2390V 2580 N7M=0:N=F$(1):BAN=F$(2):A=3N+2:K$(A-2)=F$(A):A:A=N+32*N+2:K(A-N-2)=F$(A):A:A=2*N+33*N+2:A(A-(2*N+3)+1)=F$(A):A:B=16:A=-48048012 :.007ye`A,A:A:B:140 `0:6:6:0::23764\,17:23767\,33!:23760\ 64@,20,18:64@,20,20:557,15:17,0:0,9 :-17,0:0,-9 18,19;2;7;1;1;"ROULETTE";20,15;4;7;1;" MEGASOFT 1985" V*#0;"Pritisni ENTER za izvlacenje." `13 4960` )':#0;" MNOGO SRECE !!!": V=130:V:0:CX=1:18,8;1;2;1;4;"UPUTSTVO (d/n) ?":23658j\,8 O$=:O$=""5001  O$"D" 1:0::1,5;"I N S T R U K C I J E"'''" Rulet je igra koja se igrala od davnina.Porijeklo vodi iz Francuske."'"Danas se igra u mnogim kockar-"'"nicama sirom svijeta.To je"'"razlog koji nas je motivisao da sacinimo program po svim pravi-"'"lima francuskog ruleta."''" Kada budete birali kombinacijukoristite sintaksu koja je nave-"'"dena u uputstvu.Dobitak za poje-"'"dine kombinacije je takodje"'"naveden u obliku n*ULOG." #0;"Pritisni tipku...":0::''"Napomena kockarima!!!"''" Vjerovatnoca dobitka premagubitku iznosi 35:37.U prosjeku banka na duzi period dobija 5.5%svih uloga!!!"'',"Autori"',"------";#0;0,0;"Pritisni tipku...":0 5:23692\,255:''"PA(pair) -svi parni brojevi"'6;"1*ULOG"''"UN(unpair)-svi neparni brojevi"',"1*ULOG"''"PS(passe) -svi brojevi > 18"',"1*ULOG"''"MQ(manque)-svi brojevi 18"',"1*ULOG"''"RO(rouge) -svi crveni brojevi"',"1*ULOG"''"NO(noir) -svi crni brojevi"',"1*ULOG"''"p -brojevi u koloni ""p"""',"2*ULOG";#0;"Pritisni taster...":0:''"m -brojevi u koloni ""m"""',"2*ULOG"''"d -brojevi u koloni ""d"""',"2*ULOG"''"p,m -kolone ""p"" i ""m"""',"1/2 *ULOG"''"m,d -kolone ""m"" i ""d"""',"1/2 *ULOG" ٢''"<1 -brojevi 0 - 12"',"2*ULOG"''"<2 -brojevi 13 - 24"',"2*ULOG";#0;"Pritisni taster...":0:''"<3 -brojevi 25-36"',"2*ULOG"'' ڹ"n,a -broj n(u koloni ""p"" ili ""m"") i broj koji";11 ;"je desno"',"17*ULOG"''"n,b -broj n i broj koji se";11 ;"nalazi ispod broja n"',"17*ULOG"'' "n,c -broj n (kolona ""p"")"';11 ;"i dva broja desno"',"11*ULOG";#0;"Pritisni taster...":0: ''"n,d -broj n (kolone ""p"""';11 ;"i ""m""),broj desno,"';11 ;"broj dolje i broj"';11 ;"dolje desno"', {"8*ULOG"''"n,e -broj n (kolona ""p""),"';11 ;"dva broja desno i"';11 ;"tri broja ispod"',"5*ULOG"'' S"<1,<2 -brojevi 1-24"',"1/2 *ULOG"''"<2,<3 -brojevi 13-36"',"1/2 *ULOG"'' j6#0;"Pritisni ENTER za ponavljanje uputstva." k QW=10 l)A$=:MO,QW:A$=13 :5010 m?MO,QW:MO,QW-2:QW=QW+2:QW>35#QW=10 n1MO,QW+2:MO,QW-1:A$=""5996l ou:f=116:(F/8)*2;" ";1;" ":f:8:23760\ pBF=05:1;ں(F/2);6;6:F:: z d9':V=120:V:21,24;"(C-COPY)" n123658j\,8:O$=:O$="C":6510n oO$=""6510n x bY7000X:x=-6:.25~,16-x:.5,16-x:.25~,14-X lf=1102f:23769\,212:23760\:a,aa:.06|u\,a-x:23769\,228:23760\:.06|u\,aa-x:"" vF 61,11 :23760\:.6,0-x: 17,2,5,9 ,5,2,14,2,5,9 ,5,2,-5,7,11 ,7,14,7,16,7,11 ,14,17,7,16,4,7,12 ,7,4,12 ,0,4,7,4,0,-12 ,4,7,12 ,16,12 ,14,0,4,7,12 ,7 14,2,5,9 ,5,2,9 ,-3,2,5,2,-3,7,-1,2,5,2,-1,12 ,5,7,11 ,14,7,17,5,9 ,12 ,9 ,5,16,4,7,12 ,7,4,-12 ,4,7,12 ,16,7,16,4,7,12 ,14,7 17,2,5,9 ,5,2,14,2,5,9 ,5,2,-5,7,11 ,7,14,7,16,7,11 ,14,17,7,16,4,7,12 ,7,4,12 ,0,4,7,4,0,-12 ,4,7,12 ,16,12 ,14,0,4,7,12 ,7 14,2,5,9 ,5,2,-10 ,2,5,9 ,5,2,-10 ,2,5,9 ,16,9 ,19,4,7,11 ,16,7,14,2,5,9 ,5,2,-10 ,2,5,9 ,5,2,-5,7,11 ,14,11 ,7,-5,7,16,7,14,7,12 ,0,4,7,4,0,4,0,4,7,4,7 /236066\,229:236077\,91[: L7400:1:DB=K(A)-A(A)::'"  MEGASOFT IGRAC: ";K$(A);""'" YU-1985"'' Q" ";B$(" Do sada ste ");B$(" dobili: "db0);B$(" izgubili: "db<0),B$("$"+db)'" ";B$(" Na pocetku igre imali ste: ");B$("$"+a(a))'" ";B$(" Sada imate:"),B$("$"+k(a)):7400:'"Vase kombinacije u ovom krugu :"' Vk':v=1182:7400:V/2+10 ,2-(V=2);2;V;". ";1;b$("$"+l(a,v)+" na "+(q$(a,v)l(a,v))+("-----"l(a,v))):7400:V/2+10 ,17-((V+1)=2);2;V+1;". ";1;b$("$"+l(a,v+1)+" na "+(q$(a,v+1)l(a,v+1))+("-----"l(a,v+1))):v `Z7400:'" I Izmjene C COPY";#0;"Bilo koja druga tipka nastavak." e123658j\,8:o$=:o$="C":7525e jo$=""7525e oo$="I"7600 t 160 23659k\,15:':10 ,0;" 1 Izmjena imena"'" 2 Izmjena novcanog stanja"'" 3 Ponistenje neke kombinacije"'" 4 Odustajanje"'" 5 POVRATAK" o$=:o$="1"7700 o$="2"7800x o$="3"7750F o$="4"7900 o$="5"160 $.001wn,*-30:7610 S#0;"Novo ime:"'':br=10 :fg=1:9000(#:':o$=""7600 k$(a)=o$:7500L F{':#0;"Redni broj kombinacije koja se ponistava (1-18) ?"'':br=2:fg=0:9000(#:o$=""7600 K,rb=o$:rb=0rb>187500L Pl(a,rb)=07500L S9RB=W(A)L(A,RB)=0:w(a)=w(a)-1:7500L UZq$(a,rb)=q$(a,w(a)):l(a,rb)=l(a,w(a)):L(A,W(A))=0:w(a)=w(a)-1:7500L x^#0;"Novo novcano stanje :"'':br=8:fg=0:9000(#:':o$=""7600 k(a)=o$:7500L n=n-1:n=0 k$(a)=k$(n+1):k(a)=k(n+1):a(a)=a(n+1):v=1w(n+1):q$(a,v)=q$(n+1,v):l(a,v)=l(n+1,v):v w(a)=w(n+1):160 ? @23762\,8:23769\,204:23766\,80P:23760\:23762\,16:23769\,228:23766\,64@ A23206Z,79O: #(#O$="":#0;JJ;"_";8; #)0:J$=:J$=12 O$"".01z# =,12 :O$=O$(̱O$-1):#0;JJ;8;" ";8;8;"_";8;:9001)# #*=13 #+ FGJ$<"0"J$>"9"9001)# #,FGJ$<"!"J$>""9001)# #-O$BR9001)# #.IO$=O$+J$:#0;JJ;J$;"_";8;:.01z# =,30:9001)# #FG=1:BR=5:23658j\,0:9000(#:23658j\,8:F=1̱O$:O$(F)"a"o$(f)"z"o$(f)=(o$(f)-32 ) #f: %j23659k\,2:0:7:0::7400:23658j\,8:#0;"0 (D/N)?" % ="N" %="D"0 % 9601% '92::"rsc":"ROULETTE "16384@,46600 '=52099:52096,132:52097,203: * \nfNFx{( *K\B"6\ *K\B"6\{(>>>ׯ~80!<"6\ {(># x !<"6\6\P       PPPpPPpP p@pp @@ @ P ` @ @@@@ @ @P p P p @p`` @@pPPPPp ` p P @p```0PPpp@``0@`PP p @@pP PPp PP0` @ @ pp@  @ P `Рp PPpPP`P`PP` P@@P `PPPP`p@`@@pp@p@@@ P@pP PPpPPPp pPP PP``PP@@@@@pPpppPPpPPPPP PPPP `PP`@@pPPPpppPP``P0@ `p PPPPPpPPPPP Ppppp PP PPPPP p @pp@@@@p@` 0pp p P@@`pPp@@`PP`0@@@00PP0 P`@00@`@@@0PP0`@@`PPP ` pP @P``PP@@@@@0PpppP`PPPP PPP `PP`@@0PP00@@@@0@ ` p PPPPpPPPP Pppp PP PPPPP0`p @p0 @ 0 `  `P`` z# = } PP OO QWE ASD DFSDS ERTR FGHG BNBVB GF DFG SDF CXCX ?  N I?  N Ix flVaCPmn ACXCXi J L2020u-@?  = ? pj  NOO9998' ROULETTE @s@ @  ,203 DD2D y,2*x+1;"";350-6912 3DD2D y,2*x+1;"";350^-2*y,2*x+1;"":.003xD,24  :23735\,0:8+8+8+8+8+8+8+229+8+68Df$() DDD2D y,2*x+1;"";350^-2*y,2*x+1;"":.003xD,24  :23735\,0:8+8+8+8+8+8+8+229+8+68Df$() MMCYWMP[ P PMK\ tH uHMMwXvXL0Wq !/vMMZMMYWqM\ P P P 3۷MVtV\GWq !/v>;;͎{ ::\(!((<2\6!%"B\2D\}33-<ž[ _?~!<<A <<? E?@B (B> !E@(A!E@D~AE(~AI? (? C~!I?H  ? C~!Q CD.B ? @C_y'ý?Ã?|Op~>@y'?ｽ?#??π?8<矣y 'ýｽ?0xy'?a??|| ?><<y?y'=~ ?px~_?<y??g'{y 9ǟ`>?>??y <O ǟ<?||y<;O ?|#??y<~{_xG?|`y<^xxGpy ?>??|x?<x?y?|<0???y?~'|}?y0?~????<0??>|y?ýx?Ã>|x???>y ?ｽpO<y`ýｽ?|Gox<~{^y??' |<;Oy?|﻽?| ǟ<<Oy ہý??ÿý?>`><yǟy ?~??0??y|}y?~/{y'9??>< |>??py'0x?y '<@矣?8xx??ǀ?#y'?>@~|Op??y'C_