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."
31 60 PRINT "HOW MANY CHIPS DO YOU WANT TO PLACE ON EACH SQUARE";
39 115 PRINT "HOW MANY NUMBERS (1,2,OR 4) DO YOU WISH TO COVER WITH"
40 117 PRINT "ONE BET(PICK ONLY ONE)"
47 140 PRINT "PLEASE THINK AGAIN, YOU CAN ONLY PICK1,2,OR4"
49 160 PRINT "YOUR ODDS ARE 20 TO 1, WHAT IS YOUR NUMBER";
60 230 PRINT "YOUR ODDS ARE 10 TO 1, WHAT ARE YOUR 2 NUMBERS";
70 280 PRINT "YOUR ODDS ARE 5 TO 1, WHAT ARE YOUR FOUR NUMBERS";
79 325 LET K=(H*20/M1)+(I*20/M2)+(J*20/M3)
84 370 PRINT "DO YOU WANT TO PLACE ANY MORE BETS BEFORE THE WHEEL"
85 371 PRINT "SPINS[Y OR N] ";
91 390 PRINT "YOU BET";K;"CHIPS, YOU HAVE";L-K;"CHIPS LEFT"
94 400 LET G=INT(20.9*RND(1))
96 415 PRINT "YOU HAVE NOW COMPLETED YOUR THREE BETS"
97 420 PRINT "NOW THE ROULETTE WHEEL WILL SPIN"
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
108 600 PRINT "I AM SORRY, YOU PICKED THE WRONG NUMBERS"
111 610 PRINT "YOU NOW HAVE";L;"CHIPS LEFT"
122 660 PRINT "CONGRATULATIONS, YOU HAVE WON";P;"CHIPS"
124 670 PRINT "YOU NOW HAVE";L;"CHIPS"
127 680 PRINT\PRINT "PLAY AGAIN ? [Y OR N] ";
129 695 IF A$="Y" THEN 31
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"
159 1390 INPUT B1,B2,B3,B4
161 1400 INPUT D1,D2,D3,D4
163 1410 INPUT E1,E2,E3,E4