http://www.random.org/dice/ For those without readily available dice.
;The program rolls three die for you and shows the resultAppTitle "Dice Roller";Functions have local variables, this overrides thatGlobal nDice1%, nDice2%, nDice3%;Sets up the variablesVariables();Shows the resultsResults();Lets the user see the results before it closesWaitKeyEndFunction Variables() SeedRnd MilliSecs() ;Makes the numbers random (or as random as they can be) nDice1% = Rand(1,6) ;Assigns each dice nDice2% = Rand(1,6) ;a random number nDice3% = Rand(1,6) ;between 1 and 6End FunctionFunction Results() Print nDice1% + ", " + nDice2% + ", " + nDice3% ;Prints each number seperated by a commaEnd Function
The devil does not have a number. 666 is the number of the beast.
654