DIE SPIELREGELN SIND EINFACH.
JEDER KANN BIS ZU 6 WETTEN AUF
'EINFACHE' ODER 'MEHRFACHE'
CHANCEN NACH WAHL ABSCHLIESSEN.
TRANSVERSALE, KOLONNEN, USW.
WERDEN MIT DEN ENTSPRECHENDEN
NUMMERN BEZEICHNET.
10 REM * ROULETTE *
20 WINDOW:CLS
25 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
30 PRINT " "
40 PRINT " "
50 PRINT " "
60 PRINT "";CHR$(191);" "
70 PRINT " "
75 PRINT:PRINT:PRINT:PAUSE 10
90 PRINT " "
100 PRINT " 0"
110 PRINT " 37123 "
120 PRINT " 38456 "
130 PRINT " 55 39789 56 "
140 PRINT " PASSE 40101112 MANQUE ";CHR$(159);
150 PRINT "";CHR$(158);CHR$(158);"41131415";CHR$(159);
160 PRINT " 57 42161718 58 ";
170 PRINT " PAIR 43192021 IMPAIR ";
180 PRINT " 44222324 ";
190 PRINT "45252627";
200 PRINT "NOIR 46282930 ROUGE ";
210 PRINT " P59 47313233 60 P ";
220 PRINT " 49 48343536 49";
230 PRINT " M ";CHR$(158);CHR$(158);CHR$(159);" ";CHR$(158);
235 PRINT CHR$(158);" M ";CHR$(159);""
240 PRINT " 50D ";CHR$(159);"52 53 54 D50"
250 PRINT " 100 51 51 AUS";
255 PRINT " "
256 PRINT:PRINT:PRINT:PRINT:PRINT
260 I=0:DIM RA$(37):DIM CO(37,7):DIM NA$(8)
270 FOR J=1 TO 37:FOR K=1 TO 7:READ CO(J,K):NEXT K,J
280 DATA 0,0,0,0,0,57,59,32,47,51,53,55,57,60,15,41,50,54,56,58,59,19,43
285 DATA 50,52,55
290 DATA 58,60,4,38,49,52,56,57,59,21,43,50,54,55,58,60,2,37,49,53,56,57
295 DATA 59,25,45
300 DATA 51,52,55,58,60,17,42,50,53,56,58,59,34,48,51,52,55,57,60,6,38,49
305 DATA 54,56
310 DATA 57,59,27,45,51,54,55,58,60,13,41,50,52,56,58,59,36,48,51,54,55
315 DATA 57,60,11
320 DATA 40,49,53,56,58,59,30,46,51,54,55,57,60,8,39,49,53,56,57,59,23,44
325 DATA 50,53
330 DATA 55,58,60,10,40,49,52,56,57,59,5,38,49,53,56,58,60,24,44,50,54,55
335 DATA 57,59
340 DATA 16,42,50,52,56,57,60,33,47,51,54,55,58,59,1,37,49,52,56,58,60,20
345 DATA 43,50
350 DATA 53,55,57,59,14,41,50,53,56,57,60,31,47,51,52,55,58,59,9,39,49,18
355 DATA 42,50
360 DATA 60,22,44,50,52,55,57,59,18,42,50,54,56,57,60,29,46,51,53,55,58
365 DATA 59,7,39
370 DATA 49,52,56,58,60,28,46,51,52,55,57,59,12,40,49,54,56,57,60,35,48
375 DATA 51,53,55
380 DATA 58,59,3,37,49,54,56,58,60,26,45,51,53,55,57,59
390 MO(1)=36:MO(2)=12:MO(3)=3:MO(4)=3:MO(5)=2:MO(6)=2:MO(7)=2
400 DATA "0","32"," 15 ","19"
410 DATA " 4 ","21"," 2 ","25"," 17 "
420 DATA "34"," 6 ","27"," 13 "
430 DATA "36"," 11 ","30"," 8 ","23"
440 DATA " 10 ","5 "," 24 ","16"
450 DATA " 33 ","1"," 20 ","14"," 31 "
460 DATA "9"," 22 ","18"," 29 "
470 DATA "7"," 28 ","12"," 35 ","3"
480 DATA " 26 "
490 FOR J=1 TO 37:READ RA$(J):NEXT
500 PRINT "DIE SPIELREGELN SIND EINFACH."
510 PRINT "JEDER KANN BIS ZU 6 WETTEN AUF":PRINT "'EINFACHE' ODER 'MEHRFACHE'"
520 PRINT "CHANCEN NACH WAHL ABSCHLIESSEN."
530 PRINT "TRANSVERSALE, KOLONNEN, USW."
540 PRINT "WERDEN MIT DEN ENTSPRECHENDEN"
545 PRINT "NUMMERN BEZEICHNET."
560 PRINT "ALLES KLAR ? DANN 'S' DRUECKEN!"
580 A$=INKEY$:IF A$<>"S"THEN 580
590 I=I+1
600 WINDOW 18,31,0,31:CLS
610 F1=1
620 IF I>8 THEN 8=8:GOTO 1510
630 PRINT I;".MITSPIELER, NAME";TAB(10):INPUT NA$(I)
640 KT(I)=1000
650 IF I=8 THEN 1510
660 PRINT "NOCH JEMAND ? ";
670 A$=INKEY$:IF A$="J"THEN 590
680 IF A$<>"N"THEN 670
690 GOTO 1510
700 WINDOW 18,31,0,39:CLS
710 PRINT
720 FOR X=1 TO I
730 PRINT X;".";NA$(X);TAB(15);"HAT";KT(X);"$"
740 NEXT
760 PAUSE 50
770 WINDOW 18,31,0,31:CLS
780 IF F1=1 THEN 820
790 PRINT "MOECHTE NOCH JEMAND EINSTEIGEN?";
800 A$=INKEY$:IF A$="J"THEN 590
810 IF A$<>"N"THEN 800
820 F=0:F1=0
830 FOR J=1 TO 6
840 FOR X=1 TO I
850 IF GE(X,J-1)=0 AND F>0 THEN 880
860 CLS
870 GOSUB 1820
880 GE(X,J)=0:FE(X,J)=0
890 IF F=0 THEN 910
900 IF GE(X,J-1)=0 THEN 1140
910 IF KT(X)=0 THEN 1140
920 PRINT " ";NA$(X);",";" (KTO=";KT(X);"$)"
930 INPUT " WIEVIEL DOLLAR ";GE(X,J)
940 IF GE(X,J)=0 THEN FE(X,J)=0:GOTO 1140
950 KT(X)=KT(X)-GE(X,J)
960 INPUT " AUF WELCHES FELD";FE(X,J)
970 IF FE(X,J)=100 THEN 1710
980 IF FE(X,J)=0 OR FE(X,J)>60 THEN 1000
990 IF GE(X,J)>1 OR GE(X,J)=0 THEN 1060
1000 PRINT " NICHT GESTATTET!";
1010 KT(X)=KT(X)+GE(X,J)
1020 PAUSE 50
1030 CLS
1040 GOSUB 1820
1050 GOTO 910
1060 IF KT(X)>=0 THEN 1140
1070 PRINT " * KONTO IST UEBERZOGEN!"
1080 KT(X)=KT(X)+GE(X,J):GE(X,J)=0:FE(X,J)=0
1090 PRINT " * KONTOSTAND=";KT(X)
1100 PAUSE 50
1110 CLS
1120 GOSUB 1820
1130 GOTO 910
1140 NEXT X
1150 F=1
1160 NEXT J
1170 CLS
1180 PRINT:PRINT:PRINT " RIEN NE VA PLUS!":PAUSE 20
1190 WINDOW 20,22,0,31:B1=200+200*RND(1)
1200 FOR B=1 TO B1
1210 RA=RA+1:IF RA=38 THEN RA=1
1220 CLS:PRINT RA$(RA);
1230 NEXT
1260 IF CO(RA,7)=60 THEN WO$="ROUGE, ":GOTO 1280
1270 WO$="NOIR, "
1280 IF CO(RA,6)=58 THEN WO$=WO$+"IMPAIR, ":GOTO 1300
1290 WO$=WO$+"PAIR, "
1300 IF CO(RA,5)=56 THEN WO$=WO$+"MANQUE":GOTO 1320
1310 IF CO(RA,5)=55 THEN WO$=WO$+"PASSE"
1320 PRINT " ";WO$
1340 PAUSE 50:WINDOW 22,31,0,31
1350 FOR X=1 TO I
1360 FOR N=1 TO 7
1370 FOR J=1 TO 6
1380 IF FE(X,J)=CO(RA,N)THEN 1400
1390 GOTO 1430
1400 IF RA=1 THEN GE(X,J)=GE(X,J)/2:GOTO 1420
1410 GE(X,J)=GE(X,J)*MO(N)
1420 KT(X)=KT(X)+GE(X,J)
1430 NEXT
1440 NEXT
1450 NEXT
1460 V=I
1470 FOR X=1 TO V
1480 IF KT(X)<2 THEN NA$(X)="":KT(X)=0:I=I-1
1490 NEXT
1500 IF I=0 THEN 1600
1510 U=0
1520 FOR D=2 TO 8
1530 IF KT(D)<=KT(D-1)THEN 1570
1540 K=KT(D):KT(D)=KT(D-1):KT(D-1)=K
1550 N$=NA$(D):NA$(D)=NA$(D-1):NA$(D-1)=N$
1560 U=1
1570 NEXT
1580 IF U>0 THEN 1510
1590 GOTO 710
1600 CLS
1610 PRINT "SCHOENEN DANK FUER DAS NETTE SPIELCHEN.";
1630 PRINT " "
1640 PRINT " BIS ZUM NAECHSTEN MAL"
1650 PRINT " "
1660 PRINT " EUER robotron Z1013"
1670 A$=INKEY$:IF A$=""THEN 1670
1680 IF A$<>"X"THEN PRINT " ":END
1690 RUN
1700 A$=INKEY$:IF A$<>"C"THEN 1700
1710 CLS
1720 PRINT " ";NA$(X);" STEIGT AUS"
1730 PRINT " UND ERHAELT ";KT(X)/100;"DM!"
1740 PRINT " BEZAHLT? DANN 'C' DRUECKEN."
1750 A$=INKEY$:IF A$<>"C"THEN 1750
1760 STOP
1770 GOTO 1418
1820 PRINT " FAITES VOTRE JEU,"
1830 PRINT " MESDAMES ET MESSIEURS.":PRINT
1840 RETURN
