# Dice — Rolls dice

When the program is run, a message is displayed saying that the dice is rolling. You then press a key to stop it. A random number from one to six is displayed and you choose whether to roll again or not.

        PROC dice:
              LOCAL dice%
              DO
                    CLS :PRINT "DICE ROLLING:"
                    AT 1,3 :PRINT "Press a key to stop"
                    DO
                          dice%=(RND*6+1)
                          AT 1,2 :PRINT dice%
                    UNTIL KEY
                    BEEP 5,300
                    dINIT "Roll again?"
                    dBUTTONS "No",%N,"Yes",%Y
              UNTIL DIALOG<>%y
        ENDP

### Random numbers

In this example, the `RND` function returns a random floating-point number, between 0 and 0.9999999... It is then multiplied by 6, and 1 is added, to give a number from 1 to 6.9999999... This is rounded down to a whole number (from 1 to 6) by assigning to the integer `dice%`.