--- /dev/null
+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
+
projects / pdp8.git / blobdiff