100 REM THIS IS THE GAME OF ROULETTE
115 PRINT "WELCOME TO THE GAME OF ROULETTE"
120 RANDOMIZE
130 PRINT
145 PRINT "WOULD YOU LIKE INSTRUCTIONS--YES OR NO";
160 INPUT A$
175 IF A$="YES" THEN 265
190 IF A$="Y" THEN 265
205 IF A$="NO" THEN 460
220 IF A$="N" THEN 460
235 PRINT "ANSWER-YES OR NO-PLEASE!"
250 GOTO 145
265 PRINT
280 PRINT "IN THIS GAME YOU ARE ALLOWED TO BET ON INDIVIDUAL"
295 PRINT "NUMBERS, NUMBER SETS, OR ODD OR EVEN NUMBERS."
310 PRINT "THE NUMBERS GO FROM 00 TO 36. YOU BET BY ENTERING A"
325 PRINT "NUMBER BETWEEN 0 AND 44.  THE NUMBERS 0 TO 36 "
340 PRINT "REPRESENT THEMSELVES, AND 37 REPRESENTS 00."
355 PRINT "40 REPRESENTS EVEN.  41 REPRESENTS ODD BETS."
370 PRINT "38 BETS THE NUMBER SET FROM 1 TO 18."
385 PRINT "39 BETS THE NUMBER SET FROM 19 TO 36."
400 PRINT "42 BETS THE NUMBER SET FROM 1 TO 12."
415 PRINT "43 BETS THE NUMBER SET FROM 13 TO 24."
430 PRINT "44 BETS THE NUMBER SET FROM 25 TO 36."
445 PRINT "00 IS NOT INCLUDED WHEN YOU BET ODD."
460 PRINT
475 PRINT
490 PRINT "IF YOU WOULD LIKE A PRINT OUT OF THE TABLE"
505 PRINT "TYPE THE WORD PRINT";
520 INPUT A$
535 IF A$="PRINT" GOTO 580
550 IF A$="P" GOTO 580
565 GOTO 880
580 PRINT
590 PRINT
600 STRSIZ 20
610 B$(1)="****************"
625 B$(2)="* "
640 PRINT B$(1)
655 PRINT "*** 0 *** 00 ***"
670 B$(3)="*"
685 PRINT B$(1)
700 U=-2
715 FOR I=1 TO 3
730 U=U+3
745 PRINT B$(2); U; B$(2); U+1; B$(2); U+2; B$(2)
760 PRINT B$(1)
775 NEXT I
790 FOR I=1 TO 9
805 U=U+3
820 PRINT B$(3); U; B$(3); U+1; B$(3); U+2; B$(3)
835 PRINT B$(1)
850 NEXT I
865 PRINT
880 PRINT
895 PRINT "HOW MUCH MONEY DO YOU HAVE TO SPEND ";
910 INPUT A5
925 G=G+1
940 IF G>5 GOTO 985
955 PRINT "PICK YOU BET NUMBER. (0 TO 44)";
970 GOTO 1000
985 PRINT "WHAT'S YOUR NUMBER ";
1000 INPUT B
1015 IF B>44 GOTO 925
1030 IF B<0 GOTO 925
1045 IF G>5 GOTO 1090
1060 PRINT "HOW MUCH MONEY DO YOU WANT TO BET THIS TIME ";
1075 GOTO 1105
1090 PRINT "AMOUNT!";
1105 INPUT C
1120 IF A5=C GOTO 1195
1135 IF A5>C GOTO 1195
1150 PRINT "YOU DON'T HAVE THAT MUCH MONEY!"
1165 PRINT "THE MOST YOU CAN BET IS "A5" DOLLARS."
1180 GOTO 1060
1195 N=INT(RND( 1)*100)
1210 IF N>37 GOTO 1195
1225 IF B>37 GOTO 1390
1240 IF B=N GOTO 1330
1255 A5=A5-C
1270 IF A5>0 GOTO 1300
1285 GOTO 1600
1300 PRINT N "YOU LOST BUT YOU STILL HAVE "A5" DOLLARS LEFT."
1315 GOTO 925
1330 D=35*C
1345 A5=A5+D
1360 PRINT N "YOU ** WON ** !! NOW YOU HAVE "A5" DOLLARS."
1375 GOTO 925
1390 IF B>39 GOTO 1720
1405 IF B=38 GOTO 1555
1420 IF N>18 GOTO 1450
1435 GOTO 1465
1450 IF N<37 GOTO 1525
1465 A5=A5-C
1480 IF A5>0 GOTO 1510
1495 GOTO 1600
1510 GOTO 1300
1525 A5=A5+C
1540 GOTO 1360
1555 IF N>18 GOTO 1465
1570 IF N>36 GOTO 1465
1585 GOTO 1525
1600 PRINT N "YOU LOST AND ARE OUT OF MONEY..."
1615 PRINT
1630 PRINT
1645 PRINT "WOULD YOU LIKE TO PLAY AGAIN? (YES OR NO)";
1660 INPUT Z$
1675 IF Z$="YES" GOTO 460
1690 IF Z$="Y" GOTO 460
1705 GOTO 2080
1720 IF B>41 GOTO 1855
1735 Y=(N/2)-INT(N/2)
1750 IF B=41 GOTO 1795
1765 IF Y>.01 GOTO 1465
1780 GOTO 1525
1795 IF N=37 GOTO 1465
1810 IF N=0 GOTO 1465
1825 IF Y>.01 GOTO 1525
1840 GOTO 1465
1855 IF B=42 GOTO 2005
1870 IF B=43 GOTO 1945
1885 IF N>24 GOTO 1915
1900 GOTO 1465
1915 IF N=37 GOTO 1465
1930 GOTO 2050
1945 IF N>12 GOTO 1975
1960 GOTO 1465
1975 IF N>24 GOTO 1465
1990 GOTO 2050
2005 IF N>0 GOTO 2035
2020 GOTO 1465
2035 IF N>12 GOTO 1465
2050 A5=C*2+A5
2065 GOTO 1360
2080 END