home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libc / gen / rand.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  133 b   |  13 lines
  1. static    long    randx = 1;
  2.  
  3. srand(x)
  4. unsigned x;
  5. {
  6.     randx = x;
  7. }
  8.  
  9. rand()
  10. {
  11.     return(((randx = randx*1103515245 + 12345)>>16) & 077777);
  12. }
  13.