G(? q`ǪD:\6812345);9 ,9 ;"";10 ,8;"";10 ,10 ;"" s20,0;"WIN : stake x 35 ":1;11 ,18;"";12 ,18;"" {500:20,0;"  ":1;11 ,18;"";12 ,18;"" 21,15;"GAME":3500 )Initialisierung va$=" 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 " a$=a$+a$+a$+a$ 2g(4):n=1spieler:g(n)=500:n y(4,4,13 ) ;v(18):9000(#:n=118:a:v(n)=a:n z(4) ^p(4):p(1)=1:p(2)=4:p(3)=14:p(4)=17  4Chips setzen :k=1anzahl:y(4,4,13 ):n=1 .w=1spieler:g(w)=13510 Sw:" ":#1;"Nobody has got anymore money":n=1400:n:20 " " g(n)=0" ":20,0;"Sorry, but you haven't got any more money ":j=1400:j:4230 m=14:ch=m l20,0;"Please move your chip Player ";n:21,0;"using the CURSOR KEYS" c$=(143+n) chiph=9 :chipb=4 ?" ":#1;"9...set chip 0...set last chip " :3630. k$=:k$=""3560 k$="9"3650B k$="0"m=10 :3650B 31;٫(chiph,chipb)-568;chiph,chipb;c$ >chiph=chiph+(k$="6")-(k$="7"):chipb=chipb+(k$="8")-(k$="5") Ichipb<5(chiph>11 chiph<7)chipb=5:3600  chipb<4chipb=4  chipb>30chipb=30 9chiph<5chipb30chiph=5:3620$ chiph<1chiph=1 $;chiph>13 chipb30chiph=13 :3630. ) chiph>17chiph=17 .A1;((chiph,chipb)-568);chiph,chipb;c$:3560 B$"How mouch $ is this chip ? ";wert C0wertwertżwert<1wert>g(n)3650B Db=chipb:h=chiph Eb=41;8,4;c$:y(n,ch,1)=-1:y(n,ch,13 )=wert*36$:9 ,4;"O":4160@ Lb=304100 Qh53700t VEb<13 y(n,ch,1)=40(:y(n,ch,13 )=wert*2 `Pb<21b>13 y(n,ch,1)=42*:y(n,ch,13 )=wert*2 jEb>21y(n,ch,1)=44,:y(n,ch,13 )=wert*2 th13 3740 ~Eb<13 y(n,ch,1)=41):y(n,ch,13 )=wert*2 Pb>13 b<21y(n,ch,1)=43+:y(n,ch,13 )=wert*2 Eb>21y(n,ch,1)=45-:y(n,ch,13 )=wert*2 h63800 b=5y(n,ch,1)=0:y(n,ch,2)=3:y(n,ch,3)=2:y(n,ch,4)=1:y(n,ch,13 )=wert*9 :3800 ,b/2-(b/2)03780 we=(b-4)*3/2:y(n,ch,1)=we:y(n,ch,2)=we-1:y(n,ch,3)=we-2:y(n,ch,13 )=wert*12 :3800 lwe=(b-5)*3/2:y(n,ch,1)=we:y(n,ch,2)=we-1:y(n,ch,3)=we-2 ΋we=(b-3)*3/2:y(n,ch,4)=we:y(n,ch,5)=we-1:y(n,ch,6)=we-2:y(n,ch,13 )=wert*6 h73850  ,b/2-(b/2)=03830 pwe=(b-5)*3/2:y(n,ch,1)=we:y(n,ch,2)=we+3:y(n,ch,13 )=18*wert Twe=(b-4)*3/2:y(n,ch,1)=we:y(n,ch,13 )=wert*36$  h83900< ,b/2-(b/2)=038902 we=(b-5)*3/2:y(n,ch,1)=we:y(n,ch,2)=we+3:y(n,ch,3)=we-1:y(n,ch,4)=we+2:y(n,ch,13 )=9 *wert 2pwe=(b-5)*3/2:y(n,ch,1)=we:y(n,ch,2)=we+3:y(n,ch,13 )=18*wert <h9 3950n F,b/2-(b/2)=03930Z P|we=((b-5)*3/2)-1:y(n,ch,1)=we:y(n,ch,2)=we+3:y(n,ch,13 )=18*wert Z^we=((b-4)*3/2)-1:y(n,ch,1)=we:y(n,ch,13 )=wert*36$ nh10 4000 x,b/2-(b/2)=03990 we=((b-5)*3/2)-1:y(n,ch,1)=we:y(n,ch,2)=we+3:y(n,ch,3)=we-1:y(n,ch,4)=we+2:y(n,ch,13 )=9 *wert zwe=((b-5)*3/2)-1:y(n,ch,1)=we:y(n,ch,2)=we+3:y(n,ch,13 )=18*wert h11 4050 ,b/2-(b/2)=04030 zwe=((b-5)*3/2)-2:y(n,ch,1)=we:y(n,ch,2)=we+3:y(n,ch,13 )=18*wert ^we=((b-4)*3/2)-2:y(n,ch,1)=we:y(n,ch,13 )=wert*36$ h12 4099 ܚb=5y(n,ch,1)=0:y(n,ch,2)=3:y(n,ch,3)=2:y(n,ch,4)=1:y(n,ch,13 )=wert*9 :4100 ,b/2-(b/2)04090 we=(b-4)*3/2:y(n,ch,1)=we:y(n,ch,2)=we-1:y(n,ch,3)=we-2:y(n,ch,13 )=wert*12 :4100 lwe=(b-5)*3/2:y(n,ch,1)=we:y(n,ch,2)=we-1:y(n,ch,3)=we-2 we=(b-3)*3/2:y(n,ch,4)=we:y(n,ch,5)=we-1:y(n,ch,6)=we-2:y(n,ch,13 )=wert*6 b304160@ Yh=1h=17q=112 :y(n,ch,q)=q:y(n,ch,13 )=wert*3:q bh=3h=15q=112 :y(n,ch,q)=q+12 :y(n,ch,13 )=wert*3:q "bh=5h=13 q=112 :y(n,ch,q)=q+24:y(n,ch,13 )=wert*3:q ,Vh=7q=112 :y(n,ch,q)=q*3:y(n,ch,13 )=wert*3:q 6^h=9 q=112 :y(n,ch,q)=q*3-1:y(n,ch,13 )=wert*3:q @g(n)=g(n)-wert E.p(n),0;" ";p(n),0;g(n);"$" |m $n=n+1:nspieler3510 " " IRien ne va plus ! S9 ,4;"O";20,0;" Rien ne  va plus " Kfrom=(*112p+1)*3+1:n=from+1̱a$-31: R21,0;4;a$((n-from)(n-from)+31):.01z# =,30:n Cd$=((21,15)):f$=((21,16)):za=(d$+f$) Xzahl=za:21,16;"":4:20,16;"":502 / Win ? S19,0;6;" ":1:6 zahl=019,0;"  0  ":z(1)=0:z(2)=-1:z(3)=-1:z(4)=-1:zahl0=1:4700\ zahl0=12 dn=118:zahl=v(n)z(1)=44,:19,0;2;"ROUGE":4620  2n:z(1)=45-:19,0;"NOIR"  bn=135#2:n=zahlz(2)=42*:19,10 ;"IMPAIR":4630 3n:z(2)=43+:19,10 ;"PAIR" Lzahl>18z(3)=41):19,20;"PASSE":4640  2z(3)=40(:19,20;"MANQUE"  *z(4)=zahl:19,29;zahl f#1;"  PLEASE WAIT !!! ":c=14:n=1spieler:m=14:b=1zahl0:y(n,m,b)=z(c)g(n)=g(n)+y(n,m,13 ) pb:m:n:c:0:7 z5000:k " ":19,0;"END, Press: ~c~ to continue ~s~ to start again ~e~ to exit "  ="e" ="s"500 ="c"4790  4750 ~19,0;"How many rounds do you want to continue ?6 ":anzahl #k=0:5000:3500 ' Filzplan d:43+,171:209,0:0,-144:-209,0:0,144 An=76L124|16:43+,n:209,0:n {107k,171:0,-144:171,171:0,-144:235,171:0,-144 M43+,76L:-16,0:43+,124|:-16,0 Bn=2723016:n,124|:0,-480:n Bn=15644,-16:235,n:16,0:n Δn=111 :2:192+n,147+(n/2):10 ,-5:0:192+n,513+(n/2):10 ,-5:n ؎1;7,6;"3 6 9 ";9 ,4;"O 2 5 8 ";11 ,6;"1 4 7 " }1;7,12 ;" ";9 ,12 ;" ";11 ,12 ;" " 2:1:7,6;" ";7,10 ;" ";7,12 ;" ";7,16;" ";7,18;" ";7,22;" ";7,24;" ";7,28;" " X9 ,8;" ";9 ,14;" ";9 ,20;" ";9 ,26;" " 11 ,6;" ";11 ,10 ;" ";11 ,16;" ";11 ,18;" ";11 ,22;" ";11 ,28;" "  0:3,7;"MANQUE";3,15;"IMPAIR";15,7;"PASSE";15,16;"PAIR";1,23;"ROUGE";17,23;"NOIR" 1,30;"P";17,30;"P";3,30;"M";15,30;"M";5,30;"D";13 ,30;"D" g0,0;"Sp.1:";3,0;"Sp.2:";13 ,0;"Sp.3:";16,0;"Sp.4:" (1,0;g(1);"$";4,0;g(2);"$";14,0;g(3);"$";17,0;g(4);"$" 29 ,0;k+1 F0:0:7: #(1,3,5,7,9 ,12 ,14,16,18,19,21,23,25,27,30,32 ,34",36$ '\19,0;:""::10 ,8;" STOP THE TAPE ":200:1 Z@ROULETTEROULETTEROULETTEROULETTEROULETTEROULETTEROULETTEROULETTE"" dd!q]TEROULETTEA-]-<*,+,?MMǁd$!1d7~~<~~< ` @ @ ` @@GG<~~<#|!45600 51;spieler :L10 ,1;"How many rounds do you want to play ? ( 1 ) : "; D#anzahl:anzahl<1580D I1;anzahl K200:3000 L k=0 N)rules=05000:3500  X+ RULES b 5000 gM1,15;"RULES":150:1,15;" " l9n=2021:m=031:n,m;" ":m:n v19,0;"This symbol ~~ shows where you can put your chip and the win- ning numbers are underlined":400 9n=1921:m=031:n,m;" ":m:n 5,6;1;6;"":n=812 2:m=6162:n,m;1;"":m:n:20,0;"WIN : stake x 1" 20,16;"1-18" x500:5,6;" ":n=812 2:m=6162:n,m;1;"":m:n 13 ,6;1;6;"":n=812 2:m=18282:n,m;1;"":m:n 20,16;"19-36" z500:13 ,6;" ":n=812 2:m=18282:n,m;1;"":m:n 5,14;1;6;"":n=6264:m=812 4:m,n;1;"":m:n:n=8284:10 ,n;1;"":n %20,16;"uneven numbers" 500:5,14;" ":n=6264:m=812 4:m,n;1;"":m:n:n=8284:10 ,n;1;"":n ƺ13 ,14;1;6;"":n=8284:m=812 4:m,n;1;"":m:n:n=6264:10 ,n;1;"":n %20,16;"even numbers " г500:13 ,14;" ":n=8284:m=812 4:m,n;1;"":m:n:n=6264:10 ,n;1;"":n ں5,22;6;1;"":1;8,6;" ";10 ,6;"    ";12 ,6;"   " #20,16;"red numbers " 500:5,22;" ":1;8,6;" ";10 ,6;"    ";12 ,6;"   " 13 ,22;1;6;"":1;8,6;"    ";10 ,6;" ";12 ,6;"  " $20,16;"black numbers" 500:13 ,22;" ":1;8,6;"    ";10 ,6;" ";12 ,6;"  ";20,0;" " 20,0;"WIN : stake x 2";1,30;1;"";17,30;"":n=612 2:m=812 2:1;m,n;"":m:n '20,16;"1-12 "  500:1,30;"P";17,30;"P":n=612 2:m=812 2:1;m,n;"":m:n 3,30;1;"";15,30;"":n=14202:m=812 2:1;m,n;"":m:n 20,16;"13-24"  500:3,30;"M";15,30;"M":n=14202:m=812 2:1;m,n;"":m:n *5,30;1;"";13 ,30;"":n=22282:m=812 2:1;m,n;"":m:n +20,16;"25-36" 4500:5,30;"D";13 ,30;"D":n=22282:m=812 2:1;m,n;"":m:n >`7,30;1;"":n=6282:8,n;1;"":n ?"20,16;"first dozen" HZ500:7,30;" ":n=6282:8,n;1;"":n Ra9 ,30;1;"":n=6282:10 ,n;1;"":n S#20,16;"second dozen" \[500:9 ,30;" ":n=6282:10 ,n;1;"":n fb11 ,30;1;"":n=6282:12 ,n;1;"":n g#20,16;"third dozen " p\500:11 ,30;" ":n=6282:12 ,n;1;"":n 20,0;"WIN : stake x 8":1;12 ,5;"";8,6;"";10 ,6;"";12 ,6;"";10 ,4;"";0;20,16;" " 500:1;12 ,5;"";8,6;"";10 ,6;"";12 ,6;"";10 ,4;"" 20,0;"WIN : stake x 5 EXAMPLE !!!":1;6,15;"";8,14;"";10 ,14;"";12 ,14;"";8,16;"";10 ,16;"";12 ,16;"" 500:1;6,15;"";8,14;"";10 ,14;"";12 ,14;"";8,16;"";10 ,16;"";12 ,16;"" 20,0;"WIN : stake x 11":1;6,20;"";8,20;"";10 ,20;"";12 ,20;"" o500:1;6,20;"";8,20;"";10 ,20;"";12 ,20;"" 20,0;"WIN : stake x 8 ":1;10 ,25;"";10 ,24;"";10 ,26;"";12 ,24;"";12 ,26;"" ʈ500:1;10 ,25;"";10 ,24;"";10 ,26;"";12 ,24;"";12 ,26;"" ԇ20,0;"WIN : stake x 17 ":1;9 ,9 ;"";10 ,8;"";10 ,10 ;"" W500:1