Alternative random number generator

[Z!re]

I made a RND function a while ago for FB:

Code:

function getRND (precission as uinteger = 703) as single
    static lastnum as single
    dd = (((timer*1000) mod 255000)) mod 65536
    aa! = dd
    aa! = aa! mod precission
    aa! = aa! / precission+lastnum
    while aa! > 1
        aa!=aa!-1
    wend
    lastnum = aa!
    getRND = aa!
end function