kolibrios-fun/programs/develop/ktcc/trunk/libc/stdlib/random.c
turbocat e08c6968ef ktcc: rollback to r9529
git-svn-id: svn://kolibrios.org@9558 a494cfbc-eb01-0410-851d-a64ba20cac60
2022-01-02 12:16:17 +00:00

16 lines
188 B
C

#include "stdlib.h"
unsigned int seed_o=1;
void srand (unsigned int seed)
{
seed_o=seed;
}
int rand (void)
{
seed_o=(seed_o*25173+13849) & (65535);
return(seed_o);
}