The code below is Ada-83, but I will be switching to Ada-95 as soon as I get the time.
See Also: Random Number Generation