Return to rand.c CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bite / src

Annotation of researchv10no/cmd/basic/bite/src/rand.c, revision 1.1

1.1     ! root        1: /* This UNIX libm function is included to maintain compatibility with
        !             2:  * Berkeley UNIX
        !             3:  */
        !             4: static long    randx = 1;
        !             5: 
        !             6: Srand(x)
        !             7: {
        !             8:        randx = x;
        !             9: }
        !            10: 
        !            11: Rand()
        !            12: {
        !            13:        return(((randx = randx * 1103515245L + 12345)>>16) & 0x7fff);
        !            14: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.