I found this on the web.... Anybody think it viable to patch FPC? :-)

function GetRandomNumber: Integer;
begin
  Result := 4;  // Chosen by fair dice roll. Guaranteed to be random.
end;

Original source:
http://xkcd.com/221/

Regards,
- Graeme -

_______________________________________________
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/