| 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 | |