-
Notifications
You must be signed in to change notification settings - Fork 2
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
1 changed file
with
342 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,342 @@ | ||
| 1010 REM TYPE RUN TO PLAY THE GAME. | ||
| 1020 LET K1 = 0 | ||
| 1030 PRINT " WELCOME TO MONTE CARLO AND OUR EUROPEAN ROULETTE TABLE." | ||
| 1040 PRINT " I WISH YOU THE BEST OF LUCK." | ||
| 1050 PRINT | ||
| 1060 PRINT | ||
| 1070 PRINT "DO YOU WANT INSTRUCTIONS"; | ||
| 1080 INPUT Z$ | ||
| 1090 IF Z$ = "NO" THEN 1800 | ||
| 1100 IF Z$ = "YES" THEN 1130 | ||
| 1110 GOSUB 2790 | ||
| 1120 GO TO 1070 | ||
| 1130 PRINT " THIS IS A GAME OF ROULETTE. YOU ARE ALLOWED TO BET" | ||
| 1140 PRINT "AN ODD OR EVEN NUMBER AND/OR A BLACK OR RED NUMBER AND/OR" | ||
| 1150 PRINT "A COLUMN OF NUMBERS AND/OR A NUMBER ITSELF. NUMBERS RANGE" | ||
| 1160 PRINT "FROM 0 TO 36. IF 0 APPEARS, THE BANK COLLECTS ALL BETS" | ||
| 1170 PRINT "EXCEPT THOSE BET ON THE NUMBER 0. THE PAYOFFS ARE AS FOLLOWS" | ||
| 1180 PRINT,"ODD OR EVEN = 1 TO 1" | ||
| 1190 PRINT,"RED OR BLACK = 1 TO 1" | ||
| 1200 PRINT, "A COLUMN = 2 TO 1" | ||
| 1210 PRINT, "A NUMBER = 35 TO 1" | ||
| 1220 PRINT " YOU ARE ALLOWED TO BET FROM $1 TO $10000, BUT THE"; | ||
| 1230 PRINT " TABLE WILL ONLY ACCEPT BETS OF WHOLE DOLLARS (NO CENTS)." | ||
| 1240 PRINT | ||
| 1250 PRINT " WOULD YOU LIKE TO SEE A PICTURE OF THE GAMBLING TABLE"; | ||
| 1260 INPUT Z1$ | ||
| 1270 IF Z1$ = "NO" THEN 1800 | ||
| 1280 IF Z1$ = "YES" THEN 1320 | ||
| 1290 GOSUB 2790 | ||
| 1300 GO TO 1250 | ||
| 1310 PRINT | ||
| 1320 PRINT | ||
| 1330 PRINT" BELOW IS THE PICTURE OF OUR GAMBLING TABLE." | ||
| 1340 PRINT | ||
| 1350 PRINT | ||
| 1360 PRINT, " ***********" | ||
| 1370 PRINT, " * O *" | ||
| 1375 LET U$ = "*******************" | ||
| 1380 PRINT,U$ | ||
| 1390 PRINT,"* 1 * 2 * 3 *" | ||
| 1400 PRINT,"* RED *BLACK* RED *" | ||
| 1410 PRINT,U$ | ||
| 1420 PRINT,"* 4 * 5 * 6 *" | ||
| 1430 PRINT,"*BLACK* RED *BLACK*" | ||
| 1440 PRINT,U$ | ||
| 1450 PRINT,"* 7 * 8 * 9 *" | ||
| 1460 PRINT,"* RED *BLACK* RED *" | ||
| 1470 PRINT,U$ | ||
| 1480 PRINT,"* 10 * 11 * 12 *" | ||
| 1490 PRINT,"*BLACK*BLACK* RED *" | ||
| 1500 PRINT,U$ | ||
| 1510 PRINT,"* 13 * 14 * 15 *" | ||
| 1520 PRINT,"*BLACK* RED *BLACK*" | ||
| 1530 PRINT,U$ | ||
| 1540 PRINT,"* 16 * 17 * 18 *" | ||
| 1550 PRINT,"* RED *BLACK* RED *" | ||
| 1560 PRINT,U$ | ||
| 1570 PRINT,"* 19 * 20 * 21 *" | ||
| 1580 PRINT,"* RED *BLACK* RED *" | ||
| 1590 PRINT,U$ | ||
| 1600 PRINT,"* 22 * 23 * 24 *" | ||
| 1610 PRINT,"*BLACK* RED *BLACK*" | ||
| 1620 PRINT,U$ | ||
| 1630 PRINT,"* 25 * 26 * 27 *" | ||
| 1640 PRINT,"* RED * RED *BLACK*" | ||
| 1650 PRINT,U$ | ||
| 1660 PRINT,"* 28 * 29 * 30 *" | ||
| 1670 PRINT,"*BLACK*BLACK* RED *" | ||
| 1680 PRINT,U$ | ||
| 1690 PRINT,"* 31 * 32 * 33 *" | ||
| 1700 PRINT,"*BLACK* RED *BLACK*" | ||
| 1710 PRINT,U$ | ||
| 1720 PRINT,"* 34 * 35 * 36 *" | ||
| 1730 PRINT,"* RED *BLACK* RED *" | ||
| 1740 PRINT,U$ | ||
| 1750 PRINT, "*COL.1*COL.2*COL 3*" | ||
| 1760 PRINT,U$ | ||
| 1800 PRINT | ||
| 1810 PRINT | ||
| 1820 PRINT | ||
| 1830 PRINT "DO YOU WANT TO BET AN ODD OR EVEN NUMBER"; | ||
| 1840 INPUT A$ | ||
| 1850 IF A$ = "NO" THEN 2050 | ||
| 1860 IF A$ = "YES" THEN 1890 | ||
| 1870 GOSUB 2790 | ||
| 1880 GO TO 1830 | ||
| 1890 PRINT "ODD OR EVEN"; | ||
| 1900 INPUT B$ | ||
| 1910 IF B$ = "ODD"THEN 1950 | ||
| 1920 IF B$ = "EVEN"THEN 1950 | ||
| 1930 PRINT "PLEASE TYPE ODD OR EVEN" | ||
| 1940 GO TO 1890 | ||
| 1950 PRINT "HOW MUCH DO YOU WANT TO BET"; | ||
| 1960 INPUT H | ||
| 1970 IF H <= 10000 THEN 2000 | ||
| 1980 GOSUB 2810 | ||
| 1990 GO TO 1950 | ||
| 2000 FOR H1 = 0 TO 10000 | ||
| 2010 IF H1 = H THEN 2060 | ||
| 2020 NEXT H1 | ||
| 2030 GOSUB 2840 | ||
| 2040 GO TO 1950 | ||
| 2050 LET H = 0 | ||
| 2060 PRINT | ||
| 2070 PRINT "DO YOU WANT TO BET A RED OR BLACK NUMBER"; | ||
| 2080 INPUT C$ | ||
| 2090 IF C$ = "NO" THEN 2290 | ||
| 2100 IF C$ = "YES" THEN 2130 | ||
| 2110 GOSUB 2790 | ||
| 2120 GO TO 2070 | ||
| 2130 PRINT "RED OR BLACK"; | ||
| 2140 INPUT D$ | ||
| 2150 IF D$ = "RED" THEN 2190 | ||
| 2160 IF D$ = "BLACK"THEN 2190 | ||
| 2170 PRINT "PLEASE TYPE RED OR BLACK." | ||
| 2180 GO TO 2130 | ||
| 2190 PRINT "HOW MUCH DO YOU WANT TO BET"; | ||
| 2200 INPUT I | ||
| 2210 IF I <= 10000 THEN 2040 | ||
| 2220 GOSUB 2810 | ||
| 2230 GO TO 2190 | ||
| 2240 FOR I2 = 0 TO 10000 | ||
| 2250 IF I2 = I THEN 2300 | ||
| 2260 NEXT I2 | ||
| 2270 GOSUB 2840 | ||
| 2280 GO TO 2190 | ||
| 2290 LET I = 0 | ||
| 2300 PRINT | ||
| 2310 PRINT "DO YOU WANT TO BET A COLUMN OF NUMBERS"; | ||
| 2320 INPUT B1$ | ||
| 2330 IF B1$ = "NO" THEN 2530 | ||
| 2340 IF B1$ = "YES" THEN 2370 | ||
| 2350 GOSUB 2790 | ||
| 2360 GO TO 2310 | ||
| 2370 PRINT "COLUMN 1, 2, OR 3"; | ||
| 2380 INPUT B2 | ||
| 2390 IF B2 = 1 THEN 2440 | ||
| 2400 IF B2 = 2 THEN 2440 | ||
| 2410 IF B2 = 3 THEN 2440 | ||
| 2420 PRINT "PLEASE TYPE 1, 2, OR 3." | ||
| 2430 GO TO 2370 | ||
| 2440 PRINT "HOW MUCH DO YOU WANT TO BET"; | ||
| 2450 INPUT B8 | ||
| 2460 IF B8 <= 10000 THEN 2490 | ||
| 2470 GOSUB 2810 | ||
| 2480 GO TO 2440 | ||
| 2490 FOR B9 = 0 TO 10000 | ||
| 2500 IF B8 = B9 THEN 2540 | ||
| 2510 NEXT B9 | ||
| 2520 GO TO 2440 | ||
| 2530 LET B8 = 0 | ||
| 2540 PRINT | ||
| 2550 PRINT "DO YOU WANT TO BET A NUMBER"; | ||
| 2560 INPUT E$ | ||
| 2570 IF E$ = "NO" THEN 2870 | ||
| 2580 IF E$ = "YES" THEN 2610 | ||
| 2590 GOSUB 2790 | ||
| 2600 GO TO 2550 | ||
| 2610 PRINT "WHAT IS YOUR NUMBER"; | ||
| 2620 INPUT F | ||
| 2630 FOR M = 0 TO 36 | ||
| 2640 IF F = M THEN 2690 | ||
| 2650 NEXT M | ||
| 2660 PRINT "THAT IS AN ILLEGAL NUMBER" | ||
| 2670 PRINT "YOU ARE ONLY ALLOWED TO BET INTEGERS RANGING FROM 0 TO 36" | ||
| 2680 GO TO 2610 | ||
| 2690 PRINT "HOW MUCH DO YOU WANT TO BET"; | ||
| 2700 INPUT G | ||
| 2710 IF G <= 10000 THEN 2740 | ||
| 2720 GOSUB 2810 | ||
| 2730 GO TO 2690 | ||
| 2740 FOR G9 = 0 TO 10000 | ||
| 2750 IF G = G0 THEN 2880 | ||
| 2760 NEXT G9 | ||
| 2770 GOSUB 2840 | ||
| 2780 GO TO 2690 | ||
| 2790 PRINT "PLEASE TYPE YES OR NO." | ||
| 2800 RETURN | ||
| 2810 PRINT "SORRY, BUT THE TABLE CANNOT ACCEPT A BET OF THAT MUCH"; | ||
| 2820 PRINT " MONEY." | ||
| 2830 RETURN | ||
| 2840 PRINT "SORRY, BUT YOU CAN ONLY BET IN $1 INCREMENTS FROM $1 TO"; | ||
| 2850 PRINT " $10000." | ||
| 2860 RETURN | ||
| 2870 LET G = 0 | ||
| 2880 PRINT | ||
| 2890 RANDOMIZE | ||
| 2900 LET T = INT(37*RND) | ||
| 2910 PRINT "THE NUMBER IS "; | ||
| 2920 LET T1 = INT(T/10)+1 | ||
| 2930 ON T1 GO TO 2940,2950,2960,2970 | ||
| 2940 ON T+1 GO TO 3530,3350,3430,3390,3410,3370,3450,3350,3430,3390 | ||
| 2950 ON T-9 GO TO 3410,3490,3330,3470,3310,3510,3290,3490,3330,3350 | ||
| 2960 ON T-19 GO TO 3430,3390,3410,3370,3450,3350,3310,3510,3410,3490 | ||
| 2970 ON T-29 GO TO 3330,3470,3310,3510,3290,3490,3330 | ||
| 3290 PRINT T;" RED, EVEN, COLUMN 1" | ||
| 3300 GOTO 3540 | ||
| 3310 PRINT T;" RED, EVEN, COLUMN 2" | ||
| 3320 GOTO 3540 | ||
| 3330 PRINT T;" RED, EVEN, COLUMN 3" | ||
| 3340 GOTO 3540 | ||
| 3350 PRINT T;" RED, ODD, COLUMN 1" | ||
| 3360 GOTO 3540 | ||
| 3370 PRINT T;" RED, ODD, COLUMN 2" | ||
| 3380 GOTO 3540 | ||
| 3390 PRINT T;" RED, ODD, COLUMN 3" | ||
| 3400 GOTO 3540 | ||
| 3410 PRINT T;" BLACK, EVEN, COLUMN 1" | ||
| 3420 GOTO 3540 | ||
| 3430 PRINT T; " BLACK, EVEN, COLUMN 2" | ||
| 3440 GOTO 3540 | ||
| 3450 PRINT T; " BLACK, EVEN, COLUMN 3" | ||
| 3460 GOTO 3540 | ||
| 3470 PRINT T; " BLACK, ODD, COLUMN 1" | ||
| 3480 GOTO 3540 | ||
| 3490 PRINT T; " BLACK, ODD, COLUMN 2" | ||
| 3500 GOTO 3540 | ||
| 3510 PRINT T; " BLACK, ODD, COLUMN 3" | ||
| 3520 GOTO 3540 | ||
| 3530 PRINT T | ||
| 3540 IF G = 0 THEN 3610 | ||
| 3550 IF T = F THEN 3590 | ||
| 3560 PRINT " YOU LOSE $"G" FOR YOUR NUMBER BET." | ||
| 3570 LET G = -G | ||
| 3580 GO TO 3610 | ||
| 3590 PRINT " YOU WIN $"35*G" FOR YOUR NUMBER BET." | ||
| 3600 LET G = 35*G | ||
| 3610 IF H = 0 THEN 3800 | ||
| 3620 IF T = 0 THEN 3710 | ||
| 3630 IF B$ = "EVEN" THEN 3680 | ||
| 3640 FOR X = 1 TO 35 STEP 2 | ||
| 3650 IF T = X THEN 3750 | ||
| 3660 NEXT X | ||
| 3670 GO TO 3710 | ||
| 3680 FOR X1 = 2 TO 36 STEP 2 | ||
| 3690 IF T = X1 THEN 3750 | ||
| 3700 NEXT X1 | ||
| 3710 PRINT " YOU LOSE $"H; | ||
| 3720 GOSUB 3780 | ||
| 3730 LET H = -H | ||
| 3740 GO TO 3800 | ||
| 3750 PRINT " YOU WIN $"H; | ||
| 3760 GOSUB 3780 | ||
| 3770 GO TO 3800 | ||
| 3780 PRINT "FOR YOUR ODD-EVEN BET." | ||
| 3790 RETURN | ||
| 3800 IF I = 0 THEN 4080 | ||
| 3810 IF T = 0 THEN 3980 | ||
| 3820 FOR A1 = 1 TO 9 STEP 2 | ||
| 3830 IF T = A1 THEN 3970 | ||
| 3840 NEXT A1 | ||
| 3850 FOR A2 = 12 TO 18 STEP 2 | ||
| 3860 IF T = A2 THEN 3970 | ||
| 3870 NEXT A2 | ||
| 3880 FOR A3 = 19 TO 25 STEP 2 | ||
| 3890 IF T= A3 THEN 3970 | ||
| 3900 NEXT A3 | ||
| 3910 FOR A4 = 30 TO 36 STEP 2 | ||
| 3920 IF T = A4 THEN 3970 | ||
| 3930 NEXT A4 | ||
| 3940 IF T = 26 THEN 3970 | ||
| 3950 IF D$ = "BLACK" THEN 4020 | ||
| 3960 GO TO 3980 | ||
| 3970 IF D$ = "RED" THEN 4020 | ||
| 3980 PRINT " YOU LOSE $"I; | ||
| 3990 GOSUB 4060 | ||
| 4000 LET I = -I | ||
| 4010 GO TO 4080 | ||
| 4020 PRINT " YOU WIN $"; | ||
| 4030 PRINT I; | ||
| 4040 GOSUB 4060 | ||
| 4050 GO TO 4080 | ||
| 4060 PRINT "FOR YOUR RED-BLACK BET." | ||
| 4070 RETURN | ||
| 4080 IF B8 = 0 THEN 4340 | ||
| 4090 IF T = 0 THEN 4300 | ||
| 4100 FOR B3 = 1 TO 34 STEP 3 | ||
| 4110 IF T = B3 THEN 4190 | ||
| 4120 NEXT B3 | ||
| 4130 FOR B4 = 2 TO 35 STEP 3 | ||
| 4140 IF T = B4 THEN 4210 | ||
| 4150 NEXT B4 | ||
| 4160 FOR B5 = 3 TO 36 STEP 3 | ||
| 4170 IF T = B5 THEN 4230 | ||
| 4180 NEXT B5 | ||
| 4190 IF B2 = 1 THEN 4250 | ||
| 4200 IF B2 <> 1 THEN 4300 | ||
| 4210 IF B2 = 2 THEN 4250 | ||
| 4220 IF B2 <> 2 THEN 4300 | ||
| 4230 IF B2 = 3 THEN 4250 | ||
| 4240 IF B2 <> 3 THEN 4300 | ||
| 4250 PRINT " YOU WIN $"; | ||
| 4260 PRINT 2*B8; | ||
| 4270 PRINT "FOR YOUR COLUMN BET." | ||
| 4280 LET B8 = 2*B8 | ||
| 4290 GO TO 4340 | ||
| 4300 PRINT " YOU LOSE $"; | ||
| 4310 PRINT B8; | ||
| 4320 PRINT "FOR YOUR COLUMN BET." | ||
| 4330 LET B8 = -B8 | ||
| 4340 PRINT | ||
| 4350 LET K = (G) + (H) + (I) + (B8) | ||
| 4360 IF K < 0 THEN 4400 | ||
| 4370 IF K = 0 THEN 4420 | ||
| 4380 IF K > 0 THEN 4440 | ||
| 4390 GO TO 4450 | ||
| 4400 PRINT " YOU LOST $" ABS(K)" ON THIS ROUND." | ||
| 4410 GO TO 4450 | ||
| 4420 PRINT " YOU BROKE EVEN THIS TIME." | ||
| 4430 GO TO 4450 | ||
| 4440 PRINT " YOU WON $"K" ON THIS ROUND." | ||
| 4450 PRINT | ||
| 4460 PRINT | ||
| 4470 LET K1 = K1 + K | ||
| 4480 IF K1 < 0 THEN 4510 | ||
| 4490 IF K1 = 0 THEN 4530 | ||
| 4500 IF K1 > 0 THEN 4550 | ||
| 4510 PRINT " YOU HAVE LOST A TOTAL OF $"ABS(K1)" THUS FAR." | ||
| 4520 GO TO 4570 | ||
| 4530 PRINT " THUS FAR YOU HAVE BROKEN EVEN." | ||
| 4540 GO TO 4570 | ||
| 4550 PRINT " YOU HAVE WON A TOTAL OF $"K1" THUS FAR." | ||
| 4560 GO TO 4570 | ||
| 1570 PRINT | ||
| 4580 PRINT " DO YOU WANT TO PLAY AGAIN"; | ||
| 4590 INPUT M$ | ||
| 4600 IF M$ = "NO" THEN 4640 | ||
| 4610 IF M$ = "YES" THEN 1800 | ||
| 4620 PRINT "PLEASE TYPE YES OR NO." | ||
| 4630 GO TO 4580 | ||
| 4640 PRINT | ||
| 4650 PRINT " THANKS FOR PLAYING." | ||
| 4660 IF K1 < 0 THEN 4690 | ||
| 4670 IF K1 = 0 THEN 4710 | ||
| 4680 IF K1 > 0 THEN 4740 | ||
| 4690 PRINT " YOU LOST $" ABS(K1);", BETTER LUCK NEXT TIME." | ||
| 4700 GO TO 4750 | ||
| 4710 PRINT " YOU BROKE EVEN TODAY, MAYBE NEXT TIME YOU WILL WIN"; | ||
| 4720 PRINT " A FORTUNE." | ||
| 4730 GO TO 4750 | ||
| 4740 PRINT " CONGRATULATIONS, YOU BEAT THE ODDS. YOU WON $"K1"TODAY." | ||
| 4750 END |