Author: Steve Maughan
Date: 00:57:50 08/17/02
Go up one level in this thread
I don't have my code with me at the moment but I do something like: procedure random64 : int64; begin result:=random32; result:=(result shl 8) xor random32; result:=(result shl 8) xor random32; result:=(result shl 8) xor random32; result:=(result shl 8) xor random32; end; This works well for me Regards, Steve Maughan
This page took 0 seconds to execute
Last modified: Thu, 15 Apr 21 08:11:13 -0700
Current Computer Chess Club Forums at Talkchess. This site by Sean Mintz.