ROULETTE '6*.)6 Roulette  Dymond software K3:4:7::4000:1800:236099\,16 v$(10 ):t(4):d(491):z(4):k(6):p(3):i(4):c$(491,2):l(491):c(491):b$(6,6) ( 1000 2>"How many players to play ";q:q<1q>4502 <f(4):d$(q,4):a(q):p$(q,6):s(q,4,3):h(q,4):r(q,3,2,3):b(q,4,3,6):y(q,3):e(6) FIf=1q:"Player ";f;" enter your name ";p$(f):a(f)=1000:f d>l$=" ":o$="":m$="":n$="":k$="":e$="How much on " n::2000 x:g$="bet":1700:c=1:f=1q:1900l a(f)=03500 x=f:1950 "Place your bets please ";a$ a$="s"3995 l=a$:b2=0:7040 a$=""3500 l>6330J r1=1:y=16 a$=b$(y,1l)700 y Kr1=3:a$="c1"a$="c2"a$="c3"b2=42*:g$="column ":740 >a$="d1"a$="d2"a$="d3"b2=46.:g$="dozen ":740 l>2330J  y=1l ",a$(y)<480ůa$(y)>579910 ,y 6%a$<0Űa$>36$910 @r1=2:720 J m=l/2 T'mɺ(m)m=5m>6910 ^ 7100 hy=2l2 r\a$(y-1)>579ůa$(y)>579ůa$(y-1)<480ůa$(y)<480910 |&a$(y-1y)>36$910 e(y/2)=a$(y-1y) r1=4:y  6000p "6100:480+z*20 Gy$="1 "y$="12"y$="3 "y$="32"e(1)=0y$="21"800   910 Ny$="113"y$="33 "y$="333"e(1)=0(y$="111"y$="213")800   910 =y$="121 "y$="1214"e(1)=0y$="1114"800  & 910 00y$="111116"y$="12121 "y$="121216"800  : 910 b=36$+y  750 b=a$  750 b=b2+a$(l):a$=g$+a$(l) y(f,r1)=z(r1)150  2200 *r(f,w,1,r1)=b:r(f,w,2,r1)=c  150  h(f,z)=3150 *)e(1)=0e(1)=46. 4h(f,z)=h(f,z)+1 >:20,0;e$;"these ";m;" numbers ?":2250 H&y=1m:b(f,z,h(f,z),y)=e(y):y Rn=h(f,z):9200# ps(f,z,h(f,z))=c  150 U18,0;"You must have made an error or","it does not apply to the rules"  150 $y=13:z(y)=3:y ac=8:al=3 Bo$="05050909131315151502161616":k$="04160416041608101210051117" 9l$="20202020200202020220202020200202020244440244444444" im$=" OO" y=1491 $-c$(y)=m$(y*2-1y*2) . d(y)=l$(y) 8y<37%1250 By>36$1310 Ly V)1120`:y=16:b$(y):y `0"passe","manque","pair","impair","black","red" jy=14:t(y):y t#17,11 ,8,5 ~ l(y)=al:c(y)=ac $y/3=(y/3)1300 ac=ac+2   al=al+1:ac=ac-6: w=y-36$ ('l(y)=o$(w*2-1w*2) 2'c(y)=k$(w*2-1w*2) <=p(1)=1:p(2)=35#:p(3)=2 PPi(1)=2:i(2)=3:i(3)=4:i(4)=6 Zv8=90102#:v9=9000(# d x1y=1491:d(y);l(y),c(y);c$(y):y: @f=1q:f(f)=0:d$(f)=g$:a(f)=0d$(f)="out" f: 2y=1i(z):e(y)=b(f,z,n,y):y:6100: 1860D:b=255:a=128:e=140:f=146:c=130:d=134:g=0:h=480:i=72H:j=8:k=24:l=1 &y=""""+167 0n:y,n :y: Dwb,a,c,d,c,c,d,a,b,a,e,f,f,f,e,a,b,a,e,f,132,136,158,a,b,a,e,f,132,f,e,a,b,g,h,i,i,i,h,g,b,g,j Nk,j,j,k,g,b,g,h,i,16,32 ,120x,g,b,g,h,i,16,i,h,g,b,g,k,40(,i,124|,j,g,b,g,120x,64@,h,k,112p,g,b,g,k,32 ,80P,i,h,g,b,g,120x,j,16,32 ,64@,g,b,g,h,i,h,i,h,g,b,g,h,i,568,j Xh,g,254,252,248,240,224,192,a,g,g,l,3,7,15,31,63?,127,g,a,192,224,240,248,252,254,127,63?,31,15,7 b[3,l,g,b,a,a,a,a,a,a,b,b,l,l,l,l,l,l,b,60<,126~,b,b,b,b,126~,60< l x=1q v1950:x {1p$(x)+" ",v$,"bank/ acc.","__________",a(x)  (v$=d$(x):f(x)>0v$=d$(x)+f(x) x=fc01 z1915{:t=14:w$:(x-1)*4+t,22;w$:t:w$:1;x*4,22;w$:0: U;3;" Dymond Roulette";7;"";0;" " o$="____________________" y=316  y,0;"";y,21;"" y ,17,0;"" *4,2;"passe";4,15;"manque";6,1;o$;8,3;"pair";8,15;"impair";10 ,1;o$;16,2;"P M D" 4y=41612 >jd(y-2);11 ,y;"";12 ,y-1;"";13 ,y-1;"";14,y;"":y H 1400x $w=y(f,r1):w=w+1:c1=0 20,0;e$;a$;" ?" !c:ca(f)c>02300 Ec>a(f)a(f)>019,0;"Not enough money, bet less" 2c<119,0;"illegal bet"+l$+l$ `a(f)=020,0;"No money left to bet with":200:7040:3500  2260  7040 9a(f)=a(f)-c:f(f)=f(f)+c:x=f:1950:r1=4 #y(f,r1)=w:b=0b=46.: n0=0:9300T$ $ kg$="":r3=1:1700:7000X:c=1:f=1q:1900l:a(f)>0d$(f)="lost" a=46.3970 0i=13:h=0:w=1y(f,i) b=r(f,w,1,i) 3880(+i*20 w:y(f,i)=h:i F:z=14:m=h(f,z):h(f,z)=0:n=1m P h=0 Zy=1i(z) xb(f,z,n,y)=ah=1 y 3660L n:z @y=0:x=1q:y=y+a(x):x:y>20000 N3980 y+f(f)=02890J @4f:c=0:1900l:1400x:3420\ : JZ"I'm afraid that your games are over as I have all your money Another game? y/n";a$ O a$="y" S Ty=13 ^%(a+y)/3=((a+y)/3)l=y hy: Spin the wheel n$=" 00  32  15  19  04  21  02  25  17  34  06  27  13  36  11  30  08  23  10  05  24  16  33  01  20  14  31  09  22  18  29  07  28  12  35  03  26  00  32  15  19  04  21  02  35 " 18,31 $"| || || || || || || || |" L1=(*5)+2 H=1L1 #L2=((*7)+1)*6 .19,((l2+2)/6)*4;"" H=L13200 &T=12226 +.01z# =,0 0$20,0;N$(TT+47/) :T D.19,((l2+2)/6)*4;" " NH t=1̥*2226 .01z# =,0 =h=1t/20:h:20,0;N$(TT+47/) T "a=N$(T+L2-3t+L2-2) a=0a=46. )y=a:3400H :a=46.3390> 0y=39':a/2ɺ(a/2)y=40( 3400H %y=41)+d(a)/2:3400H &y=38&-(a/19):3400H 2900T :y=43+ l=1y=44, l=3y=45- <3400H :y=47/+((a-1)/12 ):3400H >Ot=14:i=01:.2~L,i*25:i:t:2500 : H+d(y);1;1;l(y),c(y);" ": \Xf=1q:i=13:w=1y(f,i):b=r(f,w,1,i):9300T$:w:i f<z=14:n=1h(f,z):9200#:n:z:f: Of:c=0:1900l:3000 :"Next round ";a$:7000X:120x od$(f)="Won":a(f)=a(f)+f(f):x=f:1950:t=15:x=140(t:0.02{# =,x:x:t: _r(f,h,1,i)=b:r(f,h,2,i)=r(f,w,2,i):f(f)=r(f,h,2,i)*p(i):3510 9hwr(f,w,1,i)=0:r(f,w,2,i)=0 $ Lh=1h(f,z)=h(f,z)+1:y=1i(z):b(f,z,h(f,z),y)=b(f,z,n,y):y:s(f,z,h(f,z))=s(f,z,n):f(f)=s(f,z,h(f,z))*t(z):3510 VMh=0h(f,z)ny=1i(z):b(f,z,n,y)=0:y:s(f,z,n)=0 ` <d(a)=d(b)b>40(a/2=(a/2)b=39'a/2ɺ(a/2)b=40(a18b=38&a>18b=37%h=h+1:3600: F3610: P b=ah=h+1:3600: Z3610: nl=3b=45-l=1b=44,l=2b=43+a12 b=47/a>12 a<25b=480a>24b=491h=h+1:3600: x3610: vi=132:y=12:w=13:y(f,1)=0:r(f,w,y,i)=0:w:y:i: 20,0;1;"Congratulations ";p$(f);" you broke the bank.":n=1100d:0.2~L,0:0.2~L,40(:n:"Another game. y/n";a$ a$="y"20  ^2,8;1;"Stop the tape";0;4,5;" Dymond Software 1982" S8,0;" "," "  " " "" "  " "  " " %" " 417,0;" For the sinclair ZX Spectrum"  p w=1:y=1m-1 ze(y)e(y+1)w=0 y:w0 y=1m:k(y)=37%  n=1m e(n)9100#:t=24:c1+f*4-3,l1+t:v8 $"roulette"0: baexcdgh0iHjkln<  bet 21  1!#g1 OO1  1              )passe manquepair impairblack red w2#(#q bet  1 Ccq!L MNKE How much on O____________________GbetlT$A1@W979;