Dice odds for "unique dice"

DIM FACE(5)

FOR DIE = 0 TO 5
    READ FACE(DIE)
    DATA 1,1,1,1,1,1
NEXT DIE

LET ROLL = 0

DIM HANDS(10)

FOR HAND = 0 TO 9
    READ HANDS(HAND)
    DATA 0,0,0,0,0,0,0,0,0,0
NEXT HAND

DIM COUNT(6)

roll:

FOR THROW = 1 TO 6

    RESTORE dataY
    FOR POSITION = 0 TO 6
        READ COUNT(POSITION)
        dataY:
        DATA 0,0,0,0,0,0,0
    NEXT POSITION

    FOR RESULT = 1 TO 6

        LET TALLY = 0
        FOR SPOTS = 0 TO 5
            IF FACE(SPOTS) = RESULT THEN LET TALLY = TALLY + 1
        NEXT SPOTS
        LET COUNT(TALLY) = COUNT(TALLY) + 1

    NEXT RESULT

NEXT THROW

IF COUNT(2) = 1 AND COUNT(3) = 0 AND COUNT(4) = 0 THEN LET HANDS(0) = HANDS(0) + 1
IF COUNT(2) = 2 THEN LET HANDS(1) = HANDS(1) + 1
IF COUNT(2) = 3 THEN LET HANDS(2) = HANDS(2) + 1
IF COUNT(3) = 1 AND COUNT(2) = 0 THEN LET HANDS(3) = HANDS(3) + 1
IF COUNT(3) = 1 AND COUNT(2) = 1 THEN LET HANDS(4) = HANDS(4) + 1
IF COUNT(3) = 2 THEN LET HANDS(5) = HANDS(5) + 1
IF COUNT(4) = 1 AND COUNT(2) = 0 THEN LET HANDS(6) = HANDS(6) + 1
IF COUNT(4) = 1 AND COUNT(2) = 1 THEN LET HANDS(7) = HANDS(7) + 1
IF COUNT(5) = 1 THEN LET HANDS(8) = HANDS(8) + 1
IF COUNT(6) = 1 THEN LET HANDS(9) = HANDS(9) + 1



LET ROLL = ROLL + 1

PRINT FACE(0); " - "; FACE(1); " - "; FACE(2); " - "; FACE(3); " - "; FACE(4); " - "; FACE(5),_
    ROLL, COUNT(6); COUNT(5); COUNT(4); COUNT(3); COUNT(2)

LET FACE(5) = FACE(5) + 1
IF FACE(5) < 7 THEN GOTO roll ELSE LET FACE(5) = 1

LET FACE(4) = FACE(4) + 1
IF FACE(4) < 7 THEN GOTO roll ELSE LET FACE(4) = 1

LET FACE(3) = FACE(3) + 1
IF FACE(3) < 7 THEN GOTO roll ELSE LET FACE(3) = 1

LET FACE(2) = FACE(2) + 1
IF FACE(2) < 7 THEN GOTO roll ELSE LET FACE(2) = 1

LET FACE(1) = FACE(1) + 1
IF FACE(1) < 7 THEN GOTO roll ELSE LET FACE(1) = 1

LET FACE(0) = FACE(0) + 1
IF FACE(0) < 7 THEN GOTO roll ELSE LET FACE(0) = 1

PRINT "TOTAL NUMBER OF HANDS CONTAINING"
PRINT "1 PAIR:", HANDS(0)
PRINT "2 PAIRS:", HANDS(1)
PRINT "3 PAIRS:", HANDS(2)
PRINT "1 TRIP:", HANDS(3)
PRINT "1 TRIP/1 PAIR:"; HANDS(4)
PRINT "2 TRIPS:", HANDS(5)
PRINT "1 QUAD:", HANDS(6)
PRINT "1 QUAD/1 PAIR:"; HANDS(7)
PRINT "1 QUINT:", HANDS(8)
PRINT "1 SEXTUPLE:", HANDS(9)

start_time = TIMER

OUT &H3C8, 0 'Set COLOR 0 to black
OUT &H3C9, 1 'R%
OUT &H3C9, 1 'G%
OUT &H3C9, 1 'B%

OUT &H3C8, 1 'set COLOR 1 to red
OUT &H3C9, 63 'R%
OUT &H3C9, 1 'G%
OUT &H3C9, 1 'B%

OUT &H3C8, 2 'set COLOR 2 to white
OUT &H3C9, 63 'R%
OUT &H3C9, 63 'G%
OUT &H3C9, 63 'B%

OUT &H3C8, 3 'set COLOR 3 to dark green
OUT &H3C9, 1 'R%
OUT &H3C9, 19 'G%
OUT &H3C9, 1 'B%

COLOR 2, 3 'Set forground (text) colour to white and background colour to dark green

CLS

DIM face(6)

DIM count_spots(6)

DIM colour(6)

DIM r(6)

DIM b(6)

DIM sr(6)

DIM sb(6)

roll = 0

one_pair = 0: xx = 0: xy = 0

two_pair = 0: xx_xx = 0: xx_yy = 0: xx_xy = 0: xy_xy = 0

three_pair = 0: xx_xx_xy = 0: xx_yy_xy = 0: xy_xy_xy = 0

one_trip = 0: xxx = 0: xxy = 0

one_trip_one_pair = 0: xxx_xx = 0: xxx_yy = 0: xxy_xx = 0: xxy_yy = 0: xxy_xy = 0

two_trips = 0: xxx_xxx = 0: xxx_yyy = 0: xxx_xxy = 0: xxy_xxy = 0

one_quad = 0: xxxy = 0: xxyy = 0

one_quad_one_pair = 0: xxxy_xx = 0: xxxy_yy = 0: xxxy_xy = 0: xxyy_xx = 0: xxyy_xy = 0

one_quint = 0

one_sextuple = 0

one_straight = 0: xxxxxx = 0: xxxxyy = 0: xxxyyy = 0

FOR die = 1 TO 6

    face(die) = 1

NEXT die

PRINT "  NO. SHOWING ON  |  ROLL | NO. OF GROUPS OF | COLOUR OF FACE"

PRINT "  THE DICE FACE   |  NO.  | 6  5  4  3  2  1 | RED=1 BLACK=0"

PRINT "------------------+-------+------------------+-----------------"

roll: 'GOTO roll returns here

FOR position = 1 TO 6

    colour(position) = (face(position) + ((position - 1) \ 3)) MOD 2

    count_spots(position) = 0

    group(position) = 0

    r(position) = 0

    b(position) = 0

    sr(position) = 0

    sb(position) = 0

NEXT position

g = 0

sg = 0

FOR dice = 1 TO 6

    tally_spots = 0

    tally_red = 0

    tally_black = 0

    FOR spots = 1 TO 6

        IF face(spots) = dice THEN

            tally_spots = tally_spots + 1

            IF colour(spots) = 1 THEN

                tally_red = tally_red + 1

            ELSEIF colour(spots) = 0 THEN

                tally_black = tally_black + 1

            END IF

        END IF

    NEXT spots

    IF tally_spots > 1 THEN

        count_spots(tally_spots) = count_spots(tally_spots) + 1

        g = g + 1

        r(g) = r(g) + tally_red

        b(g) = b(g) + tally_black

    ELSEIF tally_spots = 1 THEN

        count_spots(tally_spots) = count_spots(tally_spots) + 1

        sg = sg + 1

        sr(sg) = sr(sg) + tally_red

        sb(sg) = sb(sg) + tally_black

    END IF

NEXT dice

IF count_spots(2) = 1 AND count_spots(3) = 0 AND count_spots(4) = 0 THEN

    one_pair = one_pair + 1

    IF r(1) = 2 OR b(1) = 2 THEN

        xx = xx + 1

    ELSE

        xy = xy + 1

    END IF

ELSEIF count_spots(2) = 2 THEN

    two_pair = two_pair + 1

    IF r(1) + r(2) = 4 OR b(1) + b(2) = 4 THEN

        xx_xx = xx_xx + 1

    ELSEIF r(1) + r(2) = 3 OR b(1) + b(2) = 3 THEN

        xx_xy = xx_xy + 1

    ELSEIF r(1) = 1 AND r(2) = 1 AND b(1) = 1 AND b(2) = 1 THEN

        xy_xy = xy_xy + 1

    ELSE

        xx_yy = xx_yy + 1

    END IF

ELSEIF count_spots(2) = 3 THEN

    three_pair = three_pair + 1

    IF r(1) + r(2) + r(3) = 5 OR b(1) + b(2) + b(3) = 5 THEN

        xx_xx_xy = xx_xx_xy + 1

    ELSEIF r(1) = 1 AND r(2) = 1 AND r(3) = 1 AND b(1) = 1 AND b(2) = 1 AND b(3) = 1 THEN

        xy_xy_xy = xy_xy_xy + 1

    ELSE

        xx_yy_xy = xx_yy_xy + 1

    END IF

ELSEIF count_spots(3) = 1 AND count_spots(2) = 0 THEN

    one_trip = one_trip + 1

    IF r(1) = 3 OR b(1) = 3 THEN

        xxx = xxx + 1

    ELSE

        xxy = xxy + 1

    END IF

ELSEIF count_spots(3) = 1 AND count_spots(2) = 1 THEN

    one_trip_one_pair = one_trip_one_pair + 1

    IF r(1) + r(2) = 5 OR b(1) + b(2) = 5 THEN

        xxx_xx = xxx_xx + 1

    ELSEIF r(1) + b(2) = 5 OR r(2) + b(1) = 5 THEN

        xxx_yy = xxx_yy + 1

    ELSEIF (r(1) = 2 AND b(1) = 1 AND r(2) = 2) OR (r(1) = 1 AND b(1) = 2 AND b(2) = 2)_
        OR (r(1) = 2 AND r(2) = 2 AND b(2) = 1) OR (b(1) = 2 AND r(2) = 1 AND b(2) = 2) THEN

        xxy_xx = xxy_xx + 1

    ELSEIF (r(1) = 2 AND b(1) = 1 AND b(2) = 2) OR (r(1) = 1 AND b(1) = 2 AND r(2) = 2)_
        OR (r(1) = 2 AND r(2) = 1 AND b(2) = 2) OR (b(1) = 2 AND r(2) = 2 AND b(2) = 1) THEN

        xxy_yy = xxy_yy + 1

    ELSEIF ((r(1) = 2 AND b(1) = 1) OR (r(1) = 1 AND b(1) = 2)) AND (r(2) = 1 AND b(2) = 1)_
        OR (r(1) = 1 AND b(1) = 1) AND ((r(2) = 2 AND b(2) = 1) OR (r(2) = 1 AND b(2) = 2)) THEN

        xxy_xy = xxy_xy + 1

    END IF

ELSEIF count_spots(3) = 2 THEN

    two_trips = two_trips + 1

    IF r(1) + r(2) = 6 OR b(1) + b(2) = 6 THEN

        xxx_xxx = xxx_xxx + 1

    ELSEIF r(1) + b(2) = 6 OR r(2) + b(1) = 6 THEN

        xxx_yyy = xxx_yyy + 1

    ELSEIF r(1) < 3 AND r(2) < 3 AND b(1) < 3 AND b(2) < 3 THEN

        xxy_xyy = xxy_xyy + 1

    END IF

ELSEIF count_spots(4) = 1 AND count_spots(2) = 0 THEN

    one_quad = one_quad + 1

    IF r(1) = 3 OR b(1) = 3 THEN

        xxxy = xxxy + 1

    ELSEIF r(1) = 2 AND b(1) = 2 THEN

        xxyy = xxyy + 1

    END IF

ELSEIF count_spots(4) = 1 AND count_spots(2) = 1 THEN

    one_quad_one_pair = one_quad_one_pair + 1

    IF (r(1) = 3 AND r(2) = 2) OR (r(1) = 2 AND r(2) = 3) OR (b(1) = 3 AND b(2) = 2) OR (b(1) = 2 AND b(2) = 3) THEN

        xxxy_xx = xxxy_xx + 1

    ELSEIF (r(1) = 3 AND b(2) = 2) OR (r(1) = 2 AND b(2) = 3) OR (b(1) = 3 AND r(2) = 2) OR (b(1) = 2 AND r(2) = 3) THEN

        xxxy_yy = xxxy_yy + 1

    ELSEIF ((r(1) = 3 AND b(1) = 1) OR (r(1) = 1 AND b(1) = 3)) AND (r(2) = 1 AND b(2) = 1)_
        OR ((r(2) = 3 AND b(2) = 1) OR (r(2) = 1 AND b(2) = 3)) AND (r(1) = 1 AND b(1) = 1) THEN

        xxxy_xy = xxxy_xy + 1

    ELSEIF (r(1) = 1 AND r(2) = 2) OR (b(1) = 2 AND b(2) = 2) THEN

        xxyy_xx = xxyy_xx + 1

    ELSEIF (r(1) = 2 AND b(1) = 2 AND r(2) = 1 AND b(2) = 1) OR (r(1) = 1 AND b(1) = 1 AND r(2) = 2 AND b(2) = 2) THEN

        xxyy_xy = xxyy_xy + 1

    END IF

ELSEIF count_spots(5) = 1 THEN

    one_quint = one_quint + 1

ELSEIF count_spots(6) = 1 THEN

    one_sextuple = one_sextuple + 1

ELSEIF count_spots(1) = 6 THEN

    one_straight = one_straight + 1

    IF sr(1) + sr(2) + sr(3) + sr(4) + sr(5) + sr(6) = 6 OR sb(1) + sb(2) + sb(3) + sb(4) + sb(5) + sb(6) = 6 THEN

        xxxxxx = xxxxxx + 1

    ELSEIF sr(1) + sr(2) + sr(3) + sr(4) + sr(5) + sr(6) = 4 OR sb(1) + sb(2) + sb(3) + sb(4) + sb(5) + sb(6) = 4 THEN

        xxxxyy = xxxxyy + 1

    END IF

END IF

LET roll = roll + 1

FOR throw_spots = 1 TO 6

    COLOR colour(throw_spots): PRINT face(throw_spots);

NEXT throw_spots

COLOR 2: PRINT "|";

IF roll < 10 THEN

    PRINT "    "; roll;

ELSEIF roll < 100 THEN

    PRINT "   "; roll;

ELSEIF roll < 1000 THEN

    PRINT "  "; roll;

ELSEIF roll < 10000 THEN

    PRINT " "; roll;

ELSE

    PRINT roll;

END IF

PRINT "|"; count_spots(6); count_spots(5); count_spots(4); count_spots(3); count_spots(2); count_spots(1); "|";

FOR throw_colour = 1 TO 6

    COLOR colour(throw_colour): PRINT colour(throw_colour);

NEXT throw_colour

COLOR 2: PRINT " "

face(6) = face(6) + 1

IF face(6) < 7 THEN

    GOTO roll

ELSE

    face(6) = 1

    face(5) = face(5) + 1

    IF face(5) < 7 THEN

        GOTO roll

    ELSE

        face(5) = 1

        face(4) = face(4) + 1

        IF face(4) < 7 THEN

            GOTO roll

        ELSE

            face(4) = 1

            face(3) = face(3) + 1

            IF face(3) < 7 THEN

                GOTO roll

            ELSE

                face(3) = 1

                face(2) = face(2) + 1

                IF face(2) < 7 THEN

                    GOTO roll

                ELSE

                    face(2) = 1

                    face(1) = face(1) + 1

                    IF face(1) < 7 THEN

                        GOTO roll

                    ELSE

                        face(1) = 1

                    END IF

                END IF

            END IF

        END IF

    END IF

END IF

PRINT "TOTAL NUMBER OF HANDS CONTAINING"

PRINT "1 PAIR:", one_pair; "- XX:"; xx; "- XY:"; xy

PRINT "2 PAIRS:", two_pair; "- XX XX:"; xx_xx; "- XX YY:"; xx_yy; "- XX XY:"; xx_xy; "- XY XY:"; xy_xy

PRINT "3 PAIRS:", " "; three_pair; "- XX XX XY:"; xx_xx_xy; "- XX YY XY:"; xx_yy_xy; "- XY XY XY:"; xy_xy_xy

PRINT "1 TRIP:", " "; one_trip; "- XXX:"; xxx; "- XXY:"; xxy

PRINT "1 TRIP/1 PAIR:"; " "; one_trip_one_pair; "- XXX XX:"; xxx_xx; "- XXX YY:"; xxx_yy; "- XXY XX:"; xxy_xx

PRINT " ", "         "; "XXY YY:"; xxy_yy; "- XXY XY:"; xxy_xy

PRINT "2 TRIPS:", "  "; two_trips; "- XXX XXX:"; xxx_xxx; "- XXX YYY"; xxx_yyy; "- XXY XYY:"; xxy_xyy

PRINT "1 QUAD:", " "; one_quad; "- XXXY:"; xxxy; "- XXYY"; xxyy

PRINT "1 QUAD/1 PAIR:"; "  "; one_quad_one_pair; "- XXXY XX:"; xxxy_xx; "- XXXY YY:"; xxxy_yy; "- XXYY_XX:"; xxyy_xx; "- XXYY XY:"; xxyy_xy

PRINT "1 QUINT:", "  "; one_quint; "- XXXYY:"; one_quint

PRINT "1 SEXTUPLE:", "    "; one_sextuple; "- XXXYYY:"; one_sextuple

PRINT "1 STRAIGHT:", "  "; one_straight; "- XXXXXX:"; xxxxxx; "- XXXXYY:"; xxxxyy

end_time = TIMER

PRINT "This program took "; end_time - start_time; " seconds to execute"

FOR reset_COLOR = 1 TO 256
    OUT &H3C7, reset_COLOR
    R% = INP(&H3C9)
    G% = INP(&H3C9)
    B% = INP(&H3C9)
NEXT reset_COLOR