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

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.