Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | 1 PRINT"THIS IS A GAME OF ROULETTE. YOU HAVE 100 CHIPS TO START" |
2 | 2 PRINT "WITH WHICH YOU CAN BET. YOU CAN ONLY BET THREE TIMES" | |
3 | 3 PRINT"FOR EVERY SPIN OF THE WHEEL .YOU CAN BET ON ANY NUMBER" | |
4 | 4 PRINT "FROM 0 TO 20." | |
5 | 5 RANDOMIZE | |
6 | 22 LET M1=1 | |
7 | 23 LET M2=1 | |
8 | 24 LET M3=1 | |
9 | 29 PRINT | |
10 | 30 LET L=100 | |
11 | 31 LET H=0 | |
12 | 32 LET I=0 | |
13 | 33 LET J=0 | |
14 | 35 LET C=3 | |
15 | 36 LET B1=21 | |
16 | 37 LET B2=21 | |
17 | 38 LET B3=21 | |
18 | 39 LET B4=21 | |
19 | 40 LET D1=21 | |
20 | 41 LET D2=21 | |
21 | 42 LET D3=21 | |
22 | 43 LET D4=21 | |
23 | 44 LET E1=21 | |
24 | 45 LET E2=21 | |
25 | 46 LET E3=21 | |
26 | 47 LET E4=21 | |
27 | 48 LET N1=0 | |
28 | 49 LET N2=0 | |
29 | 50 LET N3=0 | |
30 | 56 PRINT | |
31 | 60 PRINT "HOW MANY CHIPS DO YOU WANT TO PLACE ON EACH SQUARE"; | |
32 | 75 IF C=3 THEN 1450 | |
33 | 77 PRINT | |
34 | 85 IF C=2 THEN 1460 | |
35 | 87 PRINT | |
36 | 90 IF C=1 THEN 1479 | |
37 | 92 PRINT | |
38 | 114 PRINT | |
39 | 115 PRINT "HOW MANY NUMBERS (1,2,OR 4) DO YOU WISH TO COVER WITH" | |
40 | 117 PRINT "ONE BET(PICK ONLY ONE)" | |
41 | 120 INPUT A | |
42 | 121 PRINT | |
43 | 122 PRINT | |
44 | 125 IF A=1 THEN160 | |
45 | 130 IF A=2 THEN 230 | |
46 | 135 IF A=4 THEN 280 | |
47 | 140 PRINT "PLEASE THINK AGAIN, YOU CAN ONLY PICK1,2,OR4" | |
48 | 145 GO TO 115 | |
49 | 160 PRINT "YOUR ODDS ARE 20 TO 1, WHAT IS YOUR NUMBER"; | |
50 | 161 PRINT | |
51 | 162 PRINT | |
52 | 165 IF C=3 THEN 1200 | |
53 | 170 IF C=2 THEN 1210 | |
54 | 175 IF C=1 THEN 1220 | |
55 | 195 IF C=3 THEN 1300 | |
56 | 205 IF C=2 THEN 1310 | |
57 | 215 IF C=1 THEN 1320 | |
58 | 216 GO TO 325 | |
59 | 229 PRINT | |
60 | 230 PRINT "YOUR ODDS ARE 10 TO 1, WHAT ARE YOUR 2 NUMBERS"; | |
61 | 231 PRINT | |
62 | 232 PRINT | |
63 | 235 IF C=3 THEN 1330 | |
64 | 240 IF C=2 THEN 1340 | |
65 | 245 IF C=1 THEN 1350 | |
66 | 250 IF C=3 THEN 1360 | |
67 | 255 IF C=2 THEN 1370 | |
68 | 270 IF C=1 THEN 1380 | |
69 | 275 GO TO 325 | |
70 | 280 PRINT "YOUR ODDS ARE 5 TO 1, WHAT ARE YOUR FOUR NUMBERS"; | |
71 | 281 PRINT | |
72 | 282 PRINT | |
73 | 285 IF C=3 THEN 1390 | |
74 | 290 IF C=2 THEN 1400 | |
75 | 295 IF C=1 THEN 1410 | |
76 | 310 IF C=3 THEN 1420 | |
77 | 315 IF C=2 THEN 1430 | |
78 | 320 IF C=1 THEN 1440 | |
79 | 325 LET K=(H*20/M1)+(I*20/M2)+(J*20/M3) | |
80 | 328 IF L-K<0 THEN 910 | |
81 | 350 LET C=C-1 | |
82 | 360 IF C=0 THEN 415 | |
83 | 369 PRINT | |
84 | 370 PRINT "DO YOU WANT TO PLACE ANY MORE BETS BEFORE THE WHEEL" | |
85 | 371 PRINT "SPINS[Y OR N] "; | |
86 | 380 INPUT A$ | |
87 | 381 PRINT | |
88 | 382 PRINT | |
89 | 383 PRINT | |
90 | 385 IF A$="Y" THEN 60 | |
91 | 390 PRINT "YOU BET";K;"CHIPS, YOU HAVE";L-K;"CHIPS LEFT" | |
92 | 391 PRINT | |
93 | 392 PRINT | |
94 | 400 LET G=INT(20.9*RND(1)) | |
95 | 410 GO TO 420 | |
96 | 415 PRINT "YOU HAVE NOW COMPLETED YOUR THREE BETS" | |
97 | 420 PRINT "NOW THE ROULETTE WHEEL WILL SPIN" | |
98 | 421 PRINT | |
99 | 422 PRINT | |
100 | 423 PRINT | |
101 | 440 PRINT "THE NUMBER IS ";G | |
102 | 570 IF (G-B1)*(G-B2)*(G-B3)*(G-B4)=0 THEN 630 | |
103 | 580 IF (G-D1)*(G-D2)*(G-D3)*(G-D4)=0 THEN 635 | |
104 | 590 IF (G-E1)*(G-E2)*(G-E3)*(G-E4)=0 THEN 640 | |
105 | 591 IF N1+N2+N3>0 THEN 645 | |
106 | 592 PRINT | |
107 | 593 PRINT | |
108 | 600 PRINT "I AM SORRY, YOU PICKED THE WRONG NUMBERS" | |
109 | 605 LET L=L-K | |
110 | 606 PRINT | |
111 | 610 PRINT "YOU NOW HAVE";L;"CHIPS LEFT" | |
112 | 615 GO TO 680 | |
113 | 630 LET N1=M1*H | |
114 | 632 GO TO 580 | |
115 | 635 LET N2=M2*I | |
116 | 637 GO TO 590 | |
117 | 640 LET N3=M3*J | |
118 | 645 LET P=N1+N2+N3 | |
119 | 650 LET L=L+P-K | |
120 | 651 PRINT | |
121 | 652 PRINT | |
122 | 660 PRINT "CONGRATULATIONS, YOU HAVE WON";P;"CHIPS" | |
123 | 661 PRINT | |
124 | 670 PRINT "YOU NOW HAVE";L;"CHIPS" | |
125 | 671 PRINT | |
126 | 672 PRINT | |
127 | 680 PRINT\PRINT "PLAY AGAIN ? [Y OR N] "; | |
128 | 685 INPUT A$ | |
129 | 695 IF A$="Y" THEN 31 | |
130 | 900 STOP | |
131 | 910 PRINT "CHEATER YOU HAVE BETTED MORE CHIPS THAN YOU OWN." | |
132 | 912 PRINT "THE CASINO TAKES ALL AND SENDS YOU AWAY. GOOD RIDDENS" | |
133 | 915 PRINT "BYE" | |
134 | 920 GO TO 900 | |
135 | 1200 INPUT B1 | |
136 | 1205 GO TO 170 | |
137 | 1210 INPUT D1 | |
138 | 1215 GO TO 175 | |
139 | 1220 INPUT E1 | |
140 | 1225 GO TO 195 | |
141 | 1300 LET M1 =20 | |
142 | 1305 GO TO 205 | |
143 | 1310 LET M2 =20 | |
144 | 1315 GO TO 215 | |
145 | 1320 LET M3=20 | |
146 | 1325 GO TO 216 | |
147 | 1330 INPUT B1,B2 | |
148 | 1335 GO TO 240 | |
149 | 1340 INPUT D1, D2 | |
150 | 1345 GO TO 245 | |
151 | 1350 INPUT E1,E2 | |
152 | 1355 GO TO 250 | |
153 | 1360 LET M1=10 | |
154 | 1365 GO TO 255 | |
155 | 1370 LET M2=10 | |
156 | 1375 GO TO 270 | |
157 | 1380 LET M3=10 | |
158 | 1385 GO TO 275 | |
159 | 1390 INPUT B1,B2,B3,B4 | |
160 | 1395 GO TO 290 | |
161 | 1400 INPUT D1,D2,D3,D4 | |
162 | 1405 GO TO 295 | |
163 | 1410 INPUT E1,E2,E3,E4 | |
164 | 1415 GO TO 310 | |
165 | 1420 LET M1=5 | |
166 | 1425 GOTO 315 | |
167 | 1430 LET M2=5 | |
168 | 1435 GO TO 320 | |
169 | 1440 LET M3=5 | |
170 | 1445 GO TO 325 | |
171 | 1450 INPUT H | |
172 | 1455 GO TO 85 | |
173 | 1460 INPUT I | |
174 | 1465 GO TO 90 | |
175 | 1479 INPUT J | |
176 | 1480 GO TO 115 | |
177 | 1600 END | |
178 |