Knuth shuffle - Rosetta Code

seed = 1 /* seed of the random number generator */ scale = 0 /* Random number from 0 to 32767. */ define rand() {/* Formula (from POSIX) for random numbers of low quality. */ seed = (seed * 1103515245 + 12345) % 4294967296 return ((seed / 65536) % 32768)}

rosettacode.org