Roulette < Roulette,  A.Parish  +:1:4:0::9900& 1;2;''"Stake your money";4;0;" when asked in whole numbers only - this is not the kind of joint where we bother with small change!" 2;1;'"Changing your mind";4;0;" is a sloppy thing to do but if you must, then stake 0 on the choice to cancel it. A previously made bet must stand." 2;1;'"Finish betting";4;0;" when you've laid all the stakes you wish by pressing the ";7;"SPACE";0; " key. The croupier will then close the table and spin the wheel..." 2@21,0;1;" Press any key to play ROULETTE!"; <ï60< K"4:9500%:m=500 PWn=218:n,0;c$:n:17,0;"Faites vos jeux":8000@ Z^1;15,160:1;491,0:n=219:n,0;c$:n dG3,0;" Stand by!!":100d:3,0;c$'c$ nn=0142:1;39'-n,127-n:1;0,9 +2*n:1;33!+2*n,0:1;0,-9 -2*n:1;-33!-2*n,0:n xTn=1̺(*20)+30:no=(*38&)+1:.007ye`A,no-19 2no=37%n$="0":4:9 :200 3no=38&n$="00":4:9 :200 n$=no:c(no)*2:9 /5,5;" "(3-n$);n$;" ":n Xno=37%1;1;8;8;2,17;" ":220 Xno=38&1;1;8;8;2,23;" ":220 y1;1;3+((no-1)/3),17+4*(no-1-3*((no-1)/3));" " =5,5;1;1;" ":4:0 C45-:8,4;n$;" ";:n$(1)="0"':250 /("black"c(no)=0);("red"c(no)=1)  w=0 #b(no)0w=w+36$*b(no) ,%no=37%no=38&1000 6%no/2=(no/2)350^ J$w=w+2*b(39'):360h ^w=w+2*b(40() hc(no)=1390 |$w=w+2*b(42*):410 w=w+2*b(41)) >n=13:c=no-n:c/3=(c/3)440 n .c=n+42*:b(c)0w=w+3*b(c) 7c=46.+((no-1)/3):w=w+12 *b(c) 6c=58:+((no-1)/6):w=w+6*b(c) 7c=64@+((no-1)/12 ):w=w+3*b(c) 7c=67C+((no-1)/18):w=w+2*b(c) %n=168D:b(n)=0:n ,m=m+w:m=0m10000'1100L 5''''''"You won `";w'"on that spin."''"You have `";m L21,0;1;" Do you wish to continue ? ";1;"y/n"; !a$=:a$"n"a$"y"1040 .21,0;c$;c$;:a$="n"1100L no<37%8;8;1;0;3+((no-1)/3),17+4*(no-1-3*((no-1)/3));" ":80P $Wno=37%1;0;8;8;2,17;" ":80P .Wno=38&1;0;8;8;2,23;" ":80P L 9900& VOm=0''"The House is happy to inform youthat you have no chips left!!!" [rm10000'''"You have broken the bank and we regret that we are going to haveto escort you from the house." `m<500''" You lost `";500-m;" and have kept"'" the house in business for another day!!"''" Please call again SOON!!" jm=500''" You left the house after having lost no money. You'll never get rich with that system of yours!" tom>500''" If you keep this up, you'll put us out of business!!"''" You made `";mon-500;"." ~4'''''" Do you want another game ?":a$:a$="n" a$"y"1150~  75K J]15,79O:0,81Q:491,0:0,-81Q:-491,0 TZn=110 :n+1,2;7;n-2*(n/2)+1;e$(n):n h y=1 rA1;1;8;8;y+1,2;" " |a$=:a$=""8060| a$=13 8100 Va$=" "n=50-1:.01z# =,n:.01z# =,n+13 :n:9060d# 8y+1,2;8;8;1;" " _y=y+(a$="6")-(a$="7"):y=y+(y=0)-(y=11 ):.02{# =,20-2*y:8050r Pn=05:.01z# =,n:.01z# =,n+13 :n:8100+y*502 %"Enter the number (1-36, 000)";b$ "b$="0 "a=37%:9000(# "b$="00 "a=38&:9000(# b$(3)" "8150 ab$(1)<"0"b$(1)>"9"((b$(2)<"0"b$(2)>"9")b$(2)" ")8150 b$>36$8150 a=b$:9000(# a=39':9000(# :a=40(:9000(# la=41):9000(# a=42*:9000(# !"Enter column number (1-3) ";b$ =b$(2)" "b$(1)<"1"b$(1)>"3"8400 a=42*+b$ 9000(# !'"Enter the first of the 3 numbers";b$ ! ab$(1)<"0"b$(1)>"9"((b$(2)<"0"b$(2)>"9")b$(2)" ")8450! !>b=b$-1:b/3ɺ(b/3)b>33!8450! ! a=46.+b/3 !* 9000(# !4'"Enter the first of the 6 numbers";b$ !>ab$(1)<"0"b$(1)>"9"((b$(2)<"0"b$(2)>"9")b$(2)" ")85004! !H>b=b$-1:b/6ɺ(b/6)b>3085004! !Ra=58:+b/6 !\ 9000(# !f'"Enter the 1st of the 12 numbers ";b$ !pab$(1)<"0"b$(1)>"9"((b$(2)<"0"b$(2)>"9")b$(2)" ")8550f! !z@b=b$-1:b/12 ɺ(b/12 )b>258550f! !a=64@+b/12 ! 9000(# !,"Enter 1 for 1-18, 2 for 19-36",b$ !=b$(1)<"1"b$(1)>"2"b$(2)" "8600! !a=66B+b$ #2S19,0;"You have `";m:"How much do you wish to place onthis bet ? ";b #7b09020<# #890168# #9 8050r #<1b>mb<0bɺbb(a)+b>50090102# #F+b(a)=b(a)+b:m=m-b:m=09060d# #P}13 19,0;"You have `";m;" ":n=15:.01z# =,0:.01z# =,13 :n:8050r #Z 9040P# #d8y+1,2;8;8;1;" " #n9070n# #x 25: %&m9900&:135,557:0,97a:232,152:0,-97a:-97a,0 %0n=011 :m=13:7;(2*c(3*n+m));n+3,13 +4*m;" ";:o=1̱(3*n+m)+1:8;:o:8;8;n*3+m:m:n %D135,152:0,8:491,0:0,-8:0,8:480,0:0,-8 %Ns2,19;"0";2,25;"00";15,17;" 1 2 3 ";20;"Column" %X   A.Parish 9/8/1982  &H:0,6;1;2;0;" MICROMEGA ROULETTE ": ED0%0%oya(ed icCWD$C  A NumberOdd Even Red Black Column3 nos 6 nos 12 nos18 nosb@w30 N11An