Directory of image this file is from
This file as a plain text file

1 PRINT"THIS IS A GAME OF ROULETTE. YOU HAVE 100 CHIPS TO START" 
2 PRINT "WITH WHICH YOU CAN BET. YOU CAN ONLY BET THREE TIMES" 
3 PRINT"FOR EVERY SPIN OF THE WHEEL .YOU CAN BET ON ANY NUMBER"
4 PRINT "FROM 0 TO 20."
5 RANDOMIZE
22 LET M1=1 
23 LET M2=1 
24 LET M3=1 
29 PRINT
30 LET L=100
31 LET H=0
32 LET I=0
33 LET J=0
35 LET C=3
36 LET B1=21
37 LET B2=21
38 LET B3=21
39 LET B4=21
40 LET D1=21
41 LET D2=21
42 LET D3=21
43 LET D4=21
44 LET E1=21
45 LET E2=21
46 LET E3=21
47 LET E4=21
48 LET N1=0 
49 LET N2=0 
50 LET N3=0 
56 PRINT
60 PRINT "HOW MANY CHIPS DO YOU WANT TO PLACE ON EACH SQUARE";
75 IF C=3 THEN 1450 
77 PRINT
85 IF C=2 THEN 1460 
87 PRINT
90 IF C=1 THEN 1479 
92 PRINT
114 PRINT
115 PRINT "HOW MANY NUMBERS (1,2,OR 4) DO YOU WISH TO COVER WITH"
117 PRINT "ONE BET(PICK ONLY ONE)" 
120 INPUT A
121 PRINT
122 PRINT
125 IF A=1 THEN160 
130 IF A=2 THEN 230
135 IF A=4 THEN 280
140 PRINT "PLEASE THINK AGAIN, YOU CAN ONLY PICK1,2,OR4" 
145 GO TO 115
160 PRINT "YOUR ODDS ARE 20 TO 1, WHAT IS YOUR NUMBER";
161 PRINT
162 PRINT
165 IF C=3 THEN 1200 
170 IF C=2 THEN 1210 
175 IF C=1 THEN 1220 
195 IF C=3 THEN 1300 
205 IF C=2 THEN 1310 
215 IF C=1 THEN 1320 
216 GO TO 325
229 PRINT
230 PRINT "YOUR ODDS ARE 10 TO 1, WHAT ARE YOUR 2 NUMBERS";
231 PRINT
232 PRINT
235 IF C=3 THEN 1330 
240 IF C=2 THEN 1340 
245 IF C=1 THEN 1350 
250 IF C=3 THEN 1360 
255 IF C=2 THEN 1370 
270 IF C=1 THEN 1380 
275 GO TO 325
280 PRINT "YOUR ODDS ARE 5 TO 1, WHAT ARE YOUR FOUR NUMBERS";
281 PRINT
282 PRINT
285 IF C=3 THEN 1390 
290 IF C=2 THEN 1400 
295 IF C=1 THEN 1410 
310 IF C=3 THEN 1420 
315 IF C=2 THEN 1430 
320 IF C=1 THEN 1440 
325 LET K=(H*20/M1)+(I*20/M2)+(J*20/M3)
328 IF L-K<0 THEN 910
350 LET C=C-1
360 IF C=0 THEN 415
369 PRINT
370 PRINT "DO YOU WANT TO PLACE ANY MORE BETS BEFORE THE WHEEL"
371 PRINT "SPINS[Y OR N] ";
380 INPUT A$
381 PRINT
382 PRINT
383 PRINT
385 IF A$="Y" THEN 60
390 PRINT "YOU BET";K;"CHIPS, YOU HAVE";L-K;"CHIPS LEFT"
391 PRINT
392 PRINT
400 LET G=INT(20.9*RND(1))
410 GO TO 420
415 PRINT "YOU HAVE NOW COMPLETED YOUR THREE BETS" 
420 PRINT "NOW THE ROULETTE WHEEL WILL SPIN" 
421 PRINT
422 PRINT
423 PRINT
440 PRINT "THE NUMBER IS ";G 
570 IF (G-B1)*(G-B2)*(G-B3)*(G-B4)=0 THEN 630
580 IF (G-D1)*(G-D2)*(G-D3)*(G-D4)=0 THEN 635
590 IF (G-E1)*(G-E2)*(G-E3)*(G-E4)=0 THEN 640
591 IF N1+N2+N3>0 THEN 645 
592 PRINT
593 PRINT
600 PRINT "I AM SORRY, YOU PICKED THE WRONG NUMBERS" 
605 LET L=L-K
606 PRINT
610 PRINT "YOU NOW HAVE";L;"CHIPS LEFT"
615 GO TO 680
630 LET N1=M1*H
632 GO TO 580
635 LET N2=M2*I
637 GO TO 590
640 LET N3=M3*J
645 LET P=N1+N2+N3 
650 LET L=L+P-K
651 PRINT
652 PRINT
660 PRINT "CONGRATULATIONS, YOU HAVE WON";P;"CHIPS"
661 PRINT
670 PRINT "YOU NOW HAVE";L;"CHIPS" 
671 PRINT
672 PRINT
680 PRINT\PRINT "PLAY AGAIN ? [Y OR N] ";
685 INPUT A$
695 IF A$="Y" THEN 31 
900 STOP 
910 PRINT "CHEATER YOU HAVE BETTED MORE CHIPS THAN YOU OWN." 
912 PRINT "THE CASINO TAKES ALL AND SENDS YOU AWAY. GOOD RIDDENS"
915 PRINT "BYE"
920 GO TO 900
1200 INPUT B1 
1205 GO TO 170
1210 INPUT D1 
1215 GO TO 175
1220 INPUT E1 
1225 GO TO 195
1300 LET M1 =20 
1305 GO TO 205
1310 LET M2 =20 
1315 GO TO 215
1320 LET M3=20
1325 GO  TO 216 
1330 INPUT B1,B2
1335 GO TO 240
1340 INPUT D1, D2 
1345 GO TO 245
1350 INPUT E1,E2
1355 GO TO 250
1360 LET M1=10
1365 GO TO 255
1370 LET M2=10
1375 GO TO 270
1380 LET M3=10
1385 GO TO 275
1390 INPUT B1,B2,B3,B4
1395 GO TO 290
1400 INPUT D1,D2,D3,D4
1405 GO TO 295
1410 INPUT E1,E2,E3,E4
1415 GO TO 310
1420 LET M1=5 
1425 GOTO 315 
1430 LET M2=5 
1435 GO TO 320
1440  LET M3=5
1445 GO TO 325
1450 INPUT H
1455 GO TO 85 
1460 INPUT I
1465 GO TO 90 
1479 INPUT J
1480 GO TO 115
1600 END