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