[Back to MISC SWAG index] [Back to Main SWAG index] [Original]

    {*****************************************************************************
     * Function ...... RND()
     * Purpose ....... To generate a random number
     * Parameters .... i          Max value for number range
     * Returns ....... A random number between 1 and i
     * Notes ......... None
     * Author ........ Martin Richardson
     * Date .......... May 13, 1992
     *****************************************************************************}
    { FUNCTION to generate a random number between 1 and i }
    FUNCTION RND( i: LONGINT ): LONGINT;
    BEGIN
         RND := RANDOM( i ) + 1;
    END;

[Back to MISC SWAG index] [Back to Main SWAG index] [Original]