projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
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 |