random.for

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FOR 代码 · 共 15 行

        function Random( high )
        integer         high
c
c
c
        include         'life.fi'

        external        urand
        real            urand
        integer         seed /75347/
        Random = urand( seed ) * high

        end