sw/src/basic/ROULET.BA

   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