Roulette dd%dA23658j\,0:236099\,30:23561 \,10 @b$=" ":null=0:dur=0:0:0:7: w$=" " B8,0;w$;15,4;" ANDREAS EIFERT (1984)" F`#0;4;0;1;1,2;"ROULETTE - BITTE WARTEN !":3050 LF#0;1,0;1;"ERKLAERUNGEN GEWUENSCHT ? (j/n)" V&="n".1}L,12 :1760 `"j"1110V ~<.1}L,12 :5:5:0::3160X '''"Das Roulette gilt als interes- santestes Gesellschaftsspiel, daes von mehreren Personen gleich-zeitig gespielt werden kann und unerschoepfliche Einsatz- und Gewinnmoeglichkeiten bietet." u''"Es koennen von jedem Spieler gleichzeitig verschiedene Ein- saetze auf Chancen und Zahlen gemacht werden." o''"Als naechstes werden die ver- schiedensten Setzungsmoeglich- keiten an einem Roulettetisch erklaert."  3900< 1;5,25;1;6;"V";6,13 ;"V":6,22;"Volle Zahl";7,22;"(pleine)":9 ,22;"*35-facher";10 ,22;"Gewinn" 12 ,25;1;7;"Z";15,9 ;"ZZ":13 ,22;"Zwei ver-";14,22;"bundene";15,22;"Zahlen";16,22;"(cheval)";18,22;"17-facher";19,22;"Gewinn"  3900< 11;5,25;1;6;"T";7,14;"T":6,22;"Querreihe";7,22;"von drei";8,22;"Zahlen";9 ,22;"(trans-";10 ,22;"versale";11 ,22;"pleine)";13 ,22;"*11-facher";14,22;"Gewinn" (16,25;1;7;"C";11 ,9 ;"CC";12 ,9 ;"CC":17,22;"Viereck";18,22;"(carre)";20,22;"8-facher";21,22;"Gewinn" 2 3900< F1;5,25;1;6;"0";4,14;"0":6,22;"ersten 4";7,22;"Zahlen";8,22;"(0,1,2,3)";10 ,22;"8-facher";11 ,22;"Gewinn" P13 ,25;1;7;"T";13 ,14;"T";14,14;"T":14,22;"zwei Quer-";15,22;"reihen";16,22;"(trans-";17,22;"versale 6)";19,22;"* 5-facher";20,22;"Gewinn" Z 3900< x1;5,25;1;6;"C";18,8;"C";18,10 ;"C";18,13 ;"C":6,22;"1 Laengs-";7,22;"reihe von";8,22;"12 Zahlen";9 ,22;"(Colonne)":3950n  3900< 1;5,25;1;6;"1";18,1;"1":6,22;"1. Dutzend";7,22;"1-12 (12p)" 9 ,25;1;7;"2";18,17;"2":10 ,22;"2. Dutzend";11 ,22;"13-24(12m)" 7;1;13 ,25;1;1;"3";18,6;"3":14,22;"3. Dutzend";15,22;"25-36(12d)" 3950n:3900< ܞ1;5,25;1;6;"P";11 ,3;"P":6,22;"gerade";7,22;"Zahlen";8,22;"2,4,6 etc." 11 ,25;1;7;"I";11 ,18;"I":12 ,22;"ungerade";13 ,22;"Zahlen";14,22;"1,3,5 etc." 3940d:3900< 1;5,25;1;6;"R";16,18;"R":6,22;"rote";7,22;"Zahlen";8,22;"7,9,12 etc" "11 ,25;1;7;"N";16,3;"N":12 ,22;"schwarze";13 ,22;"Zahlen";14,22;"6,8,17 etc" ,3940d:3900< J1;5,25;1;6;"M";7,18;"M":6,22;"erste";7,22;"Haelfte";8,22;"(1 - 18)" T11 ,25;1;7;"P";7,3;"P":12 ,22;"zweite";13 ,22;"Haelfte";14,22;"(19 - 36)" ^$3940d:3280 :3160X |f'''"Gewinnt die Null, so wird ein Sonderfall eintreten, der im Programm genau besprochen wird." \'"Als Mindesteinsatz wird DM 10.- verlangt und das Limit liegt beiDM 100,000.- pro Spiel." '"Jeder Spieler hat ein Konto mit einem Betrag von DM 5,000.- und kann ueber das Konto frei ver- fuegen."'"Der Computer uebernimmt die Ge- schaefte der Bank und verfuegt ueber ein Konto mit DM 1000000."  3280 b$="HELP"2325 b$="1HELP"2325 @0:5:5:0::null=0:3160X ,5,0;6;"SPIELEREINGABE" V''"Gebe die Anzahl der Spieler ein,die mitspielen wollen. (max. 4 Spieler)" =""1810 <"1"Ŧ>"4"1810 &spi=:.1}L,12 0)''"Es wurden ";spi;" Spieler gewaehlt." 56h(spi,6):n$(spi,10 ):n(5):a(spi) 6:23658j\,8 :i=1spi D5("Gebe den Namen des ";i;". Spielers ein: ");n$(i) N8"Spieler ";i;": ";n$(i):n(i)=5000:a(i)=0 Xi:n(5)=1000000t$ g 3280 B: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 "ROUGE","NOIR","IMPAIR","PAIR","MANQUE","PASSE","12 P","12 M","12 D","1. COLONNE","2. COLONNE","3. COLONNE","ERSTEN 4 ZAHLEN" 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 4rn=(*36$)+1 aYrn=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;"PLEINE";4,24;"CHEVAL";5,24;"TRANSV.";6,24;"PLEINE";7,24;"CARRE";8,24;"ERSTEN 4";9 ,24;"TRANSV.";10 ,24;"SECHS";11 ,24;"COLONNE" .13 ,22;148;149;" ";148;150;" ";148;151;14,22;"PAIR";15,22;"IMPAIR";16,22;"ROUGE";17,22;"NOIR";18,22;"MANQUE";19,22;"PASSE" 0#dur=1b$="HELP"2500 1b$="1HELP"2560 3#0;1;7;0,0;"GEBE BEI DER EINGABE DEN CODE- BUCHSTABEN (HELLBLAU) ODER DAS GANZE WORT (AB 12P) EIN. ":500 5#0;6;0,0;"SOLLTE DER SPIELER KEINEN EIN- SATZ MEHR MACHEN WOLLEN, EINFACH 'ENTER' DRUECKEN! ":500 ΢7;2,0;"ERKLAERUNG=HELP SPIELENDE=END";1,0;("KONTO:";n(i));1,18;"WEITER='ENTER'";0,0;"EINSATZ:";h$ h$=""b$=" ":2700 h$="END"4210r h$="HELP"b$=h$:1140t Gh$(1)>579h$(1)<4803600:2510 h$<10 Űh$>100000CP#0;7;1,0;"Betrag DM10.- + 100000.- erlaubt";0,0;"FALSCHER BETRAG!":300,:2510 vn(i)-h$ <0#0;7;"DU GIBST MEHR GELD AUS, ALS DU AUF DEINEM KONTO HAST!":300,:2510 bh$ -(h$)0#0;7;" GEBE NUR GANZE EINSAETZE EIN! ":300,:2510 8n(i)=n(i)-h$:n(5)=n(5)+h$:k(i)=1 7;2,0;"ERKLAERUNG=HELP SPIELENDE=END";1,0;("KONTO:";n(i));0,0;("EINSATZ:";h$;" CHANCE:");a$ a$="END"4210r "a$="HELP"b$="1"+a$:1140t a$="12P"4250 a$="12M"4260 a$="12D"4270 a$="PAIR"4280 #a$="IMPAIR"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 rn0null=0 dur=1:i=1spi a(i)=02710 'i:3160X :3200 :3400H o:3160X :3200 :0,22;"GESETZTE";1,22;"CHIPS";2,22;"--------" ?#0;1;5;"WELCHE EINSAETZE WURDEN GEMACHT?" 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);3+i;(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;" (Nichts geht mehr) ";0,0;" R I E N N E V A P L U S ":3000 e16,22;"GEZOGENE";17,22;"ZAHL:";19,22;1;" ";rn;" " J#0;0,0;" ":3280 5:5: i=1spi sch=0:j=5 'k(i)1a(i)=12975 o3630.:1,18;"KONTO: ";n(i):6;3,0;"CHANCE:";3,16;"GEWINN:" ,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;"Konto: ";n(i);3,0;6;"Gewinn:";5;'''"In diesem Durchgang hattest Du leider kein Glueck." ln(i)0a(i)=0''"Dein Konto ist gepluendert und Du musst dem Spiel zuschauen.":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;"CHANCE:";3,16;"Gewinn:";5;5,1;"Konto: ";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}L,0: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 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 '0,-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: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;"IMPAIR";18,1;148;149;148;150;148;151;18,15;148;149;148;150;148;151: V#0;1,3;"DRUECKE IRGENDEINE TASTE":0:.1}L,12 :: 0,22;"KONTEN:";1,22;"------";4;3,22;"BANK: ";4,22;"DM ";n(5) we=6:i=1spi a(i)=133804 =5;we,22;n$(i);we+1,22;"DM ";n(i) *we=we+3 4i:we6 I23658j\,0 M#0;1;6;0;0,0;"DAS SPIEL IST VORBEI ";1,0;" NEUES SPIEL (j/n)? " R&="j".1}L,12 :1760 \"n"3410R pD.1}L,12 :7:7:0:0:0:: &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;"BANK IST GESPRENGT":200:3400H D#0;1,7;1;"FALSCHE EINGABE!":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 PO3200 :2,21;"SPIELREGELN";3,21;"-----------": d?17,22;"* 1-facher";18,22;"Gewinn": n?17,22;"* 2-facher";18,22;"Gewinn": 7;0,0;("EINSATZ:";h$;" CHANCE: colonne";1,0;"KONTO:";n(i);2,0;"Welche Colonne? (1-2-3)");b$ b$=""4004 9b$(1)>480b$(1)<5244005 3600:4000 b=b$ n=134"3 %rn=nf(i,2,10 )=1 -rn=n+1f(i,2,11 )=1 -rn=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;("EINSATZ:";h$;" CHANCE: transv. 6";1,0;"KONTO:";n(i);2,0;"1. Zahl der transv.6?");b$ b$=""4050 n=1313 b$=n4051 n 3600:4045 b=b$ n=05 Zrn=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 Ern=0rn=1rn=2rn=3f(i,2,d)=1 ,i=1i=3y=7:4082  3670V 7;0,0;("EINSATZ:";h$;" CHANCE: carre";1,0;"KONTO:";n(i);2,0;"kleinste Zahl des carre?");b$ b$=""4119 9b$(1)<480b$(1)>5794119 n=333!3 b$=n4119  n:b=b$ "b<1b>32 4119 rn=brn=b+1rn=b+3rn=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;("EINSATZ:";h$;" CHANCE:transv.pl.";1,0;"KONTO:";n(i);2,0;"1. Zahl der transv. pleine?");b$:b$=""4130" n=134"3  b$=n4131# !n "3600:4125 #b=b$ $prn=brn=b+1rn=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;("EINSATZ:";h$;" CHANCE: cheval";1,0;"KONTO:";n(i);2,0;"Gebe die 2 Zahlen ein:");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 `Vrn=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 w:3160X :5,0;6;"SPIELENDE VON ";n$(i):''"Du beendest das Spiel mit einem Kontostand von ";n(i);" DM." Wn(i)>5000'"Du erspieltest eine Gewinn von",n(i)-5000;" DM.":4235 Pn(i)=5000'"Du hast gluecklicherweise kein Geld verloren.":4235 In(i)<5000'"Du hast leider ";5000-n(i);" DM.","verspielt." n(i)=0:a(i)=1 3280 :2700 +rn<13 f(i,2,7)=1 &i=1i=2y=i:4257 y=i+12 #x=18:d=7:3670V 7rn>12 rn<25f(i,2,8)=1 .i=1i=2y=i+2:4267 y=i+14 #x=18:d=8:3670V +rn>24f(i,2,9 )=1 .i=1i=2y=i+4:4277 y=i+16 #x=18:d=9 :3670V rn=04282 B(rn/2-(rn/2))=0f(i,2,4)=1 Bd=4:null0f(i,3,4)04600 x=11 :y=i:3670V rn=04292 B(rn/2-(rn/2))0f(i,2,3)=1 Bd=3:null0f(i,3,3)04600 &x=11 :y=i+14:3670V rn=04302 rn =1rn=3rn=5rn=7rn=9 rn=12 rn=14rn=16rn=18rn=19rn=21rn=23rn=25rn=27rn=30rn=32 rn=34"rn=36$f(i,2,1)=1 Bd=1:null0f(i,3,1)04600 &x=16:y=i+14:3670V rn=04312 rn=2rn=4rn=6rn=8rn=10 rn=11 rn=13 rn=15rn=17rn=20rn=22rn=24rn=26rn=28rn=29rn=31rn=33!rn=35#f(i,2,2)=1 Bd=2:null0f(i,3,2)04600 x=16:y=i:3670V rn=04322 +rn<19f(i,2,5)=1 Bd=5:null0f(i,3,5)04600 %x=7:y=i+14:3670V rn=04332 +rn>18f(i,2,6)=1 Bd=6:null0f(i,3,6)04600 x=7:y=i:3670V }'"Die Gewinnzahl ist '0' und alle Einsaetze werden eingezogen, mitAusnahme von Pair, Impair, Noir,Rouge, Passe und Manque." '"In diesem sechs Faellen kann derSpieler den halben Einsatz zu- rueckverlangen (1) oder den Ein-satz fuer das naechste Spiel mitvollem Wert stehen lassen (2)."''"Welche Regelung moechtest Du haben ? (1 oder 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;"Konto: ";n(i);3,0;6;"CHANCE:";3,16;"GEWINN:":2850" "2"4530 &.1}L,12 :n=16 h(i,n)=f(i,3,n) n:2975 #0;7;1;"ACHTUNG!";0;"Chance mit ";f(i,3,d);" DM be-";'"setzt (Nullregel)":200:200:2510  h5,6,7,8,9 ,10 ,11 ,12 ,13 ,14,15,16 '&:9990':"Roulette"1:""