10 PRINT "THIS PROGRAM IS THE GAME, DICE WHEEL IN WHICH"
20 PRINT "YOU CAN BET ON ANY NUMBER BETWEEN ONE AND SIX"
30 PRINT "AND UP TO THREE NUMBERS"
40 PRINT "THE HOUSE LIMIT IS FROM $1 TO $500"
50 PRINT "GOOD LUCK."
60 PRINT "TO END THIS PROGRAM TYPE STOP"
70 GO TO 90
80 PRINT "YOU CANNOT BET ON LESS THAN ONE OR MORE THAN THREE NUMBERS"
90 PRINT "HOW MANY NUMBERS DO YOU WANT TO BET ON";
100 INPUT N
110 IF N=1 THEN 190
120 IF N=2 THEN 370
130 IF N=3 THEN 600 
170 IF N>3 THEN 80
180 IF N<1 THEN 80
190 PRINT "WHAT NUMBER";
200 INPUT V
210 IF V>6 THEN 240
220 IF V<1 THEN 240
230 GO TO 260
240 PRINT "YOU CAN ONLY BET ON AN INTEGER FROM ONE TO SIX"
250 GO TO 190
260 PRINT  "WAGER";
270 INPUT F
280 IF F>500 THEN 310
290 IF F<1 THEN 310
300 GO TO 330
310 PRINT "THE HOUSE LIMIT IS FROM $1 TO $500"
320 GO TO 260
330 GOSUB 1870
340 GOSUB 2060
350 W=W+D
360 GOTO 3260
370 PRINT "WHAT TWO NUMBERS";
380 INPUT V,P
390 IF V>6 THEN 440
400 IF V<1 THEN 440
410 IF P>6 THEN 440
420 IF P<1 THEN 440
430 GO TO 460
440 PRINT "YOU CAN ONLY BET ON AN INTEGER FROM ONE TO SIX"
450 GO TO 370
460 PRINT "WAGER ON BOTH";
470 INPUT F,I
480 IF F>500 THEN 530
490 IF F<1 THEN 530
500 IF I>500 THEN 530
510 IF I<1 THEN 530
520 GO TO 550
530 PRINT "THE HOUSE LIMIT IS FROM $1 TO $500"
540 GO TO 460
550 GOSUB 1870
560 GOSUB 2060
570 GOSUB 2260
580 W=W+D+E
590 GO TO 3260
600 PRINT "WHAT THREE NUMBERS";
610 INPUT V,P,S
620 IF V>6 THEN 690
630 IF V<1 THEN 690
640 IF P>6 THEN 690
650 IF P<1 THEN 690
660 IF S>6 THEN 690
670 IF S<1 THEN 690
680 GO TO 710
690 PRINT "YOU CAN ONLY BET ON AN INTEGER FROM ONE TO SIX"
700 GO TO 600
710 PRINT "WAGER ON EACH OF THE THREE";
720 INPUT F,I,J
730 IF F>500 THEN 800
740 IF F<1 THEN 800
750 IF I>500 THEN 800
760 IF I<1 THEN 800
770 IF J>500 THEN 800
780 IF J<1 THEN 800
790 GO TO 820
800 PRINT "THE HOUSE LIMIT IS FROM $1 TO $500"
810 GO TO 710
820 GOSUB 1870
830 GOSUB 2060
840 GOSUB 2260
850 GOSUB 2460
860 W=W+D+E+O
870 GO TO 3260
1870 X=-1
1880 A=INT(6*RND(X)+1)\B=INT(6*RND(X)+1)\C=INT(6*RND(X)+1)
1890 IF A>B THEN 1960
1900 IF B>C THEN 1930
1910 PRINT "THE LUCKY NUMBERS ARE                   "A,B,C
1920 RETURN
1930 IF A>C THEN 2020
1940 PRINT "THE LUCKY NUMBERS ARE                  "A,C,B
1950 RETURN
1960 IF A>C THEN 1990
1970 PRINT "THE LUCKY NUMBERS ARE                   "B,A,C
1980 RETURN
1990 IF B>C THEN 2040
2000 PRINT "THE LUCKY NUMBERS ARE                   "B,C,A
2010 RETURN
2020 PRINT "THE LUCKY NUMBERS ARE                   "C,A,B
2030 RETURN
2040 PRINT "THE LUCKY NUMBERS ARE                   "C,B,A
2050 RETURN
2060 IF V=A THEN 2120
2070 IF V=B THEN 2240
2080 IF V=C THEN 2140
2090 D=(-1)*F
2100 PRINT "YOU LOSE ON"V
2110 RETURN
2120 IF V=B THEN 2170
2130 IF V=C THEN 2180
2140 D=F
2150 PRINT "YOU WIN ON"V
2160 RETURN
2170 IF V=C THEN 2210
2180 D=2*F
2190 PRINT "YOU WIN TWICE ON"V
2200 RETURN
2210 D=3*F
2220 PRINT "YOU WIN THREE TIMES ON"V
2230 RETURN
2240 IF V=C THEN 2180
2250 GO TO 2140
2260 IF P=A THEN 2320
2270 IF P=B THEN 2440
2280 IF P=C THEN 2340
2290 E=(-1)*I
2300 PRINT "YOU LOSE ON"P
2310 RETURN
2320 IF P=B THEN 2370
2330 IF P=C THEN 2380
2340 E=I
2350 PRINT "YOU WIN ON"P
2360 RETURN
2370 IF P=C THEN 2410
2380 E=2*I
2390 PRINT "YOU WIN TWICE ON"P
2400 RETURN
2410 E=3*I
2420 PRINT "YOU WIN THREE TIMES ON"P
2430 RETURN
2440 IF P=C THEN 2380
2450 GO TO 2340
2460 IF S=A THEN 2520
2470 IF S=B THEN 2640
2480 IF S=C THEN 2540
2490 O=(-1)*J
2500 PRINT "YOU LOSE ON"S
2510 RETURN
2520 IF S=B THEN 2570
2530 IF S=C THEN 2580
2540 O=J
2550 PRINT "YOU WIN ON"S
2560 RETURN
2570 IF S=C THEN 2610
2580 O=2*J
2590 PRINT "YOU WIN TWICE ON"S
2600 RETURN
2610 O=3*J
2620 PRINT "YOU WIN THREE TIMES ON"S
2630 RETURN
2640 IF S=C THEN 2580
2650 GO TO 2540
3260 IF W=O THEN 3290
3270 IF W>0 THEN 3310
3280 IF W<0 THEN 3330
3290 PRINT "YOUR EVEN"
3300 GO TO 60
3310 PRINT "YOUR AHEAD $"W
3320 GO TO 60
3330 PRINT "YOUR BEHIND $"W
3340 GO TO 60
3350 CALL TIMEJJ
3360 END