Pseudo random number generator

I sure would like to find an algorithm in TB for a pseudo random number generator. Any help or advice would be appreciated.


Pseudo random number generator

Here's how MS does it:
(This is no secret. It's available on the MS Website

! Pseudo-Random Number Routine
! Used by MS Visual Basic

! x1 = new value
! x0 = previous value (an initial value of 327680 is
! used by Visual Basic)

LET a = 1140671485
LET c = 12820163
LET x0 = 327680

FOR i=1 to 10

LET x1 = mod(( x0 * a + c ), (2^24))

PRINT x1 / (2^24)

LET x0 = x1