/'static uint32_t deadbeef_seed;
static uint32_t deadbeef_beef = 0xdeadbeef;

uint32_t deadbeef_rand() {
	deadbeef_seed = (deadbeef_seed << 7) ^ ((deadbeef_seed >> 25) + deadbeef_beef);
	deadbeef_beef = (deadbeef_beef << 7) ^ ((deadbeef_beef >> 25) + 0xdeadbeef);
	return deadbeef_seed;
}

void deadbeef_srand(uint32_t x) {
	deadbeef_seed = x;
	deadbeef_beef = 0xdeadbeef;
}'/

function deadbeef_rand( byval seed as uinteger = 0 ) as UInteger

        static deadbeef_seed as uinteger = 0
        static deadbeef_beef as uinteger = &hdeadbeef
        
        if seed <> 0 then deadbeef_seed = seed
        
        deadbeef_seed = (deadbeef_seed shl 7) xor ((deadbeef_seed shr 25) + deadbeef_beef)
        deadbeef_beef = (deadbeef_beef shl 7) xor ((deadbeef_beef shr 25) + &hdeadbeef)
        
        return deadbeef_seed
        
end function

var z = deadbeef_rand(timer)
print bin(z) & " => " & z

for n as integer = 1 to 4
        var x = deadbeef_rand
        print bin(x) & " => " & x 
        
next

var ti = timer
var l = deadbeef_rand

while l > 100
        l = deadbeef_rand
wend
var too = timer
print bin(l) & " => " & l
print "Time to <100: " & too-ti
sleep