10 REM * CASINO by Ronleigh Dale, Box 70252, Reno Nevada 89570, 702/825-6060
20 REM *  v1.1, 7/30/86
30 PRINT CHR$(26):PRINT CHR$(27)+CHR$(46)+CHR$(48)
35 CLEAR
40 GOSUB 7300
50 PRINT"CASINO
60 PRINT:PRINT:PRINT:PRINT
70 PRINT"MENU
80 PRINT:PRINT
90 PRINT"1. BACCARAT
100 PRINT"2. BLACKJACK
110 PRINT"3. ROULETTE
120 PRINT"0. EXIT
130 PRINT
140 INPUT X
150 IF X=0 THEN 7320
160 ON X GOTO 170,1860,5130
170 REM * Revised for TeleVideo TPC-I/Osborne Executive by Ronleigh Dale,
180 REM *  Box 70252, Reno Nevada 89570, 702/825-6060, v1.2, 7/21/86
190 REM * This program has been modified for improved display and to 
200 REM *  conform to Nevada casino rules.  This program was originally 
210 REM *  found on FOG/GAM.003 
220 PRINT CHR$(26)
230 PRINT CHR$(27)+CHR$(46)+CHR$(48)
240 PRINT CHR$(26)
250 PRINT "CASINO BACCARAT - CHEMIN DE FER"
260 FOR Z=1 TO 20:PRINT:NEXT Z
270 PRINT "DO YOU WISH TO SEE THE INSTRUCTIONS (Y/N)";
280 INPUT Q$
290 IF Q$<>"y" THEN IF Q$<>"Y" THEN 420
300 PRINT CHR$(26)
310 PRINT "   BACCARAT IS A VERY POPULAR GAME IN LAS"
320 PRINT"VEGAS. THE PLAYER AND BANKER EACH RECEIVE"
330 PRINT"TWO CARDS FROM A 'SHOE' CONTAINING 8 DECKS"
340 PRINT"OF CARDS. ALL CARD COMBINATIONS TOTALING"
350 PRINT"TEN ARE NOT COUNTED. THE ONE THAT ENDS UP"
360 PRINT"CLOSER TO NINE WINS. THE STAKES ARE HIGH;"
370 PRINT"ALL OF THE PLAYERS START WITH TEN THOUSAND
380 PRINT"DOLLARS. YOU CAN BET ON THE BANKER OR THE"
390 PRINT"PLAYER. A THIRD CARD IS GIVEN ONLY UNDER"
400 PRINT"CERTAIN CONDITIONS, AS YOU WILL SEE. LET"
410 PRINT"US BEGIN.   GOOD LUCK!!"
420 PRINT:RANDOMIZE:PRINT
430 DIM M(20),F1(20),F(20),B$(13),V(13),G$(20)
440 DIM Z(9,10),Q(4,13)
450 FOR X=3 TO 6
460   FOR Y=1 TO 10
470     READ Z(X,Y)
480 NEXT Y,X
490 FOR S1=1 TO 10:READ W(S1):NEXT
500 FOR S1=1 TO 4:READ A$(S1):NEXT
510 FOR S1=1 TO 13:READ B$(S1):NEXT
520 FOR S1=1 TO 13:READ V(S1):NEXT
530 PRINT
540 PRINT
550 PRINT"HOW MANY PLAYERS";
560 INPUT P1
570 FOR J=1 TO P1
580   PRINT"PLAYER'S NAME"J;
590   INPUT G$(J)
600   M(J)=10000
610 NEXT J
620 FOR S1=1 TO 4
630   FOR S2=1 TO 13
640     Q(S1,S2)=0
650   NEXT S2
660 NEXT S1
670 FOR J=1 TO 6
680   C=INT(1+RND(1)*4)
690   D=INT(1+RND(1)*13)
700   Q(C,D)=Q(C,D)+1
710   IF Q(C,D)>=32 THEN 680
720   B(J)=V(D)
730   C$(J)=B$(D)+"  "+A$(C)
740 NEXT J
750 W1=2
760 FOR J=1 TO P1
770   IF M(J)<1 THEN 890
780 PRINT
790   PRINT G$(J)" HAS $"M(J)"  BET";
800   INPUT F(J)
810   IF F(J)>1000 THEN PRINT"TABLE LIMIT IS $1000":GOTO 790
820   IF F(J)>M(J) THEN 790
830   IF F(J)<>INT(F(J)) THEN 790
840   IF F(J)<1 THEN 10
850   PRINT" ON (1)BANKER (2)PLAYER";
860   INPUT F1(J)
870   IF F1(J)>=1000 THEN 790
880   IF (F1(J)-1)*(F1(J)-2)<>0 THEN 850
890 NEXT J
900 J=0
910 T1=B(1)+B(2)
920 T2=B(3)+B(4)
930 PRINT
940 PRINT CHR$(26)
950 GOSUB 7310
960 PRINT"PLAYER
970 PRINT C$(1)
980 PRINT C$(2)
990 PRINT
1000 PRINT TAB(21)"BANKER"
1010 PRINT TAB(21) C$(3)
1020 PRINT TAB(21) C$(4)
1030 REM * DETERMINE IF HAND TOTAL IS GREATER THAN 9
1040 REM * IF HAND TOTAL IS GREATER THAN 9 THEN SUBTRACT 10
1050 IF T1<10 THEN 1070
1060 T1=T1-10:IF T1=8 AND T2=8 THEN 1410:IF T1=8 OR T1=9 THEN 1420
1070 IF T2<10 THEN 1090
1080 T2=T2-10:IF T1=9 AND T2=9 THEN 1410:IF T2=8 OR T2=9 THEN 1420
1090 REM *
1110 IF T1=8 OR T1=9 THEN 1420:REM * ROUTINE FOR A 'NATURAL'
1120 IF T2=8 OR T2=9 THEN 1420
1130 IF W(T1+1)=0 THEN 1200
1140 PRINT:PRINT"PLAYER DRAWS"
1150 PRINT C$(5)
1160 T1=T1+B(5)
1170 IF T1<10 THEN 1220
1180 T1=T1-10
1190 GOTO 1220
1200 PRINT:PRINT"PLAYER STANDS"
1210 J=11
1220 PRINT"PLAYER TOTAL "T1
1230 PRINT
1240 IF T2<3 THEN 1300
1250 IF T2>6 THEN 1360
1260 IF J<>11 THEN 1290
1270 IF T2=6 THEN 1360
1280 GOTO 1300
1290 IF Z(T2,B(5)+1)=0 THEN 1360
1300 PRINT TAB(21)"BANKER DRAWS"
1310 PRINT TAB(21) C$(6)
1320 T2=T2+B(6)
1330 IF T2<10 THEN 1350
1340 T2=T2-10
1350 GOTO 1370
1360 PRINT TAB(21)"BANKER STANDS"
1370 PRINT TAB(21)"BANKER TOTAL "T2
1380 IF T2<>T1 THEN 1470
1390 PRINT:PRINT"A TIE
1400 GOTO 1630
1410 REM * ROUTINE FOR A 'NATURAL'
1420 PRINT:PRINT"PLAYER TOTAL "T1
1430 PRINT"BANKER TOTAL "T2
1450 PRINT:PRINT"A NATURAL"
1460 PRINT CHR$(7)
1465 IF T1=8 AND T2=8 THEN 1390
1466 IF T1=9 AND T2=9 THEN 1390
1470 IF T2<T1 THEN 1510
1480 W1=1
1490 PRINT:PRINT"BANKER HAND WINS":PRINT
1500 GOTO 1530
1510 PRINT:PRINT"PLAYER HAND WINS":PRINT
1520 REM * DETERMINE AMOUNT WON/LOST
1530 FOR J=1 TO P1
1540   IF M(J)<=0 THEN 1620
1550   PRINT G$(J)" ";
1560   IF F1(J)=W1 THEN 1600
1570   M(J)=M(J)-F(J)
1580   PRINT"LOSES $"F(J)"  FOR A TOTAL OF $"M(J)"
1590   GOTO 1620
1600   M(J)=M(J)+F(J)
1610   PRINT"WINS $"F(J)"  FOR A TOTAL OF $"M(J)"  
1620 NEXT J
1630 FOR J=1 TO P1
1640   IF M(J)<>0 THEN 1690
1650 NEXT J
1660 REM * END OF GAME ROUTINE WHEN GAMBLERS HAVE LOST ALL THEIR MONEY
1670 PRINT:PRINT"THANK YOU FOR YOUR MONEY AND ";
1680 GOTO 1830
1690 LINE INPUT Z$:PRINT CHR$(26)
1700 PRINT
1710 PRINT"-------- NEW HAND --------"
1720 PRINT
1730 FOR X=1 TO 4
1740 FOR Y=1 TO 13
1750   IF Q(X,Y)<>8 THEN 670
1760 NEXT Y,X
1770 GOTO 620
1780 DATA 1,1,1,1,1,1,1,1,0,1,0,0,1,1,1,1,1,1,0,0
1790 DATA 0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0,0
1800 DATA 1,1,1,1,1,1,0,0,0,0,SPADES,HEARTS,DIAMONDS
1810 DATA CLUBS,A  ,2  ,3    ,4   ,5   ,6  ,7    ,8    
1820 DATA 9   ,10 ,J   ,Q    ,K   ,1,2,3,4,5,6,7,8,9,0,0,0,0
1830 PRINT"THANK YOU FOR PLAYING"
1840 LINE INPUT Z$
1850 GOTO 10
1860 PRINT CHR$(26)
1870 GOSUB 7300
1880 REM * Revised for TeleVideo TPC-I/Osborne Executive by Ronleigh Dale,
1890 REM *  Box 70252, Reno Nevada 89570, 702/825-6060, v1.4, 7/21/86
1895 CLEAR
1900 PRINT CHR$(27)+CHR$(46)+CHR$(48)
1910 PRINT CHR$(26)
1920 PRINT"CASINO BLACKJACK 
1930 FOR Z=1 TO 20:PRINT:NEXT Z:RANDOMIZE:PRINT
1940 DIM P(15,12),Q(15),C(52),D(52),T(8),S(7),B(15)
1950 DIM R(15)
1960 REM--P(I,J) IS THE JTH CARD IN HAND I, Q(I) IS TOTAL OF HAND I
1970 REM--C IS THE DECK BEING DEALT FROM, D IS THE DISCARD PILE,
1980 REM--T(I) IS THE TOTAL FOR PLAYER I, S(I) IS THE TOTAL THIS HAND

70 REM--FOR PLAYER I, B(I) IS THE BET FOR HAND I
1990 REM--R(I) IS THE LENGTH OF P(I,*)
2000 GOTO 3060
2010 REM--SUBROUTINE TO GET A CARD, RESULT IS PUT IN X.
2020 IF C<51 THEN 2140
2030 PRINT "RESHUFFLING"
2040 FOR D=D TO 1 STEP -1
2050 C=C-1
2060 C(C)=D(D)
2070 NEXT D
2080 FOR C1=52 TO C STEP -1
2090 C2=INT(RND(1)*(C1-C+1))+C
2100 C3=C(C2)
2110 C(C2)=C(C1)
2120 C(C1)=C3
2130 NEXT C1
2140 X=C(C)
2150 C=C+1
2160 RETURN
2170 REM--SUBROUTINE TO EVALUATE HAND I. TOTAL IS PUT INTO
2180 REM--Q(I). TOTALS HAVE THE FOLLOWING MEANING:
2190 REM--  2-10...HARD 2-10
2200 REM--  11-21..SOFT 11-21
2210 REM--  22-32..HARD 11-21
2220 REM--  33+....BUSTED
2230 Q=0
2240 FOR Q2=1 TO R(I)
2250 X=P(I,Q2)
2260 GOSUB 2300
2270 NEXT Q2
2280 Q(I)=Q
2290 RETURN
2300 REM--SUBROUTINE TO ADD CARD X TO TOTAL Q.
2310 X1=X: IF X1>10 THEN X1=10: REM SAME AS X1=10 MIN X
2320 Q1=Q+X1
2330 IF Q>11 THEN 2390
2340 IF X>1 THEN 2370
2350 Q=Q+11
2360 RETURN
2370 Q=Q1-11*(Q1>=11)
2380 RETURN
2390 Q=Q1-(Q<=21 AND Q1>21)
2400 IF Q<33 THEN 2420
2410 Q=-1
2420 RETURN
2430 REM--CARD PRINTING SUBROUTINE
2440 REM D$ DEFINED ELSEWHERE
2450 PRINT MID$(D$,3*X-2,3);
2460 PRINT "  ";
2470 RETURN
2480 REM--ALTERNATIVE PRINTING ROUTINE
2490 PRINT "  ";MID$(D$,3*X-1,2);
2500 PRINT "  ";
2510 RETURN
2520 REM--SUBROUTINE TO PLAY OUT A HAND.
2530 REM--NO SPLITTING OR BLACKJACKS ALLOWED.
2540 H1=5
2550 GOSUB 2970
2560 H1=3
2570 ON H GOTO 2670,2650
2580 GOSUB 2010
2590 B(I)=B(I)*2
2600 PRINT "RECEIVED  ";
2610 GOSUB 2430
2620 GOSUB 2740
2630 IF Q>0 THEN GOSUB 2910
2640 RETURN
2650 GOSUB 2930
2660 RETURN
2670 GOSUB 2010
2680 PRINT "RECEIVED  ";
2690 GOSUB 2430
2700 GOSUB 2740
2710 IF Q<0 THEN 2660
2730 GOTO 2550
2740 REM--SUBROUTINE TO ADD A CARD TO ROW I
2750 R(I)=R(I)+1
2760 P(I,R(I))=X
2770 Q=Q(I)
2780 GOSUB 2300
2790 Q(I)=Q
2800 IF Q>=0 THEN 2830
2810 PRINT"....BUSTED"
2820 GOSUB 2840
2830 RETURN
2840 REM--SUBROUTINE TO DISCARD ROW I
2850 IF R(I)<>0 THEN 2870
2860 RETURN
2870 D=D+1
2880 D(D)=P(I,R(I))
2890 R(I)=R(I)-1
2900 GOTO 2850
2910 REM--PRINTS TOTAL OF HAND I
2920 PRINT
2930 AA=Q(I):GOSUB 5090
2940 PRINT "TOTAL IS";AA
2950 RETURN
2960 REM--SUBROUTINE TO READ REPLY
2970 REM--I$ DEFINED ELSEWHERE
2980 INPUT H$:H$=LEFT$(H$,1)
2990 FOR H=1 TO H1 STEP 2
3000 IF H$=MID$(I$,H,1) THEN 3040
3010 NEXT H
3020 PRINT "TYPE ";MID$(I$,1,H1-1);" OR ";MID$(I$,H1,2);" PLEASE";
3030 GOTO 2980
3040 H=(H+1)/2
3050 RETURN
3060 REM--PROGRAM STARTS HERE
3070 REM--INITIALIZE
3080 D$="  A  2  3  4  5  6  7  8  9 10  J  Q  K"
3090 I$="H,S,D,/,
3100 FOR I=1 TO 13
3110 FOR J=4*I-3 TO 4*I
3120 D(J)=I
3130 NEXT J
3140 NEXT I
3150 D=52
3160 C=53
3170 INPUT"DO YOU WISH TO SEE THE INSTRUCTIONS";H$
3180 PRINT 
3190 IF LEFT$(H$,1)="N" THEN 3340
3200 PRINT CHR$(26):GOSUB 7300
3210 PRINT "THIS IS THE GAME OF 21. AS MANY AS 7 PLAYERS MAY PLAY THE"
3220 PRINT "GAME. ON EACH DEAL, BETS WILL BE ASKED FOR, AND THE"
3230 PRINT "PLAYERS' BETS SHOULD BE TYPED IN. THE CARDS WILL THEN BE"
3240 PRINT "DEALT, AND EACH PLAYER IN TURN PLAYS THEIR HAND. THE"
3250 PRINT "FIRST RESPONSE SHOULD BE EITHER 'D', INDICATING THAT THE"
3260 PRINT "PLAYER IS DOUBLING DOWN, 'S', INDICATING THAT PLAYER IS"
3270 PRINT "STANDING, 'H', INDICATING PLAYER WANTS ANOTHER CARD, OR '/'"
3280 PRINT "INDICATING PLAYER WANTS TO SPLIT CARDS. AFTER THE"
3290 PRINT "INITIAL RESPONSE, ALL FURTHER RESPONSES SHOULD BE 'S' OR"
3300 PRINT "'H', UNLESS THE CARDS WERE SPLIT, IN WHICH CASE DOUBLING"
3310 PRINT "DOWN IS AGAIN PERMITTED. IN ORDER TO COLLECT FOR"
3320 PRINT "BLACKJACK, THE INITIAL RESPONSE SHOULD BE 'S'."
3330 PRINT :PRINT 
3340 PRINT "NUMBER OF PLAYERS";
3350 INPUT N
3360 IF N<1 OR N>7 OR N>INT(N) THEN 3340
3370 FOR I=1 TO 8:T(I)=10000:NEXT I
3380 D1=N+1
3390 IF 2*D1+C>=52 THEN GOSUB 2030
3400 IF C=2 THEN C=C-1
3410 FOR I=1 TO N:Z(I)=0:NEXT I
3420 FOR I=1 TO 15:B(I)=0:NEXT I
3430 FOR I=1 TO 15:Q(I)=0:NEXT I
3440 FOR I=1 TO 7:S(I)=0:NEXT I
3450 FOR I=1 TO 15:R(I)=0:NEXT I
3460 PRINT CHR$(26)
3470 PRINT"BETS":PRINT
3480 FOR I=1 TO N:PRINT "N";I;:INPUT Z(I):NEXT I:PRINT 
3490 FOR I=1 TO N
3500 IF Z(I)<=0 THEN CLEAR:GOTO 10
3510 IF Z(I)>1000 THEN 5120
3520 B(I)=Z(I)
3530 NEXT I
3540 PRINT "PLAYER";
3550 FOR I=1 TO N
3560 PRINT I;"   ";
3570 NEXT I
3580 PRINT "DEALER"
3590 FOR J=1 TO 2
3600 PRINT TAB(5);
3610 FOR I=1 TO D1
3620 GOSUB 2010
3630 P(I,J)=X
3640 IF J=1 OR I<=N THEN GOSUB 2480
3650 NEXT I
3660 PRINT
3670 NEXT J
3680 FOR I=1 TO D1
3690 R(I)=2
3700 NEXT I
3710 REM--TEST FOR INSURANCE
3720 IF P(D1,1)>1 THEN 3840
3730 PRINT "ANY INSURANCE";
3740 INPUT H$
3750 IF LEFT$(H$,1)<>"Y" THEN 3840
3760 PRINT "INSURANCE BETS"
3770 FOR I=1 TO N:PRINT "#";I;:INPUT Z(I): NEXT I
3780 FOR I=1 TO N
3790 IF Z(I)<0 OR Z(I)>B(I)/2 THEN 3760
3800 NEXT I
3810 FOR I=1 TO N
3820 S(I)=Z(I)*(3*(-(P(D1,2)>=10))-1)
3830 NEXT I
3840 REM--TEST FOR DEALER BLACKJACK
3850 L1=1:L2=1
3860 IF P(D1,1)=1 AND P(D1,2)>9 THEN L1=0:L2=0
3870 IF P(D1,2)=1 AND P(D1,1)>9 THEN L1=0:L2=0
3880 IF L1<>0 OR L2<>0 THEN 3950
3890 PRINT:PRINT "DEALER HAS A";MID$(D$,3*P(D1,2)-2,3);" IN THE HOLE ";
3900 PRINT "FOR BLACKJACK"
3910 FOR I=1 TO D1
3920 GOSUB 2170
3930 NEXT I
3940 GOTO 4820
3950 REM--NO DEALER BLACKJACK
3960 IF P(D1,1)>1 AND P(D1,1)<10 THEN 3980
3970 PRINT "NO DEALER BLACKJACK."
3980 REM--NOW PLAY THE HANDS
3990 FOR I=1 TO N
4000 PRINT "PLAYER";I;
4010 H1=7
4020 GOSUB 2970
4030 ON H GOTO 4180,4040,4140,4230
4040 REM PLAYER WANTS TO STAND
4050 GOSUB 2170
4060 IF Q(I)<>21 THEN 4120
4070 PRINT "BLACKJACK"
4080 S(I)=S(I)+1.5*B(I)
4090 B(I)=0
4100 GOSUB 2840
4110 GOTO 4550
4120 GOSUB 2930
4130 GOTO 4550
4140 REM PLAYER WANTS TO DOUBLE DOWN
4150 GOSUB 2170
4160 GOSUB 2580
4170 GOTO 4550
4180 REM PLAYER WANTS TO HIT
4190 GOSUB 2170
4200 H1=3
4210 GOSUB 2670
4220 GOTO 4550
4230 REM PLAYER WANTS TO SPLIT
4240 L1=P(I,1):IF P(I,1)>10 THEN L1=10
4250 L2=P(I,2):IF P(I,2)>10 THEN L2=10
4260 IF L1=L2 THEN 4290
4270 PRINT "SPLITTING NOT ALLOWED."
4280 GOTO 4000
4290 REM PLAY OUT SPLIT
4300 I1=I+D1
4310 R(I1)=2
4320 P(I1,1)=P(I,2)
4330 B(I+D1)=B(I)
4340 GOSUB 2010
4350 PRINT:PRINT "FIRST HAND RECEIVES  ";
4360 GOSUB 2430
4370 P(I,2)=X
4380 GOSUB 2170
4390 PRINT
4400 GOSUB 2010
4410 PRINT "SECOND HAND RECEIVES  ";
4420 I=I1
4430 GOSUB 2430
4440 P(I,2)=X
4450 GOSUB 2170
4460 PRINT
4470 I=I1-D1
4480 IF P(I,1)=1 THEN 4550
4490 REM NOW PLAY THE TWO HANDS
4500 PRINT:PRINT "HAND";1-(I>D1);
4510 GOSUB 2520
4520 I=I+D1
4530 IF I=I1 THEN 4500
4540 I=I1-D1
4550 NEXT I
4560 GOSUB 2170
4570 REM TEST FOR PLAYING DEALER'S HAND
4580 FOR I=1 TO N
4590 IF R(I)>0 OR R(I+D1)>0 THEN 4660
4600 NEXT I
4610 PRINT:PRINT "DEALER HAD  ";
4620 X=P(D1,2)
4630 GOSUB 2430
4640 PRINT " CONCEALED
4650 GOTO 4820
4660 PRINT:PRINT "DEALER HAS  ";MID$(D$,3*P(D1,2)-2,3);" CONCEALED ";
4670 I=D1
4680 AA=Q(I):GOSUB 5090
4690 PRINT "FOR A TOTAL OF";AA
4700 IF AA>16 THEN 4810
4710 PRINT "DRAWS";
4720 GOSUB 2010
4730 GOSUB 2480
4740 GOSUB 2740
4750 AA=Q:GOSUB 5090
4760 IF Q>0 AND AA<17 THEN 4720
4770 Q(I)=Q-(Q<0)/2
4780 IF Q<0 THEN 4820
4790 AA=Q:GOSUB 5090
4800 PRINT "---TOTAL IS";AA
4810 PRINT 
4820 REM TALLY THE RESULT
4830 REM
4840 Z$="LOSES PUSHES WINS "
4850 FOR I=1 TO N
4860 AA=Q(I):GOSUB 5090
4870 AB=Q(I+D1):GOSUB 5100
4880 AC=Q(D1):GOSUB 5110
4890 S(I)=S(I)+B(I)*SGN(AA-AC)+B(I+D1)*SGN(AB-AC)
4900 B(I+D1)=0
4910 PRINT "PLAYER";I;
4920 PRINT MID$(Z$,SGN(S(I))*6+7,6);"";
4930 IF S(I)<>0 THEN 4960
4940 PRINT "      ";
4950 GOTO 4970
4960 PRINT ABS(S(I));
4970 T(I)=T(I)+S(I)
4980 PRINT "   TOTAL";T(I)
4990 GOSUB 2840
5000 T(D1)=T(D1)-S(I)
5010 I=I+D1
5020 GOSUB 2840
5030 I=I-D1
5040 NEXT I
5050 PRINT:PRINT "DEALER'S TOTAL";T(D1)
5060 GOSUB 2840
5070 LINE INPUT Z$
5080 GOTO 3390
5090 AA=AA+11*(AA>=22):RETURN
5100 AB=AB+11*(AB>=22):RETURN
5110 AC=AC+11*(AC>=22):RETURN
5120 GOTO 10
5130 PRINT CHR$(26)
5140 PRINT CHR$(27)+CHR$(46)+CHR$(48)
5150 REM * Revised for TeleVideo TPC-I/Osborne Executive by Ronleigh Dale,
5160 REM *  Box 70252, Reno Nevada 89570, 702/825-6060, v1.3, 08/09/86
5170 PRINT CHR$(26)
5180 DIM G(10)
5190 LET P=10000   
5200 PRINT "CASINO ROULETTE (EUROPEAN)
5210 FOR Z=1 TO 19:PRINT:NEXT Z
5230 PRINT:INPUT "DO YOU WISH TO SEE A DESCRIPTION OF THE RULES (Y/N)";A$
5240 PRINT
5250 IF A$="N" THEN PRINT CHR$(26):GOSUB 7300:GOTO 5390
5260 PRINT CHR$(26):GOSUB 7300
5270 PRINT"YOU BEGIN WITH $10,000 AND MAY BET AS MUCH AS YOU LIKE UNTIL"  
5280 PRINT"YOU HAVE EITHER WON $20,000 OR YOU GO BROKE, WHICH EVER" 
5290 PRINT"COMES FIRST.  THE BETTING IS DONE ON A BOARD OR CLOTH"
5300 PRINT"SUCH AS IS SHOWN BELOW.  HALF THE NUMBERS ARE RED AND HALF
5310 PRINT"ARE BLACK EXCEPT ZERO WHICH IS GREEN.  BETTING COMBINATIONS
5320 PRINT"ARE AS SHOWN ON THE FOLLOWING MENU.  PRESS RETURN TO CONTINUE."
5330 PRINT
5340 PRINT"WHEN ASKED TO PLACE YOUR BETS, FIRST ENTER THE NUMBER FOR THE
5350 PRINT"TYPE OF BET FROM THE MENU, A COMMA, AND THE AMOUNT OF THE BET.
5360 PRINT"TO LEAVE THE GAME WITH YOUR CURRENT WINNINGS (OR LOSSES),
5370 PRINT"ENTER THE NUMBERS 0,0"
5380 PRINT
5390 RANDOMIZE
5400 PRINT CHR$(26):GOSUB 7300
5410 PRINT"MENU":PRINT:PRINT
5420 PRINT "*****************************************************
5425 PRINT
5430 PRINT" BET                                        BANK PAYS
5440 PRINT 
5450 PRINT " 1.  RED/BLACK                                1 TO 1
5460 PRINT " 2.  ODD/EVEN                                 1 TO 1
5470 PRINT " 3.  LOW/HIGH                                 1 TO 1
5480 PRINT " 4.  COLUMN 1/2/3                             2 TO 1
5490 PRINT " 5.  DOZEN (LOW/MIDDLE/HIGH)                  2 TO 1
5500 PRINT " 6.  ONE   NUMBERS (0-36)                    35 TO 1
5510 PRINT " 7.  TWO   NUMBERS (ADJACENT)                17 TO 1
5520 PRINT " 8.  THREE NUMBERS (ACROSS)                  11 TO 1
5530 PRINT " 9.  FOUR  NUMBERS (SQUARE)                   8 TO 1
5540 PRINT "10.  SIX   NUMBERS (RECTANGLE)                5 TO 1
5550 PRINT
5560 PRINT "*****************************************************
5570 PRINT
5580 LINE INPUT Z$
5590 GOSUB 7350
5600 GOSUB 7300
5610 PRINT "THE ROULETTE LAYOUT:"
5620 PRINT
5630 PRINT "              *************************"   
5640 PRINT "              *           0           *"   
5650 PRINT "              *   1R      2B      3R  *"   
5660 PRINT "              *   4B      5R      6B  *"   
5670 PRINT "              *   7R      8B      9R  *"   
5680 PRINT "              *  10B     11B     12R  *"   
5690 PRINT "              *  13B     14R     15B  *"   
5700 PRINT "              *  16R     17B     18R  *"   
5710 PRINT "              *  19R     20B     21R  *"   
5720 PRINT "              *  22B     23R     24B  *"   
5730 PRINT "              *  25R     26B     27R  *"   
5740 PRINT "              *  28B     29B     30R  *"   
5750 PRINT "              *  31B     32R     33B  *"   
5760 PRINT "              *  34R     35B     36R  *"   
5770 PRINT "              *************************"   
5780 PRINT
5790 LET X=0 
5800 LET Y=INT(37*RND(1))
5810 INPUT "FAITES VOS JEUX, MESSIEURS (PLACE YOUR BETS, GENTLEMEN) ",C,B
5820 PRINT
5830 IF C=0 THEN CLEAR:GOSUB 7350:GOTO 10
5840 IF C=2 THEN 6050 
5850 IF C=3 THEN 6160 
5860 IF C=4 THEN 6270 
5870 IF C=5 THEN 6470 
5880 IF C=6 THEN 6620 
5890 IF C=7 THEN 6690 
5900 IF C=8 THEN 6770
5910 IF C=9 THEN 6870
5920 IF C=10 THEN 6970   
5930 LET E=1 
5950 GOSUB 7300
5960 INPUT"WHICH CHOICE (R)ED OR (B)LACK";Z$:GOSUB 7350
5970 IF Y=0 THEN 7160
5980 IF Y<19 THEN 6020
5990 GOSUB 7300:PRINT "THE COLOR IS  BLACK"
6000 IF Z$="B" THEN 7070 
6010 GOTO 7160  
6020 GOSUB 7300:PRINT "THE COLOR IS  RED"
6030 IF Z$="R" THEN 7070   
6040 GOTO 7160  
6050 LET E=1 
6070 GOSUB 7300
6080 INPUT"WHICH CHOICE (O)DD OR (E)VEN";D$:GOSUB 7350
6090 GOSUB 7400
6100 LET D1=Y/2  
6110 IF D1=INT(Y/2) THEN 6140 
6120 IF D$="O" THEN 7070   
6130 GOTO 7160  
6140 IF D$="E" THEN 7070  
6150 GOTO 7160  
6160 LET E=1 
6180 GOSUB 7300
6190 INPUT"WHICH CHOICE (L)OW OR (H)IGH";H$:GOSUB 7350
6200 GOSUB 7400
6210 IF Y=0 THEN 7160
6220 IF Y>18 THEN 6250
6230 IF H$="L" THEN 7070   
6240 GOTO 7160  
6250 IF H$="H" THEN 7070  
6260 GOTO 7160  
6270 LET E=2 
6290 GOSUB 7300
6300 INPUT"WHICH COLUMN 1, 2, 3";F:GOSUB 7350
6310 GOSUB 7400
6320 IF Y=0 THEN 7160
6330 IF F=2 THEN 6390 
6340 IF F=3 THEN 6430 
6350 FOR F1=1 TO 34 STEP 3 
6360 IF F1=Y THEN 7070   
6370 NEXT F1 
6380 GOTO 7160  
6390 FOR F1=2 TO 35 STEP 3 
6400 IF F1=Y THEN 7070   
6410 NEXT F1 
6420 GOTO 7160  
6430 FOR F1=3 TO 36 STEP 3 
6440 IF F1=Y THEN 7070   
6450 NEXT F1 
6460 GOTO 7160  
6470 LET E=2 
6490 GOSUB 7300
6500 INPUT"WHICH CHOICE (L)OW, (M)IDDLE, (H)IGH";I$
6506 GOSUB 7350
6510 GOSUB 7400
6520 IF Y=0 THEN 7160
6530 IF I$="M" THEN 6570 
6540 IF I$="H" THEN 6600   
6550 IF Y<13 THEN 7070   
6560 GOTO 7160  
6570 IF Y>25 THEN 7160   
6580 IF Y<13 THEN 7160   
6590 GOTO 7070  
6600 IF Y>24 THEN 7070
6610 GOTO 7160  
6620 LET E=36
6640 GOSUB 7300
6650 INPUT"WHICH SINGLE NUMBER";G:GOSUB 7350
6660 GOSUB 7400
6670 IF G=Y THEN 7070
6680 GOTO 7160  
6690 LET E=17
6710 GOSUB 7300
6720 INPUT"WHICH TWO ADJACENT NUMBERS";G1,G2:GOSUB 7350
6730 GOSUB 7400
6740 IF G1=Y THEN 7070   
6750 IF G2=Y THEN 7070   
6760 GOTO 7160  
6770 LET E=11   
6790 GOSUB 7300
6800 INPUT"WHICH THREE NUMBERS (ACROSS)";G1,G2,G3:GOSUB 7300
6820 GOSUB 7350:GOSUB 7400
6830 IF G1=Y THEN 7070  
6840 IF G2=Y THEN 7070  
6850 IF G3=Y THEN 7070  
6860 GOTO 7160 
6870 LET E=8
6890 GOSUB 7300
6900 INPUT"WHICH FOUR NUMBERS (SQUARE)";G(1),G(2),G(3),G(4)
6905 GOSUB 7350
6920 GOSUB 7400
6930 FOR I=1 TO 4 
6940 IF G(I)=Y THEN 7070
6950 NEXT I 
6960 GOTO 7160 
6970 PRINT
6980 GOSUB 7300
6990 INPUT"WHICH SIX NUMBERS (RECTANGLE)";
7000 INPUT G(1),G(2),G(3),G(4),G(5),G(6):GOSUB 7350
7020 GOSUB 7400
7030 FOR I=1 TO 6 
7040 IF G(I)=Y THEN 7070
7050 NEXT I 
7060 GOTO 7160 
7070 GOSUB 7300:PRINT:PRINT "$$$$$ WINNER $$$$$"
7080 PRINT:PRINT:PRINT "YOU WIN $"E*B   
7090 LET P=P+(E*B)  
7100 PRINT
7110 PRINT "YOUR PURSE NOW TOTALS $"P   
7115 PRINT:PRINT:INPUT"VIEW MENU";M$:IF M$="Y" THEN 5400
7130 PRINT CHR$(26):GOSUB 7300
7140 IF P>20000! THEN 7240  
7150 GOTO 5610
7160 GOSUB 7300:PRINT:PRINT "****** LOSER *****"
7170 LET P=P-B  
7180 PRINT:PRINT:PRINT "YOUR PURSE NOW TOTALS $"P   
7190 PRINT:PRINT:INPUT"VIEW MENU";M$:IF M$="Y" THEN 5400
7200 PRINT CHR$(26):GOSUB 7300
7210 IF P>0 THEN 5610
7230 PRINT
7240 PRINT "END OF GAME, YOU BROKE THE HOUSE"
7250 GOTO 7280 
7260 PRINT
7270 PRINT "YOU'RE BROKE !!!!"   
7280 LINE INPUT Z$
7290 GOTO 10
7300 FOR Z=1 TO 1000:NEXT Z:RETURN
7310 FOR Z=1 TO 500:NEXT Z:RETURN
7320 PRINT CHR$(27)+CHR$(46)+CHR$(50):PRINT CHR$(26):END
7350 PRINT CHR$(26):RETURN
7400 GOSUB 7300:PRINT"THE NUMBER IS ";Y:RETURN
INT CHR$(27)+CHR$(46)+CHR$(50):PRINT CHR$(26):END
7350 PRINT CHR$(26):RETURN
7400 GOSUB 7300:PRI